引数の説明
メソッド名 |
例
000001 CLASS-ID. C3421-C.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005 OBJECT.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 PROCEDURE DIVISION.
000009*
000010 METHOD-ID. C3421-M.
000011 DATA DIVISION.
000012 WORKING-STORAGE SECTION.
000013 LINKAGE SECTION.
000014 PROCEDURE DIVISION.
000015 END METHOD C3421-M.
000016*
000017 METHOD-ID. C3421-M2.
000018 DATA DIVISION.
000019 WORKING-STORAGE SECTION.
000020 01 WORK1 PIC X(50).
000021 LINKAGE SECTION.
000022 PROCEDURE DIVISION.
000023 MOVE SELF::"C3421-M" TO WORK1.
000024 END METHOD C3421-M2.
000025*
000026 END OBJECT.
000027 END CLASS C3421-C.
C3421-C.cob (23) : JMN3421I-S 行内呼出しのメソッド'C3421-M'にRETURNING指定がありません.行内呼出しの結果を表意定数ゼロとみなします.