2.4.374 JMN2603I-S

@1@文は，GLOBAL指定の宣言手続き中に指定できません．

埋め込みの説明

@1@ : EXIT PROGRAM，EXIT METHODまたはGOBACK．

例題

[P2603.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2603.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT SQFILE1 ASSIGN TO SYS001.
000007 DATA           DIVISION.
000008 FILE            SECTION.
000009 FD SQFILE1.
000010 01 SQF1REC.
000011   02                   PIC X(80).
000012 WORKING-STORAGE SECTION.
000013 PROCEDURE      DIVISION.
000014 DECLARATIVES.
000015 FILE-ERROR-1 SECTION.
000016     USE GLOBAL AFTER STANDARD ERROR PROCEDURE ON SQFILE1.
000017     EXIT PROGRAM.
000018 END DECLARATIVES.
000019 END PROGRAM    P2603.

P2603.cob 17: JMN2603I-S EXIT PROGRAM文は，GLOBAL指定の宣言手続き中に指定できません．