引数の説明
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文を無効とします.