* %GOTO RSPPLS; /* BILINGUAL HEADER 00300010 MACRO 00600010 TRSPD 00900010 .*A000000-999999 @Y17XAXF 01200010 * 01500010 * FID0 PHASE 0 ERROR RESPONSES 01800010 * 02100010 RSP0E01 EQU X'01' . INVALID RESOURCE ID 02400010 RSP0E02 EQU X'02' . INVALID COMMAND 02700010 RSP0E03 EQU X'03' . INVALID MODIFIER 03000010 RSP0E04 EQU X'04' . RESET OR DEACTIVATE IN PROGRESS 03300010 RSP0E05 EQU X'05' . DEVICE INACTIVE 03600010 RSP0E06 EQU X'06' . LINE INACTIVE 03900010 RSP0E07 EQU X'07' . COMMAND NOT VALID FOR RESOURCE 04200010 RSP0E08 EQU X'08' . COMMAND SYNTAX ERROR 04500010 RSP0E09 EQU X'09' . COMMAND REJECTED 04800010 RSP0E0A EQU X'0A' . INVALID CONTROL DATA LENGTH 05100010 RSP0E0B EQU X'0B' . RESET NOT PERFORMED 05400010 RSP0E0C EQU X'0C' . DATA NOT RESIDENT IN STORAGE 05700010 RSP0E0D EQU X'0D' . DATA SET QUEUE LIMIT REACHED 06000010 RSP0E0E EQU X'0E' . LINE AND DEVICE INCOMPATIBILTY 06300010 * ON SWITCHED CALL-OUT 06600010 RSP0E0F EQU X'0F' . INVALID TEXT LENGTH 06900010 RSP0E11 EQU X'11' . INVALID CONTROL DATA 07200010 RSP0E12 EQU X'12' . INCOMPLETE BTU 07500010 RSP0E13 EQU X'13' . DEACTIVATE LINE ORDERLY OR 07800010 * DEACTIVATE DEVICE COMMAND 08100010 * REJECTED BECAUSE OF ERROR 08400010 * ON ONE OR MORE OF THE 08700010 * DEVICES 09000010 RSP0E14 EQU X'14' . DATA IN USE 09300010 RSP0E15 EQU X'15' . INVALID CONTROL COMMAND 09600010 * MODIFIER OR CONTROL COMMAND 09900010 * NOT VALID FOR RESOURCE 10200010 RSP0E16 EQU X'16' . OLTT COMMAND REJECTED, 10500010 * QUEUE NO EMPTY 10800010 RSP0E17 EQU X'17' . OLT ACTIVE. NON-OLT COMMAND 11100010 * REJECTED 11400010 RSP0E18 EQU X'18' . MULTIPLE DIAL REQUESTS 11700010 RSP0E19 EQU X'19' . MODE INCONSISTENCY 12000010 RSP0E1A EQU X'1A' . BUFFERS REQUIRED TO COMPLETE 12300010 * THE OPERATION ARE NOT 12600010 * AVAILABLE, SYSTEM IN 12900010 * SLOWDOWN MODE 13200010 RSP0E1B EQU X'1B' . COMMAND REJECT,SYSTEM IN 13500010 * AUTO NETWORK SHUTDOWN 13800010 RSP0E1C EQU X'1C' . COMMAND REJECTED, ERROR 14100010 * LOCK SET 14400010 RSP0E1D EQU X'1D' . COMMAND REJECTED, SECONDARY 14700010 * CHANNEL ADAPTER NOT 15000010 * OPERATIVE 15300010 RSP0E1E EQU X'1E' . COMMAND REJECTED, LINE 15600010 * DEACTIVATED OR COMMAND 15900010 * RESET 16200010 EJECT 16500010 * 16800010 * FID0 PHASE 0 UNSOLICITED RESPONSES 17100010 * 17400010 RSPUNS00 EQU X'00' . INVALID BIT CONFIGURATION 17700010 RSPUNS01 EQU X'01' . ATTENTION TIME-OUT OR 18000010 * UNRECOVERABLE ERROR ON 18300010 * CURRENT PRIMARY CHANNEL 18600010 * ADAPTER 18900010 RSPUNS03 EQU X'03' . DEVICE ASSOCATION COMPLETED 19200010 RSPUNS04 EQU X'04' . MTA DEVICE IDENTIFIED 19500010 RSPUNS05 EQU X'05' . CHANNEL ADAPTER SET TO 19800010 * PRIMARY MODE 20100010 RSPUNS06 EQU X'06' . CHANNEL ADAPTER SET TO 20400010 * SECONDARY MODE 20700010 RSPUNS07 EQU X'07' . ENTERING SYSTEM SLOWDOWN 21000010 RSPUNS08 EQU X'08' . LEAVING SYSTEM SLOWDOWN 21300010 RSPUNS09 EQU X'09' . INITIALIZATION COMPLETE 21600010 RSPUNS0A EQU X'0A' . MDR RECORDS ACCOMPANY THE BTU 21900010 RSPUNS1B EQU X'1B' . AUTO NETWORK SHUTDOWN INITIATED 22200010 * VIA CHANNEL TIME-OUT OR 22500010 * CHANNEL ADAPTER FAILURE 22800010 RSPUNS1C EQU X'1C' . AUTO NETWORK SHUTDOWN INITIATED 23100010 * VIA PANEL 23400010 RSPUNS1D EQU X'1D' . NETWORK SHUT DOWN VIA AUTO 23700010 * NETWORK SHUTDOWN 24000010 RSPUNS1E EQU X'1E' . SERVICEABILITY AID-HOST LOGGING 24300010 SPACE 24600010 * 24900010 * RESPONSE ERROR INDICATOR 25200010 * 25500010 RSPERR EQU X'80' . ERROR RESPONSE IND 25800010 SPACE 26100010 * 26400010 * PHASE VALUES 26700010 * 27000010 RSP00 EQU X'00' . PHASE 0 IND 27300010 RSP20 EQU X'20' PHASE 1 IND 27600010 RSP40 EQU X'40' PHASE 2 IND 27900010 RSP60 EQU X'60' PHASE 3 IND 28200010 SPACE 28500010 * 28800010 * PHASE 1,2, AND 3 ERROR RESPONSES 29100010 * 29400010 RSPE00 EQU X'00' . DATA CHECK 29700010 RSPE01 EQU X'01' . POSSIBLE INTERVENTION REQUIED 30000010 RSPE02 EQU X'02' . INTERVENTION REQUIRED 30300010 RSPE03 EQU X'03' . NEGATIVE POLL LIMIT REACHED 30600010 RSPE04 EQU X'04' . YIELDED TO CONTENTION 30900010 RSPE05 EQU X'05' . DEVICE ERROR-BSC STATUS PENDING 31200010 RSPE06 EQU X'06' . BSC ID ERROR 31500010 RSPE07 EQU X'07' . LINE TRACE TERMINATED DUE TO 31800010 * ERROR 32100010 RSPE08 EQU X'08' . OLTT COMMAND OR RESET OLTT 32400010 * CONTROL COMMAND PORCESSING 32700010 * TERMINATED 33000010 RSPE09 EQU X'09' . SESSION NOT STARTED DUE TO 33300010 * HARDWARE ERROR 33600010 RSPE0A EQU X'0A' . BSC ERROR STATUS MESSAGE 33900010 RSPE0B EQU X'0B' . GENERAL POLL OPERATION 34200010 * ABORTED DUE TO ERROR 34500010 RSPE0C EQU X'0C' . FANOUT BACKUP LIMIT EXCEEDED 34800010 RSPE13 EQU X'13' . BREAK RECEIVED ON THIS BLOCK 35100010 RSPE18 EQU X'18' . CONTACT REJECTED-SESSION 35400010 * STARTED 35700010 RSPE19 EQU X'19' . DIAL DATA INCONSISTENCY 36000010 RSPE1A EQU X'1A' . BUFFERS REQUIRED TO COMPLETE 36300010 * OPERATION ARE NOT 36600010 * AVAILABLE 36900010 RSPE1E EQU X'1E' . COMMAND REJECTED, LINE 37200010 * DEACTIVATED OR COMMAND 37500010 * RESET 37800010 SPACE 38100010 * 38400010 * PHASE 1,2, AND 3 NORMAL RESPONSES 38700010 * 39000010 RSPN00 EQU X'00' . COMMAND EXECUTED OK THIS 39300010 * FAR 39600010 RSPN01 EQU X'01' . LEADING GRAPHICS RECEIVED 39900010 RSPN02 EQU X'02' . ONE OF THE FOLLOWING COMMANDS 40200010 * EXECUTED OK THIS FAR: 40500010 * READ OR INVITE 40800010 * WRITE(IN CONV MODE) 41100010 * WR OR WCR COMMANDS IN 41400010 * READ PHASE 41700010 RSPN03 EQU X'03' . NEGATIVE POLL LIMIT 42000010 * REACHED-QUEUE OPTION 42300010 RSPN04 EQU X'04' . OLTT REQUEST MESSAGE 42600010 RSPN05 EQU X'05' . BSC STATUS MESSAGE 42900010 RSPN06 EQU X'06' . NEGATIVE POLL LIMIT REACHED- 43200010 * NOWAIT OPTION 43500010 * 43800010 * RESPONSE CODES (USED WITH BDUSYRSP) 44100010 * 44400010 RSPSTPND EQU X'A5' . BSC STAT PENDING 44700010 RSPERLCK EQU X'9C' . ERROR LOCK SET 45000010 RSPERRST EQU X'EA' . ERROR BSC STATUS 45300010 RSPNRMST EQU X'65' . NORMAL BSC STATUS 45600010 RSPCRSOT EQU X'9E' . CMD RESET 45900010 RSPQNEGR EQU X'03' . Q-NEG POLL LIMIT REACHED 46200010 * @YM04625 46300010 RSPATTN EQU X'B3' . ATTENTION 46500010 RSPHNGUP EQU X'AC' . HANGUP 46800010 RSPSYNER EQU X'88' . COMMAND SYNTAX ERROR 46860010 RSPMTA0 EQU X'04' . MTA PHASE 0 46920010 RSPRJCTD EQU X'B8' . CONTACT REJECTED-SESSION START 46980010 RSPCNTN EQU X'A4' . YIELDED TO CONTENTION 47040010 RSPINACT EQU X'86' . LINE INACTIVE 47070010 MEND 47100010 * */ 47400010 *%RSPPLS:; 47700010 */* */ 48000010 */* FID0 PHASE 0 ERROR RESPONSES */ 48300010 */* */ 48600010 *DCL RSP0E01 BIT(5) CONSTANT('00001'B); /* INVALID RESOURCE ID */ 48900010 *DCL RSP0E02 BIT(5) CONSTANT('00010'B); /* INVALID COMMAND */ 49200010 *DCL RSP0E03 BIT(5) CONSTANT('00011'B); /* INVALID MODIFIER */ 49500010 *DCL RSP0E04 BIT(5) CONSTANT('00101'B); /* RESET OR DEACTIVATE IN PRG*/ 49800010 *DCL RSP0E05 BIT(5) CONSTANT('00101'B); /* DEVICE INACTIVE */ 50100010 *DCL RSP0E06 BIT(5) CONSTANT('00110'B); /* LINE INACTIVE */ 50400010 *DCL RSP0E07 BIT(5) CONSTANT('00111'B); /* COMMAND NOT VALID */ 50700010 *DCL RSP0E08 BIT(5) CONSTANT('01000'B); /* COMMAND SYNTAX ERR */ 51000010 *DCL RSP0E09 BIT(5) CONSTANT('01001'B); /* COMMAND REJECTED */ 51300010 *DCL RSP0E0A BIT(5) CONSTANT('01010'B); /* INVALID CONTROL DATA */ 51600010 *DCL RSP0E0B BIT(5) CONSTANT('01011'B); /* RESET NOT PERFORMED */ 51900010 *DCL RSP0E0C BIT(5) CONSTANT('01100'B); /* DATA NOT RESIDENT IN */ 52200010 */* STORAGE */ 52500010 *DCL RSP0E0D BIT(5) CONSTANT('01101'B); /* DATA SET QUEUE LIMIT REACH*/ 52800010 *DCL RSP0E0E BIT(5) CONSTANT('01110'B); /* LINE AND DEVICE INCOMPAT */ 53100010 */* ON SWITCHED CALL-OUT */ 53400010 *DCL RSP0E0F BIT(5) CONSTANT('01111'B); /* INVALID TEXT LENGTH */ 53700010 *DCL RSP0E11 BIT(5) CONSTANT('10001'B); /* INVALID CONTROL DATA */ 54000010 *DCL RSP0E12 BIT(5) CONSTANT('10010'B); /* INCOMPLETE BTU */ 54300010 *DCL RSP0E13 BIT(5) CONSTANT('10011'B); /* DEACTIVATE LINE ORDERLY OR*/ 54600010 */* DEACTIVATE DEVICE CMD */ 54900010 */* REJECTED BECAUSE OF ERR */ 55200010 */* ON ONE OR MORE OF THE */ 55500010 */* DEVICES */ 55800010 *DCL RSP0E14 BIT(5) CONSTANT('10100'B); /* DATA IN USE */ 56100010 *DCL RSP0E15 BIT(5) CONSTANT('10101'B); /* INVALID CONTROL COMMAND */ 56400010 */* MODIFIER OR CONTROL CMD */ 56700010 */* NOT VALID FOR RESOURCE */ 57000010 *DCL RSP0E16 BIT(5) CONSTANT('10110'B); /* OLTT COMMAND REJECTED */ 57300010 */* QUEUE NO EMPTY */ 57600010 *DCL RSP0E17 BIT(5) CONSTANT('10111'B); /* OLT ACTIVE. NON-OLT */ 57900010 */* REJECTED */ 58200010 *DCL RSP0E18 BIT(5) CONSTANT('11000'B); /* MULTIPLE DIAL REQUESTS */ 58500010 *DCL RSP0E19 BIT(5) CONSTANT('11001'B); /* MODE INCONSISTENCY */ 58800010 *DCL RSP0E1A BIT(5) CONSTANT('11010'B); /* BUFFERS REQUIRED TO */ 59100010 */* THE OPERATION ARE NOT */ 59400010 */* AVAILABLE, SYSTEM IN */ 59700010 */* SLOWDOWN MODE */ 60000010 *DCL RSP0E1B BIT(5) CONSTANT('11011'B); /* COMMAND REJECT,SYSTEM IN */ 60300010 */* AUTO NETWORK SHUTDOWN */ 60600010 *DCL RSP0E1C BIT(5) CONSTANT('11100'B); /* COMMAND REJECTED, */ 60900010 */* LOCK SET */ 61200010 *DCL RSP0E1D BIT(5) CONSTANT('11101'B); /* COMMAND REJECTED,SECONDARY*/ 61500010 */* CHANNEL ADAPTER NOT */ 61800010 */* OPERATIVE */ 62100010 *DCL RSP0E1E BIT(5) CONSTANT('11110'B); /* COMMAND REJECTED, LINE */ 62400010 */* DEACTIVATED OR COMMAND */ 62700010 */* RESET */ 63000010 @EJECT; 63300010 */* */ 63600010 */* FID0 PHASE 0 UNSOLICITED RESPONSES */ 63900010 */* */ 64200010 *DCL RSPUNS00 BIT(5) CONSTANT('00000'B); /* INVALID BIT CONFIGURATION*/ 64500010 *DCL RSPUNS01 BIT(5) CONSTANT('00001'B); /* ATTENTION TIME-OUT OR */ 64800010 */* UNRECOVERABLE ERROR ON */ 65100010 */* CURRENT PRIMARY CHANNEL */ 65400010 */* ADAPTER */ 65700010 *DCL RSPUNS03 BIT(5) CONSTANT('00011'B); /* DEVICE ASSOCATION COMPL */ 66000010 *DCL RSPUNS04 BIT(5) CONSTANT('00100'B); /* MTA DEVICE IDENTIFIED */ 66300010 *DCL RSPUNS05 BIT(5) CONSTANT('00101'B); /* CHANNEL ADAPTER SET TO */ 66600010 */* PRIMARY MODE */ 66900010 *DCL RSPUNS06 BIT(5) CONSTANT('00110'B); /* CHANNEL ADAPTER SET TO */ 67200010 */* SECONDARY MODE */ 67500010 *DCL RSPUNS07 BIT(5) CONSTANT('00111'B); /* ENTERING SYSTEM SLOWDOW */ 67800010 *DCL RSPUNS08 BIT(5) CONSTANT('01000'B); /* LEAVING SYSTEM SLOWDOWN */ 68100010 *DCL RSPUNS09 BIT(5) CONSTANT('01001'B); /* INITIALIZATION COMPLETE */ 68400010 *DCL RSPUNS0A BIT(5) CONSTANT('01010'B); /* MDR RECORDS ACCOMPANY */ 68700010 */* THE BTU */ 69000010 *DCL RSPUNS1B BIT(5) CONSTANT('11011'B); /* AUTO NETWORK SHUTDOWN */ 69300010 */* INIT VIA CHL TME-OUT OR */ 69600010 */* CHANNEL ADAPTER FAILURE */ 69900010 *DCL RSPUNS1C BIT(5) CONSTANT('11100'B); /* AUTO NETWORK SHUTDOWN */ 70200010 */* INIT VIA PANEL */ 70500010 *DCL RSPUNS1D BIT(5) CONSTANT('11101'B); /* NETWORK SHUT DOWN VIA */ 70800010 */* AUTO NETWORK SHUTDOWN */ 71100010 *DCL RSPUNS1E BIT(5) CONSTANT('11110'B); /* SERVICEABILITY AID-HOST */ 71400010 */* LOGGING */ 71700010 @SPACE; 72000010 */* */ 72300010 */* ERROR RESPONSE INDICATOR */ 72600010 */* */ 72900010 *DCL RSPERR BIT(1) CONSTANT('1'B); /* ERROR RESPONSE IND */ 73200010 @SPACE; 73500010 */* */ 73800010 */* PHASE VALUES */ 74100010 */* */ 74400010 *DCL RSP00 BIT(2) CONSTANT('00'B); /* PHASE 0 IND */ 74700010 *DCL RSP20 BIT(2) CONSTANT('01'B); /* PHASE 1 IND */ 75000010 *DCL RSP40 BIT(2) CONSTANT('10'B); /* PHASE 2 IND */ 75300010 *DCL RSP60 BIT(2) CONSTANT('11'B); /* PHASE 3 IND */ 75600010 @SPACE; 75900010 */* */ 76200010 */* PHASE 1,2, AND 3 ERROR RESPONSES */ 76500010 */* */ 76800010 *DCL RSPE00 BIT(5) CONSTANT('00000'B); /* DATA CHECK */ 77100010 *DCL RSPE01 BIT(5) CONSTANT('00001'B); /* POSSIBLE INTERVENTION REQ*/ 77400010 *DCL RSPE02 BIT(5) CONSTANT('00010'B); /* INTERVENTION REQUIRED */ 77700010 *DCL RSPE03 BIT(5) CONSTANT('00011'B); /* NEGATIVE POLL LIM REACHED*/ 78000010 *DCL RSPE04 BIT(5) CONSTANT('00101'B); /* YIELDED TO CONTENTION */ 78300010 *DCL RSPE05 BIT(5) CONSTANT('00101'B); /* DEVICE ERROR-BSC STATUS */ 78600010 *DCL RSPE06 BIT(5) CONSTANT('00110'B); /* BSC ID ERROR */ 78900010 *DCL RSPE07 BIT(5) CONSTANT('00111'B); /* LINE TRACE TERMINATED D */ 79200010 */* ERROR */ 79500010 *DCL RSPE08 BIT(5) CONSTANT('01000'B); /* OLTT CMD OR RESET OLTT */ 79800010 */* CONTROL CMD PROCESSING */ 80100010 */* TERMINATED */ 80400010 *DCL RSPE09 BIT(5) CONSTANT('01001'B); /* SESSION NOT STARTED DUE */ 80700010 */* HARDWARE ERROR */ 81000010 *DCL RSPE0A BIT(5) CONSTANT('01010'B); /* BSC ERROR STATUS MESSAGE */ 81300010 *DCL RSPE0B BIT(5) CONSTANT('01011'B); /* GENERAL POLL OPERATION */ 81600010 */* ABORTED DUE TO ERROR */ 81900010 *DCL RSPE0C BIT(5) CONSTANT('01100'B); /* FANOUT BACKUP LIMIT EXC */ 82200010 *DCL RSPE13 BIT(5) CONSTANT('10011'B); /* BREAK RECEIVED ON THIS */ 82500010 *DCL RSPE18 BIT(5) CONSTANT('11000'B); /* CONTACT REJECTED-SESSION */ 82800010 */* STARTED */ 83100010 *DCL RSPE19 BIT(5) CONSTANT('11001'B); /* DIAL DATA INCONSISTENCY */ 83400010 *DCL RSPE1A BIT(5) CONSTANT('11010'B); /* BUFFERS REQUIRED TO CMPLT*/ 83700010 */* OPERATION ARE NOT */ 84000010 */* AVAILABLE */ 84300010 *DCL RSPE1E BIT(5) CONSTANT('11110'B); /* COMMAND REJECTED, LINE */ 84600010 */* DEACTIVATED OR COMMAND */ 84900010 */* RESET */ 85200010 @SPACE; 85500010 */* */ 85800010 */* PHASE 1,2, AND 3 NORMAL RESPONSES */ 86100010 */* */ 86400010 *DCL RSPN00 BIT(5) CONSTANT('00000'B); /* COMMAND EXECUTED OK THIS */ 86700010 */* FAR */ 87000010 *DCL RSPN01 BIT(5) CONSTANT('00001'B); /* LEADING GRAPHICS RECEIVED*/ 87300010 *DCL RSPN02 BIT(5) CONSTANT('00010'B); /* ONE OF THE FOLLOWING CMD */ 87600010 */* EXECUTED OK THIS FAR: */ 87900010 */* READ OR INVITE */ 88200010 */* WRITE(IN CONV MODE) */ 88500010 */* WR OR WCR COMMANDS IN */ 88800010 */* READ PHASE */ 89100010 *DCL RSPN03 BIT(5) CONSTANT('00101'B); /* NEGATIVE POLL LIMIT */ 89400010 */* REACHED-QUEUE OPTION */ 89700010 *DCL RSPN04 BIT(5) CONSTANT('00100'B); /* OLTT REQUEST MESSAGE */ 90000010 *DCL RSPN05 BIT(5) CONSTANT('00101'B); /* BSC STATUS MESSAGE */ 90300010 *DCL RSPN06 BIT(5) CONSTANT('00110'B); /* NEGATIVE POLL LIMIT REA */ 90600010 */* NOWAIT OPTION */ 90900010 @SPACE; 91200010 */* */ 91500010 */* RESPONSE CODE (USED WITH BDUSYRSP) */ 91800010 */* */ 92100010 * DCL RSPSTPND BIT(8) CONSTANT('A5'X); /* BSC STAT PENDING */ 92400010 * DCL RSPERLCK BIT(8) CONSTANT('9C'X); /* ERROR LOCK SET */ 92700010 * DCL RSPERRST BIT(8) CONSTANT('EA'X); /* ERROR BSC STATUS */ 93000010 * DCL RSPNRMST BIT(8) CONSTANT('65'X); /* NORMAL BSC STATUS */ 93300010 * DCL RSPCRSET BIT(8) CONSTANT('9E'X); /* CMD RESET */ 93600010 * DCL RSPQNEGR BIT(8) CONSTANT('03'X); /* Q-NEG POLL LIMIT REACHED 93900010 * @YM04625*/ 94000010 * DCL RSPATTN BIT(8) CONSTANT('B3'X); /* ATTENTION */ 94200010 * DCL RSPHNGUP BIT(8) CONSTANT('AC'X); /* HANGUP */ 94500010 * DCL RSPSYNER BIT(8) CONSTANT('88'X); /* COMMAND SYNTAX ERROR */ 95400010 * DCL RSPMTA0 BIT(8) CONSTANT('04'X); /* MTA PHASE 0 */ 96300010 * DCL RSPRJCTD BIT(8) CONSTANT('B8'X); /* CONTACT REJECTED-SESSION */ 97200010 * /* STARTED */ 98100010 * DCL RSPCNTN BIT(8) CONSTANT('A4'X); /* YIEDLED TO CONTENTION */ 99000010 * DCL RSPINACT BIT(8) CONSTANT('86'X); /* LINE INACTIVE */ 99400010