1 /* START OF: lib_args_.incl.pl1 * * * * * * * * * * * * * * * * */ 2 3 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 4 /* */ 5 /* N^H__^Ha_^Hm_^He: lib_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: January 17, 1984 by Jim Lippard to make structures aligned. */ 18 /* */ 19 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 20 21 22 dcl 1 LIBRARY aligned, /* a structure containing names of libraries to */ 23 /* be searched. */ 24 2 N fixed bin, /* attribute: number of library names in array. */ 25 2 group (100), /* attribute: array of library names */ 26 3 V char(32) unal, /* attribute: a library name (value). */ 27 3 C fixed bin(35); /* attribute: code from check_star_name_ for */ 28 /* this library name. */ 29 30 dcl 1 STARNAME aligned, /* a structure containing names of library entries*/ 31 /* being searched for. */ 32 2 N fixed bin, /* attribute: number of starnames in array. */ 33 2 group (1000), /* attribute: array of starnames */ 34 3 V char(32) unal, /* attribute: a starname (value). */ 35 3 C fixed bin(35); /* attribute: code from check_star_name_ for */ 36 /* this starname. */ 37 38 dcl 1 EXCLUDE aligned like STARNAME; 39 /* structure containing names of library entries */ 40 /* to be excluded from a search. */ 41 42 /* END OF: lib_args_.incl.pl1 * * * * * * * * * * * * * * * * */