埋め込みの説明
@1@ : END KEY, MESSAGE CLASS, MESSAGE CODE, MESSAGE OWNER
例題
[P2046.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2046. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT PRFILE1 ASSIGN TO GS-SYS001 000007 SYMBOLIC DESTINATION IS "XXX" 000008 MESSAGE CODE WMCD. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD PRFILE1. 000012 01 PRF1REC. 000013 02 PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 01 WMCD PIC 9(4). 000016 PROCEDURE DIVISION. 000017 END PROGRAM P2046.
P2046.cob 7: JMN2399I-S SYMBOLIC DESTINATION句の文字定数"XXX"は,指定できません.
P2046.cob 11: JMN2046I-W SYMBOLIC DESTINATION句指定なしの表示ファイルにMESSAGE CODE句が指定されています.MESSAGE CODE句は,無効になります.