2.8.56 JMN9161I-W

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

埋め込みの説明

@1@ : SIA，STD
@2@ : EGCS，DBCS，BOOLEN，NATIONAL，NATIONAL-EDIT

例題

[C9161.cob]
000001 @OPTIONS FLAGSW(STDH)
000002 IDENTIFICATION  DIVISION.
000003 PROGRAM-ID.     C9161.
000004 ENVIRONMENT     DIVISION.
000005 DATA            DIVISION.
000006 WORKING-STORAGE SECTION.
000007   01  REC01     PIC N(4).
000008   01  REC02     PIC N(4).
000009 PROCEDURE       DIVISION.
000010 P-START.
000011     INITIALIZE REC01 REPLACING
000012                NATIONAL DATA BY REC02.
000013     STOP RUN.

C9161.cob 7 : JMN9115I-W (STD)PICTURE句の文字Nは共通範囲外です．処理を続行します．

C9161.cob 8 : JMN9115I-W (STD)PICTURE句の文字Nは共通範囲外です．処理を続行します．

C9161.cob 11 : JMN9161I-W (STD)INITIALIZE文中のNATIONALは共通範囲外です．処理を続行します．