1 /* BEGIN INCLUDE FILE mrds_parse.incl.pl1 -- oris, 6/28/78 */
 2 
 3 dcl 1 parse based (p_ptr),                                  /* structure for args to be passed to parsing procs.. */
 4     2 start_pos fixed bin,                                  /* pos. where get_token is to start */
 5     2 line_no fixed bin,                                    /* current line number in source */
 6     2 token_len fixed bin,                                  /* length of current token */
 7     2 s_len fixed bin,                                      /* character length of source */
 8     2 lp_ptr ptr,                                           /* iocb_ptr for listing */
 9     2 token_ptr ptr,                                        /* ptr. to token required by mrds_cmdb_get_token */
10     2 s_ptr ptr,                                            /* iocb_ptr for source file */
11     2 end_sw bit (1) unal,                                  /* ON => end of clause has been reached */
12     2 pad bit (35) unal,
13     2 ls_path char (168);                                   /* path of listing */
14 
15 dcl  p_ptr ptr;                                             /* ptr. to parse structure */
16 dcl  token char (parse.token_len) based (parse.token_ptr);  /* current token */
17 dcl  source char (parse.s_len) based (parse.s_ptr);         /* the source segment */
18 dcl  token_array (parse.token_len) char (1) unal based (parse.token_ptr);
19 
20 dcl  DELIMS char (3) int static options (constant) init ("
21           ");
22 dcl  NON_SYN_ERR fixed bin int static options (constant) init (-1);
23 dcl  FATAL fixed bin int static options (constant) init (2);
24 dcl  WARN fixed bin int static options (constant) init (1);
25 dcl  SKIP bit (1) unal int static options (constant) init ("1"b);
26 dcl  NO_SKIP bit (1) unal int static options (constant) init ("0"b);
27 
28 /* END INCLUDE FILE mrds_parse.incl.pl1 */
29