*%GOTO RPLBSL1 ; 00060000 * /* 00062000 MACRO 00064000 IFGRPL &DSECT=YES,&AM= 00066000 AGO .RPLDESC 00068000 * */ 00068400 .RPLDESC ANOP */ 00120000 * /******************************************************************/ 00130000 * /* */ 00140000 * /* REQUEST PARAMETER LIST (RPL) */ 00142000 * /* */ 00144000 * /* THE RPL CONTAINS USER REQUEST AND ERROR PASSBACK */ 00194000 * /* INFORMATION. IT IS USED BY VSAM AND VTAM, OR WHEN THE */ 00244000 * /* JOB ENTRY SUBSYSTEM(JES) IS BEING USED IN VS1, TO */ 00294000 * /* MAINTAIN INFORMATION REQUIRED BY THE GET AND PUT MACROS. */ 00296000 * /* */ 00298000 * /* THE RPL IS CREATED WITH INFORMATION SUPPLIED BY THE */ 00300000 * /* USER IN THE RPL MACRO AND IS ACCESSED BY THE REQUEST */ 00304000 * /* PROCESSING ROUTINES THROUGH REGISTER 1. */ 00314000 * /* */ 00350000 * /* THE CONTROL BLOCK CONSISTS OF AN AREA COMMON TO ALL USERS */ 00352000 * /* AND AN APPENDED VSAM EXTENSION. THE VSAM EXTENSION @ZA34940*/ 00356000 * /* MACRO INVOKES THE VTAM RPL EXTENSION, ISTRPLEX, IF @ZA34940*/ 00356600 * /* 'AM=VTAM' IS CODED IN THE RPL MACRO. @ZA34940*/ 00357200 * /* */ 00358400 * /* COPYRIGHT = NONE */ 00358800 * /* */ 00359800 * /* STATUS = MVS VERSION 037 */ 00360800 * /* */ 00361800 * /* CHANGE LEVEL = 12 @ZA34940*/ 00362800 * /* */ 00364800 * /* DATE OF LAST CHANGE = 13 NOV 78 ( 78*317 ) @ZA34940*/ 00366800 * /* 22 FEB 79 ( 79*053 ) @ZA37315*/ 00369800 * /* */ 00374000 * /* CHANGE ACTIVITY */ 00375000 * /* C41509-41513,80331-80373,97681-97685,129426-129427 @XM08790*/ 00376000 * /* C83580,D83560,83564,83584,131064,131065 @XM07756*/ 00377000 * /* C83580,A83584,131065 @XM01127*/ 00378000 * /* C83580,A83584,131065 @ZM30034*/ 00379000 * /* C619200,A619210,1157610 @ZA07549*/ 00380000 * /* A87671,93608 @ZA32757*/ 00390000 * /* CBMM SPLIT SUPPORT @ZA34940*/ 00391000 * /* VSAM SUPPORT FOR MSS ENHANCEMENT PROGRAM PRODUCT @ZA37315*/ 00391500 * /* C05900 @ZA42006*/ 00392000 * /* @ZA65719*/ 00396000 * /******************************************************************/ 00400000 * /* 00410000 AGO .RPLBAL */ 00420000 * /* */ 00430000 * /* RPL DIAGRAM */ 00440000 * /* */ 00442000 * /* */ 00450000 * /* 0 _______________________________________________ */ 00460000 * /* | | | | | */ 00470000 * /* | RPLID | RPLSTYP | RPLREQ | RPLLEN | */ 00480000 * /* 4 |___________|___________|___________|___________| */ 00490000 * /* | | */ 00500000 * /* | RPLPLHPT | */ 00510000 * /* 8 |_______________________________________________| */ 00520000 * /* | | */ 00530000 * /* | RPLECB | */ 00540000 * /* 12 |_______________________________________________| */ 00550000 * /* | RPLFDBWD | */ 00560000 * /* | | RPLFDBK | */ 00570000 * /* | RPLSTAT | RPLRTNCD | RPLCNDCD | */ 00580000 * /* | RPLFUNCD | | RPLFDB2 | RPLFDB3 | @ZA42006*/ 00590000 * /* 16 |___________|___________|_________|_____________| */ 00600000 * /* | | | */ 00610000 * /* | RPLKEYLE | RPLSTRID | */ 00620000 * /* 20 |_______________________|_______________________| */ 00630000 * /* | | */ 00640000 * /* | RPLCCHAR | */ 00650000 * /* 24 |_______________________________________________| */ 00660000 * /* | | */ 00670000 * /* | RPLDACB | */ 00680000 * /* 28 |_______________________________________________| */ 00690000 * /* | | */ 00700000 * /* | RPLTCBPT | */ 00710000 * /* 32 |_______________________________________________| */ 00720000 * /* | | */ 00730000 * /* | RPLAREA | */ 00740000 * /* 36 |_______________________________________________| */ 00750000 * /* | RPLARG | */ 00760000 * /* | RPLSAF | RPLDAF | */ 00770000 * /* 40 |_______________________|_______________________| */ 00780000 * /* | RPLOPTCD | */ 00790000 * /* | RPLECB | */ 00800000 * /* 44 |___________|___________|___________|___________| */ 00810000 * /* | | */ 00820000 * /* | RPLNXTRP | */ 00830000 * /* 48 |_______________________________________________| */ 00840000 * /* | RPLEXITP | */ 00850000 * /* | RPLRLEN | */ 00860000 * /* 52 |_______________________________________________| */ 00870000 * /* | | */ 00880000 * /* | RPLBUFL | */ 00890000 * /* 56 |_______________________________________________| */ 00900000 * /* | RPLOPTC2 | */ 00910000 * /* | RPLOPT5 | RPLOPT6 | RPLOPT7 | RPLOPT8 | */ 00920000 * /* 60 |_______________________________________________| */ 00930000 * /* | RPLRBAR | */ 00940000 * /* | RPLAIXPC | RPLAIXID | RPLENDRQ | */ 00950000 * /* |_______________________|___________|___________| */ 00960000 * /* | | */ 00970000 * /* | | */ 00980000 * /* 68 |_______________________________________________| */ 00990000 * /* | | | | */ 01000000 * /* | RPLEXTDS | RPLACTIV | RPLEMLEN | */ 01010000 * /* 72 |___________|___________|_______________________| */ 01020000 * /* | | */ 01030000 * /* | RPLERMSA | */ 01040000 * /* |_______________________________________________| */ 01050000 * /* */ 01060000 * /* THE VTAM EXTENSION BEGINS AT OFFSET 76. */ 01070000 * /* IT IS CONTIGUOUS TO THE COMMON AREA ABOVE. */ 01080000 * /* */ 01090000 * /* 76 _______________________________________________ */ 01100000 * /* | | */ 01110000 * /* | RPLAAREA | */ 01120000 * /* 80 |_______________________________________________| */ 01130000 * /* | | */ 01140000 * /* | RPLAARLN | */ 01150000 * /* 84 |_______________________________________________| */ 01160000 * /* | | */ 01170000 * /* | RPLARCLN | */ 01180000 * /* 88 |_______________________________________________| */ 01190000 * /* | RPLFDBK2/RPLSIGDA | */ 01200000 * /* | RPLDSB/RPLSSNSI | RPLSSNSO | */ 01210000 * /* | RPLDSB1 | RPLDSB2 | RPLESR1 | RPLESR2 | */ 01220000 * /* 92 |_______________________________________________| */ 01230000 * /* | | */ 01240000 * /* | RPLUSFLD | */ 01250000 * /* 96 |_______________________________________________| */ 01260000 * /* | RPLOPTC3 | */ 01270000 * /* | RPLOPT9 | RPLOPT10 | RPLOPT11 | RPLOPT12 | */ 01280000 * /* 100 |_______________________________________________| */ 01290000 * /* | | | */ 01300000 * /* | RPLSSNSO | RPLUSNSO | */ 01310000 * /* 104 |_______________________________________________| */ 01320000 * /* | | */ 01330000 * /* | RPLSAV13 | */ 01340000 * /* 108 |_______________________________________________| */ 01350000 * /* | | @Z40BHUC*/ 01354000 * /* | RPLSIGDA | @Z40BHUC*/ 01358000 * /* 112 |_______________________________________________| @Z40BHUC*/ 01358800 * /* */ 01360000 * /* IN A VTAM RPL THE TWO WORDS BEGINNING AT OFFSET 16 */ 01370000 * /* ARE OVERLAYED AS SHOWN BELOW. */ 01380000 * /* */ 01390000 * /* 16 _______________________________________________ */ 01400000 * /* | | | | | */ 01410000 * /* | RPLRH3 | RPLSRTYP | RPLCHN | RPLVTFL1 | */ 01420000 * /* 20 |___________|___________|_________|_____________| */ 01430000 * /* | | | */ 01440000 * /* | RPLVTFL2 | RPLCNTRL | */ 01450000 * /* |___________|___________________________________| */ 01460000 * /* */ 01470000 * /* IN A VTAM RPL THE TWO WORDS BEGINNING AT OFFSET 60 */ 01480000 * /* ARE OVERLAYED AS SHOW BELOW. */ 01490000 * /* */ 01500000 * /* 60 _______________________________________________ */ 01510000 * /* | | | */ 01520000 * /* | RPLOBSQV | RPLIBSQV | */ 01530000 * /* 64 |_______________________|_______________________| */ 01540000 * /* | | | | */ 01550000 * /* | RPLOBSQ | RPLIBSQ | RPLSEQNO | */ 01560000 * /* |___________|___________|_______________________| */ 01570000 * /* */ 01580000 * /* */ 02120000 *%RPLBSL1: ; 03400000 * DCL 1 IFGRPL BASED , /* LEVEL ONE DECLARE */ 03450000 * 2 RPLCOMN, /* RPL COMMON SECTION 03460000 * X03004*/ 03470000 * 3 RPLIDWD CHAR(4), /* ID WORD OF RPL */ 03500000 * 4 RPLID BIT(8), /* IDENT & HEADER TYPE */ 03550000 * % RPLIDD = '''00''X'; /* RPL='00' */ 03600000 * 4 RPLSTYP PTR(8), /* SUBTYPE */ 03650000 * % RPLSVSAM = '''10''X'; /* VSAM SUBTYPE @X04SVHS*/ 03652000 * % RPLSVRP = '''11''X'; /* VRP SUBTYPE @X04SVHS*/ 03654000 * % RPLSVTAM = '''20''X'; /* VTAM SUBTYPE @X04SVHS*/ 03656000 * % RPLS3540 = '''40''X'; /* 3540 SUBTYPE @X04SVHS*/ 03658000 * % RPLCRID = '''FF''X'; /* CRPL IDENTIFIER 03660000 * X03004*/ 03670000 * 4 RPLREQ PTR(8), /* REQUEST TYPE */ 03700000 * % RPLJSFMT = '''07''X'; /* JES FORMAT REQUEST 03710000 * @X04SVHS*/ 03720000 * % RPLWRITE = '''11''X'; /* WRITE(VTAM) X03004*/ 03749600 * % RPLRESET = '''12''X'; /* RESET(VTAM) X03004*/ 03749700 * % RPLDO = '''13''X'; /* DO(VTAM) X03004*/ 03749800 * % RPLQUISE = '''15''X'; /* SETLOGON(VTAM) X03004*/ 03750000 * % RPLSMLGO = '''16''X'; /* SIMLOGON(VTAM) X03004*/ 03766600 * % RPLOPNDS = '''17''X'; /* OPNDST(VTAM) X03004*/ 03776600 * % RPLCHNG = '''19''X'; /* CHANGE(VTAM) X03004*/ 03780600 * % RPLINQIR = '''1A''X'; /* INQUIRE(VTAM) X03004*/ 03782600 * % RPLINTPT = '''1B''X'; /* INTERPRET(VTAM)X03004*/ 03783000 * % RPLREAD = '''1D''X'; /* READ(VTAM) X03004*/ 03785500 * % RPLSLICT = '''1E''X'; /* SOLICIT(VTAM) X03004*/ 03787500 * % RPLCLOSE = '''1F''X'; /* CLSDST(VTAM) X03004*/ 03787900 * % RPLCLACB = '''21''X'; /* CLOSEACB(VTAM) X03004*/ 03788300 * % RPLSNDCD = '''22''X'; /* SEND(VTAM) X3004BS*/ 03790300 * % RPLRCVCD = '''23''X'; /* RECEIVE(VTAM) X3004BS*/ 03790700 * % RPLRSRCD = '''24''X'; /* RESETSR(VTAM) X3004BS*/ 03808900 * % RPLSSCCD = '''25''X'; /* SESSIONC(VTAM)X3004BS*/ 03818900 * % RPLSDCMD = '''27''X'; /* SENDCMD(VTAM) @Z40BHUC*/ 03821500 * % RPLRVCMD = '''28''X'; /* RCVCMD(VTAM) @Z40BHUC*/ 03822000 * % RPLTREQS = '''29''X'; /* REQSESS(VTAM) @G40AKCM*/ 03823000 * % RPLTOPNS = '''2A''X'; /* OPNSEC(VTAM) @G40AKCM*/ 03823800 * % RPLTCLSS = '''2B''X'; /* CLSSEC(VTAM) @G40AKCM*/ 03824600 * % RPLTRMS = '''2C''X'; /* TRMSESS(VTAM) @G40AKCM*/ 03825400 * 4 RPLLEN PTR(8), /* LENGTH OF THIS BLOCK */ 03827200 * 5 RPLLEN2 PTR(8), /* LENGTH OF THIS BLOCK 03845400 * X03004*/ 03863600 * 3 RPLPLHPT PTR(31), /* PTR TO PLACEHOLDER */ 03881800 * 3 RPLECB PTR(31), /* EXTERNAL ECB PTR OR 03900000 * INTERNAL ECB */ 03910000 * 5 RPLWAIT BIT(1), /* EVENT WAITED ON */ 03950000 * 5 RPLPOST BIT(1), /* EVENT COMPLETE */ 04000000 * 3 RPLFDBWD PTR(31), /* FEEDBACK WORD@X04SVHS*/ 04002000 * 4 RPLSTAT BIT(8), /* CURRENT RPL STATUS */ 04010000 * 5 RPLFUNCD BIT(8), /* PROBLEM DETERMINATION 04023300 * FUNCTION CD @ZA42006*/ 04036600 * 4 RPLFDBK PTR(24), /* FEEDBACK AREA */ 04050000 * 5 RPLRTNCD PTR(8), /* RPL RETURN CODE */ 04100000 * % RPLNOERR = '''00''X'; /* NORMAL RETURN */ 04110000 * % RPLBLKER = '''04''X'; /* INVALID CONTROL BLOCK*/ 04120000 * % RPLCBLKE = '''04''X'; /* CONTROL BLOCK ERROR 04124000 * X03004*/ 04126000 * % RPLLOGER = '''08''X'; /* ILLOGICAL REQUEST */ 04130000 * % RPLLOGIC = '''08''X'; /* LOGICAL ERROR X03004*/ 04132000 * % RPLPHYER = '''0C''X'; /* PHYSICAL I/O ERROR */ 04140000 * % RPLPHYSC = '''0C''X'; /* PHYSICAL CONDITION 04140400 * X03004*/ 04140500 * % RPLNGRCC = '''10''X'; /* NEGATIVE CONDITIONAL 04140800 * COMMAND X03004*/ 04140900 * % RPLSPECC = '''14''X'; /* TEMPORARY ERROR 04141200 * X03004*/ 04141300 * % RPLCMDRT = '''18''X'; /* COMMAND RESET X03004*/ 04141600 * % RPLPURGE = '''1C''X'; /* COMMAND PURGED X03004*/ 04141700 * % RPLVTMNA = '''20''X'; /* VTAM NOT ACTIVE 04141800 * X03004*/ 04141900 * % RPLSYERR = '''24''X'; /* SYSTEM ERROR X03004*/ 04142000 * % RPLDEVDC = '''28''X'; /* DEVICE DISCONNECTED 04144400 * X03004*/ 04146400 * % RPLLIMEX = '''2C''X'; /* RESPONSE LIMIT 04148400 * EXCEEDED X3004BS*/ 04148800 * % RPLEXRQ = '''30''X'; /* EXCEPTION REQUEST 04149200 * RECEIVED X3004BS*/ 04149300 * % RPLEXRS = '''34''X'; /* EXCEPTION RESPONSE */ 04149400 * % RPLNOIN = '''38''X'; /* NO INPUT AVAILABLE */ 04150500 * % RPLVABND = '''3C''X'; /* VTAM ENCOUNTERED ABEND 04150900 * CONDITION @XM08790*/ 04151300 * 6 RPLERREG PTR(8), /* SAME AS RPLRTNCD 04152700 * RECEIVED X3004BS*/ 04153800 * 5 RPLCNDCD BIT(16) BDY(BYTE), /*RPL CONDITION 04154900 * X3004BS*/ 04156000 * 6 RPLCMPON PTR(8), /* COMPONENT ISSUING 04160000 * CODE(VSAM) */ 04161100 * 7 RPLFDB2 PTR(8), /* REASON CODE(VTAM) 04162000 * X03004*/ 04164000 * 8 RPLERLK BIT(1), /* ERROR LOCK SET X03004*/ 04166000 * 8 RPLRVID BIT(1), /* RVI RECEIVED X03004*/ 04168000 * 8 RPLATND BIT(1), /* ATTENTION RECEIVED 04170000 * X03004*/ 04170400 * 8 RPLDVUNS BIT(1), /* DEVICE UNUSEABLE 04170800 * X03004*/ 04171200 * 8 RPLIOERR BIT(1), /* I/O ERROR - 0=INPUT/ 04171600 * 1=OUTPUT X03004*/ 04171700 * 8 RPLDLGFL BIT(1), /* DIALOG INITIATION 04171900 * FAILED X03004*/ 04172300 * 8 RPLCUERR BIT(1), /* CONTROL UNIT FAILURE 04172700 * X03004*/ 04172800 * 8 RPLSTSAV BIT(1), /* SENSE BYTES PRESENT 04172900 * X03004*/ 04173000 * 6 RPLERRCD PTR(8), /* ERROR CODE(VSAM) */ 04405100 * 7 RPLFDB3 PTR(8), /* DATA FLAGS(VTAM) 04405900 * X03004 */ 04406700 * 8 RPLUINPT BIT(1),/* UNSOLICITED INPUT 04456700 * X03004*/ 04466700 * 8 RPLSV32 BIT(1),/* RESERVED X03004*/ 04468700 * 8 RPLREOB BIT(1),/* END OF BLOCK X03004*/ 04470700 * 8 RPLREOM BIT(1),/* END OF MESSAGE X03004*/ 04472700 * 8 RPLREOT BIT(1),/* END OF TRANSMISSION 04474700 * X03004*/ 04475100 * 8 RPLLGFRC BIT(1),/* LOGOFF RECEIVEDX03004*/ 04475500 * 8 RPLRLG BIT(1),/* LEADING GRAPHICS 04475600 * RECEIVED X03004*/ 04475700 * 8 RPLRDSOH BIT(1),/* START-OF-HEADER (SOH) 04475800 * RECEIVED X03004*/ 04485800 * 3 RPLKEYLE FIXED(15), /* KEY LENGTH (PROC=GEN)*/ 04492800 * 4 RPLKEYL FIXED(15), /* SAME AS RPLKEYLE */ 04496400 * 3 RPLSTRID FIXED(15), /* STRING IDENTIFIER */ 04500000 * 3 RPLCCHAR PTR(31), /* CONTROL CHAR POINTER */ 04850000 * 3 RPLDACB PTR(31), /* DATA ACB POINTER */ 04940000 * 3 RPLTCBPT PTR(31), /* TCB POINTER */ 04950000 * 3 RPLAREA PTR(31), /* DATA AREA POINTER */ 05600000 * 3 RPLARG PTR(31), /* SEARCH ARGUMENT PTR */ 05700000 * /* SETPRT PARMLIST PTR */ 05702000 * 4 RPLSAF PTR(16), /* SOURCE ADDRESS 05710000 * FIELD X03004*/ 05712000 * 4 RPLDAF PTR(16), /* DESTINATION ADDRESS 05720000 * FIELD X03004*/ 05730000 * 3 RPLOPTCD BIT(32), /* OPTION CODES */ 05750000 * 4 RPLOPT1 BIT(8), /* OPTION BYTE 1 */ 05760000 * 5 RPLLOC BIT(1), /* LOCATE MODE */ 05800000 * /* MOVE MODE IF OFF */ 05850000 * 5 RPLDIR BIT(1), /* DIRECT SEARCH ACCESS */ 05900000 * 5 RPLSEQ BIT(1), /* SEQUENTIAL ACCESS */ 06000000 * 5 RPLSKP BIT(1), /* SKIP SEQ ACCESS */ 06050000 * 5 RPLASY BIT(1), /* ASYNCHRONOUS REQUEST */ 06100000 * /* SYNCH IF OFF */ 06105000 * 5 RPLKGE BIT(1), /* SEARCH KEY GT/EQ */ 06110000 * /* SEARCH KEY EQ IF OFF */ 06112000 * 5 RPLGEN BIT(1), /* GENERIC KEY REQUEST */ 06120000 * /* FULL KEY IF OFF */ 06130000 * 5 RPLECBSW BIT(1), /* EXTERNAL ECB */ 06150000 * 6 RPLECBIN BIT(1), /* SAME AS RPLECBSW 06152000 * X03004*/ 06154000 * 4 RPLOPT2 BIT(8), /* OPTION BYTE 2 */ 06160000 * 5 RPLKEY BIT(1), /* KEYED ACCESS */ 06167000 * 5 RPLADR BIT(1), /* ACCESS BY LOCATION */ 06174000 * 6 RPLADD BIT(1), /* SAME AS RPLADR */ 06176000 * 5 RPLCNV BIT(1), /* CINV ACCESS (BY RBA) */ 06181000 * 5 RPLBWD BIT(1), /* FWD=0/BWD=1 @X04SVHS*/ 06188000 * 5 RPLLRD BIT(1), /* ARD=0/LRD=1 @X04SVHS*/ 06190000 * 5 RPLWAITX BIT(1), /* SYNCH PROCESSING 06192000 * WAIT EXIT @ZA07549*/ 06193000 * 5 RPLUPD BIT(1), /* UPDATE IF ON */ 06195000 * 5 RPLNSP BIT(1), /* NOTE STRING POSITION */ 06202000 * 4 RPLOPT3 BIT(8), /* OPTION BYTE 3 */ 06210000 * 5 RPLEODS BIT(1), /* END OF USER SYSOUT */ 06850000 * 5 RPLSFORM BIT(1), /* SPECIAL FORM ON 06900000 * REMOTE PRINTER */ 06950000 * 5 RPLBLK BIT(1), /* BLOCK=1,UNBLOCKED=0 */ 07000000 * /* FIXED BLOCK PROCESSING 07010000 * X04SVHS*/ 07020000 * 5 RPLVFY BIT(1), /* UCS/FCB VERIFY=1 */ 07050000 * 5 RPLFLD BIT(1), /* UCS FOLD=1 */ 07100000 * 5 RPLFMT BIT(2), /* FORMAT TYPE */ 07150000 * /* 00=UCS LOAD */ 07200000 * /* 01=FCB LOAD */ 07250000 * /* 10=3800 PRINTER */ 07260000 * /* 11 RESERVED */ 07300000 * 5 RPLALIGN BIT(1), /* 0=DO NOT ALIGN FCB 07350000 * BUFFER LOADS */ 07400000 * /* 1=ALIGN BUFFER AND 07450000 * NOTIFY OPERATOR */ 07500000 * 4 RPLOPT4 BIT(8), /* OPTION BYTE 4 */ 07510000 * 5 RPLENDTR BIT(1), /* 3800 END OF 07520000 * TRANSMISSION @Z40SVHS*/ 07530000 * 5 RPLMKFRM BIT(1), /* 3800 MARK FORM 07540000 * @Z40SVHS*/ 07542000 * 5 * BIT(6), /* RESERVED */ 07544000 * 3 RPLNXTRP PTR(31), /* CHAIN TO NEXT RPL */ 07550000 * 4 RPLCHAIN PTR(31), /* SAME AS RPLNXTRP */ 07560000 * 3 RPLRLEN PTR(31), /* LENGTH OF RECORD */ 07600000 * 3 RPLBUFL PTR(31), /* USER BUFFER SIZE */ 07800000 * 3 RPLOPTC2 BIT(32), /* VTAM OPTIONS X03004*/ 07850000 * 4 RPLOPT5 BIT(8), /* OPTION BYTE 5 X03004*/ 07900000 * 5 RPLDLGIN BIT(1), /* 1 = CS / 0 = CA 07950000 * X03004*/ 07952000 * 5 * BIT(1), /* RESERVED @Z40BHUC*/ 07960000 * 5 RPLPSOPT BIT(1), /* 1 = PASS/0 = RELEASE 07970000 * X03004*/ 07970400 * 5 RPLWRTYP BIT(3), /* WRITE TYPE X03004*/ 07972000 * 6 RPLNERAS BIT(1), /* WRITE NO ERASE X03004*/ 07980000 * 6 RPLEAU BIT(1), /* WRITE EAU X03004*/ 07990000 * 6 RPLERACE BIT(1), /* WRITE WITH ERASE 07992000 * X03004*/ 07992400 * 5 RPLNODE BIT(1), /* 1=ANY/0=SPEC X03004*/ 07994000 * 5 RPLWROPT BIT(1), /* 1=CONV/0=NCONV X03004*/ 07996000 * 4 RPLOPT6 BIT(8), /* OPTION BYTE 6 X03004*/ 07998000 * 5 RPLUNTYP BIT(3), /* UNIT TYPE X03004*/ 07998100 * 6 RPLEOB BIT(1), /* WRITE = BLK X03004*/ 07998400 * 6 RPLEOM BIT(1), /* WRITE = LBM X03004*/ 07998800 * 6 RPLEOT BIT(1), /* WRITE = LBT X03004*/ 07999200 * 5 RPLCOND BIT(1), /* CONDITIONAL X03004*/ 07999600 * 5 RPLNCOND BIT(1), /* UNCONDITIONAL X03004*/ 07999700 * 5 RPLLOCK BIT(1), /* LOCK X03004*/ 07999800 * 5 RPLRSV67 BIT(1), /* RESERVED X03004*/ 07999900 * 5 RPLRSV68 BIT(1), /* RESERVED X03004*/ 08016600 * 4 RPLOPT7 BIT(8), /* OPTION BYTE 7 X03004*/ 08026600 * 5 RPLCNOPT BIT(3), /* CONNECTION OPTION 08027000 * X03004*/ 08027400 * 6 RPLCNALL BIT(1), /* CONALL X03004*/ 08028600 * 6 RPLCNANY BIT(1), /* CONANY X03004*/ 08030600 * 6 RPLCNIMM BIT(1), /* RESERVED FOR CONIMM 08032600 * X03004*/ 08032700 * 5 RPLQOPT BIT(1), /* 1 = Q / 0 = NQ X03004*/ 08033000 * 5 RPLTPOST BIT(1), /* RPL ALREADY UNDER PSS 08033100 * @XM08790*/ 08037300 * 5 RPLRLSOP BIT(1), /* 1 = RELQ / 0 = NRELQ 08042800 * X03004*/ 08047000 * 5 RPLTCRNO BIT(1), /* CLOSE IN PROCESS FOR 08051200 * PO INTERFACE @Z40BHUC*/ 08053200 * 5 RPLRSV78 BIT(1), /* RESERVED X03004*/ 08055400 * 4 RPLOPT8 BIT(8), /* OPTION BYTE 8 X03004*/ 08059600 * 5 RPLODACQ BIT(1), /* ACQUIRE X03004*/ 08063800 * 5 RPLODACP BIT(1), /* ACCEPT X03004*/ 08068000 * 5 RPLODPRM BIT(1), /* PREEMPT X03004*/ 08072200 * 5 RPLPEND BIT(1), /* PEND X03004*/ 08076400 * 5 RPLSESS BIT(1), /* SESSION X03004*/ 08080600 * 5 RPLACTV BIT(1), /* ACTIVE X03004*/ 08084800 * 5 RPLUNCON BIT(1), /* UNCONDL X03004*/ 08089000 * 5 RPLRSV88 BIT(1), /* RESERVED X03004*/ 08093200 * 3 RPLRBAR CHAR(8) /* RBA RETURN LOCATION */ 08097400 * BDY (WORD), 08101600 * 4 RPLAIXPC PTR(16), /* AIX POINTER COUNT 08120000 * @X04SVHS*/ 08170000 * 4 RPLAIXID BIT(8), /* AIX POINTER TYPE 08270000 * @X04SVHS*/ 08272000 * 5 RPLAXPKP BIT(1), /* RBA=0/PRIME=1 @XM07761*/ 08280000 * 5 * BIT(7), /* RESERVED @X04SVHS*/ 08290000 * 4 RPLENDRQ BIT(8), /* ENDREQ ACTIVE @ZA65719*/ 08292000 * 4 RPLDDDD PTR(32), /* RELATIVE BYTE ADDRESS*/ 08300000 * 3 RPLEXTDS BIT(8), /* EXIT DEFINITIONS 08350000 * X03004*/ 08350100 * 4 RPLEXTD1 BIT(8), /* SAME AS RPLEXTDS 08350400 * X03004*/ 08350800 * 5 RPLEXSCH BIT(1), /* EXIT SCHEDULED X03004*/ 08352000 * 5 RPLNEXIT BIT(1), /* NO EXIT SPECIFIED 08354000 * X03004*/ 08354400 * 5 RPLEXIT BIT(1), /* ASYNCH EXIT @XM01127*/ 08358000 * 5 * BIT(1), /* RESERVED @XM01127*/ 08358400 * 5 RPLTCRYP BIT(1), /* IF ON, ENCRYPTION 08358500 * FEATURE REQ @G40AKSL*/ 08358600 * 5 RPLNIB BIT(1), /* ARG HAS NIB POINTER 08359000 * IF ON X03004*/ 08359100 * 5 RPLBRANC BIT(1), /* BRANCH ENTRY TO MACRO 08359200 * IF ON X03004*/ 08359600 * 3 RPLACTIV BIT(8), /* ACTIVE INDICATOR 08360000 * FF=ACTIVE/00=INACTIVE*/ 08370000 * 3 RPLEMLEN PTR(16), /* ERROR MESSAGE AREA 08400000 * LENGTH */ 08450000 * 3 RPLERMSA PTR(31), /* PTR TO ERR MSG AREA */ 08460000 * 08480000 * %INCLUDE SYSLIB(IFGRPLVS); /* GET VSAM EXTENSION @ZA34940*/ 08500000 * 08520000 * DCL RPLGET PTR(8) CONSTANT(0); /* GET REQUEST @X04SVHS*/ 08600800 * DCL RPLPUT PTR(8) CONSTANT(1); /* PUT REQUEST @X04SVHS*/ 08650800 * DCL RPLCHECK PTR(8) CONSTANT(2); /* CHECK REQUEST @X04SVHS*/ 08700800 * DCL RPLPOINT PTR(8) CONSTANT(3); /* POINT REQUEST @X04SVHS*/ 08710800 * DCL RPLENDRE PTR(8) CONSTANT(4); /* ENDREQ REQUEST@X04SVHS*/ 08720800 * DCL RPLERASE PTR(8) CONSTANT(5); /* ERASE REQUEST @X04SVHS*/ 08730800 * DCL RPLVERIF PTR(8) CONSTANT(6); /* VERIFY REQUEST@X04SVHS*/ 08732800 * DCL RPLPFMTD PTR(8) CONSTANT(8); /* DATA PREFORMAT@X04SVHS*/ 08733200 * DCL RPLPFMTI PTR(8) CONSTANT(9); /* INDEX PREFORMAT 08733300 * @X04SVHS*/ 08733400 * DCL RPLFRCIO PTR(8) CONSTANT(10); /* FORCE I/O REQUEST 08733500 * @X04SVHS*/ 08733600 * DCL RPLGETIX PTR(8) CONSTANT(11); /* GETIX REQUEST@X04SVHS*/ 08743900 * DCL RPLPUTIX PTR(8) CONSTANT(12); /* PUTIX REQUEST@X04SVHS*/ 08753900 * DCL RPLSRCHB PTR(8) CONSTANT(13); /* SRCHBFR REQUEST 08754000 * @X04SVHS*/ 08754100 * DCL RPLMRKB PTR(8) CONSTANT(14); /* MRKBFR REQUEST 08761100 * @X04SVHS*/ 08763200 * DCL RPLWRTB PTR(8) CONSTANT(15); /* WRTBFR REQUEST 08764600 * @X04SVHS*/ 08766700 * DCL RPLCNVTA PTR(8) CONSTANT(16); /* CNVTAD REQUEST 08766900 * @ZA37315*/ 08767000 * DCL RPLMNTAC PTR(8) CONSTANT(17); /* MNTACQ REQUEST 08767100 * @ZA37315*/ 08767200 * DCL RPLACQRA PTR(8) CONSTANT(18); /* ACQRANGE REQUEST 08767300 * @ZA37315*/ 08767400 * DCL RPLTERM PTR(8) CONSTANT(19); /* TERMRPL REQUEST 08767500 * @ZA37315*/ 08767600 *%GOTO RPLBSL2 ; 08768100 * /* */ 08771600 * /* ASSEMBLER DSECT FOR RPL 08775100 * 08785500 .RPLBAL ANOP 08795900 AIF ('&DSECT' EQ 'NO').RPLNODS 08850000 IFGRPL DSECT REQUEST PARAMETER LIST 08900000 AGO .RPLDSCT 08950000 .RPLNODS ANOP 09000000 IFGRPL DS 0D 09050000 .RPLDSCT ANOP 09100000 RPLIDWD EQU * RPL IDENTIFICATION WORD 09150000 RPLID DS XL1 RPL IDENTIFIER 09200000 RPLIDD EQU X'00' IDENTIFIER VALUE - X'00' 09210000 RPLSTYP DS XL1 RPL SUBTYPE - SET TO 09250000 * X'00' FOR DATA 09260000 * MANAGEMENT AND X'0D' 09270000 * FOR JECS 09280000 RPLSVSAM EQU X'10' VSAM SUBTYPE X04SVHS 09282000 RPLSVRP EQU X'11' VRP SUBTYPE X04SVHS 09284000 RPLSVTAM EQU X'20' VTAM SUBTYPE X04SVHS 09286000 RPLS3540 EQU X'40' 3540 SUBTYPE X04SVHS 09288000 RPLCRID EQU X'FF' CRPL ID (VTAM) X03004 09290000 RPLREQ DS XL1 RPL REQUEST TYPE 09300000 RPLGET EQU X'00' GET 09310000 RPLPUT EQU X'01' PUT 09320000 RPLPOINT EQU X'03' POINT 09330000 RPLERASE EQU X'05' ERASE 09340000 RPLJSFMT EQU X'07' JES FORMAT REQUEST 09341400 * THE FOLLOWING CODES ARE NOT STORED IN RPLREQ, BUT ARE 09344700 * AVAILABLE IN REGISTER 0 WHEN THE FUNCTION IS ENTERED 09346100 * AND STORED IN RPLREQ DURING PROCESSING OF THE FUNCTION. 09347500 RPLCHECK EQU X'02' CHECK 09348900 RPLENDRE EQU X'04' ENDREQ 09350300 RPLVERIF EQU X'06' VERIFY 09351700 RPLIMPRT EQU X'07' IMPORT 09353100 RPLPFMTD EQU X'08' DATA PREFORMAT 09354500 RPLPFMTI EQU X'09' INDEX PREFORMAT 09355900 RPLFRCIO EQU X'0A' FORCE I/O 09357300 RPLCNVTA EQU X'10' CNVTAD @ZA37315 09358700 RPLMNTAC EQU X'11' MNTACQ(VSAM) @ZA37315 09358900 RPLWRITE EQU X'11' WRITE(VTAM) X03004 09359100 RPLACQRA EQU X'12' ACQRANGE(VSAM) @ZA37315 09359300 RPLRESET EQU X'12' RESET(VTAM) X03004 09360100 RPLTERM EQU X'13' TERMRPL @ZA32757 09360800 RPLDO EQU X'13' DO(VTAM) X03004 09361500 RPLQUISE EQU X'15' SETLOGON(VTAM) X03004 09362900 RPLSMLGO EQU X'16' SIMLOGON(VTAM) X03004 09364300 RPLOPNDS EQU X'17' OPNDST(VTAM) X03004 09365700 RPLCHNG EQU X'19' CHANGE(VTAM) X03004 09367100 RPLINQIR EQU X'1A' INQUIRE(VTAM) X03004 09368500 RPLINTPT EQU X'1B' INTRPRET(VTAM) X03004 09369900 RPLREAD EQU X'1D' READ(VTAM) X03004 09370300 RPLSLICT EQU X'1E' SOLICIT(VTAM) X03004 09370700 RPLCLOSE EQU X'1F' CLSDST(VTAM) X03004 09371100 RPLCLACB EQU X'21' CLOSEACB(VTAM) X03004 09371900 RPLSNDCD EQU X'22' SEND(VTAM) X3004BS 09373900 RPLRCVCD EQU X'23' RECEIVE(VTAM) X3004BS 09375900 RPLRSRCD EQU X'24' RESETSR(VTAM) X3004BS 09377900 RPLSSCCD EQU X'25' SESSIONC(VTAM) X3004BS 09378300 RPLSDCMD EQU X'27' SENDCMD(VTAM) @Z40BHUC 09382500 RPLRVCMD EQU X'28' RCVCMD(VTAM) @Z40BHUC 09383000 RPLTREQS EQU X'29' REQSESS(VTAM) @G40AKCM 09383500 RPLTOPNS EQU X'2A' OPNSEC(VTAM) @G40AKCM 09383900 RPLTCLSS EQU X'2B' CLSSEC(VTAM) @G40AKCM 09384300 RPLTRMS EQU X'2C' TRMSESS(VTAM) @G40AKCM 09384700 RPLLEN DS 0XL1 LENGTH OF THIS RPL 09385600 RPLLEN2 DS XL1 ALTERNATE NAME FOR 09389200 * RPLLEN X03004 09399200 RPLPLHPT DS A POINTER TO PLACEHOLDER 09400000 RPLECB DS A INTERNAL ECB OR 09500000 * POINTER TO EXTERNAL ECB 09506000 * ECB FLAGS 09520000 RPLWAIT EQU X'80' A REQUEST HAS BEEN 09550000 * ISSUED 09560000 RPLPOST EQU X'40' THE REQUEST HAS 09600000 * COMPLETED 09602000 RPLFDBWD DS 0XL4 FEEDBACK WORD X04SVHS 09604000 RPLSTAT DS XL1 CURRENT RPL STATUS 09610000 RPLFUNCD EQU RPLSTAT PROB DET FUNCT CD @ZA42006 09630000 RPLFDBK DS 0XL3 ERROR FEEDBACK 09650000 RPLRTNCD DS 0XL1 RPL RETURN CODE 09700000 RPLNOERR EQU X'00' NORMAL RETURN 09710000 RPLBLKER EQU X'04' INVALID CONTROL BLOCK 09730000 RPLCBLKE EQU X'04' ALTERNATE NAME FOR 09732000 * RPLBLKER X03004 09732400 RPLLOGER EQU X'08' ILLOGICAL REQUEST 09734000 RPLLOGIC EQU X'08' ALTERNATE NAME FOR 09740000 * RPLLOGER X03004 09740400 RPLPHYER EQU X'0C' PHYSICAL I/O ERROR 09742000 RPLPHYSC EQU X'0C' ALTERNATE NAME FOR 09742400 * RPLPHYER X03004 09742500 RPLNGRCC EQU X'10' A CONDITIONAL COMMAND 09742800 * WAS ISSUED BUT THE 09742900 * CONDITION WAS NOT 09743000 * MET(VTAM) X03004 09743100 RPLSPECC EQU X'14' A TEMPORARY OUT-OF-CORE 09743200 * SITUATION EXISTS(VTAM) 09743300 * X03004 09743400 RPLCMDRT EQU X'18' THE REQUEST WAS 09743600 * CANCELLED BY THE RESET 09743700 * COMMAND(VTAM) X03004 09743800 RPLPURGE EQU X'1C' THE COMMAND WAS 09744000 * PURGED(VTAM) X03004 09744900 RPLVTMNA EQU X'20' VTAM IS NOT ACTIVE(VTAM) 09747400 * X03004 09747800 RPLSYERR EQU X'24' SYSTEM ERROR(VTAM)X03004 09748500 RPLDEVDC EQU X'28' DIAL LINE IS 09749600 * DISCONNECTED(VTAM)X03004 09750000 RPLLIMEX EQU X'2C' RESPONSE LIMIT 09750400 * EXCEEDED(VTAM) X3004BS 09750500 RPLEXRQ EQU X'30' EXCEPTION REQUEST 09750600 * RECEIVED(VTAM) X3004BS 09759700 RPLEXRS EQU X'34' EXCEPTION RESPONSE 09761700 * RECEIVED(VTAM) X3004BS 09763700 RPLNOIN EQU X'38' NO INPUT 09765700 * AVAILABLE(VTAM) X3004BS 09767700 RPLVABND EQU X'3C' VTAM ENCOUNTERED ABEND 09768100 * CONDITION @XM08790 09768500 RPLERREG DS XL1 ALTERNATE NAME FOR 09769300 * RPLRTNCD 09778400 RPLCNDCD DS 0XL2 RPL CONDITION CODE 09787500 RPLCMPON DS 0XL1 COMPONENT ISSUING 09796600 * CODE(VSAM) 09805700 RPLFDB2 DS XL1 REASON CODE(VTAM) X03004 09814800 RPLERLK EQU X'80' ERROR LOCK SET X03004 10052100 RPLRVID EQU X'40' RVI RECEIVED X03004 10054100 RPLATND EQU X'20' ATTN RECEIVED X03004 10056100 RPLDVUNS EQU X'10' DEVICE UNUSABLE X03004 10058100 RPLIOERR EQU X'08' I/O ERROR TYPE- 0=INPUT/ 10060100 * 1=OUTPUT X03004 10060200 RPLDLGFL EQU X'04' DIALOG INIT FAILED 10060500 * X03004 10060600 RPLCUERR EQU X'02' CONTROL UNIT FAILURE 10060700 * X03004 10070700 RPLSTSAV EQU X'01' SENSE BYTES PRESENT 10110600 * X03004 10120600 RPLERRCD DS 0XL1 ERROR CODE(VSAM) 10123100 RPLFDB3 DS XL1 DATA FLAGS(VTAM) X03004 10125000 RPLUINPT EQU X'80' UNSOLICITED INPUT X03004 10126900 RPLSV32 EQU X'40' RESERVED X03004 10128800 RPLREOB EQU X'20' END OF BLOCK X03004 10130700 RPLREOM EQU X'10' END OF MESSAGE X03004 10142300 RPLREOT EQU X'08' END OF TRANSMISSION 10153900 * X03004 10163900 RPLLGFRC EQU X'04' LOGOFF DETECTED X03004 10203900 RPLRLG EQU X'02' LEADING GRAPHICS 10253900 * RECEIVED X03004 10303900 RPLRDSOH EQU X'01' START OF HEADER (SOH) 10313900 * RECEIVED X03004 10323900 RPLKEYLE DS 0H KEY LENGTH (PROC=GEN) 10364400 RPLKEYL DS H ALTERNATE NAME FOR 10373300 * RPLKEYLE 10382200 RPLSTRID DS H CCW STRING IDENTIFIER 10391100 RPLCCHAR DS A POINTER TO CONTROL 10400000 * CHARACTER FOR UNIT 10420000 * RECORD DEVICES 10440000 RPLDACB DS A POINTER TO DATA ACB 10850000 RPLTCBPT DS A POINTER TO TCB 10860000 RPLAREA DS A POINTER TO AREA 11000000 * CONTAINING DATA RECORD 11050000 RPLARG DS 0A POINTER TO SEARCH 11100000 * ARGUMENT; POINTER TO 11102000 * RELATIVE ADDRESS FOR 11104000 * POINT OPERATION; POINTER 11106000 * TO SETPRT PARMLIST 11108000 RPLSAF DS XL2 SOURCE ADDRESS 11110000 * FIELD(VTAM) X03004 11120000 RPLDAF DS XL2 DESTINATION ADDRESS 11130000 * FIELD(VTAM) X03004 11142000 RPLOPTCD DS 0BL4 OPTION CODES 11150000 RPLOPT1 DS BL1 OPTION BYTE 1 11200000 RPLLOC EQU X'80' LOCATE MODE; MOVE MODE 11250000 * IF 0 11260000 RPLDIR EQU X'40' DIRECT ACCESS 11300000 RPLSEQ EQU X'20' SEQUENTIAL ACCESS 11450000 RPLSKP EQU X'10' SKIP SEQUENTIAL ACCESS 11470000 RPLASY EQU X'08' ASYNCHRONOUS PROCESSING 11500000 RPLKGE EQU X'04' SEARCH KEY GT/EQ 11509000 RPLGEN EQU X'02' GENERIC KEY REQUEST 11518000 RPLECBSW EQU X'01' EXTERNAL ECB 11527000 RPLECBIN EQU X'01' ALTERNATE NAME FOR 11529000 * RPLECBSW X03004 11531000 RPLOPT2 DS BL1 OPTION BYTE 2 11536000 RPLKEY EQU X'80' KEYED ACCESS 11554000 RPLADR EQU X'40' ADDRESSED ACCESS 11563000 RPLADD EQU X'40' ALTERNATE NAME FOR 11565000 * RPLADR 11567000 RPLCNV EQU X'20' CONTROL INTERVAL ACCESS 11572000 RPLBWD EQU X'10' FWD=0/BWD=1 X04SVHS 11574000 RPLLRD EQU X'08' ARD=0/LRD=1 X04SVHS 11576000 RPLWAITX EQU X'04' AYNCH PROC WAIT @ZA07549 11578000 RPLUPD EQU X'02' UPDATE 11581000 RPLNSP EQU X'01' NOTE STRING POSITION 11590000 RPLOPT3 DS BL1 OPTION BYTE 3 11950000 RPLEODS EQU X'80' END OF USER SYSOUT 12000000 RPLSFORM EQU X'40' SPECIAL FORM ON REMOTE 12050000 * PRINTER 12100000 RPLBLK EQU X'20' BLOCKED UCS DATA CHECKS 12150000 * FIXED BLOCK PROCESSING 12160000 RPLVFY EQU X'10' VERIFY UCS/FCB 12200000 * INFORMATION 12210000 RPLFLD EQU X'08' LOAD UCS BUFFER IN 12250000 * FOLD MODE 12260000 RPLFMT EQU X'02' FCB LOAD 12300000 RPLFRMT EQU X'06' UCS LOAD IF 00 12310000 RPLALIGN EQU X'01' ALIGN FCB BUFFER LOADING 12350000 RPLOPT4 DS BL1 OPTCD BYTE 4 12400000 RPLENDTR EQU X'80' 3800 END OF TRANSMISSION 12450000 * @Z40SVHS 12460000 RPLMKFRM EQU X'40' 3800 MARK FORM @Z40SVHS 12470000 RPLNXTRP DS 0A POINTER TO NEXT RPL 12500000 RPLCHAIN DS A ALTERNATE NAME FOR 12550000 * RPLNXTRP 12600000 RPLRLEN DS A LENGTH OF RECORD 12800000 RPLBUFL DS A USER BUFFER LENGTH 12810000 RPLOPTC2 DS 0XL4 VTAM OPTIONS X03004 12860000 RPLOPT5 DS XL1 OPTION BYTE 5 X03004 12870000 RPLDLGIN EQU X'80' CONTINUE READING IN 12880000 * SPECIFIC TERMINAL MODE; 12882000 * IF 0, CONTINUE READING 12884000 * IN ANY TERMINAL MODE 12886000 * X03004 12888000 RPLSSNIN EQU X'40' CONTINUE DIALOG WITH THE 12890000 * SAME TERMINAL; IF 0, END 12890400 * DIALOG WITH THAT 12890800 * TERMINAL X03004 12891200 RPLPSOPT EQU X'20' PASS TERMINAL TO 12892000 * REQUESTING APPLICATION; 12892100 * IF 0, MAKE TERMINAL 12892200 * AVAILABLE TO ANY 12892300 * APPLICATION X03004 12892400 RPLNERAS EQU X'10' WRITE TO 3270 BUT DO NOT 12894000 * ERASE WHAT IS CURRENTLY 12894400 * DISPLAYED X03004 12894800 RPLEAU EQU X'08' WRITE TO 3270 AND ERASE 12896000 * UNPROTECTED FIELDSX03004 12896400 RPLERACE EQU X'04' WRITE TO 3270 AND ERASE 12898000 * CURRENT DISPLAY X03004 12898100 RPLNODE EQU X'02' READ FROM ANY TERMINAL; 12898400 * IF 0, READ FROM A 12898500 * SPECIFIC TERMINAL X03004 12898600 RPLWROPT EQU X'01' CONVERSATIONAL MODE; 12898800 * IF 0, NON-CONVERSATIONAL 12898900 * MODE X03004 12899000 RPLOPT6 DS XL1 OPTION BYTE 6 X03004 12899200 RPLEOB EQU X'80' WRITE A BLOCK OF DATA 12899600 * X03004 12903000 RPLEOM EQU X'40' WRITE THE LAST BLOCK 12906400 * OF A MESSAGE X03004 12908400 RPLEOT EQU X'20' WRITE THE LAST BLOCK 12909800 * OF THE TRANSMISSION 12911800 * X03004 12912200 RPLCOND EQU X'10' DO NOT STOP OPERATION 12913200 * IF STARTED (USED WITH 12915200 * RESET REQUEST) X03004 12915600 RPLNCOND EQU X'08' STOP OPERATION 12916600 * IMMEDIATELY (USED WITH 12918600 * RESET REQUEST) X03004 12920600 RPLLOCK EQU X'04' RESET ERROR LOCK TO 12926600 * UNLOCKED STATUS X03004 12927000 RPLRSV67 EQU X'02' RESERVED X03004 12928600 RPLRSV68 EQU X'01' RESERVED X03004 12930600 RPLOPT7 DS XL1 OPTION BYTE 7 X03004 12932600 RPLCNALL EQU X'80' ALL TERMINALS IN OPNDST 12933000 * LIST MUST BE AVAILABLE 12934100 * BEFORE ANY ARE CONNECTED 12936100 * X03004 12936500 RPLCNANY EQU X'40' CONNECT ANY ONE TERMINAL 12936600 * IN OPNDST LIST X03004 12937000 RPLCNIMM EQU X'20' RESERVED X03004 12937700 RPLQOPT EQU X'10' QUEUE THE OPNDST REQUEST 12939900 * IF IT CANNOT BE 12940300 * SATISFIED IMMEDIATELY; 12940700 * IF 0, REJECT THE OPNDST 12940800 * REQUEST IF IT CANNOT BE 12940900 * SATISFIED IMMEDIATELY 12941200 * X03004 12941600 RPLTPOST EQU X'08' RPL ALREADY UNDER PSS 12942600 * @XM08790 12942700 RPLRLSOP EQU X'04' SCHEDULE THE RELREQ EXIT 12942900 * OF THE REQUIRED TERMINAL 12943000 * IMMEDIATELY; IF 0, 12943100 * EITHER WAIT FOR THE 12943200 * TERMINAL TO BECOME 12943600 * AVAILABLE OR REJECT THE 12943700 * REQUEST IF THE TERMINAL 12944100 * IS BUSY(DEPENDS ON THE 12944200 * SETTING OF RPLQOPT) 12944500 * X03004 12945600 RPLTCRNO EQU X'02' CLOSE IN PROCESS FOR PO 12946000 * INTERFACE @Z40BHUC 12946100 RPLRSV78 EQU X'01' RESERVED X03004 12946400 RPLOPT8 DS XL1 OPTION BYTE 8 X03004 12946800 RPLODACQ EQU X'80' THE APPLICATION REQUIRES 12947200 * A SPECIFIC TERMINAL 12947600 * X03004 12948000 RPLODACP EQU X'40' THE APPLICATION WILL 12948400 * ACCEPT ANY TERMINAL 12948800 * DESIRING LOGON X03004 12949200 RPLODPRM EQU X'20' A SPECIFIC TERMINAL IS 12949600 * TO BE PREEMPTED EVEN 12950000 * THOUGH ANOTHER 12952000 * APPLICATION IS HOLDING 12953000 * IT (TOLTEP ONLY) X03004 12955000 RPLPEND EQU X'10' PREEMPT THE TERMINAL 12957700 * AFTER ALL PENDING 12962000 * OPERATIONS ARE COMPLETED 12962100 * (TOLTEP ONLY) X03004 12962200 RPLSESS EQU X'08' PREEMPT THE TERMINAL 12962400 * AFTER COMPLETION OF THE 12964400 * CURRENT DIALOG SESSION 12966400 * (TOLTEP ONLY) X03004 12966800 RPLACTV EQU X'04' PREEMPT THE TERMINAL IF 12967100 * CONNECTED BUT NOT BUSY 12969100 * (TOLTEP ONLY) X03004 12971100 RPLUNCON EQU X'02' PREEMPT THE TERMINAL 12971800 * IMMEDIATELY 12973800 * (TOLTEP ONLY) X03004 12975800 RPLRSV88 EQU X'01' RESERVED X03004 12976500 RPLRBAR DS 0CL8 RBA RETURN LOCATION 12981200 RPLAIXPC DS CL2 AIX POINTER COUNTX04SVHS 12983200 RPLAIXID DS XL1 AIX POINTER TYPE X04SVHS 12997300 RPLAXPKP EQU X'80' RBA=1/PRIME=0 12999300 DS XL1 RESERVED X04SVHS 13000000 RPLDDDD DS CL4 RETURN AREA FOR 13050000 * RELATIVE BYTE ADDRESS 13060000 RPLEXTDS DS 0XL1 EXIT DEFINITIONS@Z9999DT 13100000 RPLEXTD1 DS XL1 ALTERNATE NAME FOR 13102000 * RPLEXTDS X03004 13102400 RPLEXSCH EQU X'80' AN EXIT HAS BEEN 13104000 * SCHEDULED X03004 13104100 RPLNEXIT EQU X'40' NO EXIT WAS SPECIFIED 13106000 * X03004 13106100 RPLEXIT EQU X'20' ASYNCH EXIT @XM01127 13106500 RPLTCRYP EQU X'08' IF ON, ENCRYPTION 13106800 * FEATURE REQ @G40AKSL 13107100 RPLNIB EQU X'04' THE RPLARG FIELD 13107600 * CONTAINS A POINTER 13117600 * TO THE NIB X03004 13119600 RPLBRANC EQU X'02' USE A BRANCH ENTRY 13124800 * TO THE MACRO X03004 13126800 RPLACTIV DS XL1 ACTIVE INDICATOR - 13141600 * X'FF' INDICATES ACTIVE; 13143600 * X'00' INDICATES INACTIVE 13145600 * X03004 13147600 RPLEMLEN DS H LENGTH OF THE ERROR 13150000 * MESSAGE AREA 13200000 RPLERMSA DS A POINTER TO THE ERROR 13250000 * MESSAGE AREA 13260000 IFGRPLVS AM=&AM GET VSAM @ZA34940 13320000 * EXTENSION @ZA34940 13370000 MEND 13420000 * END OF RPL */ 13470000 *%RPLBSL2: ; 13520000