引数の説明
STD |
例
000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P9333. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 REC01. 000008 02 REC02 PIC 9(4). 000009 02 REC03 PIC 9(4). 000010 02 REC04 PIC 9(4). 000011 02 REC05 PIC 9(4). 000012 02 REC06 PIC 9(4). 000013 02 REC07 PIC 9(4). 000014 PROCEDURE DIVISION. 000015 P-START. 000016 CALL "Z9333" USING REC02 000017 REC03 000018 REC04 000019 REC05 000020 REC06 000021 REC07. 000022 STOP RUN.
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. Z9333. 000003 DATA DIVISION. 000004 LINKAGE SECTION. 000005 01 LREC01 PIC 9(4). 000006 01 LREC02 PIC 9(4). 000007 01 LREC03 PIC 9(4). 000008 01 LREC04 PIC 9(4). 000009 01 LREC05 PIC 9(4). 000010 01 LREC06 PIC 9(4). 000011 PROCEDURE DIVISION USING LREC01 000012 LREC02 000013 LREC03 000014 LREC04 000015 LREC05 000016 LREC06. 000017 EXIT PROGRAM.
P9333.cob (16) : JMN9333I-W (STD)CALL文中のUSING句に指定した作用対象の個数は5個以下でなければなりません.処理を続行します.