1 /* START OF         lib_arg_struc_.incl.pl1                   *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 4           /*                                                                                        */
 5           /* NAME:  lib_arg_struc_.incl.pl1                                                         */
 6           /*                                                                                        */
 7           /*      This include segment defines structures used by the library maintenance tools     */
 8           /* to process their input arguments.  These structures are the arguments to the           */
 9           /* lib_args_ subroutine.                                                                  */
10           /*                                                                                        */
11           /* STATUS                                                                                 */
12           /*                                                                                        */
13           /* 0) Created on:   May 25, 1976 by   Gary C. Dixon                                       */
14           /* 1) Modified:     October 24, 1983 by Jim Lippard to add page_length                    */
15           /*                                                                                        */
16           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
17 
18 
19 %include lib_args_;
20 
21      dcl  Parg_struc                    ptr;                /* ptr to the structure described below.          */
22 
23      dcl  1 arg_struc                   structure based (Parg_struc),
24             2 version                   fixed bin,          /* version number (currently 1).                  */
25             2 program                   char(32) varying,   /* name of calling program.                       */
26             2 Parg_list                 ptr,                /* ptr to calling program's argument list.        */
27             2 Iarg_list                 fixed bin,          /* first arg of calling program's argument list   */
28                                                             /*   to be processed.                             */
29             2 Larg_list                 fixed bin,          /* total number of arguments in calling pgm's list*/
30             2 put_error                 entry options(variable),
31                                                             /* program to call to output an error.            */
32             2 Srequirements_allowed     bit(72) aligned,    /* bits on if control argument associated with    */
33                                                             /*   that bit is acceptable to the program.       */
34             2 Scontrol_allowed          bit(36) aligned,    /* bits on if control operation associated with   */
35                                                             /*   that bit is acceptable to the program.       */
36             2 Srequirements_initial     bit(72) aligned,    /* bits on indicating initial settings for        */
37                                                             /*   Srequirements.                               */
38             2 Scontrol_initial          bit(36) aligned,    /* bits on indicating initial settings for        */
39                                                             /*   Scontrol.                                    */
40             2 descriptor                char(168) varying,  /* name of library descriptor to be used.         */
41             2 footing                   char(45) varying,   /* footing to be used on output pages.            */
42             2 heading                   char(120) varying,  /* heading to be used on 1st output page.         */
43             2 into_path                 char(168) varying,  /* path into which library entries to be fetched. */
44             2 output_file               char(168) varying,  /* path of output file to be written.             */
45             2 page_length               fixed bin,          /* length of output page                          */
46             2 time                      fixed bin;          /* grace period (in days) for library_cleanup.    */
47      dcl  1 Sreq_allowed                aligned like Svalid_req based (addr(arg_struc.Srequirements_allowed));
48                                                             /* allowed requirements switches.                 */
49      dcl  1 Sreq_init                   aligned like Svalid_req based (addr(arg_struc.Srequirements_initial));
50                                                             /* initial values for requirements switches.      */
51      dcl  1 Sc_allowed                  aligned like Sc based (addr(arg_struc.Scontrol_allowed));
52                                                             /* allowed control switches.                      */
53      dcl  1 Sc_init                     aligned like Sc based (addr(arg_struc.Scontrol_initial));
54                                                             /* initial values for control switches.           */
55      dcl  Varg_struc_1                  fixed bin int static init (1);
56 
57 /* END OF           lib_arg_struc_.incl.pl1                   *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */