VSER TITLE 'BLSUVSER--ERASE A RECORD FROM A VSAM CLUSTER *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPLK */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSUVSER CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSUVSER 78.060' 0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 0002 00013000 BALR @12,0 0002 00014000 @PSTART DS 0H 0002 00015000 USING @PSTART,@12 0002 00016000 L @00,@SIZDATD 0002 00017000 BLSUALLS R,LV=(0) 00018000 LR @11,@01 0002 00019000 USING @DATD,@11 0002 00020000 ST @13,@SA00001+4 0002 00021000 LM @00,@01,20(@13) 0002 00022000 ST @11,8(,@13) 0002 00023000 LR @13,@11 0002 00024000 MVC @PC00001(8),0(@01) 0002 00025000 * RA=ADDR(RPL); /* ->RPL */ 00026000 L RA,@PC00001+4 0144 00027000 * GENERATE CODE(ERASE RPL=(RA)); 0145 00028000 ERASE RPL=(RA) 00029000 * IF RF=0 THEN 0146 00030000 LTR RF,RF 0146 00031000 BZ @RT00146 0146 00032000 * GO TO EXIT; /* COMMON EXIT PATH */ 00033000 * GFPARMS=GFPARMS&&GFPARMS; 0148 00034000 XC GFPARMS(44),GFPARMS 0148 00035000 * GFCPPLP=ADDR(CPPL); /* ->CPPL */ 00036000 LA @14,CPPL(,R9) 0149 00037000 ST @14,GFCPPLP 0149 00038000 * GFCBPTR=RA; /* POINT TO THE FAILING RPL */ 00039000 ST RA,GFCBPTR 0150 00040000 * GFRCODE=RF; /* RETURN CODE */ 00041000 ST RF,GFRCODE 0151 00042000 * GFCALLID=GFERASE; /* FAILING MACROS WAS ERASE */ 00043000 MVC GFCALLID(2),@CH00045 0152 00044000 * CALL IKJEFF19(GFPARMS); /* DIAGNOSE THE ERROR */ 00045000 LA @14,GFPARMS 0153 00046000 ST @14,@AL00001 0153 00047000 L @15,ZZ2FF19P(,R9) 0153 00048000 LA @01,@AL00001 0153 00049000 BALR @14,@15 0153 00050000 * RF=MAX(RF,GFRCODE); /* RETURN CODE */ 00051000 L @14,GFRCODE 0154 00052000 CR RF,@14 0154 00053000 BNL *+6 00054000 LR RF,@14 0154 00055000 *EXIT: /* COMMON EXIT PATH */ 00056000 * RETURN CODE(RF); 0155 00057000 * 0155 00058000 EXIT LR @08,@15 0155 00059000 L @13,4(,@13) 0155 00060000 L @00,@SIZDATD 0155 00061000 LR @01,@11 0155 00062000 BLSUFRES R,LV=(0),A=(1) 00063000 LR @15,@08 0155 00064000 L @14,12(,@13) 0155 00065000 LM @00,@12,20(@13) 0155 00066000 BR @14 0155 00067000 */*BLSUPEND--MVS IPCS MODULE */ 00068000 * 0156 00069000 * DECLARE /* COMMON VARIABLES */ 00070000 * I256C CHAR(256) BASED, 0156 00071000 * I031F FIXED(31) BASED, 0156 00072000 * I031P PTR(31) BASED, 0156 00073000 * I015F FIXED(15) BASED, 0156 00074000 * I015P PTR(15) BASED, 0156 00075000 * I008P PTR(8) BASED, 0156 00076000 * I001C CHAR(1) BASED; 0156 00077000 * GENERATE NODEFS NOREFS DATA; 0157 00078000 * END BLSUVSER /* BLRPEND(BLSUVSER) */ 00079000 * 0158 00080000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00081000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00082000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00083000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00084000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00085000 */*%INCLUDE SYSLIB (IKJECT ) */ 00086000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00087000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00088000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00089000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00090000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00091000 */*%INCLUDE SYSLIB (IFGRPL ) */ 00092000 */*%INCLUDE SYSLIB (IKJEFFGF) */ 00093000 * 0158 00094000 * ; 0158 00095000 @EL00001 L @13,4(,@13) 0158 00096000 @EF00001 L @00,@SIZDATD 0158 00097000 LR @01,@11 0158 00098000 BLSUFRES R,LV=(0),A=(1) 00099000 @ER00001 LM @14,@12,12(@13) 0158 00100000 BR @14 0158 00101000 @DATA DS 0H 00102000 @CH00045 DC H'4' 00103000 @DATD DSECT 00104000 DS 0F 00105000 @SA00001 DS 18F 00106000 @PC00001 DS 2F 00107000 @AL00001 DS 1A 00108000 BLSUVSER CSECT 00109000 DS 0F 00110000 @DATD DSECT 00111000 DS 0D 00112000 GFPARMS DS CL44 00113000 ORG GFPARMS 00114000 GFCBPTR DS AL4 00115000 GFRCODE DS FL4 00116000 GF02PTR DS AL4 00117000 GFCALLID DS FL2 00118000 GFBITS DS BL1 00119000 ORG GFBITS 00120000 GFKEYN08 DS BL1 00121000 GFSUBSYS EQU GFBITS+0 00122000 GFWTPSW EQU GFBITS+0 00123000 @NM00073 EQU GFBITS+0 00124000 ORG GFPARMS+15 00125000 @NM00074 DS AL1 00126000 GFCPPLP DS AL4 00127000 GFECBP DS AL4 00128000 GFDSNLEN DS FL2 00129000 GFPGMNL DS FL2 00130000 GFDSNP DS AL4 00131000 GFPGMNP DS AL4 00132000 @NM00075 DS AL4 00133000 @NM00076 DS AL4 00134000 ORG GFPARMS+44 00135000 BLSUVSER CSECT 00136000 DS 0F 00137000 @SIZDATD DC AL1(0) 00138000 DC AL3(@ENDDATD-@DATD) 00139000 DS 0D 00140000 @DATD DSECT 00141000 SPACE 2 00142000 *********************************************************************** 00143000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00144000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00145000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00146000 *********************************************************************** 00147000 SPACE 00148000 BLSUVSER CSECT 00149000 ORG 00150000 DS 0D 00151000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSUVSER+19)/20+7)/8)CL8'BLSUVSER' 00152000 @DATD DSECT 00153000 DS 0H 00154000 @DATD DSECT 00155000 SPACE 2 00156000 *********************************************************************** 00157000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00158000 *********************************************************************** 00159000 SPACE 00160000 DS 0D 00161000 @DATD DSECT 00162000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00163000 @ENDDATD EQU * 00164000 BLSUVSER CSECT 00165000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00166000 @01 EQU 01 00167000 @02 EQU 02 00168000 @03 EQU 03 00169000 @04 EQU 04 00170000 @05 EQU 05 00171000 @06 EQU 06 00172000 @07 EQU 07 00173000 @08 EQU 08 00174000 @09 EQU 09 00175000 @10 EQU 10 00176000 @11 EQU 11 00177000 @12 EQU 12 00178000 @13 EQU 13 00179000 @14 EQU 14 00180000 @15 EQU 15 00181000 R9 EQU @09 00182000 R0 EQU @00 00183000 R1 EQU @01 00184000 R2 EQU @02 00185000 R3 EQU @03 00186000 R4 EQU @04 00187000 R5 EQU @05 00188000 RA EQU @10 00189000 RB EQU @11 00190000 RD EQU @13 00191000 RE EQU @14 00192000 RF EQU @15 00193000 RC EQU @12 00194000 R6 EQU @06 00195000 R7 EQU @07 00196000 R8 EQU @08 00197000 ZZ1 EQU 0 00198000 ZZ1ATTN EQU ZZ1+360 00199000 ZZ1EVE EQU ZZ1ATTN+4 00200000 ZZ1F EQU ZZ1+368 00201000 ZZ1N EQU ZZ1+1116 00202000 ZZ2 EQU 0 00203000 ZZ2AMD EQU ZZ2 00204000 @NM00013 EQU ZZ2AMD+7 00205000 ZZ2PRT EQU ZZ2+138 00206000 ZZ2PRTT EQU ZZ2PRT+4 00207000 ZZ2PRTT1 EQU ZZ2PRTT+1 00208000 ZZ2A EQU ZZ2+272 00209000 ZZ2AF EQU ZZ2A+16 00210000 ZZ2APID EQU ZZ2A+64 00211000 ZZ2AD EQU ZZ2A+74 00212000 ZZ2ADD EQU ZZ2AD 00213000 ZZ2ADDT EQU ZZ2ADD+2 00214000 ZZ2ADM EQU ZZ2AD+46 00215000 ZZ2ADMT EQU ZZ2ADM+2 00216000 ZZ2ADP EQU ZZ2AD+56 00217000 ZZ2ADPT EQU ZZ2ADP+2 00218000 ZZ2AQAS EQU ZZ2A+144 00219000 ZZ2AQD EQU ZZ2A+160 00220000 ZZ2AQDT EQU ZZ2AQD+10 00221000 ZZ2AQDF EQU ZZ2AQD+52 00222000 ZZ2STG EQU ZZ2+960 00223000 ZZ2ALLOP EQU ZZ2+992 00224000 ZZ2FREEP EQU ZZ2+996 00225000 ZZ2FF19P EQU ZZ2+1000 00226000 ZZ2FRE1P EQU ZZ2+1004 00227000 ZZ2FF18P EQU ZZ2+1008 00228000 ZZ2DYNAP EQU ZZ2+1012 00229000 ZZ2ZZ2CP EQU ZZ2+1016 00230000 ZZ2ZZ2DP EQU ZZ2+1020 00231000 ZZ2STAIP EQU ZZ2+1024 00232000 ZZ2FF02P EQU ZZ2+1028 00233000 ZZ2GETLP EQU ZZ2+1032 00234000 ZZ2PARSP EQU ZZ2+1036 00235000 ZZ2PTGTP EQU ZZ2+1040 00236000 ZZ2PUTLP EQU ZZ2+1044 00237000 ZZ2SCANP EQU ZZ2+1048 00238000 ZZ2STCKP EQU ZZ2+1052 00239000 ZZ2ALOCP EQU ZZ2+1056 00240000 ZZ2MSGSP EQU ZZ2+1060 00241000 ZZ2TRMOP EQU ZZ2+1064 00242000 ZZ2TRMVP EQU ZZ2+1068 00243000 ZZ2MSG0P EQU ZZ2+1076 00244000 ZZ2PUTNP EQU ZZ2+1084 00245000 ZZ2TRMNP EQU ZZ2+1088 00246000 ZZ2ENQ0P EQU ZZ2+1092 00247000 ZZ2ADSDP EQU ZZ2+1096 00248000 ZZ2APDRP EQU ZZ2+1100 00249000 ZZ2FDSDP EQU ZZ2+1104 00250000 ZZ2FPDRP EQU ZZ2+1108 00251000 ZZ2ZZ1P EQU ZZ2+1264 00252000 ZZ2DVTP EQU ZZ2+1276 00253000 ZZ2BVTP EQU ZZ2+1280 00254000 ZZ2CPPL EQU ZZ2+1292 00255000 ZZ2CPPLC EQU ZZ2CPPL 00256000 ZZ2ITR EQU ZZ2+2840 00257000 ZZ2ITRE EQU ZZ2ITR+16 00258000 ZZ2ITSE EQU ZZ2+2864 00259000 ZZ2ES EQU ZZ2+2872 00260000 ZZ2AMDX EQU ZZ2+7160 00261000 ZZ2AXO EQU ZZ2+7934 00262000 ZZ2AXOT EQU ZZ2AXO+2 00263000 CMD EQU 0 00264000 CMDT EQU CMD+4 00265000 PSCB EQU 0 00266000 PSCBATR1 EQU PSCB+16 00267000 ECT EQU 0 00268000 ECTSWS EQU ECT+28 00269000 ECTSWS2 EQU ECT+40 00270000 ECTSWS21 EQU ECTSWS2 00271000 UPT EQU 0 00272000 UPTSWS EQU UPT+12 00273000 SA EQU 0 00274000 SA1 EQU SA 00275000 SAR EQU SA+12 00276000 SAR1 EQU SAR+12 00277000 IKJEFF19 EQU 0 00278000 BVT EQU 0 00279000 BVTPUTLP EQU BVT+4 00280000 BVTPUTOP EQU BVT+12 00281000 BVTPUTTP EQU BVT+16 00282000 BVTPUTVP EQU BVT+20 00283000 BVTPUTAP EQU BVT+24 00284000 BVTPRTTP EQU BVT+28 00285000 BVTPRTAP EQU BVT+32 00286000 BVTPUTDP EQU BVT+36 00287000 BVTMONP EQU BVT+40 00288000 BVTMON2P EQU BVT+44 00289000 BVTVSARP EQU BVT+48 00290000 BVTVSENP EQU BVT+64 00291000 BVTVSGEP EQU BVT+72 00292000 BVTVSGUP EQU BVT+76 00293000 BVTVSPOP EQU BVT+80 00294000 BVTVSPUP EQU BVT+84 00295000 BVTMPKNP EQU BVT+104 00296000 BVTMONLP EQU BVT+108 00297000 BVTPUTCP EQU BVT+132 00298000 BVTMPK1P EQU BVT+136 00299000 BVTZZ2RP EQU BVT+140 00300000 BVTPGMRP EQU BVT+144 00301000 BVTMONAP EQU BVT+148 00302000 BVTBLDDP EQU BVT+152 00303000 BVTBLDLP EQU BVT+156 00304000 BVTPGMCP EQU BVT+160 00305000 BVTPGMDP EQU BVT+164 00306000 BVTPGMLP EQU BVT+168 00307000 BVTMONCP EQU BVT+180 00308000 BVTMONDP EQU BVT+184 00309000 BVTMONTP EQU BVT+188 00310000 BVTPARIP EQU BVT+192 00311000 BVTPARUP EQU BVT+196 00312000 BVTPRTNP EQU BVT+204 00313000 BVTVSCRP EQU BVT+208 00314000 BVTVSMRP EQU BVT+212 00315000 BVTMONXP EQU BVT+216 00316000 BVTTRMAP EQU BVT+228 00317000 DVT EQU 0 00318000 DVTDEQPP EQU DVT+8 00319000 DVTENQPP EQU DVT+12 00320000 DVTAUTHP EQU DVT+20 00321000 DVTLPCLP EQU DVT+24 00322000 DVTBP00P EQU DVT+28 00323000 DVTCN00P EQU DVT+32 00324000 DVTDF00P EQU DVT+36 00325000 DVTDS00P EQU DVT+44 00326000 DVTFL00P EQU DVT+48 00327000 DVTFP00P EQU DVT+52 00328000 DVTGD00P EQU DVT+56 00329000 DVTGG00P EQU DVT+60 00330000 DVTGP00P EQU DVT+64 00331000 DVTND00P EQU DVT+68 00332000 DVTND01P EQU DVT+72 00333000 DVTOD00P EQU DVT+76 00334000 DVTPS00P EQU DVT+80 00335000 DVTSD00P EQU DVT+84 00336000 DVTSL00P EQU DVT+88 00337000 DVTTL00P EQU DVT+92 00338000 DVTUD00P EQU DVT+96 00339000 DVTUP00P EQU DVT+100 00340000 DVTLP00P EQU DVT+104 00341000 DVTLALLP EQU DVT+108 00342000 DVTLPFMP EQU DVT+112 00343000 DVTCLOSP EQU DVT+116 00344000 DVTOPENP EQU DVT+120 00345000 DVTPERAP EQU DVT+124 00346000 DVTDALLP EQU DVT+128 00347000 IFGRPL EQU 0 00348000 RPLCOMN EQU IFGRPL 00349000 RPLIDWD EQU RPLCOMN 00350000 RPLLEN EQU RPLIDWD+3 00351000 RPLECB EQU RPLCOMN+8 00352000 RPLFDBWD EQU RPLCOMN+12 00353000 RPLFDBK EQU RPLFDBWD+1 00354000 RPLRTNCD EQU RPLFDBK 00355000 RPLCNDCD EQU RPLFDBK+1 00356000 RPLCMPON EQU RPLCNDCD 00357000 RPLFDB2 EQU RPLCMPON 00358000 RPLERRCD EQU RPLCNDCD+1 00359000 RPLFDB3 EQU RPLERRCD 00360000 RPLKEYLE EQU RPLCOMN+16 00361000 RPLARG EQU RPLCOMN+36 00362000 RPLOPTCD EQU RPLCOMN+40 00363000 RPLOPT1 EQU RPLOPTCD 00364000 RPLECBSW EQU RPLOPT1 00365000 RPLOPT2 EQU RPLOPTCD+1 00366000 RPLADR EQU RPLOPT2 00367000 RPLOPT3 EQU RPLOPTCD+2 00368000 RPLNXTRP EQU RPLCOMN+44 00369000 RPLOPTC2 EQU RPLCOMN+56 00370000 RPLOPT5 EQU RPLOPTC2 00371000 RPLWRTYP EQU RPLOPT5 00372000 RPLOPT6 EQU RPLOPTC2+1 00373000 RPLUNTYP EQU RPLOPT6 00374000 RPLOPT7 EQU RPLOPTC2+2 00375000 RPLCNOPT EQU RPLOPT7 00376000 RPLOPT8 EQU RPLOPTC2+3 00377000 RPLRBAR EQU RPLCOMN+60 00378000 RPLAIXID EQU RPLRBAR+2 00379000 RPLEXTDS EQU RPLCOMN+68 00380000 RPLEXTD1 EQU RPLEXTDS 00381000 BLSCALOC EQU 0 00382000 BLSDADSD EQU 0 00383000 BLSDAPDR EQU 0 00384000 BLSDDEQP EQU 0 00385000 BLSDENQP EQU 0 00386000 BLSDENQ0 EQU 0 00387000 BLSDFDSD EQU 0 00388000 BLSDFPDR EQU 0 00389000 BLSDMSGS EQU 0 00390000 BLSDMSG0 EQU 0 00391000 BLSEAUTH EQU 0 00392000 BLSELPCL EQU 0 00393000 BLSELPFM EQU 0 00394000 BLSFBP00 EQU 0 00395000 BLSFCLOS EQU 0 00396000 BLSFCN00 EQU 0 00397000 BLSFDALL EQU 0 00398000 BLSFDF00 EQU 0 00399000 BLSFDS00 EQU 0 00400000 BLSFFL00 EQU 0 00401000 BLSFFP00 EQU 0 00402000 BLSFGD00 EQU 0 00403000 BLSFGG00 EQU 0 00404000 BLSFGP00 EQU 0 00405000 BLSFLALL EQU 0 00406000 BLSFLP00 EQU 0 00407000 BLSFND00 EQU 0 00408000 BLSFND01 EQU 0 00409000 BLSFOD00 EQU 0 00410000 BLSFOPEN EQU 0 00411000 BLSFPERA EQU 0 00412000 BLSFPS00 EQU 0 00413000 BLSFSD00 EQU 0 00414000 BLSFSL00 EQU 0 00415000 BLSFTL00 EQU 0 00416000 BLSFUD00 EQU 0 00417000 BLSFUP00 EQU 0 00418000 BLSUALLO EQU 0 00419000 BLSUBLDD EQU 0 00420000 BLSUBLDL EQU 0 00421000 BLSUDYNA EQU 0 00422000 BLSUFREE EQU 0 00423000 BLSUFRE1 EQU 0 00424000 BLSUMON EQU 0 00425000 BLSUMONA EQU 0 00426000 BLSUMONC EQU 0 00427000 BLSUMOND EQU 0 00428000 BLSUMONL EQU 0 00429000 BLSUMONT EQU 0 00430000 BLSUMONX EQU 0 00431000 BLSUMON2 EQU 0 00432000 BLSUMPKN EQU 0 00433000 BLSUMPK1 EQU 0 00434000 BLSUPARI EQU 0 00435000 BLSUPARU EQU 0 00436000 BLSUPGMC EQU 0 00437000 BLSUPGMD EQU 0 00438000 BLSUPGML EQU 0 00439000 BLSUPGMR EQU 0 00440000 BLSUPRTA EQU 0 00441000 BLSUPRTN EQU 0 00442000 BLSUPRTT EQU 0 00443000 BLSUPUTA EQU 0 00444000 BLSUPUTC EQU 0 00445000 BLSUPUTD EQU 0 00446000 BLSUPUTL EQU 0 00447000 BLSUPUTN EQU 0 00448000 BLSUPUTO EQU 0 00449000 BLSUPUTT EQU 0 00450000 BLSUPUTV EQU 0 00451000 BLSUSTAI EQU 0 00452000 BLSUTRMA EQU 0 00453000 BLSUTRMN EQU 0 00454000 BLSUTRMO EQU 0 00455000 BLSUTRMV EQU 0 00456000 BLSUVSAR EQU 0 00457000 BLSUVSCR EQU 0 00458000 BLSUVSEN EQU 0 00459000 BLSUVSGE EQU 0 00460000 BLSUVSGU EQU 0 00461000 BLSUVSMR EQU 0 00462000 BLSUVSPO EQU 0 00463000 BLSUVSPU EQU 0 00464000 BLSUZZ2C EQU 0 00465000 BLSUZZ2D EQU 0 00466000 BLSUZZ2R EQU 0 00467000 IKJEFF02 EQU 0 00468000 IKJEFF18 EQU 0 00469000 IKJGETL EQU 0 00470000 IKJPARS EQU 0 00471000 IKJPTGT EQU 0 00472000 IKJPUTL EQU 0 00473000 IKJSCAN EQU 0 00474000 IKJSTCK EQU 0 00475000 I001C EQU 0 00476000 I008P EQU 0 00477000 I015F EQU 0 00478000 I015P EQU 0 00479000 I031F EQU 0 00480000 I031P EQU 0 00481000 I256C EQU 0 00482000 PZ2 EQU 0 00483000 RPL EQU 0 00484000 CPPL EQU ZZ2CPPL 00485000 CPPLUPT EQU CPPL+4 00486000 CPPLPSCB EQU CPPL+8 00487000 CPPLECT EQU CPPL+12 00488000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00489000 CPPLCBUF EQU CPPL 00490000 RPLERMSA EQU RPLCOMN+72 00491000 RPLEMLEN EQU RPLCOMN+70 00492000 RPLACTIV EQU RPLCOMN+69 00493000 RPLBRANC EQU RPLEXTD1 00494000 RPLNIB EQU RPLEXTD1 00495000 @NM00072 EQU RPLEXTD1 00496000 RPLEXIT EQU RPLEXTD1 00497000 RPLNEXIT EQU RPLEXTD1 00498000 RPLEXSCH EQU RPLEXTD1 00499000 RPLDDDD EQU RPLRBAR+4 00500000 @NM00071 EQU RPLRBAR+3 00501000 @NM00070 EQU RPLAIXID 00502000 RPLAXPKP EQU RPLAIXID 00503000 RPLAIXPC EQU RPLRBAR 00504000 RPLRSV88 EQU RPLOPT8 00505000 RPLUNCON EQU RPLOPT8 00506000 RPLACTV EQU RPLOPT8 00507000 RPLSESS EQU RPLOPT8 00508000 RPLPEND EQU RPLOPT8 00509000 RPLODPRM EQU RPLOPT8 00510000 RPLODACP EQU RPLOPT8 00511000 RPLODACQ EQU RPLOPT8 00512000 RPLRSV78 EQU RPLOPT7 00513000 RPLRSV77 EQU RPLOPT7 00514000 RPLRLSOP EQU RPLOPT7 00515000 RPLTPOST EQU RPLOPT7 00516000 RPLQOPT EQU RPLOPT7 00517000 RPLCNIMM EQU RPLCNOPT 00518000 RPLCNANY EQU RPLCNOPT 00519000 RPLCNALL EQU RPLCNOPT 00520000 RPLRSV68 EQU RPLOPT6 00521000 RPLRSV67 EQU RPLOPT6 00522000 RPLLOCK EQU RPLOPT6 00523000 RPLNCOND EQU RPLOPT6 00524000 RPLCOND EQU RPLOPT6 00525000 RPLEOT EQU RPLUNTYP 00526000 RPLEOM EQU RPLUNTYP 00527000 RPLEOB EQU RPLUNTYP 00528000 RPLWROPT EQU RPLOPT5 00529000 RPLNODE EQU RPLOPT5 00530000 RPLERACE EQU RPLWRTYP 00531000 RPLEAU EQU RPLWRTYP 00532000 RPLNERAS EQU RPLWRTYP 00533000 RPLPSOPT EQU RPLOPT5 00534000 RPLSSNIN EQU RPLOPT5 00535000 RPLDLGIN EQU RPLOPT5 00536000 RPLBUFL EQU RPLCOMN+52 00537000 RPLRLEN EQU RPLCOMN+48 00538000 RPLCHAIN EQU RPLNXTRP 00539000 RPLOPT4 EQU RPLOPTCD+3 00540000 RPLALIGN EQU RPLOPT3 00541000 RPLFMT EQU RPLOPT3 00542000 RPLFLD EQU RPLOPT3 00543000 RPLVFY EQU RPLOPT3 00544000 RPLBLK EQU RPLOPT3 00545000 RPLSFORM EQU RPLOPT3 00546000 RPLEODS EQU RPLOPT3 00547000 RPLNSP EQU RPLOPT2 00548000 RPLUPD EQU RPLOPT2 00549000 @NM00069 EQU RPLOPT2 00550000 RPLLRD EQU RPLOPT2 00551000 RPLBWD EQU RPLOPT2 00552000 RPLCNV EQU RPLOPT2 00553000 RPLADD EQU RPLADR 00554000 RPLKEY EQU RPLOPT2 00555000 RPLECBIN EQU RPLECBSW 00556000 RPLGEN EQU RPLOPT1 00557000 RPLKGE EQU RPLOPT1 00558000 RPLASY EQU RPLOPT1 00559000 RPLSKP EQU RPLOPT1 00560000 RPLSEQ EQU RPLOPT1 00561000 RPLDIR EQU RPLOPT1 00562000 RPLLOC EQU RPLOPT1 00563000 RPLDAF EQU RPLARG+2 00564000 RPLSAF EQU RPLARG 00565000 RPLAREA EQU RPLCOMN+32 00566000 RPLTCBPT EQU RPLCOMN+28 00567000 RPLDACB EQU RPLCOMN+24 00568000 RPLCCHAR EQU RPLCOMN+20 00569000 RPLSTRID EQU RPLCOMN+18 00570000 RPLKEYL EQU RPLKEYLE 00571000 RPLRDSOH EQU RPLFDB3 00572000 RPLRLG EQU RPLFDB3 00573000 RPLLGFRC EQU RPLFDB3 00574000 RPLREOT EQU RPLFDB3 00575000 RPLREOM EQU RPLFDB3 00576000 RPLREOB EQU RPLFDB3 00577000 RPLSV32 EQU RPLFDB3 00578000 RPLUINPT EQU RPLFDB3 00579000 RPLSTSAV EQU RPLFDB2 00580000 RPLCUERR EQU RPLFDB2 00581000 RPLDLGFL EQU RPLFDB2 00582000 RPLIOERR EQU RPLFDB2 00583000 RPLDVUNS EQU RPLFDB2 00584000 RPLATND EQU RPLFDB2 00585000 RPLRVID EQU RPLFDB2 00586000 RPLERLK EQU RPLFDB2 00587000 RPLERREG EQU RPLRTNCD 00588000 RPLSTAT EQU RPLFDBWD 00589000 RPLPOST EQU RPLECB 00590000 RPLWAIT EQU RPLECB 00591000 RPLPLHPT EQU RPLCOMN+4 00592000 RPLLEN2 EQU RPLLEN 00593000 RPLREQ EQU RPLIDWD+2 00594000 RPLSTYP EQU RPLIDWD+1 00595000 RPLID EQU RPLIDWD 00596000 DVT99999 EQU DVT+256 00597000 DVT0064P EQU DVT+252 00598000 DVT0063P EQU DVT+248 00599000 DVT0062P EQU DVT+244 00600000 DVT0061P EQU DVT+240 00601000 DVT0060P EQU DVT+236 00602000 DVT0059P EQU DVT+232 00603000 DVT0058P EQU DVT+228 00604000 DVT0057P EQU DVT+224 00605000 DVT0056P EQU DVT+220 00606000 DVT0055P EQU DVT+216 00607000 DVT0054P EQU DVT+212 00608000 DVT0053P EQU DVT+208 00609000 DVT0052P EQU DVT+204 00610000 DVT0051P EQU DVT+200 00611000 DVT0050P EQU DVT+196 00612000 DVT0049P EQU DVT+192 00613000 DVT0048P EQU DVT+188 00614000 DVT0047P EQU DVT+184 00615000 DVT0046P EQU DVT+180 00616000 DVT0045P EQU DVT+176 00617000 DVT0044P EQU DVT+172 00618000 DVT0043P EQU DVT+168 00619000 DVT0042P EQU DVT+164 00620000 DVT0041P EQU DVT+160 00621000 DVT0040P EQU DVT+156 00622000 DVT0039P EQU DVT+152 00623000 DVT0038P EQU DVT+148 00624000 DVT0037P EQU DVT+144 00625000 DVT0036P EQU DVT+140 00626000 DVT0035P EQU DVT+136 00627000 DVT0034P EQU DVT+132 00628000 DVT0011P EQU DVT+40 00629000 DVT0005P EQU DVT+16 00630000 DVT0002P EQU DVT+4 00631000 DVT0001P EQU DVT 00632000 BVT99999 EQU BVT+256 00633000 BVT0064P EQU BVT+252 00634000 BVT0063P EQU BVT+248 00635000 BVT0062P EQU BVT+244 00636000 BVT0061P EQU BVT+240 00637000 BVT0060P EQU BVT+236 00638000 BVT0059P EQU BVT+232 00639000 BVT0057P EQU BVT+224 00640000 BVT0056P EQU BVT+220 00641000 BVTSTBLP EQU BVT+200 00642000 BVT0045P EQU BVT+176 00643000 BVT0044P EQU BVT+172 00644000 BVT0033P EQU BVT+128 00645000 BVT0032P EQU BVT+124 00646000 BVT0031P EQU BVT+120 00647000 BVT0030P EQU BVT+116 00648000 BVT0029P EQU BVT+112 00649000 BVT0026P EQU BVT+100 00650000 BVT0025P EQU BVT+96 00651000 BVT0024P EQU BVT+92 00652000 BVT0023P EQU BVT+88 00653000 BVTVSERP EQU BVT+68 00654000 BVT0016P EQU BVT+60 00655000 BVT0015P EQU BVT+56 00656000 BVT0014P EQU BVT+52 00657000 BVT0003P EQU BVT+8 00658000 BVT0001P EQU BVT 00659000 SA99 EQU SA+72 00660000 SARC EQU SAR+56 00661000 SARB EQU SAR+52 00662000 SARA EQU SAR+48 00663000 SAR9 EQU SAR+44 00664000 SAR8 EQU SAR+40 00665000 SAR7 EQU SAR+36 00666000 SAR6 EQU SAR+32 00667000 SAR5 EQU SAR+28 00668000 SAR4 EQU SAR+24 00669000 SAR3 EQU SAR+20 00670000 SAR2 EQU SAR+16 00671000 SAR0 EQU SAR+8 00672000 SARF EQU SAR+4 00673000 SARE EQU SAR 00674000 SAFWD EQU SA+8 00675000 SABAK EQU SA+4 00676000 SA1L EQU SA1+1 00677000 SA1P EQU SA1 00678000 UPTPREFL EQU UPT+23 00679000 UPTPREFX EQU UPT+16 00680000 @NM00068 EQU UPT+15 00681000 UPTLDEL EQU UPT+14 00682000 UPTCDEL EQU UPT+13 00683000 UPTWTP EQU UPTSWS 00684000 UPTMODE EQU UPTSWS 00685000 UPTALD EQU UPTSWS 00686000 UPTPAUS EQU UPTSWS 00687000 UPTNCOM EQU UPTSWS 00688000 UPTMID EQU UPTSWS 00689000 UPTNPRM EQU UPTSWS 00690000 UPTRCVR EQU UPTSWS 00691000 UPTUSER EQU UPT+2 00692000 @NM00067 EQU UPT 00693000 @NM00066 EQU ECT+52 00694000 @NM00065 EQU ECT+48 00695000 @NM00064 EQU ECT+44 00696000 @NM00063 EQU ECTSWS2+1 00697000 @NM00062 EQU ECTSWS21 00698000 ECTTABND EQU ECTSWS21 00699000 ECTDEFCS EQU ECTSWS21 00700000 ECTBKPB EQU ECT+36 00701000 ECTUSER EQU ECT+32 00702000 ECTDDNUM EQU ECT+29 00703000 ECTATTN EQU ECTSWS 00704000 ECTBKGRD EQU ECTSWS 00705000 ECTNNOT EQU ECTSWS 00706000 ECTNMAL EQU ECTSWS 00707000 ECTLOGF EQU ECTSWS 00708000 ECTATRM EQU ECTSWS 00709000 @NM00061 EQU ECTSWS 00710000 ECTNOPD EQU ECTSWS 00711000 ECTSCMD EQU ECT+20 00712000 ECTPCMD EQU ECT+12 00713000 ECTSMSG EQU ECT+9 00714000 ECTMSGF EQU ECT+8 00715000 ECTIOWA EQU ECT+4 00716000 ECTRTCD EQU ECT+1 00717000 ECTRCDF EQU ECT 00718000 PSCBU EQU PSCB+64 00719000 PSCBRSZ EQU PSCB+60 00720000 PSCBLINE EQU PSCB+59 00721000 PSCBCHAR EQU PSCB+58 00722000 PSCBUPTL EQU PSCB+56 00723000 PSCBUPT EQU PSCB+52 00724000 PSCBRLGB EQU PSCB+48 00725000 PSCBDEST EQU PSCB+40 00726000 @NM00060 EQU PSCB+36 00727000 @NM00059 EQU PSCB+32 00728000 @NM00058 EQU PSCB+28 00729000 PSCBLTI2 EQU PSCB+24 00730000 PSCBLTIM EQU PSCB+20 00731000 PSCBATR2 EQU PSCB+18 00732000 @NM00057 EQU PSCBATR1 00733000 @NM00056 EQU PSCBATR1 00734000 @NM00055 EQU PSCBATR1 00735000 PSCBATTN EQU PSCBATR1 00736000 PSCBVMNT EQU PSCBATR1 00737000 PSCBJCL EQU PSCBATR1 00738000 PSCBACCT EQU PSCBATR1 00739000 PSCBCTRL EQU PSCBATR1 00740000 PSCBGPNM EQU PSCB+8 00741000 PSCBUSRL EQU PSCB+7 00742000 PSCBUSER EQU PSCB 00743000 CMDT1 EQU CMDT 00744000 CMDO EQU CMD+2 00745000 CMDL EQU CMD 00746000 ZZ299999 EQU ZZ2+8192 00747000 ZZ2AXOT1 EQU ZZ2AXOT 00748000 ZZ2AXOL EQU ZZ2AXO 00749000 @NM00054 EQU ZZ2+7288 00750000 @NM00053 EQU ZZ2AMDX+4 00751000 ZZ2AMDXC EQU ZZ2AMDX 00752000 ZZ2HSD EQU ZZ2+3056 00753000 @NM00052 EQU ZZ2ES 00754000 @NM00051 EQU ZZ2+2868 00755000 ZZ2ITSEC EQU ZZ2ITSE+1 00756000 @NM00050 EQU ZZ2ITSE 00757000 ZZ2ITSEP EQU ZZ2ITSE 00758000 ZZ2ITSEW EQU ZZ2ITSE 00759000 @NM00049 EQU ZZ2ITR+20 00760000 ZZ2ITREC EQU ZZ2ITRE+1 00761000 @NM00048 EQU ZZ2ITRE 00762000 ZZ2ITREP EQU ZZ2ITRE 00763000 ZZ2ITREW EQU ZZ2ITRE 00764000 @NM00047 EQU ZZ2ITR+9 00765000 ZZ2ITRRC EQU ZZ2ITR+8 00766000 ZZ2ITR2P EQU ZZ2ITR+4 00767000 ZZ2ITRPP EQU ZZ2ITR 00768000 @NM00046 EQU ZZ2+1544 00769000 ZZ2PGM EQU ZZ2+1536 00770000 @NM00045 EQU ZZ2+1526 00771000 ZZ2CW EQU ZZ2+1524 00772000 @NM00044 EQU ZZ2+1504 00773000 @NM00043 EQU ZZ2+1352 00774000 ZZ2FFSYP EQU ZZ2+1348 00775000 ZZ2SASYP EQU ZZ2+1344 00776000 ZZ2RDSYP EQU ZZ2+1340 00777000 ZZ2RASYP EQU ZZ2+1336 00778000 ZZ2PHSYP EQU ZZ2+1332 00779000 ZZ2ESSYP EQU ZZ2+1328 00780000 ZZ200SYP EQU ZZ2+1324 00781000 ZZ2SCWP EQU ZZ2+1320 00782000 ZZ2TTLP EQU ZZ2+1316 00783000 ZZ2LOADP EQU ZZ2+1312 00784000 ZZ2VRESP EQU ZZ2+1308 00785000 ZZ2CPPLE EQU ZZ2CPPL+12 00786000 ZZ2CPPLP EQU ZZ2CPPL+8 00787000 ZZ2CPPLU EQU ZZ2CPPL+4 00788000 ZZ2VRSAP EQU ZZ2+1288 00789000 ZZ2RVTP EQU ZZ2+1284 00790000 @NM00042 EQU ZZ2+1272 00791000 @NM00041 EQU ZZ2+1268 00792000 ZZ2RPLP EQU ZZ2+1260 00793000 ZZ2TCBP EQU ZZ2+1256 00794000 @NM00040 EQU ZZ2+1252 00795000 ZZ2ZZ2P EQU ZZ2+1248 00796000 @NM00039 EQU ZZ2+1112 00797000 @NM00038 EQU ZZ2+1080 00798000 ZZ2FT25P EQU ZZ2+1072 00799000 @NM00037 EQU ZZ2+976 00800000 ZZ2TOD EQU ZZ2+968 00801000 ZZ2STGN EQU ZZ2STG+4 00802000 ZZ2STGP EQU ZZ2STG 00803000 @NM00036 EQU ZZ2+952 00804000 ZZ2SCMDE EQU ZZ2+944 00805000 ZZ2SCMDN EQU ZZ2+936 00806000 ZZ2IDENT EQU ZZ2+928 00807000 ZZ2A9999 EQU ZZ2A+656 00808000 @NM00035 EQU ZZ2A+224 00809000 @NM00034 EQU ZZ2A+220 00810000 ZZ2AQD99 EQU ZZ2AQD+60 00811000 @NM00033 EQU ZZ2AQD+56 00812000 @NM00032 EQU ZZ2AQDF 00813000 ZZ2AQDFA EQU ZZ2AQDF 00814000 ZZ2AQDIL EQU ZZ2AQD+48 00815000 ZZ2AQDIM EQU ZZ2AQD+44 00816000 ZZ2AQDT9 EQU ZZ2AQDT+34 00817000 ZZ2AQDTE EQU ZZ2AQDT+33 00818000 ZZ2AQDTD EQU ZZ2AQDT+2 00819000 @NM00031 EQU ZZ2AQDT+1 00820000 ZZ2AQDTY EQU ZZ2AQDT 00821000 ZZ2AQDT0 EQU ZZ2AQDT 00822000 ZZ2AQDLB EQU ZZ2AQD+9 00823000 ZZ2AQDOB EQU ZZ2AQD+8 00824000 ZZ2AQDLE EQU ZZ2AQD+4 00825000 ZZ2AQDOF EQU ZZ2AQD 00826000 ZZ2AQD00 EQU ZZ2AQD 00827000 ZZ2AQAS9 EQU ZZ2AQAS+16 00828000 @NM00030 EQU ZZ2AQAS+12 00829000 ZZ2AQAS2 EQU ZZ2AQAS+8 00830000 ZZ2AQAS1 EQU ZZ2AQAS+4 00831000 @NM00029 EQU ZZ2AQAS+2 00832000 ZZ2AQAST EQU ZZ2AQAS 00833000 ZZ2AQAS0 EQU ZZ2AQAS 00834000 ZZ2AZZ6P EQU ZZ2A+140 00835000 ZZ2ADPTA EQU ZZ2ADPT 00836000 ZZ2ADPL EQU ZZ2ADP 00837000 ZZ2ADMTA EQU ZZ2ADMT 00838000 ZZ2ADML EQU ZZ2ADM 00839000 ZZ2ADDTA EQU ZZ2ADDT 00840000 ZZ2ADDL EQU ZZ2ADD 00841000 @NM00028 EQU ZZ2A+72 00842000 ZZ2APIDB EQU ZZ2APID+3 00843000 ZZ2APIDA EQU ZZ2APID 00844000 @NM00027 EQU ZZ2A+24 00845000 @NM00026 EQU ZZ2AF+5 00846000 ZZ2AFX EQU ZZ2AF+5 00847000 @NM00025 EQU ZZ2AF+3 00848000 ZZ2AFS EQU ZZ2AF+2 00849000 ZZ2AFD EQU ZZ2AF+2 00850000 ZZ2AFQ EQU ZZ2AF+2 00851000 ZZ2AF$ EQU ZZ2AF+2 00852000 @NM00024 EQU ZZ2AF+2 00853000 ZZ2AFM EQU ZZ2AF+2 00854000 @NM00023 EQU ZZ2AF+2 00855000 @NM00022 EQU ZZ2AF+1 00856000 ZZ2AFV EQU ZZ2AF+1 00857000 @NM00021 EQU ZZ2AF+1 00858000 ZZ2AFC EQU ZZ2AF+1 00859000 @NM00020 EQU ZZ2AF 00860000 ZZ2AFFS EQU ZZ2AF 00861000 ZZ2AFT EQU ZZ2AF 00862000 ZZ2AFP EQU ZZ2AF 00863000 @NM00019 EQU ZZ2A+8 00864000 ZZ2ALINE EQU ZZ2A+4 00865000 @NM00018 EQU ZZ2A+3 00866000 ZZ2ASE EQU ZZ2A+2 00867000 ZZ2ACH EQU ZZ2A 00868000 @NM00017 EQU ZZ2+264 00869000 @NM00016 EQU ZZ2+263 00870000 ZZ2PRTT0 EQU ZZ2PRTT 00871000 ZZ2PRTO EQU ZZ2PRT+2 00872000 ZZ2PRTL EQU ZZ2PRT 00873000 @NM00015 EQU ZZ2AMD+56 00874000 ZZ2AMDXP EQU ZZ2AMD+52 00875000 ZZ2AMDD EQU ZZ2AMD+48 00876000 ZZ2AMDL EQU ZZ2AMD+44 00877000 ZZ2AMDU EQU ZZ2AMD+28 00878000 ZZ2AMDF EQU ZZ2AMD+24 00879000 ZZ2AMDS EQU ZZ2AMD+20 00880000 ZZ2AMDC EQU ZZ2AMD+16 00881000 ZZ2AMDP EQU ZZ2AMD+12 00882000 ZZ2AMDB EQU ZZ2AMD+8 00883000 @NM00014 EQU @NM00013 00884000 ZZ2AMD2 EQU @NM00013 00885000 ZZ2AMD1 EQU @NM00013 00886000 ZZ2AMD0 EQU ZZ2AMD+6 00887000 ZZ2AMDA EQU ZZ2AMD+4 00888000 ZZ2AMDT EQU ZZ2AMD 00889000 ZZ199999 EQU ZZ1+3072 00890000 @NM00012 EQU ZZ1+2160 00891000 ZZ1TRTAS EQU ZZ1+1904 00892000 ZZ1TRUPC EQU ZZ1+1648 00893000 ZZ1TRCTX EQU ZZ1+1392 00894000 ZZ1NASID EQU ZZ1N+274 00895000 ZZ1NSTRL EQU ZZ1N+272 00896000 ZZ1NOFF EQU ZZ1N+268 00897000 ZZ1NBDY EQU ZZ1N+264 00898000 ZZ1NADE EQU ZZ1N+260 00899000 ZZ1NADB EQU ZZ1N+256 00900000 ZZ1NSTR EQU ZZ1N 00901000 @NM00011 EQU ZZ1+1080 00902000 ZZ1TREBC EQU ZZ1+824 00903000 ZZ1TRHEX EQU ZZ1+568 00904000 @NM00010 EQU ZZ1+377 00905000 ZZ1USTAE EQU ZZ1+376 00906000 @NM00009 EQU ZZ1F+1 00907000 @NM00008 EQU ZZ1F 00908000 ZZ1FM EQU ZZ1F 00909000 ZZ1FX EQU ZZ1F 00910000 ZZ1FU EQU ZZ1F 00911000 ZZ1EVEC EQU ZZ1EVE+1 00912000 @NM00007 EQU ZZ1EVE 00913000 ZZ1EVEP EQU ZZ1EVE 00914000 ZZ1EVEW EQU ZZ1EVE 00915000 ZZ1ACMP EQU ZZ1ATTN 00916000 @NM00006 EQU ZZ1+144 00917000 ZZ1FPP EQU ZZ1+140 00918000 ZZ1ZZ6P EQU ZZ1+136 00919000 @NM00005 EQU ZZ1+84 00920000 ZZ1PLINE EQU ZZ1+80 00921000 ZZ1PGSZ EQU ZZ1+76 00922000 ZZ1PCNT EQU ZZ1+72 00923000 @NM00004 EQU ZZ1+68 00924000 ZZ1TPAGE EQU ZZ1+64 00925000 ZZ1TLINE EQU ZZ1+60 00926000 @NM00003 EQU ZZ1+48 00927000 ZZ1DSDP EQU ZZ1+44 00928000 ZZ1PDRP EQU ZZ1+40 00929000 ZZ1ZZ2P EQU ZZ1+36 00930000 ZZ1327WP EQU ZZ1+32 00931000 ZZ1ACBP EQU ZZ1+28 00932000 @NM00002 EQU ZZ1+24 00933000 ZZ1PDCBP EQU ZZ1+20 00934000 ZZ1BLRBL EQU ZZ1+16 00935000 @NM00001 EQU ZZ1+12 00936000 ZZ1PNULL EQU ZZ1+8 00937000 ZZ1NULL EQU ZZ1+4 00938000 ZZ1IDE EQU ZZ1 00939000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00940000 @RT00146 EQU EXIT 00941000 @ENDDATA EQU * 00942000 END BLSUVSER,(C'PLS1511',0701,78060) 00943000