2.8.72 JMN9332I-W

(@1@)入れ子のプログラムは共通範囲外です．処理を続行します．

埋め込みの説明

@1@ : STD

例題

[P9332.cob]
000001 @OPTIONS FLAGSW(STDI)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     P9332.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01 REC01      PIC 9(4).
000008   01 REC02      PIC 9(4).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     CALL "Z9332".
000012     STOP RUN.
000013*
000014 IDENTIFICATION  DIVISION.
000015 PROGRAM-ID.     Z9332.
000016 DATA            DIVISION.
000017 WORKING-STORAGE SECTION.
000018 PROCEDURE       DIVISION.
000019 P-START.
000020 END PROGRAM Z9332.
000021 END PROGRAM P9332.

P9332.cob 15: JMN9332I-W (STD)入れ子のプログラムは共通範囲外です．処理を続行します．

P9332.cob 20: JMN9335I-W (STD)プログラム終わり見出しは共通範囲外です．処理を続行します．

P9332.cob 21: JMN9335I-W (STD)プログラム終わり見出しは共通範囲外です．処理を続行します．