TITLE 'I E F J C D L T - CORE DELETION ' 00001000 IEFJCDLT CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'IEFJCDLT 73.059' 0001 00007000 DROP @15 00008000 @PROLOG STM @14,@12,12(@13) 0001 00009000 BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 L @00,@SIZDATD 0001 00013000 GETMAIN R,LV=(0) 00014000 LR @11,@01 0001 00015000 USING @DATD,@11 0001 00016000 LM @00,@01,20(@13) 0001 00017000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00018000 MVC @PC00001(4),0(@01) 0001 00019000 * AMWAPTR=INPUT1; /* PTR INITIALIZED FOR AMWA */ 00020000 L @10,@PC00001 0005 00021000 L AMWAPTR,INPUT1(,@10) 0005 00022000 * RESPECIFY 0006 00023000 * IEFJAREA BASED(ADDRAREA); 0006 00024000 * IF AMWAPTR^=0 THEN /* VALIDITY CHECK PARM FIELD. A 00025000 * ZERO SIGNALS THAT CANNOT FREE 00026000 * JCLS CHAIN. */ 00027000 * 0007 00028000 LTR AMWAPTR,AMWAPTR 0007 00029000 BZ @RF00007 0007 00030000 * /***************************************************************/ 00031000 * /* */ 00032000 * /* FREE JCLS CHAIN */ 00033000 * /* */ 00034000 * /***************************************************************/ 00035000 * 0008 00036000 *JCDLT010: 0008 00037000 * DO WHILE AMWAFSTJ^=0; /* LOOP TO FREE JCLS CHAIN */ 00038000 JCDLT010 B @DE00008 0008 00039000 @DL00008 DS 0H 0009 00040000 * ADDRAREA=AMWAFSTJ; /* ADDRESS OF RECORD TO FREE */ 00041000 L @10,AMWAFSTJ(,AMWAPTR) 0009 00042000 ST @10,ADDRAREA 0009 00043000 * AREALEN=JCLSLEN; /* LENGTH OF RECORD TO FREE */ 00044000 MVC AREALEN(3),@CF00084+1 0010 00045000 * AMWAFSTJ=NEXTPTR; /* RESET TO POINT TO NEXT CHAIN 00046000 * ELEMENT */ 00047000 MVC AMWAFSTJ(4,AMWAPTR),NEXTPTR(@10) 0011 00048000 * SPNUM=JSUBPOOL; /* SUBPOOL WHERE CHAIN OF JCLS 0012 00049000 * RESIDES.(253) */ 00050000 MVI SPNUM,X'FD' 0012 00051000 * REG1=ADDRAREA; /* REGISTER 1 POINTS TO AREA TO 00052000 * BE FREED. */ 00053000 LR REG1,@10 0013 00054000 * REG0=SPLEN; /* REGISTER 0 CONTAINS SUBPOOL 0014 00055000 * NUMBER IN HIGH ORDER BYTE, AND 00056000 * LENGTH IN LAST 3 */ 00057000 L REG0,SPLEN 0014 00058000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREE ELEMENT IN CHAIN. */ 00059000 FREEMAIN R,LV=(0),A=(1) 00060000 * END JCDLT010; 0016 00061000 * 0016 00062000 @DE00008 L @10,AMWAFSTJ(,AMWAPTR) 0016 00063000 LTR @10,@10 0016 00064000 BNZ @DL00008 0016 00065000 * /*****************************************************************/ 00066000 * /* */ 00067000 * /* FREE SUBPOOL 10 */ 00068000 * /* */ 00069000 * /*****************************************************************/ 00070000 * 0017 00071000 * GEN(FREEMAIN R,SP=10); 0017 00072000 * 0017 00073000 @RF00007 DS 0H 0017 00074000 FREEMAIN R,SP=10 00075000 * /*****************************************************************/ 00076000 * /* */ 00077000 * /* RETURN RETURN WITHOUT RETURN CODE */ 00078000 * /* */ 00079000 * /*****************************************************************/ 00080000 * 0018 00081000 * RETURN; 0018 00082000 @EL00001 DS 0H 0018 00083000 @EF00001 L @00,@SIZDATD 0018 00084000 LR @01,@11 0018 00085000 FREEMAIN R,LV=(0),A=(1) 00086000 @ER00001 LM @14,@12,12(@13) 0018 00087000 BR @14 0018 00088000 * END IEFJCDLT 0019 00089000 * 0019 00090000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00091000 */*%INCLUDE SYSLIB (IEFJAMWA) */ 00092000 */*%INCLUDE SYSLIB (IEFJAREA) */ 00093000 * 0019 00094000 * ; 0019 00095000 B @EL00001 0019 00096000 @DATA DS 0H 00097000 @DATD DSECT 00098000 DS 0F 00099000 @PC00001 DS 1F 00100000 @ZTEMPS DS C 00101000 @ZTEMPND EQU * 00102000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00103000 IEFJCDLT CSECT 00104000 DS 0F 00105000 @CF00084 DC F'88' 00106000 @DATD DSECT 00107000 DS 0D 00108000 FREELIST DS CL8 00109000 ORG FREELIST 00110000 SPLEN DS FL4 00111000 ORG SPLEN 00112000 SPNUM DS BL1 00113000 AREALEN DS FL3 00114000 ORG FREELIST+4 00115000 ADDRAREA DS AL4 00116000 ORG FREELIST+8 00117000 @ENDDATD EQU * 00118000 IEFJCDLT CSECT 00119000 DS 0F 00120000 @SIZDATD DC AL1(0) 00121000 DC AL3(@ENDDATD-@DATD) 00122000 DS 0D 00123000 CDLTPTCH DS CL50 00124000 ORG CDLTPTCH 00125000 @NM00008 DC 50X'00' 00126000 ORG CDLTPTCH+50 00127000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00128000 @01 EQU 01 00129000 @02 EQU 02 00130000 @03 EQU 03 00131000 @04 EQU 04 00132000 @05 EQU 05 00133000 @06 EQU 06 00134000 @07 EQU 07 00135000 @08 EQU 08 00136000 @09 EQU 09 00137000 @10 EQU 10 00138000 @11 EQU 11 00139000 @12 EQU 12 00140000 @13 EQU 13 00141000 @14 EQU 14 00142000 @15 EQU 15 00143000 AMWAPTR EQU @02 00144000 REG0 EQU @00 00145000 REG1 EQU @01 00146000 IEFJAMWA EQU 0 00147000 AMWATXTE EQU IEFJAMWA 00148000 AMWATFL1 EQU AMWATXTE+8 00149000 AMWAJCLE EQU IEFJAMWA+12 00150000 AMWAFSTJ EQU AMWAJCLE 00151000 AMWAJFL1 EQU AMWAJCLE+8 00152000 AMWARESV EQU IEFJAMWA+24 00153000 AMWAFLG1 EQU AMWARESV+4 00154000 IEFJAREA EQU 0 00155000 NEXTPTR EQU IEFJAREA 00156000 INPUT1 EQU 0 00157000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00158000 RECTEXT EQU IEFJAREA+8 00159000 LGTH EQU IEFJAREA+4 00160000 @NM00007 EQU AMWARESV+8 00161000 AMWAFLG4 EQU AMWARESV+7 00162000 AMWAFLG3 EQU AMWARESV+6 00163000 AMWAFLG2 EQU AMWARESV+5 00164000 @NM00006 EQU AMWAFLG1 00165000 BYPINTER EQU AMWAFLG1 00166000 CONVERR EQU AMWAFLG1 00167000 @NM00005 EQU AMWARESV 00168000 @NM00004 EQU AMWAJCLE+9 00169000 @NM00003 EQU AMWAJFL1 00170000 AMWAJM80 EQU AMWAJFL1 00171000 AMWAJEOF EQU AMWAJFL1 00172000 AMWALSTJ EQU AMWAJCLE+4 00173000 @NM00002 EQU AMWATXTE+9 00174000 @NM00001 EQU AMWATFL1 00175000 AMWATM80 EQU AMWATFL1 00176000 AMWATEOF EQU AMWATFL1 00177000 AMWALSTT EQU AMWATXTE+4 00178000 AMWAFSTT EQU AMWATXTE 00179000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00180000 @ENDDATA EQU * 00181000 END IEFJCDLT 00182000