COBOL プログラミング

質問

以下の処理でエラーがでてしまっていますがどこが間違っているのかよくわかりません。
文法の間違いを指摘していただけますでしょうか？？
ROWNUM と副問い合わせを使用したプログラムです。
　ただし全角半角はエラーに含まないものとします。
よろしくお願いいたします。

IF MECIDENPYO_NO NOT = SPACE
　THEN
　　EXEC SQL
　　　SELECT 　SKA_SAKI_CD --出荷先
　　 　　　　　　　,SKA_TYPE　--出荷タイプ
　　　INTO :A. SKA_SAKI_CD,
　 　　　　　:A. SKA_TYPE
　　FROM (SELECT 　SKA_SAKI_CD --出荷先
　　　　　 　　　　　　　,SKA_TYPE　--出荷タイプ
　　　　　　　INTO　　 :A. SKA_SAKI_CD,
　　　 　　　　　　　　　:A. SKA_TYPE
FROM　　テーブル名
*
WHERE SKA_SLIP_NO LIKE '____' || :HST-EDIT_BIKOU
AND DEL_FLG = '0'
*
ORDER BY INCE_DATE DESC)
WHERE ROWNUM <=1
END-EXEC
END-IF.

回答No.1

ricman · ベストアンサー

:A. SKA_
の記述　.　は使えないとおみます。

お礼

ありがとうございます！！解決しました