引数の説明
INVOKEまたはCALL. |
BY. |
例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5749. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005* 000006 IDENTIFICATION DIVISION. 000007 STATIC. 000008 PROCEDURE DIVISION. 000009 METHOD-ID. MAIN. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 WOBR OBJECT REFERENCE C5749. 000013 01 P1 PIC S9(9) COMP-5. 000014 01 P2 PIC X. 000015 LINKAGE SECTION. 000016 PROCEDURE DIVISION. 000017 INVOKE WOBR "M5749" USING BY P1. 000018 END METHOD MAIN. 000019 END STATIC. 000020* 000021 IDENTIFICATION DIVISION. 000022 OBJECT. 000023 PROCEDURE DIVISION. 000024 METHOD-ID. M5749. 000025 DATA DIVISION. 000026 LINKAGE SECTION. 000027 01 LK1 PIC S9(9) COMP-5. 000028 PROCEDURE DIVISION USING LK1. 000029 DISPLAY "HELLO!". 000030 END METHOD M5749. 000031 END OBJECT. 000032 END CLASS C5749.
C5749.cob (17) : JMN5749I-S INVOKE文に補助語であるBYだけが,指定されています.INVOKE文を無効とします.