それぞれのメッセージ・レコードは、コンパイル中に出されたメッセージを記述します。 抑止されたメッセージに対しては、メッセージ・レコードは生成されません。
それぞれのメッセージ・レコードには、以下のものが入っています。
メッセージ・レコードの宣言は、以下のとおりです。
Dcl
1 xin_Msg Based( null() ), /* message record */
/* */
2 xin_Msg_Hdr /* standard header */
like xin_Hdr, /* */
/* */
2 xin_Msg_File_Id /* file id */
fixed bin(31) unsigned, /* */
/* */
2 xin_Msg_Line_No /* line no within file */
fixed bin(31) unsigned, /* */
/* */
2 xin_Msg_Id /* identifier (i.e. IBM1502) */
char(16), /* */
/* */
2 xin_Msg_Severity /* severity (0, 4, 8, 12 or 16) */
fixed bin(15) signed, /* */
/* */
2 xin_Msg_Length /* length of message */
fixed bin(16) unsigned, /* */
/* */
2 Xin_Msg_Text /* actual message */
char( 100 refer(xin_Msg_Length) );