例題
[P2837.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2837. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 TX-12P IS PM1. 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 SELECT SQFILE1 ASSIGN TO SYS001. 000010 SELECT REPFILE ASSIGN TO SYS002. 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD SQFILE1. 000014 01 SQF1REC PIC N(40). 000015 FD REPFILE 000016 REPORT IS REP1. 000017 WORKING-STORAGE SECTION. 000018 01 WFS1 PIC X(2). 000019 REPORT SECTION. 000020 RD REP1 PAGE 66. 000021 01 DE-REC TYPE DE CHARACTER TYPE PM1. 000022 02 LINE PLUS 1. 000023 03 COLUMN 1 PIC N(40) SOURCE SQF1REC. 000024 PROCEDURE DIVISION. 000025 END PROGRAM P2837.
P2837.cob 21: JMN2837I-S CHARACTER TYPE句の呼び名は，報告書作成機能でサポートされてない機能名に対応づけられています．
詳細な説明
CHARACTER TYPE句に指定する呼び名は，環境部の特殊名段落で機能名と対応付けなくてはなりません．
MODE-1，MODE-2またはMODE-3を指定したCHARACTER TYPE句の呼び名は，以下の機能名のいずれかに対応づけます．
HSC，F0202，H0202，F0102，F0201
呼び名だけを指定したCHARACTER TYPE句の場合，その呼び名は，以下の文字列で始まる機能名に対応付けなければなりません．
GTA，GTB，GTC，GTD，GTX，GYA，GYB，GYC，GYD，GYX
TA，TB，TC，TD，TX，YA，YB，YC，YD，YX
