1 /* BEGIN INCLUDE FILE: tape_status_codes.incl.pl1 */ 2 /* Modified: March 5, 1976 by R.E. Klinger to add new */ 3 /* substatus code, tape_ansi_$invalid_density. */ 4 5 dcl (tape_status_$command_reject, /* MTS010,Command Reject. */ 6 tape_status_$invalid_density, /* MTS015,Command Reject - Invalid Density. */ 7 tape_status_$invalid_opcode, /* MTS020,Command Reject - Invalid Op Code. */ 8 tape_status_$invalid_device_code, /* MTS030,Command Reject - Invalid Device Code. */ 9 tape_status_$invalid_idcw_parity, /* MTS040,Command Reject - Invalid IDCW Parity. */ 10 tape_status_$reject_at_bot, /* MTS050,Command Reject - Positioned at BOT. */ 11 tape_status_$read_after_write, /* MTS060,Command Reject - Forward Read After Write. */ 12 tape_status_$nine_track_error, /* MTS070,Command Reject - 9-Track Error. */ 13 tape_status_$mpc_command_reject, /* MTS080,MPC Command Reject. */ 14 tape_status_$illegal_procedure, /* MTS090,MPC Command Reject - Illegal Procedure. */ 15 tape_status_$illegal_lc_number, /* MTS100,MPC Command Reject - Illegal LC Number. */ 16 tape_status_$illegal_susp_lc_number, /* MTS110,MPC Command Reject - Illegal Suspended LC Number. */ 17 tape_status_$continue_not_set, /* MTS120,MPC Command Reject - Continue Bit Not Set. */ 18 tape_status_$end_of_file, /* MTS130,End of File. */ 19 tape_status_$seven_track_eof, /* MTS140,End of File - End of File Mark (7-Track). */ 20 tape_status_$nine_track_eof, /* MTS150,End of File - End of File Mark (9-track). */ 21 tape_status_$data_alert, /* MTS160,End of File - Data Alert Condition. */ 22 tape_status_$single_char_record, /* MTS170,End of File - Single Character Record. */ 23 tape_status_$device_data_alert, /* MTS180,Device Data Alert. */ 24 tape_status_$transfer_timing, /* MTS190,Device Data Alert - Transfer Timing Alert. */ 25 tape_status_$blank_tape_on_read, /* MTS200,Device Data Alert - Blank Tape on Read. */ 26 tape_status_$bit_during_erase, /* MTS210,Device Data Alert - Bit Detected During Erase Operation. */ 27 tape_status_$transmission_parity, /* MTS220,Device Data Alert - Transmission Parity Alert. */ 28 tape_status_$lateral_parity, /* MTS230,Device Data Alert - Lateral Tape Parity Alert. */ 29 tape_status_$longitudinal_parity, /* MTS240,Device Data Alert - Longitudinal Tape Parity Alert. */ 30 tape_status_$end_of_tape, /* MTS250,Device Data Alert - End of Tape Mark. */ 31 tape_status_$mpc_device_data_alert, /* MTS260,MPC Device Data Alert. */ 32 tape_status_$transmission_alert, /* MTS270,MPC Device Data Alert - Transmission Alert. */ 33 tape_status_$inconsistent_command, /* MTS280,MPC Device Data Alert - Inconsistent Command. */ 34 tape_status_$sum_check_error, /* MTS290,MPC Device Data Alert - Sum Check Error. */ 35 tape_status_$byte_locked_out, /* MTS300,MPC Device Data Alert - Byte Locked Out. */ 36 tape_status_$pe_burst_error, /* MTS310,MPC Device Data Alert - PE-Burst Write Error. */ 37 tape_status_$preamble_error, /* MTS320,MPC Device Data Alert - Preamble Error. */ 38 tape_status_$marginal_condition, /* MTS330,MPC Device Data Alert - Marginal Condition. */ 39 tape_status_$multitrack_error, /* MTS340,MPC Device Data Alert - Multitrack Error. */ 40 tape_status_$skew_error, /* MTS350,MPC Device Data Alert - Skew Error. */ 41 tape_status_$postamble_error, /* MTS360,MPC Device Data Alert - Postamble Error. */ 42 tape_status_$nrzi_ccc_error, /* MTS370,MPC Device Data Alert - NRZI CCC Error. */ 43 tape_status_$code_alert, /* MTS380,MPC Device Data Alert - Code Alert. */ 44 tape_status_$device_attention, /* MTS390,Device Attention. */ 45 tape_status_$write_protect_attention, /* MTS400,Device Attention - Write Protected. */ 46 tape_status_$no_such_device, /* MTS410,Device Attention - No Such Device. */ 47 tape_status_$device_in_standby, /* MTS420,Device Attention - Device in Standby. */ 48 tape_status_$device_check, /* MTS430,Device Attention - Device Check. */ 49 tape_status_$blank_tape_on_write, /* MTS440,Device Attention - Blank Tape on Write. */ 50 tape_status_$mpc_device_attention, /* MTS450,MPC Device Attention. */ 51 tape_status_$configuration_error, /* MTS460,MPC Device Attention - Configuration Switch Error. */ 52 tape_status_$multiple_devices, /* MTS470,MPC Device Attention - Multiple Devices. */ 53 tape_status_$illegal_device_id, /* MTS480,MPC Device Attention - Illegal Device ID Number. */ 54 tape_status_$incompatible_mode, /* MTS490,MPC Device Attention - Incompatible Mode. */ 55 tape_status_$tca_malfunction_port0, /* MTS500,MPC Device Attention - TCA Malfunction Port 0. */ 56 tape_status_$tca_malfunction_port1, /* MTS510,MPC Device Attention - TCA Malfunction Port 1. */ 57 tape_status_$tca_malfunction_port2, /* MTS520,MPC Device Attention - TCA Malfunction Port 2. */ 58 tape_status_$tca_malfunction_port3, /* MTS530,MPC Device Attention - TCA Malfunction Port 3. */ 59 tape_status_$mth_malfunction, /* MTS540,MPC Device Attention - MTH Malfunction. */ 60 tape_status_$multiple_bot, /* MTS550,MPC Device Attention - Multiple BOT. */ 61 tape_status_$device_busy, /* MTS560,Device Busy. */ 62 tape_status_$in_rewind, /* MTS570,Device Busy - In Rewind. */ 63 tape_status_$device_reserved, /* MTS580,Device Busy - Device Reserved. */ 64 tape_status_$alternate_channel, /* MTS590,Device Busy - Alternate Channel in Control. */ 65 tape_status_$device_loading, /* MTS600,Device Busy - Device Loading. */ 66 tape_status_$subsystem_ready, /* MTS610,Peripheral Subsystem Ready. */ 67 tape_status_$device_ready, /* MTS620,Peripheral Subsystem Ready - Device Ready. */ 68 tape_status_$write_protected, /* MTS630,Peripheral Subsystem Ready - Write Protected */ 69 tape_status_$ready_at_bot, /* MTS640,Peripheral Subsystem Ready - Positioned at BOT */ 70 tape_status_$nine_track_handler, /* MTS650,Peripheral Subsystem Ready - 9-Track Handler. */ 71 tape_status_$two_bit_fill, /* MTS660,Peripheral Subsystem Ready - 2-Bit Fill. */ 72 tape_status_$four_bit_fill, /* MTS670,Peripheral Subsystem Ready - 4-Bit Fill. */ 73 tape_status_$six_bit_fill, /* MTS680,Peripheral Subsystem Ready - 6-Bit Fill. */ 74 tape_status_$ascii_alert) /* MTS690,Peripheral Subsystem Ready - ASCII Alert. */ 75 fixed bin (35) external static; 76 77 /* END INCLUDE FILE: tape_status_codes.incl.pl1 */