例題
[C2908.cob] 000001 @OPTIONS CONF(74) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C2908. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT AFILE ASSIGN DD1. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD AFILE 000011 RECORD CONTAINS 80. 000012 01 RECA. 000013 02 ED001 PIC X(40). 000014 01 RECB. 000015 02 ED002 PIC X(40). 000016 WORKING-STORAGE SECTION. 000017 END PROGRAM C2908.
C2908.cob 10: JMN2908I-I (CONF)レコード長はRECORD CONTAINS句の整数値とみなします.問題があれば原始プログラムを修正してください.
詳細な説明
翻訳オプションCONFは,'85 ANS COBOLの規格とそれ以前の旧規格の間の非互換を指摘させる(CONF)か,させない(NOCONF)かを指定します.翻訳オプションCONF(68)および翻訳オプションCONF(74)は,翻訳オプションLANGLVL(85)を指定した場合にだけ意味を持ちます.
翻訳オプションCONFは,85規格以前の規格に従って作成したプログラムを,'85 ANS COBOLの規格に従うように変更する場合に有効です.