1 /* Begin include file ... part_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  part_card_ptr ptr;                                     /* ptr to a PART card */
11 
12 dcl 1 part_card based (part_card_ptr) aligned,
13     2 part char (4),                                        /* PART */
14     2 part_name char (4),                                   /* partition name */
15     2 disk_subsystem char (4),                              /* disk subsystem name */
16     2 drive_num char (4),                                   /* drive number */
17     2 frec fixed bin,                                       /* first rec */
18     2 nrec fixed bin;                                       /* number of recs */
19 
20 /* End include file ... part_card.incl.pl1 */