1 /* Begin include file ... root_card.incl.pl1 ... 4/80 MRJ */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(87-05-07,Fawcett), approve(87-05-07,MCR7676),
 6      audit(87-05-11,Beattie):
 7      Change the drive_num from fixed bin to char (4).
 8                                                    END HISTORY COMMENTS */
 9 
10 dcl  root_card_ptr ptr;                                     /* ptr to ROOT card */
11 
12 dcl 1 root_card based (root_card_ptr) aligned,
13     2 root char (4),                                        /* ROOT */
14     2 volume (6),                                           /* One per RLV vol, RPV is el primo. */
15       3 disk_subsystem char (4),                            /* disk subsystem name */
16       3 drive_num char (4),                                 /* disk drive */
17     2 unused fixed bin,
18     2 field_type (14) fixed bin (2) unsigned unaligned,     /* field types */
19     2 num_fields fixed bin (8) unsigned unaligned;          /* number of fields present excluding ROOT */
20 
21 /* End include file ... root_card.incl.pl1 */