埋め込みの説明
@1@ : ADD,DIVIDE,MULTIPLY,SUBTRACT,COMPUTE,DELETE,END-ADD,END-DIVIDE,END-MULTIPLY,END-SUBTRACT,END-COMPUTE,END-DELETE,END-STRING,END-UNSTRING,END-INVOKE,END-CALL,END-READ,END-START,END-REWRITEまたはEND-WRITE.
@2@ : ADD,DIVIDE,MULTIPLY,SUBTRACT,COMPUTE,DELETE,STRING,UNSTRING,INVOKE,CALL,READ,START,REWRITEまたはWRITE.
例題
[P2650.cob] 000001 @OPTIONS CONF(74) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P2650. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 WNUM1 PIC S9(4) BINARY. 000008 01 WNUM2 PIC S9(4) BINARY. 000009 01 WNUM3 PIC S9(4) BINARY. 000010 PROCEDURE DIVISION. 000011 COMPUTE WNUM1 = WNUM2 + WNUM3 000012 END-COMPUTE 000013 END PROGRAM P2650.
P2650.cob 12: JMN2650I-I (CONF)明示範囲符のEND-COMPUTEは直前のCOMPUTE文に対応づけられます.
詳細な説明
翻訳オプションCONFは,'85 ANS COBOLの規格とそれ以前の旧規格の間の非互換を指摘させる(CONF)か,させない(NOCONF)かを指定します.翻訳オプションCONF(68)および翻訳オプションCONF(74)は,翻訳オプションLANGLVL(85)を指定した場合にだけ意味を持ちます.
翻訳オプションCONFは,85規格以前の規格に従って作成したプログラムを,'85 ANS COBOLの規格に従うように変更する場合に有効です.