1 /* BEGIN INCLUDE FILE  -  mrds_dsm_scan_info.incl.pl1 */
 2 
 3 /* This structure is used to communicate with mrds_dsm_scanner, and to
 4 maintain information across calls.
 5 
 6 Written  12/19/79  by  Lindsey L. Spratt
 7 */
 8 
 9      dcl     mrds_dsm_scanner_info_ptr
10                                     ptr;
11      dcl     MRDS_DSM_SCANNER_INFO_VERSION_1
12                                     fixed bin (17) internal static options (constant) init (1);
13 
14      dcl     1 mrds_dsm_scanner_info
15                                     based (mrds_dsm_scanner_info_ptr) aligned,
16                2 version            fixed bin (35),
17                2 flags,
18                  3 debug_scanner    bit (1) unal,
19                  3 pad              bit (35) unal,
20                2 work_area_ptr      ptr,
21                2 source_ptr         ptr,
22                2 source_length      fixed bin (35),
23                2 listing_iocb_ptr   ptr,
24                2 error_iocb_ptr     ptr,
25                2 identifier_encoding
26                                     fixed bin (35),
27                2 special_token_list_ptr
28                                     ptr,
29                2 alphanum_token_list_ptr
30                                     ptr,
31                2 token_ptr          ptr,
32                2 token_count        fixed bin (35),
33                2 token_length       fixed bin (35),
34                2 line_ptr           ptr,
35                2 line_length        fixed bin (35),
36                2 pos                fixed bin (35),
37                2 char_ptr           ptr,
38                2 type               fixed bin (35),
39                2 char               char (1),
40                2 highest_severity   fixed bin,
41                2 line_number        fixed bin (35);