引数の説明
INPUT/OUTPUT PROCEDURE指定を持つSORT/MERGE文またはメソッド定義で定義されたLINAGE句を持つファイルに対する入出力文. |
TRY,CATCHまたはFINALLY. |
例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5769. 000003* 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006* 000007 METHOD-ID. M5769. 000008 ENVIRONMENT DIVISION. 000009 INPUT-OUTPUT SECTION. 000010 FILE-CONTROL. 000011 SELECT SQFILE1 ASSIGN TO SYS001 000012 ORGANIZATION IS SEQUENTIAL. 000013 I-O-CONTROL. 000014 DATA DIVISION. 000015 FILE SECTION. 000016 FD SQFILE1 LINAGE 66. 000017 01 SQF1REC. 000018 02 PIC X(80). 000019 LINKAGE SECTION. 000020 PROCEDURE DIVISION. 000021 TRY 000022 OPEN OUTPUT SQFILE1 000023 FINALLY 000024 CLOSE SQFILE1 000025 END-TRY 000026 END METHOD M5769. 000027 END OBJECT. 000028 END CLASS C5769.
C5769.cob (22) : JMN5769I-S メソッド定義で定義されたLINAGE句を持つファイルに対する入出力文は,TRY文のTRYブロックには指定できません.
C5769.cob (24) : JMN5769I-S メソッド定義で定義されたLINAGE句を持つファイルに対する入出力文は,TRY文のFINALLYブロックには指定できません.
詳細な説明
TRYブロック,CATCHブロックまたはFINALLYブロック内に記述できない文を指定した場合に,この診断メッセージが出力されます.
記述できない文は次の通りです.
TRYブロックおよびCATCHブロックの場合
そとPERFORM文
INPUT PROCEDURE指定またはOUTPUT PROCEDURE指定を持つSORT文およびMERGE文
メソッド定義のファイル節に定義された,LINAGE句指定のファイルを操作する入出力文
FINALLYブロック
GO TO文
EXIT PROGRAM文またはEXIT METHOD文
EXIT TRY文
STOP RUN文
EXIT PERFORM文