1 /* BEGIN INCLUDE FILE: tape_attach_options.incl.pl1 */ 2 3 /* format: style4,delnl,insnl,indattr,ifthen,dclind9 */ 4 dcl taoP ptr; /* pointer on which tao structure is based */ 5 6 dcl 1 tao based (taoP), 7 2 noptions fixed bin, /* number of elements in options array */ 8 2 ntracks fixed bin, /* number of tracks: 7 or 9 */ 9 2 density fixed bin, /* recording density */ 10 /* 0 - 200 bpi */ 11 /* 1 - 556 bpi */ 12 /* 2 - 800 bpi */ 13 /* 3 - 1600 bpi */ 14 2 speed bit (36), /* "100"->75ips, "010"->125ips, "001"->200ips */ 15 2 write_ring bit (1), /* write permit ring status */ 16 /* "0"b - no write ring */ 17 /* "1"b - write ring */ 18 2 clear_cseg bit (1), /* "0" - don't delete cseg if one exists */ 19 /* "1" - delete current cseg and create new one */ 20 2 retain fixed bin, /* detach retention */ 21 /* 0 - rcp_ default */ 22 /* 1 - retain none (neither devices or volumes */ 23 /* 2 - retain device(s) */ 24 /* 3 - retain volume(s) */ 25 /* 4 - retain all (both device(s) and volume(s)) */ 26 2 output_mode fixed bin, /* 0 - none specified */ 27 /* 1 - extend */ 28 /* 2 - modify */ 29 /* 3 - generate */ 30 /* 4 - create */ 31 2 force bit (1), /* force file overwrite */ 32 2 user_labels bit (1), /* process user labels switch */ 33 2 replace_id char (17), /* replace file identifier */ 34 2 file_id char (17), /* file identifier */ 35 2 sequence fixed bin, /* file sequence number */ 36 2 expiration char (5), /* expiration date in Julian form */ 37 2 format char (4) varying, /* record format */ 38 2 DOS bit (1), /* "0"b - OS/VS :: "1"b - DOS/VM */ 39 2 no_labels bit (1), /* "0"b - IBM Standard Labels :: "1"b - IBM no labels */ 40 2 blklen fixed bin, /* physical block length */ 41 2 reclen fixed bin (21), /* logical record length */ 42 2 mode fixed bin, /* recording mode */ 43 /* 1 - 9 mode, ASCII */ 44 /* 2 - 9 mode, EBCDIC */ 45 /* 3 - binary */ 46 2 ndrives fixed bin, /* number of drives to be used */ 47 2 nvolumes fixed bin, /* number of specified volumes */ 48 2 volname (tao_max_volnames) char (32), 49 /* volume names */ 50 2 comment (tao_max_volnames) char (64) varying; 51 /* mount comments */ 52 53 dcl tao_max_volnames fixed bin int static options (constant) init (63); 54 55 /* END INCLUDE FILE: tape_attach_options.incl.pl1 */