NetCOBOL for .NET V7.0 メッセージ集

2.5.230 JMN5779I-S

RESUME文は，クラス名指定のUSE文に関連付けられた宣言部分だけで使用できます．

例

      000010 IDENTIFICATION  DIVISION.
      000020 PROGRAM-ID.     P5779.
      000030 ENVIRONMENT     DIVISION.
      000040 CONFIGURATION   SECTION.
      000050 REPOSITORY.
      000060     CLASS SYSEXP AS "System.Exception".
      000070 INPUT-OUTPUT    SECTION.
      000080 FILE-CONTROL.
      000090     SELECT FILE1 ASSIGN TO SYS001.
      000100 DATA            DIVISION.
      000110 FILE            SECTION.
      000120 FD FILE1.
      000130 01 REC1         PIC X(80).
      000140 WORKING-STORAGE SECTION.
      000150 PROCEDURE      DIVISION.
      000160 DECLARATIVES.
      000170 FILE1-ERR SECTION.
      000180     USE AFTER STANDARD EXCEPTION PROCEDURE ON FILE1.
      000190       RESUME AT LABEL-2.
      000200 END DECLARATIVES.
      000210 LABEL-1.
      000220     OPEN I-O FILE1.
      000230     READ FILE1.
      000240     CLOSE FILE1.
      000250     EXIT PROGRAM.
      000260 LABEL-2.
      000270     DISPLAY "** RESUME".
      000280     EXIT PROGRAM.
      000290 END PROGRAM    P5779.
    

P5779.cob (19) : JMN5779I-S RESUME文は，クラス名指定のUSE文に関連付けられた宣言部分だけで使用できます．

詳細な説明

RESUME文は，RESUME文が書かれたUSE手続きの例外処理を完了させた後，宣言節外の別の部分に制御を移します．RESUME文は，例外オブジェクトのUSE手続きの中にだけ書くことができます．