引数の説明
SIA,STD |
EGCS,DBCS,BOOLEN,NATIONAL,NATIONAL-EDIT |
例
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 (11) : JMN9161I-W (STD)INITIALIZE文中のNATIONALは共通範囲外です.処理を続行します.