1 /* BEGIN INCLUDE FILE mtape_open_close_info.incl.pl1. Created by J. A. Bush 06/13/83 */ 2 /* format: style4 */ 3 4 dcl moip ptr; /* Pointer to mtape_open_info structure */ 5 dcl mcip ptr; /* Pointer to mtape_close_info structure */ 6 7 dcl mtape_open_info_version_1 char (8) int static options (constant) init ("moiv0001"); 8 dcl mtape_close_info_version_1 char (8) int static options (constant) init ("mciv0001"); 9 10 dcl 1 mtape_open_info aligned based (moip), 11 2 version char (8), /* Current structure version */ 12 2 cs_ptr ptr, /* Pointer to arg processing control structure */ 13 2 cal_ptr ptr, /* Pointer to arg processing ctl arg list */ 14 2 so_ptr ptr, /* Pointer to last saved iox_ options */ 15 2 open_mode fixed bin, /* iox_ opening mode */ 16 2 comment char (80), /* Display on user_output after open */ 17 2 expiration char (24), /* File expiration date */ 18 2 file_format char (3), /* File format code */ 19 2 recording_mode char (6), /* Ascii, ebcdic, or binary */ 20 2 file_name char (32), /* Name of file to be recorded */ 21 2 replace_id char (32), /* Name of file to replace */ 22 2 init_to_zero, /* Enables clearing rest of structure */ 23 3 block_length fixed bin (35), /* Block size in bytes */ 24 3 record_length fixed bin (35), /* Record length specified by user */ 25 3 default_span_rlen fixed bin (35), /* Default record length for spanned records */ 26 3 default_var_rlen fixed bin (35), /* Default record length for variable records */ 27 3 default_fix_rlen fixed bin (35), /* Default record length for fixed records */ 28 3 seq_number fixed bin (35), /* File sequence number */ 29 3 append bit (1), /* "1"b => append file to end of file set */ 30 3 create bit (1), /* "1"b => create this file */ 31 3 display bit (1), /* "1"b => display the open description */ 32 3 extend bit (1), /* "1"b => extend the current file */ 33 3 force bit (1), /* "1"b => disregard file expiration when creating */ 34 3 last_file bit (1), /* "1"b => position to last file of file set */ 35 3 next_file bit (1), /* "1"b => position to next file of file set */ 36 3 modify bit (1), /* "1"b => modify the current file */ 37 3 label_entry_present bit (1), /* "1"b => user label entry is valid */ 38 3 user_label entry (ptr, char (*), fixed bin, fixed bin, fixed bin, fixed bin (35)), 39 3 pfm_args like pfm_arg_values; /* see structure below */ 40 41 dcl 1 mtape_close_info aligned based (mcip), 42 2 version char (8), /* Current structure version */ 43 2 cs_ptr ptr, /* Pointer to arg processing control structure */ 44 2 cal_ptr ptr, /* Pointer to arg processing ctl arg list */ 45 2 so_ptr ptr, /* Pointer to last saved iox_ options */ 46 2 comment char (80), /* Display on user_output after open */ 47 2 init_to_zero, /* Enables clearing rest of structure */ 48 3 display bit (1), /* Display open description for user */ 49 3 position fixed bin, /* For positioning on file closing: 50 0 = Leave at current position; 51 1 = Position to beginning of file; 52 2 = Position to end of file; 53 3 = Position to beginning of file section; 54 4 = Position to end of file section */ 55 3 pfm_args like pfm_arg_values; /* see structure below */ 56 57 dcl 1 pfm_arg_values aligned based, /* Common to open and close_info */ 58 2 pfm_opt_sw (5) bit (1), /* PFM dependent */ 59 2 pfm_opt_value (5) fixed bin (35), /* PFM dependent */ 60 2 pfm_opt_str (5) char (32); /* PFM dependent */ 61 62 /* END INCLUDE FILE mtape_open_close_info.incl.pl1 */