例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2082.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 H0202 IS PH1
000007 F0102 IS PH2.
000008 DATA DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 GRP.
000011 02 A1 PIC X(5).
000012 02 N1 PIC N(5)
000013 CHARACTER TYPE MODE-3 BY PH1.
000014 02 A2 PIC X(5).
000015 02 A2 PIC N(5)
000016 CHARACTER TYPE MODE-3 BY PH2.
000017 PROCEDURE DIVISION.
000018 END PROGRAM P2082.
P2082.cob (13) : JMN2082I-S MODE-3を指定したCHARACTER TYPE句の呼び名は,F0202,F0102またはF0201に対応していなければなりません.
詳細な説明
MODE-3を指定したCHARACTER TYPE句の呼び名は,環境部の特殊名段落で機能名F0202,F0102またはF0201のいずれかに対応付けた呼び名でなければなりません.