1 /* ****** BEGIN INCLUDE FILE dm_fm_sub_error_info.incl.pl1 ******** */
 2 
 3 /* format: style2 */
 4 
 5 /* HISTORY:
 6 Written by Matthew Pierret, 07/02/83.
 7 Modified:
 8 */
 9 
10      dcl     1 fm_sub_error_info    aligned based (fm_sub_error_info_ptr),
11                2 header             like condition_info_header,
12                2 module_name        char (32) varying,
13                2 message_ptr        ptr,                    /* Only used if header.info_string is too small */
14                2 message_length     fixed bin (24);
15 
16      dcl     fm_sub_error_info_ptr  ptr init (null);
17      dcl     FM_SUB_ERROR_INFO_VERSION_200
18                                     fixed bin (35) init (200) internal static options (constant);
19      dcl     FM_SUB_ERROR_CONDITION_NAME
20                                     init ("fm_sub_error_") char (32) varying internal static options (constant);
21 
22 /* ******** END INCLUDE FILE dm_fm_sub_error_info.incl.pl1 ******** */