例題
[P2190.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2190. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE1 ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE1 000010 REPORT R1. 000011 WORKING-STORAGE SECTION. 000012 01 DATAN PIC X(80). 000013 78 PIC1 VALUE 80. 000014 REPORT SECTION. 000015 RD R1 CONTROL FINAL 000016 PAGE LIMITS ARE 66 LINES. 000017 01 DE1 TYPE IS DETAIL. 000018 02 LINE NUMBER PLUS 3. 000019 03 DATA1 COLUMN 10 PIC X(PIC1) 000020 VALUE "DETAIL REPORT GROUP-1". 000021 PROCEDURE DIVISION. 000022 END PROGRAM P2190.
[Solaris][Solaris64][Linux][LinuxIPF]
P2190.cob 19: JMN2190I-S 名前付き定数は,データ部のファイル節,作業場所節,連絡節,定数節,基底場所節,画面節および手続き部だけで参照できます.
[Linux64]
P2190.cob 19: JMN2190I-S 名前付き定数は,データ部のファイル節,作業場所節,局所記憶節,連絡節,定数節,基底場所節,画面節および手続き部だけで参照できます.
詳細な説明
見出し部,環境部およびデータ部の報告書節では名前付き定数数は参照できません.