IBM Support

ABENDU0044 in IVP job

Question & Answer


Question

ABENDU0044 in IVP job

Answer

An ABENDU0044 in STEP4 of the IVP job FABHIVP, which is the DLT0 initial load of the database, occurs when DBRC=FORCE is defined. If this occurs, make the following changes in the IVP job:

1. Add an allocation step of dummy RECONn datasets in STEP1B:


  • //STEP1B EXEC PGM=IDCAMS,REGION=512K,COND=EVEN
    //VSAMDD DD DISP=SHR,UNIT=SYSDA,
    // VOL=SER=VVVVVV
    //SYSPRINT DD SYSOUT=*
    //SYSIN DD *
    /* RECON ALLOCATION */
    DELETE (HPS.IVP.RECON1) CLUSTER ERASE PURGE
    DELETE (HPS.IVP.RECON2) CLUSTER ERASE PURGE
    DELETE (HPS.IVP.RECON3) CLUSTER ERASE PURGE
    SET MAXCC = 0
    DEFINE CLUSTER (NAME(HPS.IVP.RECON1) -
    INDEXED KEYS(32 0) -
    VOL(VVVVVV) CYL(1 1) FSPC(20 20) -
    SHR(3 3) SPANNED NOREUSE UNORDERED )
    DEFINE CLUSTER (NAME(HPS.IVP.RECON2) -
    INDEXED KEYS(32 0) -
    VOL(VVVVVV) CYL(1 1) FSPC(20 20) -
    SHR(3 3) SPANNED NOREUSE UNORDERED )
    DEFINE CLUSTER (NAME(HPS.IVP.RECON3) -
    INDEXED KEYS(32 0) -
    VOL(VVVVVV) CYL(1 1) FSPC(20 20) -
    SHR(3 3) SPANNED NOREUSE UNORDERED )
    /* DB ALLOCATION */
    DELETE (HPS.IVP.ESDSHDAM) CLUSTER
    DELETE (HPS.IVP.HSSRHDAM) CLUSTER
    SET MAXCC=0
    DEFINE CLUSTER (NAME(HPS.IVP.ESDSHDAM) -
    FILE(VSAMDD) -
    NONINDEXED -
    RECSZ (2041,2041) -
    CISZ(2048) -
    TRK(6) -
    VOL(VVVVVV) )
    DEFINE CLUSTER (NAME(HPS.IVP.HSSRHDAM) -
    FILE(VSAMDD) -
    NONINDEXED -
    RECORDSIZE (2041,2041) -
    CISZ(2048) -
    TRK(6) -
    VOL(VVVVVV))
    /*

2. Specify RECONn DD statements in the INT1 proc, in the FABHULU proc for STEP7, and in STEP8:
  • //RECON1 DD DISP=SHR,DSN=HPS.IVP.RECON1
    //RECON2 DD DISP=SHR,DSN=HPS.IVP.RECON2
    //RECON3 DD DISP=SHR,DSN=HPS.IVP.RECON3


  •  
3. Register ORDHDAM DB to RECON dataset with the INIT.DB command before STEP4:
  • //INITDB EXEC PGM=DSPURX00
    //STEPLIB DD DISP=SHR,DSN=IMS.SDFSRESL
    //SYSPRINT DD DUMMY
    //IMS DD DISP=(SHR,PASS),DSN=&&DBDLIB
    //RECON1 DD DISP=SHR,DSN=HPS.IVP.RECON1
    //RECON2 DD DISP=SHR,DSN=HPS.IVP.RECON2
    //RECON3 DD DISP=SHR,DSN=HPS.IVP.RECON3
    //SYSIN DD *
    INIT.RECON DASDUNIT(3390) TAPEUNIT(3390) NOCHECK
    INIT.DB DBD(ORDHDAM) SHARELVL(1)
    INIT.DBDS DBD(ORDHDAM) DDN(ESDSDATA) -
    DSN(HPS.IVP.ESDSHDAM) -
    GENMAX(3)
    /*

4. Register SSRHDAM DB to RECON dataset with the INIT.DB command before STEP7.
  • //INITDB2 EXEC PGM=DSPURX00
    //STEPLIB DD DISP=SHR,DSN=IMS.SDFSRESL
    //SYSPRINT DD DUMMY
    //IMS DD DISP=(SHR,PASS),DSN=&&DBDLIB2
    //RECON1 DD DISP=SHR,DSN=HPS.IVP.RECON1
    //RECON2 DD DISP=SHR,DSN=HPS.IVP.RECON2
    //RECON3 DD DISP=SHR,DSN=HPS.IVP.RECON3
    //SYSIN DD *
    INIT.DB DBD(SSRHDAM) SHARELVL(1)
    INIT.DBDS DBD(SSRHDAM) DDN(ESDSDATA) -
    DSN(HPS.IVP.HSSRHDAM) -
    GENMAX(3)
    /*


  •  
5. Change DBDS Record of DBD(ORDHDAM) from ICON to ICOFF before STEP5.
  • //ICOFF EXEC PGM=DSPURX00
    //STEPLIB DD DISP=SHR,DSN=IMS.SDFSRESL
    //SYSPRINT DD DUMMY
    //IMS DD DISP=(SHR,PASS),DSN=&&DBDLIB
    //RECON1 DD DISP=SHR,DSN=HPS.IVP.RECON1
    //RECON2 DD DISP=SHR,DSN=HPS.IVP.RECON2
    //RECON3 DD DISP=SHR,DSN=HPS.IVP.RECON3
    //SYSIN DD *
    CHANGE.DBDS DBD(ORDHDAM) DDN(ESDSDATA) ICOFF
    /*


  •  
6. Change DBRC parameter in the INT1 proc from N to Y.

  • // PARM='DLI,DFSDDLT0,&PSBL,0,,,,,,,,,,Y,N'


  •  
7. Change DBRC parameter in STEP7 ( for FABHURG1 ) from DBRC=N to DBRC=Y.
  • //STEP7 EXEC FABHULU,MBR=FABHURG1,DBD=ORDHDAM,DBRC=Y,IRLM=N,


  •  
8. Change DBRC parameter in STEP8 ( for DFSURGL0 ) from N to Y.
  • // PARM='ULU,DFSURGL0,SSRHDAM,,,,,,,,,,,Y,N'


  •  
9. Change DBRC parameter in STEP9 ( for FABHTEST ) from N to Y.
  • //STEP9 EXEC FABHULU,MBR=FABHTEST,DBD=SSRHDAM,DBRC=Y,IRLM=N,


  •  
10. Change IEFRDER DD statement in INT1 proc.
  • //IEFRDER DD DSN=&&IEFRDER,
    // DISP=(,DELETE),SPACE=(TRK,(1,1)),UNIT=SYSDA,
    // DCB=(RECFM=VBS,LRECL=3964,BLKSIZE=3968,DEN=3)


  •  

The IVP JCL will be changed in the next release of the product, rather than by a PTF for the current release. Because this creates a problem in IVP JCL, a fix provided by a PTF is effective only when you apply the PTF at the same time as the product installation.

[{"Line of Business":{"code":"LOB35","label":"Mainframe SW"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSAVHH","label":"IMS High Performance Unload for z\/OS"},"ARM Category":[{"code":"a8m0z000000cvYmAAI","label":"IMS High Performance Unload for z\/OS"}],"ARM Case Number":"","Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"All Version(s)"}]

Document Information

Modified date:
16 November 2020

UID

swg21144687