例題
[P2836.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2836. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP CHARACTER TYPE PM-1. 000007 02 XITM PIC X(10). 000008 02 NITM PIC N(10). 000009 PROCEDURE DIVISION. 000010 END PROGRAM P2836.
P2836.cob 6: JMN2836I-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