* %GOTO PLSSNS; /* 00000100 MACRO 01000100 TSNSD 02000100 .*A000000-999999 @Y17XAXG 03000100 IEDSNSD DSECT 04000100 * SENSE BYTE DSECT 05000100 SNSSYSTM DS 0XL2 SYSTEM SENSE BYTES 06000100 SNSMAJ DS XL1 MAJOR SENSE BYTE 07000100 SNSPATH EQU X'80' PATH ERROR 08000100 SNSRHUSE EQU X'40' RH USAGE ERROR 09000100 SNSSTERR EQU X'20' STATE ERROR 10000100 SNSRQERR EQU X'10' REQUEST ERROR 11000100 SNSRQREJ EQU X'08' REQUEST REJECT 12000100 SNSMIN DS XL1 MINOR SENSE BYTE 13000100 * REQUEST FOR PATH ERROR BYTES 14000100 SNSLNKF EQU X'02' DATA LINK FAILURE 15000100 SNSLUINP EQU X'03' LU INOPERATIVE @YM08991 15500110 SNSLOSCT EQU X'0D' LOST CONTACT 16000100 * REQUEST ERROR MINOR SENSE BYTES 17000100 SNSRUDAT EQU X'01' RU DATA ERROR 18000100 SNSRULEN EQU X'02' RU LENGTH ERROR 19000100 SNSNFUNC EQU X'03' FUNCTION NOT SUPPORTED 20000100 SNSNCAT EQU X'07' CATEGORY NOT SUPPORTED 21000100 SNSINVHD EQU X'08' INVALID FM HEADER 22000100 * REQUEST REJECT MINOR SENSE BYTES 23000100 SNSRNAV EQU X'01' RESOURCE NOT AVAILABLE 24000100 SNSIVREQ EQU X'02' INTERVENTION REQUIRED 24500100 SNSMPSWD EQU X'03' MISSING PASSWORD 25000100 SNSSLIM EQU X'05' SESSION LIMIT EXCEEDED 26000100 SNSMODIN EQU X'09' MODE INCONSISTENCY 27000100 SNSBRACE EQU X'0B' BRACKET RACE ERROR 28000100 SNSPRCNS EQU X'0C' PROCEDURE NOT SUPPORTED 29000100 SNSCNCL EQU X'11' CANCEL KEY HIT 30000100 SNSNRSCE EQU X'12' INSUFFICIENT RESOURCE 31000100 SNSNACT EQU X'16' FUNCION INATIVE 32000100 SNSNRTR EQU X'19' RTR NOT REQUIRED 33000100 SNSSRFER EQU X'1E' SESSION REFERENCE ERROR 34000100 SNSUNCTL EQU X'23' UNKNOWN CONTROL VECTOR 35000100 SNSINTRQ EQU X'80' INTERVENTION REQUIRED 36000100 SNSRCXMT EQU X'1B' RECEIVER IN TRANSMIT MODE 37000100 SNSNGRB EQU X'13' NEGATIVE RESP TO BID 38000100 SNSRTRY EQU X'27' RETRY REQUESTED 39000100 SNSACTV EQU X'15' FUNCTION ALREADY ACTIVE 40000100 SNSUSER DS 0XL2 USER SENSE BYTES 41000100 SNSUSR1 DS XL1 FIRST USER BYTE 42000100 SNSUSR2 DS XL1 SECOND USER BYTE 43000100 MEND */ 44000100 *%PLSSNS : ; 45000100 *DECLARE 1 IEDSNSD BASED(SNSPTR), /* SENSE BYTE STRUCTURE */ 46000100 * 2 SNSSYSTM CHAR(2), /* SYSTEM SENSE BYTES */ 47000100 * 3 SNSMAJ BIT(8), /* MAJOR SENSE BYTE */ 48000100 * 3 SNSMIN BIT(8), /* MINOR SENSE BYTE */ 49000100 * 2 SNSUSER CHAR(2), /* USER SENSE BYTES */ 50000100 * 3 SNSUSR1 BIT(8), /* FIRST USER BYTE */ 51000100 * 3 SNSUSR2 BIT(8); /* SECOND USER BYTE */ 52000100 */* */ 53000100 */* REQUEST FOR PATH ERROR BYTES */ 54000100 */* */ 55000100 *DCL SNSLNKF BIT(8) CONSTANT('02'X); /* DATA LINK FAILURE */ 56000100 *DCL SNSLUINP BIT(8) CONSTANT('03'X); /* LU INOPERATIVE @YM08991*/ 56500110 *DCL SNSLOSCT BIT(8) CONSTANT('0D'X); /* LOST CONTACT */ 57000100 */* */ 58000100 */* CONSTANTS TO BE USED WITH MAJOR SENSE */ 59000100 */* */ 60000100 *DCL SNSPATH BIT(8) CONSTANT('80'X); /* PATH ERROR */ 61000100 *DCL SNSRHUSE BIT(8) CONSTANT('40'X); /* RH USAGE ERROR */ 62000100 *DCL SNSSTERR BIT(8) CONSTANT('20'X); /* STATE ERROR */ 63000100 *DCL SNSRQERR BIT(8) CONSTANT('10'X); /* REQUEST ERROR */ 64000100 *DCL SNSRQREJ BIT(8) CONSTANT('08'X); /* REQUEST REJECT */ 65000100 */* */ 66000100 */* CONSTANTS TO BE USED WITH MINOR SENSE */ 67000100 */* */ 68000100 */* */ 69000100 */* REQUEST ERROR MINOR SENSE BYTES */ 70000100 */* */ 71000100 *DCL SNSRUDAT BIT(8) CONSTANT('01'X); /* RU DATA ERROR */ 72000100 *DCL SNSRULEN BIT(8) CONSTANT('02'X); /* RU LENGTH ERROR */ 73000100 *DCL SNSNFUNC BIT(8) CONSTANT('03'X); /* FUNCTION NOT SUPPORTED */ 74000100 *DCL SNSNCAT BIT(8) CONSTANT('07'X); /* CATEGORY NOT SUPPORTED */ 75000100 *DCL SNSINVHD BIT(8) CONSTANT('08'X); /* INVALID FM HEADER */ 76000100 */* */ 77000100 */* REQUEST REJECT MINOR SENSE BYTES */ 78000100 */* */ 79000100 *DCL SNSRNAV BIT(8) CONSTANT('01'X); /* RESOURCE NOT AVAILABLE */ 80000100 *DCL SNSIVREQ BIT(8) CONSTANT('02'X); /* INTERVENTION REQUIRED */ 80500100 *DCL SNSMPSWD BIT(8) CONSTANT('03'X); /* MISSING PASSWORD */ 81000100 *DCL SNSSLIM BIT(8) CONSTANT('05'X); /* SESSION LIMIT EXCEEDED */ 82000100 *DCL SNSMODIN BIT(8) CONSTANT('09'X); /* MODE INCONSISTENCY */ 83000100 *DCL SNSBRACE BIT(8) CONSTANT('0B'X); /* BRACKET RACE ERROR */ 84000100 *DCL SNSPRCNS BIT(8) CONSTANT('0C'X); /* PROCEDURE NOT SUPPORTED */ 85000100 *DCL SNSCNCL BIT(8) CONSTANT('11'X); /* CANCEL KEY HIT */ 86000100 *DCL SNSNRSCE BIT(8) CONSTANT('12'X); /* INSUFFICIENT RESOURCE */ 87000100 *DCL SNSNACT BIT(8) CONSTANT('16'X); /* FUNCTION INACTIVE */ 88000100 *DCL SNSNRTR BIT(8) CONSTANT('19'X); /* RTR NOT REQUIRED */ 89000100 *DCL SNSSRFER BIT(8) CONSTANT('1E'X); /* SESSION REFERENCE ERROR */ 90000100 *DCL SNSUNCTL BIT(8) CONSTANT('23'X); /* UNKNOWN CONTROL VECTOR */ 91000100 *DCL SNSINTRQ BIT(8) CONSTANT('80'X); /* INTERVENTION REQUIRED */ 92000100 *DCL SNSRCXMT BIT(8) CONSTANT('1B'X); /* RECEIVER IN TRANSMIT MODE */ 93000100 *DCL SNSNGRB BIT(8) CONSTANT('13'X); /* NEGATIVE RESP TO BID */ 94000100 *DCL SNSRTRY BIT(8) CONSTANT('27'X); /* RETRY REQUESTED */ 95000100 *DCL SNSACTV BIT(8) CONSTANT('15'X); /* FUNCTION ALREADY ACTIVE */ 96000100 */* */ 97000100