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:
2. Specify RECONn DD statements in the INT1 proc, in the FABHULU proc for STEP7, and in STEP8:
4. Register SSRHDAM DB to RECON dataset with the INIT.DB command before STEP7.
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.
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
- //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)
/*
- //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
/*
- // PARM='DLI,DFSDDLT0,&PSBL,0,,,,,,,,,,Y,N'
- //STEP7 EXEC FABHULU,MBR=FABHURG1,DBD=ORDHDAM,DBRC=Y,IRLM=N,
- // PARM='ULU,DFSURGL0,SSRHDAM,,,,,,,,,,,Y,N'
- //STEP9 EXEC FABHULU,MBR=FABHTEST,DBD=SSRHDAM,DBRC=Y,IRLM=N,
- //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)"}]
Was this topic helpful?
Document Information
Modified date:
16 November 2020
UID
swg21144687