引数の説明
一意名 |
例
000001 PROGRAM-ID. C3499S.
000002 DATA DIVISION.
000003 LINKAGE SECTION.
000004 01 L1 PIC S9(9) COMP-5.
000005 PROCEDURE DIVISION USING L1.
000006 END PROGRAM C3499S.
000001 PROGRAM-ID. C3499.
000002 DATA DIVISION.
000003 WORKING-STORAGE SECTION.
000004 01 S9COMP5 PIC S9(9) COMP-5.
000005 PROCEDURE DIVISION.
000006 CALL "C3499S" USING BY VALUE S9COMP5 *> JMN3499I-S
000007 END PROGRAM C3499.
000008*
C3499.cob (6) : JMN3499I-S BY REFERENCE指定の仮パラメタに対応するUSINGパラメタ'S9COMP5'は,BY REFERENCE指定またはBY CONTENT指定でなければなりません.