埋め込みの説明
@1@ : 報告書名
例題
[C3270.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3270. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT LP1FILE ASSIGN TO DA-S-SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD LP1FILE LABEL RECORD STANDARD 000010 REPORT IS RE-1. 000011 WORKING-STORAGE SECTION. 000012 01 REP-LINE PIC X(80). 000013 REPORT SECTION. 000014 RD RE-1 000015 CONTROL IS FINAL 000016 PAGE LIMITS 66 LINES 000017 HEADING 3 000018 FIRST DETAIL 10 000019 LAST DETAIL 50. 000020 01 DE-1 TYPE DETAIL LINE PLUS 1. 000021 02 COLUMN 25 PIC X(80) 000022 SOURCE REP-LINE. 000023 01 DE-2 TYPE DETAIL LINE PLUS 1. 000024 02 COLUMN 25 PIC X(80) 000025 VALUE "REPORT-1". 000026 PROCEDURE DIVISION. 000027 P-START. 000028 OPEN OUTPUT LP1FILE. 000029 INITIATE RE-1. 000030 GENERATE RE-1. 000031 TERMINATE RE-1. 000032 CLOSE LP1FILE. 000033 STOP RUN.
C3270.cob 30: JMN3270I-S GENERATE文に報告書名'RE-1'を指定するときは,その報告書記述項に明細報告集団を複数指定できません.