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