1 /* BEGIN INCLUDE FILE sys_log_constants.incl.pl1 ... 82-09-24 E. N. Kittlitz */
  2 
  3 
  4 /****^  HISTORY COMMENTS:
  5   1) change(87-04-22,GDixon), approve(87-06-10,MCR7708),
  6      audit(87-06-02,Parisek), install(87-08-04,MR12.1-1056):
  7      Added sl_info structure and associated named constants for use in calling
  8      sys_log_$general.
  9                                                    END HISTORY COMMENTS */
 10 
 11 
 12 /* format: style4 */
 13 
 14 dcl  (
 15      SL_TYPE_CRASH init (-3),                               /* type message with banner & kill system */
 16      SL_TYPE_BEEP init (-2),                                /* type message with banner */
 17      SL_TYPE init (-1),                                     /* type message */
 18      SL_LOG_SILENT init (0),                                /* log message */
 19      SL_LOG init (1),                                       /* log & type message */
 20      SL_LOG_BEEP init (2),                                  /* log & type message with banner */
 21      SL_LOG_CRASH init (3)                                  /* log & type message with banner & kill system */
 22      ) fixed bin internal static options (constant);
 23 ^L
 24 dcl  1 sl_info aligned automatic,
 25        2 version char(8),                         /* structure version       */
 26        2 arg_list_ptr ptr,                        /* arg_list with values    */
 27        2 loc,
 28          3 (mode, severity, code, caller, data, class, ioa_msg) fixed bin,
 29            /* These flags control where the corresponding data item is found.*/
 30            /*  -1: data appears in the corresponding structure element below */
 31            /*   0: data is not present anywhere                              */
 32            /*  +N: data is Nth item in argument list pointed to by           */
 33            /*      sl_info.arg_list_ptr.  Upon return, data copied into      */
 34            /*      corresponding structure element.                          */
 35            /*  if data = +N:                                                 */
 36            /*      argN is data_ptr, argN+1 is data_len                      */
 37            /*  if ioa_msg = +N:                                              */
 38            /*      argN+1, ... argLAST are arguments substituted into the    */
 39            /*      ioa_msg control string.  The formatted msg is returned.   */
 40        2 flags,
 41          3 ioa_msg_is_error_code bit(1) unal,     /* ioa_ctl is error code.  */
 42          3 flags_pad bit(35) unal,
 43        2 mode fixed bin,                          /* as-mode, command-mode   */
 44        2 severity fixed bin,                      /* error severity          */
 45        2 code fixed bin(35),                      /* error table code        */
 46        2 caller char(65) varying,                 /* caller refname$entryname*/
 47        2 data,                                    /* binary data ptr/length  */
 48          3 data_ptr ptr,
 49          3 data_lth fixed bin(21),
 50        2 class char(10) varying,                  /* binary data class       */
 51        2 ioa_msg char(500) varying;               /* formatted message text  */
 52 
 53 /* *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 54 /*                                                                           */
 55 /* If data values (eg, sl_info.caller) are passed in the argument list,      */
 56 /* their data types should be as shown in the structure above, except that   */
 57 /* character strings should be char(*) nonvarying.                           */
 58 /*                                                                           */
 59 /* *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 60 
 61 /* value for sl_info.version */
 62 dcl  SL_INFO_version_1 char (8) int static options(constant) init("sl_info1");
 63 
 64 /* values for sl_info.mode */
 65 dcl (SL_INFO_as_mode init(1),
 66      SL_INFO_command_mode init(2)) fixed bin int static options(constant);
 67 
 68 /* values for sl_info.loc.(severity code caller data class ioa_ctl arg) */
 69 dcl (SL_INFO_arg_given_in_structure init(-1),
 70      SL_INFO_arg_not_given init(0)) fixed bin int static options(constant);
 71 ^L
 72 
 73 /* *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 74 /*                                                                           */
 75 /* The following static structures are commonly used in the Login Server     */
 76 /* user control software.                                                    */
 77 /*                                                                           */
 78 /* *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 79 
 80 /* Syntax: call Abort (severity, code, ioa_ctl, args);                       */
 81 
 82 dcl  1 sl_info_sev_code_msg             aligned int static options(constant),
 83        2 version char(8)                init ("sl_info1"),
 84        2 arg_list_ptr ptr               init (null),
 85        2 loc,
 86          3 (mode                        init (-1),
 87             severity                    init ( 1),
 88             code                        init ( 2),
 89             caller                      init (-1),
 90             data                        init ( 0),
 91             class                       init ( 0),
 92             ioa_msg                     init ( 3)) fixed bin,
 93        2 flags,
 94          3 ioa_msg_is_error_code bit(1) unal init ("0"b),
 95          3 flags_pad bit(35) unal       init ("0"b),
 96        2 mode fixed bin                 init ( 1),
 97        2 severity fixed bin             init ( 0),
 98        2 code fixed bin(35)             init ( 0),
 99        2 caller char(65) varying        init (""),
100        2 data,
101          3 data_ptr ptr                 init (null),
102          3 data_lth fixed bin(21)       init ( 0),
103        2 class char(10) varying         init (""),
104        2 ioa_msg char(500) varying      init ("");
105 ^L
106 /* Syntax: call Abort (severity, ioa_ctl, args);                             */
107 
108 dcl  1 sl_info_sev_msg                  aligned int static options(constant),
109        2 version char(8)                init ("sl_info1"),
110        2 arg_list_ptr ptr               init (null),
111        2 loc,
112          3 (mode                        init (-1),
113             severity                    init ( 1),
114             code                        init ( 0),
115             caller                      init (-1),
116             data                        init ( 0),
117             class                       init ( 0),
118             ioa_msg                     init ( 2)) fixed bin,
119        2 flags,
120          3 ioa_msg_is_error_code bit(1) unal init ("0"b),
121          3 flags_pad bit(35) unal       init ("0"b),
122        2 mode fixed bin                 init ( 1),
123        2 severity fixed bin             init ( 0),
124        2 code fixed bin(35)             init ( 0),
125        2 caller char(65) varying        init (""),
126        2 data,
127          3 data_ptr ptr                 init (null),
128          3 data_lth fixed bin(21)       init ( 0),
129        2 class char(10) varying         init (""),
130        2 ioa_msg char(500) varying      init ("");
131 ^L
132 /* Syntax: call Abort (severity, ioa_ctl_as_error_code, args);               */
133 
134 dcl  1 sl_info_sev_coded_msg            aligned int static options(constant),
135        2 version char(8)                init ("sl_info1"),
136        2 arg_list_ptr ptr               init (null),
137        2 loc,
138          3 (mode                        init (-1),
139             severity                    init ( 1),
140             code                        init ( 0),
141             caller                      init (-1),
142             data                        init ( 0),
143             class                       init ( 0),
144             ioa_msg                     init ( 2)) fixed bin,
145        2 flags,
146          3 ioa_msg_is_error_code bit(1) unal init ("1"b),
147          3 flags_pad bit(35) unal       init ("0"b),
148        2 mode fixed bin                 init ( 1),
149        2 severity fixed bin             init ( 0),
150        2 code fixed bin(35)             init ( 0),
151        2 caller char(65) varying        init (""),
152        2 data,
153          3 data_ptr ptr                 init (null),
154          3 data_lth fixed bin(21)       init ( 0),
155        2 class char(10) varying         init (""),
156        2 ioa_msg char(500) varying      init ("");
157 
158 
159 /* Syntax: call Abort (severity, code, error_return_label, ioa_ctl, args);   */
160 
161 dcl  1 sl_info_sev_code_label_msg       aligned int static options(constant),
162        2 version char(8)                init ("sl_info1"),
163        2 arg_list_ptr ptr               init (null),
164        2 loc,
165          3 (mode                        init (-1),
166             severity                    init ( 1),
167             code                        init ( 2),
168             caller                      init (-1),
169             data                        init ( 0),
170             class                       init ( 0),
171             ioa_msg                     init ( 4)) fixed bin,
172        2 flags,
173          3 ioa_msg_is_error_code bit(1) unal init ("0"b),
174          3 flags_pad bit(35) unal       init ("0"b),
175        2 mode fixed bin                 init ( 1),
176        2 severity fixed bin             init ( 0),
177        2 code fixed bin(35)             init ( 0),
178        2 caller char(65) varying        init (""),
179        2 data,
180          3 data_ptr ptr                 init (null),
181          3 data_lth fixed bin(21)       init ( 0),
182        2 class char(10) varying         init (""),
183        2 ioa_msg char(500) varying      init ("");
184 ^L
185 /* Syntax:  call Log_error (code, ioa_ctl, args);                            */
186 
187 dcl  1 sl_info_code_msg                 aligned int static options(constant),
188        2 version char(8)                init ("sl_info1"),
189        2 arg_list_ptr ptr               init (null),
190        2 loc,
191          3 (mode                        init (-1),
192             severity                    init (-1),
193             code                        init ( 1),
194             caller                      init (-1),
195             data                        init ( 0),
196             class                       init ( 0),
197             ioa_msg                     init ( 2)) fixed bin,
198        2 flags,
199          3 ioa_msg_is_error_code bit(1) unal init ("0"b),
200          3 flags_pad bit(35) unal       init ("0"b),
201        2 mode fixed bin                 init ( 1),
202        2 severity fixed bin             init ( 0),
203        2 code fixed bin(35)             init ( 0),
204        2 caller char(65) varying        init (""),
205        2 data,
206          3 data_ptr ptr                 init (null),
207          3 data_lth fixed bin(21)       init ( 0),
208        2 class char(10) varying         init (""),
209        2 ioa_msg char(500) varying      init ("");
210 
211 
212 /* Syntax:  call Trace (ioa_ctl, args);                                      */
213 
214 dcl  1 sl_info_msg                      aligned int static options(constant),
215        2 version char(8)                init ("sl_info1"),
216        2 arg_list_ptr ptr               init (null),
217        2 loc,
218          3 (mode                        init (-1),
219             severity                    init (-1),
220             code                        init ( 0),
221             caller                      init (-1),
222             data                        init ( 0),
223             class                       init ( 0),
224             ioa_msg                     init ( 1)) fixed bin,
225        2 flags,
226          3 ioa_msg_is_error_code bit(1) unal init ("0"b),
227          3 flags_pad bit(35) unal       init ("0"b),
228        2 mode fixed bin                 init ( 1),
229        2 severity fixed bin             init ( 0),
230        2 code fixed bin(35)             init ( 0),
231        2 caller char(65) varying        init (""),
232        2 data,
233          3 data_ptr ptr                 init (null),
234          3 data_lth fixed bin(21)       init ( 0),
235        2 class char(10) varying         init (""),
236        2 ioa_msg char(500) varying      init ("");
237 
238 /* END INCLUDE FILE sys_log_constants.incl.pl1 */