1 /* BEGIN OF: help_cis_args_.incl.pl1 * * * * * * * * * * * * * * * * * * * */ 2 3 /****^ HISTORY COMMENTS: 4 1) change(1986-03-07,LJAdams), approve(1986-03-07,MCR7327), 5 audit(1986-03-10,Lippard), install(1986-04-24,MR12.0-1048): 6 Changed segment type from bit(2) to fixed bin(2) uns. 7 2) change(1986-05-12,LJAdams), approve(1986-05-14,MCR7416), 8 audit(1986-05-19,Gilcrease), install(1986-06-12,MR12.0-1074): 9 Added E as an unique identifier for entry_point name to be used during 10 sorting. 11 3) change(1987-02-18,LJAdams), approve(1987-09-03,MCR7766), 12 audit(1988-05-03,GDixon), install(1988-09-13,MR12.2-1109): 13 Added X as a sort identifier to be used when sorting via sort_items_$char 14 as the original order of the records is not maintained when sorting equal 15 items. 16 4) change(1988-03-14,LJAdams), approve(1988-06-01,MCR7873), 17 audit(1988-05-03,GDixon), install(1988-09-13,MR12.2-1109): 18 Changed order of fields being sorted and added a pad field to maintain 19 alignment. 20 5) change(2020-10-11,GDixon), approve(2021-02-23,MCR10089), 21 audit(2021-03-31,Swenson), install(2021-03-31,MR12.6g-0053): 22 Minor change to declaration of Dinfo_seg structure. Location of Dinfo_seg.dir 23 element within the structure changed to facilitate revised searching by help_. 24 PDinfo_seg.version was changed from VPDinfo_seg_2 to VPDinfo_seg_3. 25 END HISTORY COMMENTS */ 26 27 28 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 29 /* */ 30 /* Name: help_cis_args_.incl.pl1 */ 31 /* */ 32 /* This include file declares the structures returned by help_$check_info_segs for use */ 33 /* in the check_info_segs command. The structures contain information about the */ 34 /* segments which check_info_segs will process. The structures are allocated in the temp */ 35 /* segment obtained in the call to help_$init. They SHOULD NOT BE FREED. Instead, the */ 36 /* help_$term entry should be called to release the entire temporary segment. */ 37 /* */ 38 /* Status */ 39 /* */ 40 /* 0) Created: October, 1978 by Gary Dixon */ 41 /* */ 42 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 43 44 dcl 1 Dinfo_seg aligned based, /* Information about one info segment. */ 45 /* NOTE: code depends upon Scross_ref and ent */ 46 /* staying 1st & 2nd elements of item substruc. */ 47 3 Scross_ref bit(36) aligned, /* bit 1 on if same info appears in diff. dirs. */ 48 3 ent char(32) unal, /* ent part of info block pathname. */ 49 3 info_name char(32) unal, /* info_name used to find info, if different */ 50 /* from ent (without suffix). */ 51 3 dir char(168) unal, /* dir part of info block pathname. */ 52 3 ep char(32) var, /* subr entrypoint name requested in pathname. */ 53 3 uid bit(36), /* unique ID of containing segment. */ 54 3 I fixed bin(35), 55 /* index of 1st character of the info. */ 56 3 E char(32), /* ep name to be used for sorting */ 57 3 X fixed bin(35), 58 /* index of original record order */ 59 3 pad2 fixed bin(35), 60 3 L fixed bin, /* length, in chars. */ 61 3 date fixed bin(71), /* date_time_entry_modified of info segment. */ 62 (3 segment_type fixed bin(2) uns, /* 00 - link, 01 - segment */ 63 3 mode bit(3), /* access mode. */ 64 3 pad1 bit(31) 65 ) unaligned, 66 3 code fixed bin(35), /* error code encounter in processing seg. */ 67 1 PDinfo_seg aligned based(PPDinfo_seg), 68 2 version fixed bin, /* Version of this return structure (= 3). */ 69 2 N fixed bin(24), /* Count of info segments data returned for. */ 70 2 P (0 refer (PDinfo_seg.N)) /* Pointers to Dinfo_seg structure for each info. */ 71 ptr unal, 72 PPDinfo_seg ptr, 73 VPDinfo_seg_2 fixed bin int static options(constant) init(2), 74 VPDinfo_seg_3 fixed bin int static options(constant) init(3); 75 76 dcl help_$check_info_segs entry (char(*), ptr, char(*), fixed bin, fixed bin(35), ptr); 77 78 /* END OF: help_cis_args_.incl.pl1 * * * * * * * * * * * * * * * * * * * */