TITLE 'IKJEFF20 - SVC 100 FIB STAI ROUTINE *00001000 ' 00002000 IKJEFF20 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IKJEFF20 78.076' 0001 00008000 DROP @15 00009000 @PROLOG BALR @11,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@11 0001 00012000 * R3=R0; /* SAVE REG 0 @ZA20346*/ 00013000 LR R3,R0 0072 00014000 * SDWAPTR=R1; /* SAVE PTR TO STAI PARMS@ZA20346*/ 00015000 LR SDWAPTR,R1 0073 00016000 * R5=R2; /* SAVE CODE IF NO SDWA @ZA20346*/ 00017000 LR R5,R2 0074 00018000 * GEN; 0075 00019000 * /* GETMAIN WORKAREA FOR @ZA20346*/ 00020000 L 0,@SIZDATD /* THIS ESTAI EXIT. @ZA20346*/ 00021000 GETMAIN R,LV=(0) /* @ZA20346*/ 00022000 LR 10,1 /* ESTAB ADDRESSABILITY @ZA20346*/ 00023000 USING @DATD,10 /* TO WORKAREA @ZA20346*/ 00024000 * R2=R5; /* RESTORE CODE IF NOSDWA@ZA20346*/ 00025000 LR R2,R5 0076 00026000 * RFY 0077 00027000 * (R5) UNRSTD; /* REG 5 NO LONGER NEEDED@ZA20346*/ 00028000 * IF R3^=EC12 THEN 0078 00029000 C R3,@CF00043 0078 00030000 BE @RF00078 0078 00031000 * DO; /* IF GETMAIN RC GOOD @ZA20346*/ 00032000 * GEN(STM 14,12,12(13)); /* SAVE RTMS REGS @ZA20346*/ 00033000 STM 14,12,12(13) 00034000 * GEN(ST 13,SAVE1+4); /* SET PTR TO RTM SA @ZA20346*/ 00035000 ST 13,SAVE1+4 00036000 * GEN(LA 13,SAVE1); /* SET PTR TO ESTAE SA @ZA20346*/ 00037000 LA 13,SAVE1 00038000 * FIBCMPTR=SVCPLPTR; /* USE LOCAL PTR TO FIBCPARM */ 00039000 L @15,SDWAPARM(,SDWAPTR) 0083 00040000 L FIBCMPTR,SVCPLPTR(,@15) 0083 00041000 * ABNDCODE=SDWAABCC; /* PICK UP ABEND CODE FROM STAI 00042000 * PARMLIST */ 00043000 L @15,SDWAABCC(,SDWAPTR) 0084 00044000 ST @15,ABNDCODE 0084 00045000 * END; /* @ZA20346*/ 00046000 * ELSE /* @ZA20346*/ 00047000 * DO; /* GETMAIN RC BAD @ZA20346*/ 00048000 B @RC00078 0086 00049000 @RF00078 DS 0H 0087 00050000 * R13=ADDR(SAVE1); /* @ZA20346*/ 00051000 LA R13,SAVE1 0087 00052000 * RFY 0088 00053000 * SVCPLPTR BASED(R2); 0088 00054000 * FIBCMPTR=SVCPLPTR; /* USE LOCAL PTR TO FIBCPARM */ 00055000 L FIBCMPTR,SVCPLPTR(,R2) 0089 00056000 * ABNDCODE=R1; 0090 00057000 ST R1,ABNDCODE 0090 00058000 * RFY 0091 00059000 * R2 UNRSTD; 0091 00060000 * END; /* @ZA20346*/ 00061000 * 0092 00062000 * /*****************************************************************/ 00063000 * /* */ 00064000 * /* ISSUE ABEND MESSAGE, UNLESS ENTERED FOR ATTENTION OR FOR */ 00065000 * /* OUTPUT COMMAND */ 00066000 * /* */ 00067000 * /*****************************************************************/ 00068000 * 0093 00069000 *COMMON: /* MAINLINE CODE @ZA20346*/ 00070000 * SAVE14=R14; /* SAVE R14 FOR RETURN @ZA20346*/ 00071000 @RC00078 DS 0H 0093 00072000 COMMON ST R14,SAVE14 0093 00073000 * RFY 0094 00074000 * R14 UNRSTD; /* RELEASE REG 14 @ZA20346*/ 00075000 * IF ECTATRM=OFF& /* ABNORMAL TERMINATION BIT ON 0095 00076000 * (33E ABEND) MEANS DETACH WITH 00077000 * STAE=YES WAS ISSUED BEFORE 0095 00078000 * TASK TERMINATED NORMALLY. TMP 00079000 * ISSUES THIS DETACH IF USER HIT 00080000 * ATTENTION, THEN ENTERED 0095 00081000 * ANOTHER COMMAND - DON'T WANT 00082000 * ABEND MESSAGE */ 00083000 * FIBCID^=FIBOUTPT THEN /* CHECK FOR CALLER NOT OUTPUT */ 00084000 L @06,ECTPTR(,FIBCMPTR) 0095 00085000 TM ECTATRM(@06),B'00100000' 0095 00086000 BNZ @RF00095 0095 00087000 CLC FIBCID(2,FIBCMPTR),@CH00518 0095 00088000 BE @RF00095 0095 00089000 * DO; 0096 00090000 * GFPARMS=GFPARMS&&GFPARMS; /* ZERO PARAMETER LIST TO GENERAL 00091000 * FAILURE ROUTINE IKJEFF19 */ 00092000 XC GFPARMS(44),GFPARMS 0097 00093000 * GFRCODE=ABNDCODE; /* PASS THE ABEND CODE TO 0098 00094000 * IKJEFF19 FOR INSERTION IN 0098 00095000 * MESSAGE */ 00096000 L @06,ABNDCODE 0098 00097000 ST @06,GFRCODE 0098 00098000 * GFCALLID=GFABEND; /* WANT ABEND MESSAGE */ 00099000 MVC GFCALLID(2),@CH00034 0099 00100000 * GFCPPLP=ADDR(FIBCPPLC); /* CPPL ADDR NEEDED FOR PUTLINE */ 00101000 LA @06,FIBCPPLC(,FIBCMPTR) 0100 00102000 ST @06,GFCPPLP 0100 00103000 * IF R3^=EC12 THEN /* POINT TO STAI PARAMETER LIST 00104000 * (SDWA), IF PASSED ONE@ZA20346 */ 00105000 C R3,@CF00043 0101 00106000 BE @RF00101 0101 00107000 * GFCBPTR=SDWAPTR; 0102 00108000 ST SDWAPTR,GFCBPTR 0102 00109000 * GFPLPTR=ADDR(GFPARMS); /* STANDARD LINKAGE */ 00110000 @RF00101 LA @06,GFPARMS 0103 00111000 ST @06,GFPLPTR 0103 00112000 * GFPHIGH=ON; /* STANDARD LINKAGE */ 00113000 OI GFPHIGH,B'10000000' 0104 00114000 * R1=ADDR(GFPLPTR); /* STANDARD LINKAGE */ 00115000 LA R1,GFPLPTR 0105 00116000 * GEN(LINK EP=IKJEFF19); /* USE GENERAL FAIL ROUTINE */ 00117000 LINK EP=IKJEFF19 00118000 * END; 0107 00119000 * RFY 0108 00120000 * (R1) UNRSTD; 0108 00121000 * 0108 00122000 @RF00095 DS 0H 0109 00123000 * /*****************************************************************/ 00124000 * /* */ 00125000 * /* CHECK FOR SUBMIT COMMAND */ 00126000 * /* */ 00127000 * /*****************************************************************/ 00128000 * 0109 00129000 * IF FIBCID=FIBSUBMT THEN /* ONLY CLOSE INTRDR IF SUBMIT 0109 00130000 * COMMAND WAS ISSUED */ 00131000 CLC FIBCID(2,FIBCMPTR),@CH00514 0109 00132000 BNE @RF00109 0109 00133000 * DO; /* DO CLOSE CHECKING */ 00134000 * IF FIBCUSER^=ZEROADDR THEN /* IF SUBMIT HAS CREATED ITS 0111 00135000 * CONTROL TABLE */ 00136000 SLR @06,@06 0111 00137000 L @04,FIBCUSER(,FIBCMPTR) 0111 00138000 CR @04,@06 0111 00139000 BE @RF00111 0111 00140000 * DO; /* CHKCONTB */ 00141000 * CONLIST=FIBCUSER; /* USE LOCAL PTR TO CONTROL TABLE*/ 00142000 LR CONLIST,@04 0113 00143000 * IF CTACBPT^=ZEROADDR THEN/* IF THE INTRDR DATA SET IS 0114 00144000 * OPEN */ 00145000 C @06,CTACBPT(,CONLIST) 0114 00146000 BE @RF00114 0114 00147000 *DOCALL: /* LABEL FOR DO/END GROUP */ 00148000 * DO; 0115 00149000 * 0115 00150000 DOCALL DS 0H 0116 00151000 * /*****************************************************/ 00152000 * /* */ 00153000 * /* CLOSE SUBMIT'S INTERNAL READER DATA SET IF IT IS */ 00154000 * /* OPEN */ 00155000 * /* */ 00156000 * /*****************************************************/ 00157000 * 0116 00158000 * HTCODE=CLOSCODE; /* TELL IKJEFF15 TO CLOSE THE 0116 00159000 * INTRDR */ 00160000 L @01,HTPTR(,CONLIST) 0116 00161000 MVI HTCODE(@01),X'04' 0116 00162000 * MTKEY1SW=OFF; /* NOW IN KEY 0, NOT KEY 1 */ 00163000 L @01,MSGPTR(,CONLIST) 0117 00164000 NI MTKEY1SW(@01),B'11110111' 0117 00165000 * CALL IKJEFF15 /* GO TO SUBMIT OUTPUT INIT 0118 00166000 * MODULE */ 00167000 * (CONTAB); /* PARAM IS SUBMIT CONTROL TABLE */ 00168000 ST CONLIST,@AL00001 0118 00169000 L @15,CLOSERPT(,CONLIST) 0118 00170000 LA @01,@AL00001 0118 00171000 BALR @14,@15 0118 00172000 * END DOCALL; 0119 00173000 * END; /* END CODE TO CHECK SUBMIT'S 0120 00174000 * CONTROL TABLE */ 00175000 @RF00114 DS 0H 0121 00176000 * END; /* END CODE TO CHECK FOR CLOSE */ 00177000 @RF00111 DS 0H 0122 00178000 * IF R3^=EC12 THEN /* CHECK IF SDWA PROVIDED 0122 00179000 * @ZA20346*/ 00180000 @RF00109 C R3,@CF00043 0122 00181000 BE @RF00122 0122 00182000 * DO; /* IF YES, SETUP SDWA FOR RET 0123 00183000 * @ZA20346*/ 00184000 * DO; /* SETRP WKAREA(SDWAPTR)DUMP(NO)R 00185000 * C(SDWAPSTI) */ 00186000 * RESPECIFY 0125 00187000 * (GPR00P, 0125 00188000 * GPR01P, 0125 00189000 * GPR14P, 0125 00190000 * GPR15P) RSTD; 0125 00191000 * GPR01P=SDWAPTR; 0126 00192000 LR GPR01P,SDWAPTR 0126 00193000 * GPR01P->SDWARCDE=SDWAPSTI;/* SAVE RC VALUE */ 00194000 MVI SDWARCDE(GPR01P),X'10' 0127 00195000 * GPR01P->SDWAREQ='0'B; /* TURN OFF DUMP INDICATOR */ 00196000 NI SDWAREQ(GPR01P),B'01111111' 0128 00197000 * RESPECIFY 0129 00198000 * (GPR00P, 0129 00199000 * GPR01P, 0129 00200000 * GPR14P, 0129 00201000 * GPR15P) UNRSTD; 0129 00202000 * END; /* @ZA20346*/ 00203000 * GEN(L 13,SAVE1+4); /* RELOAD SAVEAREA CHAIN PTR 0131 00204000 * @ZA20346*/ 00205000 L 13,SAVE1+4 00206000 * END; /* @ZA20346*/ 00207000 * R14=SAVE14; /* RELOAD RETURN POINT IN R14 0133 00208000 * @ZA20346*/ 00209000 @RF00122 L R14,SAVE14 0133 00210000 * GEN; 0134 00211000 * /* FREEMAIN WORKAREA @ZA20346*/ 00212000 L 0,@SIZDATD /* SUBPOOL AND LENGTH @ZA20346*/ 00213000 LR 1,10 /* ADDRESS OF AREA @ZA20346*/ 00214000 FREEMAIN R,LV=(0),A=(1) /* @ZA20346*/ 00215000 * IF R3^=EC12 THEN /* CHECK IF SDWA PROVIDED 0135 00216000 * @ZA20346*/ 00217000 C R3,@CF00043 0135 00218000 BE @RF00135 0135 00219000 * GEN(RETURN (14,12)); /* IF YES, RESTORE REGS @ZA20346*/ 00220000 RETURN (14,12) 00221000 * ELSE 0137 00222000 * RETURN CODE(SDWAPSTI); /* INDICATE PREVENT FURTHER STAI 00223000 * PROCESSING */ 00224000 B @RC00135 0137 00225000 @RF00135 LA @15,16 0137 00226000 @EL00001 DS 0H 0137 00227000 @EF00001 DS 0H 0137 00228000 @ER00001 BR @14 0137 00229000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00230000 * GPR00P PTR(31) REG(0), 0138 00231000 * GPR01P PTR(31) REG(1), 0138 00232000 * GPR14P PTR(31) REG(14), 0138 00233000 * GPR15P PTR(31) REG(15); 0138 00234000 * DECLARE /* COMMON VARIABLES */ 00235000 * I256C CHAR(256) BASED, 0139 00236000 * I031F FIXED(31) BASED, 0139 00237000 * I031P PTR(31) BASED, 0139 00238000 * I015F FIXED(15) BASED, 0139 00239000 * I015P PTR(15) BASED, 0139 00240000 * I008P PTR(8) BASED, 0139 00241000 * I001C CHAR(1) BASED; /* DECLARES FOR MACRO EXPANS. 0139 00242000 * @ZA20346*/ 00243000 * END IKJEFF20 0140 00244000 * 0140 00245000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00246000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00247000 */*%INCLUDE SYSLIB (IKJECT ) */ 00248000 */*%INCLUDE SYSLIB (IKJEFFGF) */ 00249000 */*%INCLUDE SYSLIB (IKJEFFIB) */ 00250000 */*%INCLUDE SYSLIB (IKJEFFB2) */ 00251000 */*%INCLUDE SYSLIB (IKJEFFCT) */ 00252000 */*%INCLUDE SYSLIB (IKJEFFHT) */ 00253000 */*%INCLUDE SYSLIB (IKJEFFMT) */ 00254000 * 0140 00255000 * ; 0140 00256000 B @EL00001 0140 00257000 @DATA DS 0H 00258000 @CH00034 DC H'31' 00259000 @CH00514 DC XL2'0001' 00260000 @CH00518 DC XL2'0003' 00261000 @DATD DSECT 00262000 DS 0F 00263000 @AL00001 DS 1A 00264000 IKJEFF20 CSECT 00265000 DS 0F 00266000 @CF00043 DC F'12' 00267000 @DATD DSECT 00268000 DS 0D 00269000 ABNDCODE DS F 00270000 SAVE14 DS F 00271000 GFPLPTR DS AL4 00272000 ORG GFPLPTR 00273000 GFPHIGH DS BL1 00274000 ORG GFPLPTR+4 00275000 GFPARMS DS CL44 00276000 ORG GFPARMS 00277000 GFCBPTR DS AL4 00278000 GFRCODE DS FL4 00279000 GF02PTR DS AL4 00280000 GFCALLID DS FL2 00281000 GFBITS DS BL1 00282000 ORG GFBITS 00283000 GFKEYN08 DS BL1 00284000 GFSUBSYS EQU GFBITS+0 00285000 GFWTPSW EQU GFBITS+0 00286000 @NM00055 EQU GFBITS+0 00287000 ORG GFPARMS+15 00288000 @NM00056 DS AL1 00289000 GFCPPLP DS AL4 00290000 GFECBP DS AL4 00291000 GFDSNLEN DS FL2 00292000 GFPGMNL DS FL2 00293000 GFDSNP DS AL4 00294000 GFPGMNP DS AL4 00295000 @NM00057 DS AL4 00296000 @NM00058 DS AL4 00297000 ORG GFPARMS+44 00298000 SAVE1 DS 18F 00299000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00300000 @ENDDATD EQU * 00301000 IKJEFF20 CSECT 00302000 DS 0F 00303000 @SIZDATD DC AL1(1) 00304000 DC AL3(@ENDDATD-@DATD) 00305000 DS 0D 00306000 PATCH DS CL51 00307000 ORG PATCH 00308000 PTCHINIT DC 17CL3'ZAP' 00309000 ORG PATCH+51 00310000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00311000 @01 EQU 01 00312000 @02 EQU 02 00313000 @03 EQU 03 00314000 @04 EQU 04 00315000 @05 EQU 05 00316000 @06 EQU 06 00317000 @07 EQU 07 00318000 @08 EQU 08 00319000 @09 EQU 09 00320000 @10 EQU 10 00321000 @11 EQU 11 00322000 @12 EQU 12 00323000 @13 EQU 13 00324000 @14 EQU 14 00325000 @15 EQU 15 00326000 FIBCMPTR EQU @05 00327000 CONLIST EQU @02 00328000 R0 EQU @00 00329000 R1 EQU @01 00330000 R2 EQU @02 00331000 R3 EQU @03 00332000 R5 EQU @05 00333000 R10 EQU @10 00334000 R12 EQU @12 00335000 R13 EQU @13 00336000 R14 EQU @14 00337000 SDWAPTR EQU @07 00338000 GPR00P EQU @00 00339000 GPR01P EQU @01 00340000 GPR14P EQU @14 00341000 GPR15P EQU @15 00342000 SVCPLPTR EQU 0 00343000 IKJEFF15 EQU 0 00344000 SDWA EQU 0 00345000 SDWAPARM EQU SDWA 00346000 SDWAFIOB EQU SDWA+4 00347000 SDWAABCC EQU SDWAFIOB 00348000 SDWACMPF EQU SDWAABCC 00349000 SDWAREQ EQU SDWACMPF 00350000 SDWACTL1 EQU SDWA+8 00351000 SDWACMKA EQU SDWACTL1 00352000 SDWAMWPA EQU SDWACTL1+1 00353000 SDWAPMKA EQU SDWACTL1+4 00354000 SDWACTL2 EQU SDWA+16 00355000 SDWACMKP EQU SDWACTL2 00356000 SDWAMWPP EQU SDWACTL2+1 00357000 SDWAPMKP EQU SDWACTL2+4 00358000 SDWAGRSV EQU SDWA+24 00359000 SDWANAME EQU SDWA+88 00360000 SDWAEC1 EQU SDWA+104 00361000 SDWAEMK1 EQU SDWAEC1 00362000 SDWAMWP1 EQU SDWAEC1+1 00363000 SDWAINT1 EQU SDWAEC1+2 00364000 SDWANXT1 EQU SDWAEC1+4 00365000 SDWAAEC1 EQU SDWA+112 00366000 SDWAILC1 EQU SDWAAEC1+1 00367000 SDWAINC1 EQU SDWAAEC1+2 00368000 SDWAICD1 EQU SDWAINC1+1 00369000 SDWAEC2 EQU SDWA+120 00370000 SDWAEMK2 EQU SDWAEC2 00371000 SDWAMWP2 EQU SDWAEC2+1 00372000 SDWAINT2 EQU SDWAEC2+2 00373000 SDWANXT2 EQU SDWAEC2+4 00374000 SDWAAEC2 EQU SDWA+128 00375000 SDWAILC2 EQU SDWAAEC2+1 00376000 SDWAINC2 EQU SDWAAEC2+2 00377000 SDWAICD2 EQU SDWAINC2+1 00378000 SDWASRSV EQU SDWA+136 00379000 SDWAIDNT EQU SDWA+200 00380000 SDWAMCH EQU SDWA+204 00381000 SDWASTCK EQU SDWAMCH 00382000 SDWAMCHI EQU SDWAMCH+8 00383000 SDWAMCHS EQU SDWAMCHI 00384000 SDWAMCHD EQU SDWAMCHI+1 00385000 SDWARSR1 EQU SDWAMCH+12 00386000 SDWARSR2 EQU SDWAMCH+13 00387000 SDWAFLGS EQU SDWA+232 00388000 SDWAERRA EQU SDWAFLGS 00389000 SDWAERRB EQU SDWAFLGS+1 00390000 SDWAERRC EQU SDWAFLGS+2 00391000 SDWAERRD EQU SDWAFLGS+3 00392000 SDWAIOFS EQU SDWA+238 00393000 SDWACPUA EQU SDWA+248 00394000 SDWAPARQ EQU SDWA+252 00395000 SDWARCDE EQU SDWAPARQ 00396000 SDWAACF2 EQU SDWAPARQ+1 00397000 SDWAACF3 EQU SDWAPARQ+2 00398000 SDWAACF4 EQU SDWAPARQ+3 00399000 SDWALKWA EQU SDWA+256 00400000 SDWALKWS EQU SDWALKWA 00401000 SDWARECP EQU SDWA+292 00402000 SDWASNPA EQU SDWA+320 00403000 SDWADUMP EQU SDWASNPA 00404000 SDWADPFS EQU SDWADUMP+1 00405000 SDWADDAT EQU SDWASNPA+4 00406000 SDWASDAT EQU SDWADDAT 00407000 SDWAPDAT EQU SDWADDAT+2 00408000 SDWADPSA EQU SDWA+328 00409000 SDWADPSL EQU SDWADPSA 00410000 SDWARA EQU SDWA+400 00411000 SDWADPVA EQU SDWARA+2 00412000 ECT EQU 0 00413000 ECTSWS EQU ECT+28 00414000 ECTATRM EQU ECTSWS 00415000 ECTSWS2 EQU ECT+40 00416000 ECTSWS21 EQU ECTSWS2 00417000 FIBMAINP EQU 0 00418000 FIBPARMS EQU 0 00419000 FIBCPARM EQU 0 00420000 FIBCID EQU FIBCPARM+2 00421000 FIBCPPLC EQU FIBCPARM+12 00422000 FIBCPPLE EQU FIBCPARM+24 00423000 FIBFLAGS EQU FIBCPARM+36 00424000 FIBCUSER EQU FIBCPARM+40 00425000 CONTAB EQU 0 00426000 CLOSERPT EQU CONTAB+20 00427000 HISTPT EQU CONTAB+24 00428000 MSGLISPT EQU CONTAB+36 00429000 CTACBPT EQU CONTAB+72 00430000 HISTORY EQU 0 00431000 WHATMOD EQU HISTORY+12 00432000 JCLSWITS EQU HISTORY+16 00433000 PRIORJCL EQU JCLSWITS 00434000 PVERB EQU PRIORJCL 00435000 PDTYPE EQU PRIORJCL+2 00436000 PMISC EQU PRIORJCL+3 00437000 CURRJCL EQU JCLSWITS+4 00438000 CVERB EQU CURRJCL 00439000 CDTYPE EQU CURRJCL+2 00440000 CMISC EQU CURRJCL+3 00441000 STATICSW EQU HISTORY+24 00442000 GENL EQU STATICSW 00443000 TAKEXITS EQU STATICSW+1 00444000 CODEFLD EQU STATICSW+3 00445000 HTCODE EQU CODEFLD 00446000 DLMONJCL EQU HISTORY+32 00447000 HTSWITCH EQU HISTORY+34 00448000 HTACCNTP EQU HISTORY+40 00449000 MSGTABLE EQU 0 00450000 TMCTPTR EQU MSGTABLE+4 00451000 ECBPTR EQU MSGTABLE+8 00452000 @NM00074 EQU MSGTABLE+12 00453000 SW EQU MSGTABLE+20 00454000 MTKEY1SW EQU SW 00455000 RETMSG EQU MSGTABLE+21 00456000 SW2 EQU MSGTABLE+24 00457000 MTINSRTS EQU MSGTABLE+44 00458000 L1 EQU MTINSRTS 00459000 L2 EQU MTINSRTS+4 00460000 L3 EQU MTINSRTS+8 00461000 L4 EQU MTINSRTS+12 00462000 RET EQU 0 00463000 HTACCNTI EQU 0 00464000 I001C EQU 0 00465000 I008P EQU 0 00466000 I015F EQU 0 00467000 I015P EQU 0 00468000 I031F EQU 0 00469000 I031P EQU 0 00470000 I256C EQU 0 00471000 MSGECB EQU 0 00472000 MSGTMCT EQU 0 00473000 FIBPTR EQU HISTPT 00474000 HTPTR EQU HISTPT 00475000 MSGPTR EQU MSGLISPT 00476000 ECTPTR EQU FIBCPPLE 00477000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00478000 RETCHAR EQU RET+2 00479000 RETSIZE EQU RET 00480000 MSGRTN EQU MSGTABLE+60 00481000 VAR4 EQU MTINSRTS+13 00482000 HIGHL4 EQU L4 00483000 VAR3 EQU MTINSRTS+9 00484000 HIGHL3 EQU L3 00485000 VAR2 EQU MTINSRTS+5 00486000 HIGHL2 EQU L2 00487000 VAR1 EQU MTINSRTS+1 00488000 HIGHL1 EQU L1 00489000 MSGID EQU MSGTABLE+40 00490000 @NM00078 EQU MSGTABLE+36 00491000 @NM00077 EQU MSGTABLE+32 00492000 MTOLDPTR EQU MSGTABLE+28 00493000 @NM00076 EQU MSGTABLE+25 00494000 @NM00075 EQU SW2 00495000 MTPGMSW EQU SW2 00496000 MTNPLMSW EQU SW2 00497000 MTNOXQSW EQU SW2 00498000 MTDOMSW EQU SW2 00499000 MT2OLDSW EQU SW2 00500000 MTNHEXSW EQU SW 00501000 MTWTPSW EQU SW 00502000 MTJOBISW EQU SW 00503000 MTHEXSW EQU SW 00504000 MTWTOSW EQU SW 00505000 MTPUTLSW EQU SW 00506000 MTNOIDSW EQU SW 00507000 MSGCSECT EQU MSGTABLE+16 00508000 MTHIGH EQU @NM00074 00509000 MTCPPL EQU TMCTPTR 00510000 LISTPTR EQU MSGTABLE 00511000 @NM00073 EQU HISTORY+50 00512000 HTACNTC2 EQU HISTORY+48 00513000 HTACNTC1 EQU HISTORY+46 00514000 HTACCNTL EQU HISTORY+44 00515000 @NM00072 EQU HISTORY+36 00516000 @NM00071 EQU HISTORY+35 00517000 @NM00070 EQU HTSWITCH 00518000 HTDLMSW EQU HTSWITCH 00519000 HTDLM EQU DLMONJCL 00520000 @NM00069 EQU HISTORY+28 00521000 OPOFF EQU STATICSW+2 00522000 @NM00068 EQU TAKEXITS 00523000 COMNTX EQU TAKEXITS 00524000 JESX EQU TAKEXITS 00525000 NULLX EQU TAKEXITS 00526000 CMDX EQU TAKEXITS 00527000 DDX EQU TAKEXITS 00528000 EXECX EQU TAKEXITS 00529000 JOBX EQU TAKEXITS 00530000 NONOTIFY EQU GENL 00531000 FIRST EQU GENL 00532000 FLUSH EQU GENL 00533000 QUIT EQU GENL 00534000 CDLMFND EQU CMISC 00535000 CNOTHING EQU CMISC 00536000 CCOMCON EQU CMISC 00537000 CVERBCOP EQU CMISC 00538000 CNAME EQU CMISC 00539000 CCONERR EQU CMISC 00540000 COPCONEX EQU CMISC 00541000 CCONEX EQU CMISC 00542000 CDDDATA EQU CDTYPE 00543000 CDDAST EQU CDTYPE 00544000 @NM00067 EQU CVERB+1 00545000 @NM00066 EQU CVERB+1 00546000 CJES EQU CVERB+1 00547000 CCOMMENT EQU CVERB 00548000 CCOMMAND EQU CVERB 00549000 CDD EQU CVERB 00550000 CEXEC EQU CVERB 00551000 CJOB EQU CVERB 00552000 CNULL EQU CVERB 00553000 CDATA EQU CVERB 00554000 CDELIM EQU CVERB 00555000 PDLMFND EQU PMISC 00556000 PNOTHING EQU PMISC 00557000 PCOMCON EQU PMISC 00558000 PVERBCOP EQU PMISC 00559000 PNAME EQU PMISC 00560000 PCONERR EQU PMISC 00561000 POPCONEX EQU PMISC 00562000 PCONEX EQU PMISC 00563000 PDDDATA EQU PDTYPE 00564000 PDDAST EQU PDTYPE 00565000 @NM00065 EQU PVERB+1 00566000 @NM00064 EQU PVERB+1 00567000 PJES EQU PVERB+1 00568000 PCOMMENT EQU PVERB 00569000 PCOMMAND EQU PVERB 00570000 PDD EQU PVERB 00571000 PEXEC EQU PVERB 00572000 PJOB EQU PVERB 00573000 PNULL EQU PVERB 00574000 PDATA EQU PVERB 00575000 PDELIM EQU PVERB 00576000 INOINIT EQU WHATMOD+3 00577000 INCOMPIN EQU WHATMOD+3 00578000 INMSG EQU WHATMOD+3 00579000 INDAIRIN EQU WHATMOD+3 00580000 INWRMGR EQU WHATMOD+3 00581000 INEXIT EQU WHATMOD+3 00582000 INIDENT EQU WHATMOD+3 00583000 INREAD EQU WHATMOD+3 00584000 INGEN EQU WHATMOD+2 00585000 INPROMPT EQU WHATMOD+1 00586000 INCONTRL EQU WHATMOD 00587000 SUBTAB EQU HISTORY 00588000 CTIDLN EQU CONTAB+84 00589000 CTCMDNM EQU CONTAB+76 00590000 CTRPLPT EQU CONTAB+68 00591000 INITSAVE EQU CONTAB+64 00592000 COMECBPT EQU CONTAB+60 00593000 DDPTR EQU CONTAB+56 00594000 EXITAD EQU CONTAB+52 00595000 EXWORD EQU CONTAB+48 00596000 TMCTPT EQU CONTAB+44 00597000 USERIDPT EQU CONTAB+40 00598000 JOBNAMPT EQU CONTAB+32 00599000 CTNDSNPT EQU CONTAB+28 00600000 STMTPT EQU CONTAB+16 00601000 CONTABPT EQU CONTAB+12 00602000 TABID EQU CONTAB 00603000 FIBCMDBF EQU FIBCPARM+52 00604000 @NM00063 EQU FIBCPARM+48 00605000 @NM00062 EQU FIBCPARM+44 00606000 @NM00061 EQU FIBCPARM+38 00607000 FIBECTNO EQU FIBFLAGS 00608000 FIBECTCN EQU FIBCPARM+28 00609000 FIBCPPLP EQU FIBCPARM+20 00610000 FIBCPPLU EQU FIBCPARM+16 00611000 FIBPSCBL EQU FIBCPARM+11 00612000 FIBPSCBU EQU FIBCPARM+4 00613000 FIBCLEN EQU FIBCPARM 00614000 @NM00060 EQU FIBPARMS+28 00615000 @NM00059 EQU FIBPARMS+24 00616000 FIBLEN EQU FIBPARMS+22 00617000 FIBID EQU FIBPARMS+20 00618000 FIBMACRO EQU FIBPARMS+12 00619000 FIBCODE EQU FIBPARMS+8 00620000 FIBUSER EQU FIBPARMS+4 00621000 FIBCPPL EQU FIBPARMS 00622000 FIBHIGH EQU FIBMAINP 00623000 @NM00054 EQU ECT+52 00624000 @NM00053 EQU ECT+48 00625000 @NM00052 EQU ECT+44 00626000 @NM00051 EQU ECTSWS2+1 00627000 @NM00050 EQU ECTSWS21 00628000 ECTTABND EQU ECTSWS21 00629000 ECTDEFCS EQU ECTSWS21 00630000 ECTBKPB EQU ECT+36 00631000 ECTUSER EQU ECT+32 00632000 ECTDDNUM EQU ECT+29 00633000 ECTATTN EQU ECTSWS 00634000 ECTBKGRD EQU ECTSWS 00635000 ECTNNOT EQU ECTSWS 00636000 ECTNMAL EQU ECTSWS 00637000 ECTLOGF EQU ECTSWS 00638000 @NM00049 EQU ECTSWS 00639000 ECTNOPD EQU ECTSWS 00640000 ECTSCMD EQU ECT+20 00641000 ECTPCMD EQU ECT+12 00642000 ECTSMSG EQU ECT+9 00643000 ECTMSGF EQU ECT+8 00644000 ECTIOWA EQU ECT+4 00645000 ECTRTCD EQU ECT+1 00646000 ECTRCDF EQU ECT 00647000 @NM00048 EQU SDWA+512 00648000 SDWAVRA EQU SDWARA+4 00649000 SDWAURAL EQU SDWARA+3 00650000 @NM00047 EQU SDWADPVA 00651000 SDWAEBC EQU SDWADPVA 00652000 SDWAHEX EQU SDWADPVA 00653000 SDWAVRAL EQU SDWARA 00654000 @NM00046 EQU SDWA+396 00655000 SDWACOMP EQU SDWA+392 00656000 SDWARCPL EQU SDWA+364 00657000 @NM00045 EQU SDWADPSA+32 00658000 SDWATO4 EQU SDWADPSL+28 00659000 SDWAFRM4 EQU SDWADPSL+24 00660000 SDWATO3 EQU SDWADPSL+20 00661000 SDWAFRM3 EQU SDWADPSL+16 00662000 SDWATO2 EQU SDWADPSL+12 00663000 SDWAFRM2 EQU SDWADPSL+8 00664000 SDWATO1 EQU SDWADPSL+4 00665000 SDWAFRM1 EQU SDWADPSL 00666000 @NM00044 EQU SDWADDAT+3 00667000 @NM00043 EQU SDWAPDAT 00668000 SDWAUSPL EQU SDWAPDAT 00669000 SDWADPSW EQU SDWAPDAT 00670000 SDWATJPA EQU SDWAPDAT 00671000 SDWATLPA EQU SDWAPDAT 00672000 SDWADREG EQU SDWAPDAT 00673000 SDWADSAH EQU SDWAPDAT 00674000 SDWADSAS EQU SDWAPDAT 00675000 @NM00042 EQU SDWADDAT+1 00676000 @NM00041 EQU SDWASDAT 00677000 SDWAQQS EQU SDWASDAT 00678000 SDWACBS EQU SDWASDAT 00679000 SDWAGTF EQU SDWASDAT 00680000 SDWASWA EQU SDWASDAT 00681000 SDWALSQA EQU SDWASDAT 00682000 SDWASQA EQU SDWASDAT 00683000 SDWANUC EQU SDWASDAT 00684000 @NM00040 EQU SDWADUMP+2 00685000 @NM00039 EQU SDWADPFS 00686000 SDWASLST EQU SDWADPFS 00687000 @NM00038 EQU SDWADPFS 00688000 SDWADLST EQU SDWADPFS 00689000 SDWADPT EQU SDWADPFS 00690000 SDWADPID EQU SDWADUMP 00691000 SDWADPLA EQU SDWA+316 00692000 SDWAREXN EQU SDWARECP+16 00693000 SDWACSCT EQU SDWARECP+8 00694000 SDWAMODN EQU SDWARECP 00695000 @NM00037 EQU SDWALKWA+32 00696000 SDWATALW EQU SDWALKWS+28 00697000 SDWATDLW EQU SDWALKWS+24 00698000 SDWATNLW EQU SDWALKWS+20 00699000 SDWAAPLW EQU SDWALKWS+16 00700000 SDWAIPLW EQU SDWALKWS+12 00701000 SDWAILLW EQU SDWALKWS+8 00702000 SDWAIULW EQU SDWALKWS+4 00703000 SDWAICLW EQU SDWALKWS 00704000 SDWAFLLK EQU SDWAACF4 00705000 SDWACMS EQU SDWAACF4 00706000 SDWAOPTM EQU SDWAACF4 00707000 SDWATADB EQU SDWAACF4 00708000 SDWATDNB EQU SDWAACF4 00709000 SDWATNCB EQU SDWAACF4 00710000 SDWAILCH EQU SDWAACF4 00711000 SDWAIUCB EQU SDWAACF4 00712000 SDWAICAT EQU SDWAACF3 00713000 SDWAIPRG EQU SDWAACF3 00714000 SDWASALL EQU SDWAACF3 00715000 SDWAASMP EQU SDWAACF3 00716000 SDWADISP EQU SDWAACF3 00717000 @NM00036 EQU SDWAACF3 00718000 @NM00035 EQU SDWAACF2 00719000 SDWAFREE EQU SDWAACF2 00720000 SDWAUPRG EQU SDWAACF2 00721000 @NM00034 EQU SDWAACF2 00722000 SDWASPIN EQU SDWAACF2 00723000 @NM00033 EQU SDWAACF2 00724000 SDWARCRD EQU SDWAACF2 00725000 SDWALCPU EQU SDWACPUA+2 00726000 @NM00032 EQU SDWACPUA 00727000 SDWARECA EQU SDWA+244 00728000 SDWARTYA EQU SDWA+240 00729000 @NM00031 EQU SDWA+239 00730000 @NM00030 EQU SDWAIOFS 00731000 SDWANIOP EQU SDWAIOFS 00732000 SDWANOIO EQU SDWAIOFS 00733000 SDWAIOHT EQU SDWAIOFS 00734000 SDWAIOQR EQU SDWAIOFS 00735000 SDWAFMID EQU SDWA+236 00736000 @NM00029 EQU SDWAERRD 00737000 SDWAMCIV EQU SDWAERRD 00738000 SDWARPIV EQU SDWAERRD 00739000 SDWAMABD EQU SDWAERRD 00740000 SDWACTS EQU SDWAERRD 00741000 SDWASTAE EQU SDWAERRD 00742000 SDWANRBE EQU SDWAERRD 00743000 SDWACLUP EQU SDWAERRD 00744000 @NM00028 EQU SDWAERRC 00745000 SDWAEAS EQU SDWAERRC 00746000 SDWAPERC EQU SDWAERRC 00747000 SDWAIRB EQU SDWAERRC 00748000 SDWASTAI EQU SDWAERRC 00749000 SDWASTAF EQU SDWAERRC 00750000 SDWASRBM EQU SDWAERRB 00751000 SDWALDIS EQU SDWAERRB 00752000 SDWAENRB EQU SDWAERRB 00753000 SDWATYP1 EQU SDWAERRB 00754000 @NM00027 EQU SDWAERRB 00755000 SDWAPGIO EQU SDWAERRA 00756000 SDWATEXC EQU SDWAERRA 00757000 SDWASVCE EQU SDWAERRA 00758000 SDWAABTM EQU SDWAERRA 00759000 SDWASVCD EQU SDWAERRA 00760000 SDWARKEY EQU SDWAERRA 00761000 SDWAPCHK EQU SDWAERRA 00762000 SDWAMCHK EQU SDWAERRA 00763000 SDWATIME EQU SDWAMCH+20 00764000 SDWARFSA EQU SDWAMCH+16 00765000 @NM00026 EQU SDWAMCH+14 00766000 SDWAVEQR EQU SDWARSR2 00767000 SDWAPGFX EQU SDWARSR2 00768000 SDWAFLSQ EQU SDWARSR2 00769000 SDWAFSQA EQU SDWARSR2 00770000 SDWANUCL EQU SDWARSR2 00771000 SDWASPER EQU SDWARSR2 00772000 SDWAINTC EQU SDWARSR2 00773000 SDWAOFLN EQU SDWARSR2 00774000 SDWACHNG EQU SDWARSR1 00775000 SDWAMSER EQU SDWARSR1 00776000 @NM00025 EQU SDWARSR1 00777000 SDWACPID EQU SDWAMCH+10 00778000 SDWATERR EQU SDWAMCHD 00779000 SDWAFPRX EQU SDWAMCHD 00780000 SDWAINSF EQU SDWAMCHD 00781000 SDWAACR EQU SDWAMCHD 00782000 SDWASCK EQU SDWAMCHD 00783000 SDWAPSWU EQU SDWAMCHD 00784000 SDWAREGU EQU SDWAMCHD 00785000 SDWASKYF EQU SDWAMCHD 00786000 @NM00024 EQU SDWAMCHS 00787000 SDWARSRF EQU SDWAMCHS 00788000 SDWARSRC EQU SDWAMCHS 00789000 SDWAINVP EQU SDWAMCHS 00790000 SDWATSVL EQU SDWAMCHS 00791000 SDWARCDF EQU SDWAMCHS 00792000 SDWASRVL EQU SDWAMCHS 00793000 SDWASCKE EQU SDWASTCK+4 00794000 SDWASCKB EQU SDWASTCK 00795000 SDWALNTH EQU SDWAIDNT+1 00796000 SDWASPID EQU SDWAIDNT 00797000 SDWASR15 EQU SDWASRSV+60 00798000 SDWASR14 EQU SDWASRSV+56 00799000 SDWASR13 EQU SDWASRSV+52 00800000 SDWASR12 EQU SDWASRSV+48 00801000 SDWASR11 EQU SDWASRSV+44 00802000 SDWASR10 EQU SDWASRSV+40 00803000 SDWASR09 EQU SDWASRSV+36 00804000 SDWASR08 EQU SDWASRSV+32 00805000 SDWASR07 EQU SDWASRSV+28 00806000 SDWASR06 EQU SDWASRSV+24 00807000 SDWASR05 EQU SDWASRSV+20 00808000 SDWASR04 EQU SDWASRSV+16 00809000 SDWASR03 EQU SDWASRSV+12 00810000 SDWASR02 EQU SDWASRSV+8 00811000 SDWASR01 EQU SDWASRSV+4 00812000 SDWASR00 EQU SDWASRSV 00813000 SDWATRN2 EQU SDWAAEC2+4 00814000 SDWAIPC2 EQU SDWAICD2 00815000 SDWAIMC2 EQU SDWAICD2 00816000 SDWAIPR2 EQU SDWAICD2 00817000 @NM00023 EQU SDWAINC2 00818000 @NM00022 EQU SDWAILC2 00819000 SDWAIL2 EQU SDWAILC2 00820000 @NM00021 EQU SDWAILC2 00821000 @NM00020 EQU SDWAAEC2 00822000 SDWAADD2 EQU SDWANXT2+1 00823000 @NM00019 EQU SDWANXT2 00824000 @NM00018 EQU SDWAEC2+3 00825000 SDWASGN2 EQU SDWAINT2 00826000 SDWAEXP2 EQU SDWAINT2 00827000 SDWADEC2 EQU SDWAINT2 00828000 SDWAFPO2 EQU SDWAINT2 00829000 SDWACC2 EQU SDWAINT2 00830000 @NM00017 EQU SDWAINT2 00831000 SDWAPGM2 EQU SDWAMWP2 00832000 SDWAWAT2 EQU SDWAMWP2 00833000 SDWAMCK2 EQU SDWAMWP2 00834000 SDWAECT2 EQU SDWAMWP2 00835000 SDWAKEY2 EQU SDWAMWP2 00836000 SDWAEXT2 EQU SDWAEMK2 00837000 SDWAIO2 EQU SDWAEMK2 00838000 SDWATRM2 EQU SDWAEMK2 00839000 @NM00016 EQU SDWAEMK2 00840000 SDWAPER2 EQU SDWAEMK2 00841000 @NM00015 EQU SDWAEMK2 00842000 SDWATRAN EQU SDWAAEC1+4 00843000 SDWAIPC1 EQU SDWAICD1 00844000 SDWAIMC1 EQU SDWAICD1 00845000 SDWAIPR1 EQU SDWAICD1 00846000 @NM00014 EQU SDWAINC1 00847000 @NM00013 EQU SDWAILC1 00848000 SDWAIL1 EQU SDWAILC1 00849000 @NM00012 EQU SDWAILC1 00850000 @NM00011 EQU SDWAAEC1 00851000 SDWAADD1 EQU SDWANXT1+1 00852000 @NM00010 EQU SDWANXT1 00853000 @NM00009 EQU SDWAEC1+3 00854000 SDWASGN1 EQU SDWAINT1 00855000 SDWAEXP1 EQU SDWAINT1 00856000 SDWADEC1 EQU SDWAINT1 00857000 SDWAFPO1 EQU SDWAINT1 00858000 SDWACC1 EQU SDWAINT1 00859000 @NM00008 EQU SDWAINT1 00860000 SDWAPGM1 EQU SDWAMWP1 00861000 SDWAWAT1 EQU SDWAMWP1 00862000 SDWAMCK1 EQU SDWAMWP1 00863000 SDWAECT1 EQU SDWAMWP1 00864000 SDWAKEY1 EQU SDWAMWP1 00865000 SDWAEXT1 EQU SDWAEMK1 00866000 SDWAIO1 EQU SDWAEMK1 00867000 SDWATRM1 EQU SDWAEMK1 00868000 @NM00007 EQU SDWAEMK1 00869000 SDWAPER1 EQU SDWAEMK1 00870000 @NM00006 EQU SDWAEMK1 00871000 SDWAIOBR EQU SDWA+100 00872000 SDWAEPA EQU SDWA+96 00873000 @NM00005 EQU SDWANAME+4 00874000 SDWARBAD EQU SDWANAME 00875000 SDWAGR15 EQU SDWAGRSV+60 00876000 SDWAGR14 EQU SDWAGRSV+56 00877000 SDWAGR13 EQU SDWAGRSV+52 00878000 SDWAGR12 EQU SDWAGRSV+48 00879000 SDWAGR11 EQU SDWAGRSV+44 00880000 SDWAGR10 EQU SDWAGRSV+40 00881000 SDWAGR09 EQU SDWAGRSV+36 00882000 SDWAGR08 EQU SDWAGRSV+32 00883000 SDWAGR07 EQU SDWAGRSV+28 00884000 SDWAGR06 EQU SDWAGRSV+24 00885000 SDWAGR05 EQU SDWAGRSV+20 00886000 SDWAGR04 EQU SDWAGRSV+16 00887000 SDWAGR03 EQU SDWAGRSV+12 00888000 SDWAGR02 EQU SDWAGRSV+8 00889000 SDWAGR01 EQU SDWAGRSV+4 00890000 SDWAGR00 EQU SDWAGRSV 00891000 SDWANXTP EQU SDWACTL2+5 00892000 SDWASGP EQU SDWAPMKP 00893000 SDWAEUP EQU SDWAPMKP 00894000 SDWADOP EQU SDWAPMKP 00895000 SDWAFPP EQU SDWAPMKP 00896000 SDWACCP EQU SDWAPMKP 00897000 SDWAILP EQU SDWAPMKP 00898000 SDWAINTP EQU SDWACTL2+2 00899000 SDWASPVP EQU SDWAMWPP 00900000 SDWAWATP EQU SDWAMWPP 00901000 SDWAMCKP EQU SDWAMWPP 00902000 @NM00004 EQU SDWAMWPP 00903000 SDWAKEYP EQU SDWAMWPP 00904000 SDWAEXTP EQU SDWACMKP 00905000 SDWAIOP EQU SDWACMKP 00906000 SDWANXTA EQU SDWACTL1+5 00907000 SDWASGA EQU SDWAPMKA 00908000 SDWAEUA EQU SDWAPMKA 00909000 SDWADOA EQU SDWAPMKA 00910000 SDWAFPA EQU SDWAPMKA 00911000 SDWACCA EQU SDWAPMKA 00912000 SDWAILA EQU SDWAPMKA 00913000 SDWAINTA EQU SDWACTL1+2 00914000 SDWASPVA EQU SDWAMWPA 00915000 SDWAWATA EQU SDWAMWPA 00916000 SDWAMCKA EQU SDWAMWPA 00917000 @NM00003 EQU SDWAMWPA 00918000 SDWAKEYA EQU SDWAMWPA 00919000 SDWAEXTA EQU SDWACMKA 00920000 SDWAIOA EQU SDWACMKA 00921000 SDWACMPC EQU SDWAABCC+1 00922000 @NM00002 EQU SDWACMPF 00923000 SDWASTCC EQU SDWACMPF 00924000 @NM00001 EQU SDWACMPF 00925000 SDWASTEP EQU SDWACMPF 00926000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00927000 @RC00135 EQU @EL00001 00928000 @ENDDATA EQU * 00929000 END IKJEFF20,(C'PLS2120',0701,78076) 00930000