埋め込みの説明
@1@ : 報告書ファイル名
例題
[C3273.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3273. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 SELECT FILE-2 ASSIGN TO S-SYS002. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD FILE-1 000011 REPORT IS REC-1. 000012 SD FILE-2. 000013 01 REC-2 PIC X(100). 000014 REPORT SECTION. 000015 RD REC-1 000016 PAGE LIMIT IS 66 LINES 000017 HEADING 3 000018 FIRST DETAIL 10 000019 LAST DETAIL 50. 000020 01 LINE NUMBER IS 5 TYPE IS RH. 000021 02 COLUMN NUMBER IS 10 PIC X(14) VALUE "*** HEADER ***". 000022 PROCEDURE DIVISION. 000023 OPEN INPUT FILE-1. 000024 OPEN I-O FILE-1. 000025 READ FILE-1. 000026 SORT FILE-2 ASCENDING KEY REC-2 USING FILE-1 GIVING FILE-1. 000027 STOP RUN.
C3273.cob 23: JMN3273I-S 報告書ファイル'FILE-1'は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.
C3273.cob 24: JMN3273I-S 報告書ファイル'FILE-1'は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.
C3273.cob 25: JMN3273I-S 報告書ファイル'FILE-1'は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.
C3273.cob 26: JMN3273I-S 報告書ファイル'FILE-1'は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.
C3273.cob 26: JMN3273I-S 報告書ファイル'FILE-1'は,OPEN OUTPUT文,OPEN EXTEND文,CLOSE文またはUSE文以外の文に指定できません.