1 /* ****** BEGIN INCLUDE FILE dm_bj_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 bj_sub_error_info    aligned based (bj_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     bj_sub_error_info_ptr  ptr init (null);
17      dcl     BJ_SUB_ERROR_INFO_VERSION_100
18                                     fixed bin (35) init (100) internal static options (constant);
19      dcl     BJ_SUB_ERROR_CONDITION_NAME
20                                     init ("bj_sub_error_") char (32) varying internal static options (constant);
21 
22 /* ******** END INCLUDE FILE dm_bj_sub_error_info.incl.pl1 ******** */