1 /* START OF:        lib_based_args_.incl.pl1                  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
 4           /*                                                                                        */
 5           /* N^H__^Ha_^Hm_^He:  lib_based_args_.incl.pl1                                                      */
 6           /*                                                                                        */
 7           /*      This include segment defines structures for the arrays of library names and search*/
 8           /* names used by library descriptor commands.  This segment, lib_Svalid_req_.incl.pl1,    */
 9           /* and lib_Scontrol_.incl.pl1 define the complete set of structures required as input     */
10           /* to the lib_descriptor_ subroutine.                                                     */
11           /*                                                                                        */
12           /* S^H__^Ht_^Ha_^Ht_^Hu_^Hs                                                                                   */
13           /*                                                                                        */
14           /* 0) Created on:   March 1, 1975 by  A. J. Scherer                                       */
15           /* 1) Modified on:  April 8, 1975 by  G. C. Dixon                                         */
16           /* 2) Modified on:  May 13, 1976 by  G. C. Dixon                                          */
17           /* 3) Modified on:  November 2, 1983 by Jim Lippard to align structures                   */
18           /*                                                                                        */
19           /*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * */
20 
21 
22      dcl  1 library                     aligned based (Plibrary),
23                                                             /* a structure containing names of libraries to   */
24                                                             /*   be searched.                                 */
25             2 N                         fixed bin,          /*   attribute: number of library names in array. */
26             2 group (0 refer (library.N)),                  /*   attribute: array of library names            */
27               3 V                       char(32) unal,      /*   attribute: a library name (value).           */
28               3 C                       fixed bin(35);      /*   attribute: code from check_star_name_ for    */
29      dcl  Plibrary                      ptr;                /* ptr to:  library structure.                    */
30                                                             /*     this library name.                         */
31 
32      dcl  1 starname                    aligned based (Pstarname),
33                                                             /* a structure containing names of library entries*/
34                                                             /*   being searched for.                          */
35             2 N                         fixed bin,          /*   attribute: number of starnames in array.     */
36             2 group (0 refer (starname.N)),                 /*   attribute: array of starnames                */
37               3 V                       char(32) unal,      /*   attribute: a starname (value).               */
38               3 C                       fixed bin(35);      /*   attribute: code from check_star_name_ for    */
39                                                             /*     this starname.                             */
40      dcl  Pstarname                     ptr;                /* ptr to:  starname structure.                   */
41 
42      dcl  1 exclude                     aligned based (Pexclude),
43                                                             /* a structure containing names of library entries*/
44                                                             /*   being excluded from the search.              */
45             2 N                         fixed bin,          /*   attribute: number of excludes in array.      */
46             2 group (0 refer (exclude.N)),                  /*   attribute: array of excludes                 */
47               3 V                       char(32) unal,      /*   attribute: an exclude (value).               */
48               3 C                       fixed bin(35);      /*   attribute: code from check_star_name_ for    */
49                                                             /*     this exclude.                              */
50      dcl  Pexclude                      ptr;                /* ptr to:  exclude structure.                    */
51 
52 /* END OF:          lib_based_args_.incl.pl1                  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */