1 /* BEGIN INCLUDE FILE: list_tape_options.incl.pl1 */ 2 3 dcl ltoP ptr; /* pointer on which lto structure is based */ 4 5 dcl 1 lto aligned based (ltoP), 6 2 print_mode fixed bin, /* 1 - long info; 2 - brief info; 3 - default info */ 7 /* 4 - unlabeled tape; 5 - dos tape */ 8 2 vol_init bit (1), 9 2 DOS bit (1) unaligned, /* "0"b - OS/VS :: "1"b - DOS/VM */ 10 2 no_labels bit (1) unaligned, 11 2 labeled bit (1) unaligned, 12 2 pad bit (32), 13 2 list_limit fixed bin (24), /* list list_limit number */ 14 2 standard fixed bin, /* recording standard */ 15 /* 1 - ANSI */ 16 /* 2 ibm - os */ 17 /* 3 - dos */ 18 2 volid char (6); /* volume-set name */ 19 20 /* END INCLUDE FILE: tape_list_options.incl.pl1 */