例題
[P2660.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2660. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 PROCEDURE DIVISION. 000007 EXEC SQL 000008 WHENEVER SQLERROR GO TO 000009 END-EXEC. 000010 END PROGRAM P2660.
P2660.cob 8: JMN2660I-S WHENEVER文の構文に誤りがあります.
詳細な説明
埋込みSQL例外宣言(WHENEVER)において,次の誤りが考えられます.
WHENEVERの後ろの語が,SQLERRORまたはNOT FOUNDでない
NOTの後ろの語がFOUNDでない
SQLERROR/NOT FOUNDの後ろの語が,GO TO/GOTO/CONTINUEでない
GOの後ろの語がTOでない
GO TO/GOTOの後ろ語が:(コロン)でない
:(コロン)の後ろに手続き名が書かれていない
手続き名が適切でない(名前が30文字を超えている/修飾に誤りがある/先頭または末尾がハイフンである)