例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5780. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS SYSEXP AS "System.Exception". 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 PROCEDURE DIVISION. 000010 DECLARATIVES. 000011 EXP1 SECTION. 000012 USE AFTER EXCEPTION SYSEXP. 000013 RESUME AT. 000014 END DECLARATIVES. 000015 LABEL-1. 000016 EXIT PROGRAM 000017 END PROGRAM P5780.
P5780.cob (13) : JMN5780I-S RESUME文には手続き名を指定しなければなりません.
詳細な説明
RESUME文が実行されると,「GO TO 手続き名」が実行されたかのように,RESUME文で指定した手続き名に制御が移ります.