2.8.40 JMN9118I-W

(@1@)USE文の@2@指定は共通範囲外です．処理を続行します．

埋め込みの説明

@1@ : SIA，STD
@2@ : GLOBAL

例題

[C9118.cob]
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.    C9118.
000004 ENVIRONMENT    DIVISION.
000005 INPUT-OUTPUT    SECTION.
000006 FILE-CONTROL.
000007     SELECT SEQFIL ASSIGN TO SYS006
000008       ORGANIZATION IS SEQUENTIAL.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD SEQFIL.
000012 01 SEQREC      PIC X(80).
000013 PROCEDURE      DIVISION.
000014 DECLARATIVES.
000015 FILERR SECTION. USE GLOBAL AFTER STANDARD ERROR PROCEDURE INPUT
000016     GO ERR-EXIT.
000017 END DECLARATIVES.
000018     OPEN INPUT SEQFIL.
000019     READ SEQFIL.
000020     CLOSE SEQFIL.
000021 ERR-EXIT.

C9118.cob 15: JMN9118I-W (STD)USE文のGLOBAL指定は共通範囲外です．処理を続行します．