1 /* START OF: lib_Svalid_req_.incl.pl1 * * * * * * * * * * * * * * * * */ 2 3 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 4 /* */ 5 /* N^H__^Ha_^Hm_^He: lib_Svalid_req_.incl.pl1 */ 6 /* */ 7 /* This include segment defines the switches which request/validate the fields */ 8 /* in a status node produced by lib_get_tree_. This segment, lib_Scontrol_.incl.pl1, */ 9 /* and lib_args_.incl.pl1 define the complete set of structures required as input to */ 10 /* the lib_descriptor_ subroutine. This subroutine is called by all of the library */ 11 /* descriptor commands to obtain information about entries in a library. */ 12 /* */ 13 /* If a switch is on, then the corresponding information in the node is valid, or */ 14 /* is requested for output. */ 15 /* */ 16 /* S^H__^Ht_^Ha_^Ht_^Hu_^Hs */ 17 /* */ 18 /* 0) Created on: April 8, 1975 by G. C. Dixon */ 19 /* */ 20 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 21 22 23 dcl 1 Svalid_req aligned based, 24 2 primary_name bit(1) unal, /* switch: output includes primary name */ 25 2 matching_names bit(1) unal, /* switch: output includes matching names */ 26 2 names bit(1) unal, /* switch: output includes all names */ 27 28 2 pathname bit(1) unal, /* switch: output include pathname of node target */ 29 2 kids bit(1) unal, /* switch: children nodes (inferior) exist */ 30 2 kids_error bit(1) unal, /* switch: error occurred obtaining kid's info */ 31 32 2 type bit(1) unal, /* switch: type */ 33 2 mode bit(1) unal, /* switch: user's access mode to node target */ 34 2 safety bit(1) unal, /* switch: safety switch setting */ 35 36 2 aim bit(1) unal, /* switch: Access Isolation Mechanism switches */ 37 2 copy bit(1) unal, /* switch: copy-on-write switch setting */ 38 2 unique_id bit(1) unal, /* switch: unique identifier */ 39 40 2 author bit(1) unal, /* switch: author of node target */ 41 2 dtem bit(1) unal, /* switch: date attributes modified */ 42 2 dtd bit(1) unal, /* switch: date dumped */ 43 44 2 link_target bit(1) unal, /* switch: target pathname of link node */ 45 2 dtm bit(1) unal, /* switch: date modified */ 46 2 dtu bit(1) unal, /* switch: date used */ 47 48 2 rb bit(1) unal, /* switch: ring brackets */ 49 2 access_class bit(1) unal, /* switch: AIM access class */ 50 2 records_used bit(1) unal, /* switch: records used */ 51 52 2 current_length bit(1) unal, /* switch: current length */ 53 2 max_length bit(1) unal, /* switch: maximum length */ 54 2 msf_indicator bit(1) unal, /* switch: count of MSF components. */ 55 56 2 bit_count bit(1) unal, /* switch: bit count */ 57 2 bit_count_author bit(1) unal, /* switch: bit count author. */ 58 2 offset bit(1) unal, /* switch: offset from segment base */ 59 60 2 entry_bound bit(1) unal, /* switch: call limit for gate node */ 61 2 lvid bit(1) unal, /* switch: logical volume id */ 62 2 pvid bit(1) unal, /* switch: physical volume id */ 63 64 2 quota bit(1) unal, /* switch: directory quota information */ 65 2 acl bit(1) unal, /* switch: ACL */ 66 2 iacl bit(1) unal, /* switch: initial ACLs */ 67 68 2 dtc bit(1) unal, /* switch: date-time compiled */ 69 2 compiler_name bit(1) unal, /* switch: name of compiler */ 70 2 compiler_version bit(1) unal, /* switch: compiler version number */ 71 72 2 compiler_options bit(1) unal, /* switch: compiler options info */ 73 2 object_info bit(1) unal, /* switch: other object segment info */ 74 2 not_ascii bit(1) unal, /* switch: contents is not printable */ 75 76 2 user bit(1) unal, /* switch: user-defined node information */ 77 2 root_search_proc bit(1) unal, /* switch: root search procedure info. */ 78 2 prev_mode bit(1) unal, /* switch: user's previous acces mode set. */ 79 2 pad bit(26) unal, 80 81 2 delete bit(1) unal, /* switch: on (for lcln) if node to be deleted. */ 82 83 2 cross_ref bit(1) unal, /* switch: cross-reference all names */ 84 2 level bit(1) unal, /* switch: output status tree level number */ 85 2 new_line bit(1) unal; /* switch: output begins with newline char */ 86 87 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 88 /* */ 89 /* The following declarations define a series of bit strings to be overlaid by */ 90 /* structures which are exactly like Svalid_req above, except for their level 1 name. */ 91 /* These structures are used throughout the library descriptor commands and subroutines. */ 92 /* */ 93 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 94 95 96 dcl 1 S aligned based (addr(Srequirements)) like Svalid_req, 97 Srequirements bit(72) aligned; 98 99 /* END OF: lib_Svalid_req_.incl.pl1 * * * * * * * * * * * * * * * * */