*%GOTO RPLEXTPL; 00050000 * /* */ 00100000 * /* CHANGE LEVEL = 0 @ZA34940*/ 00150000 * /* DATE OF LAST CHANGE = 13 OCT 78 ( 78*317 ) @ZA34940*/ 00200000 * /* */ 00250000 * /******************************************************************/ 00300000 * /* */ 00350000 * /* RPL VTAM EXTENSION */ 00400000 * /* */ 00450000 * /* THE EXTENSION DESCRIBES CONTROL DATA THAT ONLY @ZA34940*/ 00500000 * /* VTAM USES. IT IS CALLED BY THE VSAM EXTENSION @ZA34940*/ 00550000 * /* MACRO (IFGRPLVS) UNDER THE FOLLOWING CONDITIONS: @ZA34940*/ 00600000 * /* */ 00650000 * /* PLS: THE MODULE CONTAINING AN INCLUDE FOR IFGRPL SETS */ 00700000 * /* THE MACRO VARIABLE 'ACBRPLXL' TO 'VTAM' PRIOR */ 00750000 * /* TO ISSUING THE INCLUDE. */ 00800000 * /* BAL: THE AM=VTAM PARAMETER IS CODED ON THE MACRO */ 00850000 * /* CALL. */ 00900000 * /* */ 00950000 * /* CHANGE ACTIVITY */ 01000000 * /* A87886,87986,104886 @ZM31226*/ 01050000 * /* CBMM SPLIT SUPPORT @ZA34940*/ 01100000 * /* */ 01150000 * /* */ 01200000 * /******************************************************************/ 01250000 * /* */ 01300000 *%RPLEXTPL: ; 01350000 * 2 RPLVTEXT, /* START OF EXTENSION */ 01400000 * 3 RPLAAREA PTR(31), /* ALTERNATE AREA ADDR 01450000 * X03004*/ 01500000 * 3 RPLAARLN PTR(31), /* ALTERNATE AREA LENGTH 01550000 * X03004*/ 01600000 * 3 RPLARCLN PTR(31), /* ALTERNATE RECORD 01650000 * LENGTH X03004*/ 01700000 * 3 RPLFDBK2 BIT(32), /* FEED BACK WORD 2 01750000 * X03004*/ 01800000 * 5 RPLSSNSI BIT(16), /* SYSTEM SENSE 01850000 * INPUT X03004JS*/ 01900000 * 6 RPLDSB BIT(16), /* DEVICE STATUS BYTES 01950000 * X03004JS*/ 02000000 * 7 RPLDSB1 BIT(8), /* DEVICE STATUS BYTE 1 02050000 * X03004JS*/ 02100000 * 8 RPLSSEI BIT(8), /* SYSTEM SENSE ERROR 02150000 * CODES X03004JS*/ 02200000 * 9 RPLPATHI BIT(1),/* SSENSEI PATH X03004JS*/ 02250000 * 9 RPLCPMI BIT(1),/* SSENSEI CPM X03004JS*/ 02300000 * 9 RPLSTATI BIT(1),/* SSENSEI STATEX03004JS*/ 02350000 * 9 RPLFII BIT(1),/* SSENSEI FI X03004JS*/ 02400000 * 9 RPLRRI BIT(1),/* SSENSEI RR X03004JS*/ 02450000 * 9 * BIT(3),/* RESERVED FOR VTAM 02500000 * X03004JS*/ 02550000 * 7 RPLDSB2 BIT(8), /* DEVICE STATUS BYTE 2 02600000 * X03004JS*/ 02650000 * 8 RPLSSMI PTR(8), /* SYSTEM SENSE MODIFIER 02700000 * INPUT X03004HS*/ 02750000 * 5 RPLUSNSI PTR(16), /* USER SENSE 02800000 * INPUT X03004HS*/ 02850000 * 6 RPLESR1 BIT(8), /* EXTENDED SYSTEM 02900000 * RESPONSE 1 X03004JS*/ 02950000 * 6 RPLESR2 BIT(8), /* EXTENDED SYSTEM 03000000 * RESPONSE 2 X03004JS*/ 03050000 * 3 RPLUSFLD BIT(32), /* USER FIELD X03004*/ 03100000 * 3 RPLOPTC3 BIT(32), /* VTAM OPTIONS X03004*/ 03150000 * 4 RPLOPT9 BIT(8), /* OPTION BYTE 9 X03004*/ 03200000 * 5 RPLLOGON BIT(1), /* INQ LOGON MSG X03004*/ 03250000 * 5 RPLDEVCH BIT(1), /* INQ DEVICE CHARX03004*/ 03300000 * 5 RPLTERMS BIT(1), /* INQ TERMS X03004*/ 03350000 * 5 RPLCOUNT BIT(1), /* INQ COUNTS X03004*/ 03400000 * 5 RPLAPPST BIT(1), /* INQ APPSTAT X03004*/ 03450000 * 5 RPLRNNM BIT(1), /* INQ RNNAME X03004*/ 03500000 * 5 RPLCIDE BIT(1), /* INQ CIDXLATE X03004*/ 03550000 * 5 RPLTOPL BIT(1), /* INQ TOP LOGON X03004*/ 03600000 * 4 RPLOPT10 BIT(8), /* OPTION BYTE 10 X03004*/ 03650000 * 5 RPLBSCID BIT(1), /* INQ BSC ID X03004*/ 03700000 * 5 RPLDSPLY BIT(1), /* INQ DISPLAY X03004*/ 03750000 * 5 RPLSPARM BIT(1), /* INQ SESSPARM @Z40BHUC*/ 03800000 * 5 RPLTSKY BIT(1), /* INQ SESSKEY @G40AKSL*/ 03850000 * 5 RPLRSVI3 BIT(1), /* RESERVED X03004*/ 03900000 * 5 RPLRSVI4 BIT(1), /* RESERVED X03004*/ 03950000 * 5 RPLRSVI5 BIT(1), /* RESERVED X03004*/ 04000000 * 5 RPLRSVI6 BIT(1), /* RESERVED X03004*/ 04050000 * 4 RPLOPT11 BIT(8), /* OPTION BYTE 11 X03004*/ 04100000 * 5 RPLQUIES BIT(1), /* SETLOGON QUIESCE 04150000 * X03004*/ 04200000 * 5 RPLSTART BIT(1), /* SETLOGON START X03004*/ 04250000 * 5 RPLSTOP BIT(1), /* SETLOGON STOP X03004*/ 04300000 * 5 RPLRSVE4 BIT(1), /* RESERVED X03004*/ 04350000 * 5 RPLRSVE5 BIT(1), /* RESERVED X03004*/ 04400000 * 5 RPLRSVE6 BIT(1), /* RESERVED X03004*/ 04450000 * 5 RPLRSVE7 BIT(1), /* RESERVED X03004*/ 04500000 * 5 RPLRSVE8 BIT(1), /* RESERVED X03004*/ 04550000 * 4 RPLOPT12 BIT(8), /* OPTION BYTE 12 X03004*/ 04600000 * 5 * BIT(1), /* RESERVED @Z40BHUC*/ 04650000 * 5 RPLKEEP BIT(1), /* RECEIVE KEEP X3004BH*/ 04700000 * 5 RPLTRUNC BIT(1), /* RECEIVE TRUNC X3004BH*/ 04750000 * 5 RPLNIBTK BIT(1), /* RECEIVE NIBTK X3004BH*/ 04800000 * 5 * BIT(1), /* RESERVED @Z40BHUC*/ 04850000 * 5 * BIT(1), /* RESERVED @Z40BHUC*/ 04900000 * 5 * BIT(1), /* RESERVED @Z40BHUC*/ 04950000 * 5 RPLFMHDR BIT(1), /* 0=NFMHDR/1=FMHDR 05000000 * X03004JS*/ 05050000 * 3 RPLOSENS BIT(32), /* SENSE OUTPUT 05100000 * DATA X3004BH*/ 05150000 * 4 RPLSSNSO BIT(16), /* SYSTEM SENSE 05200000 * OUTPUT X3004BH*/ 05250000 * 5 RPLSSEO BIT(8), /* SYSTEM SENSE ERROR CODES 05300000 * X03004JS*/ 05350000 * 6 * BIT(1), /* RESERVED FOR VTAM 05400000 * X03004JS*/ 05450000 * 6 RPLCPMO BIT(1), /* SSENSEO CPM X03004JS*/ 05500000 * 6 RPLSTATO BIT(1), /* SSENSEO STATE X03004JS*/ 05550000 * 6 RPLFIO BIT(1), /* SSENSEO FI X03004JS*/ 05600000 * 6 RPLRRO BIT(1), /* SSENSEO RR X03004JS*/ 05650000 * 6 * BIT(3), /* RESERVED FOR VTAM 05700000 * X03004JS*/ 05750000 * 5 RPLSSMO PTR(8), /* SYSTEM SENSE MODIFIER 05800000 * OUTPUT X03004HS*/ 05850000 * 4 RPLUSNSO PTR(16), /* USER SENSE 05900000 * OUTPUT @Y30ASHS*/ 05950000 * 3 RPLSAV13 PTR(31), /* SAVE AREA FOR VTAM 06000000 * FAST PATH @Y30ASHS*/ 06050000 * 3 RPLSIGDA PTR(31); /* SIGNAL DATA FIELD 06100000 * @Z40BHUC*/ 06150000 * DCL 1 RPLOF16 BASED(ADDR(RPLKEYLE)), /* BASE AT OFFSET 06200000 * 16 X3004BH*/ 06250000 * 2 RPLRH3 BIT(8), /* THIRD RH BYTE X3004BH*/ 06300000 * 3 RPLBB BIT(1), /* BRACKET - 0=NBB/1=BB 06350000 * X03004JS*/ 06400000 * 3 RPLEB BIT(1), /* BRACKET - 0=NEB/1=EB 06450000 * X03004JS*/ 06500000 * 3 RPLCMD BIT(1), /* CHNGDIR - 06550000 * 0=NCMD/1=CMD X3004BH*/ 06600000 * 3 RPLCHREQ BIT(1), /* CHNGDIR - 06650000 * 0=NREQ/1=REQ X3004BH*/ 06700000 * 3 RPLCSI BIT(1), /* 0=STANDARD - CODESEL 06750000 * 1=ALT @Z40BHUC*/ 06800000 * 3 * BIT(3), /* RESERVED FOR 06850000 * VTAM X3004BH*/ 06900000 * 2 RPLSRTYP BIT(8), /* SEND OR RECEIVE 06950000 * TYPE X3004BH*/ 07000000 * 3 RPLSTYPE BIT(4), /* SEND TYPE X3004BH*/ 07050000 * 4 RPLSRESP BIT(1), /* STYPE - 07100000 * 0=REQ/1=RESP X3004BH*/ 07150000 * 4 * BIT(3), /* RESERVED FOR 07200000 * VTAM X3004BH*/ 07250000 * 3 RPLRTYPE BIT(4), /* RECEIVE TYPE X3004BH*/ 07300000 * 4 RPLRRESP BIT(1), /* RTYPE - 0=NRESP/ 07350000 * 1=RESP X3004BH*/ 07400000 * 4 RPLNFSYN BIT(1), /* RTYPE - 0=DFSYN/ 07450000 * 1=NDFSYN X3004BH*/ 07500000 * 4 RPLDFASY BIT(1), /* RTYPE - 0=NDFASY/ 07550000 * 1=DFASY X3004BH*/ 07600000 * 4 * BIT(1), /* RESERVED @Z40BHUC*/ 07650000 * 2 RPLCHN BIT(8), /* POSITION IN RU 07700000 * CHAIN X3004BH*/ 07750000 * 3 RPLFIRST BIT(1), /* CHAIN FIRST X3004BH*/ 07800000 * 3 RPLMIDLE BIT(1), /* CHAIN MIDDLE X3004BH*/ 07850000 * 3 RPLLAST BIT(1), /* CHAIN LAST X3004BH*/ 07900000 * 3 RPLONLY BIT(1), /* CHAIN ONLY X3004BH*/ 07950000 * 3 * BIT(4), /* RESERVED FOR 08000000 * VTAM X3004BH*/ 08050000 * 2 RPLVTFL1 BIT(8), /* VTAM FLAGS X3004BH*/ 08100000 * 3 * BIT(1), /* RESERVED @Z40BHUC*/ 08150000 * 3 RPLVTUSE BIT(1), /* 0=APPL/1=SYSTEMX3004BH*/ 08200000 * 3 RPLAUTUS BIT(1), /* VTAM FAST PATH@Y30ASHS*/ 08250000 * 3 RPLTNDSP BIT(1), /* 1=DOMAIN REQ @G40AKCM*/ 08300000 * 3 RPLTLGAC BIT(1), /* 1=LOGON ACCOMPLISHED 08350000 * @G40AKCM*/ 08400000 * 3 * BIT(3), /* RESERVED FOR 08450000 * VTAM @G40AKCM*/ 08500000 * 2 RPLVTFL2 BIT(8), /* POST/RESPOND 08550000 * FLAGS X3004BH*/ 08600000 * 3 RPLPOSTV BIT(4), /* POST FLAGS X3004BH*/ 08650000 * 4 RPLSCHED BIT(1), /* POST - 08700000 * 0=RESP/1=SCHED X3004BH*/ 08750000 * 4 * BIT(3), /* RESERVED FOR 08800000 * VTAM X3004BH*/ 08850000 * 3 RPLRESP BIT(4), /* RESPOND FLAGS X3004BH*/ 08900000 * 4 RPLQRI BIT(1), /* RESPOND - 08950000 * 0=NQREQ/1=QREQ @G40AKSL*/ 09000000 * 4 RPLEX BIT(1), /* RESPOND - 09050000 * 0=NEX/1=EX X3004BH*/ 09100000 * 4 RPLNFME BIT(1), /* RESPOND - 09150000 * 0=FME/1=NFME X3004BH*/ 09200000 * 4 RPLRRN BIT(1), /* RESPOND - 09250000 * 0=NRRN/1=RRN X3004BH*/ 09300000 * 2 RPLCNTRL CHAR(3), /* RU CONTROL 09350000 * CODES X3004BH*/ 09400000 * 3 RPLCNTDF BIT(8), /* DATA FLOW CONTROL 09450000 * CODES X3004BH*/ 09500000 * 4 RPLDATA BIT(1), /* CONTROL DATA X3004BH*/ 09550000 * 4 RPLCNCEL BIT(1), /* CONTROL CANCEL X3004BH*/ 09600000 * 4 RPLQC BIT(1), /* CONTROL QC X3004BH*/ 09650000 * 4 RPLQEC BIT(1), /* CONTROL QEC X3004BH*/ 09700000 * 4 RPLCHASE BIT(1), /* CONTROL CHASE X3004BH*/ 09750000 * 4 RPLRELQ BIT(1), /* CONTROL RELQ X3004BH*/ 09800000 * 4 RPLQI BIT(1), /* RESERVED FOR 09850000 * VTAM X03004JS*/ 09900000 * 4 * BIT(1), /* RESERVED FOR 09950000 * VTAM X3004BH*/ 10000000 * 3 RPLCNTDC BIT(8), /* DATA FLOW CONTROL CTD 10050000 * X03004JS*/ 10100000 * 4 RPLBID BIT(1), /* CONTROL BID X03004JS*/ 10150000 * 4 RPLRTR BIT(1), /* CONTROL RTR X03004JS*/ 10200000 * 4 RPLLUS BIT(1), /* CONTROL LUS X03004JS*/ 10250000 * 4 RPLSIGNL BIT(1), /* CONTROL SIGNALX03004JS*/ 10300000 * 4 RPLTBIND BIT(1), /* CONTROL BIND @G40AKSL*/ 10350000 * 4 RPLTUNBD BIT(1), /* CONTROL UNBIND@G40AKSL*/ 10400000 * 4 RPLSBI BIT(1), /* CONTROL SBI @G40AKSL*/ 10450000 * 4 RPLBIS BIT(1), /* CONTROL BIS @G40AKSL*/ 10500000 * 3 RPLCNTSC BIT(8), /* SESSION CONTROL 10550000 * CODES X3004BH*/ 10600000 * 4 RPLSDT BIT(1), /* CONTROL SDT X3004BH*/ 10650000 * 4 RPLCLEAR BIT(1), /* CONTROL CLEAR X3004BH*/ 10700000 * 4 RPLSTSN BIT(1), /* CONTROL STSN X3004BH*/ 10750000 * 4 RPLSHUTD BIT(1), /* CONTROL SHUTD X3004BH*/ 10800000 * 4 RPLSHUTC BIT(1), /* CONTROL SHUTC X3004BH*/ 10850000 * 4 RPLRQR BIT(1), /* CONTROL RQR X3004BH*/ 10900000 * 4 RPLRSHUT BIT(1), /* CONTROL RSHUTDX03004JS*/ 10950000 * 4 * BIT(1); /* RESERVED FOR 11000000 * VTAM X03004JS*/ 11050000 * DCL 1 RPLOF60 BASED(ADDR(RPLRBAR)), /* BASE AT OFFSET 11100000 * 60 X3004BH*/ 11150000 * 2 RPLOBSQV FIXED(16), /* STSN OUTBOUND 11200000 * SEQ. NO. X3004BH*/ 11250000 * 2 RPLIBSQV FIXED(16), /* STSN INBOUND 11300000 * SEQ. NO. X3004BH*/ 11350000 * 2 RPLOBSQ BIT(8), /* STSN OUTBOUND ACTION 11400000 * CODES X3004BH*/ 11450000 * 3 RPLOSET BIT(1), /* OBSQAC SET X3004BH*/ 11500000 * 3 RPLOTST BIT(1), /* OBSQAC TESTSET X3004BH*/ 11550000 * 3 RPLORSET BIT(1), /* OBSQAC RESET X3004BH*/ 11600000 * 3 RPLOIGN BIT(1), /* OBSQAC IGNORE X3004BH*/ 11650000 * 3 RPLOPOS BIT(1), /* OBSQAC TESTPOS X3004BH*/ 11700000 * 3 RPLONEG BIT(1), /* OBSQAC TESTNEG X3004BH*/ 11750000 * 3 RPLOINV BIT(1), /* OBSQAC INVALID X3004BH*/ 11800000 * 3 * BIT(1), /* RESERVED FOR 11850000 * VTAM X3004BH*/ 11900000 * 2 RPLIBSQ BIT(8), /* STSN INBOUND ACTION 11950000 * CODES X3004BH*/ 12000000 * 3 RPLISET BIT(1), /* IBSQAC SET X3004BH*/ 12050000 * 3 RPLITST BIT(1), /* IBSQAC TESTSET X3004BH*/ 12100000 * 3 RPLIRSET BIT(1), /* IBSQAC RESET X3004BH*/ 12150000 * 3 RPLIIGN BIT(1), /* IBSQAC IGNORE X3004BH*/ 12200000 * 3 RPLIPOS BIT(1), /* IBSQAC TESTPOS X3004BH*/ 12250000 * 3 RPLINEG BIT(1), /* IBSQAC TESTNEG X3004BH*/ 12300000 * 3 RPLIINV BIT(1), /* IBSQAC INVALID X3004BH*/ 12350000 * 3 * BIT(1), /* RESERVED FOR 12400000 * VTAM X3004BH*/ 12450000 * 2 RPLSEQNO FIXED(16); /* SEQUENCE NUMBERX3004BH*/ 12500000 * DCL ISTRPL BASED (ADDR(IFGRPL)) /* ISTRPL LENGTH X03004*/ 12550000 * CHAR(LENGTH(IFGRPL)); 12600000 * %INCLUDE SYSLIB(ISTRPLFB) ; /* INCLUDE FEEDBACK CODES*/ 12650000 * /* MACRO X03004*/ 12700000 *%GOTO RPLEND; 12750000 * /* 12800000 * ASSEMBLER DSECT FOR RPL VTAM EXTENSION * 12850000 * * 12900000 MACRO 12950000 ISTRPLEX 13000000 RPLAAREA DS A POINTER TO THE ALTERNATE 13050000 * DATA AREA(VTAM) - INPUT 13100000 * AREA FOR DATA RECEIVED 13150000 * IN CONVERSATIONAL 13200000 * MODE X03004 13250000 RPLAARLN DS F ALTERNATE AREA 13300000 * LENGTH(VTAM) X03004 13350000 RPLARCLN DS F ALTERNATE RECORD 13400000 * LENGTH(VTAM) X03004 13450000 RPLFDBK2 DS 0XL4 FEEDBACK WORD TWO(VTAM) 13500000 * X03004 13550000 RPLSSNSI DS 0XL2 SYSTEM SENSE INPUT 13600000 * X3004BH 13650000 RPLDSB DS 0XL2 DEVICE STATUS BYTE(VTAM) 13700000 * X03004 13750000 RPLDSB1 DS 0XL1 DEVICE STATUS BYTE 1 13800000 * X03004JS 13850000 RPLSSEI DS XL1 SYSTEM SENSE ERROR CODES 13900000 * X03004JS 13950000 RPLPATHI EQU X'80' PATH ERROR X03004JS 14000000 RPLCPMI EQU X'40' CONNECTION POINT 14050000 * MANAGER ERROR X03004JS 14100000 RPLSTATI EQU X'20' STATE ERROR X03004JS 14150000 RPLFII EQU X'10' FUNCTION INTERPRETER 14200000 * ERROR X03004JS 14250000 RPLRRI EQU X'08' REQUEST REJECT X03004JS 14300000 RPLDSB2 DS 0XL1 DEVICE STATUS BYTE 2 14350000 * X03004JS 14400000 RPLSSMI DS XL1 SYSTEM SENSE MODIFIER 14450000 * INPUT X03004JS 14500000 RPLUSNSI DS 0XL2 USER SENSE INPUT X3004BH 14550000 RPLESR1 DS XL1 RESPONSE 1 FROM 3270 14600000 * CONTROL UNIT X03004 14650000 RPLESR2 DS XL1 RESPONSE 2 FROM 3270 14700000 * CONTROL UNIT X03004 14750000 RPLUSFLD DS XL4 USER FIELD(VTAM) - AT 14800000 * OPNDST TIME THE CONTENTS 14850000 * ARE SAVED FOR EACH 14900000 * TERMINAL AND RETURNED 14950000 * TO THE RPL ON COMPLETION 15000000 * OF ANY REQUEST FOR OR BY 15050000 * THAT TERMINAL X03004 15100000 RPLOPTC3 DS 0XL4 VTAM OPTIONS X03004 15150000 RPLOPT9 DS XL1 OPTION BYTE 9 X03004 15200000 RPLLOGON EQU X'80' PASS THE LOGON MESSAGE 15250000 * TO THE APPLICATIONX03004 15300000 RPLDEVCH EQU X'40' PASS THE DEVICE 15350000 * CHARACTERISTICS TO THE 15400000 * APPLICATION X03004 15450000 RPLTERMS EQU X'20' PASS THE SYMBOLIC NAME 15500000 * OF THE TERMINAL AND ITS 15550000 * CHARACTERISTICS TO 15600000 * THE APPLICATION X03004 15650000 RPLCOUNT EQU X'10' PASS THE NUMBER OF 15700000 * ACTIVE CONNECTIONS AND 15750000 * QUEUED LOGON REQUESTS 15800000 * TO THE APPLICATIONX03004 15850000 RPLAPPST EQU X'08' INDICATE THE APPLICATION 15900000 * STATUS X03004 15950000 RPLRNNM EQU X'04' INDICATE THE 3705 16000000 * SYMBOLIC NAME X03004 16050000 RPLCIDE EQU X'02' INDICATE THE SYMBOLIC 16100000 * NAME CORRESPONDING TO 16150000 * THE COMMUNICATION 16200000 * IDENTIFIER X03004 16250000 RPLTOPL EQU X'01' PASS THE SYMBOLIC NAME 16300000 * OF THE FIRST TERMINAL 16350000 * ON THE LOGON QUEUEX03004 16400000 RPLOPT10 DS XL1 OPTION BYTE 10 X03004 16450000 RPLBSCID EQU X'80' PASS THE HARDWARE 16500000 * IDENTIFIER OF A BINARY 16550000 * SYNCHRONOUS TERMINAL 16600000 * X03004 16650000 RPLDSPLY EQU X'40' DISPLAY INFORMATION FROM 16700000 * THE NETWORK OPERATOR 16750000 * CONTROL X03004 16800000 RPLSPARM EQU X'20' SESSPARM @Z40BHUC 16850000 RPLTSKY EQU X'10' SESSKEY @G40AKSL 16900000 RPLRSVI3 EQU X'08' RESERVED X03004 16950000 RPLRSVI4 EQU X'04' RESERVED X03004 17000000 RPLRSVI5 EQU X'02' RESERVED X03004 17050000 RPLRSVI6 EQU X'01' RESERVED X03004 17100000 RPLOPT11 DS XL1 OPTION BYTE 11 X03004 17150000 RPLQUIES EQU X'80' STOP ACCEPTING LOGONS 17200000 * AS THE APPLICATION IS 17250000 * PREPARING TO SHUTDOWN 17300000 * (USED WITH SETLOGON) 17350000 * X03004 17400000 RPLSTART EQU X'40' START ACCEPTING LOGONS 17450000 * WHICH WERE TEMPORARILY 17500000 * STOPPED X03004 17550000 RPLSTOP EQU X'20' STOP ACCEPTING LOGONS 17600000 * TEMPORARILY (USED WITH 17650000 * SETLOGON) X03004 17700000 RPLRSVE4 EQU X'10' RESERVED X03004 17750000 RPLRSVE5 EQU X'08' RESERVED X03004 17800000 RPLRSVE6 EQU X'04' RESERVED X03004 17850000 RPLRSVE7 EQU X'02' RESERVED X03004 17900000 RPLRSVE8 EQU X'01' RESERVED X03004 17950000 RPLOPT12 DS XL1 OPTION BYTE 12 X03004 18000000 RPLKEEP EQU X'40' KEEP OVERLENGTH DATA ON 18050000 * INPUT QUEUE X3004BH 18100000 RPLTRUNC EQU X'20' TRUNCATE OVERLENGTH 18150000 * DATA X3004BH 18200000 RPLNIBTK EQU X'10' USE KEEP OR TRUNCATE 18250000 * OPTION SET IN NIB AT 18300000 * OPENDST X3004BH 18350000 RPLFMHDR EQU X'01' 1=FUNCTION MANAGEMENT 18400000 * HEADER INCLUDED IN DATA 18450000 * STREAM X03004JS 18500000 RPLOSENS DS 0XL4 SENSE OUTPUT DATAX3004BH 18550000 RPLSSNSO DS 0XL2 SYSTEM SENSE OUTPUT 18600000 * X3004BH 18650000 RPLSSEO DS XL1 SYSTEM SENSE ERROR 18700000 * CODES X03004JS 18750000 RPLCPMO EQU X'40' CONNECTION POINT MANAGER 18800000 * ERROR X03004JS 18850000 RPLSTATO EQU X'20' STATE ERROR X03004JS 18900000 RPLFIO EQU X'10' FUNCTION INTERPRETER 18950000 * ERROR X03004JS 19000000 RPLRRO EQU X'08' REQUEST REJECT X03004JS 19050000 RPLSSMO DS XL1 SYSTEM SENSE MODIFIER 19100000 * CODES X03004JS 19150000 RPLUSNSO DS XL2 USER SENSE OUTPUTX3004BH 19200000 RPLSAV13 DS XL4 SAVE AREA FOR VTAM 19250000 * FAST PATH @ZM31226 19300000 RPLSIGDA DS XL4 SIGNAL DATA FLD @Z40BHUC 19350000 * END OF VTAM EXTENSION @Z40BHUC 19400000 ORG RPLKEYLE X3004BH 19450000 RPLRH3 DS XL1 THIRD REQUEST HEADER BYTEX3004BH 19500000 RPLBB EQU X'80' BEGIN BRACKET X03004JS 19550000 RPLEB EQU X'40' END BRACKET X03004JS 19600000 RPLCMD EQU X'20' CHANGE DIRECTION FROM SEND 19650000 * TO RECEIVE IMMEDIATELY X3004BH 19700000 RPLCHREQ EQU X'10' CHANGE DIRECTION FROM SEND 19750000 * TO RECEIVE IS REQUESTED X3004BH 19800000 RPLCSI EQU X'08' 0=STANDARD - CODESEL @Z40BHUC 19850000 * 1=ALTERNATE @Z40BHUC 19900000 RPLSRTYP DS XL1 SEND OR RECEIVE TYPE X3004BH 19950000 RPLSRESP EQU X'80' A RESPONSE IS BEING SENT; IF 0, 20000000 * A NEW REQUEST IS BEING SENT 20050000 * X3004BH 20100000 RPLRRESP EQU X'08' RECEIVE THE FIRST RESPONSE FROM 20150000 * THE RESPONSE QUEUE X3004BH 20200000 RPLNFSYN EQU X'04' IF 0, RECEIVE THE FIRST UNIT 20250000 * FROM THE DATA FLOW SYNCHRONOUS 20300000 * QUEUE X3004BH 20350000 RPLDFASY EQU X'02' RECEIVE THE FIRST UNIT FROM THE 20400000 * DATA FLOW ASYNCHRONOUS QUEUE 20450000 * X3004BH 20500000 RPLCHN DS XL1 POSITION IN REQUEST UNIT 20550000 * CHAIN X3004BH 20600000 RPLFIRST EQU X'80' FIRST IN RU CHAIN X3004BH 20650000 RPLMIDLE EQU X'40' AN INTERMEDIATE RU X3004BH 20700000 RPLLAST EQU X'20' LAST IN RU CHAIN X3004BH 20750000 RPLONLY EQU X'10' ONLY ONE RU IN CHAIN X3004BH 20800000 RPLVTFL1 DS XL1 VTAM FLAGS X3004BH 20850000 RPLVTUSE EQU X'40' THIS IS A VTAM SYSTEM RPL; IF 0, 20900000 * THIS IS A USER RPL X3004BH 20950000 RPLAUTUS EQU X'20' VTAM FAST PATH @ZM31226 21000000 RPLTNDSP EQU X'10' 1=DOMAIN REQUEST @G40AKCM 21050000 RPLTLGAC EQU X'08' 1=LOGON ACCOMPLISHED @G40AKCM 21100000 RPLVTFL2 DS XL1 POST/RESPOND FLAGS X3004BH 21150000 RPLSCHED EQU X'80' POST THE RPL WHEN THE REQUEST 21200000 * HAS BEEN SCHEDULED; IF 0, POST 21250000 * THE RPL WHEN THE RESPONSE 21300000 * HAS ARRIVED X3004BH 21350000 RPLQRI EQU X'08' IF ON THEN QUEUE AL RESPONSES 21400000 * IF OFF DONT QUEUE @G40AKSL 21450000 RPLEX EQU X'04' RETURN ONLY EXCEPTION RESPONSES 21500000 * (WITH SEND) OR THIS IS AN 21550000 * EXCEPTION RESPONSE (WITH 21600000 * RECEIVE); IF 0, RETURN ALL 21650000 * RESPONSES X3004BH 21700000 RPLNFME EQU X'02' IF 0, RETURN A FUNCTIONAL 21750000 * MANAGEMENT END RESPONSE (WITH 21800000 * SEND) OR THIS IS A FUNCTIONAL 21850000 * MANAGEMENT END RESPONSE (WITH 21900000 * RECEIVE) X3004BH 21950000 RPLRRN EQU X'01' RETURN A REACHED RECOVERY 22000000 * NODE RESPONSE (WITH SEND) 22050000 * OR THIS IS A REACHED RECOVERY 22100000 * NODE RESPONSE (WITH 22150000 * RECEIVE) X3004BH 22200000 RPLCNTRL DS 0XL3 REQUEST UNIT CONTROL CODES 22250000 * X3004BH 22300000 RPLCNTDF DS XL1 DATA FLOW CONTROL CODES X3004BH 22350000 RPLDATA EQU X'80' DATA REQUEST, NOT A CONTROL 22400000 * CODE X3004BH 22450000 RPLCNCEL EQU X'40' CANCEL REQUEST UNIT CHAINX3004BH 22500000 RPLQC EQU X'20' THE QUIESCE IS COMPLETE(FOLLOWS 22550000 * QEC) X3004BH 22600000 RPLQEC EQU X'10' QUIESCE AT THE END OF THE 22650000 * CURRENT REQUEST UNIT CHAIN 22700000 * X3004BH 22750000 RPLCHASE EQU X'08' SEND ALL OUTSTANDING RESPONSES 22800000 * FOLLOWED BY THE CHASE RESPONSE 22850000 * X3004BH 22900000 RPLRELQ EQU X'04' QUIESCE IS RELEASED X3004BH 22950000 RPLQI EQU X'02' RESERVED FOR VTAM X03004JS 23000000 RPLCNTDC DS XL1 DATA FLOW CONTROL CODES X03004JS 23050000 RPLBID EQU X'80' REQUEST PERMISSION TO BEGIN 23100000 * BRACKET X03004JS 23150000 RPLRTR EQU X'40' READY TO RECEIVE X03004JS 23200000 RPLLUS EQU X'20' LOGICAL UNIT STATUS X03004JS 23250000 RPLSIGNL EQU X'10' SIGNAL DATA AVAILABLE X03004JS 23300000 RPLTBIND EQU X'08' BIND G40AKCM 23350000 RPLTUNBD EQU X'04' UNBIND G40AKCM 23400000 RPLSBI EQU X'02' SBI G40AKCM 23450000 RPLBIS EQU X'01' BIS G40AKCM 23500000 RPLCNTSC DS XL1 SESSION CONTROL CODES X3004BH 23550000 RPLSDT EQU X'80' START DATA TRAFFIC X3004BH 23600000 RPLCLEAR EQU X'40' CLEAR ALL DATA TRAFFIC FOR 23650000 * THIS SESSION X3004BH 23700000 RPLSTSN EQU X'20' SET AND TEST SEQUENCE 23750000 * NUMBERS X3004BH 23800000 RPLSHUTD EQU X'10' SHUTDOWN IS REQUESTED X3004BH 23850000 RPLSHUTC EQU X'08' SHUTDOWN IS COMPLETE X3004BH 23900000 RPLRQR EQU X'04' REQUEST RECOVERY OF SESSION 23950000 * X3004BH 24000000 RPLRSHUT EQU X'02' REQUEST SHUTDOWN X03004JS 24050000 ORG RPLRBAR X3004BH 24100000 RPLOBSQV DS AL2 STSN OUTBOUND SEQUENCE 24150000 * NUMBER X3004BH 24200000 RPLIBSQV DS AL2 STSN INBOUND SEQUENCE 24250000 * NUMBER X3004BH 24300000 RPLOBSQ DS XL1 STSN OUTBOUND ACTION CODES 24350000 * X3004BH 24400000 RPLOSET EQU X'80' SET THE OUTBOUND SEQUENCE 24450000 * NUMBER X3004BH 24500000 RPLOTST EQU X'40' SET THE OUTBOUND SEQUENCE 24550000 * NUMBER UNCONDITIONALLY AND 24600000 * INDICATE IF ACCEPTABLE X3004BH 24650000 RPLORSET EQU X'20' RESET THE OUTBOUND SEQUENCE 24700000 * TO THE DEFAULT VALUE(0) X3004BH 24750000 RPLOIGN EQU X'10' IGNORE THE OUTBOUND SEQUENCE 24800000 * NUMBER X3004BH 24850000 RPLOPOS EQU X'08' THE OUTBOUND SEQUENCE NUMBER 24900000 * IS ACCEPTABLE (FOLLOWS TESTSET) 24950000 * X3004BH 25000000 RPLONEG EQU X'04' THE OUTBOUND SEQUENCE NUMBER 25050000 * IS NOT ACCEPTABLE (FOLLOWS 25100000 * TESTSET) X3004BH 25150000 RPLOINV EQU X'02' THE OUTBOUND SEQUENCE NUMBER 25200000 * IS INVALID X3004BH 25250000 RPLIBSQ DS XL1 STSN INBOUND ACTION CODES 25300000 * X3004BH 25350000 RPLISET EQU X'80' SET THE INBOUND SEQUENCE 25400000 * NUMBER X3004BH 25450000 RPLITST EQU X'40' SET THE INBOUND SEQUENCE 25500000 * NUMBER UNCONDITIONALLY AND 25550000 * INDICATE IF ACCEPTABLE X3004BH 25600000 RPLIRSET EQU X'20' RESET THE INBOUND SEQUENCE 25650000 * TO THE DEFAULT VALUE(0) X3004BH 25700000 RPLIIGN EQU X'10' IGNORE THE INBOUND SEQUENCE 25750000 * NUMBER X3004BH 25800000 RPLIPOS EQU X'08' THE INBOUND SEQUENCE NUMBER 25850000 * IS ACCEPTABLE (FOLLOWS TESTSET) 25900000 * X3004BH 25950000 RPLINEG EQU X'04' THE INBOUND SEQUENCE NUMBER 26000000 * IS NOT ACCEPTABLE (FOLLOWS 26050000 * TESTSET) X3004BH 26100000 RPLIINV EQU X'02' THE INBOUND SEQUENCE NUMBER 26150000 * IS INVALID X3004BH 26200000 RPLSEQNO DS AL2 RESPONSE SEQUENCE NUMBER 26250000 * IDENTIFIER X3004BH 26300000 ISTRPLFB , INCLUDE FEEDBACK CODES X03004 26350000 MEND 26400000 * END OF RPL VTAM EXTENSION */ 26450000 *%RPLEND: ; 26500000