TITLE 'ISTINCU7 - USS 3270 OUTPUT MEDIA CONTROL *00001000 ' 00002000 ISTINCU7 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTINCU7 78.110' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @12,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@12 0001 00013000 */********************************************************************/ 00014000 */* STANDARD LINKAGE */ 00015000 */********************************************************************/ 00016000 * 0055 00017000 * DO; 0055 00018000 */*** CRRMAINT PROCNM(ISTINCU7)COMP(VY)FUNC(SUB)RPHADD((NCSPLRPH)) * 00019000 **/ 0056 00020000 * 0056 00021000 */* ATBUILD (ISTRPH,ISTCRA,ISTPFCRR,ISTVYCRR) */ 0056 00022000 * RFY ISTLCCW ; 0056 00023000 * RFY ISTLCPB ; 0057 00024000 * RFY ISTZSAVE; 0058 00025000 * RFY ISTPFCRR; 0059 00026000 * RFY ISTCFCRR; 0060 00027000 * RFY ISTZCRR ; 0061 00028000 * RFY ISTASCRR; 0062 00029000 * RFY ISTAPCRR; 0063 00030000 * RFY ISTCRA ; 0064 00031000 * RFY ISTCNSTA; 0065 00032000 * RFY ISTVYCRR; 0066 00033000 */* END OF ATBUILD */ 0067 00034000 * /*** SET ENTERED BIT FOR THIS PROCEDURE ***/ 0067 00035000 *NCSPLRPH->RPHCRR->CRACRR->NINCU7 = '1'B; 0067 00036000 L @15,NCSPLRPH(,CUNCSPLR) 0067 00037000 L @15,RPHCRR(,@15) 0067 00038000 L @15,CRACRR(,@15) 0067 00039000 OI NINCU7(@15),B'00000100' 0067 00040000 * /*** CLEAR AND SET CURRENT PROCEDURE BIT ***/ 0068 00041000 *NCSPLRPH->RPHCRR->CRACRR->VYCCRT = '0'B; 0068 00042000 XC VYCCRT+1(11,@15),VYCCRT+1(@15) 0068 00043000 MVI VYCCRT(@15),B'00000000' 0068 00044000 *NCSPLRPH->RPHCRR->CRACRR->CINCU7 = '1'B; 0069 00045000 OI CINCU7(@15),B'00000100' 0069 00046000 * END; 0070 00047000 *CUFWDPTR = CUSAVERG - 72; /*SAVE AREA CHAIN*/ 0071 00048000 LA @15,72 0071 00049000 LR @00,CUSAVERG 0071 00050000 SLR @00,@15 0071 00051000 ST @00,CUFWDPTR(,CUSAVERG) 0071 00052000 *CUSAVERG = CUSAVERG - 72; /*PT TO OWN SAVE AREA*/ 0072 00053000 SLR CUSAVERG,@15 0072 00054000 *CUBCKPTR = CUSAVERG + 72; /*COMPLETE CHAING*/ 0073 00055000 ALR @15,CUSAVERG 0073 00056000 ST @15,CUBCKPTR(,CUSAVERG) 0073 00057000 *CUFWDPTR = 0; /*ZERO OWN FWD PTR*/ 0074 00058000 SLR @00,@00 0074 00059000 ST @00,CUFWDPTR(,CUSAVERG) 0074 00060000 */********************************************************************/ 00061000 */* STANDARD LINKAGE END */ 00062000 */********************************************************************/ 00063000 * 0075 00064000 */********************************************************************/ 00065000 */* THIS CODE ADDS THE CONTROL CHARS APPROPIATE FOR PRESENTING */ 00066000 */* THE MESSAGE ON A 3270 DISPLAY. */ 00067000 */* THE CONTROL CHARS ARE AS FOLLOWS; */ 00068000 */* LEADING */ 00069000 */* 'F5'X ERASE/WRITE CMD */ 00070000 */* 'C2'X WRITE CONTROL CHAR -RESTORE KEYBOARD */ 00071000 */* '1D'X START FIELD ORDER */ 00072000 */* '40'X ATTRIBUT CHAR @ZA27731*/ 00073000 */* TRAILING */ 00074000 */* '11' SET BUFFER ADDRESS @ZA12764*/ 00075000 */* 'C4' =LINE 9, CHAR. 40 (ON 40X20 DEVICE), OR @ZA12764*/ 00076000 */* '7F' =LINE 5, CHAR. 80 (ON 80X20 DEVICE) @ZA12764*/ 00077000 */* '1D' START FIELD ORDER */ 00078000 */* '40' ATTRIBUT CHAR @ZA27731*/ 00079000 */* '13' INSERT CURSOR ORDER */ 00080000 */********************************************************************/ 00081000 *CUMSGTXT(NCSPLOLN+1:NCSPLOLN+7) = '11C47F1D4013'X; /*@ZA27731*/ 00082000 LH @15,NCSPLOLN(,CUNCSPLR) 0075 00083000 L @14,NCSPLRUO(,CUNCSPLR) 0075 00084000 ALR @14,@15 0075 00085000 MVI CUMSGTXT+6(@14),X'00' 0075 00086000 MVC CUMSGTXT(6,@14),@CB00770 0075 00087000 * /* NEW TRAILING CONTROL CHARACTERS @ZA12764*/ 00088000 *NCSPLOLN = NCSPLOLN + 10; /*INCLUDE ALL CHAR IN LEN*/ 00089000 AL @15,@CF00772 0076 00090000 STH @15,NCSPLOLN(,CUNCSPLR) 0076 00091000 * /* @ZA12764*/ 00092000 *DO CUINDEX=NCSPLOLN BY -1 TO 5; /*SHIFT RIGHT*/ 0077 00093000 LR CUINDEX,@15 0077 00094000 B @DE00077 0077 00095000 @DL00077 DS 0H 0078 00096000 * CUMSGTXT(CUINDEX)=CUMSGTXT(CUINDEX-4);/*SHIFT RIGHT*/ 0078 00097000 L @02,NCSPLRUO(,CUNCSPLR) 0078 00098000 LR @15,@02 0078 00099000 ALR @15,CUINDEX 0078 00100000 AL @15,@CF00773 0078 00101000 ALR @02,CUINDEX 0078 00102000 AL @02,@CF02946 0078 00103000 MVC CUMSGTXT(1,@15),CUMSGTXT(@02) 0078 00104000 *END; 0079 00105000 BCTR CUINDEX,0 0079 00106000 @DE00077 C CUINDEX,@CF00774 0079 00107000 BNL @DL00077 0079 00108000 *CUMSGTXT(1:4) = 'F5C21D40'X; /*LEADING CONTROL @ZA27731*/ 00109000 L @15,NCSPLRUO(,CUNCSPLR) 0080 00110000 MVC CUMSGTXT(4,@15),@CB00775 0080 00111000 *CUSAVERG = CUSAVERG + 72; /*RESTORE CALLER'S SVAREA @*/ 00112000 AL CUSAVERG,@CF00767 0081 00113000 *RETURN ; 0082 00114000 * 0082 00115000 @EL00001 DS 0H 0082 00116000 @EF00001 DS 0H 0082 00117000 @ER00001 LM @14,@12,12(@13) 0082 00118000 BR @14 0082 00119000 */* TPEPILOG */ 0083 00120000 * GEN (PRINT OFF); 0083 00121000 * 0083 00122000 PRINT OFF 00123000 */* PROGRAM OPERATOR MESSAGE HEADER */ 00124000 *DCL 1 ISTPOHD BDY(WORD) BASED, 0084 00125000 * 2 POHRSVD1 CHAR(1), /* RESERVED */ 00126000 * 2 POHSTAT, /* HEADER STATUS BITS */ 00127000 * 3 POHEND BIT(1), /* END LINE 1=YES */ 00128000 * 3 POHDATA BIT(1), /* DATA LINE 1=YES */ 00129000 * 3 POHLBL BIT(1), /* LABEL LINE 1=YES */ 00130000 * 3 POHCNTRL BIT(1), /* CONTROL LINE 1=YES */ 00131000 * 3 POHRSVD2 BIT(2), /* RESERVED */ 00132000 * 3 POHRREQ BIT(1), /* REPLY REQUESTED 1=YES */ 00133000 * 3 POHGEN BIT(1), /* ID ORIGIN 0=GENERATED BY VTAM */ 00134000 * /* 1=GENERATED BY POA */ 00135000 * 2 POHID FIXED(16); /* MESSAGE IDENTIFIER */ 00136000 */* VTAM PREFIX FOR QUEUE ELEMENTS * 00137000 */* INITIAL LEVEL 001 03/04/75 */ 00138000 *DECLARE 0085 00139000 * 1 ISTPFX BDY(WORD) BASED, 0085 00140000 * 2 PFXID CHAR(4), /* QUEUE ACRONYM (SAME AS 0085 00141000 * QABID) * 00142000 * 3 PFXCBID BIT(8), /* CONTROL BLOCK ID * 00143000 * 2 PFXPRTY CHAR(1), /* PRIORITY OF ELEMENT * 00144000 * 2 PFXLNG CHAR(3), /* ELEMENT LENGTH, 0085 00145000 * INCLUDING PREFIX * 00146000 * 2 PFXFWD PTR(31), /* POINTER TO NEXT QUEUE 0085 00147000 * ELEMENT (IF LAST 0085 00148000 * POINTER TO QAB) * 00149000 * 2 PFXBCK PTR(31) ; /* POINTER TO PREVIOUS 0085 00150000 * QUEUE ELEMENT (IF 0085 00151000 * FIRST, POINTER TO QAB) * 00152000 *DCL NCSPLTYP BIT(8) CONSTANT('60'X); /* NCSPL CONTROL BLOCK ID * 00153000 * /* NETWORK CONFIGURATION SERVICES CONTROL BLOCK */ 0087 00154000 */* REVISIONS 14 07/01/75 */ 00155000 *DECLARE 0087 00156000 * 1 ISTNCSPL BASED BDY(DWORD), 0087 00157000 * 2 * CHAR(16) BDY(WORD), 0087 00158000 * 3 NCSPFX CHAR(LENGTH(ISTPFX)), /* QUE ELEMENT PREFIX */ 00159000 * 4 * CHAR(12), 0087 00160000 * 4 NCSCRWKA PTR(31), /* PTR TO WORK AREA FOR C/R I/O */ 00161000 * 2 * BIT(8), /*RESERVED */ 00162000 * 2 NCSPLVCD BIT(8), /*VERB CODE */ 00163000 * 2 NCSPLVBF CHAR(2), /*VERB MODIFIER FLAGS */ 00164000 * 3 NCSVBF01 BIT(1), /* UNUSED */ 00165000 * 3 NCSVBF02 BIT(1), /* UNUSED */ 00166000 * 3 NCSVBF03 BIT(1), /* MODIFY MSG SUP */ 00167000 * 3 NCSVBF04 BIT(1), /* TYPE=VTAM */ 00168000 * 3 NCSVBF05 BIT(1), /* LINETRACE=1 */ 00169000 * 3 NCSVBF06 BIT(1), /* I/O TRACE=1 */ 00170000 * 3 NCSVBF07 BIT(1), /* BUFFER TRACE=1 */ 00171000 * 3 NCSVBF08 BIT(1), /* MODIFY TPRINT */ 00172000 * 3 NCSVBF09 BIT(1), /* MODIFY TEST */ 00173000 * 3 NCSVBF10 BIT(1), /* MODIFY TRACE=NO */ 00174000 * 3 NCSVBF11 BIT(1), /* VARY INTERNAL ONLY & MODIFY */ 00175000 * /* TRACE = YES */ 00176000 * 3 NCSVBF12 BIT(1), /* VARY IMMEDIATE & MODIFY */ 00177000 * /* NETSOL=NO */ 00178000 * 3 NCSVBF13 BIT(1), /* MODIFY NETSOL=YES */ 00179000 * 3 NCSVBF14 BIT(1), /* VARY LOGON & MODIFY */ 00180000 * /* CHANGE */ 00181000 * 3 NCSVBF15 BIT(1), /* VARY DEACTIVATE & VARY NORMAL */ 00182000 * /* CLOSE(ERP) */ 00183000 * 3 NCSVBF16 BIT(1), /* VARY ACTIVATE & ERP REQUEST */ 00184000 * /* & MODIFY DUMP */ 00185000 * 2 NCSPLVFL CHAR(1), /*COMMAND FLAGS */ 00186000 * 3 NCSVNCSA BIT(1), /*NCSPL IS ACTIVE */ 00187000 * 3 NCSVDEL BIT(1), /*DELETE NCSPL */ 00188000 * 3 NCSVSTAT BIT(1), /*INDICATE NCSPL WAS NOT GETMAINED */ 00189000 * 3 NCSDCONT BIT(1), /* DO DISCONACT */ 00190000 * 3 NCSABCON BIT(1), /* DO ABANDON CONNECTION */ 00191000 * 3 NCSDACLK BIT(1), /* DO ACTIVATE LINE */ 00192000 * 3 NCSRSV02 BIT(2), /* RESERVED */ 00193000 * 2 NCSPLVF1 CHAR(1), /* SPECIAL PROC FLAGS */ 00194000 * 3 NCSOVFMC BIT(1), /* PURGE ONLY VARY'S FMCB */ 00195000 * 2 NCSPRMRC CHAR(1), /* PURGE MINOR RETURN CODE FIELD */ 00196000 * 2 NCSIORC CHAR(1), /* I/O OR RESTART RETURN CODE */ 00197000 * 2 NCSRRNPT CHAR(4), /* ADDR RN ENTRY FOR LINE TRACE */ 00198000 * 2 NCSPLRID CHAR(8), /*ID = 'NODENAME' */ 00199000 * 2 NCSPLLID CHAR(8), /*LOGON = 'NODENAME' */ 00200000 * 2 NCSDLID CHAR(6), /* OFFHOOK ID */ 00201000 * 2 NCSCRCMD FIXED(8), /* C/R I/O COMMAND CODE */ 00202000 * 2 NCSCRPID PTR(8), /* C/R PATH ID (PID) */ 00203000 * 2 NCSPLRPT PTR(31), /*ID='NODENAME' RDTE ADDRESS */ 00204000 * 2 NCSPLLPT PTR(31), /*LOGON/LOGOFF='NODENAME' RDTE ADDR*/ 00205000 * 2 NCSPLCMD CHAR(2), /*3705 CONTROL COMMAND CODES */ 00206000 * 3 NCSCMDA BIT(8), /*RH FLAGS */ 00207000 * 4 NCSPLSYS BIT(1), /*ON-SYSTEM OFF-FM */ 00208000 * 4 NCSPLCTL BIT(1), /*ON-CONTROL OFF-DATA */ 00209000 * 4 NCSPLSYN BIT(1), /*ON=SYNCHR OFF-ASYNCHR */ 00210000 * 4 NCSPLFLO BIT(1), /*ON-WITH FLOW OFF-AGAINST FLOW */ 00211000 * 4 NCSPLUFM BIT(1), /*ON=UNFORMATTED RU,OFF=FORMATTED */ 00212000 * 4 * BIT(3), /*RESERVED */ 00213000 * 3 NCSCMDB BIT(8), /*COMMAND FIELD */ 00214000 * 2 NCSNCPEP BIT(8), /* EP SUBCHANNEL ADDR */ 00215000 * 2 NCSMSGSP CHAR(1), /* RESERVED FOR MESSAGE SURPRESSION*/ 00216000 * 2 NCSPLUAD CHAR(3), /*U = 'UNIT ADDRESS' */ 00217000 * 2 NCSCRFLG CHAR(1), /* MISCELLANEOUS C/R FLAGS */ 00218000 * 3 NCSPLWRM BIT(1), /* COMMAND SPECIFIED WARM PARAM, */ 00219000 * /* 1 = YES */ 00220000 * 3 NCSPLCLD BIT(1), /* COMMAND SPECIFIED COLD PARAM, */ 00221000 * /* 1 = YES */ 00222000 * 3 NCSFMCLD BIT(1), /* 370X RESPONDED COLD TO ACTPU */ 00223000 * /* (ERP), 1 = YES */ 00224000 * 3 NCSFMERP BIT(1), /* 370X RESPONDED ERP TO ACTPU */ 00225000 * /* (ERP), 1 = YES */ 00226000 * 3 NCSCRDSE BIT(1), /* 0=C/R DATA SET DOES NOT EXIST */ 00227000 * /* OR IS NULL */ 00228000 * /* 1=C/R DATA SET EXISTS */ 00229000 * /* AND IS NOT NULL */ 00230000 * 3 NCSOPRQU BIT(1), /* OPERATOR REQUESTS REIPL, 1 = YES*/ 00231000 * 3 NCSUSRNF BIT(1), /* EARLY WARNING PURGE HAS ALREADY */ 00232000 * /* OCCURED, 1 = YES */ 00233000 * 3 NCSSTCMD BIT(1), /* ACTIVATE IS A RESULT OF */ 00234000 * /* START VTAM COMMAND, 1 = YES */ 00235000 * 2 NCSPLWRE BIT(32), /* WTOR ECB */ 00236000 * 2 NCSPLWRF CHAR(72), /* WTOR REPLY AREA */ 00237000 * 2 NCSPLRAD PTR(31), /* RDTE PTR FOR ALLOCATE/DEALLOCATE*/ 00238000 * 3 NCSLSCMD BIT(8), /* LINE SCHED COMMAND TYPE */ 00239000 * 3 NCSPLRCD BIT(8), /* HEX VALUE FOR LINE SCHED PARAM */ 00240000 * 2 NCSIOCID CHAR(4), /* CURRENT CID FOR DAF LOCK HELD */ 00241000 * 3 NCSPLCID CHAR(4), /* ALIAS FOR ABOVE */ 00242000 * 4 NCSPLSAF CHAR(2), /* SOURCE ADDRESS */ 00243000 * 4 NCSPLDAF CHAR(2), /* DESTINATION ADDRESS */ 00244000 * 2 NCSPLWKA PTR(31), /* NCS WORK AREA ADDRESS */ 00245000 * 2 NCSPLCVT PTR(31), /* POINTER TO VTAM CVT */ 00246000 * 2 NCSPLRPH PTR(31), /* POINTER TO RPH */ 00247000 * 2 NCSPLECB BIT(32), /* ECB FOR VARY PGS */ 00248000 * 2 NCSPLFSB PTR(31), /* ADDRESS OF USS-FSS FSB OR RU */ 00249000 * 2 NCSPLRCR PTR(31), /* ADDRESS RDTE FOR CR */ 00250000 * 2 NCSPLFL1 CHAR(1), /* VARY FLAGS */ 00251000 * 3 NCSPL2IN BIT(1), /* SECOND ENTRY */ 00252000 * 3 NCSPLSOM BIT(1), /* SUPRESS OP. MESSAGE */ 00253000 * 3 NCSPLEBN BIT(1), /* ENTRY FROM BNN SSCP */ 00254000 * 3 NCSPLREQ BIT(1), /* NCSPL FROM RESTORE */ 00255000 * 3 NCSPLNON BIT(1), /* DO NOT ADDR RDT SEGMENT */ 00256000 * 3 NCSPLAPU BIT(1), /* ACTIVATE PHYSICAL DONE BY LOAD */ 00257000 * 3 NCSPL2CN BIT(1), /* SECOND CONTACT REQUEST */ 00258000 * 3 NCSPLPOS BIT(1), /* BNN POSTED */ 00259000 * 2 NCSPLFL2 CHAR(1), /* VARY FLAGS */ 00260000 * 3 NCSPLVDP BIT(1), /* NCSPL ON VARDEF PAB */ 00261000 * 3 NCSPLRSF BIT(1), /* NO SICK CLEAR BEFORE I/O */ 00262000 * 3 NCSPLRIO BIT(1), /* I/O = RESTART I/O */ 00263000 * 3 NCSOUFMC BIT(1), /* PURGE ONLY USER FMCB */ 00264000 * 3 NCSPLDS BIT(1), /* 1=CIO SAVED RESPONSE DATA */ 00265000 * 3 NCSREMPO BIT(1), /* REMOTE POWER OFF SPEC BY OPER */ 00266000 * 3 NCSPLVIS BIT(1), /* VARY IMM START CALLER OF CVP */ 00267000 * 3 NCSPLVIT BIT(1), /* VARY IMM TERM CALLER OF CVP */ 00268000 * 2 NCSPLFL3 CHAR(1), /* FLAG BYTE */ 00269000 * 3 NCSPLMOM BIT(1), /* ERP CAUSED BY FAILURE OF 0087 00270000 * HIGHER NODE */ 00271000 * 3 NCSEPP BIT(1), /* 1=EP SUBCHANNEL PRESENT */ 00272000 * 3 NCSPLANS BIT(1), /* ON FOR ACT IN ANSWER MODE */ 00273000 * /* OFF FOR ACT IN NON-ANSWER MODE */ 00274000 * 3 NCSGID BIT(1), /* ON FOR PATH WITH GID PARM */ 00275000 * 3 NCSPID BIT(1), /* ON FOR PATH WITH PID PARM */ 00276000 * 3 NCSANS BIT(1), /* ON FOR ACTIVATE WITH ANS PARM */ 00277000 * 3 NCSFINAL BIT(1), /* FINAL PARM EXISTS */ 00278000 * 3 NCSEND BIT(1), /* END PARM EXISTS */ 00279000 * 2 NCSPLFL4 CHAR(1), /* FLAG BYTE */ 00280000 * 3 NCSDLNID BIT(1), /* ID PRESENT IN NCSPL - OFF */ 00281000 * 3 NCSPLRSO BIT(1), /* RESET ONLY */ 00282000 * 3 NCSPLVID BIT(1), /* ORIG CMD WAS MODIFY DUMP */ 00283000 * 3 NCSDSPE BIT(1), /* DISPLAY EVERY */ 00284000 * 3 NCSDSPA BIT(1), /* DISPLAY ACT */ 00285000 * 3 NCSDSPI BIT(1), /* DISPLAY INACT */ 00286000 * 3 NCSDSPN BIT(1), /* DISPLAY NONE */ 00287000 * 3 NCSPL2AP BIT(1), /* SECOND ACTPU TO 320X */ 00288000 * 2 NCSDLRSN CHAR(1), /* DIAL REASON CODES */ 00289000 * 2 NCSPLFL5 CHAR(1), /* FLAG BYTE */ 00290000 * 3 NCSSCPPS BIT(1), /* SSCP WORK AREA IN PVT STORAGE */ 00291000 * 3 NCSSDLK BIT(1), /* ON-SDLC LINK PROCESSED */ 00292000 * 3 NCSFORCE BIT(1), /* FORCED DEACT IN PROGRESS */ 00293000 * 3 * BIT(5), /* RESERVED */ 00294000 * 2 NCSPLOLN FIXED(15), /* LENGTH O/B RU */ 00295000 * 2 NCSPLP1 PTR(31), /* ADDR VARY PAB */ 00296000 * 2 NCSPLP2 PTR(31), /* ADDR D/L/R PAB */ 00297000 * 2 NCSPLP3 PTR(31), /* ADDR ERP PAB */ 00298000 * 2 NCSPLSPL PTR(31), /* ADDR ASSOC. NCSPL */ 00299000 * 2 NCSPLWEL PTR(31), /* ADDR POST RPH */ 00300000 * 2 NCSPLRRP PTR(31), /* ADDR REMOTE RN RDTE IN LOCAL RDT*/ 00301000 * 2 NCSPLRUO PTR(31), /* ADDR O/B RU */ 00302000 * 2 NCSPLRUI PTR(31), /* ADDR BUFFER FOR I/B RU */ 00303000 * 2 NCSPLAPP PTR(31), /* ADDR NCSPL APPENDAGE */ 00304000 * 2 NCSRNAME CHAR(8), /* RNAME=FROM VARY ACTIVATE */ 00305000 * 2 NCSPLSQN FIXED(15), /* SEQUENCE=NR. FOR RESPONSE */ 00306000 * 2 NCSPLGID BIT(8), /* BINARY REP OF GID VALUE */ 00307000 * 2 NCSPLPID BIT(8), /* BINARY REP OF PID VALUE */ 00308000 * 2 NCSPLMID CHAR(8), /* LOGMODE = 'MODENAME' */ 00309000 * 2 NCSPLNSN PTR(31), /* RDTE NSNEA AT CLSDST */ 00310000 * 2 NCSSENSE CHAR(4), /* SENSE */ 00311000 * 3 NCSSNS1 CHAR(1), /* SENSE DATA MAJOR CODE */ 00312000 * 3 NCSSNS2 CHAR(1), /* SENSE MODIFIER BYTE */ 00313000 * 3 NCSSENS2 CHAR(2), /* USER SENSE DATA */ 00314000 * 2 NCSCPWPT PTR(31), /* ADDRESS OF CPWA */ 00315000 * 2 NCSMGLPT PTR(31), /* PTR TO USS/FSS MSG PARAM LIST */ 00316000 * 2 NCSUFMCB PTR(31), /* POINTER TO SSCP-LU FMCB */ 00317000 * 2 NCSPLRH CHAR(3), /* REQUEST RH */ 00318000 * 2 NCSPLRTY CHAR(1), /* TYPE FROM RTGOH RU */ 00319000 * 2 NCSCRDTE PTR(31), /* PTR TO RDTE BEING PROCESSED */ 00320000 * /* FOR C/R I/O */ 00321000 * 2 NCSCRMSK, /* FLAGS FOR C/R CHECK POINTING */ 00322000 * 3 NCSCHKPT CHAR(2), /* FLAGS FOR ITEMS CHECK POINTED */ 00323000 * 4 NCSACTV BIT(1), /* ACTICE/INACTIVE STATUS CHANGED */ 00324000 * /* 1 = YES */ 00325000 * 4 NCSPACTV BIT(1), /* PORT ACT/INACTIVE STATUS CHANGED*/ 00326000 * /* 1 = YES */ 00327000 * 4 NCSPOLD BIT(1), /* POLL DELAY VALUE CHANGED, 1=YES */ 00328000 * 4 NCSNRPL BIT(1), /* NEGATIVE RESPONSE TO POLL */ 00329000 * /* LIMIT VALUE CHANGED, 1 = YES */ 00330000 * 4 NCSESLM BIT(1), /* SESSION LIMIT VALUE CHANGED,1=YES* 00331000 * 4 NCSDTRLM BIT(1), /* DEVICE TRANSMISSION LIMIT */ 00332000 * /* VALUE CHANGED, 1 = YES */ 00333000 * 4 NCSLGAPL BIT(1), /* APPLICATION CONTROLLER NAME */ 00334000 * /* (LOGAPPL) CHANGED, 1 = YES */ 00335000 * 4 NCSLGMOD BIT(1), /* LOGON MODE (LOGMODE) */ 00336000 * /* CHANGED, 1 = YES */ 00337000 * 4 NCSANSMD BIT(1), /* ANSWER MODE STATUS CHANGED,1=YES*/ 00338000 * 4 NCSCUA BIT(1), /* CUA VALUE CHANGED, 1 = YES */ 00339000 * 4 NCSRNME BIT(1), /* RNAME VALUE CHANGED, 1 = YES */ 00340000 * 4 NCSPTUSE BIT(1), /* PATH USE/NOUSE STATUS CHANGED */ 00341000 * /* 1 = YES */ 00342000 * 4 NCSRSVD1 BIT(4), /* RESERVED */ 00343000 * 3 NCSCRMOD CHAR(1), /* NEW VALUES FOR ITEMS CHECKPOINTED* 00344000 * /* NOT OBTAINED FROM RDTE */ 00345000 * 4 NCSAIMOD BIT(1), /* ACTIVE/INACTIVE STATUS, 1=ACTIVE*/ 00346000 * 4 NCSPTMOD BIT(1), /* PORT ACT/INACT STATUS, 1=ACTIVE */ 00347000 * 4 NCSRSVD2 BIT(6), /* RESERVED */ 00348000 * 2 NCSPLSID BDY(BYTE), /* MESSAGE ROUTING INFORMATION */ 00349000 * 3 NCSPLSTA CHAR(1), /* STATUS FLAG BYTE */ 00350000 * 4 NCSRSVD4 BIT(7), /* RESERVED */ 00351000 * 4 NCSPLPO BIT(1), /* 0 = CONSOLE ID FOLLOWS, 1 = */ 00352000 * /* PROGRAM OPERATOR HEADER FOLLOWS */ 00353000 * 3 NCSPLPHD CHAR(LENGTH(ISTPOHD)), /* PO HEADER IF NCSPLPO = 01 */ 00354000 * 4 NCSPLNID FIXED(8), /* CONSOLE ID IF NCSPLPO = 0 */ 00355000 * 3 NCSPLPDB PTR(31); /* PTR TO PO ACDEB PREFIX */ 00356000 */* COMMAND VALUES FOR C/R FIELD NCSCRCMD */ 00357000 *DCL NCSCRWR FIXED(8) CONSTANT(0); /* WRITE TO C/R DATA SET */ 00358000 *DCL NCSCROPN FIXED(8) CONSTANT(1); /* OPEN C/R DATA SET */ 00359000 *DCL NCSCRCLS FIXED(8) CONSTANT(2); /* CLOSE C/R DATA SET */ 00360000 *DCL NCSCRDEL FIXED(8) CONSTANT(3); /* DELETE C/R DATA SET RECORD */ 00361000 *DCL NCSCROPQ FIXED(8) CONSTANT(4); /* OPERATOR QUERY */ 00362000 *DCL NCSDCID FIXED(8) CONSTANT(1); /* CONSOLE ID INDICATOR */ 00363000 *DCL NCSCRIO BIT(16) CONSTANT('0800'X); /* INDICATES REQUESTS */ 00364000 * /* FOR VSAM I/O FOR C/R */ 00365000 *DCL NCSCRVIO BIT(16) CONSTANT('0C00'X); /* VSAM I/O OPERATION */ 00366000 */* NCSPL APPENDAGE DEFINATION */ 00367000 *DCL 1 NCSAPP BASED(NCSPLAPP), 0096 00368000 * 2 NCSAPSA CHAR(72), /* SAVE AREA */ 00369000 * 2 NCSAPECB CHAR(4), /* ECB */ 00370000 * 2 NCSAPTXT CHAR(8), /* DUMP DATA */ 00371000 * 2 NCSAPEND PTR(31), /* HIGH STORAGE ADDRESS */ 00372000 * 2 NCSAPBUE CHAR(520), 0096 00373000 * 3 NCSRSV04 CHAR(3), /* RESERVED */ 00374000 * 3 NCSAPRU CHAR(5), /* IPL CMD RU PREFIX */ 00375000 * 3 NCSAPDAT CHAR(512), /* RESP FOR DUMP, O/B LOAD */ 00376000 * 2 NCSAPPAB PTR(31); /* BNN VARY PAB ADDR */ 00377000 */* USS/FSS RU AREA MAP */ 00378000 *DCL 1 NCSUSSRU BASED(NCSPLFSB), 0097 00379000 * 2 NCSRULEN FIXED(15), /* LENGTH OF RU */ 00380000 * 2 NCSRUITS CHAR(*); /* START OF RU */ 00381000 */* GENERAL CONSTANTS */ 00382000 *DCL NCSWASZ FIXED(15) CONSTANT(2032); /* NCSPL WORK AREA SIZE */ 00383000 *DCL NCSRTGOH BIT(16) CONSTANT('1000'X); /* VBF VALUE FOR INTERNAL */ 00384000 * /* COMMAND-RTGOH RECVD. */ 00385000 */* CONSTANTS FOR VERB CODES */ 00386000 *DCL NCSPLVC0 BIT(08) CONSTANT('00'X); /* ERROR */ 00387000 *DCL NCSPLVC1 BIT(08) CONSTANT('01'X); /* VARY */ 00388000 *DCL NCSPLVC2 BIT(08) CONSTANT('02'X); /* MODIFY */ 00389000 *DCL NCSPLVC3 BIT(08) CONSTANT('03'X); /* ERP */ 00390000 *DCL NCSPLVC4 BIT(08) CONSTANT('04'X); /* DISPLAY */ 00391000 *DCL NCSPLVC5 BIT(08) CONSTANT('05'X); /* STATUS TO SM */ 00392000 *DCL NCSPLVC6 BIT(08) CONSTANT('06'X); /* INTERNAL CMD */ 00393000 *DCL NCSPLVC7 BIT(08) CONSTANT('07'X); /* INIT/TERM TUSM */ 00394000 *DCL NCSPLVC8 BIT(08) CONSTANT('08'X); /* DIAL */ 00395000 */* CONSTANTS FOR VARY COMMAND MODIFIERS */ 00396000 *DCL NCSVACT BIT(16) CONSTANT('0001'X); /*ACTIVATE */ 00397000 *DCL NCSVDEA BIT(16) CONSTANT('0002'X); /* DEACTIVATE */ 00398000 *DCL NCSVLON BIT(16) CONSTANT('0004'X); /* LOGON */ 00399000 *DCL NCSVVPP BIT(16) CONSTANT('0080'X); /* VARY NORMAL CLEANUP REQST* 00400000 *DCL NCSVIMM BIT(16) CONSTANT('0010'X); /* IMMEDIATE */ 00401000 *DCL NCSVINT BIT(16) CONSTANT('0020'X); /* INTERNAL ONLY */ 00402000 *DCL NCSVALO BIT(16) CONSTANT('0005'X); /* ACTIVATE WITH LOGON */ 00403000 *DCL NCSVDEI BIT(16) CONSTANT('0012'X); /* DEACTIVATE IMMEDIATE */ 00404000 *DCL NCSVDII BIT(16) CONSTANT('0032'X); /* DEACTIV. IMMEDIATE INTERNA 00405000 * ONLY*/ 0117 00406000 *DCL NCSCNOTF BIT(16) CONSTANT('FFF8'X); /* NOTIFY REQUEST */ 00407000 *DCL NCSVANON BIT(16) CONSTANT('0008'X); /* ANSWER = ON */ 00408000 *DCL NCSVANOF BIT(16) CONSTANT('0040'X); /* ANSWER = OFF */ 00409000 *DCL NCSVPUSE BIT(16) CONSTANT('0100'X); /* PATH = USABLE */ 00410000 *DCL NCSVPNUS BIT(16) CONSTANT('0200'X); /* PATH = NOT USABLE */ 00411000 *DCL NCSVINOP BIT(16) CONSTANT('0400'X); /* INOPERATIVE */ 00412000 */* CONSTANTS FOR MODIFY COMMAND MODIFIERS */ 00413000 *DCL NCSMDUM BIT(16) CONSTANT('0001'X); /* DUMP 3705 */ 00414000 *DCL NCSMCHA BIT(16) CONSTANT('0004'X); /* CHANGE */ 00415000 *DCL NCSMNSY BIT(16) CONSTANT('0008'X); /* NETSOL = YES */ 00416000 *DCL NCSMNSN BIT(16) CONSTANT('0010'X); /* NETSOL = NO */ 00417000 *DCL NCSMTRY BIT(16) CONSTANT('0020'X); /* TRACE = YES */ 00418000 *DCL NCSMVTRY BIT(16) CONSTANT('1020'X); 0129 00419000 *DCL NCSMVTRN BIT(16) CONSTANT('1040'X); 0130 00420000 *DCL NCSMTRN BIT(16) CONSTANT('0040'X); /* TRACE = NO */ 00421000 *DCL NCSMTPR BIT(16) CONSTANT('0100'X); /* TRACE PRINT */ 00422000 *DCL NCSMTST BIT(16) CONSTANT('0080'X); /* MODIFY TEST */ 00423000 *DCL NCSDPF BIT(16) CONSTANT('0000'X); /* POTENTIAL FAIL */ 00424000 *DCL NCSDSTRT BIT(16) CONSTANT('0001'X); /* DIAL START */ 00425000 *DCL NCSDOH1 BIT(16) CONSTANT('0002'X); /* OFFHOOK 1 */ 00426000 *DCL NCSDOH2 BIT(16) CONSTANT('0004'X); /* OFFHOOK 2 */ 00427000 *DCL NCSDDF BIT(16) CONSTANT('0010'X); /* DIAL FAILED */ 00428000 *DCL NCSDLKS BIT(16) CONSTANT('0008'X); /* LINK START */ 00429000 *DCL NCSDLKC BIT(16) CONSTANT('0020'X); /* LINK COMPLETION */ 00430000 *DCL NCSDHU BIT(16) CONSTANT('0040'X); /* HANGUP */ 00431000 *DCL NCSDLK BIT(16) CONSTANT('0080'X); /* DEALLOCATE */ 00432000 *DCL NCSDGIVE BIT(16) CONSTANT('0100'X); /* GIVE */ 00433000 *DCL NCSDINOP BIT(16) CONSTANT('0200'X); /* INOP */ 00434000 *DCL NCSDLRST BIT(16) CONSTANT('0400'X); /* RECOVERY SW LINKS */ 00435000 * /* AFTER RN FAILURE */ 00436000 */* CONSTANTS FOR ERP COMMAND MODIFIERS */ 00437000 *DCL NCSEERRA BIT(16) CONSTANT('0001'X); /* ERP REQUEST */ 00438000 *DCL NCSECLOR BIT(16) CONSTANT('0002'X); /* VARY NORMAL CLOSE REQUEST* 00439000 *DCL NCSEDACT BIT(16) CONSTANT('0004'X); /* ERP DEACTIVATE REQUEST * 00440000 *DCL NCSERSTR BIT(16) CONSTANT('0008'X);/* RSTRT ENTRY FROM DLR PROC */ 00441000 *DCL NCSVFORC BIT(16) CONSTANT('0802'X);/* FORCED DEACT */ 00442000 *DCL NCSVRACT BIT(16) CONSTANT('1002'X);/* DEACT AND REACT */ 00443000 */* PURGE MINOR RETURN CODES CONSTANTS */ 00444000 *DCL NCSAPABN BIT(8) CONSTANT('05'X), /* APPLICATION ABEND */ 00445000 * NCSCLDST BIT(8) CONSTANT('06'X), /* CLOSE DEST OCCURED */ 00446000 * NCSDDISC BIT(8) CONSTANT('08'X), /* DIAL DISCONNECT OCCURED 00447000 * - CONN NO LONGER AVAILABL*/ 00448000 * NCSBTHEX BIT(8) CONSTANT('09'X); /* BUFFER THRESHOLD EXCEEDED*/ 00449000 */* I/O OR RESTART RETURN CODES CONSTANTS */ 00450000 *DCL NCSIOSUC BIT(8) CONSTANT('00'X), /* I/O SUCCESSFUL */ 00451000 * NCSIOERR BIT(8) CONSTANT('04'X), /* I/O ERROR */ 00452000 * NCSIOPRG BIT(8) CONSTANT('08'X), /* I/O PURGED */ 00453000 * NCSRSSUC BIT(8) CONSTANT('00'X), /* RESTART SUCCESSFUL */ 00454000 * NCSRSERR BIT(8) CONSTANT('04'X), /* RESTART ERROR */ 00455000 * NCSVAIPL BIT(8) CONSTANT('00'X), /* IPL NO RESTART ON VARY ACTV*/ 00456000 * NCSVANRA BIT(8) CONSTANT('10'X), /* IPL SUCCESSFUL, NO RESTART 00457000 * AVAILABLE ON VARY ACTIVE * 00458000 * NCSVAWMF BIT(8) CONSTANT('08'X), /* WARM START FAILURE FOR 0153 00459000 * VARY ACTIVATE */ 00460000 * NCSVAIPF BIT(8) CONSTANT('0C'X), /* IPL FAILED ON VARY ACTIVATE* 00461000 * NCSDSIA BIT(8) CONSTANT('14'X), /* INVALID ADDRESS SPECIFIED 00462000 * ON DISPLAY STORAGE CMND * 00463000 * NCSVAISZ BIT(8) CONSTANT('08'X), /* NCP SIZE TOO LARGE * 00464000 * NCSIPLSC BIT(8) CONSTANT('00'X), /* IPL SUCCESSFUL * 00465000 * NCSIOER BIT(8) CONSTANT('0C'X), /* I/O ERROR ON REMOTE IPL * 00466000 * NCSNCPAC BIT(8) CONSTANT('04'X), /* REMOTE NCP ALREADY ACTIVE * 00467000 * NCSNCRPF BIT(8) CONSTANT('70'X), /* REMOTE POWER OFF * 00468000 * NCSCRIOS BIT(8) CONSTANT('30'X), /* SUCCESSFUL I/O * 00469000 * NCSCRION BIT(8) CONSTANT('34'X), /* NULL D.S. OPENED * 00470000 * NCSCRIOF BIT(8) CONSTANT('38'X); /* FAILURE ON I/O * 00471000 */* CONSTANTS FOR LIBERTY SUPPORT * 00472000 *DCL NCSES BIT(16) CONSTANT('0001'X),/* END SESSION * 00473000 * NCSBF BIT(16) CONSTANT('0002'X),/* BIND FAILURE * 00474000 * NCSUF BIT(16) CONSTANT('0004'X),/* UNBIND FAILURE * 00475000 * NCSINIT BIT(16) CONSTANT('0001'X), 0154 00476000 * NCSTERM BIT(16) CONSTANT('0002'X); 0154 00477000 *DCL NCSTPPST BIT(16) CONSTANT('0001'X);/* TPPST COMMAND * 00478000 *DCL NCSII BIT(16) CONSTANT('0002'X);/* IPL INIT COMMAND * 00479000 *DCL NCSIT BIT(16) CONSTANT('0004'X);/* IPL COMMAND * 00480000 *DCL NCSIF BIT(16) CONSTANT('0008'X);/* IPL FINAL COMMAND * 00481000 *DCL NCSDI BIT(16) CONSTANT('0010'X);/* DUMP INIT COMMAND * 00482000 *DCL NCSDT BIT(16) CONSTANT('0020'X);/* DUMP TEXT COMMAND * 00483000 *DCL NCSDF BIT(16) CONSTANT('0040'X);/* DUMP FINAL COMMAND * 00484000 *DCL NCSCON BIT(16) CONSTANT('0080'X);/* CONTACT COMMAND * 00485000 *DCL NCSDICON BIT(16) CONSTANT('0100'X);/* DISCONTACT COMMAND * 00486000 *DCL NCSMSFMD BIT(16) CONSTANT('0200'X);/* SEND FMD * 00487000 *DCL NCSSEND BIT(16) CONSTANT('0400'X);/* SEND * 00488000 *DCL NCSPURGE BIT(16) CONSTANT('0800'X);/* PAB PURGE * 00489000 *DCL NCSMSSUP BIT(16) CONSTANT('2000'X);/* CONSTANT FOR MSG SUP * 00490000 *DCL NCSCRDS BIT(16) CONSTANT('3023'X);/* RECORD DEV STATS COMMAND * 00491000 *DCL NCSCQUIS BIT(16) CONSTANT('F01A'X);/* QUIESCE COMMAND * 00492000 *DCL NCSSNUSS BIT(16) CONSTANT('381F'X);/* SEND USS MESSAGE * 00493000 */* * 00494000 *DCL NCSNC BIT(8) CONSTANT('04'X); /* NOT CONTACTED * 00495000 *DCL NCSLD BIT(8) CONSTANT('00'X); /* CONTACTED LOADED * 00496000 *DCL NCSNLD BIT(8) CONSTANT('0C'X); /* CONTACTED NEEDS LOAD * 00497000 *DCL NCSNCD BIT(8) CONSTANT('08'X); /* NOT CONTACTED DUE TO DEACT * 00498000 *DCL NCSNCE BIT(8) CONSTANT('10'X); /* NOT CONTACTED DUE TO ERP * 00499000 *DCL NCSNFME BIT(8) CONSTANT('24'X); /* NEGATIVE FME * 00500000 */* CONSTANTS FOR IORC FOR DISPLAY STORAGE */ 00501000 *DCL NCSDSDEA BIT(8) CONSTANT('0C'X); /* PRIOR DEACT * 00502000 *DCL NCSDSFAL BIT(8) CONSTANT('04'X); /* FAIL OTHER THAN PRIOR DEACT* 00503000 */* TYPE CODES FOR CONFIGURATION RESTART * 00504000 *DCL NCSCTRLM BIT(8) CONSTANT('01'X); /* CHANGE DEV TRANS LIMIT * 00505000 *DCL NCSCNPOL BIT(8) CONSTANT('02'X); /* CHANGE NEG POLL RESP LIMIT * 00506000 *DCL NCSCSESS BIT(8) CONSTANT('03'X); /* CHANGE SESSION LIMIT * 00507000 *DCL NCSCPOLL BIT(8) CONSTANT('04'X); /* CHANGE LINE SERV SEEK PAUSE* 00508000 */* FM DATA COMMAND CODES * 00509000 *DCL NCSCAPU BIT(16) CONSTANT('D001'X); /* ACT PHYS * 00510000 *DCL NCSCDPU BIT(16) CONSTANT('D002'X); /* DEACT PHYS * 00511000 *DCL NCSCALU BIT(16) CONSTANT('D003'X); /* ACT LOG * 00512000 *DCL NCSCDLU BIT(16) CONSTANT('D004'X); /* DEACT LOG * 00513000 *DCL NCSCSDT BIT(16) CONSTANT('D005'X); /* SDT * 00514000 *DCL NCSCFME BIT(16) CONSTANT('2006'X); /* SEND POS RESP * 00515000 *DCL NCSCEXCP BIT(16) CONSTANT('2007'X); /* SEND NEG RESP * 00516000 *DCL NCSCCON BIT(16) CONSTANT('3008'X); /* CONTACT * 00517000 *DCL NCSCDCON BIT(16) CONSTANT('3009'X); /* DISCONTACT * 00518000 *DCL NCSCIPLI BIT(16) CONSTANT('300A'X); /* IPL INIT * 00519000 *DCL NCSCIPLT BIT(16) CONSTANT('300B'X); /* IPL * 00520000 *DCL NCSCIPLF BIT(16) CONSTANT('300C'X); /* IPL FINAL * 00521000 *DCL NCSCDUMI BIT(16) CONSTANT('300D'X); /* DUMP INIT * 00522000 *DCL NCSCDUMP BIT(16) CONSTANT('300E'X); /* DUMP * 00523000 *DCL NCSCDUMF BIT(16) CONSTANT('300F'X); /* DUMP FINAL * 00524000 *DCL NCSCACTL BIT(16) CONSTANT('3010'X); /* ACT LINK * 00525000 *DCL NCSCDACL BIT(16) CONSTANT('3011'X); /* DEACT LINK * 00526000 *DCL NCSCSSV BIT(16) CONSTANT('3012'X); /* SET STATE VECTOR * 00527000 *DCL NCSCNSP BIT(16) CONSTANT('3013'X); /* NS PROC ERROR * 00528000 *DCL NCSCSTD BIT(16) CONSTANT('3019'X); /* SET TIME & DATE * 00529000 *DCL NCSCSEP BIT(16) CONSTANT('9014'X); /* SWITCH TO EP * 00530000 *DCL NCSCSNC BIT(16) CONSTANT('9015'X); /* SWITCH TO NCP * 00531000 *DCL NCSCLSD BIT(16) CONSTANT('3016'X); /* LINE SCHED PARM * 00532000 *DCL NCSCDS BIT(16) CONSTANT('3017'X); /* DISPLAY STORAGE * 00533000 *DCL NCSCPWO BIT(16) CONSTANT('3018'X); /* REMOTE POWER OFF * 00534000 *DCL NCSSNFMD BIT(16) CONSTANT('301C'X); /* SEND FMD * 00535000 *DCL NCSCDIAL BIT(16) CONSTANT('301A'X); /* DIAL * 00536000 *DCL NCSCADIL BIT(16) CONSTANT('301B'X); /* ABANDON DIAL * 00537000 *DCL NCSCEANS BIT(16) CONSTANT('301D'X); /* ENABLE ANS MODE * 00538000 *DCL NCSCAANS BIT(16) CONSTANT('301E'X); /* ABANDON ANS MODE * 00539000 *DCL NCSCANA BIT(16) CONSTANT('301F'X); /* ASSIGN NET ADDRESS * 00540000 *DCL NCSCFNA BIT(16) CONSTANT('3020'X); /* FREE NET ADDRESS * 00541000 *DCL NCSCACON BIT(16) CONSTANT('3021'X); /* ABANDON CONNECTION * 00542000 *DCL NCSCSCV BIT(16) CONSTANT('3022'X); /* SET CONTROL VECTOR * 00543000 *DCL NCSNCPPG BIT(16) CONSTANT('FFFF'X); /* PURGE * 00544000 */* NEW VALUES FOR NCSPLCMD */ 0218 00545000 *DCL NCSCLCND BIT(16) CONSTANT('0041'X); /* LOAD CONDITIONALLY */ 00546000 *DCL NCSCUCND BIT(16) CONSTANT('0042'X); /* LOAD UNCONDITIONALLY */ 00547000 *DCL NCSCRSRT BIT(16) CONSTANT('0043'X); /* RESTART 370X OR CLUS */ 00548000 *DCL NCSDUCMD BIT(16) CONSTANT('0044'X); /* DUMP 370X */ 0221 00549000 *DCL NCSCERPP BIT(16) CONSTANT('0045'X); /* PERFORM ERP DUMP AND 0222 00550000 * RELOAD OF 370X */ 0222 00551000 *DCL NCSDOUT BIT(16) CONSTANT('0046'X); /* DIAL OUT */ 00552000 *DCL NCSDCNT BIT(16) CONSTANT('0047'X); /* DIAL CONTACT */ 00553000 *DCL NCSDABDN BIT(16) CONSTANT('0048'X); /* DIAL ABANDON */ 00554000 *DCL NCSDENAS BIT(16) CONSTANT('0049'X); /* DIAL ENABLE ANSWER */ 00555000 */* VALUES FOR NCSCMDB */ 00556000 *DCL NCSBFME BIT(8) CONSTANT('06'X); /* SEND POS RESP COMMAND */ 00557000 *DCL NCSBEXC BIT(8) CONSTANT('07'X); /* SEND NEG RESP COMMAND */ 00558000 */* CONSTANTS FOR DIAL REASON CODES */ 00559000 *DCL NCSDLRRD BIT(8) CONSTANT('01'X); /* REDIAL */ 00560000 *DCL NCSDLRQT BIT(8) CONSTANT('02'X); /* QUIT */ 00561000 */* NEW VALUES FOR NCSIORC */ 0231 00562000 *DCL NCSLDAOK BIT(8) CONSTANT('00'X); /* COMMAND PROCESSED SUCESS */ 00563000 *DCL NCSLDACT BIT(8) CONSTANT('04'X); /* NCP ACTIVE-LOAD NOT PERF */ 00564000 *DCL NCSLDCAN BIT(8) CONSTANT('04'X); /* RELOAD DECLINED BY OPER */ 00565000 *DCL NCSLDIOP BIT(8) CONSTANT('08'X); /* I/O PURGED */ 00566000 *DCL NCSLDNOG BIT(8) CONSTANT('0C'X); /* COMMAND FAILED */ 00567000 *DCL NCSDUCOM BIT(8) CONSTANT('14'X); /* DUMP COMPLETE */ 00568000 *DCL NCSHALTD BIT(8) CONSTANT('18'X); /* CMD REJECTED,HALT IN PROG*/ 00569000 *DCL NCSUNREC BIT(8) CONSTANT('1C'X); /* COMMAND UNRECOGNIZED */ 00570000 *DCL NCSNOSTG BIT(8) CONSTANT('20'X); /* CMD REJ,INSUFF STORAGE */ 00571000 *DCL NCSDOS BIT(8) CONSTANT('00'X); /* DIAL-OUT SUCCESSFUL */ 00572000 *DCL NCSDOF BIT(8) CONSTANT('04'X); /* DIAL-OUT UNSUCCESSFUL */ 00573000 *DCL NCSDOP BIT(8) CONSTANT('08'X); /* DIAL-OUT PENDING */ 00574000 *DCL NCSDCS BIT(8) CONSTANT('00'X); /* DIAL-CONTACT LOADED */ 00575000 *DCL NCSDCF BIT(8) CONSTANT('0C'X); /* DIAL-CONTACT FAILED */ 00576000 *DCL NCSDAS BIT(8) CONSTANT('00'X); /* DIAL-ABANDON CONN COMPLETE*/ 00577000 *DCL NCSDENSO BIT(8) CONSTANT('00'X); /* ENABLE ANSWER SUCCESSFUL */ 00578000 *DCL NCSDOFHR BIT(8) CONSTANT('04'X); /* OFFHOOK REQUIRED */ 00579000 *DCL NCSDENSF BIT(8) CONSTANT('08'X); /* ENABLE ANSWER FAIL */ 00580000 */* NEW VALUES FOR NCSPRMRC */ 0249 00581000 *DCL NCSFIRM BIT(8) CONSTANT('10'X); /* RESTART SUCC,OPENDST REQ */ 00582000 *DCL NCSEWRN BIT(8) CONSTANT('11'X); /* CON LOST,RECOV IN PROG */ 00583000 */* CONSTANTS FOR TRACE */ 00584000 *DCL NCSACTLT BIT(16) CONSTANT('0820'X); /* ACTIVATE LINE TRACE */ 00585000 *DCL NCSDACLT BIT(16) CONSTANT('0840'X); /* DEACTIVATE LINE TRACE */ 00586000 *DCL NCSCACLT BIT(16) CONSTANT('301D'X); /* SSCP ACT LINE TRACE */ 00587000 *DCL NCSCDCLT BIT(16) CONSTANT('301E'X); /* SSCP DEACT LINE TRACE */ 00588000 */* DISPLAY COMMAND MODIFIER CONSTANTS */ 00589000 *DCL NCSDPATH BIT(16) CONSTANT('0001'X); /* PATHS */ 00590000 */* PROCESS ANCHOR BLOCK * 00591000 */* REVISIONS 002 11/16/75 */ 00592000 */* APAR OZ19540 DCL PABSSN ABNORMAL @ZA19540*/ 00593000 *DCL 1 ISTPAB BDY(DWORD) BASED, 0256 00594000 * 2 PABWQCHN CHAR(8) BDY(DWORD), /* CPS SWAP FIELD FOR NEQ&CHN * 00595000 * 3 PABWEQA PTR(31) BDY(WORD), /* WORK ELEMENT QUEUE ADDRESS * 00596000 * 4 PABWEQG BIT(1), /* GATING BIT * 00597000 * 4 PABRSV01 BIT(7), /* RESERVED * 00598000 * 4 PABWEQP PTR(24), /* WKEL PTR * 00599000 * 3 PABCHAIN PTR(31) BDY(WORD), /* APS CHAIN * 00600000 * 4 PABCHNG BIT(1), /* GATING BIT * 00601000 * 4 PABRESCH BIT(1), /* RESCHEDULE PAB AT 0256 00602000 * TPEXIT * 00603000 * 4 PABCDP BIT(1), /* CLOSE DST/CHANGE IN PROGRESS* 00604000 * 4 PABUNCON BIT(1), /* UNCONDITIONALLY RESCHEDULE 00605000 * PAB AT TPEXIT * 00606000 * 4 PABRESET BIT(1), /* RESET ISSUED ON THIS PAB * 00607000 * 4 PABRUNNG BIT(1), /* PAB RUNNING * 00608000 * 4 PABDELAY BIT(1), /* DELAY OPTION USED * 00609000 * 4 PABRSV02 BIT(1), /* RESERVED * 00610000 * 4 PABCHNGP PTR(24), /* PSS CHAIN PTR * 00611000 * 2 PABOFFST PTR(8), /* OFFSET FROM CONTROL BLOCK * 00612000 * 2 PABDVTA PTR(24), /* DVT ADDRESS * 00613000 * 2 PABRPHFG PTR(31), /* SCHED FLAGS AND RPH * 00614000 * 3 PABFLAGS BIT(8), /* SCHEDULING FLAGS * 00615000 * 4 PABAPYP BIT(1), /* APPLICATION IS A USER EXIT * 00616000 * 4 PABPRIOR BIT(1), /* IMMEDIATE PRIORITY * 00617000 * 4 PABNORPR BIT(1), /* NORMAL PRIORITY - * 00618000 * /* RESCHEDUALABLE * 00619000 * 4 PABDYNAM BIT(1), /* DYNAMIC * 00620000 * 4 PABSSN BIT(1) ABNL, /* SYSTEM SERVICES @ZA19540 * 00621000 * 4 PABERLCK BIT(1), /* PAB ERROR LOCK FLAG * 00622000 * 5 PABERRLK BIT(1), /* ERROR LOCK * 00623000 * 6 PABERLOK BIT(1), /* ERROR LOCK * 00624000 */* ABNORMAL TO ALLOW VARY COMPARE AND SWAP * 00625000 * 4 PABINHBT BIT(1) ABNL,/* 1=INHIBIT TRAFFIC,0=NO * 00626000 * 4 PABNODQ BIT(1), /* DO NOT DEQ WORK ELEMENT * 00627000 * 3 PABRPHA PTR(24); /* RPL HEADER ADDRESS * 00628000 *DCL PABWEQG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABWEQG OFF * 00629000 * PABWEQG1 BIT(32) CONSTANT('80000000'X), /* TURN PABWEQG ON * 00630000 * PABCHNG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABCHNG OFF * 00631000 * PABCHNG1 BIT(32) CONSTANT('80000000'X), /* TURN PABCHNG ON * 00632000 * PABRESC0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PABRESCH OFF * 00633000 * PABRESC1 BIT(32) CONSTANT('40000000'X), /* TURN PABRESCH ON * 00634000 * PABCDP0 BIT(32) CONSTANT ('DFFFFFFF'X), /* TURN PABCDP OFF * 00635000 * PABCDP1 BIT(32) CONSTANT ('20000000'X), /* TURN PABCDP ON * 00636000 * PABERLK0 BIT(32) CONSTANT('FBFFFFFF'X), /* TURN PABERRLK ON * 00637000 * PABERLK1 BIT(32) CONSTANT('04000000'X), /* TURN PABERRLK OFF * 00638000 * PABUNCO0 BIT(32) CONSTANT('EFFFFFFF'X), /* TURN PABUNCON OFF * 00639000 * PABUNCO1 BIT(32) CONSTANT('10000000'X), /* TURN PABUNCON ON * 00640000 * PABPRIR0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PAB PRIOR OFF * 00641000 * PABPRIR1 BIT(32) CONSTANT('40000000'X), /* TURN PAB PRIOR ON * 00642000 * PABRST0 BIT(32) CONSTANT('F7FFFFFF'X), /* TURN PABRESET OFF * 00643000 * PABRST1 BIT(32) CONSTANT('08000000'X), /* TURN PABRESET ON * 00644000 * PABDLAY0 BIT(32) CONSTANT('FDFFFFFF'X), /* TURN PAB DELAY OFF * 00645000 * PABDLAY1 BIT(32) CONSTANT('02000000'X); /* TURN PAB DELAY ON * 00646000 */* LOCKWORD FORMAT DSECT */ 00647000 */* INITIAL LEVEL 001 05/24/74 */ 00648000 *DCL 1 ISTLOK BDY(WORD) BASED, 0258 00649000 * 2 LOKCT CHAR(1) BDY(WORD), /* COUNT OF LOCK OWNERS */ 00650000 * 2 LOKCHN PTR(24), /* ADDR OF NEXT RPH WAITING 00651000 * ON LOCK */ 00652000 * 3 LOKCHNG CHAR(3), /* CHAIN/FLAGS */ 00653000 * 4 * CHAR(2), 0258 00654000 * 4 * BIT(8), 0258 00655000 * 5 * BIT(6), 0258 00656000 * 5 LOKPRY BIT(1), /* PRIORITY FLAG, 1 = ON */ 00657000 * 5 LOKXCL BIT(1); /* EXCLUSIVE FLAG, 1 = ON */ 00658000 *DCL LOKXCL1 BIT(32) CONSTANT('00000001'X); /* CONSTANT TO TURN LOKXCL 00659000 * ON */ 00660000 *DCL LOKPRY1 BIT(32) CONSTANT('00000002'X); /* CONSTANT TO TURN LOKPRY 00661000 * ON */ 00662000 *DCL LOKCHN1 BIT(32) CONSTANT('00FFFFFC'X); /* CONSTANT TO TURN LOKXCL 00663000 * AND LOKPRY OFF */ 00664000 *DCL LOKCT1 BIT(32) CONSTANT('01000000'X); /* CONSTANT TO MAKE LOKCT 00665000 * = 1 */ 00666000 *DCL LOKCT255 BIT(32) CONSTANT('FF000000'X); /* CONSTANT TO CHECK FOR 00667000 * MAX LOKCT (255) */ 00668000 * /* DYNAMIC PAB 1K633 */ 0264 00669000 * /* 1K0997 JAN 20, 1973 MB */ 0264 00670000 * /* 1K1142 MAR 03, 1973 MB */ 0264 00671000 * DCL 1 ISTDYPAB BDY(DWORD) BASED, /* LEVEL 1 DECLARE 1K633 */ 0264 00672000 * 2 DYPTYPE CHAR(1), /* CONTROL BLOCK TYPE CODE 1K633 */ 0264 00673000 * 2 DYPLNGTH PTR(8), /* CONTROL BLOCK LENGTH (BYTES) 1K633 */ 00674000 * 2 DYPFLGS CHAR(2), /* FLAGS 1K633 */ 0264 00675000 * 2 DYPCHAIN PTR(31), /* CHAIN POINTER 1K633 */ 0264 00676000 * 2 DYPTSKID PTR(31), /* TASKID OR PTR TO PSS TABLES 1K633 */ 00677000 * 2 DYPRSV01 PTR(31), /* RESERVED TO PRESERVE ALIGNMENT 0264 00678000 * 1K0997 */ 00679000 * 2 DYPPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD); /* LENGTH OF 1K0997 00680000 * PAB */ 00681000 *DCL DYTYP BIT(8) CONSTANT ('11'X); /* TYPE 1K1142 */ 00682000 */* RPL HEADER * 00683000 */* REVISIONS 006 04/09/75 * 00684000 *DCL RPHPTR PTR(31) REGISTER(1) RESTRICTED; 0266 00685000 *DCL 1 ISTRPH BDY(WORD) BASED(RPHPTR), 0267 00686000 * 2 RPHCNTL FIXED(32), /* CONTROL INFORMATION * 00687000 * 3 RPHTYPE CHAR(1), /* CONTROL BLOCK TYPE * 00688000 * 3 RPHLNGTH PTR(8), /* LENGTH IN BYTES * 00689000 * 3 RPHFLAGS BIT(8), /* SYSTEM DEPENDENT FLAGS * 00690000 * 4 RPHOGIND BIT(1), /* OPEN GATE INDICATOR * 00691000 * 4 RPHSPGIN BIT(1), /* SPECIAL GATE OPEN IND. * 00692000 * 4 RPHAPTYP BIT(1), /* APS IS A USER EXIT * 00693000 * 5 RPHAUTEX BIT(1), /*EXIT TO AUTHORIZED USER VS2 * 00694000 * 4 RPHSMQ BIT(1), /* INDICATOR IF RPH IS TO BE * 00695000 * /* QUEUED * 00696000 * 4 RPHSMTYP BIT(1), /* REQUEST TYPE IS BUFFER OR * 00697000 * /* DOUBLE-WORD * 00698000 * 4 RPHSMCLR BIT(1), /* INDICATOR IF BUFFER TO BE * 00699000 * /* CLEARED * 00700000 * 4 RPHMLTCP BIT(1), /* USED BY LOCAL 3270 SUPPORT * 00701000 * /* WHEN BUILDING MULTIPLE CHAN * 00702000 * /* PROGRAM * 00703000 * 4 RPHFSTLC BIT(1), /* USED BY LOCAL 3270 SUPPORT * 00704000 * /* TO INDICATE FIRST LCCW * 00705000 * 5 RPHFNFLG BIT(1), /* LCCW SET FUNCTION FLAGS * 00706000 * 3 RPHFLGB BIT(8), /* SECOND FLAG BYTE * 00707000 * 4 RPHLOCK BIT(1), /* LOCKING OPTION * 00708000 * 4 RPHBSSP BIT(1), /* SYSTEM SERVICES PROGRESS * 00709000 * 4 RPHFBAPS BIT(1), /* STG. OBTAINED BY APS * 00710000 * 4 RPHPGCMP BIT(1), /* BIT ON INDICATES RESOURCE * 00711000 * /* MGR HAS COMPLETED UNLOCK * 00712000 * 4 RPHNRSAV BIT(1), /* DO NOT SAVE ON ACTIVATE * 00713000 * 4 RPHRLCRA BIT(1), /* RPH CAN BE RELEASED * 00714000 * /* WHEN PURGE COMPLETE * 00715000 * 4 * BIT(2), /* RESERVED * 00716000 * 2 RPHRPHA PTR(31), /* ADDR.OF NEXT RPL HEADER * 00717000 * 3 RPHGATE BIT(1), /* GATING FLAG * 00718000 * 3 * BIT(7), /* RESERVED * 00719000 * 3 RPHRPHAP PTR(24), 0267 00720000 * 2 RPHTSKID PTR(31), /* TASK IDENTIFICATION * 00721000 * /* OR ADDR.OF APS TABLE * 00722000 * 3 * CHAR(3), /* RPH TSK ID * 00723000 * 3 RPHTIK PTR(8), /* TIK * 00724000 * 2 RPHDVTA PTR(31), /* ADDR.OF CURRENT DVT * 00725000 * 2 RPHRESMA PTR(31) BDY(WORD), /* TPWAIT-POST INFO */ 0267 00726000 * 3 RPHWPFLG CHAR(1), /* WAIT-POST FLAGS */ 0267 00727000 * 4 RPHRSKEY BIT(4), /* STORAGE PROTECT KEY TO RESUME 00728000 * PROCESSING * 00729000 * 4 RPHWT BIT(1), /* WAIT BIT */ 0267 00730000 * 4 RPHPT BIT(1), /* POST BIT */ 0267 00731000 * 4 RPHPURGE BIT(1), /* RPH FLAGGED BY RECOVERY */ 00732000 * /* TO BE PURGED BY PSS */ 00733000 * /* VS/2 ONLY */ 00734000 * 4 RPHRSV01 BIT(1), /* RESERVED */ 00735000 * 3 RPHRESUM PTR(24), /* RESUME ADDRESS */ 0267 00736000 * 2 RPHPABOF PTR(8), /* OFFSET OF PAB IN CONTROL BLK* 00737000 * 2 RPHMAJCB PTR(24), /* ADDR.OF MAJOR CONTROL BLOCK * 00738000 * 2 RPHWEA PTR(31), /* ADDR.OF WORK ELEMENT * 00739000 * 3 RPHCSPA PTR(31), /* ADDR OF ISTCSP * 00740000 * 4 RPHWEGT BIT(1), /* GATE FOR WORK ELEMENT PROC. * 00741000 * 2 RPHSRPRM PTR(31), /* SERVICE ROUTINE PARM.FIELD * 00742000 * 3 RPHSRP12 FIXED(15), /* COUNT OF Q'ED SMS REQUESTS * 00743000 * 3 RPHSRP34 FIXED(15), /* SIZE OF Q'ED SMS REQUESTS * 00744000 * 2 RPHCRR PTR(31), /* ADDR.OF COMPONENT RECOVERY * 00745000 * /* RECORD * 00746000 * 2 RPHPABQA PTR(31), /* PAB QUEUE ADDRESS * 00747000 * 3 RPHPABFG CHAR(1), /* FLAG BYTE CARRIED FROM PAB * 00748000 * 3 RPHPABQP PTR(24), /* POINTER TO QUEUE OF PAB'S * 00749000 * 2 RPHWORK CHAR(64) BDY(WORD), /* 16 WORD WORK AREA * 00750000 * 3 RPHSAVE1 FIXED(31), /* * 00751000 * 4 RPHSBYTE CHAR(1), /* 1-BYTE SAVE FIELD * 00752000 * 4 RPHSBITS BIT(8), /* SAVE FIELD FOR FLAG BYTE * 00753000 * 5 RPHSBIT1 BIT(1), /* 1ST SAVE FIELD * 00754000 * 5 RPHSBIT2 BIT(1), /* 2ND SAVE FIELD * 00755000 * 5 RPHSBIT3 BIT(1), /* 3RD SAVE FIELD * 00756000 * 5 RPHSBIT4 BIT(1), /* 4TH SAVE FIELD * 00757000 * 5 RPHSBIT5 BIT(1), /* 5TH SAVE FIELD * 00758000 * 5 RPHSBIT6 BIT(1), /* 6TH SAVE FIELD * 00759000 * 5 RPHSBIT7 BIT(1), /* 7TH SAVE FIELD * 00760000 * 5 RPHSBIT8 BIT(1), /* 8TH SAVE FIELD * 00761000 * 4 RPHSHALF FIXED(15), /* HALF WORD SAVE AREA * 00762000 * 3 RPHSAVE2 FIXED(31), /* * 00763000 * 3 RPHSAVE3 FIXED(31), /* * 00764000 * 3 RPHSAVE4 FIXED(31), /* * 00765000 * 3 RPHSAVE5 FIXED(31), /* * 00766000 * 3 RPHSAVE6 FIXED(31), /* * 00767000 * 3 RPHSAVE7 FIXED(31), /* * 00768000 * 3 RPHSAVE8 FIXED(31), /* * 00769000 * 3 RPHSAVE9 FIXED(31), /* * 00770000 * 3 RPHSAV10 FIXED(31), /* * 00771000 * 3 RPHSAV11 FIXED(31), /* * 00772000 * 3 RPHSAV12 FIXED(31), /* * 00773000 * 3 RPHSAV13 FIXED(31), /* * 00774000 * 3 RPHSAV14 FIXED(31), /* * 00775000 * 3 RPHSAV15 FIXED(31), /* * 00776000 * 3 RPHSAV16 FIXED(31), /* * 00777000 * 2 RPHNEXPO PTR(31); /* ADDR.NEXT RPH TO BE POSTED * 00778000 * DCL RPTYPE BIT(8) CONSTANT('01'X); /* TYPE CODE FOR RPH * 00779000 * DCL RPHWT0 BIT(32) CONSTANT('F7FFFFFF'X); /* TURN RPHWT OFF */ 0269 00780000 * DCL RPHWT1 BIT(32) CONSTANT('08000000'X); /* TURN RPHWT ON */ 0270 00781000 * DCL RPHPT0 BIT(32) CONSTANT('FBFFFFFF'X); /* TURN RPHPT OFF */ 0271 00782000 * DCL RPHPT1 BIT(32) CONSTANT('04000000'X); /* TURN RPHPT ON */ 0272 00783000 * DCL RPHPABQ1 BIT(24) CONSTANT('000000'X); /* TURN RPHPBQ GATE */ 0273 00784000 */* REVISIONS 03/04/77 * 00785000 *DCL ATCLCPTR PTR LOCATION(1032); /* POINTER TO ATCVT * 00786000 *DCL 1 ISTATCVT BDY(DWORD) BASED, 0275 00787000 * 2 ATCCOM BDY(WORD), /* SYSTEM INDEPENDENT FIELDS * 00788000 * 3 ATCSTAT CHAR(4), /* VTAM STATUS INDICATORS * 00789000 * 4 ATCSTAT1 CHAR(1), /* VTAM STATUS BYTE 1 * 00790000 * 5 ATCSTART BIT(1), /* VTAM IS STARTING * 00791000 * 5 ATCACTIV BIT(1), /* VTAM IS ACTIVE * 00792000 * 5 ATCSNHLT BIT(1), /* VTAM SESSION HALT * 00793000 * 5 ATCQKHLT BIT(1), /* VTAM QUICK HALT * 00794000 * 5 ATCNETSL BIT(1), /* NETSOL=YES SPECIFIED ON CMD * 00795000 * 5 ATCINHLT BIT(1), /* INTERNAL VTAM HALT QUICK * 00796000 * 5 ATCMDHLT BIT(1), /* VTAM CMD PROC HALTED * 00797000 * 5 * BIT(1), /* RESERVED * 00798000 * 4 ATCSTFLG BIT(8), /* STORAGE MANAGEMENT FLAGS * 00799000 * 5 ATCHSDMF BIT(1), /* SYSTEM SLOW DOWN FLAG * 00800000 * 4 ATCPOFLG BIT(8), /* PROGRAM OPERATOR * 00801000 * /* INTERFACE FLAGS * 00802000 * 5 ATCPOUNS BIT(1), /* APPLICATION AUTHORIZED TO * 00803000 * /* RECEIVE UNSOLICITED MESSAGES* 00804000 * /* 1 = YES * 00805000 * 5 * BIT(7), /* RESERVED * 00806000 * 4 ATCSTAT4 CHAR(1), /* VTAM STATUS BYTE 4 * 00807000 * 5 ATCPRTAT BIT(1), /* 1 = TRACE PRINT ACTIVE, 0275 00808000 * 0 = NOT ACTIVE * 00809000 * 5 ATCTPRT BIT(1), /* WHEN 1, TPRINT IN PROCESS * 00810000 * 5 ATCMTST BIT(1), /* WHEN 1, MODIFY TEST IN 0275 00811000 * PROCESS * 00812000 * 5 ATCNCSD BIT(1), /* NCS QUIESCED DURING HALT * 00813000 * 5 ATCVTTRC BIT(1), /* VTAM TRACE, 1=ACTIVE * 00814000 * 5 ATCRSV04 BIT(3), /* RESERVED * 00815000 * 3 ATCAPI PTR(31), /* ADDR OF API ROUTINE * 00816000 * 3 ATCDCFRR PTR(31), /* POINTER TO FRR OF CONTROL 00817000 * LAYER,INITIALIZED BY OPENDST* 00818000 * 3 ATCRDT PTR(31), /* POINTER TO FIRST RDT * 00819000 * 3 ATCSRT PTR(31), /* POINTER TO SRT DIRECTORY * 00820000 * 3 ATCASCHD PTR(31), /* POINTER TO AP SCHEDULER * 00821000 * 3 ATCECMOD CHAR(4), /* ECB FOR MODIFY COMMAND PROC.* 00822000 * 3 ATCMODQ PTR(31), /* POINTER FOR OUTPUT QUEUE * 00823000 * /* FOR MODIFY COMMAND * 00824000 * 3 ATCECHLT CHAR(4), /* ECB FOR HALT COMMAND * 00825000 * 3 ATCHALTQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00826000 * /* FOR HALT COMMAND * 00827000 * 3 ATCECVRY CHAR(4), /* ECB FOR VARY COMMAND PROC. * 00828000 * 3 ATCVARYQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00829000 * /* FOR VARY COMMAND * 00830000 * 3 ATCECDSP CHAR(4), /* ECB FOR DISPLAY COMMAND * 00831000 * 3 ATCDSPLQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00832000 * /* FOR DISPLAY COMMAND * 00833000 * 3 ATCOCHA PTR(31), /* POINTER TO OCT HEADER * 00834000 * 3 ATCECSES CHAR(4), /* ECB TO HALT SESSION MODE * 00835000 * 3 ATCECVRQ CHAR(4), /* ERP ECB FOR VARY REQ. INFO. * 00836000 * /* REQUEST NOTIFICATION * 00837000 * 3 ATCVPARM PTR(31), /* ADDR OF VARY PARAMETERS * 00838000 * 3 ATCECOPC CHAR(4), /* ECB TOINDICATE OPERATOR * 00839000 * /* CONTROL PROCESSING COMPLETE * 00840000 * 3 ATCECNET CHAR(4), /* ERP ECB FOR NETWORK * 00841000 * /* CONFIGURATION REQUEST * 00842000 * 3 ATCECPRM PTR(31), /* POINTER TO QAB FOR ERP'S * 00843000 * /* ECB PARAMETERS * 00844000 * 3 ATCHLTMS PTR(31), /* POINTER TO HALT COMMAND * 00845000 * /* OR HALT RETURN MESSAGE * 00846000 * 3 ATCFSB PTR(31), /* PTR TO FEEDBACK STATUS * 00847000 * /* BLOCK * 00848000 * 3 ATCFRSCH PTR(31), /* POINTER TO FEEDBACK * 00849000 * /* ROUTINE SCHEDULER * 00850000 * 3 ATCRDTH PTR(31), /* POINTER RDT HEADER * 00851000 * 3 ATCACCTA PTR(31), /* POINTER TO INSTALLATION * 00852000 * /* ACCOUNTING ROUTINE * 00853000 * 3 ATCAUTHA PTR(31), /* POINTER TO INSTALLATION * 00854000 * /* AUTHORISATION ROUTINE * 00855000 * 3 ATCPTCHA PTR(31), /* PTR TO VTAM PATCH AREA * 00856000 * 3 ATCCONFT PTR(31), /* POINTER TO VTAM * 00857000 * /* CONFIGURATION TABLE * 00858000 * 3 ATCFDVT PTR(31), /* PTR TO FIRST DVT FOR O/C * 00859000 * 3 ATCFEPT PTR(31), /* PTR TO FIRST EPT FOR O/C * 00860000 * 3 ATCDVTPT PTR(31), /* ADDR OF LOAD MOD FOR * 00861000 * /* TYPE=VTAM TRACING * 00862000 * 3 ATCBPDA PTR(31), /* PTR TO BUFFER POOL DIRECTORY* 00863000 * 3 ATCADD PTR(31), /* POINTER TO ADD PROCEDURE * 00864000 * 3 ATCREMOV PTR(31), /* POINTER TO REMOVE PROCEDURE * 00865000 * 3 ATCIOTRC PTR(31), /* POINTER TO I/O TRACE * 00866000 * /* PROCEDURE * 00867000 * 4 ATCTHTRC PTR(31), /* ADDR OF TH TRACE ROUTINE * 00868000 * 5 ATCTPBUF PTR(31), /* TPIOS BUFFER TRACE(ISTRARTP)* 00869000 * 3 ATCBFTRC PTR(31), /* PTR TO BUFFER TRACE * 00870000 * /* PROCEDURE * 00871000 * 3 ATCFBRPH PTR(31), /* ADDR OF FEEDBACK PROC RPH * 00872000 * 3 ATCBLDLA PTR(31), /* ADDR OF BLDL ROUTINE * 00873000 * 3 ATCALOAD PTR(31), /* ADDR OF ALOAD ROUTINE * 00874000 * 3 ATCREADA PTR(31), /* ADDR OF SOURCE READ ROUTINE * 00875000 * 3 ATCGTSTR PTR(31), /* ADDR OF GETSTOR ROUTINE * 00876000 * 3 ATCFRSTR PTR(31), /* ADDR OF FREESTOR ROUTINE * 00877000 * 3 ATCSTMA PTR(31), /* ADDR OF SM INITIALIZATION * 00878000 * /* ROUTINE * 00879000 * 3 ATCACDA PTR(31), /* ADDR OF FIRST ACDEB * 00880000 * 3 ATCSMRQ PTR(31), /* ADDR OF REQUEST STORAGE * 00881000 * /* ROUTINE * 00882000 * 3 ATCSMQU PTR(31), /* ADDR OF QUEUE REQUEST RTNE 00883000 * - DOS ONLY * 00884000 * 3 ATCSMRS PTR(31), /* ADDR OF RELEASE STORAGE * 00885000 * /* ROUTINE * 00886000 * 3 ATCSMRC PTR(31), /* ADDR OF RECOVER STORAGE * 00887000 * /* ROUTINE - DOS ONLY * 00888000 * 3 ATCSMBQ PTR(31), /* PTR TO Q'ED REQ. SMS RTN. * 00889000 * 3 ATCFIRA PTR(31), /* ADDR OF FEEDBACK INITIATION * 00890000 * /* RPH * 00891000 * 3 ATCSRTAD PTR(31), /* PTR TO SRTADD ROUTINE * 00892000 * 3 ATCSRTDF PTR(31), /* PTR TO SRTDELE ROUTN * 00893000 * 3 ATCDCC60 PTR(31), /* PTR TO ISTDCC60 - CTL. LAYER 00894000 * MOVE TO USER AREA * 00895000 * 3 ATCDCC61 PTR(31), /* PTR TO ISTDCC61 - CTL. LAYER 00896000 * MOVE FIXED TO PAGABLE * 00897000 */* BEGIN 'ANY' DVT * 00898000 * 3 ATCNERST PTR(31), /* PTR TO ISTDCC00 - REQUEST-ST* 00899000 * 3 ATCNERCV PTR(31), /* PTR TO ISTRCC21-RECEIVE OB * 00900000 * 3 ATCNERNE PTR(31), /* PTR TO ISTDCC25 - READ-ANY * 00901000 * 3 ATCNERFN PTR(31), /* PTR TO ISTDCC02 - REQUEST-FN * 00902000 */* END 'ANY' DVT * 00903000 * 3 ATCAPOST PTR(31), /* PTR TO VTAM POST ROUTINE * 00904000 * 3 ATCVTMID CHAR(2), /* HOST MAJOR NODE I.D. * 00905000 * 3 ATCRSV11 CHAR(2), /* RESERVED * 00906000 * 3 ATCRCC63 PTR(31), /* HSKPANYQ POINTER * 00907000 * 3 ATCRCC26 PTR(31), /* SEND RESPONSE POINTER * 00908000 * 3 ATCRCC65 PTR(31), /* SET RPL POINTER * 00909000 * 3 ATCNESAL PTR(31), /* PTR TO ISTDCC24 - SOLICIT-ALL* 00910000 * 3 ATCNERAP PTR(31), /* PTR TO ISTDCC85 - READ ANY 00911000 * PURGE * 00912000 * 3 ATCACTRM FIXED(15), /* COUNT OF ACTIVE TERMINALS * 00913000 * 3 ATCCIDM BIT(16), /* CID MASK * 00914000 * 3 ATCMSGSP BIT(8), /* RESERVED FOR MESAGE SURPRESSION * 00915000 * 2 ATCMAXID PTR(8), /* MAXIMUM NUMBER OF MAJOR NODES, 0 = 00916000 * NUMBER OF ENTRIES IN THE MNT * 00917000 * 2 ATCRSV16 CHAR(2), /* NOT USED * 00918000 * 2 ATCMNT PTR(31), /*PTR TO MAJOR NODE TABLE -SET BY SYS. 00919000 * DEF. REF. BY ISTSDCCB (CBDEF), 0275 00920000 * ISTSDCCI (CINDEXY) * 00921000 * 2 ATCCDADD PTR(31), /*PTR TO CIDADD ROUTINE ISTSDCCA 0275 00922000 * REF. BY CIDCTL MACRO * 00923000 * 2 ATCCDDEL PTR(31), /*PTR TO CIDDEL ROUTINE ISTSDCCD 0275 00924000 * REF. BY CIDCTL MACRO * 00925000 * 2 ATCCDFND PTR(31), /*PTR TO CIDFND ROUTINE IATSDCCF 0275 00926000 * REF. BY CIDCTL MACRO * 00927000 * 2 ATCESC01 PTR(31), /*PTR TO ESC01 * 00928000 * 2 ATCESC02 PTR(31), /*PTR TO ESC02 * 00929000 * 2 ATCCSMR PTR(31), /* PTR TO CONNECTION SERVICES * 00930000 * /* MASTER ROUTINE * 00931000 * 3 ATCCSMA PTR(31), /* PTR TO CONNECTION SERVICES 0275 00932000 * MASTER ROUTINE * 00933000 * 2 ATCOCRT PTR(31), /* PTR TO OPEN/CLOSE ROUTINE * 00934000 * 2 ATCUEP PTR(31), /* POINTER TO USER EXIT * 00935000 * 2 ATCSHRTN CHAR(8), /* NAME OF VTAM SHARED RTN * 00936000 * /* TO BE LOADED * 00937000 * 2 ATCSHRFG BIT(8), /* ATTRIBUTE FLAGS * 00938000 * 3 ATCLAST BIT(1), /* INDICATE HTIS IS LAST MODULE * 00939000 * 2 ATCXRANG CHAR(1), /* NUMBER OT BITS IN X-VALUE 0275 00940000 * PORTION OF CID * 00941000 * 2 ATCSAF CHAR(2), /* SUB AREA ADDRESS FIELD * 00942000 * 2 ATCEPA PTR(31), /* ENTRY POINT ADDR OF LOADED * 00943000 * 2 ATCALERT PTR(31), /* POINTER TO ALERT-ROUTINE 0275 00944000 * ISTSDCAL * 00945000 * 2 ATCDVLOD PTR(31), /* PTR TO ISTSDCOD * 00946000 * 2 ATCTRCPT PTR(31), /* POINTER TO TRACE PARM LIST * 00947000 * 2 ATCDVT PTR(31), /* POINTER TO FIRST DVT ON CHAIN * 00948000 * 2 ATCEPT PTR(31), /* POINTER TO FIRST EPT ON CHAIN * 00949000 * 2 ATCMSGP PTR(31), /* POINTER TO TPMSG PROCESSOR * 00950000 * 2 ATCMSGM PTR(31), /* POINTER TO TPMSG - MESSAGE 0275 00951000 * CSECT * 00952000 * 2 ATCTRPAB PTR(31), /* ADDRESS OF TRACE WRITER PAB * 00953000 * 2 ATCVTLOD PTR(31), /* ADDR OF VTAM LOAD LIST * 00954000 * 2 ATCECPRT CHAR(4), /* ECB FOR TRACE FILE PRINT * 00955000 * 2 ATCZDVTB PTR(31), /* ADDRESS OF ISTZCFBI * 00956000 * 2 ATCECTLP CHAR(4), /* TOLTEP ECB * 00957000 * 2 ATCRVCHS CHAR(8), /* RESERVED * 00958000 * 2 ATCCRME PTR(31), /* VARY PSS CONTROL MECHANISM * 00959000 * 2 ATCHPGM, /* BUFFER INFORMATION */ 00960000 * 3 ATCHBFNO FIXED(15), /* NUMBER OF BUFFS FOR CHANNEL */ 00961000 * 3 ATCHBSIZ FIXED(15), /* BUFFER SIZE IN BYTES */ 00962000 * 2 ATCDEBCH PTR(31), /* CLOSE DEB CHAIN PTR */ 00963000 * 2 ATCTODVT PTR(31), /* THE TOLTEP DVT PTR POINTED 0275 00964000 * TO BY 3RD WORD OF PAB */ 00965000 * 2 ATCADEL PTR(31), /* A DELETE ROUTINE ADDRESS */ 00966000 * 2 ATCCDPTR PTR(31), /* PTR TO ISTOCCCD - DOS ONLY */ 00967000 * 2 ATCLDNCS PTR(31), /* PTR TO NCSPL FOR LOAD/DUMP */ 00968000 * 2 ATCLDECB BIT(32), /* ECB FOR LOAD/DUMP SUBTASK */ 00969000 * 2 ATCAPCR5 PTR(31), /* POINTER TO ISTINCR5 */ 00970000 * 2 ATCRSV69 PTR(31), /* RESERVED TO SYNCH WITH DOS */ 00971000 * 2 ATCNODEL CHAR(8), /* VSAM DATA SET NAME */ 00972000 * 2 ATCNODDS PTR(31), /* POINTER TO RPL */ 00973000 * 2 ATCONFIG CHAR(8), /* START VTAM CONFIG = PARAMETER */ 00974000 * 2 ATCRSV99 CHAR(4), /* RESERVED FOR LATER POINTERS */ 00975000 * 2 ATCAP33 PTR(31), /* PTR TO ISTAPC33 */ 00976000 * 2 ATCAP35 PTR(31), /* PTR TO ISTAPC35 */ 00977000 * 2 ATCAP36 PTR(31), /* PTR TO ISTAPC36 */ 00978000 * 2 ATCDVTLK CHAR(LENGTH(ISTLOK)), /* LOCK WORD FOR DVT LOCK */ 00979000 * 2 ATCCDFIN PTR(31), /* POINTER TO ISTSDCRR */ 00980000 * 2 ATCCDFDN PTR(31), /* POINTER TO ISTSDCCN */ 00981000 * 2 ATCVOCLK CHAR(LENGTH(ISTLOK)), /* VOCLOCK LOCK */ 00982000 * 2 ATCRDTLK CHAR(LENGTH(ISTLOK)), /* RDTLOCK LOCK */ 00983000 * 2 ATCRSV97 PTR(31), /* DWORD ALIGNMENT */ 00984000 * 2 ATCVPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR VARY 00985000 * UNDER PSS CONTROL */ 00986000 * 2 ATCPGPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* ERP PAB FOR 00987000 * PURGE */ 00988000 * 2 ATCDLRPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* DUMP LOAD & 00989000 * RESTART PAB */ 00990000 * 2 ATCCCLAD PTR(31), /* ADDRESS OF VARY ERP (ISTINCCL)*/ 00991000 * 2 ATCCDLAD PTR(31), /* ADDRESS OF VARY DUMP,LD RSTRT 00992000 * (ISTINCDL) */ 00993000 * 2 ATCOCCOB PTR(31), /* ADDRESS ISTOCCOB */ 00994000 * 2 ATCOCCCB PTR(31), /* ADDRESS ISTOCCCB */ 00995000 * 2 ATCTIPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0275 00996000 * FOR ISTOLTP */ 00997000 * 2 ATCTCIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0275 00998000 * FOR TOLTEP CLIP */ 00999000 * 2 ATCVTIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0275 01000000 * FOR TOLTEP-VTAM INTERFACE*/ 01001000 * 2 ATCTCLOM PTR(31), /* ADDR TOLTEP CLOP PROC */ 01002000 * 2 ATCTCLIM PTR(31), /* ADDR TOLTEP CLIP PROC */ 01003000 * 2 ATCVTINM PTR(31), /* ADDR TOLTEP-VTAM INTF PROC */ 01004000 * 2 ATCTACB PTR(31), /* TOLTEP ACB */ 01005000 * 2 ATCRSV10 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* RESERVED */ 01006000 * 2 ATCPTR00 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB */ 01007000 * 2 ATCCFEAD PTR(31), /* ADDR OF ISTINCFE */ 01008000 * 2 ATCVLCNT CHAR(4) BDY(HWORD), /* VARY DEVICE ONLINE COUNTS*/ 01009000 * 3 ATCRNCNT PTR(16), /* 370X COUNT */ 01010000 * 3 ATCLCLCT PTR(16), /* 3270 COUNT */ 01011000 * 2 ATCS49XI PTR(31), /* ADDRESS OF ISTPICXI */ 01012000 * 2 ATCS49XL PTR(31), /* ADDRESS OF ISTPICXL */ 01013000 * 2 ATCPODVT PTR(31), /* PTR TO PROGRAM OPERATOR DVT*/ 01014000 * 2 ATCRNO, 0275 01015000 * 3 * CHAR(1), 0275 01016000 * 3 ATCPOIA PTR(24), /* PTR TO PROGRAM OPERATOR */ 01017000 * /* INTERFACE AREA */ 01018000 * 2 ATCSOPD CHAR(8) BDY(WORD), /* SESSION CONTROL */ 01019000 * 3 ATCSEC01 PTR(31), /* OUTBOUND PROCESSING */ 01020000 * 3 ATCSEC10 PTR(31), /* DVT */ 01021000 * 2 ATCSIPD CHAR(12) BDY(WORD),/* SESSION CONTROL */ 01022000 * 3 ATCSEC21 PTR(31), /* INBOUND PROCESSING */ 01023000 * 3 ATCSEC30 PTR(31), /* FEEDBACK */ 01024000 * 3 ATCSEC40 PTR(31), /* DVT */ 01025000 * 2 ATCSECST CHAR(4) BDY(WORD),/* SESSION CONTROLSESS TERM */ 01026000 * 3 ATCSEC51 PTR(31), /* RECOVERY DVT */ 01027000 * 2 ATCNMCTR FIXED(15), /* NAME COUNTER */ 01028000 * 2 ATCSTAT2 BIT(8), /* TRACE FLAGS */ 01029000 * 3 ATCTRAPI BIT(1), /* API */ 01030000 * 3 ATCTRESC BIT(1), /* ESC */ 01031000 * 3 ATCTRPSS BIT(1), /* PSS */ 01032000 * 3 ATCTRLOK BIT(1), /* LOCKS */ 01033000 * 3 ATCTRSMS BIT(1), /* SMS */ 01034000 * 3 * BIT(3), /* RESERVED */ 01035000 * 2 * BIT(8), /* RESERVED */ 01036000 * 2 ATCSRTAB PTR(31), /* SEARCH LOGON MODE TABLE */ 01037000 * /* RTN ADDRESS (ISTINCSH) */ 01038000 * 2 ATCUSSPT PTR(31), /* DEFAULT USS DEFINITION */ 01039000 * /* TABLE ADDRESS (ISTINCDT) */ 01040000 * 2 ATCMODTB PTR(31), /* DEFAULT SYSTEM LOGON MODE */ 01041000 * /* TABLE ADDRESS (ISTINCLM) */ 01042000 * 2 ATCINCW3 PTR(31), /* ADDRESS OF ISTINCW3 */ 01043000 * 2 ATCIOECB PTR(31), /* ECB USED BY IOS - */ 01044000 * /* POINTED TO BY IOBECBPT */ 01045000 * 2 ATCVDPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0275 01046000 * /* SSCP COMMAND PROCESSING PAB */ 01047000 * 2 ATCVFPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0275 01048000 * /* SSCP FRONT END PAB */ 01049000 * 2 ATCVDLOK CHAR(LENGTH(ISTLOK)), /* SSCP SERIALIZATION LOCK */ 01050000 */* END OF COMMON AREA */ 01051000 */* VS1/VS2 COMMON CODE. */ 01052000 * 2 ATCVTBAM CHAR(4), 0275 01053000 * 3 * CHAR(3), /* RESERVED * 01054000 * 3 * CHAR(1), /* FLAGS * 01055000 * 4 ATCVTMAB BIT(1) ABNL, /* ABEND IN VTAM JOBSTEP * 01056000 * 4 * BIT(7), /* RESERVED * 01057000 * 2 ATCAOSM BDY(DWORD), 0275 01058000 */* * 01059000 * 3 ATCSRBRT PTR(31), /* POINTER TO ROUTINE UNDER * 01060000 * /* SRB CONTROL * 01061000 * 3 ATCGSRBQ PTR(31), /* READY QUEUE FOR GLOBAL SRB'S* 01062000 * 4 ATCGSRBG BIT(8), /* READY QUEUE GATE BYTE * 01063000 * 5 ATCGSRBF BIT(1), /* READY QUEUE GATE BIT * 01064000 * 3 ATCPRPH PTR(31), /* PTR TO PREALLOCATED RPH * 01065000 * 3 ATCCMTCB PTR(31), /* PTR TO COMMUNICATIONS TASK * 01066000 * /* TCB * 01067000 * 3 ATCAP11 PTR(31), /* PTR TO ISTAPC11 * 01068000 * 3 ATCAP12 PTR(31), /* PTR TO ISTAPC12 * 01069000 * 3 ATCAP31 PTR(31), /* PTR TO ISTAPC31 * 01070000 * 3 ATCAP32 PTR(31), /* PTR TO ISTAPC32 * 01071000 * 3 ATCAP34 PTR(31), /* PTR TO ISTAPC34 * 01072000 * 3 ATCAP52 PTR(31), /* PTR TO ISTAPC52 * 01073000 * 3 ATCAP53 PTR(31), /* PTR TO ISTAPC53 * 01074000 * 3 ATCAP54 PTR(31), /* PTR TO ISTAPC54 * 01075000 * 3 ATCAP57 PTR(31), /* PTR TO ISTAPC57 * 01076000 * 3 ATCAP58 PTR(31), /* PTR TO ISTAPC58 * 01077000 * 3 ATCAP61 PTR(31), /* PTR TO ISTAPC61 * 01078000 * 3 ATCAP63 PTR(31), /* PTR TO ISTAPC63 * 01079000 * 3 ATCAP64 PTR(31), /* PTR TO ISTAPC64 * 01080000 * 3 ATCZFSVT PTR(31), /* TPIOS FIXED SRVICES VCTR TAB* 01081000 * 3 ATCZPSVT PTR(31), /* TPIOS PAGBL SRVCES VCTR TABL* 01082000 * 3 ATCICNCB PTR(31), /* HEAD OF ICNCB QUEUE * 01083000 * 3 ATCZDVT1 PTR(31), /* TPIOS SLODWN RECOVRY PRCSR * 01084000 * 3 ATCZDVT3 PTR(31), /* 370X FEEDBACK STAT CNTRL RTR* 01085000 * 3 ATCZDVT4 PTR(31), /* OPERATOR MESSAGE SCHEDULER * 01086000 * 3 ATCZDVT6 PTR(31), /* DIALOGUE SCHEDULER (INBOUND)* 01087000 * 3 ATCAP65 PTR(31), /* PTR TO ISTAPC65 */ 01088000 * 3 ATCICAPP CHAR(20) BDY(WORD), /* 3705 APPENDAGE VECTOR * 01089000 * 4 ATCCDRPH PTR(31), /* ADDR CLOSE DEB RPH 0275 01090000 * (DUMMY EOA APP.) */ 01091000 * 4 ATCZSIOA PTR(31), /* ADDR 3705 SIO APPENDAGE */ 01092000 * 4 ATCCDTCB PTR(31), /* VTAM TCB (DUMMY PCI APP.) */ 01093000 * 4 ATCZCEA PTR(31), /* ADDR 3705 CHANNEL END 0275 01094000 * APPENDAGE */ 01095000 * 4 ATCZAEA PTR(31), /* ADDR 3705 CHANNEL END 0275 01096000 * APPENDAGE */ 01097000 * 3 ATCLDAPP CHAR(20) BDY(WORD), /* LOCAL 3270 APPENDAGE 01098000 * VECTOR */ 01099000 * 4 ATCCDTID PTR(31), /* TASK ID OF VTAM 0275 01100000 * (DUMP EOE) */ 01101000 * 4 ATCSMFRR PTR(31), /* ADDR OF SMS FRR 0275 01102000 * (DUMMY SIOA) */ 01103000 * 4 ATCRSV17 PTR(31), /* RESERVED FOR ALIGNMENT */ 01104000 * 4 ATCZLCEA PTR(31), /* ADDR 3270 CHANNEL END 0275 01105000 * APPENDAGE */ 01106000 * 4 ATCZLAEA PTR(31), /* ADDR 3270 CHANNEL END 0275 01107000 * APPENDAGE */ 01108000 * 3 ATCDAPVT CHAR(24) BDY(WORD), /* DUMMY APPENDAGE 0275 01109000 * VECTOR TABLE FOR LOAD/DVMMY*/ 01110000 * 4 ATCDEOEA PTR(31), /* ADDRESS OF DUMMY END 0275 01111000 * OF EXTENT APPENDAGE */ 01112000 * 4 ATCDSIOA PTR(31), /* ADDRESS OF DUMMY END 0275 01113000 * OF SIO APPENDAGE */ 01114000 * 4 ATCDPCIA PTR(31), /* ADDRESS OF DUMMY PCI 0275 01115000 * APPENDAGE */ 01116000 * 4 ATCDCEA PTR(31), /* ADDRESS OF CHANNEL END 0275 01117000 * APPENDAGE */ 01118000 * 4 ATCDXCEA PTR(31), /* ADDRESS OF ABNORMAL 0275 01119000 * END APPENDAGE */ 01120000 * 4 ATCDAPDG CHAR(2), /* DUMMY APPENDAGE */ 01121000 * 4 ATCRSV56 CHAR(2), /* RESERVED */ 01122000 * 3 ATCZDVT7 PTR(31), /* ADDR OF RESET CLEANUP 0275 01123000 * (PHASE 1) * 01124000 * 3 ATCZDVT8 PTR(31), /* 3270 LOCAL TEST AND CTL 0275 01125000 * FEEDBACK ROUTER */ 01126000 * 3 ATCZDVT9 PTR(31), /* ADDRESS OF ISTZDFKA */ 01127000 * 3 ATCZDVTA PTR(31), /* ADDRESS OF ISTZCFIA */ 01128000 * 3 ATCZDVTX PTR(31), /* ADDRESS OF TRUNK LINE 0275 01129000 * DEACTIVATE ROUTINE */ 01130000 * 3 ATCZLPVT PTR(31), /* ADDRESS OF ISTZPSVA */ 01131000 * 3 ATCZLFVT PTR(31), /* TPIOS 3270 LOCAL FIXED 0275 01132000 * SERVICES VECTOR TABLE */ 01133000 * 3 ATCZPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR 01134000 * TEST AND CTL FEEDBACK ROUTER* 01135000 * 3 ATCZPAB2 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* 370X 0275 01136000 * STATUS AND FEEDBACK ROUTER 01137000 * DYNAMIC PAB */ 01138000 * 3 ATCAP51 PTR(31), /* PTR TO ISTAPC51 */ 01139000 * 3 ATCZDFJ0 PTR(31), /* ADDR OF ISTZDFJ0 */ 01140000 * 3 ATCAP37 PTR(31), /* PTR TO ISTAPC37 */ 01141000 * 3 ATCAP38 PTR(31), /* PTR TO ISTAPC38 */ 01142000 * 3 ATCDMAPP PTR(31), /* DUMMY APPENDAGE ROUTINE */ 01143000 * /* FOR ABEND */ 01144000 * 3 ATCRPT12 PTR(31), /* RESERVED */ 01145000 * 3 ATCCRA CHAR(8) BDY(DWORD), /* AVAILABLE CRA * 01146000 * 4 ATCCRAQ PTR(31), /* QUEUE OF AVAILABLE CRAS * 01147000 * 4 ATCCRACN FIXED(31), /* COUNTS * 01148000 * 5 ATCCRARC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 01149000 * /* MULTIPLE SIMUALTANIOUS * 01150000 * /* ENQUEUES AND DEQUEUES * 01151000 * 5 ATCCRAAC FIXED(16), /* COUNT OF CRAS ON AVAIL Q * 01152000 * 3 ATCSRB CHAR(8) BDY(DWORD), /* AVAILABLE SRBS * 01153000 * 4 ATCSRBQ PTR(31), /* QUE OF AVAILABLE SRBS * 01154000 * 4 ATCSRBCN FIXED(31), /* COUNTS * 01155000 * 5 ATCSRBRC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 01156000 * /* MULTIPLE SIMUALTANIOUS * 01157000 * /* ENQUEUES AND DEQUEUES * 01158000 * 5 ATCSRBAC FIXED(16), /* COUNT OF SRBS ON AVAIL Q * 01159000 * 3 ATCCRPL CHAR(8) BDY(DWORD), /* AVAILABLE CRPLS * 01160000 * 4 ATCCRPLQ PTR(31), /* QUE OF AVAILABLE CRPLS * 01161000 * 4 ATCRPLCN FIXED(31), /* COUNTS * 01162000 * 5 ATCRPLRC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 01163000 * /* MULTIPLE SIMUALTANIOUS * 01164000 * /* ENQUEUES AND DEQUEUES * 01165000 * 5 ATCRPLAC FIXED(16), /* COUNT OF CRPLS ON AVAIL Q * 01166000 * 3 ATCSQAFR BDY(DWORD), /* DOUBLE WORD FOR CDS 0275 01167000 * SQA RELEASE @VSRIUBL*/ 01168000 * 4 ATCORTBF PTR(31), /* ANCHOR FOR TO-BE- 0275 01169000 * FREED STG Q @VSRIUBL*/ 01170000 * 4 ATCORTBC PTR(31), /* PTR TO TCB OF TASK 0275 01171000 * OWNING STG Q @VSRIUBL*/ 01172000 * 5 ATCORSRB PTR(31), /* PTR TO SMS SRB @VSRIUBL*/ 01173000 * 6 ATCORQG BIT(1)ABNL, /* SRB GATE FOR SMS @VSRIUBL*/ 01174000 * 3 ATCOROBT PTR(31), /* ANCHOR FOR OBTAINED 0275 01175000 * STAGE @VSRIUBL*/ 01176000 * 3 ATCORFRL PTR(31), /* ADDR OF ISTORFRL @VSRIUBL*/ 01177000 * 3 ATCORFMG PTR(31), /* ADDR OF ISTORFMG @VSRIUBL*/ 01178000 * 3 ATCINFDD PTR(31), /* ADDR OF ISTINFDD @VSRIUBL*/ 01179000 * 3 ATCAIWT PTR(31), /* ADDRESS OF BYTE 0275 01180000 * FOLLOWING WAIT IN 0275 01181000 * ISTAICCK @VSRIUBL*/ 01182000 * 3 * BIT(8), /* RESERVED @VSRIUBL*/ 01183000 * 4 ATCABEN BIT(1)ABNL, /* VTAM IS ABNORMALLY 0275 01184000 * ENDING @VSRIUBL*/ 01185000 * 4 ATCOPKL BIT(1)ABNL, /* OPERATOR IS ENDING 0275 01186000 * VTAM @VSRIUBL*/ 01187000 * 4 ATCSNUF BIT(1)ABNL, /* RECURSIVE VTAM ABEND 0275 01188000 * DURING RSCE MGR 0275 01189000 * OPERATION @VSRIUBL*/ 01190000 * 4 * BIT(5), /* RESERVED @VSRIUBL*/ 01191000 * 3 * BIT(24), /* RESERVED @VSRIUBL*/ 01192000 * 3 ATCRPT27 PTR(31), /* RESERVED */ 01193000 * 3 ATCRPT28 PTR(31), /* RESERVED */ 01194000 * 3 ATCRPT29 PTR(31), /* RESERVED */ 01195000 * 3 ATCRPT30 PTR(31), /* RESERVED */ 01196000 * 3 ATCRPT31 PTR(31), /* RESERVED */ 01197000 * 3 ATCRPT32 PTR(31), /* RESERVED */ 01198000 * 3 ATCRPT33 PTR(31), /* RESERVED */ 01199000 * 3 ATCRPT34 PTR(31), /* RESERVED */ 01200000 * 3 ATCRPT35 PTR(31), /* RESERVED */ 01201000 * 3 ATCRPT36 PTR(31), /* RESERVED */ 01202000 * 3 ATCRPT37 PTR(31), /* RESERVED */ 01203000 * 3 ATCRPT38 PTR(31), /* RESERVED */ 01204000 * 3 ATCRPT39 PTR(31), /* RESERVED */ 01205000 * 3 ATCRPT40 PTR(31), /* RESERVED */ 01206000 */* END OF VS1/VS2 COMMON CODE. */ 01207000 */* START OF VS2 UNIQUE CODE. */ 01208000 * 3 ATCVTFLG BIT(32), 0275 01209000 * 4 ATCVTACT BIT(1), /* VTT ACTIVE */ 01210000 * 4 * BIT(31), /* RESERVED */ 01211000 * 3 ATCHLTCB PTR(31), /* ECB FOR HALTING VTAM */ 01212000 * 3 ATCATA10 PTR(31), /* PTR TO ISTATM10 */ 01213000 * 3 ATCZLAAB PTR(31), /* PTR TO ISTZLFAB */ 01214000 * 3 ATCCACXA PTR(31), /* PTR TO ISTCFCXA */ 01215000 * 3 ATCSMARA PTR(31), /* PTR TO ISTORFRA */ 01216000 * 3 ATCSMAID PTR(31), /* PTR TO ISTORFID */ 01217000 * 3 ATCTPWQA PTR(31), /* WAIT Q ANCHOR FOR TPIOS */ 01218000 * 3 ATCSMAPR PTR(31), /* PTR TO ISTORFPR */ 01219000 * 3 ATCSMABF PTR(31), /* PTR TO ISTORFBF */ 01220000 * 3 ATCPSTA PTR(31), /* ACTIVE PST QUEUE */ 01221000 * 3 ATCAPBE PTR(31), /* POINTER TO ISTAICBE */ 01222000 * 3 ATCTRMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0275 01223000 * /* PAB FOR VTAM TERM TASK */ 01224000 * 3 ATCTPSPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0275 01225000 * /* PAB FOR TPIOS */ 01226000 * 3 ATCAP23 PTR(31), /* PTR TO ISTAPC23 */ 01227000 * 3 ATCAPC25 PTR(31), /* PTR TO ISTAPC25 */ 01228000 * 3 ATCAP41 PTR(31), /* PTR TO ISTAPC41 */ 01229000 * 3 ATCRCFY0 PTR(31), /* PTR TO ISTRCFY0 */ 01230000 * 3 ATCAP55 PTR(31), /* PTR TO ISTAPC55 */ 01231000 * 3 ATCAP56 PTR(31), /* PTR TO ISTAPC56 */ 01232000 * 3 ATCAPC59 PTR(31), /* PTR TO ISTAPC59 */ 01233000 * 3 ATCAP62 PTR(31), /* PTR TO ISTAPC62 */ 01234000 * 3 ATCAP66 PTR(31), /* PTR TO ISTAPC66 */ 01235000 * 3 ATCAP69 PTR(31), /* PTR TO ISTAPM69 */ 01236000 * 3 ATCAP82 PTR(31), /* PTR TO ISTAPC82 */ 01237000 * 3 ATCAP83 PTR(31), /* PTR TO ISTAPC83 */ 01238000 * 3 ATCAP84 PTR(31), /* PTR TO ISTAPC84 */ 01239000 * 3 ATCAP85 PTR(31), /* PTR TO ISTAPC85 */ 01240000 * 3 ATCAP86 PTR(31), /* PTR TO ISTAPC86 */ 01241000 * 3 ATCASCB PTR(31), /* PTR TO VTAM ASCB */ 01242000 * 3 ATCMPLTA PTR(31), /* PTR TO MPST LIST TABLE */ 01243000 * 3 ATCZR01 PTR(31), /* PTR TO ISTZRM01 */ 01244000 * 3 ATCAICTN PTR(31), /* PTR TO ISTAICTN */ 01245000 * 3 ATCTPCP0 PTR(31), /* PTR TO ISTZFSAV */ 01246000 * 3 ATCTPCP1 PTR(31), /* PTR TO ISTZ19SV */ 01247000 * 3 ATCZFLAG BIT(8), /* FLAG BYTE */ 01248000 * 4 ATCZF001 BIT(1), /* MDR RECORDING SUSPENDED */ 01249000 * 4 ATCRSV66 BIT(7), /* RESERVED */ 01250000 * 3 ATCRSV75 BIT(8), /* RESERVED */ 01251000 * 3 ATCSRBCT FIXED(16), /* COUNT OF PREALLOCATED SRB'S*/ 01252000 * 3 ATCCRACT FIXED(16), /* COUNT OF PREALLOCATED CRA'S*/ 01253000 * 3 ATCRPLCT FIXED(16), /* COUNT OF PREALLOCATED CRPL */ 01254000 * 3 ATCRSV88 PTR(31), /* RESERVED */ 01255000 * 3 ATCTPMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /*TP MSG PAB 01256000 * FOR VS2 */ 01257000 * 3 ATCTPMMI PTR(31), /* PTR TO ISTCFMMI - MSG ISSUER 01258000 * FOR SRB MODE ROUTINES */ 01259000 * 3 ATCVIOPM PTR(31), /* PTR TO ISTVIOPM */ 01260000 * 3 ATCPOPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0275 01261000 * /* POPAB FOR REPLY PROCESSING, POI TERMINATION, */ 01262000 * /* AND VTAM MESSAGE PROCESSOR */ 01263000 * 2 ATCAOS CHAR(0) BDY(WORD); /* VS2 ONLY FIELDS */ 01264000 */* LOGICAL CHANNEL COMMAND WORD * 01265000 */* ADD A DECLARE 003 10/18/74 * 01266000 *DCL 1 ISTLCCW BDY(WORD) BASED, 0276 01267000 * 2 LCCWOP CHAR(1), /* OPERATION CODE -CONTROL * 01268000 * 3 LCCWSI BIT(1), /* SESS INIT / START DIALOG FLG* 01269000 * 3 LCCWSD BIT(1), /* SESS DISCON/END DIALOG FLG * 01270000 * 3 LCCWRWOP BIT(6), /* READ/WRITE OPERATION CODE * 01271000 * 4 * BIT(1), /* RESERVED * 01272000 * 4 LCCWSOP BIT(1), /* SPECIAL OPERATION LIKE 0276 01273000 * ERASE OR READ CONT * 01274000 * 4 LCCWCTL BIT(4), /* CONTROL TYPE * 01275000 * 5 LCCWMODE BIT(2), /* MODE TYPE * 01276000 * 5 LCCWTYPE BIT(2), /* OPERATION TYPE * 01277000 * 2 LCCWFLAG CHAR(1), /* FLAG BYTE * 01278000 * 3 LCCWCD BIT(1), /* CHAIN DATA * 01279000 * 3 LCCWCC BIT(1), /* CHAIN COMMAND * 01280000 * 3 LCCWCKPT BIT(1), /* SUPPRESS 3705 CHECK POINT 01281000 * RECORD * 01282000 * 3 LCCWNTVC BIT(1), /* DO NOT PERFORM VALCHEK * 01283000 * 3 LCCWIDAT BIT(1), /* LCCWDATA CONTAINS DATA * 01284000 * 3 LCCWLSI BIT(1), /* LCCW SYNCH INDICATOR * 01285000 * 4 LCCWPER BIT(1), /* POST=RESP * 01286000 * 3 LCCWRFI BIT(1), /* REQUEST FEEDBACK INDICATOR * 01287000 * 3 LCCWACI BIT(1), /* ADDITION COMMAND INDICATOR * 01288000 * 2 LCCWCNT FIXED(16), /* DATA COUNT * 01289000 * 2 LCCWDATA PTR(31); /* DATA ADDRESS OR IMMED. DATA * 01290000 */* LOGICAL COMMAND CODES */ 0277 01291000 *DCL LXDQ BIT(8) CONSTANT('3B'X), /* RESET DEVICE QUEUE * 01292000 * LXEC BIT(8) CONSTANT('4B'X), /* RESET AT END OF COMMAND * 01293000 * LXO BIT(8) CONSTANT('5B'X), /* RESET ORDERLY * 01294000 * LCCWPRGE BIT(8) CONSTANT('6B'X), /* PURGE * 01295000 * LWH BIT(8) CONSTANT('0F'X), /* WRITE HEADER INDI. 1ST BLOCK* 01296000 * LWRVI BIT(8) CONSTANT('1F'X), /* WRITE RVI * 01297000 * LWNA BIT(8) CONSTANT('2F'X), /* WRITE NEGATIVE ACK * 01298000 * LWAA BIT(8) CONSTANT('3F'X), /* WRITE ALTERNATE ACK * 01299000 * LWPLG BIT(8) CONSTANT('5F'X), /* WRITE ACK LEADING GRAPHICS * 01300000 * LWNLG BIT(8) CONSTANT('6F'X), /* WRITE NACK LEADING GRAPHICS * 01301000 * LSMDE BIT(8) CONSTANT('4F'X), /* SET MODE * 01302000 * LIFBM BIT(8) CONSTANT('7F'X), /* INDIC 1ST BLOCK OF MESSAGE * 01303000 * LTEST BIT(8) CONSTANT('FE'X), /* TEST LCCW * 01304000 * LPRMPT BIT(8) CONSTANT('13'X), /* PREEMPT LCCW * 01305000 * LRSTR BIT(8) CONSTANT('43'X), /* RESTORE LCCW * 01306000 * LEXEC BIT(8) CONSTANT('FF'X), /* SPECIAL CONTROL OPERATION * 01307000 * LREAD BIT(2) CONSTANT('10'B), /* READ TYPE LCCW * 01308000 * LWRITE BIT(2) CONSTANT('01'B), /* WRITE TYPE LCCW * 01309000 * LCNTRL BIT(2) CONSTANT('11'B), /* CONTROL TYPE LCCW * 01310000 * LRESET BIT(4) CONSTANT('1011'B),/* RESET COMMANDS * 01311000 * LTIC BIT(8) CONSTANT('08'X), /* LOGICAL TIC * 01312000 * LWR BIT(6) CONSTANT('000001'B), /* WRITE CONVERSATIONAL * 01313000 * LWB BIT(6) CONSTANT('000101'B), /* WRITE BLOCK * 01314000 * LWM BIT(6) CONSTANT('001001'B), /* WRITE MESSAGE * 01315000 * LWT BIT(6) CONSTANT('001101'B), /* WRITE TRANSMISSION * 01316000 * LEWM BIT(6) CONSTANT('011001'B), /* ERASE/WRITE MESSAGE * 01317000 * LEWT BIT(6) CONSTANT('011101'B), /* ERASE/WRITE TRNSMSSN * 01318000 * LEAU BIT(6) CONSTANT('010001'B), /* ERASE ALL UNPROTECTED * 01319000 * LRB BIT(6) CONSTANT('000110'B), /* READ BLOCK * 01320000 * LRM BIT(6) CONSTANT('001010'B), /* READ MESSAGE * 01321000 * LRT BIT(6) CONSTANT('001110'B), /* READ TRANSMISSION * 01322000 * LRMOD BIT(6) CONSTANT('010010'B), /* READ MODIFIED * 01323000 * LRBUF BIT(6) CONSTANT('010110'B), /* READ BUFFER * 01324000 * LRCONT BIT(6) CONSTANT('011010'B), /* READ CONTINUOUS * 01325000 * LRPEP BIT(6) CONSTANT('011110'B), /* READ PERPETUAL * 01326000 * LCPYM BIT(6) CONSTANT('101001'B), /* COPY MESSAGE * 01327000 * LCPYT BIT(6) CONSTANT('101101'B), /* COPY TRANSMISSION * 01328000 * LD BIT(8) CONSTANT('23'X), /* DISCONNECT * 01329000 * LDEC BIT(8) CONSTANT('33'X), /* DISCONNECT WITH END OF CALL* 01330000 * LEOC BIT(8) CONSTANT('53'X), /* END OF CALL COMMAND * 01331000 * LXEL BIT(8) CONSTANT('0B'X), /* RESET ERROR LOCK * 01332000 * LXC BIT(8) CONSTANT('1B'X), /* RESET CONDITIONAL * 01333000 * LXI BIT(8) CONSTANT('2B'X), /* RESET IMMEDIATE * 01334000 * LC BIT(8) CONSTANT('03'X), /* CONTACT * 01335000 * LWPA BIT(8) CONSTANT('FD'X); /* WRITE POSITIVE ACK * 01336000 *DCL LMT BIT(2) CONSTANT('11'B), /* TRANSMISSION MODE * 01337000 * LMS BIT(2) CONSTANT('00'B), /* SPECIAL MODE LIKE CONV, EAU * 01338000 * LMB BIT(2) CONSTANT('01'B), /* BLOCK MODE * 01339000 * LMM BIT(2) CONSTANT('10'B); /* MSG OR CONTINUOUS MODE * 01340000 */* FOLLOWING EQUATES FOR - PORT SOLICITOR (DIAL) * 01341000 */* PORT SOLICITOR COMMAND CODES * 01342000 *DCL PSOL BIT(8) CONSTANT('FE'X), /* SPECIAL PORT SOLICITOR 0279 01343000 * COMMAND * 01344000 * STCTL BIT(8) CONSTANT('01'X), /* START CONTROL * 01345000 * RESTCTL BIT(8) CONSTANT('02'X), /* RESET & CONTROL - REDRIVE * 01346000 * STIPUT BIT(8) CONSTANT('03'X); /* START INPUT * 01347000 */* FOLLOWING EQUATES FOR SDLC SUPPORT * 01348000 *DCL LCCHOLD BIT(8) CONSTANT('01'X), /* HOLD * 01349000 * LCCRHOLD BIT(8) CONSTANT('02'X), /* RELEASE HOLD * 01350000 * LSEND BIT(8) CONSTANT ('F1'X), /* SEND * 01351000 * LCLEAR BIT(8) CONSTANT ('F2'X), /* CLEAR * 01352000 * LCRUD BIT(8) CONSTANT ('F3'X), /* CLEAR, UNBIND * 01353000 * LCRUDNFY BIT(8) CONSTANT ('F4'X), /* CLEAR, UNBIND, NOTIFY * 01354000 * LNFY BIT(8) CONSTANT ('F5'X), /* NOTIFY * 01355000 * LRELCB BIT(8) CONSTANT ('F6'X), /* RELEASE CB * 01356000 * LRESTSR BIT(8) CONSTANT ('F7'X), /* RESETSR * 01357000 * LCLRNFY BIT(8) CONSTANT('F8'X), /* CLEAR/NOTIFY * 01358000 * LCHPUR BIT(8) CONSTANT('F9'X); /* PURGE * 01359000 *DCL LCCWSIZE FIXED(8) CONSTANT(8); /* LCCW SIZE * 01360000 *DCL LRDS BIT(8) CONSTANT('FF'X); /* RECORD DEV STATS COMMAND * 01361000 *DCL LQUIS BIT(8) CONSTANT('FE'X); /* QUIESCE COMMAND * 01362000 */* LOGICAL CHANNEL PROGRAM BLOCK */ 01363000 */* */ 01364000 */* REVISIONS 007 05/19/75 */ 01365000 */* */ 01366000 *DCL 1 ISTLCPB BDY(WORD) BASED(LCPBPTR), 0284 01367000 * 2 LCPTYPE CHAR(1), /* TYPE CODE */ 01368000 * 2 LCPLNGTH PTR(8), /* LENGTH IN BYTES */ 01369000 * 2 LCPREQTG CHAR(2), /* LCPB REQ. TAG FIELD */ 01370000 * 3 LCPFLAGS BIT(8), /* FLAG BYTE */ 01371000 * 4 LCPZRT00 BIT(1), /* LOGICAL ERROR FLAG */ 01372000 * 4 LCPZRT01 BIT(1), /* CONTROL BLOCK ERROR */ 01373000 * 4 LCPZF001 BIT(1), /* LCP START PROCESS FLAG */ 01374000 * 5 LCPZRT02 BIT(1), /* I/O INITIATION DISABLED */ 01375000 * 6 LCPZRTL2 BIT(1), /* END OF SCHEDULABLE BLOCK */ 01376000 * 4 LCPZF002 BIT(1), /* LCP IN PROCESSING FLAG */ 01377000 * 5 LCPZRT03 BIT(1), /* GO LOOK AT FMCB LINE STATE */ 01378000 * /* FIELD (REQ. TAG OVERLAY) */ 01379000 * 6 LCPZRTL3 BIT(1), /* WRITE/READ REQUEST */ 01380000 * 4 LCPZF003 BIT(1), /* LCP PROCESSING COMPLETE FLAG* 01381000 * 5 LCPZRT04 BIT(1), /* STPR SET IN BDU FLAG */ 01382000 * /* (REQ. TAG OVERLAY) */ 01383000 * 6 LCPZRTL4 BIT(1), /* FEEDBACK REQUESTED */ 01384000 * 4 LCPZF004 BIT(1), /* SINGLE LCCW/LCP FLAG */ 01385000 * 5 LCPZRT05 BIT(1), /* FEEDBACK TO BE ROUTED TO */ 01386000 * /* ICNCB FMCB (REQ. TAG */ 01387000 * /* OVERLAY) */ 01388000 * 6 LCPZRTL5 BIT(1), /* DECREMENT SCHED COUNT ON DEQ* 01389000 * 4 LCPZRT06 BIT(1), /* CRITICAL TEXT BLOCK */ 01390000 * /* FLAG (REQ. TAG OVERLAY) */ 01391000 * 5 LCPZRTL6 BIT(1), /* WRITE REQUEST */ 01392000 * 4 LCPZRT07 BIT(1), /* BUFFER TRACE ACTIVE */ 01393000 * /* FLAG (REQ. TAG OVERLAY) */ 01394000 * 5 LCPZRTL7 BIT(1), /* SCHEDULING FLAG */ 01395000 * 3 LCPMNRCD CHAR(1), /* LCP MINOR REJECTION CODE */ 01396000 * 4 LCPZRT08 BIT(1), /* I/O TRACE ACTIVE FLAG */ 01397000 * /* (REQ. TAG OVERLAY) */ 01398000 * 5 LCPZRTL8 BIT(1), /* DEVICE END NOTIFICATION */ 01399000 * 4 LCPZRT09 BIT(1), /* DIALOGUE SCHED DISABLED */ 01400000 * 5 LCPZRTL9 BIT(1), /* CRITICAL TEXT FLAG */ 01401000 * 4 LCPZRT0A BIT(1), /* SIMULATED CONTACT FLAG */ 01402000 * 4 LCPZRT0B BIT(1), /* SIMULATED DISCONNECT FLAG */ 01403000 * 2 LCPCHAIN PTR(31), /* APS CHAIN */ 01404000 * 3 LCPCHAI1 PTR(8), 0284 01405000 * 4 LCPCHNG BIT(1), /* GATE BIT */ 01406000 * 3 LCPCHAI2 PTR(24), /* ADDRESS FIELD */ 01407000 * 2 LCPRUCNT PTR(8), /* NUMBER OF RU FOR THIS LCPB */ 01408000 * 3 LCPZMIRC CHAR(1), /* MINOR RETURN CODE */ 01409000 * 2 LCPFLAG2 CHAR(1), /* SECOND FLAG BYTE */ 01410000 * 3 LCPPRFLG BIT(1), /* PACING REQUIRED */ 01411000 * 3 LCPASYN BIT(1), /* ASYNCHRONOUS LCPB */ 01412000 * 3 LCPRSTRT BIT(1), /* RESTART LCPB */ 01413000 * 3 LCPTLBPI BIT(1), /* TPIOS BLOCK LCCW */ 01414000 * 4 LCPZRIMM BIT(1), /* RESET IMMED REQUIRED ON ERR*/ 01415000 * 3 LCPFID0 BIT(1), /* FID0 TH INDICATOR FOR RECORD* 01416000 * 4 LCPEXRES BIT(1), /* EXCEP. RESPONSE SPEC. 3270R*/ 01417000 * 3 LCPDSTAT BIT(1), /* DIALOGUE STATE BIT, 3270R */ 01418000 * /* 0=REQ. REJECT,1=STATE ERROR*/ 01419000 * 3 LCPFREE BIT(1), /* DEALLOCATE LCPB 3270R */ 01420000 * 3 LCPATOP BIT(1), /* ATOP LCPB 3270R */ 01421000 * 2 LCPSEQ FIXED(16), /* OUTBOUND SEQUENCE NUMBER */ 01422000 * 3 LCPRRCCT PTR(8), /* COUNT OF RESPONSES RECEIVED*/ 01423000 * 3 LCPRRCNT PTR(8), /* COUNT OF RESPONSES REQUESTED* 01424000 * 2 LCPLCCW1 PTR(31), /* ADDR FIRST LCCW FOR FID1 */ 01425000 * 2 LCPCID CHAR(4) BDY(WORD), /* COMMUNICATION ID */ 01426000 * 3 LCPSAF BIT(16), /* SOURCE IDENTIFICATION */ 01427000 * 3 LCPDAF BIT(16), /* DESTINATION IDENTIFICATION */ 01428000 * 2 LCPNXLCW PTR(31), /* ADDR NEXT LCCW */ 01429000 * 2 LCPFDBA PTR(31), /* BTU ADDRESS */ 01430000 * 3 LCPFDB1 PTR(8), 0284 01431000 * 3 LCPFDB2 PTR(24), /* ADDRESS FIELD */ 01432000 * 2 LCPTLBAD PTR(31), /* ADDRESS OF TLB */ 01433000 * 2 LCPFOSN BIT(16), /* SEQUENCE NUMBER FIRST RU */ 01434000 * 2 LCPFSNCH FIXED(16), /* 1ST SEQ NUMBER IN RU CHAIN */ 01435000 * 2 LCPSTYPE FIXED(8), /* LCPB SUB-TYPE X'FF' = RESET,* 01436000 * /* X'00' = NON-RESET */ 01437000 * 2 LCPFLG1 CHAR(1), /* FLAGS */ 01438000 * 3 LCPRESET BIT(1), /* A TPQUE WITH RESET QUEUED */ 01439000 * /* THIS ELEMENT */ 01440000 * 3 LCPINTER BIT(1), /* INTERNAL LCPB */ 01441000 * 3 LCPDIRPT BIT(1), /* NOT SEND W/POST=SCHED=0 */ 01442000 * 3 LCPREDRV BIT(1), /* LCPB IS FOR REDRIVE */ 01443000 * 3 LCPSTLB BIT(1), /* TLB NOT TO BE FREED */ 01444000 * 3 LCPTRANS BIT(1), /* DATA INCLUDES CONTROL CHARS*/ 01445000 * 3 LCPRSV78 BIT(2), /* RESERVED */ 01446000 * 2 LCPLCCWC BIT(8), /* COUNT OF LCCWS */ 01447000 * 2 LCPRSV77 CHAR(1), /* RESERVED */ 01448000 * 2 LCPFLCCW PTR(31), /* ADDR OF FIRST LCCW */ 01449000 * 3 LCPUBFSB PTR(31), /* UNBIND FSB ADDRESS */ 01450000 * 2 LCPCLREP PTR(31), /* PTR TO CLEAR LCPB IN UCB */ 01451000 */* NOTE: THE FOLLOWING FIELD - LCPLCCW MUST BE THE LAST FIELD */ 01452000 */* IN THIS CONTROL BLOCK. THE CONTROL BLOCK ISTDCLCP HAS */ 01453000 */* FIELDS IN IT WHICH MUST BE CONTIGUOUS WITH LCPLCCW */ 01454000 * 2 LCPLCCW CHAR(LENGTH(ISTLCCW)) BDY(WORD), /* FIRST LCCW */ 01455000 * 3 LCPRSTQH PTR(31), /* RESET LCPB QUEUE HEADER */ 01456000 * 3 LCPPABA PTR(31), /* PAB POINTER */ 01457000 * 4 LCPRPHA PTR(31), /* RPH POINTER */ 01458000 * 5 LCPFTYPE BIT(1); /* FEEDBACK TYPE */ 01459000 */* CONSTANTS FOR LCPTYPE * 01460000 *DCL LCRPHFT BIT(1) CONSTANT('1'B); 0285 01461000 *DCL LCPABFT BIT(1) CONSTANT('0'B); 0286 01462000 *DCL LCPBFIRM BIT(8) CONSTANT('10'X); /* LU FAILED, CLSDST, SCHED LOST 01463000 * TERM, OPNDST MAY BE TRIED * 01464000 *DCL LCPBTERM BIT(8) CONSTANT('11'X); /* TERM RECEIVED,CLSDST, 0288 01465000 * SCHED LOST TERM * 01466000 */* * 01467000 * 0289 01468000 *DCL 1 LCPZTIE BDY(WORD) DEFINED(LCPCID), /* TOLTEP INTERFACE 0289 01469000 * ELEMENT OVERLAY */ 01470000 * 2 LCPZFMCA PTR(31), /* ACTIVE FMCB ADDRESS */ 01471000 * 2 LCPZSNA PTR(31), /* SYMBOLIC NAME ADDRESS */ 01472000 * 2 LCPZSNAM CHAR(8) BDY(WORD), /* SYMBOLIC NAME */ 01473000 * 3 LCPZTRV1 PTR(31), /* RESERVED FOR RESTORE LCP */ 01474000 * 3 LCPZTRV4 PTR(31); /* RESERVED FOR RESTORE LCP */ 01475000 *DCL LCTYPE BIT(8) CONSTANT('04'X); 0290 01476000 *DCL PLCPTYPE BIT(8) CONSTANT('28'X); /* PURGE LCPB TYPE ID */ 01477000 *DCL LCPCLACB BIT(8) CONSTANT('04'X); /* LCPB FROM CLOSE ACB */ 01478000 *DCL LSRSTYPE BIT(8) CONSTANT('FF'X); /* RESET SUBTYPE */ 01479000 *DCL LCPETYPE BIT(8) CONSTANT('40'X); /* EXTENDED LCPB TYPE ID */ 01480000 */* */ 01481000 */* MINOR RETURN CODES */ 01482000 */* */ 01483000 *DCL LCMCRSTR BIT(8) CONSTANT('F7'X), /* MINOR RC FOR RESETSR */ 01484000 * LCPMNEW BIT(8) CONSTANT('02'X), /* EARLY WARNING, */ 01485000 * /* RECOVERY IN PROGRESS */ 01486000 * LCPMNPF BIT(8) CONSTANT('03'X), /* PERM. I/O FAILURE */ 01487000 * LCPMNAS BIT(8) CONSTANT('04'X), /* AUTO NETWORK SHUTDOWN */ 01488000 * LCPMNCL BIT(8) CONSTANT('06'X), /* CLOSE/CLSDST OCCURED */ 01489000 * LCPMNVD BIT(8) CONSTANT('07'X), /* VARY DEACTIVATE */ 01490000 * LCPMNTF BIT(8) CONSTANT('10'X), /* TEMP RECORD DEVICE FAILURE */ 01491000 * LCPMNSF BIT(8) CONSTANT('01'X), /* TEMP BASIC FAILURE / */ 01492000 * LCPMNTS BIT(8) CONSTANT('11'X), /* TERMINATE SELF */ 01493000 * LCPMNAP BIT(8) CONSTANT('0A'X), /* APPL. ISSUED CLEAR */ 01494000 * LCPMNPR BIT(8) CONSTANT('0B'X), /* PREEMPT */ 01495000 * LCPMNRE BIT(8) CONSTANT('0C'X); /* RESTORE */ 01496000 */* VS1, VS2 TPIOS SAVEAREA FORMAT */ 0296 01497000 *DCL 1 ISTZSAVE BDY(WORD) BASED, 0296 01498000 * 2 ZSAZSVBC PTR(31), /* SAVEAREA BACK CHAIN */ 01499000 * 3 ZSAZSVMS CHAR(1), /* MODULE TRACE CODE */ 01500000 * 4 ZSAZACTV BIT(1), /* ACTIVE SAVE AREA FLAG */ 01501000 * 2 ZSAZSVFC PTR(31), /* SAVEAREA FORWARD CHAIN */ 01502000 * 2 ZSAZSVRR PTR(31), /* RETURN REGISTER */ 01503000 * 2 ZSAZSVVR (6) PTR(31), /* VARIABLE REGS (7-12) SVEAREA*/ 01504000 * 2 ZSAZTRAC CHAR(4); /* EBCDIC NAME OF OWNER */ 01505000 */* 0297 01506000 *THE FOLLOWING EQUATES SHOULD READ ''FIXED(8) CONSTANT(LENGTH(X))'', 01507000 *WHERE X IS THE NAME OF THE VARIABLE CONTROL BLOCK OR FIELD OF WHICH 01508000 *LENGTH IS THE VALUE BEING EQUATED, SHOULD THE PLS COMPILER BE 0297 01509000 *BE ABLE TO TAKE IT. 0297 01510000 * */ 01511000 *DCL ZSAZSVVA FIXED(8) CONSTANT(8); /* DISPLACEMENT TO VARIABLE REGS*/ 01512000 *DCL ZSAZSVSZ FIXED(8) CONSTANT(40); /* LENGTH OF ISTZSAVE */ 01513000 */* PREFIX FOR CRR */ 01514000 */* */ 01515000 */* RELEASE 1 - JUNE 28, 1973 */ 01516000 */* */ 01517000 *DCL 1 ISTPFCRR BASED BDY(WORD), /* PREFIX FOR CRR */ 01518000 * 2 PFCCRR CHAR(4), /* CRR HEADER */ 01519000 * 3 PFCCRRID CHAR(1), /* CRR ID FIELD */ 01520000 * 4 CRRID CHAR(1), /* BASIC CTL LAYER DEFINITION*/ 01521000 * 3 PFCRSV10 CHAR(1), /* RESERVED FOR ALIGNMENT */ 01522000 * 3 PFCCRRLN CHAR(2), /* CRR LENGTH */ 01523000 * 4 CRRLEN CHAR(2), /* BASIC CTL LAYER DEF */ 01524000 * 2 PFCHDR CHAR(8) BDY(WORD), /* SAVE AREA FOR OLD CRR FRR */ 01525000 * 3 PFCCRRO PTR(31), /* PTR TO OLD CRR */ 01526000 * 4 CRRCHAIN PTR(31), /* BASIC CTL LAYER DEFINITION 01527000 * FOR OLD CRR PTR */ 01528000 * 3 PFCFRRO PTR(31), /* PTR TO OLD FRR */ 01529000 * 4 CRRFRR PTR(31), /* BASIC CTL LAYER 0299 01530000 * DEFINITION OF OLD FRR PTR */ 01531000 * 2 PFCFTA BIT(8), /* ID OF LAST FUNCTION TRACED*/ 01532000 * 2 PFCRSV01 CHAR(3); /* ALIGNMENT */ 01533000 *DCL PFIDPIE BIT(8) CONSTANT('80'X); /* DOS/VS TPIOS */ 01534000 *DCL PFIDORE BIT(8) CONSTANT('81'X); /* DOS/VS BMS */ 01535000 *DCL PFIDAPE BIT(8) CONSTANT('82'X); /* DOS/VS PSS */ 01536000 *DCL PFCIDPSV BIT(8) CONSTANT('38'X); /* COMPONENT ID 0303 01537000 * PSS - VS1 AND 2 */ 01538000 *DCL PFCIDTPV BIT(8) CONSTANT('3C'X); /* COMPONENT ID 0304 01539000 * TPIOS VS1 AND 2 */ 01540000 *DCL PFCIDSME BIT(8) CONSTANT('3D'X); /* COMPONENT ID 0305 01541000 * STORAGE MANAGEMENT DOS */ 01542000 *DCL PFCIDOC BIT(8) CONSTANT('31'X); /* COMPONENT ID OPEN/CLOSE */ 01543000 *DCL PFCIDPS BIT(8) CONSTANT('32'X); /* PORT SOLICITOR */ 01544000 *DCL PFCIDCS BIT(8) CONSTANT('34'X); /* CLUSTER SOLICITOR */ 01545000 *DCL PFCIDIT BIT(8) CONSTANT('35'X); /* INIT/TERM */ 01546000 *DCL PFCIDVY BIT(8) CONSTANT('36'X); /* VARY */ 01547000 *DCL PFCIDNS BIT(8) CONSTANT('37'X); /* NET. STAT.SRV. */ 01548000 *DCL PFCIDTPE BIT(8) CONSTANT('38'X); /* COMPONENT ID 0312 01549000 * TPIOS - DOS */ 01550000 *DCL PFCIDCL BIT(8) CONSTANT('39'X); /* COMPONENT ID 0313 01551000 * CONTROL LAYER */ 01552000 *DCL PFCIDPSE BIT(8) CONSTANT('3A'X); /* COMPONENT ID 0314 01553000 * PSS - DOS */ 01554000 *DCL PFCIDSMV BIT(8) CONSTANT('3F'X); /* COMPONENT ID 0315 01555000 * STORAGE MANAGEMENT */ 01556000 *DCL PFCIDTIO BIT(8) CONSTANT('40'X); /* COMPONENT ID TIIO 0316 01557000 * PROCESSING (VS2) */ 01558000 *DCL PFCIDRS BIT(8) CONSTANT('41'X); /* ID FOR REMOTE SOLICITOR */ 01559000 */* CRR FOR COMMAND FACILITIES */ 01560000 */* REVISIONS 001 06/02/75 */ 01561000 *DCL 1 ISTCFCRR BDY(WORD) BASED, /* CRR FOR COMMAND FACILITIES */ 01562000 * 2 CFCAUDIT, /* AUDIT TRAIL FOR CMD FACILITIES*/ 01563000 * 3 CFCNTRD CHAR(1), /* LIST OF MODULES IN COMMAND */ 01564000 * /* FACILITIES ENTERED */ 01565000 * 4 NCFCS1 BIT(1), /* IND MODULE ISTCFCS1 ENTERED */ 01566000 * 4 NCFCS2 BIT(1), /* IND MODULE ISTCFCS2 ENTERED */ 01567000 * 4 NCFCR1 BIT(1), /* IND MODULE ISTCFCR1 ENTERED */ 01568000 * 4 NCFCRP BIT(1), /* IND MODULE ISTCFCRP ENTERED */ 01569000 * 4 NCFCR2 BIT(1), /* IND MODULE ISTCFCR2 ENTERED */ 01570000 * 4 NCFRSVD BIT(3), /* RESERVED */ 01571000 * 3 CFCCRT CHAR(1), /* LIST OF MODULES IN COMMAND */ 01572000 * /* FACILITIES RUNNING */ 01573000 * 4 CCFCS1 BIT(1), /* IND MODULE ISTCFCS1 RUNNING */ 01574000 * 4 CCFCS2 BIT(1), /* IND MODULE ISTCFCS2 RUNNING */ 01575000 * 4 CCFCR1 BIT(1), /* IND MODULE ISTCFCR1 RUNNING */ 01576000 * 4 CCFCRP BIT(1), /* IND MODULE ISTCFCRP RUNNING */ 01577000 * 4 CCFCR2 BIT(1), /* IND MODULE ISTCFCR2 RUNNING */ 01578000 * 4 CCFRSVD1 BIT(3); /* RESERVED */ 01579000 *DCL TIDCFCS1 BIT(8) CONSTANT('00'X); /* THREAD ID FOR ISTCFCS1 */ 01580000 *DCL TIDCFCR1 BIT(8) CONSTANT('01'X); /* THREAD ID FOR ISTCFCR1 */ 01581000 *DCL TIDCFCR2 BIT(8) CONSTANT('02'X); /* THREAD ID FOR ISTCFCR2 */ 01582000 */* COMPONENT RECOVERY RECORD FOR TPIOS */ 0322 01583000 */* DELTA 006 02/10/75 */ 01584000 *DCL 0322 01585000 *1 ISTZCRR BDY(WORD) BASED, /* CONTROL WORD */ 01586000 * 2 ZCRCRR CHAR(4), /* CONTROL WORD */ 01587000 * 3 ZCRID CHAR(1), /* CONTROL BLOCK ID */ 01588000 * 3 ZCRLEN CHAR(2), /* LENGTH OF ZCR */ 01589000 * 3 ZCRFLAG CHAR(1), /* FLAGS */ 01590000 * 2 ZCRCHAIN PTR(31), /* POINTER TO PREVIOUS ZCR */ 01591000 * 2 ZCRFRRA PTR(31), /* PTR TO FRR */ 01592000 * 2 ZCRFLGS1 CHAR(1), /* FLGS USED BY REQUEST COMPLETION */ 01593000 * 3 ZCREXSW BIT(1), /* EXIT SWITCH */ 01594000 * 3 ZCRQUESW BIT(1), /* QUEUE SWITCH */ 01595000 * 3 ZCRDEQSW BIT(1), /* DEQUEUE SWITCH */ 01596000 * 3 ZCRWAIT BIT(1), /* WAIT Q ANALYSIS COMPLETE */ 01597000 * 3 ZCRNRMEX BIT(1), /* NORMAL EXIT TO BE TAKEN */ 01598000 * 3 ZCRENDLP BIT(1), /* END OF LOOP SWITCH */ 01599000 * 3 ZCRUNSOL BIT(1), /* UNSOLICITED DATA */ 01600000 * 3 ZCRFEXIT BIT(1), /* FORCE EXIT SWITCH */ 01601000 * 2 ZCRFLGS2 CHAR(1), /* FLAGS USED WITHIN TPIOS */ 01602000 * 3 ZCRLOCAL BIT(1), /* LOCAL SUPPORT */ 01603000 * 3 ZCRSHEDI BIT(1), /* IMMEDIATE SCHEDULE */ 01604000 * 3 ZCRFMSED BIT(1), /* FMCB SEARCH ENDED */ 01605000 * 3 ZCROB BIT(1), /* OUTBOUND PROC IN PROGRESS */ 01606000 * 3 ZCRIF0E1 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 01607000 * INBOUND PROCESSING */ 01608000 * 3 ZCRIF0E2 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 01609000 * INBOUND PROCESSING */ 01610000 * 3 ZCRIF0E3 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 01611000 * INBOUND PROCESSING */ 01612000 * 2 ZCRSWFLD CHAR(1), /* SWITCHES FOR TPIOS OUTBOUND */ 01613000 * 3 ZCRENDSH BIT(1), /* EXIT FROM REMOTE DEV SCHEDULER */ 01614000 * 4 ZCRSLCP BIT(1), /* SCHEDULE LCPB */ 01615000 * 3 ZCREXTYP BIT(1), /* TPEXIT TYPE */ 01616000 * 3 ZCRENDPR BIT(1), /* EXIT FROM INNER PROCESS */ 01617000 * 3 ZCRNDLCP BIT(1), /* EXIT FROM LCPB PROCESSING */ 01618000 * 4 ZCROB1 BIT(1), /* REMOTE DEV SCHED 1ST TIME SWITCH */ 01619000 * 3 ZCRENDX BIT(1), /* EXIT FROM LCCW/BTU XLATION */ 01620000 * 3 ZCRENDXL BIT(1), /* EXIT FROM LCCW PROC */ 01621000 * 3 ZCRENDAN BIT(1), /* EXIT FROM LCPB ANALYSIS */ 01622000 * 3 ZCRRESET BIT(1), 0322 01623000 * 4 ZCRCNLXL BIT(1), /* CANCEL FURTHER XLATE */ 01624000 * 2 ZCRFLGS3 CHAR(1), /* FLAGS FOR OUTBOUND PROCESSING */ 01625000 * 3 ZCRTIC BIT(1), /* SELECT NOT TO BE SENT */ 01626000 * 3 ZCRTPCON BIT(1), /* TPIOS CONTACT SENT */ 01627000 * 3 ZCRTPDIS BIT(1), /* TPIOS DISCONNECT TO BE SENT */ 01628000 * 3 ZCRDISC BIT(1), /* DISCONNECT IN PROCESS */ 01629000 * 3 ZCREDRIV BIT(1), /* DO DERIVE */ 01630000 * 3 ZCRNOFRE BIT(1), /* NO FREEING OF SIO QUEUE */ 01631000 * 3 ZCRWRPTR BIT(1), /* WRITE TO PRINTER REQUEST */ 01632000 * 3 ZCRINLCP BIT(1), /* ERROR OCCURED DURING OUTBND PROC */ 01633000 * 2 ZCRGENSW CHAR(1), /* GENERAL SWITCHES */ 01634000 * 3 ZCRTSW1 BIT(1), /* TEMP SW FOR STRUCTURED PGM */ 01635000 * 3 ZCRTSW2 BIT(1), /* TEMP SW FOR STRUCTURED PGM */ 01636000 * 3 ZCRRT06 BIT(1), /* CRITICAL TEXT OPTION */ 01637000 * 3 ZCRLCSYN BIT(1), /* LCCW SYNC SPECIFIED */ 01638000 * 3 ZCREXRES BIT(1), /* EXCEPTION RESPONSE SPECIFIED */ 01639000 * 3 ZCRCLRBD BIT(1), /* FLAG INDICATING BIND WAS CLEARED */ 01640000 * 3 ZCRBRIS BIT(1), /* BRACKET REJECTED DUE TO IN BRAC. */ 01641000 * 3 ZCRF1RES BIT(1), /* FID1 RESPONSE TO BE GENERATED */ 01642000 * 2 ZCRPFLGS CHAR(1), /* UTILITIES PROC OPTION FLAGS */ 01643000 * 3 ZCRQAHED BIT(1), /* QXFR RTN TO USE INSERT OPT'N ON TPQ* 01644000 * 3 * BIT(7), /* RESERVED */ 01645000 * 2 ZCRIBPR CHAR(1), /* INBOUND PROCESSING FLAGS */ 01646000 * 3 ZCRNOBUF BIT(1), /* FSB WITH NO BUFFER */ 01647000 * 3 ZCRERR BIT(1), /* ERROR INDICATOR */ 01648000 * 3 ZCRRELK BIT(1), /* RESET ERROR LOCK FUNCTION REQ. */ 01649000 * 3 ZCRLCPFR BIT(1), /* FLAG IND. DEALLOCATE ATOP LCPB */ 01650000 * 3 ZCRLCPFD BIT(1), /* FLAG IND. LCPB FOUND ON WAITQ */ 01651000 * 3 ZCR3270 BIT(1), /* 3270 DEVICE */ 01652000 * 3 ZCR3270R BIT(1), /* 3270 DEVICE IN RECORD MODE */ 01653000 * 3 * BIT(1), /* RESERVED */ 01654000 * 2 ZCRSCPSW CHAR(1), /* SESSION CONTROL FLAGS */ 01655000 * 3 ZCRTPEX BIT(1), /* TP EXIT */ 01656000 * 3 ZCRTPINV BIT(1), /* INVOKE TPIOS */ 01657000 * 3 ZCRRJLCP BIT(1), /* LCPB REJECTED */ 01658000 * 3 ZCRLREQ BIT(1), /* REQUEST */ 01659000 * 3 ZCRPRCMP BIT(1), /* PROCESSING COMPLETE */ 01660000 * 3 ZCRFSBWE BIT(1), /* FSB IS WORK ELEMENT */ 01661000 * 3 ZCRSKIPT BIT(1), /* SKIP TRACE FLAG */ 01662000 * 3 * BIT(1), /* RESERVED */ 01663000 * 2 ZCRCRLCP PTR(31), /* CURRENT LCPB PTR */ 01664000 * 2 ZCRPARMS BDY(WORD), /* PARAMETERS PASSED TO UTILITIES */ 01665000 * 3 ZCRFBPTR PTR(31), /* PTR TO FROM BUFFER */ 01666000 * 4 ZCRCBPTR PTR(31), /* PTR TO CURRENT BUFFER */ 01667000 * 3 ZCRTBPTR PTR(31), /* PTR TO TO-OR-TRANSLATE BUFFER */ 01668000 * 3 ZCRMLNG FIXED(15), /* LENGTH TO MOVE */ 01669000 * 3 ZCRDFRDA FIXED(15), /* OFFSET FROM DATA ADDR IN FROM BUF*/ 01670000 * 4 ZCRDTODA FIXED(15), /* OFFSET FROM DATA ADDR XLATE BUF */ 01671000 * 3 ZCRPCOD1 CHAR(1), /* CODE BYTE FOR ALLOC/DISALLOC */ 01672000 * 4 ZCRPPG BIT(1), /* GET PAGEABLE BUFF */ 01673000 * 4 ZCRPLNG BIT(1), /* LENGTH OF BUFFER SPECIFIED */ 01674000 * 4 ZCRPFSB BIT(1), /* GET FSB */ 01675000 * 4 ZCRPLSBF BIT(1), /* GET LSCB AND BUFFER */ 01676000 * 5 ZCRPLSBQ BIT(1), /* PURGE LSCB QUEUE */ 01677000 * 4 ZCRPLSCB BIT(1), /* GET OR RELEASE LSCB */ 01678000 * 4 ZCRPBUF BIT(1), /* GET OR RELEASE BUFFER */ 01679000 * 4 ZCRPCFTX BIT(1), /* CONFIDENTIAL TEXT */ 01680000 * 4 ZCRPRES BIT(1), /* RESERVED */ 01681000 * 3 ZCRPCOD2 CHAR(1), /* CODE BYTE FOR MOVE */ 01682000 * 4 ZCRPPG2 BIT(1), /* GET PAGEABLE BUFFER */ 01683000 * 4 ZCRPFHDR BIT(1), /* FROM BUFFER FDB TO BE USED */ 01684000 * 4 ZCRPMFGF BIT(1), /* MOVE STARTS WIHT 1ST BUFF IN BLOCK* 01685000 * 4 ZCRPRES2 BIT(5), /* RESERVED */ 01686000 * 3 ZCRPCHAR CHAR(1), /* TRANSLATE & TEST SEARCH CHARACTER*/ 01687000 * 3 ZCRPSW CHAR(1), /* SWITCH FIELD */ 01688000 * 2 ZCRCCWA PTR(31), /* PTR TO CURRENT CCW (CCW 1 OR 2) */ 01689000 * 2 ZCRBFPTR PTR(31), /* SAVE 1ST BUFF PTR IN TO-BUFF CHN 01690000 * OR LAST BUFFER IN CHANNEL PGM */ 01691000 * 2 ZCRZLB PTR(31), /* PTR TO CURR BUFF IN CHANNEL PGM */ 01692000 * 2 ZCRPVZB PTR(31), /* PTR TO PREVIOUS BUFF IN CHAN PGM */ 01693000 * 2 ZCRSVRTN BDY(WORD), /* REG 14 SAVE AREAS */ 01694000 * 3 ZCRSVF1 PTR(31), /* SAVE REQUIRED REGISTER */ 01695000 * 3 ZCRSVF2 PTR(31), /* SAVE REQUIRED REGISTER */ 01696000 * 3 ZCRSVF3 PTR(31), /* SAVE REQUIRED REGISTER */ 01697000 * 3 ZCRSVF4 PTR(31), /* SAVE REQUIRED REGISTER */ 01698000 * 3 ZCRSVF5 PTR(31), /* SAVE REQUIRED REGISTER */ 01699000 * 3 ZCRSVF6 PTR(31), /* SAVE REQUIRED REGISTER */ 01700000 * 3 ZCRSVF7 PTR(31), /* SAVE REQUIRED REGISTER */ 01701000 * 3 ZCRSVF8 PTR(31), /* SAVE REQUIRED REGISTER */ 01702000 * 3 ZCRSVF9 PTR(31), /* SAVE REQUIRED REGISTER */ 01703000 * 3 ZCRSVF10 PTR(31), /* SAVE REQUIRED REGISTER */ 01704000 * 3 ZCRSVF11 PTR(31), /* SAVE REQUIRED REGISTER */ 01705000 * 3 ZCRSVF12 PTR(31), /* SAVE REQUIRED REGISTER */ 01706000 * 3 ZCRSVF13 PTR(31), /* SAVE REQUIRED REGISTER */ 01707000 * 3 ZCRSVF14 PTR(31), /* SAVE REQUIRED REGISTER */ 01708000 * 3 ZCRSVF15 PTR(31), /* SAVE REQUIRED REGISTER */ 01709000 * 3 ZCRSVF16 PTR(31), /* SAVE REQUIRED REGISTER */ 01710000 * 3 ZCRSVF17 PTR(31), /* SAVE REQUIRED REGISTER */ 01711000 * 3 ZCRSVF18 PTR(31), /* SAVE REQUIRED REGISTER */ 01712000 * 3 ZCRSVF19 PTR(31), /* SAVE REQUIRED REGISTER */ 01713000 * 3 ZCRSVF20 PTR(31), /* SAVE REQUIRED REGISTER */ 01714000 * 3 ZCRSVF21 PTR(31), /* SAVE REQUIRED REGISTER */ 01715000 * 3 ZCRSVF22 PTR(31), /* SAVE REQUIRED REGISTER */ 01716000 * 3 ZCRSVF23 PTR(31), /* SAVE REQUIRED REGISTER */ 01717000 * 3 ZCRSVF24 PTR(31), /* SAVE REQUIRED REGISTER */ 01718000 * 3 ZCRSVF25 PTR(31), /* SAVE REQUIRED REGISTER */ 01719000 * 2 ZCRWKARA BDY(WORD), /* TEMPORARY REG SAVE AREA */ 01720000 * 3 ZCRSVWK1 PTR(31), /* SAVE REQUIRED REG */ 01721000 * 3 ZCRSVWK2 PTR(31), /* SAVE REQUIRED REG */ 01722000 * 3 ZCRSVWK3 PTR(31), /* SAVE REQUIRED REG */ 01723000 * 3 ZCRSVWK4 PTR(31), /* SAVE REQUIRED REG */ 01724000 * 3 ZCRSVWK5 PTR(31), /* SAVE REQUIRED REG */ 01725000 * 2 ZCRFSBSV PTR(31), /* FSB CHAIN PTR SAVEAREA */ 01726000 * 2 ZCRFBPRC BIT(1), /* FSB PROCESS SW */ 01727000 * 2 ZCRMOREL BIT(1), /* MORE ELEMENTS SW */ 01728000 * 2 ZCRSCANQ BIT(1), /* SCAN QUEUE SW */ 01729000 * 2 ZCRNXTEL BIT(1), /* NEXT ELEMENT SW */ 01730000 * 2 ZCRXSCHD BIT(1), /* EXIT SCHEDULE SW */ 01731000 * 2 ZCRLSTFB BIT(1), /* INBOUND PROC LAST FSB FOR ELEM SW*/ 01732000 * 2 ZCRTOPQ BIT(1), /* QUEUE ELEMENT TO TOP SW */ 01733000 * 2 ZCRAWQSW BIT(1), /* CHECK AWAITQ FOR MORE WORK =1 */ 01734000 * /* CHECK WAITQ =0 */ 01735000 * 2 ZCRRCDSV CHAR(1), /* RETURN CODE SAVEAREA */ 01736000 * 2 ZCRPRMTC CHAR(1), /* PREEMPT COMPLETION PARAMETER BYTE*/ 01737000 * 2 ZCROPCDE CHAR(1), /* OP CODE TO BE TRANSFORMED * 01738000 * 2 ZCRR2SV PTR(31), /* ISTZBFDI REG 2 SAVE EREA */ 01739000 * 2 ZCRR13SV PTR(31), /* ISTSBFDI REG 13 SAVE EREA */ 01740000 * 2 ZCRCIDSV BDY(WORD), /* ISTZBFDI CID SAVE AREA */ 01741000 * 3 ZCRSAFSV CHAR(2), /* ISTZBFDI SAF SAVE AREA */ 01742000 * 3 ZCRDAFSV CHAR(2), /* ISTZBFDI DAF SAVE AREA */ 01743000 * 2 ZCRSAVEZ (6) BDY(WORD) CHAR(LENGTH(ISTZSAVE)), 0322 01744000 * /* SAVE/TRACE AREAS FOR TPIOS MODS */ 01745000 * 2 ZCRREMIC PTR(31), /* POINTER TO REMOTE RN ICNCB */ 01746000 * 2 ZCRAUDIT CHAR(36), /* TPIOS AUDIT TRAIL AREA */ 01747000 * 3 ZCRTID CHAR(1), /* THREAD I.D. */ 01748000 * 3 ZCRTNAME CHAR(4), /* LAST 4 CHARS OF THREAD NAME */ 01749000 * 3 ZCRENTER BIT(248), /* BIT ARRAY FOR MODULES ENTERED */ 01750000 * 4 ZCREAC1A BIT(1), /* ISTZAC1A ENTERED */ 01751000 * 4 ZCREAC0A BIT(1), /* ISTZAC0A ENTERED */ 01752000 * 4 ZCREAC0B BIT(1), /* ISTZAC0B ENTERED */ 01753000 * 4 ZCREAC1B BIT(1), /* ISTZAC1B ENTERED */ 01754000 * 4 ZCREBCAA BIT(1), /* ISTZBCAA ENTERED */ 01755000 * 4 ZCREBCAB BIT(1), /* ISTZBCAB ENTERED */ 01756000 * 4 ZCREBCAE BIT(1), /* ISTZBCAE ENTERED */ 01757000 * 4 ZCREBCAG BIT(1), /* ISTZBCAG ENTERED */ 01758000 * 4 ZCREBCAI BIT(1), /* ISTZBCAI ENTERED */ 01759000 * 4 ZCREBCAM BIT(1), /* ISTZBCAM ENTERED */ 01760000 * 4 ZCREBCBA BIT(1), /* ISTZBCBA ENTERED */ 01761000 * 4 ZCREBCBB BIT(1), /* ISTZBCBB ENTERED */ 01762000 * 4 ZCREBCBI BIT(1), /* ISTZBCBI ENTERED */ 01763000 * 4 ZCREBCCB BIT(1), /* ISTZBCCB ENTERED */ 01764000 * 4 ZCREBCDI BIT(1), /* ISTZBCDI ENTERED */ 01765000 * 4 ZCREBCEB BIT(1), /* ISTZBCEB ENTERED */ 01766000 * 4 ZCREBCFA BIT(1), /* ISTZBCFA ENTERED */ 01767000 * 4 ZCREBCFB BIT(1), /* ISTZBCFB ENTERED */ 01768000 * 4 ZCREBCGA BIT(1), /* ISTZBCGA ENTERED */ 01769000 * 4 ZCREBCGB BIT(1), /* ISTZBCGB ENTERED */ 01770000 * 4 ZCREBCHA BIT(1), /* ISTZBCHA ENTERED */ 01771000 * 4 ZCREBCHB BIT(1), /* ISTZBCHB ENTERED */ 01772000 * 4 ZCREBCIA BIT(1), /* ISTZBCIA ENTERED */ 01773000 * 4 ZCREBCIB BIT(1), /* ISTZBCIB ENTERED */ 01774000 * 4 ZCREBCID BIT(1), /* ISTZBCID ENTERED */ 01775000 * 4 ZCREBCJA BIT(1), /* ISTZBCJA ENTERED */ 01776000 * 4 ZCREBCJB BIT(1), /* ISTZBCJB ENTERED */ 01777000 * 4 ZCREBCKA BIT(1), /* ISTZBCKA ENTERED */ 01778000 * 4 ZCREBCKB BIT(1), /* ISTZBCKB ENTERED */ 01779000 * 4 ZCREBCLA BIT(1), /* ISTZBCLA ENTERED */ 01780000 * 4 ZCREBCLB BIT(1), /* ISTZBCLB ENTERED */ 01781000 * 4 ZCREBCMB BIT(1), /* ISTZBCMB ENTERED */ 01782000 * 4 ZCREBCND BIT(1), /* ISTZBCND ENTERED */ 01783000 * 4 ZCREBCNE BIT(1), /* ISTZBCNE ENTERED */ 01784000 * 4 ZCREBCOB BIT(1), /* ISTZBCOB ENTERED */ 01785000 * 4 ZCREBCPB BIT(1), /* ISTZBCPB ENTERED */ 01786000 * 4 ZCREBCQB BIT(1), /* ISTZBCQB ENTERED */ 01787000 * 4 ZCREBCRA BIT(1), /* ISTZBCRA ENTERED */ 01788000 * 4 ZCREBCRB BIT(1), /* ISTZBCRB ENTERED */ 01789000 * 4 ZCREBCSC BIT(1), /* ISTZBCSC ENTERED */ 01790000 * 4 ZCREBCXA BIT(1), /* ISTZBCXA ENTERED */ 01791000 * 4 ZCREBCX0 BIT(1), /* ISTZBCX0 ENTERED */ 01792000 * 4 ZCREBCY0 BIT(1), /* ISTZBCY0 ENTERED */ 01793000 * 4 ZCREBCZ0 BIT(1), /* ISTZBCZ0 ENTERED */ 01794000 * 4 ZCREBC0A BIT(1), /* ISTZBC0A ENTERED */ 01795000 * 4 ZCREBC0B BIT(1), /* ISTZBC0B ENTERED */ 01796000 * 4 ZCRECC0A BIT(1), /* ISTZCC0A ENTERED */ 01797000 * 4 ZCRECC0B BIT(1), /* ISTZCC0B ENTERED */ 01798000 * 4 ZCRECC1A BIT(1), /* ISTZCC1A ENTERED */ 01799000 * 4 ZCRECC1B BIT(1), /* ISTZCC1B ENTERED */ 01800000 * 4 ZCRECC2B BIT(1), /* ISTZCC2B ENTERED */ 01801000 * 4 ZCREDCA0 BIT(1), /* ISTZDCA0 ENTERED */ 01802000 * 4 ZCREDCB0 BIT(1), /* ISTZDCB0 ENTERED */ 01803000 * 4 ZCREDCC0 BIT(1), /* ISTZDCC0 ENTERED */ 01804000 * 4 ZCREDCD0 BIT(1), /* ISTZDCD0 ENTERED */ 01805000 * 4 ZCREDCE0 BIT(1), /* ISTZDCE0 ENTERED */ 01806000 * 4 ZCREDCF0 BIT(1), /* ISTZDCF0 ENTERED */ 01807000 * 4 ZCREDCH0 BIT(1), /* ISTZDCH0 ENTERED */ 01808000 * 4 ZCREDCI0 BIT(1), /* ISTZDCI0 ENTERED */ 01809000 * 4 ZCREDCJ0 BIT(1), /* ISTZDCJ0 ENTERED */ 01810000 * 4 ZCREDCKA BIT(1), /* ISTZDCKA ENTERED */ 01811000 * 4 ZCREDCKB BIT(1), /* ISTZDCKB ENTERED */ 01812000 * 4 ZCREDCL0 BIT(1), /* ISTZDCL0 ENTERED */ 01813000 * 4 ZCREDCMB BIT(1), /* ISTZDCMB ENTERED */ 01814000 * 4 ZCREECBA BIT(1), /* ISTZECBA ENTERED */ 01815000 * 4 ZCREECBB BIT(1), /* ISTZECBB ENTERED */ 01816000 * 4 ZCREECCA BIT(1), /* ISTZECCA ENTERED */ 01817000 * 4 ZCREECCB BIT(1), /* ISTZECCB ENTERED */ 01818000 * 4 ZCREECDA BIT(1), /* ISTZECDA ENTERED */ 01819000 * 4 ZCREECEA BIT(1), /* ISTZECEA ENTERED */ 01820000 * 4 ZCREECTA BIT(1), /* ISTZECTA ENTERED */ 01821000 * 4 ZCREFCEA BIT(1), /* ISTZFCEA ENTERED */ 01822000 * 4 ZCREFCEB BIT(1), /* ISTZFCEB ENTERED */ 01823000 * 4 ZCREGCAB BIT(1), /* ISTZGCAB ENTERED */ 01824000 * 4 ZCREGCBB BIT(1), /* ISTZGCBB ENTERED */ 01825000 * 4 * BIT(1), /* NOT USED */ 01826000 * 4 ZCREGCDB BIT(1), /* ISTZGCDB ENTERED */ 01827000 * 4 ZCREGCEB BIT(1), /* ISTZGCEB ENTERED */ 01828000 * 4 ZCREGCLA BIT(1), /* ISTZGCLA ENTERED */ 01829000 * 4 ZCREGC0A BIT(1), /* ISTZGC0A ENTERED */ 01830000 * 4 ZCREGC0B BIT(1), /* ISTZGC0B ENTERED */ 01831000 * 4 ZCREHCAN BIT(1), /* ISTZHCAN ENTERED */ 01832000 * 4 ZCREICAA BIT(1), /* ISTZICAA ENTERED */ 01833000 * 4 ZCREICAB BIT(1), /* ISTZICAB ENTERED */ 01834000 * 4 ZCREICBB BIT(1), /* ISTZICBB ENTERED */ 01835000 * 4 ZCREICBI BIT(1), /* ISTZICBI ENTERED */ 01836000 * 4 ZCREICCB BIT(1), /* ISTZICCB ENTERED */ 01837000 * 4 ZCREICCI BIT(1), /* ISTZICCI ENTERED */ 01838000 * 4 ZCREICDB BIT(1), /* ISTZICDB ENTERED */ 01839000 * 4 ZCREICEB BIT(1), /* ISTZICEB ENTERED */ 01840000 * 4 ZCREICGB BIT(1), /* ISTZICGB ENTERED */ 01841000 * 4 ZCREICHB BIT(1), /* ISTZICHB ENTERED */ 01842000 * 4 ZCREICIB BIT(1), /* ISTZICIB ENTERED */ 01843000 * 4 ZCREICID BIT(1), /* ISTZICID ENTERED */ 01844000 * 4 ZCREICJB BIT(1), /* ISTZICJB ENTERED */ 01845000 * 4 ZCREICKB BIT(1), /* ISTZICKB ENTERED */ 01846000 * 4 ZCREICKE BIT(1), /* ISTZICKE ENTERED */ 01847000 * 4 ZCREICKG BIT(1), /* ISTZICKG ENTERED */ 01848000 * 4 ZCREICLB BIT(1), /* ISTZICLB ENTERED */ 01849000 * 4 ZCREICMB BIT(1), /* ISTZICMB ENTERED */ 01850000 * 4 ZCREICNA BIT(1), /* ISTZICNA ENTERED */ 01851000 * 4 ZCREICNB BIT(1), /* ISTZICNB ENTERED */ 01852000 * 4 ZCREICOA BIT(1), /* ISTZICOA ENTERED */ 01853000 * 4 ZCREICOB BIT(1), /* ISTZICOB ENTERED */ 01854000 * 4 ZCREICQA BIT(1), /* ISTZICQA ENTERED */ 01855000 * 4 ZCREICQB BIT(1), /* ISTZICQB ENTERED */ 01856000 * 4 ZCREICRB BIT(1), /* ISTZICRB ENTERED */ 01857000 * 4 ZCREICSB BIT(1), /* ISTZICSB ENTERED */ 01858000 * 4 ZCREICSC BIT(1), /* ISTZICSC ENTERED */ 01859000 * 4 ZCREICTB BIT(1), /* ISTZICTB ENTERED */ 01860000 * 4 ZCREICUB BIT(1), /* ISTZICUB ENTERED */ 01861000 * 4 ZCREICVB BIT(1), /* ISTZICVB ENTERED */ 01862000 * 4 ZCREICWB BIT(1), /* ISTZICWB ENTERED */ 01863000 * 4 ZCREICX0 BIT(1), /* ISTZICX0 ENTERED */ 01864000 * 4 ZCREIC0B BIT(1), /* ISTZIC0B ENTERED */ 01865000 * 4 ZCREIC1B BIT(1), /* ISTZIC1B ENTERED */ 01866000 * 4 ZCREJCAB BIT(1), /* ISTZJCAB ENTERED */ 01867000 * 4 ZCREJCBB BIT(1), /* ISTZJCBB ENTERED */ 01868000 * 4 ZCREJCCB BIT(1), /* ISTZJCCB ENTERED */ 01869000 * 4 ZCREJCDB BIT(1), /* ISTZJCDB ENTERED */ 01870000 * 4 ZCREJC0B BIT(1), /* ISTZJC0B ENTERED */ 01871000 * 4 ZCREKCBB BIT(1), /* ISTZKCBB ENTERED */ 01872000 * 4 ZCREKCBN BIT(1), /* ISTZKCBN ENTERED */ 01873000 * 4 ZCREKCCN BIT(1), /* ISTZKCCN ENTERED */ 01874000 * 4 ZCREDCWR BIT(1), /* ISTZDCWR ENTERED */ 01875000 * 4 ZCREDCWB BIT(1), /* ISTZDCWB ENTERED */ 01876000 * 4 ZCREDCXR BIT(1), /* ISTZDCXR ENTERED */ 01877000 * 4 ZCREBCBR BIT(1), /* ISTZBCBR ENTERED */ 01878000 * 4 ZCREBCDR BIT(1), /* ISTZBCDR ENTERED */ 01879000 * 4 ZCREBCAR BIT(1), /* ISTZBCAR ENTERED */ 01880000 * 4 ZCRECCBI BIT(1), /* ISTZCCBI ENTERED */ 01881000 * 4 ZCRECCAI BIT(1), /* ISTZCCAI ENTERED */ 01882000 * 4 ZCRECCCI BIT(1), /* ISTZCCCI ENTERED */ 01883000 * 4 ZCREAC1R BIT(1), /* ISTZAC1R ENTERED */ 01884000 * 4 ZCREBCSB BIT(1), /* ISTZBCSB ENTERED */ 01885000 * 4 ZCREDCPR BIT(1), /* ISTZDCPR ENTERED */ 01886000 * 4 ZCREDCQR BIT(1), /* ISTZDCQR ENTERED */ 01887000 * 4 ZCREBCAL BIT(1), /* ISTZBCAL ENTERED */ 01888000 * 4 ZCREBC0L BIT(1), /* ISTZBC0L ENTERED */ 01889000 * 4 ZCREBCNB BIT(1), /* ISTZBCNB ENTERED */ 01890000 * 4 ZCREICOE BIT(1), /* ISTZICOE ENTERED */ 01891000 * 4 ZCREDCNB BIT(1), /* ISTZDCNB ENTERED */ 01892000 * 4 ZCREKCCB BIT(1), /* ISTZKCCB ENTERED */ 01893000 * 4 ZCRECFY0 BIT(1), /* ISTZCFY0 ENTERED */ 01894000 * 4 ZCREDCK0 BIT(1), /* ISTZDFK0 ENTERED */ 01895000 * 4 ZCREICSG BIT(1), /* ISTZICSG ENTERED */ 01896000 * 4 ZCREBCIF BIT(1), /* ISTZBCIF ENTERED */ 01897000 * 4 ZCREDCMF BIT(1), /* ISTZDCMF ENTERED */ 01898000 * 4 ZCRELCAB BIT(1), /* ISTZLCAB ENTERED */ 01899000 * 4 ZCREAC2B BIT(1), /* ISTZAC2B ENTERED */ 01900000 * 4 ZCREIC2B BIT(1), /* ISTZIC2B ENTERED */ 01901000 * 4 ZCRRSV97 BIT(97), /* RESERVED */ 01902000 * 2 ZCRCMNRC CHAR(1), /* PURGE MWOR RETURN CODE */ 01903000 * 2 ZCRWORDA CHAR(3), /* RESERVED FOR LATER USE */ 01904000 * 2 ZCRLCPB CHAR(LENGTH(ISTLCPB)), /* 3270 S/R LCPB */ 01905000 * 3 ZCRRHRU, /* SAVEAREA FOR RH AND RU */ 01906000 * 4 ZCRRH CHAR(3), /* RH */ 01907000 * 4 ZCRRU CHAR(*); /* RU */ 01908000 *DCL ZCTYPE BIT(8) CONSTANT('00'X); /* ZCR TYPE */ 01909000 *DCL ZCLNG FIXED(15) CONSTANT(172); /* ZCRR LENGTH */ 01910000 *DCL ZCRSAVNO BIT(8) CONSTANT('06'X); /* NUMBER OF SAVEAREAS IN ZCRR */ 01911000 *DCL ZCRLSVNO BIT(8) CONSTANT('04'X); /* NUMBER OF SAVE AREAS IN 0326 01912000 * LOCAL SUPPORT */ 01913000 */* *** EQUATES FOR ZCRRCDSV *** */ 0327 01914000 * 0327 01915000 *DCL ZCRMRFSB BIT(8) CONSTANT('0C'X); /* REQUEST COMPLETION MOVE FSB 01916000 * TO PROCESS */ 01917000 *DCL ZCRSRCHQ BIT(8) CONSTANT('10'X); /* REQUEST COMPLETION SEARCH 01918000 * REQUEST QUEUE */ 01919000 *DCL ZCREXIT BIT(8) CONSTANT('14'X); /* REQUEST COMPLETION EXIT */ 01920000 *DCL ZCRSFSB BIT(8) CONSTANT('18'X); /* REQUEST COMPLETION SINGLE 01921000 * FSB */ 01922000 *DCL ZCRDLFSB BIT(8) CONSTANT('1C'X); /* REQUEST COMPLETION DUAL FSB * 01923000 *DCL ZCRNOSCH BIT (8) CONSTANT('20'X); /* REQUEST COMPLETION, EXIT WITH 01924000 * SCHED NONE */ 01925000 *DCL ZCRNRSCH BIT (8) CONSTANT('24'X); /* REQUEST COMPLETION, EXIT WITH 01926000 * SCHED NORM */ 01927000 *DCL ZCRLGERR FIXED(8) CONSTANT(8); /* LOGICAL ERROR */ 01928000 *DCL ZCPLSCB BIT(8) CONSTANT('08'X); /* GET A RELEASE LSCB */ 01929000 *DCL ZCPBUF BIT(8) CONSTANT('04'X); /* GET A RELEASE BUFFER */ 01930000 *DCL ZCRTAC0A FIXED(8) CONSTANT(01); /* LOCAL DEVICE SCHEDULER(OUT)*/ 01931000 *DCL ZCRTAC0B FIXED(8) CONSTANT(02); /* REMOTE DEVICE SCHEDLER(OUT)*/ 01932000 *DCL ZCRTCC1A FIXED(8) CONSTANT(03); /* LOCAL DIALOG SCHEDLER(IN) */ 01933000 *DCL ZCRTCC1B FIXED(8) CONSTANT(04); /* REMOTE DIALOG SCHEDLER(IN) */ 01934000 *DCL ZCRTDCE0 FIXED(8) CONSTANT(05); /* NCP SLOWDOWN RECOVERY */ 01935000 *DCL ZCRTDCKA FIXED(8) CONSTANT(06); /* LOCAL GENERAL FUNCTIONS */ 01936000 *DCL ZCRTDCKB FIXED(8) CONSTANT(07); /* REMOTE GENERAL FUNCTIONS */ 01937000 *DCL ZCRTFCEB FIXED(8) CONSTANT(08); /* REMOTE READ BUFFER ALLOC. */ 01938000 *DCL ZCRTGCLA FIXED(8) CONSTANT(09); /* LCAL CTL & TEST FEEDBACK(IN)* 01939000 *DCL ZCRTGC0A FIXED(8) CONSTANT(10); /* LOCAL REQ. COMPLETION(IN) */ 01940000 *DCL ZCRTGC0B FIXED(8) CONSTANT(11); /* REMOTE REQ. COMPLETION(IN) */ 01941000 *DCL ZCRTICWB FIXED(8) CONSTANT(12); /* RESET CLEANUP (PHASE 5) */ 01942000 *DCL ZCRTIC0B FIXED(8) CONSTANT(13); /* REMOTE REQ COMPLTION CTL(IN)* 01943000 *DCL ZCRTAC1B FIXED(8) CONSTANT(14); /* ISTZAC1B THREAD ID */ 01944000 *DCL ZCRTIC1B FIXED(8) CONSTANT(15); /* ISTZIC1B THREAD ID */ 01945000 *DCL ZCRTCCBI FIXED(8) CONSTANT(16); /* ISTZCCBI THREAD ID */ 01946000 *DCL ZCRTAC1R FIXED(8) CONSTANT(17); /* ISTZAC1R THREAD ID */ 01947000 *DCL ZCRTAC1A FIXED(8) CONSTANT(18); /* ISTZAC1A THREAD ID */ 01948000 *DCL ZCRTLCAB FIXED(8) CONSTANT(19); /* ISTZLCAB THREAD ID */ 01949000 */* COMPONENT RECOVERY */ 01950000 */* */ 01951000 *DCL 1 ISTASCRR BDY(WORD) BASED, /* CRR FOR SMS */ 01952000 * 2 ASCPFCRR CHAR(LENGTH(ISTPFCRR)), 0356 01953000 * 2 ASCFLAGS CHAR(7), /* FLAGS */ 01954000 * 3 ASCFLG1 CHAR(2), /* MODULE TRACE FLAGS */ 01955000 * 4 ASCFBA BIT(1), /* ALLOCATION IN PATH */ 01956000 * 4 ASCFBD BIT(1), /* DE-ALLOCATION IN PATH */ 01957000 * 4 ASCFSR BIT(1), /* FSR IN PATH */ 01958000 * 4 ASCPASTR BIT(13), /* RESERVED PATH FLAGS */ 01959000 * 3 ASCFLG2 CHAR(2), /* MODULE IN CONTROL FLAGS */ 01960000 * 4 ASCFBAIC BIT(1), /* ALLOCATION IN CONTROL */ 01961000 * 4 ASCFBDIC BIT(1), /* DE-ALLOCATION IN CONTROL */ 01962000 * 4 ASCFSRIC BIT(1), /* FSR IN CONTROL */ 01963000 * 4 ASCICR BIT(13), /* RESERVED IN CONTROL FLAGS */ 01964000 * 3 ASCFLG3 CHAR(3), /* AUDIT FLAGS */ 01965000 * 4 ASCFSRGT BIT(1), /* FSR DOING GET PROCESSING */ 01966000 * 4 ASCFBDAL BIT(1), /* FBD DOING ALLOCATION */ 01967000 * 4 ASCKEYF BIT(1), /* KEY HAS BEEN ALTERED */ 01968000 * 4 ASCLLKF BIT(1), /* LOCAL LOCK HELD */ 01969000 * 4 ASCFBDUD BIT(1), /* FBD USING USER DATA */ 01970000 * 4 ASCAUDIT BIT(19), /* RESERVED AUDIT BITS */ 01971000 * 2 ASCKEY CHAR(1), /* ORIGINAL KEY */ 01972000 * 2 ASCETRYA PTR(31), /* RETRY ADRS FOR CONTINUE 0356 01973000 * OPTION */ 01974000 * 2 ASCUSRGS CHAR(16), /* SAVE AREA FOR USER REGS 0356 01975000 * 14 - 1 */ 01976000 * 3 ASCUSR14 CHAR(4), /* REGISTER 14 */ 01977000 * 3 ASCUSR15 CHAR(4), /* REGISTER 15 */ 01978000 * 3 ASCUSR00 CHAR(4), /* REGISTER 0 */ 01979000 * 3 ASCUSR01 CHAR(4), /* REGISTER 1 */ 01980000 * 2 ASCPSREG CHAR(16); /* SAVE AREA FOR PSS 0356 01981000 * REGS 1 - 4 */ 01982000 */* INITIAL LEVEL 001 04/09/75 */ 01983000 *DCL 1 ISTAPCRR BDY(WORD) BASED, 0357 01984000 * 2 APCHDRSV CHAR(LENGTH(ISTPFCRR)), /* HEADER */ 01985000 * 2 APCATFLG CHAR(2), /* AUDIT TRACE FLAGS */ 01986000 * 3 APC51E BIT(1), /* ISTAPC51 WAS ENTERED */ 01987000 * 3 APC52E BIT(1), /* ISTAPC52 ' ' */ 01988000 * 3 APC53E BIT(1), /* ISTAPC53 */ 01989000 * 3 APC54E BIT(1), 0357 01990000 * 3 APC56E BIT(1), 0357 01991000 * 3 APC57E BIT(1), 0357 01992000 * 3 APC58E BIT(1), 0357 01993000 * 3 APC31E BIT(1), 0357 01994000 * 3 * BIT(8), /* RESERVED */ 01995000 * 2 APCRFLG CHAR(2), /* AUDIT TRACE FLAGS */ 01996000 * 3 APC51R BIT(1), /* ISTAPCR1 IS RUNNING */ 01997000 * 3 APC52R BIT(1), /* ISTAPC52 IS RUNNING */ 01998000 * 3 APC53R BIT(1), 0357 01999000 * 3 APC54R BIT(1), 0357 02000000 * 3 APC56R BIT(1), 0357 02001000 * 3 APC57R BIT(1), 0357 02002000 * 3 APC58R BIT(1), 0357 02003000 * 3 APC31R BIT(1), 0357 02004000 * 3 * BIT(8), /* RESERVED */ 02005000 * 2 APCPSTA PTR(31), /* PST@ */ 02006000 * 2 APCTCBA PTR(31), /* TCB@ */ 02007000 * 2 APCRTRN PTR(31), /*@ TO BR14 TO RTN TO SYSTEM */ 02008000 * 2 APCPABSV PTR(31), /*SAVED PAB@ TO REDISPATCH */ 02009000 * 2 APCQWFO PTR(31), /* Q@ IN PST WORK AREA ON */ 02010000 * 2 APCFRRPM PTR(31), /* WORKAREA@ RTN'D FROM SETFR*/ 02011000 * 2 APCSAVE CHAR(72), 0357 02012000 * 3 APCESTAL CHAR(72), /* ESTAE PARAMETER LIST AREA */ 02013000 * 2 APCCOMF CHAR(4) BDY(HWORD), /* FLAGS USED BY ALL PSS RTN */ 02014000 * 3 APCCOMF1 CHAR(2), 0357 02015000 * 4 APCSSTSK BIT(1), /* IRB TYPE WORK */ 02016000 * 4 APCUETSK BIT(1), /* USER EXIT RUNNING UNDER IRB* 02017000 * 4 APCSMCR BIT(1), /* SMA CRA BEING USED */ 02018000 * 4 APCIRB1 BIT(1), /* IRB1 BEING USED */ 02019000 * 4 APCIRB2 BIT(1), /* IRB2 BEING USED */ 02020000 * 4 APCRELR BIT(1), /*CALL ISTAPC58 TO RLEASE CRA*/ 02021000 * 4 APCEXIT BIT(1), /* TELLS ISTAPC58 TO EXIT SYS*/ 02022000 * 4 APCZLBER BIT(1), /* ERR WHILE RUNNING ZLFAB PAB* 02023000 * 4 * BIT(8), /* RESERVED */ 02024000 * 3 APCRETCD FIXED(15), /* RTN CODE FOR R15 FOR SYS */ 02025000 * 2 APCSAV1 PTR(31), /* 1ST SAVE WORD */ 02026000 * 2 APCSAV2 PTR(31), /* 2ND SAVE WORD */ 02027000 * 2 APCSWTWD CHAR(4), /* SWITCH AREA FOR PSS RTN */ 02028000 * 2 APC31FLG CHAR(1), /* ISTAPC31 FLAGS */ 02029000 * 3 APCTPXIT BIT(1), /* TPEXIT IN PROGRESS */ 02030000 * 3 APCRESCH BIT(1), /*PAB TPEXIT OCCURED RESCHED*/ 02031000 * 3 APCSORT BIT(1), /* PAB SORTED TO PROPER PST/MPST */ 02032000 * 3 * BIT(5), /* RESERVED */ 02033000 * 2 APC52FLG CHAR(1), /* ISTAPC52 FLAGS */ 02034000 * 3 APCCKRQ BIT(1), /* CHECK RDY Q FOR WORK */ 02035000 * 3 APCSMSR BIT(1), /* RETURNING SMS RPH */ 02036000 * 3 APCQENQ BIT(1), /* ENQUEUEING PAB'S ON PST Q'S */ 02037000 * 3 APCRDQ BIT(1), /* DEQUEING PAB'S FROM PST RDY Q */ 02038000 * 3 APCNWF BIT(1), /* NO WORK FOUND */ 02039000 * 3 APCWKF BIT(1), /* WORK FOUND */ 02040000 * 3 * BIT(2), /* RESERVED */ 02041000 * 2 APC53FLG CHAR(1), /* ISTAPC53 FLAGS */ 02042000 * 3 APCPR153 BIT(1), /* USED PREALLOCATED CRA */ 02043000 * 2 APC54FLG CHAR(1), /* ISTAPC54 FLAGS */ 02044000 * 3 APCRLST BIT(1), /* SMS BEING CALLED TO RELEASE UECB*/ 02045000 * 3 * BIT(7), /* RESERVED */ 02046000 * 2 APC57FLG CHAR(1), /* ISTAPC57 FLAGS */ 02047000 * 3 APCRECRA BIT(1), /* RELEASE CRA BEING DONE */ 02048000 * 3 APCNREL BIT(1), /* DID NOT RELEASE CRA */ 02049000 * 3 * BIT(6), /* RESERVED */ 02050000 * 2 * CHAR(15); /* RESERVED */ 02051000 */* COMPONENT RECOVERY AREA */ 02052000 */* REVISIONS 005 04/09/75 */ 02053000 *DCL 1 ISTCRA BASED BDY(DWORD), /* COMPONENT RECOVERY AREA */ 02054000 * 2 CRABASIC BDY(WORD), /* CRA WITHOUT PROCESS CRR */ 02055000 * 3 CRAHDR CHAR(8) BDY(WORD), /* CRA HEADER */ 02056000 * 4 CRACRR PTR(31), /* PTR TO ACTIVE CRR */ 02057000 * 4 CRAFRR PTR(31), /* PTR TO ACTIVE FRR */ 02058000 * 3 CRALKACT BIT(32), /* LOCK LEVEL AND 0358 02059000 * OWNERSHIP FLAGS */ 02060000 * 4 CRALEV32 BIT(1), /* 1 = LEVEL 32 LOCK HELD */ 02061000 * 4 CRALEV31 BIT(1), /* 1 = LEVEL 31 LOCK HELD */ 02062000 * 4 CRALEV30 BIT(1), /* 1 = LEVEL 30 LOCK HELD */ 02063000 * 4 CRALEV29 BIT(1), /* 1 = LEVEL 29 LOCK HELD */ 02064000 * 4 CRALEV28 BIT(1), /* 1 = LEVEL 28 LOCK HELD */ 02065000 * 4 CRALEV27 BIT(1), /* 1 = LEVEL 27 LOCK HELD */ 02066000 * 4 CRALEV26 BIT(1), /* 1 = LEVEL 26 LOCK HELD */ 02067000 * 4 CRALEV25 BIT(1), /* 1 = LEVEL 25 LOCK HELD */ 02068000 * 4 CRALEV24 BIT(1), /* 1 = LEVEL 24 LOCK HELD */ 02069000 * 4 CRALEV23 BIT(1), /* 1 = LEVEL 23 LOCK HELD */ 02070000 * 4 CRALEV22 BIT(1), /* 1 = LEVEL 22 LOCK HELD */ 02071000 * 4 CRALEV21 BIT(1), /* 1 = LEVEL 21 LOCK HELD */ 02072000 * 4 CRALEV20 BIT(1), /* 1 = LEVEL 20 LOCK HELD */ 02073000 * 4 CRALEV19 BIT(1), /* 1 = LEVEL 19 LOCK HELD */ 02074000 * 4 CRALEV18 BIT(1), /* 1 = LEVEL 18 LOCK HELD */ 02075000 * 4 CRALEV17 BIT(1), /* 1 = LEVEL 17 LOCK HELD */ 02076000 * 4 CRALEV16 BIT(1), /* 1 = LEVEL 16 LOCK HELD */ 02077000 * 4 CRALEV15 BIT(1), /* 1 = LEVEL 15 LOCK HELD */ 02078000 * 4 CRALEV14 BIT(1), /* 1 = LEVEL 14 LOCK HELD */ 02079000 * 4 CRALEV13 BIT(1), /* 1 = LEVEL 13 LOCK HELD */ 02080000 * 4 CRALEV12 BIT(1), /* 1 = LEVEL 12 LOCK HELD */ 02081000 * 4 CRALEV11 BIT(1), /* 1 = LEVEL 11 LOCK HELD */ 02082000 * 4 CRALEV10 BIT(1), /* 1 = LEVEL 10 LOCK HELD */ 02083000 * 4 CRALEV09 BIT(1), /* 1 = LEVEL 9 LOCK HELD */ 02084000 * 4 CRALEV08 BIT(1), /* 1 = LEVEL 8 LOCK HELD */ 02085000 * 4 CRALEV07 BIT(1), /* 1 = LEVEL 7 LOCK HELD */ 02086000 * 4 CRALEV06 BIT(1), /* 1 = LEVEL 6 LOCK HELD */ 02087000 * 4 CRALEV05 BIT(1), /* 1 = LEVEL 5 LOCK HELD */ 02088000 * 4 CRALEV04 BIT(1), /* 1 = LEVEL 4 LOCK HELD */ 02089000 * 4 CRALEV03 BIT(1), /* 1 = LEVEL 3 LOCK HELD */ 02090000 * 4 CRALEV02 BIT(1), /* 1 = LEVEL 2 LOCK HELD */ 02091000 * 4 CRALEV01 BIT(1), /* 1 = LEVEL 1 LOCK HELD */ 02092000 * 3 CRAL1PTR PTR(31), /* PTR TO LEVEL 1 LOCK */ 02093000 * 3 CRAL2PTR PTR(31), /* PTR TO LEVEL 2 LOCK */ 02094000 * 3 CRAL3PTR PTR(31), /* PTR TO LEVEL 3 LOCK */ 02095000 * 3 CRAL4PTR PTR(31), /* PTR TO LEVEL 4 LOCK */ 02096000 * 3 CRAL5PTR PTR(31), /* PTR TO LEVEL 5 LOCK */ 02097000 * 3 CRAL6PTR PTR(31), /* PTR TO LEVEL 6 LOCK */ 02098000 * 3 CRAL7PTR PTR(31), /* PTR TO LEVEL 7 LOCK */ 02099000 * 3 CRAL8PTR PTR(31), /* PTR TO LEVEL 8 LOCK */ 02100000 * 3 CRAL9PTR PTR(31), /* PTR TO LEVEL 9 LOCK */ 02101000 * 3 CRALAPTR PTR(31), /* RESERVED */ 02102000 */* */ 02103000 */* VS1/VS2 EXTENSION */ 02104000 */* */ 02105000 * 2 CRARPH CHAR(LENGTH(ISTRPH)), /* RPH ASSOCIATED WITH 0358 02106000 * THIS CRH */ 02107000 * 2 CRAPSS CHAR(LENGTH(ISTAPCRR)), /* PSS CRR */ 02108000 * 2 CRAPROCR CHAR(LENGTH(ISTZCRR)) BDY(DWORD), /* PROCESS CRR */ 02109000 * 2 CRASVC CHAR(72) BDY(WORD), /* SERVICE RTN CRA */ 02110000 * 3 CRAASCRR CHAR(LENGTH(ISTASCRR)), /* CRR FOR SMS */ 02111000 * 3 CRAHSIZ PTR(31), /* HEADER SIZE QUED SMS REQ */ 02112000 * 3 CRAMASK PTR(31), /* PREFIX MASK QUED SMS REQ */ 02113000 * 3 CRABUFA FIXED(31), /* BUFF QUE FOR FBQ ALLOCATION* 02114000 * 4 CRABFTBA BIT(1), /* NO BUFFERS ALLOCATED YET * 02115000 * 2 CRARSV01 PTR(31), /* RESERVED */ 02116000 * 2 CRARSV02 PTR(31), /* RESERVED */ 02117000 * 2 CRACHAIN PTR(31); /* CHAIN FIELD USED TO QUEUE 02118000 * CRA TO PREALLOCATE QUEUE 02119000 * WHEN NOT IN USE */ 02120000 *DCL CRALMS32 BIT(32) CONSTANT('80000000'X); /* 32ND LEVEL LOCK MASK */ 02121000 *DCL CRALMS31 BIT(32) CONSTANT('40000000'X); /* 31ST LEVEL LOCK MASK */ 02122000 *DCL CRALMS30 BIT(32) CONSTANT('20000000'X); /* 30TH LEVEL LOCK MASK */ 02123000 *DCL CRALMS29 BIT(32) CONSTANT('10000000'X); /* 29TH LEVEL LOCK MASK */ 02124000 *DCL CRALMS28 BIT(32) CONSTANT('08000000'X); /* 28TH LEVEL LOCK MASK */ 02125000 *DCL CRALMS27 BIT(32) CONSTANT('04000000'X); /* 27TH LEVEL LOCK MASK */ 02126000 *DCL CRALMS26 BIT(32) CONSTANT('02000000'X); /* 26TH LEVEL LOCK MASK */ 02127000 *DCL CRALMS25 BIT(32) CONSTANT('01000000'X); /* 25TH LEVEL LOCK MASK */ 02128000 *DCL CRALMS24 BIT(32) CONSTANT('00800000'X); /* 24TH LEVEL LOCK MASK */ 02129000 *DCL CRALMS23 BIT(32) CONSTANT('00400000'X); /* 23RD LEVEL LOCK MASK */ 02130000 *DCL CRALMS22 BIT(32) CONSTANT('00200000'X); /* 22ND LEVEL LOCK MASK */ 02131000 *DCL CRALMS21 BIT(32) CONSTANT('00100000'X); /* 21ST LEVEL LOCK MASK */ 02132000 *DCL CRALMS20 BIT(32) CONSTANT('00080000'X); /* 20TH LEVEL LOCK MASK */ 02133000 *DCL CRALMS19 BIT(32) CONSTANT('00040000'X); /* 19TH LEVEL LOCK MASK */ 02134000 *DCL CRALMS18 BIT(32) CONSTANT('00020000'X); /* 18TH LEVEL LOCK MASK */ 02135000 *DCL CRALMS17 BIT(32) CONSTANT('00010000'X); /* 17TH LEVEL LOCK MASK */ 02136000 *DCL CRALMS16 BIT(32) CONSTANT('00008000'X); /* 16TH LEVEL LOCK MASK */ 02137000 *DCL CRALMS15 BIT(32) CONSTANT('00004000'X); /* 15TH LEVEL LOCK MASK */ 02138000 *DCL CRALMS14 BIT(32) CONSTANT('00002000'X); /* 14TH LEVEL LOCK MASK */ 02139000 *DCL CRALMS13 BIT(32) CONSTANT('00001000'X); /* 13TH LEVEL LOCK MASK */ 02140000 *DCL CRALMS12 BIT(32) CONSTANT('00000800'X); /* 12TH LEVEL LOCK MASK */ 02141000 *DCL CRALMS11 BIT(32) CONSTANT('00000400'X); /* 11TH LEVEL LOCK MASK */ 02142000 *DCL CRALMS10 BIT(32) CONSTANT('00000200'X); /* 10TH LEVEL LOCK MASK */ 02143000 *DCL CRALMS09 BIT(32) CONSTANT('00000100'X); /* 9TH LEVEL LOCK MASK */ 02144000 *DCL CRALMS08 BIT(32) CONSTANT('00000080'X); /* 8TH LEVEL LOCK MASK */ 02145000 *DCL CRALMS07 BIT(32) CONSTANT('00000040'X); /* 7TH LEVEL LOCK MASK */ 02146000 *DCL CRALMS06 BIT(32) CONSTANT('00000020'X); /* 6TH LEVEL LOCK MASK */ 02147000 *DCL CRALMS05 BIT(32) CONSTANT('00000010'X); /* 5TH LEVEL LOCK MASK */ 02148000 *DCL CRALMS04 BIT(32) CONSTANT('00000008'X); /* 4TH LEVEL LOCK MASK */ 02149000 *DCL CRALMS03 BIT(32) CONSTANT('00000004'X); /* 3RD LEVEL LOCK MASK */ 02150000 *DCL CRALMS02 BIT(32) CONSTANT('00000002'X); /* 2ND LEVEL LOCK MASK */ 02151000 *DCL CRALMS01 BIT(32) CONSTANT('00000001'X); /* 1ST LEVEL LOCK MASK */ 02152000 *DCL CRACRA CHAR(4) CONSTANT('CRA '); /* CHARACTER C.B. ID */ 02153000 * /* CONNECTION SERVICES COMPONENT RECOVERY RECORD */ 02154000 * /* COMPLETED DCR SOLUTIONS */ 02155000 * /* 1H0540 APRIL 28, 1973 MB */ 02156000 */* ZTR4417 JUNE 20, 73 DNM */ 0392 02157000 * DCL 1 ISTCNSTA BDY(WORD) BASED, /* CONNECTION SERVICES 0392 02158000 * COMPONENT RECOVERY RECORD */ 02159000 * 2 CNSTPFX CHAR(LENGTH(ISTPFCRR)), /* STANDARD PREFIX 0392 02160000 * FOR CRR */ 02161000 * 2 CNSTFLDA CHAR(3), /* TRACE FIELD A - HISTORY */ 02162000 * 3 CNSMRINA BIT(1), /* MASTER ENTERED */ 02163000 * 3 CNSAUTHA BIT(1), /* ABOUT TO CALL AUTHORI- 0392 02164000 * SATION EXIT ZTR4417 */ 02165000 * 3 CNSAQINA BIT(1), /* ACQUIRE ENTERED */ 02166000 * 3 CNSXREQA BIT(1), /* ACQUIRE SATISFIED */ 02167000 * 3 CNSQREQA BIT(1), /* ACQUIRE QUEUED */ 02168000 * 3 CNSRLINA BIT(1), /* RELEASE ENTERED */ 02169000 * 3 CNSDORLA BIT(1), /* DOREL REALLOCATION 0392 02170000 * ENTERED */ 02171000 * 3 CNSTRRLA BIT(1), /* RELEASE OF ACTIVE 0392 02172000 * CONNECTION */ 02173000 * 3 CNSRQRLA BIT(1), /* RELEASE QUEUED REQUEST */ 02174000 * 3 CNSPSINA BIT(1), /* PASS ENTERED */ 02175000 * 3 CNSACINA BIT(1), /* ACCEPT ENTERED */ 02176000 * 3 CNSLGINA BIT(1), /* LOGON ENTERED */ 02177000 * 3 CNSGBINA BIT(1), /* PREEMPT ENTERED */ 02178000 * 3 CNSCLINA BIT(1), /* CANCEL ENTERED */ 02179000 * 3 CNSCLAQA BIT(1), /* CANCEL ACQUIRES */ 02180000 * 3 CNSTCONA BIT(1), /* TCONNECT */ 02181000 * 3 CNSACONA BIT(1), /* ACONNECT */ 02182000 * 3 CNSQUEUA BIT(1), /* QUEUE */ 02183000 * 3 CNSSEARA BIT(1), /* SEARCH Q */ 02184000 * 3 CNSGETSA BIT(1), /* CONNECTION SERVICES 0392 02185000 * GETSTORE */ 02186000 * 3 CNSFREEA BIT(1), /* CONNECTION SERVICES 0392 02187000 * FREESTORE */ 02188000 * 3 CNSACCTA BIT(1), /* ABOUT TO CALL 0392 02189000 * ACCOUNTING EXIT */ 02190000 * 3 CNSLOG0A BIT(1), /* LOGON 0 */ 02191000 * 3 CNSRSV01 BIT(1), /* RESERVED */ 02192000 * 2 CNSTFLDB CHAR(3), /* TRACE FIELD B - 0392 02193000 * CURRENT ACTIVITY */ 02194000 * 3 CNSMRINB BIT(1), 0392 02195000 * 3 CNSAUTHB BIT(1), 0392 02196000 * 3 CNSAQINB BIT(1), 0392 02197000 * 3 CNSXREQB BIT(1), 0392 02198000 * 3 CNSQREQB BIT(1), 0392 02199000 * 3 CNSRLINB BIT(1), 0392 02200000 * 3 CNSDORLB BIT(1), 0392 02201000 * 3 CNSTRRLB BIT(1), 0392 02202000 * 3 CNSRQRLB BIT(1), 0392 02203000 * 3 CNSPSINB BIT(1), 0392 02204000 * 3 CNSACINB BIT(1), 0392 02205000 * 3 CNSLGINB BIT(1), 0392 02206000 * 3 CNSGBINB BIT(1), 0392 02207000 * 3 CNSCLINB BIT(1), 0392 02208000 * 3 CNSCLAQB BIT(1), 0392 02209000 * 3 CNSTCONB BIT(1), 0392 02210000 * 3 CNSACONB BIT(1), 0392 02211000 * 3 CNSQUEUB BIT(1), 0392 02212000 * 3 CNSSEARB BIT(1), 0392 02213000 * 3 CNSGETSB BIT(1), 0392 02214000 * 3 CNSFREEB BIT(1), 0392 02215000 * 3 CNSACCTB BIT(1), 0392 02216000 * 3 CNSLOG0B BIT(1), 0392 02217000 * 3 CNSRSV05 BIT(1); 0392 02218000 */* CRR FOR VARY */ 02219000 */* REVISIONS 009 03/24/75 */ 02220000 */* */ 02221000 * DCL 1 ISTVYCRR BDY(WORD) BASED, /* CRR FOR SSCP */ 02222000 * 2 VYCCNS CHAR(LENGTH(ISTCNSTA)), /* RESERVE SPACE FOR 0393 02223000 * CONN. SVCS. AUDIT */ 02224000 * 2 VYCAUDIT, /* AUDIT TRAIL FOR SSCP */ 02225000 * 3 VYCNTRD CHAR(12), /* LIST OF MODULES IN SSCP */ 02226000 * /* 1 = ENTERED */ 02227000 * 4 NINCCL BIT(1), /* MODULE = ISTINCCL */ 02228000 * 4 NINCIO BIT(1), /* MODULE = ISTINCIO */ 02229000 * 4 NINCDL BIT(1), /* MODULE = ISTINCDL */ 02230000 * 4 NINCMY BIT(1), /* MODULE = ISTINCMY */ 02231000 * 4 NINCMD BIT(1), /* MODULE = ISTINCMD */ 02232000 * 4 NINCVI BIT(1), /* MODULE = ISTINCVI */ 02233000 * 4 NINCVA BIT(1), /* MODULE = ISTINCVA */ 02234000 * 4 NINCLF BIT(1), /* MODULE = ISTINCLF */ 02235000 * 4 NINCR1 BIT(1), /* MODULE = ISTINCR1 */ 02236000 * 4 NINCSM BIT(1), /* MODULE = ISTINCSM */ 02237000 * 4 NINCFS BIT(1), /* MODULE = ISTINCFS */ 02238000 * 4 NINCVX BIT(1), /* MODULE = ISTINCVX */ 02239000 * 4 NINCVP BIT(1), /* MODULE = ISTINCVP */ 02240000 * 4 NINCVS BIT(1), /* MODULE = ISTINCVS */ 02241000 * 4 NINCVN BIT(1), /* MODULE = ISTINCVO */ 02242000 * 4 NINCMS BIT(1), /* MODULE = ISTINCMS */ 02243000 * 4 NINCR2 BIT(1), /* MODULE = ISTINCR2 */ 02244000 * 4 NINCIP BIT(1), /* MODULE = ISTINCIP */ 02245000 * 4 NINCD1 BIT(1), /* MODULE = ISTINCD1 */ 02246000 * 4 NINCD2 BIT(1), /* MODULE = ISTINCD2 */ 02247000 * 4 NINCD3 BIT(1), /* MODULE = ISTINCD3 */ 02248000 * 4 NINCD4 BIT(1), /* MODULE = ISTINCD4 */ 02249000 * 4 NINCD5 BIT(1), /* MODULE = ISTINCD5 */ 02250000 * 4 NINCD6 BIT(1), /* MODULE = ISTINCD6 */ 02251000 * 4 NINCD7 BIT(1), /* MODULE = ISTINCD7 */ 02252000 * 4 NINCD8 BIT(1), /* MODULE = ISTINCD8 */ 02253000 * 4 NINCD9 BIT(1), /* MODULE = ISTINCD9 */ 02254000 * 4 NINCE0 BIT(1), /* MODULE = ISTINCE0 */ 02255000 * 4 NINCE2 BIT(1), /* MODULE = ISTINCE2 */ 02256000 * 4 NINCE3 BIT(1), /* MODULE = ISTINCE3 */ 02257000 * 4 NINCE4 BIT(1), /* MODULE = ISTINCE4 */ 02258000 * 4 NINCFM BIT(1), /* MODULE = ISTINCFM */ 02259000 * 4 NINCF1 BIT(1), /* MODULE = ISTINCF1 */ 02260000 * 4 NINCF3 BIT(1), /* MODULE = ISTINCF3 */ 02261000 * 4 NINCF4 BIT(1), /* MODULE = ISTINCF4 */ 02262000 * 4 NINCL0 BIT(1), /* MODULE = ISTINCL0 */ 02263000 * 4 NINCL1 BIT(1), /* MODULE = ISTINCL1 */ 02264000 * 4 NINCL2 BIT(1), /* MODULE = ISTINCL2 */ 02265000 * 4 NINCL3 BIT(1), /* MODULE = ISTINCL3 */ 02266000 * 4 NINCL4 BIT(1), /* MODULE = ISTINCL4 */ 02267000 * 4 NINCL5 BIT(1), /* MODULE = ISTINCL5 */ 02268000 * 4 NINCL6 BIT(1), /* MODULE = ISTINCL6 */ 02269000 * 4 NINCL7 BIT(1), /* MODULE = ISTINCL7 */ 02270000 * 4 NINCL8 BIT(1), /* MODULE = ISTINCL8 */ 02271000 * 4 NINCS1 BIT(1), /* MODULE = ISTINCS1 */ 02272000 * 4 NINCUM BIT(1), /* MODULE = ISTINCUM */ 02273000 * 4 NINCU0 BIT(1), /* MODULE = ISTINCU0 * 02274000 * 4 NINCU1 BIT(1), /* MODULE = ISTINCU1 */ 02275000 * 4 NINCU2 BIT(1), /* MODULE = ISTINCU2 */ 02276000 * 4 NINCU3 BIT(1), /* MODULE = ISTINCU3 */ 02277000 * 4 NINCU4 BIT(1), /* MODULE = ISTINCU4 */ 02278000 * 4 NINCU5 BIT(1), /* MODULE = ISTINCU5 */ 02279000 * 4 NINCU6 BIT(1), /* MODULE = ISTINCU6 */ 02280000 * 4 NINCU7 BIT(1), /* MODULE = ISTINCU7 */ 02281000 * 4 NINCU8 BIT(1), /* MODULE = ISTINCU8 */ 02282000 * 4 NINCV2 BIT(1), /* MODULE = ISTINCV2 */ 02283000 * 4 NINCV3 BIT(1), /* MODULE = ISTINCV3 */ 02284000 * 4 NINCV4 BIT(1), /* MODULE = ISTINCV4 */ 02285000 * 4 NINCV5 BIT(1), /* MODULE = ISTINCV5 */ 02286000 * 4 NINCV6 BIT(1), /* MODULE = ISTINCV6 */ 02287000 * 4 NINCV7 BIT(1), /* MODULE = ISTINCV7 */ 02288000 * 4 NINCV8 BIT(1), /* MODULE = ISTINCV8 */ 02289000 * 4 NINCV9 BIT(1), /* MODULE = ISTINCV9 */ 02290000 * 4 NINCW0 BIT(1), /* MODULE = ISTINCW0 */ 02291000 * 4 NINCW2 BIT(1), /* MODULE = ISTINCW2 */ 02292000 * 4 NINCW4 BIT(1), /* MODULE = ISTINCW4 */ 02293000 * 4 NINCW5 BIT(1), /* MODULE = ISTINCW5 */ 02294000 * 4 NINCW6 BIT(1), /* MODULE = ISTINCW6 */ 02295000 * 4 NINCW7 BIT(1), /* MODULE = ISTINCW7 */ 02296000 * 4 NINCW8 BIT(1), /* MODULE = ISTINCW8 */ 02297000 * 4 NINCW9 BIT(1), /* MODULE = ISTINCW9 */ 02298000 * 4 NINCX0 BIT(1), /* MODULE = ISTINCX0 */ 02299000 * 4 NINCX1 BIT(1), /* MODULE = ISTINCX1 */ 02300000 * 4 NINCX2 BIT(1), /* MODULE = ISTINCX2 */ 02301000 * 4 NINCX3 BIT(1), /* MODULE = ISTINCX3 */ 02302000 * 4 NINCX6 BIT(1), /* MODULE = ISTINCX6 */ 02303000 * 4 NINCX7 BIT(1), /* MODULE = ISTINCX7 */ 02304000 * 4 NINCX8 BIT(1), /* MODULE = ISTINCX8 */ 02305000 * 4 NINCX9 BIT(1), /* MODULE = ISTINCX9 */ 02306000 * 4 NINCUA BIT(1), /* MODULE = ISTINCUA */ 02307000 * 4 NINCUB BIT(1), /* MODULE = ISTINCUB */ 02308000 * 4 NINCUQ BIT(1), /* MODULE = ISTINCUQ */ 02309000 * 4 NINCE1 BIT(1), /* MODULE = ISTINCE1 */ 02310000 * 4 NINCE5 BIT(1), /* MODULE = ISTINCE5 */ 02311000 * 4 NINCE6 BIT(1), /* MODULE = ISTINCE6 */ 02312000 * 4 NINCE7 BIT(1), /* MODULE = ISTINCE7 */ 02313000 * 4 NINCE8 BIT(1), /* MODULE = ISTINCE8 */ 02314000 * 4 NINCR3 BIT(1), /* MODULE = ISTINCR3 */ 02315000 * 4 NINCR5 BIT(1), /* MODULE = ISTINCR5 */ 02316000 * 4 NINCVO BIT(1), /* MODULE = ISTINCVO */ 02317000 * 4 NINCE9 BIT(1), /* MODULE = ISTINCE9 */ 02318000 * 4 NINCFE BIT(1), /* MODULE = ISTINCFE */ 02319000 * 4 VYCRSV01 BIT(4), /* RESERVED */ 02320000 * 3 VYCCRT CHAR(12), /* LIST OF SSCP MODULES */ 02321000 * /* 2 = RUNNING */ 02322000 * 4 CINCCL BIT(1), /* MODULE = ISTINCCL */ 02323000 * 4 CINCIO BIT(1), /* MODULE = ISTINCIO */ 02324000 * 4 CINCDL BIT(1), /* MODULE = ISTINCDL */ 02325000 * 4 CINCMY BIT(1), /* MODULE = ISTINCMY */ 02326000 * 4 CINCMD BIT(1), /* MODULE = ISTINCMD */ 02327000 * 4 CINCVI BIT(1), /* MODULE = ISTINCVI */ 02328000 * 4 CINCVA BIT(1), /* MODULE = ISTINCVA */ 02329000 * 4 CINCLF BIT(1), /* MODULE = ISTINCLF */ 02330000 * 4 CINCR1 BIT(1), /* MODULE = ISTINCR1 */ 02331000 * 4 CINCSM BIT(1), /* MODULE = ISTINCSM */ 02332000 * 4 CINCFS BIT(1), /* MODULE = ISTINCFS */ 02333000 * 4 CINCVX BIT(1), /* MODULE = ISTINCVX */ 02334000 * 4 CINCVP BIT(1), /* MODULE = ISTINCVP */ 02335000 * 4 CINCVS BIT(1), /* MODULE = ISTINCVS */ 02336000 * 4 CINCVN BIT(1), /* MODULE = ISTINCVO */ 02337000 * 4 CINCMS BIT(1), /* MODULE = ISTINCMS */ 02338000 * 4 CINCR2 BIT(1), /* MODULE = ISTINCR2 */ 02339000 * 4 CINCIP BIT(1), /* MODULE = ISTINCIP */ 02340000 * 4 CINCD1 BIT(1), /* MODULE = ISTINCD1 */ 02341000 * 4 CINCD2 BIT(1), /* MODULE = ISTINCD2 */ 02342000 * 4 CINCD3 BIT(1), /* MODULE = ISTINCD3 */ 02343000 * 4 CINCD4 BIT(1), /* MODULE = ISTINCD4 */ 02344000 * 4 CINCD5 BIT(1), /* MODULE = ISTINCD5 */ 02345000 * 4 CINCD6 BIT(1), /* MODULE = ISTINCD6 */ 02346000 * 4 CINCD7 BIT(1), /* MODULE = ISTINCD7 */ 02347000 * 4 CINCD8 BIT(1), /* MODULE = ISTINCD8 */ 02348000 * 4 CINCD9 BIT(1), /* MODULE = ISTINCD9 */ 02349000 * 4 CINCE0 BIT(1), /* MODULE = ISTINCE0 */ 02350000 * 4 CINCE2 BIT(1), /* MODULE = ISTINCE2 */ 02351000 * 4 CINCE3 BIT(1), /* MODULE = ISTINCE3 */ 02352000 * 4 CINCE4 BIT(1), /* MODULE = ISTINCE4 */ 02353000 * 4 CINCFM BIT(1), /* MODULE = ISTINCFM */ 02354000 * 4 CINCF1 BIT(1), /* MODULE = ISTINCF1 */ 02355000 * 4 CINCF3 BIT(1), /* MODULE = ISTINCF3 */ 02356000 * 4 CINCF4 BIT(1), /* MODULE = ISTINCF4 */ 02357000 * 4 CINCL0 BIT(1), /* MODULE = ISTINCL0 */ 02358000 * 4 CINCL1 BIT(1), /* MODULE = ISTINCL1 */ 02359000 * 4 CINCL2 BIT(1), /* MODULE = ISTINCL2 */ 02360000 * 4 CINCL3 BIT(1), /* MODULE = ISTINCL3 */ 02361000 * 4 CINCL4 BIT(1), /* MODULE = ISTINCL4 */ 02362000 * 4 CINCL5 BIT(1), /* MODULE = ISTINCL5 */ 02363000 * 4 CINCL6 BIT(1), /* MODULE = ISTINCL6 */ 02364000 * 4 CINCL7 BIT(1), /* MODULE = ISTINCL7 */ 02365000 * 4 CINCL8 BIT(1), /* MODULE = ISTINCL8 */ 02366000 * 4 CINCS1 BIT(1), /* MODULE = ISTINCS1 */ 02367000 * 4 CINCUM BIT(1), /* MODULE = ISTINCUM */ 02368000 * 4 CINCU0 BIT(1), /* MODULE = ISTINCU0 * 02369000 * 4 CINCU1 BIT(1), /* MODULE = ISTINCU1 */ 02370000 * 4 CINCU2 BIT(1), /* MODULE = ISTINCU2 */ 02371000 * 4 CINCU3 BIT(1), /* MODULE = ISTINCU3 */ 02372000 * 4 CINCU4 BIT(1), /* MODULE = ISTINCU4 */ 02373000 * 4 CINCU5 BIT(1), /* MODULE = ISTINCU5 */ 02374000 * 4 CINCU6 BIT(1), /* MODULE = ISTINCU6 */ 02375000 * 4 CINCU7 BIT(1), /* MODULE = ISTINCU7 */ 02376000 * 4 CINCU8 BIT(1), /* MODULE = ISTINCU8 */ 02377000 * 4 CINCV2 BIT(1), /* MODULE = ISTINCV2 */ 02378000 * 4 CINCV3 BIT(1), /* MODULE = ISTINCV3 */ 02379000 * 4 CINCV4 BIT(1), /* MODULE = ISTINCV4 */ 02380000 * 4 CINCV5 BIT(1), /* MODULE = ISTINCV5 */ 02381000 * 4 CINCV6 BIT(1), /* MODULE = ISTINCV6 */ 02382000 * 4 CINCV7 BIT(1), /* MODULE = ISTINCV7 */ 02383000 * 4 CINCV8 BIT(1), /* MODULE = ISTINCV8 */ 02384000 * 4 CINCV9 BIT(1), /* MODULE = ISTINCV9 */ 02385000 * 4 CINCW0 BIT(1), /* MODULE = ISTINCW0 */ 02386000 * 4 CINCW2 BIT(1), /* MODULE = ISTINCW2 */ 02387000 * 4 CINCW4 BIT(1), /* MODULE = ISTINCW4 */ 02388000 * 4 CINCW5 BIT(1), /* MODULE = ISTINCW5 */ 02389000 * 4 CINCW6 BIT(1), /* MODULE = ISTINCW6 */ 02390000 * 4 CINCW7 BIT(1), /* MODULE = ISTINCW7 */ 02391000 * 4 CINCW8 BIT(1), /* MODULE = ISTINCW8 */ 02392000 * 4 CINCW9 BIT(1), /* MODULE = ISTINCW9 */ 02393000 * 4 CINCX0 BIT(1), /* MODULE = ISTINCX0 */ 02394000 * 4 CINCX1 BIT(1), /* MODULE = ISTINCX1 */ 02395000 * 4 CINCX2 BIT(1), /* MODULE = ISTINCX2 */ 02396000 * 4 CINCX3 BIT(1), /* MODULE = ISTINCX3 */ 02397000 * 4 CINCX6 BIT(1), /* MODULE = ISTINCX6 */ 02398000 * 4 CINCX7 BIT(1), /* MODULE = ISTINCX7 */ 02399000 * 4 CINCX8 BIT(1), /* MODULE = ISTINCX8 */ 02400000 * 4 CINCX9 BIT(1), /* MODULE = ISTINCX9 */ 02401000 * 4 CINCUA BIT(1), /* MODULE = ISTINCUA */ 02402000 * 4 CINCUB BIT(1), /* MODULE = ISTINCUB */ 02403000 * 4 CINCUQ BIT(1), /* MODULE = ISTINCUQ */ 02404000 * 4 CINCE1 BIT(1), /* MODULE = ISTINCE1 */ 02405000 * 4 CINCE5 BIT(1), /* MODULE = ISTINCE5 */ 02406000 * 4 CINCE6 BIT(1), /* MODULE = ISTINCE6 */ 02407000 * 4 CINCE7 BIT(1), /* MODULE = ISTINCE7 */ 02408000 * 4 CINCE8 BIT(1), /* MODULE = ISTINCE8 */ 02409000 * 4 CINCR3 BIT(1), /* MODULE = ISTINCR3 */ 02410000 * 4 CINCR5 BIT(1), /* MODULE = ISTINCR5 */ 02411000 * 4 CINCVO BIT(1), /* MODULE = ISTINCVO */ 02412000 * 4 CINCE9 BIT(1), /* MODULE = ISTINCE9 */ 02413000 * 4 CINCFE BIT(1), /* MODULE = ISTINCFE */ 02414000 * 4 VYCRSV03 BIT(4), /* RESERVED */ 02415000 * 2 VYCRRSAV CHAR(72), /* SAVE AREA USED BY ISTINCIP*/ 02416000 * /* TO CALL ISTINCW3 */ 02417000 * 2 VYCRRCW3 CHAR(8), /* PARAM LIST USED BY */ 02418000 * /* ISTINCIP TO CALL ISTINCW3 */ 02419000 * 2 VYCRSV04 CHAR(2), /* RESERVED */ 02420000 * 2 VYCRSV02 PTR(31); /* RESERVED */ 02421000 *DCL TIDINCDL BIT(8) CONSTANT('00'X); /* THREAD ID FOR ISTINCDL */ 02422000 *DCL TIDINCMY BIT(8) CONSTANT('01'X); /* THREAD ID FOR ISTINCMY */ 02423000 *DCL TIDINCCL BIT(8) CONSTANT('02'X); /* THREAD ID FOR ISTINCCL */ 02424000 *DCL TIDINCFE BIT(8) CONSTANT('04'X); /* THREAD ID FOR ISTINCFE */ 02425000 * GEN (PRINT ON); 0398 02426000 PRINT ON 02427000 */* END OF TPEPILOG */ 0399 02428000 *END ISTINCU7 0399 02429000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 02430000 */*%INCLUDE SYSLIB (CVT ) * 02431000 */*%INCLUDE SYSUT5 (CUSTDLNK) * 02432000 *; 0399 02433000 B @EL00001 0399 02434000 @DATA DS 0H 02435000 @DATD DSECT 02436000 DS 0F 02437000 ISTINCU7 CSECT 02438000 DS 0F 02439000 @CF00774 DC F'5' 02440000 @CF00772 DC F'10' 02441000 @CF00767 DC F'72' 02442000 @CF02946 DC F'-5' 02443000 @CF00773 DC F'-1' 02444000 @DATD DSECT 02445000 DS 0D 02446000 CVTPTR DS A 02447000 LCPBPTR DS A 02448000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 02449000 @ENDDATD EQU * 02450000 ISTINCU7 CSECT 02451000 DS 0F 02452000 @SIZDATD DC AL1(0) 02453000 DC AL3(@ENDDATD-@DATD) 02454000 DS 0D 02455000 @CB00770 DC X'11C47F1D4013' 02456000 @CB00775 DC X'F5C21D40' 02457000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02458000 @01 EQU 01 02459000 @02 EQU 02 02460000 @03 EQU 03 02461000 @04 EQU 04 02462000 @05 EQU 05 02463000 @06 EQU 06 02464000 @07 EQU 07 02465000 @08 EQU 08 02466000 @09 EQU 09 02467000 @10 EQU 10 02468000 @11 EQU 11 02469000 @12 EQU 12 02470000 @13 EQU 13 02471000 @14 EQU 14 02472000 @15 EQU 15 02473000 CUINDEX EQU @03 02474000 CUNCSPLR EQU @01 02475000 CUSAVERG EQU @13 02476000 RPHPTR EQU @01 02477000 GPR00F EQU @00 02478000 GPR00P EQU @00 02479000 GPR01F EQU @01 02480000 GPR01P EQU @01 02481000 GPR02F EQU @02 02482000 GPR02P EQU @02 02483000 GPR03F EQU @03 02484000 GPR03P EQU @03 02485000 GPR04F EQU @04 02486000 GPR04P EQU @04 02487000 GPR05F EQU @05 02488000 GPR05P EQU @05 02489000 GPR06F EQU @06 02490000 GPR06P EQU @06 02491000 GPR07F EQU @07 02492000 GPR07P EQU @07 02493000 GPR08F EQU @08 02494000 GPR08P EQU @08 02495000 GPR09F EQU @09 02496000 GPR09P EQU @09 02497000 GPR10F EQU @10 02498000 GPR10P EQU @10 02499000 GPR11F EQU @11 02500000 GPR11P EQU @11 02501000 GPR12F EQU @12 02502000 GPR12P EQU @12 02503000 GPR13F EQU @13 02504000 GPR13P EQU @13 02505000 GPR14F EQU @14 02506000 GPR14P EQU @14 02507000 GPR15F EQU @15 02508000 GPR15P EQU @15 02509000 ATCLCPTR EQU 1032 02510000 CVTMAP EQU 0 02511000 CVTDAR EQU CVTMAP+72 02512000 CVTFLGS1 EQU CVTDAR 02513000 CVTDCB EQU CVTMAP+116 02514000 CVTIERLC EQU CVTMAP+144 02515000 CVTOPTA EQU CVTMAP+182 02516000 CVTOPTB EQU CVTMAP+183 02517000 CVTGTF EQU CVTMAP+236 02518000 CVTGTFST EQU CVTGTF 02519000 CVTGTFS EQU CVTGTFST 02520000 CVTSTATE EQU CVTGTFST 02521000 CVTTMODE EQU CVTGTFST 02522000 CVTFORM EQU CVTGTFST 02523000 CVTAQAVT EQU CVTMAP+240 02524000 CVTTCMFG EQU CVTAQAVT 02525000 CVTVOLM2 EQU CVTMAP+244 02526000 CVTTATA EQU CVTVOLM2 02527000 CVTTSKS EQU CVTTATA 02528000 CVTVOLF2 EQU CVTTSKS 02529000 CVTTAT EQU CVTTATA+1 02530000 CVTATER EQU CVTMAP+248 02531000 CVTEXT1 EQU CVTMAP+252 02532000 CVTPURG EQU CVTMAP+260 02533000 CVTQMSG EQU CVTMAP+268 02534000 CVTDMSR EQU CVTMAP+272 02535000 CVTRSV37 EQU CVTDMSR 02536000 CVTDMSRF EQU CVTRSV37 02537000 CVTERPV EQU CVTMAP+316 02538000 CVTINTLA EQU CVTMAP+320 02539000 CVTAPF EQU CVTMAP+324 02540000 CVTEXT2 EQU CVTMAP+328 02541000 CVTHJES EQU CVTMAP+332 02542000 CVTPGSIA EQU CVTMAP+348 02543000 CVTA1F1 EQU CVTMAP+356 02544000 CVTSYSK EQU CVTMAP+357 02545000 CVTVOLM1 EQU CVTMAP+380 02546000 CVTVOLF1 EQU CVTVOLM1 02547000 CVTATMCT EQU CVTMAP+388 02548000 CVTXTNT1 EQU 0 02549000 CVTXTNT2 EQU 0 02550000 CVTDSSV EQU CVTXTNT2 02551000 CVTFLGBT EQU CVTXTNT2+5 02552000 CVTQID EQU CVTXTNT2+24 02553000 CVTSHS EQU CVTXTNT2+40 02554000 CVTRV400 EQU CVTXTNT2+52 02555000 CVTRV409 EQU CVTXTNT2+53 02556000 CVTATCVT EQU CVTXTNT2+64 02557000 CVTRV429 EQU CVTXTNT2+84 02558000 CVTRV438 EQU CVTXTNT2+85 02559000 CVTRV457 EQU CVTXTNT2+112 02560000 CVTRV466 EQU CVTXTNT2+113 02561000 CVTFIX EQU 0 02562000 CVTRELNO EQU CVTFIX+252 02563000 ISTPOHD EQU 0 02564000 POHSTAT EQU ISTPOHD+1 02565000 ISTPFX EQU 0 02566000 PFXID EQU ISTPFX 02567000 ISTNCSPL EQU 0 02568000 @NM00005 EQU ISTNCSPL 02569000 NCSPFX EQU @NM00005 02570000 NCSPLVBF EQU ISTNCSPL+18 02571000 NCSPLVFL EQU ISTNCSPL+20 02572000 NCSPLVF1 EQU ISTNCSPL+21 02573000 NCSPLCMD EQU ISTNCSPL+60 02574000 NCSCMDA EQU NCSPLCMD 02575000 NCSCRFLG EQU ISTNCSPL+67 02576000 NCSPLRAD EQU ISTNCSPL+144 02577000 NCSIOCID EQU ISTNCSPL+148 02578000 NCSPLCID EQU NCSIOCID 02579000 NCSPLCVT EQU ISTNCSPL+156 02580000 NCSPLRPH EQU ISTNCSPL+160 02581000 NCSPLFSB EQU ISTNCSPL+168 02582000 NCSPLFL1 EQU ISTNCSPL+176 02583000 NCSPLFL2 EQU ISTNCSPL+177 02584000 NCSPLFL3 EQU ISTNCSPL+178 02585000 NCSPLFL4 EQU ISTNCSPL+179 02586000 NCSPLFL5 EQU ISTNCSPL+181 02587000 NCSPLOLN EQU ISTNCSPL+182 02588000 NCSPLRUO EQU ISTNCSPL+208 02589000 NCSPLAPP EQU ISTNCSPL+216 02590000 NCSSENSE EQU ISTNCSPL+244 02591000 NCSCRMSK EQU ISTNCSPL+268 02592000 NCSCHKPT EQU NCSCRMSK 02593000 NCSCRMOD EQU NCSCRMSK+2 02594000 NCSPLSID EQU ISTNCSPL+271 02595000 NCSPLSTA EQU NCSPLSID 02596000 NCSPLPHD EQU NCSPLSID+1 02597000 NCSAPP EQU 0 02598000 NCSAPBUE EQU NCSAPP+88 02599000 ISTPAB EQU 0 02600000 PABWQCHN EQU ISTPAB 02601000 PABWEQA EQU PABWQCHN 02602000 PABCHAIN EQU PABWQCHN+4 02603000 PABRPHFG EQU ISTPAB+12 02604000 PABFLAGS EQU PABRPHFG 02605000 PABERLCK EQU PABFLAGS 02606000 PABERRLK EQU PABERLCK 02607000 ISTLOK EQU 0 02608000 LOKCHN EQU ISTLOK+1 02609000 LOKCHNG EQU LOKCHN 02610000 @NM00011 EQU LOKCHNG+2 02611000 ISTDYPAB EQU 0 02612000 ISTRPH EQU 0 02613000 RPHCNTL EQU ISTRPH 02614000 RPHFLAGS EQU RPHCNTL+2 02615000 RPHAPTYP EQU RPHFLAGS 02616000 RPHFSTLC EQU RPHFLAGS 02617000 RPHFLGB EQU RPHCNTL+3 02618000 RPHRPHA EQU ISTRPH+4 02619000 RPHTSKID EQU ISTRPH+8 02620000 RPHRESMA EQU ISTRPH+16 02621000 RPHWPFLG EQU RPHRESMA 02622000 RPHWEA EQU ISTRPH+24 02623000 RPHCSPA EQU RPHWEA 02624000 RPHSRPRM EQU ISTRPH+28 02625000 RPHCRR EQU ISTRPH+32 02626000 RPHPABQA EQU ISTRPH+36 02627000 RPHWORK EQU ISTRPH+40 02628000 RPHSAVE1 EQU RPHWORK 02629000 RPHSBITS EQU RPHSAVE1+1 02630000 ISTATCVT EQU 0 02631000 ATCCOM EQU ISTATCVT 02632000 ATCSTAT EQU ATCCOM 02633000 ATCSTAT1 EQU ATCSTAT 02634000 ATCSTFLG EQU ATCSTAT+1 02635000 ATCPOFLG EQU ATCSTAT+2 02636000 ATCSTAT4 EQU ATCSTAT+3 02637000 ATCIOTRC EQU ATCCOM+140 02638000 ATCTHTRC EQU ATCIOTRC 02639000 ATCCSMR EQU ISTATCVT+296 02640000 ATCSHRFG EQU ISTATCVT+316 02641000 ATCHPGM EQU ISTATCVT+384 02642000 ATCVLCNT EQU ISTATCVT+772 02643000 ATCRNO EQU ISTATCVT+788 02644000 ATCSOPD EQU ISTATCVT+792 02645000 ATCSIPD EQU ISTATCVT+800 02646000 ATCSECST EQU ISTATCVT+812 02647000 ATCSTAT2 EQU ISTATCVT+818 02648000 ATCVTBAM EQU ISTATCVT+908 02649000 @NM00022 EQU ATCVTBAM+3 02650000 ATCAOSM EQU ISTATCVT+912 02651000 ATCGSRBQ EQU ATCAOSM+4 02652000 ATCGSRBG EQU ATCGSRBQ 02653000 ATCICAPP EQU ATCAOSM+100 02654000 ATCLDAPP EQU ATCAOSM+120 02655000 ATCDAPVT EQU ATCAOSM+140 02656000 ATCCRA EQU ATCAOSM+280 02657000 ATCCRACN EQU ATCCRA+4 02658000 ATCSRB EQU ATCAOSM+288 02659000 ATCSRBCN EQU ATCSRB+4 02660000 ATCCRPL EQU ATCAOSM+296 02661000 ATCRPLCN EQU ATCCRPL+4 02662000 ATCSQAFR EQU ATCAOSM+304 02663000 ATCORTBC EQU ATCSQAFR+4 02664000 ATCORSRB EQU ATCORTBC 02665000 @NM00024 EQU ATCAOSM+332 02666000 ATCVTFLG EQU ATCAOSM+392 02667000 ATCZFLAG EQU ATCAOSM+588 02668000 CUMSGTXT EQU 0 02669000 CUSAVMAP EQU 0 02670000 CUBCKPTR EQU CUSAVMAP+4 02671000 CUFWDPTR EQU CUSAVMAP+8 02672000 ISTLCCW EQU 0 02673000 LCCWOP EQU ISTLCCW 02674000 LCCWRWOP EQU LCCWOP 02675000 LCCWCTL EQU LCCWRWOP 02676000 LCCWFLAG EQU ISTLCCW+1 02677000 LCCWLSI EQU LCCWFLAG 02678000 ISTLCPB EQU 0 02679000 LCPREQTG EQU ISTLCPB+2 02680000 LCPFLAGS EQU LCPREQTG 02681000 LCPZF001 EQU LCPFLAGS 02682000 LCPZRT02 EQU LCPZF001 02683000 LCPZF002 EQU LCPFLAGS 02684000 LCPZRT03 EQU LCPZF002 02685000 LCPZF003 EQU LCPFLAGS 02686000 LCPZRT04 EQU LCPZF003 02687000 LCPZF004 EQU LCPFLAGS 02688000 LCPZRT05 EQU LCPZF004 02689000 LCPZRT06 EQU LCPFLAGS 02690000 LCPZRT07 EQU LCPFLAGS 02691000 LCPMNRCD EQU LCPREQTG+1 02692000 LCPZRT08 EQU LCPMNRCD 02693000 LCPZRT09 EQU LCPMNRCD 02694000 LCPCHAIN EQU ISTLCPB+4 02695000 LCPCHAI1 EQU LCPCHAIN 02696000 LCPRUCNT EQU ISTLCPB+8 02697000 LCPFLAG2 EQU ISTLCPB+9 02698000 LCPTLBPI EQU LCPFLAG2 02699000 LCPFID0 EQU LCPFLAG2 02700000 LCPSEQ EQU ISTLCPB+10 02701000 LCPCID EQU ISTLCPB+16 02702000 LCPFDBA EQU ISTLCPB+24 02703000 LCPFLG1 EQU ISTLCPB+37 02704000 LCPFLCCW EQU ISTLCPB+40 02705000 LCPLCCW EQU ISTLCPB+48 02706000 LCPPABA EQU LCPLCCW+4 02707000 LCPRPHA EQU LCPPABA 02708000 ISTZSAVE EQU 0 02709000 ZSAZSVBC EQU ISTZSAVE 02710000 ZSAZSVMS EQU ZSAZSVBC 02711000 ISTPFCRR EQU 0 02712000 PFCCRR EQU ISTPFCRR 02713000 PFCCRRID EQU PFCCRR 02714000 PFCCRRLN EQU PFCCRR+2 02715000 PFCHDR EQU ISTPFCRR+4 02716000 PFCCRRO EQU PFCHDR 02717000 PFCFRRO EQU PFCHDR+4 02718000 ISTCFCRR EQU 0 02719000 CFCAUDIT EQU ISTCFCRR 02720000 CFCNTRD EQU CFCAUDIT 02721000 CFCCRT EQU CFCAUDIT+1 02722000 ISTZCRR EQU 0 02723000 ZCRCRR EQU ISTZCRR 02724000 ZCRFLGS1 EQU ISTZCRR+12 02725000 ZCRFLGS2 EQU ISTZCRR+13 02726000 ZCRSWFLD EQU ISTZCRR+14 02727000 ZCRENDSH EQU ZCRSWFLD 02728000 ZCRNDLCP EQU ZCRSWFLD 02729000 ZCRRESET EQU ZCRSWFLD 02730000 ZCRFLGS3 EQU ISTZCRR+15 02731000 ZCRGENSW EQU ISTZCRR+16 02732000 ZCRPFLGS EQU ISTZCRR+17 02733000 ZCRIBPR EQU ISTZCRR+18 02734000 ZCRSCPSW EQU ISTZCRR+19 02735000 ZCRPARMS EQU ISTZCRR+24 02736000 ZCRFBPTR EQU ZCRPARMS 02737000 ZCRDFRDA EQU ZCRPARMS+10 02738000 ZCRPCOD1 EQU ZCRPARMS+12 02739000 ZCRPLSBF EQU ZCRPCOD1 02740000 ZCRPCOD2 EQU ZCRPARMS+13 02741000 ZCRSVRTN EQU ISTZCRR+56 02742000 ZCRWKARA EQU ISTZCRR+156 02743000 ZCRCIDSV EQU ISTZCRR+192 02744000 ZCRAUDIT EQU ISTZCRR+440 02745000 ZCRENTER EQU ZCRAUDIT+5 02746000 ZCRLCPB EQU ISTZCRR+480 02747000 ZCRRHRU EQU ZCRLCPB 02748000 ISTASCRR EQU 0 02749000 ASCFLAGS EQU ISTASCRR+16 02750000 ASCFLG1 EQU ASCFLAGS 02751000 ASCFLG2 EQU ASCFLAGS+2 02752000 ASCFLG3 EQU ASCFLAGS+4 02753000 ASCUSRGS EQU ISTASCRR+28 02754000 ISTAPCRR EQU 0 02755000 APCATFLG EQU ISTAPCRR+16 02756000 APCRFLG EQU ISTAPCRR+18 02757000 APCSAVE EQU ISTAPCRR+44 02758000 APCCOMF EQU ISTAPCRR+116 02759000 APCCOMF1 EQU APCCOMF 02760000 APC31FLG EQU ISTAPCRR+132 02761000 APC52FLG EQU ISTAPCRR+133 02762000 APC53FLG EQU ISTAPCRR+134 02763000 APC54FLG EQU ISTAPCRR+135 02764000 APC57FLG EQU ISTAPCRR+136 02765000 ISTCRA EQU 0 02766000 CRABASIC EQU ISTCRA 02767000 CRAHDR EQU CRABASIC 02768000 CRACRR EQU CRAHDR 02769000 CRALKACT EQU CRABASIC+8 02770000 CRASVC EQU ISTCRA+848 02771000 CRABUFA EQU CRASVC+68 02772000 ISTCNSTA EQU 0 02773000 CNSTFLDA EQU ISTCNSTA+16 02774000 CNSTFLDB EQU ISTCNSTA+19 02775000 ISTVYCRR EQU 0 02776000 VYCAUDIT EQU ISTVYCRR+22 02777000 VYCNTRD EQU VYCAUDIT 02778000 NINCU7 EQU VYCNTRD+6 02779000 VYCCRT EQU VYCAUDIT+12 02780000 CINCU7 EQU VYCCRT+6 02781000 NCSUSSRU EQU 0 02782000 CVTS01 EQU CVTPGSIA 02783000 CVTLPDIA EQU CVTS01+12 02784000 CVTDIRST EQU CVTLPDIA 02785000 CVTSLIDA EQU CVTS01+24 02786000 CVTCTLFG EQU CVTS01+50 02787000 CVTRV210 EQU CVTS01+424 02788000 CVTRV219 EQU CVTS01+425 02789000 CVTRV228 EQU CVTS01+426 02790000 CVTRV237 EQU CVTS01+427 02791000 CVTMFRTR EQU CVTS01+452 02792000 CVTRV262 EQU CVTS01+468 02793000 CVTRV271 EQU CVTS01+469 02794000 CVTRV280 EQU CVTS01+470 02795000 CVTRV289 EQU CVTS01+471 02796000 CVTGSDA EQU CVTS01+600 02797000 LCPZTIE EQU LCPCID 02798000 LCPZSNAM EQU LCPZTIE+8 02799000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02800000 LCPZTRV4 EQU LCPZSNAM+4 02801000 LCPZTRV1 EQU LCPZSNAM 02802000 LCPZSNA EQU LCPZTIE+4 02803000 LCPZFMCA EQU LCPZTIE 02804000 CVTRV628 EQU CVTS01+728 02805000 CVTRV627 EQU CVTS01+724 02806000 CVTRV626 EQU CVTS01+720 02807000 CVTRV625 EQU CVTS01+716 02808000 CVTRV624 EQU CVTS01+712 02809000 CVTRV623 EQU CVTS01+708 02810000 CVTRV622 EQU CVTS01+704 02811000 CVTRV621 EQU CVTS01+700 02812000 CVTRV620 EQU CVTS01+696 02813000 CVTRV619 EQU CVTS01+692 02814000 CVTRV618 EQU CVTS01+688 02815000 CVTRV617 EQU CVTS01+684 02816000 CVTRV616 EQU CVTS01+680 02817000 CVTRV615 EQU CVTS01+676 02818000 CVTRV614 EQU CVTS01+672 02819000 CVTRV613 EQU CVTS01+668 02820000 CVTTCASP EQU CVTS01+664 02821000 CVT0PT03 EQU CVTS01+660 02822000 CVT0PT0E EQU CVTS01+656 02823000 CVTIRM EQU CVTS01+652 02824000 CVTCGK EQU CVTS01+648 02825000 CVTRV607 EQU CVTS01+644 02826000 CVTRV606 EQU CVTS01+640 02827000 CVTRV605 EQU CVTS01+636 02828000 CVTRV604 EQU CVTS01+632 02829000 CVTEFF02 EQU CVTS01+628 02830000 CVTCBBR EQU CVTS01+624 02831000 CVTSSCR EQU CVTS01+620 02832000 CVTEVENT EQU CVTS01+616 02833000 CVTCRCA EQU CVTS01+612 02834000 CVTTPIO EQU CVTS01+608 02835000 CVTADV EQU CVTS01+604 02836000 CVTGSDAB EQU CVTGSDA 02837000 CVTQV3 EQU CVTS01+596 02838000 CVTQV2 EQU CVTS01+592 02839000 CVTQV1 EQU CVTS01+588 02840000 CVTRPT EQU CVTS01+584 02841000 CVTSSRB EQU CVTS01+580 02842000 CVTCSDRL EQU CVTS01+576 02843000 CVTEXP1 EQU CVTS01+572 02844000 CVTRMPMT EQU CVTS01+568 02845000 CVTRMPTT EQU CVTS01+564 02846000 CVTVPSA EQU CVTS01+560 02847000 CVTVSTOP EQU CVTS01+556 02848000 CVTGTFR8 EQU CVTS01+552 02849000 CVTQUIT EQU CVTS01+548 02850000 CVTVACR EQU CVTS01+544 02851000 CVTWTCB EQU CVTS01+540 02852000 CVTSTPRS EQU CVTS01+536 02853000 CVT0PT02 EQU CVTS01+532 02854000 CVTDARCM EQU CVTS01+528 02855000 CVTIRECM EQU CVTS01+524 02856000 CVTJRECM EQU CVTS01+520 02857000 CVTVEMS0 EQU CVTS01+516 02858000 CVTSPFRR EQU CVTS01+512 02859000 CVTRLSTG EQU CVTS01+508 02860000 CVT0TC0A EQU CVTS01+504 02861000 CVTGMBR EQU CVTS01+500 02862000 CVTLFRM EQU CVTS01+496 02863000 CVTRMBR EQU CVTS01+492 02864000 CVTVIOP EQU CVTS01+488 02865000 CVTRV307 EQU CVTS01+486 02866000 CVTRV306 EQU CVTS01+484 02867000 CVTRV305 EQU CVTS01+482 02868000 CVTRV304 EQU CVTS01+480 02869000 CVTRV303 EQU CVTS01+478 02870000 CVTRV302 EQU CVTS01+476 02871000 CVTTRCA EQU CVTS01+472 02872000 CVTRV297 EQU CVTRV289 02873000 CVTRV296 EQU CVTRV289 02874000 CVTRV295 EQU CVTRV289 02875000 CVTRV294 EQU CVTRV289 02876000 CVTRV293 EQU CVTRV289 02877000 CVTRV292 EQU CVTRV289 02878000 CVTRV291 EQU CVTRV289 02879000 CVTRV290 EQU CVTRV289 02880000 CVTRV288 EQU CVTRV280 02881000 CVTRV287 EQU CVTRV280 02882000 CVTRV286 EQU CVTRV280 02883000 CVTRV285 EQU CVTRV280 02884000 CVTRV284 EQU CVTRV280 02885000 CVTRV283 EQU CVTRV280 02886000 CVTRV282 EQU CVTRV280 02887000 CVTRV281 EQU CVTRV280 02888000 CVTRV279 EQU CVTRV271 02889000 CVTRV278 EQU CVTRV271 02890000 CVTRV277 EQU CVTRV271 02891000 CVTRV276 EQU CVTRV271 02892000 CVTRV275 EQU CVTRV271 02893000 CVTRV274 EQU CVTRV271 02894000 CVTRV273 EQU CVTRV271 02895000 CVTRV272 EQU CVTRV271 02896000 CVTRV270 EQU CVTRV262 02897000 CVTRV269 EQU CVTRV262 02898000 CVTRV268 EQU CVTRV262 02899000 CVTRV267 EQU CVTRV262 02900000 CVTRV266 EQU CVTRV262 02901000 CVTRV265 EQU CVTRV262 02902000 CVTRV264 EQU CVTRV262 02903000 CVTRV263 EQU CVTRV262 02904000 CVTVFP EQU CVTS01+464 02905000 CVTVSI EQU CVTS01+460 02906000 CVTVPSIB EQU CVTS01+456 02907000 CVTMFACT EQU CVTMFRTR 02908000 CVTMFCTL EQU CVTS01+448 02909000 CVTPVBP EQU CVTS01+444 02910000 CVTPWI EQU CVTS01+440 02911000 CVTRV254 EQU CVTS01+438 02912000 CVTRV253 EQU CVTS01+436 02913000 CVTRV252 EQU CVTS01+434 02914000 CVTRV251 EQU CVTS01+433 02915000 CVTRV250 EQU CVTS01+432 02916000 CVTRV249 EQU CVTS01+431 02917000 CVTRV248 EQU CVTS01+430 02918000 CVTRV247 EQU CVTS01+429 02919000 CVTRV246 EQU CVTS01+428 02920000 CVTRV245 EQU CVTRV237 02921000 CVTRV244 EQU CVTRV237 02922000 CVTRV243 EQU CVTRV237 02923000 CVTRV242 EQU CVTRV237 02924000 CVTRV241 EQU CVTRV237 02925000 CVTRV240 EQU CVTRV237 02926000 CVTRV239 EQU CVTRV237 02927000 CVTRV238 EQU CVTRV237 02928000 CVTRV236 EQU CVTRV228 02929000 CVTRV235 EQU CVTRV228 02930000 CVTRV234 EQU CVTRV228 02931000 CVTRV233 EQU CVTRV228 02932000 CVTRV232 EQU CVTRV228 02933000 CVTRV231 EQU CVTRV228 02934000 CVTRV230 EQU CVTRV228 02935000 CVTRV229 EQU CVTRV228 02936000 CVTRV227 EQU CVTRV219 02937000 CVTRV226 EQU CVTRV219 02938000 CVTRV225 EQU CVTRV219 02939000 CVTRV224 EQU CVTRV219 02940000 CVTRV223 EQU CVTRV219 02941000 CVTRV222 EQU CVTRV219 02942000 CVTRV221 EQU CVTRV219 02943000 CVTRV220 EQU CVTRV219 02944000 CVTRV218 EQU CVTRV210 02945000 CVTRV217 EQU CVTRV210 02946000 CVTRV216 EQU CVTRV210 02947000 CVTRV215 EQU CVTRV210 02948000 CVTRV214 EQU CVTRV210 02949000 CVTRV213 EQU CVTRV210 02950000 CVTRV212 EQU CVTRV210 02951000 CVTRV211 EQU CVTRV210 02952000 CVTLCCAT EQU CVTS01+420 02953000 CVTPCCAT EQU CVTS01+416 02954000 CVTIPCRP EQU CVTS01+412 02955000 CVTIPCRI EQU CVTS01+408 02956000 CVTIPCDS EQU CVTS01+404 02957000 CVTAIDVT EQU CVTS01+400 02958000 CVTSSAP EQU CVTS01+396 02959000 CVTEHCIR EQU CVTS01+392 02960000 CVTEHDEF EQU CVTS01+388 02961000 CVTDAIR EQU CVTS01+384 02962000 CVTPERFM EQU CVTS01+380 02963000 CVT044R2 EQU CVTS01+376 02964000 CVTFETCH EQU CVTS01+372 02965000 CVTRSTWD EQU CVTS01+368 02966000 CVTSPOST EQU CVTS01+364 02967000 CVTIOBP EQU CVTS01+360 02968000 CVTASMVT EQU CVTS01+356 02969000 CVTRECRQ EQU CVTS01+352 02970000 CVTWSAC EQU CVTS01+348 02971000 CVTRV149 EQU CVTS01+344 02972000 CVTWSAL EQU CVTS01+340 02973000 CVTSPSA EQU CVTS01+336 02974000 CVTGLMN EQU CVTS01+332 02975000 CVTVEAC0 EQU CVTS01+328 02976000 CVT062R1 EQU CVTS01+324 02977000 CVTRPOST EQU CVTS01+320 02978000 CVTDQIQE EQU CVTS01+316 02979000 CVTCSD EQU CVTS01+312 02980000 CVTLKRMA EQU CVTS01+308 02981000 CVTRSPIE EQU CVTS01+304 02982000 CVTRENQ EQU CVTS01+300 02983000 CVTLQCB EQU CVTS01+296 02984000 CVTFQCB EQU CVTS01+292 02985000 CVTQCS01 EQU CVTS01+288 02986000 CVTAPFT EQU CVTS01+284 02987000 CVTPARRL EQU CVTS01+280 02988000 CVTVWAIT EQU CVTS01+276 02989000 CVTGSPL EQU CVTS01+272 02990000 CVTLSMQ EQU CVTS01+268 02991000 CVTGSMQ EQU CVTS01+264 02992000 CVTEXPRO EQU CVTS01+260 02993000 CVTOPCTP EQU CVTS01+256 02994000 CVTSIC EQU CVTS01+252 02995000 CVTTPIOS EQU CVTS01+248 02996000 CVTRTMS EQU CVTS01+244 02997000 CVTSDBF EQU CVTS01+240 02998000 CVTSCBP EQU CVTS01+236 02999000 CVTSDMP EQU CVTS01+232 03000000 CVTSV60 EQU CVTS01+228 03001000 CVTRTMCT EQU CVTS01+224 03002000 CVTASCBL EQU CVTS01+220 03003000 CVTASCBH EQU CVTS01+216 03004000 CVTGDA EQU CVTS01+212 03005000 CVTASVT EQU CVTS01+208 03006000 CVTVVMDI EQU CVTS01+204 03007000 CVTAQTOP EQU CVTS01+200 03008000 CVTIOSCS EQU CVTS01+196 03009000 CVTSDRM EQU CVTS01+192 03010000 CVTOPTE EQU CVTS01+188 03011000 CVTSTXU EQU CVTS01+184 03012000 CVTQUIS EQU CVTS01+180 03013000 CVTPARS EQU CVTS01+176 03014000 CVTS1EE EQU CVTS01+172 03015000 CVTFRAS EQU CVTS01+168 03016000 CVTQSAS EQU CVTS01+164 03017000 CVTCRAS EQU CVTS01+160 03018000 CVTCRMN EQU CVTS01+156 03019000 CVTDELCP EQU CVTS01+152 03020000 CVTFRECL EQU CVTS01+148 03021000 CVTGETCL EQU CVTS01+144 03022000 CVTBLDCP EQU CVTS01+140 03023000 CVTAUTHL EQU CVTS01+136 03024000 CVTSCAN EQU CVTS01+132 03025000 CVTRV144 EQU CVTS01+130 03026000 CVTMAXMP EQU CVTS01+128 03027000 CVTSTCK EQU CVTS01+124 03028000 CVTRV139 EQU CVTS01+123 03029000 CVTDSSAC EQU CVTS01+122 03030000 CVTRV513 EQU CVTS01+121 03031000 CVTIOSPL EQU CVTS01+120 03032000 CVTPTGT EQU CVTS01+116 03033000 CVTCSPIE EQU CVTS01+112 03034000 CVTSMFEX EQU CVTS01+108 03035000 CVTOLT0A EQU CVTS01+104 03036000 CVTSRBRT EQU CVTS01+100 03037000 CVTPUTL EQU CVTS01+96 03038000 CVTASCRL EQU CVTS01+92 03039000 CVTASCRF EQU CVTS01+88 03040000 CVTRV326 EQU CVTS01+84 03041000 CVTRV325 EQU CVTS01+80 03042000 CVTRV324 EQU CVTS01+76 03043000 CVT0VL01 EQU CVTS01+72 03044000 CVTSHRVM EQU CVTS01+68 03045000 CVTRV332 EQU CVTS01+64 03046000 CVTTAS EQU CVTS01+60 03047000 CVTRSCN EQU CVTS01+56 03048000 CVTTRAC2 EQU CVTS01+54 03049000 CVTTRACE EQU CVTS01+52 03050000 CVTAPG EQU CVTS01+51 03051000 CVTSDTRC EQU CVTCTLFG 03052000 CVTGTRCE EQU CVTCTLFG 03053000 CVTNOMP EQU CVTCTLFG 03054000 CVTRSV79 EQU CVTCTLFG 03055000 CVTDSTAT EQU CVTCTLFG 03056000 CVTRSV78 EQU CVTCTLFG 03057000 CVTRV333 EQU CVTCTLFG 03058000 CVTRV323 EQU CVTCTLFG 03059000 CVTSPVLK EQU CVTS01+49 03060000 CVTRSV77 EQU CVTS01+48 03061000 CVTRV331 EQU CVTS01+44 03062000 CVTRV330 EQU CVTS01+40 03063000 CVTRV329 EQU CVTS01+36 03064000 CVTRV328 EQU CVTS01+32 03065000 CVTRV322 EQU CVTS01+28 03066000 CVTSLID EQU CVTSLIDA+1 03067000 CVTSYLK EQU CVTSLIDA 03068000 CVTRV321 EQU CVTS01+20 03069000 CVTRV320 EQU CVTS01+16 03070000 CVTLPDIR EQU CVTLPDIA+1 03071000 CVTRSV69 EQU CVTDIRST 03072000 CVTRSV68 EQU CVTDIRST 03073000 CVTRSV67 EQU CVTDIRST 03074000 CVTRSV66 EQU CVTDIRST 03075000 CVTRSV65 EQU CVTDIRST 03076000 CVTRSV64 EQU CVTDIRST 03077000 CVTRSV63 EQU CVTDIRST 03078000 CVTDICOM EQU CVTDIRST 03079000 CVTPVTP EQU CVTS01+8 03080000 CVTLPDSR EQU CVTS01+4 03081000 CVTGETL EQU CVTS01 03082000 NCSRUITS EQU NCSUSSRU+2 03083000 NCSRULEN EQU NCSUSSRU 03084000 VYCRSV02 EQU ISTVYCRR+128 03085000 VYCRSV04 EQU ISTVYCRR+126 03086000 VYCRRCW3 EQU ISTVYCRR+118 03087000 VYCRRSAV EQU ISTVYCRR+46 03088000 VYCRSV03 EQU VYCCRT+11 03089000 CINCFE EQU VYCCRT+11 03090000 CINCE9 EQU VYCCRT+11 03091000 CINCVO EQU VYCCRT+11 03092000 CINCR5 EQU VYCCRT+11 03093000 CINCR3 EQU VYCCRT+10 03094000 CINCE8 EQU VYCCRT+10 03095000 CINCE7 EQU VYCCRT+10 03096000 CINCE6 EQU VYCCRT+10 03097000 CINCE5 EQU VYCCRT+10 03098000 CINCE1 EQU VYCCRT+10 03099000 CINCUQ EQU VYCCRT+10 03100000 CINCUB EQU VYCCRT+10 03101000 CINCUA EQU VYCCRT+9 03102000 CINCX9 EQU VYCCRT+9 03103000 CINCX8 EQU VYCCRT+9 03104000 CINCX7 EQU VYCCRT+9 03105000 CINCX6 EQU VYCCRT+9 03106000 CINCX3 EQU VYCCRT+9 03107000 CINCX2 EQU VYCCRT+9 03108000 CINCX1 EQU VYCCRT+9 03109000 CINCX0 EQU VYCCRT+8 03110000 CINCW9 EQU VYCCRT+8 03111000 CINCW8 EQU VYCCRT+8 03112000 CINCW7 EQU VYCCRT+8 03113000 CINCW6 EQU VYCCRT+8 03114000 CINCW5 EQU VYCCRT+8 03115000 CINCW4 EQU VYCCRT+8 03116000 CINCW2 EQU VYCCRT+8 03117000 CINCW0 EQU VYCCRT+7 03118000 CINCV9 EQU VYCCRT+7 03119000 CINCV8 EQU VYCCRT+7 03120000 CINCV7 EQU VYCCRT+7 03121000 CINCV6 EQU VYCCRT+7 03122000 CINCV5 EQU VYCCRT+7 03123000 CINCV4 EQU VYCCRT+7 03124000 CINCV3 EQU VYCCRT+7 03125000 CINCV2 EQU VYCCRT+6 03126000 CINCU8 EQU VYCCRT+6 03127000 CINCU6 EQU VYCCRT+6 03128000 CINCU5 EQU VYCCRT+6 03129000 CINCU4 EQU VYCCRT+6 03130000 CINCU3 EQU VYCCRT+6 03131000 CINCU2 EQU VYCCRT+6 03132000 CINCU1 EQU VYCCRT+5 03133000 CINCU0 EQU VYCCRT+5 03134000 CINCUM EQU VYCCRT+5 03135000 CINCS1 EQU VYCCRT+5 03136000 CINCL8 EQU VYCCRT+5 03137000 CINCL7 EQU VYCCRT+5 03138000 CINCL6 EQU VYCCRT+5 03139000 CINCL5 EQU VYCCRT+5 03140000 CINCL4 EQU VYCCRT+4 03141000 CINCL3 EQU VYCCRT+4 03142000 CINCL2 EQU VYCCRT+4 03143000 CINCL1 EQU VYCCRT+4 03144000 CINCL0 EQU VYCCRT+4 03145000 CINCF4 EQU VYCCRT+4 03146000 CINCF3 EQU VYCCRT+4 03147000 CINCF1 EQU VYCCRT+4 03148000 CINCFM EQU VYCCRT+3 03149000 CINCE4 EQU VYCCRT+3 03150000 CINCE3 EQU VYCCRT+3 03151000 CINCE2 EQU VYCCRT+3 03152000 CINCE0 EQU VYCCRT+3 03153000 CINCD9 EQU VYCCRT+3 03154000 CINCD8 EQU VYCCRT+3 03155000 CINCD7 EQU VYCCRT+3 03156000 CINCD6 EQU VYCCRT+2 03157000 CINCD5 EQU VYCCRT+2 03158000 CINCD4 EQU VYCCRT+2 03159000 CINCD3 EQU VYCCRT+2 03160000 CINCD2 EQU VYCCRT+2 03161000 CINCD1 EQU VYCCRT+2 03162000 CINCIP EQU VYCCRT+2 03163000 CINCR2 EQU VYCCRT+2 03164000 CINCMS EQU VYCCRT+1 03165000 CINCVN EQU VYCCRT+1 03166000 CINCVS EQU VYCCRT+1 03167000 CINCVP EQU VYCCRT+1 03168000 CINCVX EQU VYCCRT+1 03169000 CINCFS EQU VYCCRT+1 03170000 CINCSM EQU VYCCRT+1 03171000 CINCR1 EQU VYCCRT+1 03172000 CINCLF EQU VYCCRT 03173000 CINCVA EQU VYCCRT 03174000 CINCVI EQU VYCCRT 03175000 CINCMD EQU VYCCRT 03176000 CINCMY EQU VYCCRT 03177000 CINCDL EQU VYCCRT 03178000 CINCIO EQU VYCCRT 03179000 CINCCL EQU VYCCRT 03180000 VYCRSV01 EQU VYCNTRD+11 03181000 NINCFE EQU VYCNTRD+11 03182000 NINCE9 EQU VYCNTRD+11 03183000 NINCVO EQU VYCNTRD+11 03184000 NINCR5 EQU VYCNTRD+11 03185000 NINCR3 EQU VYCNTRD+10 03186000 NINCE8 EQU VYCNTRD+10 03187000 NINCE7 EQU VYCNTRD+10 03188000 NINCE6 EQU VYCNTRD+10 03189000 NINCE5 EQU VYCNTRD+10 03190000 NINCE1 EQU VYCNTRD+10 03191000 NINCUQ EQU VYCNTRD+10 03192000 NINCUB EQU VYCNTRD+10 03193000 NINCUA EQU VYCNTRD+9 03194000 NINCX9 EQU VYCNTRD+9 03195000 NINCX8 EQU VYCNTRD+9 03196000 NINCX7 EQU VYCNTRD+9 03197000 NINCX6 EQU VYCNTRD+9 03198000 NINCX3 EQU VYCNTRD+9 03199000 NINCX2 EQU VYCNTRD+9 03200000 NINCX1 EQU VYCNTRD+9 03201000 NINCX0 EQU VYCNTRD+8 03202000 NINCW9 EQU VYCNTRD+8 03203000 NINCW8 EQU VYCNTRD+8 03204000 NINCW7 EQU VYCNTRD+8 03205000 NINCW6 EQU VYCNTRD+8 03206000 NINCW5 EQU VYCNTRD+8 03207000 NINCW4 EQU VYCNTRD+8 03208000 NINCW2 EQU VYCNTRD+8 03209000 NINCW0 EQU VYCNTRD+7 03210000 NINCV9 EQU VYCNTRD+7 03211000 NINCV8 EQU VYCNTRD+7 03212000 NINCV7 EQU VYCNTRD+7 03213000 NINCV6 EQU VYCNTRD+7 03214000 NINCV5 EQU VYCNTRD+7 03215000 NINCV4 EQU VYCNTRD+7 03216000 NINCV3 EQU VYCNTRD+7 03217000 NINCV2 EQU VYCNTRD+6 03218000 NINCU8 EQU VYCNTRD+6 03219000 NINCU6 EQU VYCNTRD+6 03220000 NINCU5 EQU VYCNTRD+6 03221000 NINCU4 EQU VYCNTRD+6 03222000 NINCU3 EQU VYCNTRD+6 03223000 NINCU2 EQU VYCNTRD+6 03224000 NINCU1 EQU VYCNTRD+5 03225000 NINCU0 EQU VYCNTRD+5 03226000 NINCUM EQU VYCNTRD+5 03227000 NINCS1 EQU VYCNTRD+5 03228000 NINCL8 EQU VYCNTRD+5 03229000 NINCL7 EQU VYCNTRD+5 03230000 NINCL6 EQU VYCNTRD+5 03231000 NINCL5 EQU VYCNTRD+5 03232000 NINCL4 EQU VYCNTRD+4 03233000 NINCL3 EQU VYCNTRD+4 03234000 NINCL2 EQU VYCNTRD+4 03235000 NINCL1 EQU VYCNTRD+4 03236000 NINCL0 EQU VYCNTRD+4 03237000 NINCF4 EQU VYCNTRD+4 03238000 NINCF3 EQU VYCNTRD+4 03239000 NINCF1 EQU VYCNTRD+4 03240000 NINCFM EQU VYCNTRD+3 03241000 NINCE4 EQU VYCNTRD+3 03242000 NINCE3 EQU VYCNTRD+3 03243000 NINCE2 EQU VYCNTRD+3 03244000 NINCE0 EQU VYCNTRD+3 03245000 NINCD9 EQU VYCNTRD+3 03246000 NINCD8 EQU VYCNTRD+3 03247000 NINCD7 EQU VYCNTRD+3 03248000 NINCD6 EQU VYCNTRD+2 03249000 NINCD5 EQU VYCNTRD+2 03250000 NINCD4 EQU VYCNTRD+2 03251000 NINCD3 EQU VYCNTRD+2 03252000 NINCD2 EQU VYCNTRD+2 03253000 NINCD1 EQU VYCNTRD+2 03254000 NINCIP EQU VYCNTRD+2 03255000 NINCR2 EQU VYCNTRD+2 03256000 NINCMS EQU VYCNTRD+1 03257000 NINCVN EQU VYCNTRD+1 03258000 NINCVS EQU VYCNTRD+1 03259000 NINCVP EQU VYCNTRD+1 03260000 NINCVX EQU VYCNTRD+1 03261000 NINCFS EQU VYCNTRD+1 03262000 NINCSM EQU VYCNTRD+1 03263000 NINCR1 EQU VYCNTRD+1 03264000 NINCLF EQU VYCNTRD 03265000 NINCVA EQU VYCNTRD 03266000 NINCVI EQU VYCNTRD 03267000 NINCMD EQU VYCNTRD 03268000 NINCMY EQU VYCNTRD 03269000 NINCDL EQU VYCNTRD 03270000 NINCIO EQU VYCNTRD 03271000 NINCCL EQU VYCNTRD 03272000 VYCCNS EQU ISTVYCRR 03273000 CNSRSV05 EQU CNSTFLDB+2 03274000 CNSLOG0B EQU CNSTFLDB+2 03275000 CNSACCTB EQU CNSTFLDB+2 03276000 CNSFREEB EQU CNSTFLDB+2 03277000 CNSGETSB EQU CNSTFLDB+2 03278000 CNSSEARB EQU CNSTFLDB+2 03279000 CNSQUEUB EQU CNSTFLDB+2 03280000 CNSACONB EQU CNSTFLDB+2 03281000 CNSTCONB EQU CNSTFLDB+1 03282000 CNSCLAQB EQU CNSTFLDB+1 03283000 CNSCLINB EQU CNSTFLDB+1 03284000 CNSGBINB EQU CNSTFLDB+1 03285000 CNSLGINB EQU CNSTFLDB+1 03286000 CNSACINB EQU CNSTFLDB+1 03287000 CNSPSINB EQU CNSTFLDB+1 03288000 CNSRQRLB EQU CNSTFLDB+1 03289000 CNSTRRLB EQU CNSTFLDB 03290000 CNSDORLB EQU CNSTFLDB 03291000 CNSRLINB EQU CNSTFLDB 03292000 CNSQREQB EQU CNSTFLDB 03293000 CNSXREQB EQU CNSTFLDB 03294000 CNSAQINB EQU CNSTFLDB 03295000 CNSAUTHB EQU CNSTFLDB 03296000 CNSMRINB EQU CNSTFLDB 03297000 CNSRSV01 EQU CNSTFLDA+2 03298000 CNSLOG0A EQU CNSTFLDA+2 03299000 CNSACCTA EQU CNSTFLDA+2 03300000 CNSFREEA EQU CNSTFLDA+2 03301000 CNSGETSA EQU CNSTFLDA+2 03302000 CNSSEARA EQU CNSTFLDA+2 03303000 CNSQUEUA EQU CNSTFLDA+2 03304000 CNSACONA EQU CNSTFLDA+2 03305000 CNSTCONA EQU CNSTFLDA+1 03306000 CNSCLAQA EQU CNSTFLDA+1 03307000 CNSCLINA EQU CNSTFLDA+1 03308000 CNSGBINA EQU CNSTFLDA+1 03309000 CNSLGINA EQU CNSTFLDA+1 03310000 CNSACINA EQU CNSTFLDA+1 03311000 CNSPSINA EQU CNSTFLDA+1 03312000 CNSRQRLA EQU CNSTFLDA+1 03313000 CNSTRRLA EQU CNSTFLDA 03314000 CNSDORLA EQU CNSTFLDA 03315000 CNSRLINA EQU CNSTFLDA 03316000 CNSQREQA EQU CNSTFLDA 03317000 CNSXREQA EQU CNSTFLDA 03318000 CNSAQINA EQU CNSTFLDA 03319000 CNSAUTHA EQU CNSTFLDA 03320000 CNSMRINA EQU CNSTFLDA 03321000 CNSTPFX EQU ISTCNSTA 03322000 CRACHAIN EQU ISTCRA+928 03323000 CRARSV02 EQU ISTCRA+924 03324000 CRARSV01 EQU ISTCRA+920 03325000 CRABFTBA EQU CRABUFA 03326000 CRAMASK EQU CRASVC+64 03327000 CRAHSIZ EQU CRASVC+60 03328000 CRAASCRR EQU CRASVC 03329000 CRAPROCR EQU ISTCRA+312 03330000 CRAPSS EQU ISTCRA+160 03331000 CRARPH EQU ISTCRA+52 03332000 CRALAPTR EQU CRABASIC+48 03333000 CRAL9PTR EQU CRABASIC+44 03334000 CRAL8PTR EQU CRABASIC+40 03335000 CRAL7PTR EQU CRABASIC+36 03336000 CRAL6PTR EQU CRABASIC+32 03337000 CRAL5PTR EQU CRABASIC+28 03338000 CRAL4PTR EQU CRABASIC+24 03339000 CRAL3PTR EQU CRABASIC+20 03340000 CRAL2PTR EQU CRABASIC+16 03341000 CRAL1PTR EQU CRABASIC+12 03342000 CRALEV01 EQU CRALKACT+3 03343000 CRALEV02 EQU CRALKACT+3 03344000 CRALEV03 EQU CRALKACT+3 03345000 CRALEV04 EQU CRALKACT+3 03346000 CRALEV05 EQU CRALKACT+3 03347000 CRALEV06 EQU CRALKACT+3 03348000 CRALEV07 EQU CRALKACT+3 03349000 CRALEV08 EQU CRALKACT+3 03350000 CRALEV09 EQU CRALKACT+2 03351000 CRALEV10 EQU CRALKACT+2 03352000 CRALEV11 EQU CRALKACT+2 03353000 CRALEV12 EQU CRALKACT+2 03354000 CRALEV13 EQU CRALKACT+2 03355000 CRALEV14 EQU CRALKACT+2 03356000 CRALEV15 EQU CRALKACT+2 03357000 CRALEV16 EQU CRALKACT+2 03358000 CRALEV17 EQU CRALKACT+1 03359000 CRALEV18 EQU CRALKACT+1 03360000 CRALEV19 EQU CRALKACT+1 03361000 CRALEV20 EQU CRALKACT+1 03362000 CRALEV21 EQU CRALKACT+1 03363000 CRALEV22 EQU CRALKACT+1 03364000 CRALEV23 EQU CRALKACT+1 03365000 CRALEV24 EQU CRALKACT+1 03366000 CRALEV25 EQU CRALKACT 03367000 CRALEV26 EQU CRALKACT 03368000 CRALEV27 EQU CRALKACT 03369000 CRALEV28 EQU CRALKACT 03370000 CRALEV29 EQU CRALKACT 03371000 CRALEV30 EQU CRALKACT 03372000 CRALEV31 EQU CRALKACT 03373000 CRALEV32 EQU CRALKACT 03374000 CRAFRR EQU CRAHDR+4 03375000 @NM00040 EQU ISTAPCRR+137 03376000 @NM00039 EQU APC57FLG 03377000 APCNREL EQU APC57FLG 03378000 APCRECRA EQU APC57FLG 03379000 @NM00038 EQU APC54FLG 03380000 APCRLST EQU APC54FLG 03381000 APCPR153 EQU APC53FLG 03382000 @NM00037 EQU APC52FLG 03383000 APCWKF EQU APC52FLG 03384000 APCNWF EQU APC52FLG 03385000 APCRDQ EQU APC52FLG 03386000 APCQENQ EQU APC52FLG 03387000 APCSMSR EQU APC52FLG 03388000 APCCKRQ EQU APC52FLG 03389000 @NM00036 EQU APC31FLG 03390000 APCSORT EQU APC31FLG 03391000 APCRESCH EQU APC31FLG 03392000 APCTPXIT EQU APC31FLG 03393000 APCSWTWD EQU ISTAPCRR+128 03394000 APCSAV2 EQU ISTAPCRR+124 03395000 APCSAV1 EQU ISTAPCRR+120 03396000 APCRETCD EQU APCCOMF+2 03397000 @NM00035 EQU APCCOMF1+1 03398000 APCZLBER EQU APCCOMF1 03399000 APCEXIT EQU APCCOMF1 03400000 APCRELR EQU APCCOMF1 03401000 APCIRB2 EQU APCCOMF1 03402000 APCIRB1 EQU APCCOMF1 03403000 APCSMCR EQU APCCOMF1 03404000 APCUETSK EQU APCCOMF1 03405000 APCSSTSK EQU APCCOMF1 03406000 APCESTAL EQU APCSAVE 03407000 APCFRRPM EQU ISTAPCRR+40 03408000 APCQWFO EQU ISTAPCRR+36 03409000 APCPABSV EQU ISTAPCRR+32 03410000 APCRTRN EQU ISTAPCRR+28 03411000 APCTCBA EQU ISTAPCRR+24 03412000 APCPSTA EQU ISTAPCRR+20 03413000 @NM00034 EQU APCRFLG+1 03414000 APC31R EQU APCRFLG 03415000 APC58R EQU APCRFLG 03416000 APC57R EQU APCRFLG 03417000 APC56R EQU APCRFLG 03418000 APC54R EQU APCRFLG 03419000 APC53R EQU APCRFLG 03420000 APC52R EQU APCRFLG 03421000 APC51R EQU APCRFLG 03422000 @NM00033 EQU APCATFLG+1 03423000 APC31E EQU APCATFLG 03424000 APC58E EQU APCATFLG 03425000 APC57E EQU APCATFLG 03426000 APC56E EQU APCATFLG 03427000 APC54E EQU APCATFLG 03428000 APC53E EQU APCATFLG 03429000 APC52E EQU APCATFLG 03430000 APC51E EQU APCATFLG 03431000 APCHDRSV EQU ISTAPCRR 03432000 ASCPSREG EQU ISTASCRR+44 03433000 ASCUSR01 EQU ASCUSRGS+12 03434000 ASCUSR00 EQU ASCUSRGS+8 03435000 ASCUSR15 EQU ASCUSRGS+4 03436000 ASCUSR14 EQU ASCUSRGS 03437000 ASCETRYA EQU ISTASCRR+24 03438000 ASCKEY EQU ISTASCRR+23 03439000 ASCAUDIT EQU ASCFLG3 03440000 ASCFBDUD EQU ASCFLG3 03441000 ASCLLKF EQU ASCFLG3 03442000 ASCKEYF EQU ASCFLG3 03443000 ASCFBDAL EQU ASCFLG3 03444000 ASCFSRGT EQU ASCFLG3 03445000 ASCICR EQU ASCFLG2 03446000 ASCFSRIC EQU ASCFLG2 03447000 ASCFBDIC EQU ASCFLG2 03448000 ASCFBAIC EQU ASCFLG2 03449000 ASCPASTR EQU ASCFLG1 03450000 ASCFSR EQU ASCFLG1 03451000 ASCFBD EQU ASCFLG1 03452000 ASCFBA EQU ASCFLG1 03453000 ASCPFCRR EQU ISTASCRR 03454000 ZCRRU EQU ZCRRHRU+3 03455000 ZCRRH EQU ZCRRHRU 03456000 ZCRWORDA EQU ISTZCRR+477 03457000 ZCRCMNRC EQU ISTZCRR+476 03458000 ZCRRSV97 EQU ZCRENTER+18 03459000 ZCREIC2B EQU ZCRENTER+18 03460000 ZCREAC2B EQU ZCRENTER+18 03461000 ZCRELCAB EQU ZCRENTER+18 03462000 ZCREDCMF EQU ZCRENTER+18 03463000 ZCREBCIF EQU ZCRENTER+18 03464000 ZCREICSG EQU ZCRENTER+18 03465000 ZCREDCK0 EQU ZCRENTER+18 03466000 ZCRECFY0 EQU ZCRENTER+17 03467000 ZCREKCCB EQU ZCRENTER+17 03468000 ZCREDCNB EQU ZCRENTER+17 03469000 ZCREICOE EQU ZCRENTER+17 03470000 ZCREBCNB EQU ZCRENTER+17 03471000 ZCREBC0L EQU ZCRENTER+17 03472000 ZCREBCAL EQU ZCRENTER+17 03473000 ZCREDCQR EQU ZCRENTER+17 03474000 ZCREDCPR EQU ZCRENTER+16 03475000 ZCREBCSB EQU ZCRENTER+16 03476000 ZCREAC1R EQU ZCRENTER+16 03477000 ZCRECCCI EQU ZCRENTER+16 03478000 ZCRECCAI EQU ZCRENTER+16 03479000 ZCRECCBI EQU ZCRENTER+16 03480000 ZCREBCAR EQU ZCRENTER+16 03481000 ZCREBCDR EQU ZCRENTER+16 03482000 ZCREBCBR EQU ZCRENTER+15 03483000 ZCREDCXR EQU ZCRENTER+15 03484000 ZCREDCWB EQU ZCRENTER+15 03485000 ZCREDCWR EQU ZCRENTER+15 03486000 ZCREKCCN EQU ZCRENTER+15 03487000 ZCREKCBN EQU ZCRENTER+15 03488000 ZCREKCBB EQU ZCRENTER+15 03489000 ZCREJC0B EQU ZCRENTER+15 03490000 ZCREJCDB EQU ZCRENTER+14 03491000 ZCREJCCB EQU ZCRENTER+14 03492000 ZCREJCBB EQU ZCRENTER+14 03493000 ZCREJCAB EQU ZCRENTER+14 03494000 ZCREIC1B EQU ZCRENTER+14 03495000 ZCREIC0B EQU ZCRENTER+14 03496000 ZCREICX0 EQU ZCRENTER+14 03497000 ZCREICWB EQU ZCRENTER+14 03498000 ZCREICVB EQU ZCRENTER+13 03499000 ZCREICUB EQU ZCRENTER+13 03500000 ZCREICTB EQU ZCRENTER+13 03501000 ZCREICSC EQU ZCRENTER+13 03502000 ZCREICSB EQU ZCRENTER+13 03503000 ZCREICRB EQU ZCRENTER+13 03504000 ZCREICQB EQU ZCRENTER+13 03505000 ZCREICQA EQU ZCRENTER+13 03506000 ZCREICOB EQU ZCRENTER+12 03507000 ZCREICOA EQU ZCRENTER+12 03508000 ZCREICNB EQU ZCRENTER+12 03509000 ZCREICNA EQU ZCRENTER+12 03510000 ZCREICMB EQU ZCRENTER+12 03511000 ZCREICLB EQU ZCRENTER+12 03512000 ZCREICKG EQU ZCRENTER+12 03513000 ZCREICKE EQU ZCRENTER+12 03514000 ZCREICKB EQU ZCRENTER+11 03515000 ZCREICJB EQU ZCRENTER+11 03516000 ZCREICID EQU ZCRENTER+11 03517000 ZCREICIB EQU ZCRENTER+11 03518000 ZCREICHB EQU ZCRENTER+11 03519000 ZCREICGB EQU ZCRENTER+11 03520000 ZCREICEB EQU ZCRENTER+11 03521000 ZCREICDB EQU ZCRENTER+11 03522000 ZCREICCI EQU ZCRENTER+10 03523000 ZCREICCB EQU ZCRENTER+10 03524000 ZCREICBI EQU ZCRENTER+10 03525000 ZCREICBB EQU ZCRENTER+10 03526000 ZCREICAB EQU ZCRENTER+10 03527000 ZCREICAA EQU ZCRENTER+10 03528000 ZCREHCAN EQU ZCRENTER+10 03529000 ZCREGC0B EQU ZCRENTER+10 03530000 ZCREGC0A EQU ZCRENTER+9 03531000 ZCREGCLA EQU ZCRENTER+9 03532000 ZCREGCEB EQU ZCRENTER+9 03533000 ZCREGCDB EQU ZCRENTER+9 03534000 @NM00032 EQU ZCRENTER+9 03535000 ZCREGCBB EQU ZCRENTER+9 03536000 ZCREGCAB EQU ZCRENTER+9 03537000 ZCREFCEB EQU ZCRENTER+9 03538000 ZCREFCEA EQU ZCRENTER+8 03539000 ZCREECTA EQU ZCRENTER+8 03540000 ZCREECEA EQU ZCRENTER+8 03541000 ZCREECDA EQU ZCRENTER+8 03542000 ZCREECCB EQU ZCRENTER+8 03543000 ZCREECCA EQU ZCRENTER+8 03544000 ZCREECBB EQU ZCRENTER+8 03545000 ZCREECBA EQU ZCRENTER+8 03546000 ZCREDCMB EQU ZCRENTER+7 03547000 ZCREDCL0 EQU ZCRENTER+7 03548000 ZCREDCKB EQU ZCRENTER+7 03549000 ZCREDCKA EQU ZCRENTER+7 03550000 ZCREDCJ0 EQU ZCRENTER+7 03551000 ZCREDCI0 EQU ZCRENTER+7 03552000 ZCREDCH0 EQU ZCRENTER+7 03553000 ZCREDCF0 EQU ZCRENTER+7 03554000 ZCREDCE0 EQU ZCRENTER+6 03555000 ZCREDCD0 EQU ZCRENTER+6 03556000 ZCREDCC0 EQU ZCRENTER+6 03557000 ZCREDCB0 EQU ZCRENTER+6 03558000 ZCREDCA0 EQU ZCRENTER+6 03559000 ZCRECC2B EQU ZCRENTER+6 03560000 ZCRECC1B EQU ZCRENTER+6 03561000 ZCRECC1A EQU ZCRENTER+6 03562000 ZCRECC0B EQU ZCRENTER+5 03563000 ZCRECC0A EQU ZCRENTER+5 03564000 ZCREBC0B EQU ZCRENTER+5 03565000 ZCREBC0A EQU ZCRENTER+5 03566000 ZCREBCZ0 EQU ZCRENTER+5 03567000 ZCREBCY0 EQU ZCRENTER+5 03568000 ZCREBCX0 EQU ZCRENTER+5 03569000 ZCREBCXA EQU ZCRENTER+5 03570000 ZCREBCSC EQU ZCRENTER+4 03571000 ZCREBCRB EQU ZCRENTER+4 03572000 ZCREBCRA EQU ZCRENTER+4 03573000 ZCREBCQB EQU ZCRENTER+4 03574000 ZCREBCPB EQU ZCRENTER+4 03575000 ZCREBCOB EQU ZCRENTER+4 03576000 ZCREBCNE EQU ZCRENTER+4 03577000 ZCREBCND EQU ZCRENTER+4 03578000 ZCREBCMB EQU ZCRENTER+3 03579000 ZCREBCLB EQU ZCRENTER+3 03580000 ZCREBCLA EQU ZCRENTER+3 03581000 ZCREBCKB EQU ZCRENTER+3 03582000 ZCREBCKA EQU ZCRENTER+3 03583000 ZCREBCJB EQU ZCRENTER+3 03584000 ZCREBCJA EQU ZCRENTER+3 03585000 ZCREBCID EQU ZCRENTER+3 03586000 ZCREBCIB EQU ZCRENTER+2 03587000 ZCREBCIA EQU ZCRENTER+2 03588000 ZCREBCHB EQU ZCRENTER+2 03589000 ZCREBCHA EQU ZCRENTER+2 03590000 ZCREBCGB EQU ZCRENTER+2 03591000 ZCREBCGA EQU ZCRENTER+2 03592000 ZCREBCFB EQU ZCRENTER+2 03593000 ZCREBCFA EQU ZCRENTER+2 03594000 ZCREBCEB EQU ZCRENTER+1 03595000 ZCREBCDI EQU ZCRENTER+1 03596000 ZCREBCCB EQU ZCRENTER+1 03597000 ZCREBCBI EQU ZCRENTER+1 03598000 ZCREBCBB EQU ZCRENTER+1 03599000 ZCREBCBA EQU ZCRENTER+1 03600000 ZCREBCAM EQU ZCRENTER+1 03601000 ZCREBCAI EQU ZCRENTER+1 03602000 ZCREBCAG EQU ZCRENTER 03603000 ZCREBCAE EQU ZCRENTER 03604000 ZCREBCAB EQU ZCRENTER 03605000 ZCREBCAA EQU ZCRENTER 03606000 ZCREAC1B EQU ZCRENTER 03607000 ZCREAC0B EQU ZCRENTER 03608000 ZCREAC0A EQU ZCRENTER 03609000 ZCREAC1A EQU ZCRENTER 03610000 ZCRTNAME EQU ZCRAUDIT+1 03611000 ZCRTID EQU ZCRAUDIT 03612000 ZCRREMIC EQU ISTZCRR+436 03613000 ZCRSAVEZ EQU ISTZCRR+196 03614000 ZCRDAFSV EQU ZCRCIDSV+2 03615000 ZCRSAFSV EQU ZCRCIDSV 03616000 ZCRR13SV EQU ISTZCRR+188 03617000 ZCRR2SV EQU ISTZCRR+184 03618000 ZCROPCDE EQU ISTZCRR+183 03619000 ZCRPRMTC EQU ISTZCRR+182 03620000 ZCRRCDSV EQU ISTZCRR+181 03621000 ZCRAWQSW EQU ISTZCRR+180 03622000 ZCRTOPQ EQU ISTZCRR+180 03623000 ZCRLSTFB EQU ISTZCRR+180 03624000 ZCRXSCHD EQU ISTZCRR+180 03625000 ZCRNXTEL EQU ISTZCRR+180 03626000 ZCRSCANQ EQU ISTZCRR+180 03627000 ZCRMOREL EQU ISTZCRR+180 03628000 ZCRFBPRC EQU ISTZCRR+180 03629000 ZCRFSBSV EQU ISTZCRR+176 03630000 ZCRSVWK5 EQU ZCRWKARA+16 03631000 ZCRSVWK4 EQU ZCRWKARA+12 03632000 ZCRSVWK3 EQU ZCRWKARA+8 03633000 ZCRSVWK2 EQU ZCRWKARA+4 03634000 ZCRSVWK1 EQU ZCRWKARA 03635000 ZCRSVF25 EQU ZCRSVRTN+96 03636000 ZCRSVF24 EQU ZCRSVRTN+92 03637000 ZCRSVF23 EQU ZCRSVRTN+88 03638000 ZCRSVF22 EQU ZCRSVRTN+84 03639000 ZCRSVF21 EQU ZCRSVRTN+80 03640000 ZCRSVF20 EQU ZCRSVRTN+76 03641000 ZCRSVF19 EQU ZCRSVRTN+72 03642000 ZCRSVF18 EQU ZCRSVRTN+68 03643000 ZCRSVF17 EQU ZCRSVRTN+64 03644000 ZCRSVF16 EQU ZCRSVRTN+60 03645000 ZCRSVF15 EQU ZCRSVRTN+56 03646000 ZCRSVF14 EQU ZCRSVRTN+52 03647000 ZCRSVF13 EQU ZCRSVRTN+48 03648000 ZCRSVF12 EQU ZCRSVRTN+44 03649000 ZCRSVF11 EQU ZCRSVRTN+40 03650000 ZCRSVF10 EQU ZCRSVRTN+36 03651000 ZCRSVF9 EQU ZCRSVRTN+32 03652000 ZCRSVF8 EQU ZCRSVRTN+28 03653000 ZCRSVF7 EQU ZCRSVRTN+24 03654000 ZCRSVF6 EQU ZCRSVRTN+20 03655000 ZCRSVF5 EQU ZCRSVRTN+16 03656000 ZCRSVF4 EQU ZCRSVRTN+12 03657000 ZCRSVF3 EQU ZCRSVRTN+8 03658000 ZCRSVF2 EQU ZCRSVRTN+4 03659000 ZCRSVF1 EQU ZCRSVRTN 03660000 ZCRPVZB EQU ISTZCRR+52 03661000 ZCRZLB EQU ISTZCRR+48 03662000 ZCRBFPTR EQU ISTZCRR+44 03663000 ZCRCCWA EQU ISTZCRR+40 03664000 ZCRPSW EQU ZCRPARMS+15 03665000 ZCRPCHAR EQU ZCRPARMS+14 03666000 ZCRPRES2 EQU ZCRPCOD2 03667000 ZCRPMFGF EQU ZCRPCOD2 03668000 ZCRPFHDR EQU ZCRPCOD2 03669000 ZCRPPG2 EQU ZCRPCOD2 03670000 ZCRPRES EQU ZCRPCOD1 03671000 ZCRPCFTX EQU ZCRPCOD1 03672000 ZCRPBUF EQU ZCRPCOD1 03673000 ZCRPLSCB EQU ZCRPCOD1 03674000 ZCRPLSBQ EQU ZCRPLSBF 03675000 ZCRPFSB EQU ZCRPCOD1 03676000 ZCRPLNG EQU ZCRPCOD1 03677000 ZCRPPG EQU ZCRPCOD1 03678000 ZCRDTODA EQU ZCRDFRDA 03679000 ZCRMLNG EQU ZCRPARMS+8 03680000 ZCRTBPTR EQU ZCRPARMS+4 03681000 ZCRCBPTR EQU ZCRFBPTR 03682000 ZCRCRLCP EQU ISTZCRR+20 03683000 @NM00031 EQU ZCRSCPSW 03684000 ZCRSKIPT EQU ZCRSCPSW 03685000 ZCRFSBWE EQU ZCRSCPSW 03686000 ZCRPRCMP EQU ZCRSCPSW 03687000 ZCRLREQ EQU ZCRSCPSW 03688000 ZCRRJLCP EQU ZCRSCPSW 03689000 ZCRTPINV EQU ZCRSCPSW 03690000 ZCRTPEX EQU ZCRSCPSW 03691000 @NM00030 EQU ZCRIBPR 03692000 ZCR3270R EQU ZCRIBPR 03693000 ZCR3270 EQU ZCRIBPR 03694000 ZCRLCPFD EQU ZCRIBPR 03695000 ZCRLCPFR EQU ZCRIBPR 03696000 ZCRRELK EQU ZCRIBPR 03697000 ZCRERR EQU ZCRIBPR 03698000 ZCRNOBUF EQU ZCRIBPR 03699000 @NM00029 EQU ZCRPFLGS 03700000 ZCRQAHED EQU ZCRPFLGS 03701000 ZCRF1RES EQU ZCRGENSW 03702000 ZCRBRIS EQU ZCRGENSW 03703000 ZCRCLRBD EQU ZCRGENSW 03704000 ZCREXRES EQU ZCRGENSW 03705000 ZCRLCSYN EQU ZCRGENSW 03706000 ZCRRT06 EQU ZCRGENSW 03707000 ZCRTSW2 EQU ZCRGENSW 03708000 ZCRTSW1 EQU ZCRGENSW 03709000 ZCRINLCP EQU ZCRFLGS3 03710000 ZCRWRPTR EQU ZCRFLGS3 03711000 ZCRNOFRE EQU ZCRFLGS3 03712000 ZCREDRIV EQU ZCRFLGS3 03713000 ZCRDISC EQU ZCRFLGS3 03714000 ZCRTPDIS EQU ZCRFLGS3 03715000 ZCRTPCON EQU ZCRFLGS3 03716000 ZCRTIC EQU ZCRFLGS3 03717000 ZCRCNLXL EQU ZCRRESET 03718000 ZCRENDAN EQU ZCRSWFLD 03719000 ZCRENDXL EQU ZCRSWFLD 03720000 ZCRENDX EQU ZCRSWFLD 03721000 ZCROB1 EQU ZCRNDLCP 03722000 ZCRENDPR EQU ZCRSWFLD 03723000 ZCREXTYP EQU ZCRSWFLD 03724000 ZCRSLCP EQU ZCRENDSH 03725000 ZCRIF0E3 EQU ZCRFLGS2 03726000 ZCRIF0E2 EQU ZCRFLGS2 03727000 ZCRIF0E1 EQU ZCRFLGS2 03728000 ZCROB EQU ZCRFLGS2 03729000 ZCRFMSED EQU ZCRFLGS2 03730000 ZCRSHEDI EQU ZCRFLGS2 03731000 ZCRLOCAL EQU ZCRFLGS2 03732000 ZCRFEXIT EQU ZCRFLGS1 03733000 ZCRUNSOL EQU ZCRFLGS1 03734000 ZCRENDLP EQU ZCRFLGS1 03735000 ZCRNRMEX EQU ZCRFLGS1 03736000 ZCRWAIT EQU ZCRFLGS1 03737000 ZCRDEQSW EQU ZCRFLGS1 03738000 ZCRQUESW EQU ZCRFLGS1 03739000 ZCREXSW EQU ZCRFLGS1 03740000 ZCRFRRA EQU ISTZCRR+8 03741000 ZCRCHAIN EQU ISTZCRR+4 03742000 ZCRFLAG EQU ZCRCRR+3 03743000 ZCRLEN EQU ZCRCRR+1 03744000 ZCRID EQU ZCRCRR 03745000 CCFRSVD1 EQU CFCCRT 03746000 CCFCR2 EQU CFCCRT 03747000 CCFCRP EQU CFCCRT 03748000 CCFCR1 EQU CFCCRT 03749000 CCFCS2 EQU CFCCRT 03750000 CCFCS1 EQU CFCCRT 03751000 NCFRSVD EQU CFCNTRD 03752000 NCFCR2 EQU CFCNTRD 03753000 NCFCRP EQU CFCNTRD 03754000 NCFCR1 EQU CFCNTRD 03755000 NCFCS2 EQU CFCNTRD 03756000 NCFCS1 EQU CFCNTRD 03757000 PFCRSV01 EQU ISTPFCRR+13 03758000 PFCFTA EQU ISTPFCRR+12 03759000 CRRFRR EQU PFCFRRO 03760000 CRRCHAIN EQU PFCCRRO 03761000 CRRLEN EQU PFCCRRLN 03762000 PFCRSV10 EQU PFCCRR+1 03763000 CRRID EQU PFCCRRID 03764000 ZSAZTRAC EQU ISTZSAVE+36 03765000 ZSAZSVVR EQU ISTZSAVE+12 03766000 ZSAZSVRR EQU ISTZSAVE+8 03767000 ZSAZSVFC EQU ISTZSAVE+4 03768000 ZSAZACTV EQU ZSAZSVMS 03769000 LCPFTYPE EQU LCPRPHA 03770000 LCPRSTQH EQU LCPLCCW 03771000 LCPCLREP EQU ISTLCPB+44 03772000 LCPUBFSB EQU LCPFLCCW 03773000 LCPRSV77 EQU ISTLCPB+39 03774000 LCPLCCWC EQU ISTLCPB+38 03775000 LCPRSV78 EQU LCPFLG1 03776000 LCPTRANS EQU LCPFLG1 03777000 LCPSTLB EQU LCPFLG1 03778000 LCPREDRV EQU LCPFLG1 03779000 LCPDIRPT EQU LCPFLG1 03780000 LCPINTER EQU LCPFLG1 03781000 LCPRESET EQU LCPFLG1 03782000 LCPSTYPE EQU ISTLCPB+36 03783000 LCPFSNCH EQU ISTLCPB+34 03784000 LCPFOSN EQU ISTLCPB+32 03785000 LCPTLBAD EQU ISTLCPB+28 03786000 LCPFDB2 EQU LCPFDBA+1 03787000 LCPFDB1 EQU LCPFDBA 03788000 LCPNXLCW EQU ISTLCPB+20 03789000 LCPDAF EQU LCPCID+2 03790000 LCPSAF EQU LCPCID 03791000 LCPLCCW1 EQU ISTLCPB+12 03792000 LCPRRCNT EQU LCPSEQ+1 03793000 LCPRRCCT EQU LCPSEQ 03794000 LCPATOP EQU LCPFLAG2 03795000 LCPFREE EQU LCPFLAG2 03796000 LCPDSTAT EQU LCPFLAG2 03797000 LCPEXRES EQU LCPFID0 03798000 LCPZRIMM EQU LCPTLBPI 03799000 LCPRSTRT EQU LCPFLAG2 03800000 LCPASYN EQU LCPFLAG2 03801000 LCPPRFLG EQU LCPFLAG2 03802000 LCPZMIRC EQU LCPRUCNT 03803000 LCPCHAI2 EQU LCPCHAIN+1 03804000 LCPCHNG EQU LCPCHAI1 03805000 LCPZRT0B EQU LCPMNRCD 03806000 LCPZRT0A EQU LCPMNRCD 03807000 LCPZRTL9 EQU LCPZRT09 03808000 LCPZRTL8 EQU LCPZRT08 03809000 LCPZRTL7 EQU LCPZRT07 03810000 LCPZRTL6 EQU LCPZRT06 03811000 LCPZRTL5 EQU LCPZRT05 03812000 LCPZRTL4 EQU LCPZRT04 03813000 LCPZRTL3 EQU LCPZRT03 03814000 LCPZRTL2 EQU LCPZRT02 03815000 LCPZRT01 EQU LCPFLAGS 03816000 LCPZRT00 EQU LCPFLAGS 03817000 LCPLNGTH EQU ISTLCPB+1 03818000 LCPTYPE EQU ISTLCPB 03819000 LCCWDATA EQU ISTLCCW+4 03820000 LCCWCNT EQU ISTLCCW+2 03821000 LCCWACI EQU LCCWFLAG 03822000 LCCWRFI EQU LCCWFLAG 03823000 LCCWPER EQU LCCWLSI 03824000 LCCWIDAT EQU LCCWFLAG 03825000 LCCWNTVC EQU LCCWFLAG 03826000 LCCWCKPT EQU LCCWFLAG 03827000 LCCWCC EQU LCCWFLAG 03828000 LCCWCD EQU LCCWFLAG 03829000 LCCWTYPE EQU LCCWCTL 03830000 LCCWMODE EQU LCCWCTL 03831000 LCCWSOP EQU LCCWRWOP 03832000 @NM00028 EQU LCCWRWOP 03833000 LCCWSD EQU LCCWOP 03834000 LCCWSI EQU LCCWOP 03835000 @NM00004 EQU CUSAVMAP+20 03836000 CUSAVR15 EQU CUSAVMAP+16 03837000 CUSAVR14 EQU CUSAVMAP+12 03838000 @NM00003 EQU CUSAVMAP 03839000 ATCAOS EQU ISTATCVT+1584 03840000 ATCPOPAB EQU ATCAOSM+640 03841000 ATCVIOPM EQU ATCAOSM+636 03842000 ATCTPMMI EQU ATCAOSM+632 03843000 ATCTPMPB EQU ATCAOSM+600 03844000 ATCRSV88 EQU ATCAOSM+596 03845000 ATCRPLCT EQU ATCAOSM+594 03846000 ATCCRACT EQU ATCAOSM+592 03847000 ATCSRBCT EQU ATCAOSM+590 03848000 ATCRSV75 EQU ATCAOSM+589 03849000 ATCRSV66 EQU ATCZFLAG 03850000 ATCZF001 EQU ATCZFLAG 03851000 ATCTPCP1 EQU ATCAOSM+584 03852000 ATCTPCP0 EQU ATCAOSM+580 03853000 ATCAICTN EQU ATCAOSM+576 03854000 ATCZR01 EQU ATCAOSM+572 03855000 ATCMPLTA EQU ATCAOSM+568 03856000 ATCASCB EQU ATCAOSM+564 03857000 ATCAP86 EQU ATCAOSM+560 03858000 ATCAP85 EQU ATCAOSM+556 03859000 ATCAP84 EQU ATCAOSM+552 03860000 ATCAP83 EQU ATCAOSM+548 03861000 ATCAP82 EQU ATCAOSM+544 03862000 ATCAP69 EQU ATCAOSM+540 03863000 ATCAP66 EQU ATCAOSM+536 03864000 ATCAP62 EQU ATCAOSM+532 03865000 ATCAPC59 EQU ATCAOSM+528 03866000 ATCAP56 EQU ATCAOSM+524 03867000 ATCAP55 EQU ATCAOSM+520 03868000 ATCRCFY0 EQU ATCAOSM+516 03869000 ATCAP41 EQU ATCAOSM+512 03870000 ATCAPC25 EQU ATCAOSM+508 03871000 ATCAP23 EQU ATCAOSM+504 03872000 ATCTPSPB EQU ATCAOSM+472 03873000 ATCTRMPB EQU ATCAOSM+440 03874000 ATCAPBE EQU ATCAOSM+436 03875000 ATCPSTA EQU ATCAOSM+432 03876000 ATCSMABF EQU ATCAOSM+428 03877000 ATCSMAPR EQU ATCAOSM+424 03878000 ATCTPWQA EQU ATCAOSM+420 03879000 ATCSMAID EQU ATCAOSM+416 03880000 ATCSMARA EQU ATCAOSM+412 03881000 ATCCACXA EQU ATCAOSM+408 03882000 ATCZLAAB EQU ATCAOSM+404 03883000 ATCATA10 EQU ATCAOSM+400 03884000 ATCHLTCB EQU ATCAOSM+396 03885000 @NM00027 EQU ATCVTFLG 03886000 ATCVTACT EQU ATCVTFLG 03887000 ATCRPT40 EQU ATCAOSM+388 03888000 ATCRPT39 EQU ATCAOSM+384 03889000 ATCRPT38 EQU ATCAOSM+380 03890000 ATCRPT37 EQU ATCAOSM+376 03891000 ATCRPT36 EQU ATCAOSM+372 03892000 ATCRPT35 EQU ATCAOSM+368 03893000 ATCRPT34 EQU ATCAOSM+364 03894000 ATCRPT33 EQU ATCAOSM+360 03895000 ATCRPT32 EQU ATCAOSM+356 03896000 ATCRPT31 EQU ATCAOSM+352 03897000 ATCRPT30 EQU ATCAOSM+348 03898000 ATCRPT29 EQU ATCAOSM+344 03899000 ATCRPT28 EQU ATCAOSM+340 03900000 ATCRPT27 EQU ATCAOSM+336 03901000 @NM00026 EQU ATCAOSM+333 03902000 @NM00025 EQU @NM00024 03903000 ATCSNUF EQU @NM00024 03904000 ATCOPKL EQU @NM00024 03905000 ATCABEN EQU @NM00024 03906000 ATCAIWT EQU ATCAOSM+328 03907000 ATCINFDD EQU ATCAOSM+324 03908000 ATCORFMG EQU ATCAOSM+320 03909000 ATCORFRL EQU ATCAOSM+316 03910000 ATCOROBT EQU ATCAOSM+312 03911000 ATCORQG EQU ATCORSRB 03912000 ATCORTBF EQU ATCSQAFR 03913000 ATCRPLAC EQU ATCRPLCN+2 03914000 ATCRPLRC EQU ATCRPLCN 03915000 ATCCRPLQ EQU ATCCRPL 03916000 ATCSRBAC EQU ATCSRBCN+2 03917000 ATCSRBRC EQU ATCSRBCN 03918000 ATCSRBQ EQU ATCSRB 03919000 ATCCRAAC EQU ATCCRACN+2 03920000 ATCCRARC EQU ATCCRACN 03921000 ATCCRAQ EQU ATCCRA 03922000 ATCRPT12 EQU ATCAOSM+276 03923000 ATCDMAPP EQU ATCAOSM+272 03924000 ATCAP38 EQU ATCAOSM+268 03925000 ATCAP37 EQU ATCAOSM+264 03926000 ATCZDFJ0 EQU ATCAOSM+260 03927000 ATCAP51 EQU ATCAOSM+256 03928000 ATCZPAB2 EQU ATCAOSM+224 03929000 ATCZPAB1 EQU ATCAOSM+192 03930000 ATCZLFVT EQU ATCAOSM+188 03931000 ATCZLPVT EQU ATCAOSM+184 03932000 ATCZDVTX EQU ATCAOSM+180 03933000 ATCZDVTA EQU ATCAOSM+176 03934000 ATCZDVT9 EQU ATCAOSM+172 03935000 ATCZDVT8 EQU ATCAOSM+168 03936000 ATCZDVT7 EQU ATCAOSM+164 03937000 ATCRSV56 EQU ATCDAPVT+22 03938000 ATCDAPDG EQU ATCDAPVT+20 03939000 ATCDXCEA EQU ATCDAPVT+16 03940000 ATCDCEA EQU ATCDAPVT+12 03941000 ATCDPCIA EQU ATCDAPVT+8 03942000 ATCDSIOA EQU ATCDAPVT+4 03943000 ATCDEOEA EQU ATCDAPVT 03944000 ATCZLAEA EQU ATCLDAPP+16 03945000 ATCZLCEA EQU ATCLDAPP+12 03946000 ATCRSV17 EQU ATCLDAPP+8 03947000 ATCSMFRR EQU ATCLDAPP+4 03948000 ATCCDTID EQU ATCLDAPP 03949000 ATCZAEA EQU ATCICAPP+16 03950000 ATCZCEA EQU ATCICAPP+12 03951000 ATCCDTCB EQU ATCICAPP+8 03952000 ATCZSIOA EQU ATCICAPP+4 03953000 ATCCDRPH EQU ATCICAPP 03954000 ATCAP65 EQU ATCAOSM+96 03955000 ATCZDVT6 EQU ATCAOSM+92 03956000 ATCZDVT4 EQU ATCAOSM+88 03957000 ATCZDVT3 EQU ATCAOSM+84 03958000 ATCZDVT1 EQU ATCAOSM+80 03959000 ATCICNCB EQU ATCAOSM+76 03960000 ATCZPSVT EQU ATCAOSM+72 03961000 ATCZFSVT EQU ATCAOSM+68 03962000 ATCAP64 EQU ATCAOSM+64 03963000 ATCAP63 EQU ATCAOSM+60 03964000 ATCAP61 EQU ATCAOSM+56 03965000 ATCAP58 EQU ATCAOSM+52 03966000 ATCAP57 EQU ATCAOSM+48 03967000 ATCAP54 EQU ATCAOSM+44 03968000 ATCAP53 EQU ATCAOSM+40 03969000 ATCAP52 EQU ATCAOSM+36 03970000 ATCAP34 EQU ATCAOSM+32 03971000 ATCAP32 EQU ATCAOSM+28 03972000 ATCAP31 EQU ATCAOSM+24 03973000 ATCAP12 EQU ATCAOSM+20 03974000 ATCAP11 EQU ATCAOSM+16 03975000 ATCCMTCB EQU ATCAOSM+12 03976000 ATCPRPH EQU ATCAOSM+8 03977000 ATCGSRBF EQU ATCGSRBG 03978000 ATCSRBRT EQU ATCAOSM 03979000 @NM00023 EQU @NM00022 03980000 ATCVTMAB EQU @NM00022 03981000 @NM00021 EQU ATCVTBAM 03982000 ATCVDLOK EQU ISTATCVT+904 03983000 ATCVFPAB EQU ISTATCVT+872 03984000 ATCVDPAB EQU ISTATCVT+840 03985000 ATCIOECB EQU ISTATCVT+836 03986000 ATCINCW3 EQU ISTATCVT+832 03987000 ATCMODTB EQU ISTATCVT+828 03988000 ATCUSSPT EQU ISTATCVT+824 03989000 ATCSRTAB EQU ISTATCVT+820 03990000 @NM00020 EQU ISTATCVT+819 03991000 @NM00019 EQU ATCSTAT2 03992000 ATCTRSMS EQU ATCSTAT2 03993000 ATCTRLOK EQU ATCSTAT2 03994000 ATCTRPSS EQU ATCSTAT2 03995000 ATCTRESC EQU ATCSTAT2 03996000 ATCTRAPI EQU ATCSTAT2 03997000 ATCNMCTR EQU ISTATCVT+816 03998000 ATCSEC51 EQU ATCSECST 03999000 ATCSEC40 EQU ATCSIPD+8 04000000 ATCSEC30 EQU ATCSIPD+4 04001000 ATCSEC21 EQU ATCSIPD 04002000 ATCSEC10 EQU ATCSOPD+4 04003000 ATCSEC01 EQU ATCSOPD 04004000 ATCPOIA EQU ATCRNO+1 04005000 @NM00018 EQU ATCRNO 04006000 ATCPODVT EQU ISTATCVT+784 04007000 ATCS49XL EQU ISTATCVT+780 04008000 ATCS49XI EQU ISTATCVT+776 04009000 ATCLCLCT EQU ATCVLCNT+2 04010000 ATCRNCNT EQU ATCVLCNT 04011000 ATCCFEAD EQU ISTATCVT+768 04012000 ATCPTR00 EQU ISTATCVT+736 04013000 ATCRSV10 EQU ISTATCVT+704 04014000 ATCTACB EQU ISTATCVT+700 04015000 ATCVTINM EQU ISTATCVT+696 04016000 ATCTCLIM EQU ISTATCVT+692 04017000 ATCTCLOM EQU ISTATCVT+688 04018000 ATCVTIPB EQU ISTATCVT+656 04019000 ATCTCIPB EQU ISTATCVT+624 04020000 ATCTIPAB EQU ISTATCVT+592 04021000 ATCOCCCB EQU ISTATCVT+588 04022000 ATCOCCOB EQU ISTATCVT+584 04023000 ATCCDLAD EQU ISTATCVT+580 04024000 ATCCCLAD EQU ISTATCVT+576 04025000 ATCDLRPB EQU ISTATCVT+544 04026000 ATCPGPAB EQU ISTATCVT+512 04027000 ATCVPAB1 EQU ISTATCVT+480 04028000 ATCRSV97 EQU ISTATCVT+476 04029000 ATCRDTLK EQU ISTATCVT+472 04030000 ATCVOCLK EQU ISTATCVT+468 04031000 ATCCDFDN EQU ISTATCVT+464 04032000 ATCCDFIN EQU ISTATCVT+460 04033000 ATCDVTLK EQU ISTATCVT+456 04034000 ATCAP36 EQU ISTATCVT+452 04035000 ATCAP35 EQU ISTATCVT+448 04036000 ATCAP33 EQU ISTATCVT+444 04037000 ATCRSV99 EQU ISTATCVT+440 04038000 ATCONFIG EQU ISTATCVT+432 04039000 ATCNODDS EQU ISTATCVT+428 04040000 ATCNODEL EQU ISTATCVT+420 04041000 ATCRSV69 EQU ISTATCVT+416 04042000 ATCAPCR5 EQU ISTATCVT+412 04043000 ATCLDECB EQU ISTATCVT+408 04044000 ATCLDNCS EQU ISTATCVT+404 04045000 ATCCDPTR EQU ISTATCVT+400 04046000 ATCADEL EQU ISTATCVT+396 04047000 ATCTODVT EQU ISTATCVT+392 04048000 ATCDEBCH EQU ISTATCVT+388 04049000 ATCHBSIZ EQU ATCHPGM+2 04050000 ATCHBFNO EQU ATCHPGM 04051000 ATCCRME EQU ISTATCVT+380 04052000 ATCRVCHS EQU ISTATCVT+372 04053000 ATCECTLP EQU ISTATCVT+368 04054000 ATCZDVTB EQU ISTATCVT+364 04055000 ATCECPRT EQU ISTATCVT+360 04056000 ATCVTLOD EQU ISTATCVT+356 04057000 ATCTRPAB EQU ISTATCVT+352 04058000 ATCMSGM EQU ISTATCVT+348 04059000 ATCMSGP EQU ISTATCVT+344 04060000 ATCEPT EQU ISTATCVT+340 04061000 ATCDVT EQU ISTATCVT+336 04062000 ATCTRCPT EQU ISTATCVT+332 04063000 ATCDVLOD EQU ISTATCVT+328 04064000 ATCALERT EQU ISTATCVT+324 04065000 ATCEPA EQU ISTATCVT+320 04066000 ATCSAF EQU ISTATCVT+318 04067000 ATCXRANG EQU ISTATCVT+317 04068000 ATCLAST EQU ATCSHRFG 04069000 ATCSHRTN EQU ISTATCVT+308 04070000 ATCUEP EQU ISTATCVT+304 04071000 ATCOCRT EQU ISTATCVT+300 04072000 ATCCSMA EQU ATCCSMR 04073000 ATCESC02 EQU ISTATCVT+292 04074000 ATCESC01 EQU ISTATCVT+288 04075000 ATCCDFND EQU ISTATCVT+284 04076000 ATCCDDEL EQU ISTATCVT+280 04077000 ATCCDADD EQU ISTATCVT+276 04078000 ATCMNT EQU ISTATCVT+272 04079000 ATCRSV16 EQU ISTATCVT+270 04080000 ATCMAXID EQU ISTATCVT+269 04081000 ATCMSGSP EQU ATCCOM+268 04082000 ATCCIDM EQU ATCCOM+266 04083000 ATCACTRM EQU ATCCOM+264 04084000 ATCNERAP EQU ATCCOM+260 04085000 ATCNESAL EQU ATCCOM+256 04086000 ATCRCC65 EQU ATCCOM+252 04087000 ATCRCC26 EQU ATCCOM+248 04088000 ATCRCC63 EQU ATCCOM+244 04089000 ATCRSV11 EQU ATCCOM+242 04090000 ATCVTMID EQU ATCCOM+240 04091000 ATCAPOST EQU ATCCOM+236 04092000 ATCNERFN EQU ATCCOM+232 04093000 ATCNERNE EQU ATCCOM+228 04094000 ATCNERCV EQU ATCCOM+224 04095000 ATCNERST EQU ATCCOM+220 04096000 ATCDCC61 EQU ATCCOM+216 04097000 ATCDCC60 EQU ATCCOM+212 04098000 ATCSRTDF EQU ATCCOM+208 04099000 ATCSRTAD EQU ATCCOM+204 04100000 ATCFIRA EQU ATCCOM+200 04101000 ATCSMBQ EQU ATCCOM+196 04102000 ATCSMRC EQU ATCCOM+192 04103000 ATCSMRS EQU ATCCOM+188 04104000 ATCSMQU EQU ATCCOM+184 04105000 ATCSMRQ EQU ATCCOM+180 04106000 ATCACDA EQU ATCCOM+176 04107000 ATCSTMA EQU ATCCOM+172 04108000 ATCFRSTR EQU ATCCOM+168 04109000 ATCGTSTR EQU ATCCOM+164 04110000 ATCREADA EQU ATCCOM+160 04111000 ATCALOAD EQU ATCCOM+156 04112000 ATCBLDLA EQU ATCCOM+152 04113000 ATCFBRPH EQU ATCCOM+148 04114000 ATCBFTRC EQU ATCCOM+144 04115000 ATCTPBUF EQU ATCTHTRC 04116000 ATCREMOV EQU ATCCOM+136 04117000 ATCADD EQU ATCCOM+132 04118000 ATCBPDA EQU ATCCOM+128 04119000 ATCDVTPT EQU ATCCOM+124 04120000 ATCFEPT EQU ATCCOM+120 04121000 ATCFDVT EQU ATCCOM+116 04122000 ATCCONFT EQU ATCCOM+112 04123000 ATCPTCHA EQU ATCCOM+108 04124000 ATCAUTHA EQU ATCCOM+104 04125000 ATCACCTA EQU ATCCOM+100 04126000 ATCRDTH EQU ATCCOM+96 04127000 ATCFRSCH EQU ATCCOM+92 04128000 ATCFSB EQU ATCCOM+88 04129000 ATCHLTMS EQU ATCCOM+84 04130000 ATCECPRM EQU ATCCOM+80 04131000 ATCECNET EQU ATCCOM+76 04132000 ATCECOPC EQU ATCCOM+72 04133000 ATCVPARM EQU ATCCOM+68 04134000 ATCECVRQ EQU ATCCOM+64 04135000 ATCECSES EQU ATCCOM+60 04136000 ATCOCHA EQU ATCCOM+56 04137000 ATCDSPLQ EQU ATCCOM+52 04138000 ATCECDSP EQU ATCCOM+48 04139000 ATCVARYQ EQU ATCCOM+44 04140000 ATCECVRY EQU ATCCOM+40 04141000 ATCHALTQ EQU ATCCOM+36 04142000 ATCECHLT EQU ATCCOM+32 04143000 ATCMODQ EQU ATCCOM+28 04144000 ATCECMOD EQU ATCCOM+24 04145000 ATCASCHD EQU ATCCOM+20 04146000 ATCSRT EQU ATCCOM+16 04147000 ATCRDT EQU ATCCOM+12 04148000 ATCDCFRR EQU ATCCOM+8 04149000 ATCAPI EQU ATCCOM+4 04150000 ATCRSV04 EQU ATCSTAT4 04151000 ATCVTTRC EQU ATCSTAT4 04152000 ATCNCSD EQU ATCSTAT4 04153000 ATCMTST EQU ATCSTAT4 04154000 ATCTPRT EQU ATCSTAT4 04155000 ATCPRTAT EQU ATCSTAT4 04156000 @NM00017 EQU ATCPOFLG 04157000 ATCPOUNS EQU ATCPOFLG 04158000 ATCHSDMF EQU ATCSTFLG 04159000 @NM00016 EQU ATCSTAT1 04160000 ATCMDHLT EQU ATCSTAT1 04161000 ATCINHLT EQU ATCSTAT1 04162000 ATCNETSL EQU ATCSTAT1 04163000 ATCQKHLT EQU ATCSTAT1 04164000 ATCSNHLT EQU ATCSTAT1 04165000 ATCACTIV EQU ATCSTAT1 04166000 ATCSTART EQU ATCSTAT1 04167000 RPHNEXPO EQU ISTRPH+104 04168000 RPHSAV16 EQU RPHWORK+60 04169000 RPHSAV15 EQU RPHWORK+56 04170000 RPHSAV14 EQU RPHWORK+52 04171000 RPHSAV13 EQU RPHWORK+48 04172000 RPHSAV12 EQU RPHWORK+44 04173000 RPHSAV11 EQU RPHWORK+40 04174000 RPHSAV10 EQU RPHWORK+36 04175000 RPHSAVE9 EQU RPHWORK+32 04176000 RPHSAVE8 EQU RPHWORK+28 04177000 RPHSAVE7 EQU RPHWORK+24 04178000 RPHSAVE6 EQU RPHWORK+20 04179000 RPHSAVE5 EQU RPHWORK+16 04180000 RPHSAVE4 EQU RPHWORK+12 04181000 RPHSAVE3 EQU RPHWORK+8 04182000 RPHSAVE2 EQU RPHWORK+4 04183000 RPHSHALF EQU RPHSAVE1+2 04184000 RPHSBIT8 EQU RPHSBITS 04185000 RPHSBIT7 EQU RPHSBITS 04186000 RPHSBIT6 EQU RPHSBITS 04187000 RPHSBIT5 EQU RPHSBITS 04188000 RPHSBIT4 EQU RPHSBITS 04189000 RPHSBIT3 EQU RPHSBITS 04190000 RPHSBIT2 EQU RPHSBITS 04191000 RPHSBIT1 EQU RPHSBITS 04192000 RPHSBYTE EQU RPHSAVE1 04193000 RPHPABQP EQU RPHPABQA+1 04194000 RPHPABFG EQU RPHPABQA 04195000 RPHSRP34 EQU RPHSRPRM+2 04196000 RPHSRP12 EQU RPHSRPRM 04197000 RPHWEGT EQU RPHCSPA 04198000 RPHMAJCB EQU ISTRPH+21 04199000 RPHPABOF EQU ISTRPH+20 04200000 RPHRESUM EQU RPHRESMA+1 04201000 RPHRSV01 EQU RPHWPFLG 04202000 RPHPURGE EQU RPHWPFLG 04203000 RPHPT EQU RPHWPFLG 04204000 RPHWT EQU RPHWPFLG 04205000 RPHRSKEY EQU RPHWPFLG 04206000 RPHDVTA EQU ISTRPH+12 04207000 RPHTIK EQU RPHTSKID+3 04208000 @NM00015 EQU RPHTSKID 04209000 RPHRPHAP EQU RPHRPHA+1 04210000 @NM00014 EQU RPHRPHA 04211000 RPHGATE EQU RPHRPHA 04212000 @NM00013 EQU RPHFLGB 04213000 RPHRLCRA EQU RPHFLGB 04214000 RPHNRSAV EQU RPHFLGB 04215000 RPHPGCMP EQU RPHFLGB 04216000 RPHFBAPS EQU RPHFLGB 04217000 RPHBSSP EQU RPHFLGB 04218000 RPHLOCK EQU RPHFLGB 04219000 RPHFNFLG EQU RPHFSTLC 04220000 RPHMLTCP EQU RPHFLAGS 04221000 RPHSMCLR EQU RPHFLAGS 04222000 RPHSMTYP EQU RPHFLAGS 04223000 RPHSMQ EQU RPHFLAGS 04224000 RPHAUTEX EQU RPHAPTYP 04225000 RPHSPGIN EQU RPHFLAGS 04226000 RPHOGIND EQU RPHFLAGS 04227000 RPHLNGTH EQU RPHCNTL+1 04228000 RPHTYPE EQU RPHCNTL 04229000 DYPPAB EQU ISTDYPAB+16 04230000 DYPRSV01 EQU ISTDYPAB+12 04231000 DYPTSKID EQU ISTDYPAB+8 04232000 DYPCHAIN EQU ISTDYPAB+4 04233000 DYPFLGS EQU ISTDYPAB+2 04234000 DYPLNGTH EQU ISTDYPAB+1 04235000 DYPTYPE EQU ISTDYPAB 04236000 LOKXCL EQU @NM00011 04237000 LOKPRY EQU @NM00011 04238000 @NM00012 EQU @NM00011 04239000 @NM00010 EQU LOKCHNG 04240000 LOKCT EQU ISTLOK 04241000 PABRPHA EQU PABRPHFG+1 04242000 PABNODQ EQU PABFLAGS 04243000 PABINHBT EQU PABFLAGS 04244000 PABERLOK EQU PABERRLK 04245000 PABSSN EQU PABFLAGS 04246000 PABDYNAM EQU PABFLAGS 04247000 PABNORPR EQU PABFLAGS 04248000 PABPRIOR EQU PABFLAGS 04249000 PABAPYP EQU PABFLAGS 04250000 PABDVTA EQU ISTPAB+9 04251000 PABOFFST EQU ISTPAB+8 04252000 PABCHNGP EQU PABCHAIN+1 04253000 PABRSV02 EQU PABCHAIN 04254000 PABDELAY EQU PABCHAIN 04255000 PABRUNNG EQU PABCHAIN 04256000 PABRESET EQU PABCHAIN 04257000 PABUNCON EQU PABCHAIN 04258000 PABCDP EQU PABCHAIN 04259000 PABRESCH EQU PABCHAIN 04260000 PABCHNG EQU PABCHAIN 04261000 PABWEQP EQU PABWEQA+1 04262000 PABRSV01 EQU PABWEQA 04263000 PABWEQG EQU PABWEQA 04264000 NCSAPPAB EQU NCSAPP+608 04265000 NCSAPDAT EQU NCSAPBUE+8 04266000 NCSAPRU EQU NCSAPBUE+3 04267000 NCSRSV04 EQU NCSAPBUE 04268000 NCSAPEND EQU NCSAPP+84 04269000 NCSAPTXT EQU NCSAPP+76 04270000 NCSAPECB EQU NCSAPP+72 04271000 NCSAPSA EQU NCSAPP 04272000 NCSPLPDB EQU NCSPLSID+5 04273000 NCSPLNID EQU NCSPLPHD 04274000 NCSPLPO EQU NCSPLSTA 04275000 NCSRSVD4 EQU NCSPLSTA 04276000 NCSRSVD2 EQU NCSCRMOD 04277000 NCSPTMOD EQU NCSCRMOD 04278000 NCSAIMOD EQU NCSCRMOD 04279000 NCSRSVD1 EQU NCSCHKPT+1 04280000 NCSPTUSE EQU NCSCHKPT+1 04281000 NCSRNME EQU NCSCHKPT+1 04282000 NCSCUA EQU NCSCHKPT+1 04283000 NCSANSMD EQU NCSCHKPT+1 04284000 NCSLGMOD EQU NCSCHKPT 04285000 NCSLGAPL EQU NCSCHKPT 04286000 NCSDTRLM EQU NCSCHKPT 04287000 NCSESLM EQU NCSCHKPT 04288000 NCSNRPL EQU NCSCHKPT 04289000 NCSPOLD EQU NCSCHKPT 04290000 NCSPACTV EQU NCSCHKPT 04291000 NCSACTV EQU NCSCHKPT 04292000 NCSCRDTE EQU ISTNCSPL+264 04293000 NCSPLRTY EQU ISTNCSPL+263 04294000 NCSPLRH EQU ISTNCSPL+260 04295000 NCSUFMCB EQU ISTNCSPL+256 04296000 NCSMGLPT EQU ISTNCSPL+252 04297000 NCSCPWPT EQU ISTNCSPL+248 04298000 NCSSENS2 EQU NCSSENSE+2 04299000 NCSSNS2 EQU NCSSENSE+1 04300000 NCSSNS1 EQU NCSSENSE 04301000 NCSPLNSN EQU ISTNCSPL+240 04302000 NCSPLMID EQU ISTNCSPL+232 04303000 NCSPLPID EQU ISTNCSPL+231 04304000 NCSPLGID EQU ISTNCSPL+230 04305000 NCSPLSQN EQU ISTNCSPL+228 04306000 NCSRNAME EQU ISTNCSPL+220 04307000 NCSPLRUI EQU ISTNCSPL+212 04308000 NCSPLRRP EQU ISTNCSPL+204 04309000 NCSPLWEL EQU ISTNCSPL+200 04310000 NCSPLSPL EQU ISTNCSPL+196 04311000 NCSPLP3 EQU ISTNCSPL+192 04312000 NCSPLP2 EQU ISTNCSPL+188 04313000 NCSPLP1 EQU ISTNCSPL+184 04314000 @NM00009 EQU NCSPLFL5 04315000 NCSFORCE EQU NCSPLFL5 04316000 NCSSDLK EQU NCSPLFL5 04317000 NCSSCPPS EQU NCSPLFL5 04318000 NCSDLRSN EQU ISTNCSPL+180 04319000 NCSPL2AP EQU NCSPLFL4 04320000 NCSDSPN EQU NCSPLFL4 04321000 NCSDSPI EQU NCSPLFL4 04322000 NCSDSPA EQU NCSPLFL4 04323000 NCSDSPE EQU NCSPLFL4 04324000 NCSPLVID EQU NCSPLFL4 04325000 NCSPLRSO EQU NCSPLFL4 04326000 NCSDLNID EQU NCSPLFL4 04327000 NCSEND EQU NCSPLFL3 04328000 NCSFINAL EQU NCSPLFL3 04329000 NCSANS EQU NCSPLFL3 04330000 NCSPID EQU NCSPLFL3 04331000 NCSGID EQU NCSPLFL3 04332000 NCSPLANS EQU NCSPLFL3 04333000 NCSEPP EQU NCSPLFL3 04334000 NCSPLMOM EQU NCSPLFL3 04335000 NCSPLVIT EQU NCSPLFL2 04336000 NCSPLVIS EQU NCSPLFL2 04337000 NCSREMPO EQU NCSPLFL2 04338000 NCSPLDS EQU NCSPLFL2 04339000 NCSOUFMC EQU NCSPLFL2 04340000 NCSPLRIO EQU NCSPLFL2 04341000 NCSPLRSF EQU NCSPLFL2 04342000 NCSPLVDP EQU NCSPLFL2 04343000 NCSPLPOS EQU NCSPLFL1 04344000 NCSPL2CN EQU NCSPLFL1 04345000 NCSPLAPU EQU NCSPLFL1 04346000 NCSPLNON EQU NCSPLFL1 04347000 NCSPLREQ EQU NCSPLFL1 04348000 NCSPLEBN EQU NCSPLFL1 04349000 NCSPLSOM EQU NCSPLFL1 04350000 NCSPL2IN EQU NCSPLFL1 04351000 NCSPLRCR EQU ISTNCSPL+172 04352000 NCSPLECB EQU ISTNCSPL+164 04353000 NCSPLWKA EQU ISTNCSPL+152 04354000 NCSPLDAF EQU NCSPLCID+2 04355000 NCSPLSAF EQU NCSPLCID 04356000 NCSPLRCD EQU NCSPLRAD+1 04357000 NCSLSCMD EQU NCSPLRAD 04358000 NCSPLWRF EQU ISTNCSPL+72 04359000 NCSPLWRE EQU ISTNCSPL+68 04360000 NCSSTCMD EQU NCSCRFLG 04361000 NCSUSRNF EQU NCSCRFLG 04362000 NCSOPRQU EQU NCSCRFLG 04363000 NCSCRDSE EQU NCSCRFLG 04364000 NCSFMERP EQU NCSCRFLG 04365000 NCSFMCLD EQU NCSCRFLG 04366000 NCSPLCLD EQU NCSCRFLG 04367000 NCSPLWRM EQU NCSCRFLG 04368000 NCSPLUAD EQU ISTNCSPL+64 04369000 NCSMSGSP EQU ISTNCSPL+63 04370000 NCSNCPEP EQU ISTNCSPL+62 04371000 NCSCMDB EQU NCSPLCMD+1 04372000 @NM00008 EQU NCSCMDA 04373000 NCSPLUFM EQU NCSCMDA 04374000 NCSPLFLO EQU NCSCMDA 04375000 NCSPLSYN EQU NCSCMDA 04376000 NCSPLCTL EQU NCSCMDA 04377000 NCSPLSYS EQU NCSCMDA 04378000 NCSPLLPT EQU ISTNCSPL+56 04379000 NCSPLRPT EQU ISTNCSPL+52 04380000 NCSCRPID EQU ISTNCSPL+51 04381000 NCSCRCMD EQU ISTNCSPL+50 04382000 NCSDLID EQU ISTNCSPL+44 04383000 NCSPLLID EQU ISTNCSPL+36 04384000 NCSPLRID EQU ISTNCSPL+28 04385000 NCSRRNPT EQU ISTNCSPL+24 04386000 NCSIORC EQU ISTNCSPL+23 04387000 NCSPRMRC EQU ISTNCSPL+22 04388000 NCSOVFMC EQU NCSPLVF1 04389000 NCSRSV02 EQU NCSPLVFL 04390000 NCSDACLK EQU NCSPLVFL 04391000 NCSABCON EQU NCSPLVFL 04392000 NCSDCONT EQU NCSPLVFL 04393000 NCSVSTAT EQU NCSPLVFL 04394000 NCSVDEL EQU NCSPLVFL 04395000 NCSVNCSA EQU NCSPLVFL 04396000 NCSVBF16 EQU NCSPLVBF+1 04397000 NCSVBF15 EQU NCSPLVBF+1 04398000 NCSVBF14 EQU NCSPLVBF+1 04399000 NCSVBF13 EQU NCSPLVBF+1 04400000 NCSVBF12 EQU NCSPLVBF+1 04401000 NCSVBF11 EQU NCSPLVBF+1 04402000 NCSVBF10 EQU NCSPLVBF+1 04403000 NCSVBF09 EQU NCSPLVBF+1 04404000 NCSVBF08 EQU NCSPLVBF 04405000 NCSVBF07 EQU NCSPLVBF 04406000 NCSVBF06 EQU NCSPLVBF 04407000 NCSVBF05 EQU NCSPLVBF 04408000 NCSVBF04 EQU NCSPLVBF 04409000 NCSVBF03 EQU NCSPLVBF 04410000 NCSVBF02 EQU NCSPLVBF 04411000 NCSVBF01 EQU NCSPLVBF 04412000 NCSPLVCD EQU ISTNCSPL+17 04413000 @NM00007 EQU ISTNCSPL+16 04414000 NCSCRWKA EQU NCSPFX+12 04415000 @NM00006 EQU NCSPFX 04416000 PFXBCK EQU ISTPFX+12 04417000 PFXFWD EQU ISTPFX+8 04418000 PFXLNG EQU ISTPFX+5 04419000 PFXPRTY EQU ISTPFX+4 04420000 PFXCBID EQU PFXID 04421000 POHID EQU ISTPOHD+2 04422000 POHGEN EQU POHSTAT 04423000 POHRREQ EQU POHSTAT 04424000 POHRSVD2 EQU POHSTAT 04425000 POHCNTRL EQU POHSTAT 04426000 POHLBL EQU POHSTAT 04427000 POHDATA EQU POHSTAT 04428000 POHEND EQU POHSTAT 04429000 POHRSVD1 EQU ISTPOHD 04430000 CVTLEVL EQU CVTRELNO+2 04431000 CVTNUMB EQU CVTRELNO 04432000 CVTMDL EQU CVTFIX+250 04433000 @NM00002 EQU CVTFIX+248 04434000 @NM00001 EQU CVTFIX 04435000 CVTRV482 EQU CVTXTNT2+128 04436000 CVTRV481 EQU CVTXTNT2+124 04437000 CVTRV480 EQU CVTXTNT2+120 04438000 CVTRV479 EQU CVTXTNT2+118 04439000 CVTRV478 EQU CVTXTNT2+117 04440000 CVTRV477 EQU CVTXTNT2+116 04441000 CVTRV476 EQU CVTXTNT2+115 04442000 CVTRV475 EQU CVTXTNT2+114 04443000 CVTRV474 EQU CVTRV466 04444000 CVTRV473 EQU CVTRV466 04445000 CVTRV472 EQU CVTRV466 04446000 CVTRV471 EQU CVTRV466 04447000 CVTRV470 EQU CVTRV466 04448000 CVTRV469 EQU CVTRV466 04449000 CVTRV468 EQU CVTRV466 04450000 CVTRV467 EQU CVTRV466 04451000 CVTRV465 EQU CVTRV457 04452000 CVTRV464 EQU CVTRV457 04453000 CVTRV463 EQU CVTRV457 04454000 CVTRV462 EQU CVTRV457 04455000 CVTRV461 EQU CVTRV457 04456000 CVTRV460 EQU CVTRV457 04457000 CVTRV459 EQU CVTRV457 04458000 CVTRV458 EQU CVTRV457 04459000 CVTRV456 EQU CVTXTNT2+108 04460000 CVTRV455 EQU CVTXTNT2+104 04461000 CVTRV454 EQU CVTXTNT2+100 04462000 CVTRV453 EQU CVTXTNT2+96 04463000 CVTRV452 EQU CVTXTNT2+94 04464000 CVTRV451 EQU CVTXTNT2+92 04465000 CVTRV450 EQU CVTXTNT2+90 04466000 CVTRV449 EQU CVTXTNT2+88 04467000 CVTRV448 EQU CVTXTNT2+87 04468000 CVTRV447 EQU CVTXTNT2+86 04469000 CVTRV446 EQU CVTRV438 04470000 CVTRV445 EQU CVTRV438 04471000 CVTRV444 EQU CVTRV438 04472000 CVTRV443 EQU CVTRV438 04473000 CVTRV442 EQU CVTRV438 04474000 CVTRV441 EQU CVTRV438 04475000 CVTRV440 EQU CVTRV438 04476000 CVTRV439 EQU CVTRV438 04477000 CVTRV437 EQU CVTRV429 04478000 CVTRV436 EQU CVTRV429 04479000 CVTRV435 EQU CVTRV429 04480000 CVTRV434 EQU CVTRV429 04481000 CVTRV433 EQU CVTRV429 04482000 CVTRV432 EQU CVTRV429 04483000 CVTRV431 EQU CVTRV429 04484000 CVTRV430 EQU CVTRV429 04485000 CVTRV428 EQU CVTXTNT2+80 04486000 CVTRV427 EQU CVTXTNT2+76 04487000 CVTRV426 EQU CVTXTNT2+72 04488000 CVTRV425 EQU CVTXTNT2+68 04489000 CVTATACT EQU CVTATCVT 04490000 CVTRV423 EQU CVTXTNT2+62 04491000 CVTRV422 EQU CVTXTNT2+60 04492000 CVTRV421 EQU CVTXTNT2+58 04493000 CVTRV420 EQU CVTXTNT2+56 04494000 CVTRV419 EQU CVTXTNT2+55 04495000 CVTRV418 EQU CVTXTNT2+54 04496000 CVTRV417 EQU CVTRV409 04497000 CVTRV416 EQU CVTRV409 04498000 CVTRV415 EQU CVTRV409 04499000 CVTRV414 EQU CVTRV409 04500000 CVTRV413 EQU CVTRV409 04501000 CVTRV412 EQU CVTRV409 04502000 CVTRV411 EQU CVTRV409 04503000 CVTRV410 EQU CVTRV409 04504000 CVTRV408 EQU CVTRV400 04505000 CVTRV407 EQU CVTRV400 04506000 CVTRV406 EQU CVTRV400 04507000 CVTRV405 EQU CVTRV400 04508000 CVTRV404 EQU CVTRV400 04509000 CVTRV403 EQU CVTRV400 04510000 CVTRV402 EQU CVTRV400 04511000 CVTRV401 EQU CVTRV400 04512000 CVTICB EQU CVTXTNT2+48 04513000 CVTSKTA EQU CVTXTNT2+44 04514000 CVTSHSB EQU CVTSHS 04515000 CVTRSV98 EQU CVTXTNT2+36 04516000 CVTRSV97 EQU CVTXTNT2+34 04517000 CVTRSV96 EQU CVTXTNT2+32 04518000 CVTOLTEP EQU CVTXTNT2+28 04519000 CVTQIDA EQU CVTQID+1 04520000 CVTRSV95 EQU CVTQID 04521000 CVTRSV94 EQU CVTXTNT2+20 04522000 CVTRSV93 EQU CVTXTNT2+16 04523000 CVTRSV92 EQU CVTXTNT2+12 04524000 CVTDEBVR EQU CVTXTNT2+8 04525000 CVTRSV91 EQU CVTXTNT2+6 04526000 CVTRSV9H EQU CVTFLGBT 04527000 CVTRSV9G EQU CVTFLGBT 04528000 CVTRSV9F EQU CVTFLGBT 04529000 CVTRSV9E EQU CVTFLGBT 04530000 CVTRSV9D EQU CVTFLGBT 04531000 CVTRSV9C EQU CVTFLGBT 04532000 CVTVME EQU CVTFLGBT 04533000 CVTNPE EQU CVTFLGBT 04534000 CVTNUCLS EQU CVTXTNT2+4 04535000 CVTDSSVA EQU CVTDSSV+1 04536000 CVTRSV89 EQU CVTDSSV 04537000 CVTRSV88 EQU CVTXTNT1+8 04538000 CVTRSV87 EQU CVTXTNT1+4 04539000 CVTFACHN EQU CVTXTNT1 04540000 CVTRV488 EQU CVTMAP+412 04541000 CVTRV487 EQU CVTMAP+408 04542000 CVTRV486 EQU CVTMAP+404 04543000 CVTRV485 EQU CVTMAP+400 04544000 CVTACTAP EQU CVTMAP+396 04545000 CVTAUTH EQU CVTMAP+392 04546000 CVTATMCA EQU CVTATMCT+1 04547000 CVTATMST EQU CVTATMCT 04548000 CVTRSV61 EQU CVTMAP+384 04549000 CVTVOLT1 EQU CVTVOLM1+1 04550000 CVTVOLI1 EQU CVTVOLF1 04551000 CVTSTOA EQU CVTMAP+376 04552000 CVTRSV58 EQU CVTMAP+374 04553000 CVTRSV57 EQU CVTMAP+372 04554000 CVTDDCE EQU CVTMAP+368 04555000 CVTPNWFR EQU CVTMAP+364 04556000 CVTSMF EQU CVTMAP+360 04557000 CVTSULK EQU CVTMAP+358 04558000 CVTSLKO EQU CVTSYSK 04559000 CVTSLKP EQU CVTSYSK 04560000 CVTSLKQ EQU CVTSYSK 04561000 CVTSLKR EQU CVTSYSK 04562000 CVTRSV56 EQU CVTSYSK 04563000 CVTRSV55 EQU CVTSYSK 04564000 CVTRSV54 EQU CVTSYSK 04565000 CVTRSV53 EQU CVTSYSK 04566000 CVTRSV52 EQU CVTA1F1 04567000 CVTRSV51 EQU CVTA1F1 04568000 CVTRSV50 EQU CVTA1F1 04569000 CVTRSV49 EQU CVTA1F1 04570000 CVTRSV48 EQU CVTA1F1 04571000 CVTRSV47 EQU CVTA1F1 04572000 CVTSRSW EQU CVTA1F1 04573000 CVTPFSW EQU CVTA1F1 04574000 CVTPCVT EQU CVTMAP+352 04575000 CVTRSV46 EQU CVTMAP+344 04576000 CVTRSV45 EQU CVTMAP+340 04577000 CVTRSV44 EQU CVTMAP+338 04578000 CVTRSV43 EQU CVTMAP+336 04579000 CVTHJESA EQU CVTHJES+1 04580000 CVTRSV42 EQU CVTHJES 04581000 CVTEXT2A EQU CVTEXT2+1 04582000 CVTRSV41 EQU CVTEXT2 04583000 CVTAPFA EQU CVTAPF+1 04584000 CVTRSV40 EQU CVTAPF 04585000 CVTRV518 EQU CVTINTLA 04586000 CVTRV517 EQU CVTERPV 04587000 CVTEORM EQU CVTMAP+312 04588000 CVTMCHPR EQU CVTMAP+308 04589000 CVTTZ EQU CVTMAP+304 04590000 CVTJEPS EQU CVTMAP+300 04591000 CVTJESCT EQU CVTMAP+296 04592000 CVTMODE EQU CVTMAP+292 04593000 CVTPTRV EQU CVTMAP+288 04594000 CVTREAL EQU CVTMAP+284 04595000 CVTRSV39 EQU CVTMAP+280 04596000 CVTRSV38 EQU CVTMAP+276 04597000 CVTDMSRA EQU CVTDMSR+1 04598000 CVTRV634 EQU CVTDMSRF 04599000 CVTRV633 EQU CVTDMSRF 04600000 CVTRV632 EQU CVTDMSRF 04601000 CVTRV631 EQU CVTDMSRF 04602000 CVTRV630 EQU CVTDMSRF 04603000 CVTRV629 EQU CVTDMSRF 04604000 CVTUDUMP EQU CVTDMSRF 04605000 CVTSDUMP EQU CVTDMSRF 04606000 CVTQMSGA EQU CVTQMSG+1 04607000 CVTRSV36 EQU CVTQMSG 04608000 CVTAMFF EQU CVTMAP+264 04609000 CVTPURGA EQU CVTPURG+1 04610000 CVTRSV35 EQU CVTPURG 04611000 CVTCBSP EQU CVTMAP+256 04612000 CVTATERA EQU CVTATER+1 04613000 CVTSYST EQU CVTATER 04614000 CVTVOLT2 EQU CVTTAT 04615000 CVTVOLI2 EQU CVTVOLF2 04616000 CVTAQAVB EQU CVTAQAVT+1 04617000 CVTRSV34 EQU CVTTCMFG 04618000 CVTRSV33 EQU CVTTCMFG 04619000 CVTRSV32 EQU CVTTCMFG 04620000 CVTRSV31 EQU CVTTCMFG 04621000 CVTRSV30 EQU CVTTCMFG 04622000 CVTRSV29 EQU CVTTCMFG 04623000 CVTRSV28 EQU CVTTCMFG 04624000 CVTTCRDY EQU CVTTCMFG 04625000 CVTGTFA EQU CVTGTF+1 04626000 CVTRSV27 EQU CVTGTFST 04627000 CVTRNIO EQU CVTGTFST 04628000 CVTUSR EQU CVTGTFST 04629000 CVTRV318 EQU CVTFORM 04630000 CVTRV317 EQU CVTTMODE 04631000 CVTRV316 EQU CVTSTATE 04632000 CVTRV315 EQU CVTGTFS 04633000 CVTGTFAV EQU CVTGTFS 04634000 CVT0SCR1 EQU CVTMAP+232 04635000 CVTRV515 EQU CVTMAP+228 04636000 CVTRMS EQU CVTMAP+224 04637000 CVTPATCH EQU CVTMAP+220 04638000 CVTTSCE EQU CVTMAP+216 04639000 CVTLNKSC EQU CVTMAP+214 04640000 CVTQABST EQU CVTMAP+212 04641000 CVTMDLDS EQU CVTMAP+208 04642000 CVTUSER EQU CVTMAP+204 04643000 CVTABEND EQU CVTMAP+200 04644000 CVTSMCA EQU CVTMAP+196 04645000 CVTRSV18 EQU CVTMAP+192 04646000 CVTQLPAQ EQU CVTMAP+188 04647000 CVTQCDSR EQU CVTMAP+184 04648000 CVTRSV17 EQU CVTOPTB 04649000 CVTRSV16 EQU CVTOPTB 04650000 CVTFP EQU CVTOPTB 04651000 CVTAPTHR EQU CVTOPTB 04652000 CVTNLOG EQU CVTOPTB 04653000 CVTTOD EQU CVTOPTB 04654000 CVTCTIMS EQU CVTOPTB 04655000 CVTPROT EQU CVTOPTB 04656000 CVTXPFP EQU CVTOPTA 04657000 CVTASCII EQU CVTOPTA 04658000 CVTRSV13 EQU CVTOPTA 04659000 CVTRSV12 EQU CVTOPTA 04660000 CVTNIP EQU CVTOPTA 04661000 CVTDDR EQU CVTOPTA 04662000 CVTAPR EQU CVTOPTA 04663000 CVTCCH EQU CVTOPTA 04664000 CVTSNCTR EQU CVTMAP+180 04665000 CVTQMWR EQU CVTMAP+176 04666000 CVTQOCR EQU CVTMAP+172 04667000 CVT1EF00 EQU CVTMAP+168 04668000 CVTMZ00 EQU CVTMAP+164 04669000 CVTHEAD EQU CVTMAP+160 04670000 CVTRSV11 EQU CVTMAP+156 04671000 CVT0PT01 EQU CVTMAP+152 04672000 CVTMSER EQU CVTMAP+148 04673000 CVTRV516 EQU CVTIERLC 04674000 CVTILCH EQU CVTMAP+140 04675000 CVT0DS EQU CVTMAP+136 04676000 CVTFBOSV EQU CVTMAP+132 04677000 CVTNUCB EQU CVTMAP+128 04678000 CVTIXAVL EQU CVTMAP+124 04679000 CVTIOQET EQU CVTMAP+120 04680000 CVTDCBA EQU CVTMAP+117 04681000 CVTMVS2 EQU CVTDCB 04682000 CVT6DAT EQU CVTDCB 04683000 CVT4MPS EQU CVTDCB 04684000 CVTRSV09 EQU CVTDCB 04685000 CVT4MS1 EQU CVTDCB 04686000 CVT2SPS EQU CVTDCB 04687000 CVT1SSS EQU CVTDCB 04688000 CVTRSV08 EQU CVTDCB 04689000 CVTSTB EQU CVTMAP+112 04690000 CVTQTD00 EQU CVTMAP+108 04691000 CVTQTE00 EQU CVTMAP+104 04692000 CVTCUCB EQU CVTMAP+100 04693000 CVTSJQ EQU CVTMAP+96 04694000 CVTPBLDL EQU CVTMAP+92 04695000 CVTTPC EQU CVTMAP+88 04696000 CVTSVDCB EQU CVTMAP+84 04697000 CVTBRET EQU CVTMAP+82 04698000 CVTEXIT EQU CVTMAP+80 04699000 CVT0FN00 EQU CVTMAP+76 04700000 CVTDARA EQU CVTDAR+1 04701000 CVTRSV07 EQU CVTFLGS1 04702000 CVTRSV06 EQU CVTFLGS1 04703000 CVTRSV05 EQU CVTFLGS1 04704000 CVTRSV04 EQU CVTFLGS1 04705000 CVTRSV03 EQU CVTFLGS1 04706000 CVTRSV02 EQU CVTFLGS1 04707000 CVTRSV01 EQU CVTFLGS1 04708000 CVTDMPLK EQU CVTFLGS1 04709000 CVTXITP EQU CVTMAP+68 04710000 CVTZDTAB EQU CVTMAP+64 04711000 CVTMSLT EQU CVTMAP+60 04712000 CVTDATE EQU CVTMAP+56 04713000 CVTBTERM EQU CVTMAP+52 04714000 CVTSYSAD EQU CVTMAP+48 04715000 CVTXTLER EQU CVTMAP+44 04716000 CVTILK2 EQU CVTMAP+40 04717000 CVTILK1 EQU CVTMAP+36 04718000 CVTPRLTV EQU CVTMAP+32 04719000 CVTPCNVT EQU CVTMAP+28 04720000 CVT0VL00 EQU CVTMAP+24 04721000 CVTXAPG EQU CVTMAP+20 04722000 CVTBUF EQU CVTMAP+16 04723000 CVTJOB EQU CVTMAP+12 04724000 CVTLINK EQU CVTMAP+8 04725000 CVT0EF00 EQU CVTMAP+4 04726000 CVTTCBP EQU CVTMAP 04727000 CVT EQU CVTMAP 04728000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04729000 @ENDDATA EQU * 04730000 END ISTINCU7,(C'PLS1706',0603,78110) 04731000