Hello,
I am trying receiving RSU in to system. My unzip step completed successfully, but in REC step I am getting below error for the insufficient space. But I am able to know, where exactly the system is getting insufficient space.

Error :
IEW4000I FETCH FOR MODULE IDCAMS FROM DDNAME -LNKLST- FAILED BECAUSE INSUFFICFFICIENT STORAGE WAS AVAILABLE. CSV031I LIBRARY ACCESS FAILED FOR MODULE IDCAMS , RETURN CODE 24, REASON CODE 26080021, DDNAME *LNKLST*


JCL used

//RSU1008C JOB (3623),'Saurabh',MSGCLASS=X,CLASS=A,
//             NOTIFY=&SYSUID
//UNZIP    EXEC PGM=GIMUNZIP,PARM='HASH=NO'
//SYSUT3   DD UNIT=3390,SPACE=(CYL,(100,50))
//SYSUT4   DD UNIT=3390,SPACE=(CYL,(100,50))
//SMPOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPDIR   DD PATH='/u/zos18',
//            PATHDISP=KEEP
//SYSIN    DD DATA,DLM=$$
<GIMUNZIP>
<ARCHDEF
name="SMPPTFIN/S0001.SHOPZ.S5192595.SMPMCS.pax.Z"
volume="SPACD9"
newname="SMPE.TEC1008.S5192595.SMPMCS">
</ARCHDEF>
<ARCHDEF
name="SMPHOLD/S0002.SHOPZ.S5192595.SMPHOLD.pax.Z"
volume="SPACD9"
newname="SMPE.TEC1008.S5192595.SMPHOLD">
</ARCHDEF>
</GIMUNZIP>
$$
//REC  EXEC PGM=IKJEFT01,COND=(4,LT,UNZIP)
//SMPCSI   DD DISP=SHR,
//            DSN=SMPE.BIN8.GLOBAL.CSI
//SMPPTS   DD DISP=OLD,
//            DSN=SMPE.BIN8.SMPPTS
//SMPOUT   DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SMPLOG   DD SYSOUT=*
//SMPLOGA  DD DUMMY
//SYSUT1   DD UNIT=3390,SPACE=(CYL,(100,50)),DISP=(,DELETE)
//SYSUT2   DD UNIT=3390,SPACE=(CYL,(100,50)),DISP=(,DELETE)
//SYSUT3   DD UNIT=3390,SPACE=(CYL,(100,50)),DISP=(,DELETE)
//SYSUT4   DD UNIT=3390,SPACE=(CYL,(100,50)),DISP=(,DELETE)
//SMPCNTL  DD DATA,DLM=$$
SET    BOUNDARY (GLOBAL)
              .
RECEIVE
              .
$$
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DATA,DLM=$$
ALLOC FI(SMPPTFIN) SHR DA('SMPE.TEC1008.S5192595.SMPMCS')
ALLOC FI(SMPHOLD)  SHR DA('SMPE.TEC1008.S5192595.SMPHOLD')
CALL *(GIMSMP)
$$

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to