例題
[C5565.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID C5565. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 IDENTIFICATION DIVISION. 000007 METHOD-ID. M5565. 000008 DATA DIVISION. 000009 LINKAGE SECTION. 000010 01 LK1 PIC X(6). 000011 01 LK2 PIC X(8). 000012 PROCEDURE DIVISION USING LK1 000013 RETURNING LK2. 000014 END METHOD M5565. 000015 END OBJECT. 000016 END CLASS C5565.
[P5565.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5565. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C5565. 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 SELECT REPFILE ASSIGN TO SYS001. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD REPFILE REPORT IS REP1. 000013 WORKING-STORAGE SECTION. 000014 01 YYMMDD PIC X(6). 000015 01 YYYYMMDD PIC X(8). 000016 01 WOBR OBJECT REFERENCE C5565. 000017 REPORT SECTION. 000018 RD REP1 PAGE 66 000019 FIRST DETAIL 6. 000020 01 PH-ITEM TYPE PH. 000021 02 LINE 2. 000022 03 DATA1 COLUMN 50 PIC X(6) SOURCE YYMMDD. 000023 PROCEDURE DIVISION. 000024 MOVE WOBR :: "M5565"(DATA1) TO YYYYMMDD 000025 END PROGRAM P5565.
[Win32]
P5565.cob 24: JMN5565I-S メソッドの行内呼出しの引数に指定するデータ項目は,ファイル節,作業場所節または連絡節で定義されていなければなりません.
[Winx64]
P5565.cob 24: JMN5565I-S メソッドの行内呼出しの引数に指定するデータ項目は,ファイル節,作業場所節,局所記憶節または連絡節で定義されていなければなりません.