例題
[P2082.cob] 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のいずれかに対応付けた呼び名でなければなりません.