引数の説明
SIA |
例
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. P9171.
000004 ENVIRONMENT DIVISION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 REC01 PIC 9,999.
000008 01 REC02 PIC 9(4).
000009 PROCEDURE DIVISION.
000010 P-START.
000011 MOVE REC01 TO REC02.
000012 STOP RUN.
P9171.cob (11) : JMN9171I-W (STD)MOVE文中の数字編集項目の逆編集は共通範囲外です.処理を続行します.