例題
[P2438.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2438. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT REPFILE ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD REPFILE 000010 REPORT IS REP1 REP2. 000011 WORKING-STORAGE SECTION. 000012 01 WSO1 PIC X(10). 000013 01 WSO2 PIC X(10). 000014 REPORT SECTION. 000015 RD REP1 PAGE 66 000016 CODE "XX". 000017 01 TYPE DE. 000018 02 LINE 12. 000019 03 COLUMN 10 PIC X(10) SOURCE WSO1. 000020 RD REP2 PAGE 66. 000021 01 TYPE DE. 000022 02 LINE 12. 000023 03 COLUMN 10 PIC X(10) SOURCE WSO1. 000024 PROCEDURE DIVISION. 000025 END PROGRAM P2438.
P2438.cob 20: JMN2438I-S 同一報告書ファイルに，CODE句のある報告書と，CODE句のない報告書が混在することはできません．そのまま処理を続行します．
詳細な説明
CODE句を指定すると，同句で指定した2文字の定数が報告書の各レコードの左端に自動的に付けられます．CODE句の有無は報告書ファイル単位で統一しなければなりません．
