|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5588 (0x15d4)
Types: s3xseg
Names: »S$NRTV«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$NRTV«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$NRTV«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* TITLE: $NRTV -- DEFINE CCP RETURN CODE VALUE EQUATES * 00040000
.* * 00050000
.* FUNCTION: * 00060000
.* * 00070000
.* . GENERATE SYMBOLS FOR THE VALUES OF RETURN CODES FROM A CCP * 00080000
.* COMMUNICATIONS OPERATION. * 00090000
.* * 00100000
.* . PREVENT THE INADVERTANT GENERATION OF DUPLICATE SYMBOLS FOR * 00110000
.* THOSE VALUES. * 00120000
.* * 00130000
.* INPUT: * 00140000
.* * 00150000
.* . NO LABEL SHOULD BE SPECIFIED FOR THIS MACRO. * 00160000
.* * 00170000
.* . THIS MACRO HAS NO OPERANDS. * 00180000
.* * 00190000
.* . SEE SRL #GC21-7579 -- CCP PROGRAMMING REFERENCE MANUAL -- FOR * 00200000
.* FURTHER DESCRIPTION OF THIS MACRO. * 00210000
.* * 00220000
.* OUTPUT: * 00230000
.* * 00240000
.* . IF THESE SYMBOLS HAVE BEEN GENERATED EARLIER IN THIS * 00250000
.* GENERATION RUN, ONLY A WARNING MNOTE (SEE ERROR MESSAGES * 00260000
.* BELOW). * 00270000
.* * 00280000
.* . ELSE, SYMBOLS FOR RETURN CODE VALUES: * 00290000
.* * 00300000
.* . $NOK FOR SUCCESSFUL OPERATION * 00310000
.* * 00320000
.* . $NX... FOR EXCEPTIONAL CONDITIONS * 00330000
.* * 00340000
.* . $NR... FOR I/O ERROR CONDITIONS * 00350000
.* * 00360000
.* . AN INDICATION (VIA THE GLOBAL VARIABLE &$NRTV) THAT THESE * 00370000
.* SYMBOLS HAVE BEEN GENERATED. * 00380000
.* * 00390000
.* EXTERNAL REFERENCES: * 00400000
.* * 00410000
.* . NO EXTRNS ARE GENERATED BY THIS MACRO. * 00420000
.* * 00430000
.* . THE GLOBAL BOOLEAN VARIABLE &$NRTV IS USED TO DETERMINE * 00440000
.* WHETHER THESE SYMBOLS HAVE BEEN GENERATED. WHEN GENERATED, * 00450000
.* THE VARIABLE IS SET TO THE VALUE 1. * 00460000
.* * 00470000
.* ERROR MESSAGES: * 00480000
.* * 00490000
.* . WARNING (04) MNOTE N6003 RETURN-CODE VALUES PREVIOUSLY * 00500000
.* GENERATED * 00510000
.* * 00520000
.* IS ISSUED IF THIS MACRO-INSTRUCTION IS USED BUT THOSE SYMBOLS * 00530000
.* HAVE BEEN PREVIOUSLY GENERATED. * 00540000
.* * 00550000
.********************************************************************** 00560000
$NRTV 00570000
GBLB &$NRTV . =1 IF SYMBOLS ALREADY GEN'D 00580000
TEXT 00590000
SPACE 1 00600000
* *** MACRO-$NRTV RELEASE-8 *** 00610000
.* 00620000
.* IF SYMBOLS PREVIOUSLY GENERATED, SKIP TO ISSUE WARNING MNOTE -- DO 00630000
.* NOT GENERATE SYMBOLS AGAIN 00640000
.* 00650000
AIF (&$NRTV).RTV10 . SKIP IF SYMBOLS ALREADY GEN'D 00660000
.* 00670000
.* GENERATE THE SUCCESSFUL COMPLETION SYMBOL 00680000
.* 00690000
SPACE 1 00700000
* CCP RETURN CODE VALUES -- SUCCESSFUL OPERATION 00710000
SPACE 1 00720000
$NOK EQU 0 SUCCESSFUL OPERATION 00730000
.* 00740000
.* GENERATE THE EXCEPTION CONDITION SYMBOLS 00750000
.* 00760000
SPACE 1 00770000
* CCP RETURN CODE VALUES -- EXCEPTION CONDITIONS 00780000
SPACE 1 00790000
$NXDTR EQU +1 DATA TRUNCATED 00800000
$NXEOT EQU +2 EOT RECEIVED 00810000
$NXEDT EQU +3 EOT RECEIVED / DATA TRUNCATED 00820000
$NXSHD EQU +4 SHUTDOWN HAS BEEN REQUESTED 00830000
$NXDPD EQU +5 DATA PENDING ON BSCA LINE 00840000
$NXRVI EQU +6 RVI/TERMINAL INTERRUPT RECEIVED 00850000
$NXCLR EQU +7 3270 CLEAR KEY 00860000
$NXNAV EQU +8 TERMINAL NO LONGER AVAILABLE 00870000
$NXOFF EQU +9 TERMINAL OFFLINE 00880000
$NXSPI EQU +10 STOP INVITE INPUT SUCCESSFUL 00890000
$NXNAQ EQU +11 ACQUIRE TERMINAL FAILED 00900000
SPACE 1 00910000
* CCP RETURN CODE VALUES -- COMMON I/O ERRORS 00920000
SPACE 1 00930000
$NRDCK EQU -1 DATA CHECK 00940000
$NRTRN EQU -2 TRANSLATION ERROR 00950000
$NRLST EQU -3 LOST DATA 00960000
$NRPBS EQU -4 PERMANENT BI-SYNC ERROR 00970000
$NRABN EQU -5 ABNORMAL RESPONSE 00980000
$NRXRA EQU -6 TRANSMIT/RECEIVE ABORT 00990000
$NRATO EQU -7 ADDRESSING TIMEOUT 01000000
$NRTTO EQU -8 TEXT TIMEOUT 01010000
$NRWTO EQU -9 WACK/TTD EXPIRATION 01020000
$NRNOC EQU -10 NO CONNECTION 01030000
$NRIID EQU -11 INVALID ID 01040000
$NRABD EQU -12 ABORT, DISCONNECT 01050000
$NRADC EQU -13 ADAPTER CHECK 01060000
$NRNAK EQU -14 NEGATIVE RESPONSE TO ADDRESSING 01070000
SPACE 1 01080000
* CCP RETURN CODE VALUES -- I/O ERRORS UNIQUE TO 3270 01090000
SPACE 1 01100000
$NR2DU EQU -20 DEVICE UNAVAILABLE OR NOT READY 01110000
$NR2ED EQU -22 EQUIPMENT CHECK, DEVICE END 01120000
$NR2TE EQU -23 TCU DETECTION OF BSCA ERROR 01130000
$NR2CD EQU -24 CTL CHK,DATA CHK,DEV BSY,DEV END 01140000
$NR2PD EQU -25 DATA CHECK ON COPY COMMAND 01150000
$NR2PO EQU -26 OPERATION CHECK ON COPY COMMAND 01160000
$NR2PB EQU -27 DEVICE BUSY ON COPY COMMAND 01170000
$NR2PC EQU -28 CTL CHK/OP CHK/DATA CHK ON COPY 01180000
$NR2PI EQU -29 INVALID INPUT DATA FOR DFF 01190000
SPACE 1 01200000
* CCP RETURN CODE VALUES -- I/O ERRORS UNIQUE TO 3735 01210000
SPACE 1 01220000
$NR5SR EQU -40 ATTEMPTED SEND BEFORE RECEIVE 01230000
$NR5IC EQU -41 ILLEGAL CHARACTER 01240000
$NR5BF EQU -42 BUFFER OVERFLOW 01250000
$NR5DF EQU -43 DISK FULL 01260000
$NR5RF EQU -44 DIRECTORY FULL 01270000
$NR5UH EQU -45 UNDEFINED HEADER 01280000
$NR5DE EQU -46 3735 DISK ERROR 01290000
.* 01300000
.* INDICATE THAT SYMBOLS HAVE BEEN GENERATED 01310000
.* 01320000
&$NRTV SETB 1 . INDICATE SYMBOLS ALREADY GEN'D 01330000
AGO .RTV90 . SKIP TO END CURRENT MACRO 01340000
.* 01350000
.* SYMBOLS PREVIOUSLY GENERATED -- ISSUE WARNING MNOTE 01360000
.* 01370000
.RTV10 ANOP 01380000
SPACE 1 01390000
MNOTE 04,'N6003 RETURN-CODE VALUES PREVIOUSLY GENERATED' 01400000
SPACE 1 01410000
.* 01420000
.* COMMON COMPLETION OF MACRO 01430000
.* 01440000
.RTV90 ANOP 01450000
* *** END GENERATION--$NRTV *** 01460000
SPACE 1 01470000
MEND 01480000