1 /* BEGIN INCLUDE FILE ... _imft_driver_info.incl.pl1 */ 2 3 /* Created: April 1982 by G. Palter */ 4 /* Modified: July 1982 by G. Palter for true AIM support */ 5 /* Modified: February 1983 by Robert Coren to add single_switch and old_version flags */ 6 /* Modified: August 1983 by Robert Coren to add access_floor */ 7 8 /* format: style4 */ 9 10 11 /****^ HISTORY COMMENTS: 12 1) change(87-11-15,Oke), approve(88-08-01,MCR7948), audit(88-10-14,Farley), 13 install(88-10-14,MR12.2-1165): 14 Added variables to support in-dial and out-dial driver configurations. 15 2) change(88-07-12,Beattie), approve(88-08-01,MCR7948), 16 audit(88-10-14,Farley), install(88-10-14,MR12.2-1165): 17 Add imft_version to local and foreign system structures. 18 END HISTORY COMMENTS */ 19 20 21 /* Description of an IMFT driver process */ 22 23 dcl 1 imft_driver_info aligned based (imft_driver_info_ptr), 24 2 function fixed binary, /* type of driver (file transfer) */ 25 2 flags, 26 3 input_driver bit (1) unaligned, /* ON => this driver is receiving input */ 27 3 debug_mode bit (1) unaligned, /* ON => someone is debugging the driver in test mode */ 28 3 automatic_operation bit (1) unaligned, /* ON => running without operator intervention */ 29 3 auto_go bit (1) unaligned, /* ON => start processing output requests immediately */ 30 3 auto_receive bit (1) unaligned, /* ON => start receiving input requests immediately */ 31 3 single_switch bit (1) unaligned, /* ON => same switch for input and output */ 32 3 old_version bit (1) unaligned, /* ON => foreign system uses old (HASP-only) software */ 33 3 copy_data bit (1) unaligned, /* ON => imft_io_ will copy all data records to vfiles */ 34 3 remote_request_allowed bit (1) unaligned, /* ON => foreign system is allowed to request transfers */ 35 3 explicit_access_required bit (1) unaligned, /* ON => remote request requires explicit ACL term for driver */ 36 3 idle_line_drop bit (1) unaligned, /* ON => drop when idle and dialup when something to do */ 37 3 validate_system_id bit (1) unaligned, /* ON => validate foreign system ident/pass in PNT */ 38 3 debug_connect bit (1) unaligned, /* ON => display data during connection phase in master log */ 39 3 dial_service bit (1) unaligned, /* ON => connect only when there are requests to transfer */ 40 3 pad bit (22) unaligned, 41 2 sleep_time fixed bin, /* connect retry wait */ 42 2 idle_delay_count fixed bin, /* number of idles til line drop */ 43 2 idle_delay fixed bin, /* the idle counter */ 44 2 min_time_to_log fixed bin (35), /* transfer must take at least this time to put est time in log */ 45 2 io_info, /* data required to connect to the remote system */ 46 3 input_attach_description character (256) unaligned, 47 3 output_attach_description character (256) unaligned, 48 3 in_dial_qualifier character (256) unaligned, 49 3 out_dial_text character (256) unaligned, 50 3 trigger_text character (256) unaligned, 51 2 local_system, /* our system's description ... */ 52 3 name character (32) unaligned, /* ... system name */ 53 3 password character (8) aligned, /* ... card input password */ 54 3 imft_version character (8), /* ... version of driver software */ 55 3 access_ceiling bit (72), /* ... maximum AIM level permitted for transfer */ 56 3 access_floor bit (72), /* ... minimum AIM level permitted for transfer */ 57 3 aim_attributes_ptr pointer, /* ... -> definition of AIM attributes on system */ 58 2 foreign_system, /* descirption of foreign system (see above) */ 59 3 name character (32) unaligned, 60 3 password character (8) aligned, 61 3 imft_version character (8), 62 3 access_ceiling bit (72), 63 3 access_floor bit (72), 64 3 aim_attributes_ptr pointer; 65 66 dcl imft_driver_info_ptr pointer; 67 68 69 /* Presently available types of IMFT driver (with short descriptions) */ 70 71 dcl FILE_TRANSFER initial (1) /* file transfer driver */ 72 fixed binary static options (constant); 73 74 dcl FUNCTION_NAMES (1) character (32) static options (constant) initial ( 75 "file transfer"); 76 77 /* END INCLUDE FILE ... _imft_driver_info.incl.pl1 */