//MS00100 JOB (SYS),'USERMOD: MS00100 ', // CLASS=S, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=4096K /*JOBPARM LINES=100 //JOBLIB DD DISP=SHR,DSN=SYS1.LINKLIB //RECEIVE EXEC SMPREC,WORK='SYSALLDA' //SMPPTFIN DD DATA,DLM='><' ++USERMOD(MS00100). ++VER(Z038) FMID(EBB1102) /* PROBLEM DESCRIPTION(S): DURING NIP PARMLIB LINK LIST CONCATENATION PROCESSING, LIBRARIES INCLUDED MUST BE CATALOGUED IN THE MASTER CATALOG OR THEY WILL NOT BE LOCATED AND THE ENTRY WILL BE IGNORED. THIS MODIFICATION ALLOWS THE INCLUSION OF A VOLUME SERIAL NUMBER IN PARENTHESES IMMEDIATELY AFTER THE LIBRARY NAME WHICH IS USED TO LOCATE THE LIBRARY. EXAMPLE: SYSC.LINKLIB(SYSCPK) COMPONENT: 5752-VS2-EBB1102 SPECIAL CONDITIONS: ACTION: AN IPL IS REQUIRED FOLLOWING THE SUCCESSFUL APPLICATION. COMMENTS: REWORKED FROM JAMES PURDY ORIGINAL, SOURCE: SPLA FILE #030, COPY OBTAINED FROM CBT OVERFLOW V466 FILE #130. LAST CHANGE: 2020/05/19 JAY MOSELEY THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD: MODULES SYS1.NUCLEUS(IEAVNP03) MACROS */. ++ZAP(IEAVNP03) DISTLIB(AOSC5). NAME IEAVNP03 IEAVNP03 IDRDATA MS00100 * NP3LCLOC EQU * VER 0CAE 58A0,CCD7 L @10,LCNAMPTR * ORG IEAVNP03+X'CD2' * NP3LCLXT EQU * VER 0CD2 4180,8033 LA SCANREG,51(,SCANREG) * ORG IEAVNP03+X'CAE' REP 0CAE 47F0,D748 B PATCHLOC * ORG IEAVNP03+X'2768' * PATCHLOC EQU * REP 2768 41F0,0024 LA @15,36 * SCANLPAR EQU * REP 276C 41AF,8001 LA @10,1(@15,SCANREG) REP 2770 954D,A000 CLI 0(@10),C'(' REP 2774 4780,D760 BE FOUND REP 2778 46F0,D74C BCT @15,SCANLPAR REP 277C 47F0,D768 B NOTFOUND * FOUND EQU * REP 2780 955D,A007 CLI 7(@10),C')' REP 2784 4780,D770 BE MOVEVOL * NOTFOUND EQU * REP 2788 58A0,CCD7 L @10,LCNAMPTR REP 278C 47F0,BC90 B NP3LCLOC+4 * MOVEVOL EQU * REP 2790 D205,802D,A001 MVC LNKVOLID(6,SCANREG),1(@10) REP 2796 9240,A000 MVI 0(@10),C' ' REP 279A D206,A001,A000 MVC 1(7,@10),0(@10) REP 27A0 1FFF SLR @15,@15 REP 27A2 47F0,BCB0 B NP3LCLXT * DECK PRODUCED BY THE ASMTOZAP UTILITY 20/05/19 170131 >< //SMPCNTL DD * REJECT S(MS00100) . RESETRC . RECEIVE S(MS00100) . //* //APPLYCK EXEC SMPAPP,WORK='SYSALLDA' //SMPCNTL DD * APPLY S(MS00100) CHECK . //* //APPLY EXEC SMPAPP,COND=(0,NE,APPLYCK.HMASMP),WORK='SYSALLDA' //SMPCNTL DD * APPLY S(MS00100) DIS(WRITE) COMPRESS(ALL) . //* //