anyone else, can you help me resolve this DB2 utility error?
Posted: Thu Apr 15, 2010 12:28 pm
the DB2 utility in PS530 of my job below KPKJS20T does not like the JCL parameter. It abends 'S04E' and issues the following error message. I was suspecting that maybe the utility does not like the underscore character in the new DB2 table name.I have tried specifying this parm other ways too, but with no success.
please any one can help on this
INTO TABLE DSCMPROD.ITS_CNTL
please any one can help on this
//*
//CAVIEW OUTPUT JESDS=ALL
//NONPRINT OUTPUT DEST=NONPRINT,DEFAULT=Y
//STANDARD OUTPUT DEST=LOCAL,JESDS=ALL,DEFAULT=Y,CLASS=Y
//*
//*********************************************************************
//* THIS JOB BACKS UP AND RESETS VARIOUS FILES FOR ITS REAL TIME
//* ADJUDICATION
//*
//* SIMILAR TEST JOB - TDSCM.HRBSM.USRJCL(TEST02DD) (B.LAPAGE)
//*********************************************************************
//*
//JS005 EXEC PGM=IKJEFT1B,DYNAMNBR=20 **SPUFI DUMP
//STEPLIB DD DISP=SHR,DSN=D2T1.DSNEXIT
// DD DISP=SHR,DSN=D2T1.DSNLOAD
//SYSIN DD *
SELECT *
FROM DSC1TEST.ITS_CNTL
//SYSTSPRT DD SYSOUT=*
//*
//*YSPRINT DD SYSOUT=*
//SYSPRINT DD DSN=TDSCM.KPK.TEMPFL2(+1),
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=MC001608, PERMDA:PRIMRY=5 NONUSE EXP=15
// SPACE=(27998,(75,50),RLSE),
// DCB=(SYS3.DSCB,
// LRECL=133,BLKSIZE=13300,RECFM=FBA)
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(D2T1)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2)
END
//*
//*********************************************************************
//*
//PS510 EXEC PGM=IKJEFT01 **UNLD ITS_CNTL*
//STEPLIB DD DSN=D2T1.DSNEXIT,
// DISP=(SHR,PASS,KEEP)
// DD DSN=D2T1.DSNLOAD,
// DISP=(SHR,PASS,KEEP)
//SYSPUNCH DD SYSOUT=*
//SYSREC00 DD DSN=TDSCM.KPK.TEMPFL3(+1), ITS_CNTL UNLOAD
// DISP=(NEW,CATLG,DELETE),
// MGMTCLAS=MC002400,
// VOL=(,,,9),
// SPACE=(27998,(500,250),RLSE),
//* DCB=BUFNO=30,
// DCB=(SYS3.DSCB)
//*YSTSIN DD DSN=PDSCM.HRBSM.VCYC.SYSIN(HRSI20P1), SQL ENVIRONMENT
//* DISP=(SHR,KEEP,KEEP)
//SYSTSIN DD *
DSN SYSTEM(D2T1)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL') -
LIB('D2T1.DSNLOAD')
/*
//*YSIN DD DSN=PDSCM.HRBSM.VCYC.SYSIN(HRSI20P2), UNLOAD SELECT
//* DISP=(SHR,KEEP,KEEP)
//SYSIN DD *
SELECT *
FROM DSC1TEST.ITS_CNTL
ORDER BY CNTL_NUM,
HOST_HOME_IND,
RECORD_TYPE
;
/*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=6,OUTPUT=(*.NONPRINT)
//*
//PS520 EXEC PGM=WAAPABND, **ABEND IF BAD **
// COND=(4,GE,PS510),
// PARM='1000,ERROR EXTRACTING RECS FROM ITS_CNTL DB'
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=(,),OUTPUT=(*.NONPRINT)
//*
//PS530 EXEC PGM=DSNUTILB, **EMPTY ITSCNTL**
// PARM=(D2T1,'ITS_CNTL') *CLEANUP DCDT TBL
//***
//****** PARM=(D2T1,'ITS_CNTL',RESTART(PHASE)) <- AFTER ABEND
//***
//STEPLIB DD DSN=D2T1.DSNEXIT,
// DISP=(SHR,KEEP,KEEP)
// DD DSN=D2T1.DSNLOAD,
// DISP=(SHR,KEEP,KEEP)
//SORTLIB DD DSN=SYS1.SORTLIB,
// DISP=(SHR,KEEP,KEEP)
//SORTWK01 DD DSN=TDSCM.KPKDB.SDCM20CT.SORTWK01,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SORTOUT DD DSN=TDSCM.KPKDB.SDCM20CT.SORTOUT,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SYSUT1 DD DSN=TDSCM.KPKDB.WDCM20CT.SYSUT1,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SYSMAP DD DSN=TDSCM.KPKDB.WDCM20CT.SYSMAP,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SYSDISC DD DSN=TDSCM.KPKDB.SDCM20CT.SYSDISC,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SYSERR DD DSN=TDSCM.KPKDB.SDCM20CT.SYSERR,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SYSREC00 DD DUMMY
//*YSIN DD DSN=PDSCM.HRBSM.VCYC.SYSIN(HRSI20P3), REPL WITH DUMMY
//* DISP=(SHR,KEEP,KEEP)
//SYSIN DD *
LOAD DATA INDDN SYSREC00 REPLACE LOG YES
INTO TABLE DSC1TEST.ITS_CNTL
/*
//UTPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=6,OUTPUT=(*.NONPRINT)
//*
//PS540 EXEC PGM=WAAPABND, **ABEND IF BAD **
// COND=(4,GE,PS530),
// PARM='5000,ERROR WHILE EMPTYING ITS_CNTL DB'
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=(,),OUTPUT=*.NONPRINT
//*
//********************************************************************
//JS800 EXEC PGM=IKJEFT1B,DYNAMNBR=20 **SPUFI DUMP
//STEPLIB DD DISP=SHR,DSN=D2T1.DSNEXIT
// DD DISP=SHR,DSN=D2T1.DSNLOAD
//SYSIN DD *
SELECT *
FROM DSC1TEST.ITS_CNTL
//SYSTSPRT DD SYSOUT=*
//*
//*YSPRINT DD SYSOUT=*
//SYSPRINT DD DSN=TDSCM.KPK.TEMPFL4(+1),
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=MC001608, PERMDA:PRIMRY=5 NONUSE EXP=15
// SPACE=(27998,(75,50),RLSE),
// DCB=(SYS3.DSCB,
// LRECL=133,BLKSIZE=13300,RECFM=FBA)
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(D2T1)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2)
END
//*
//
//CAVIEW OUTPUT JESDS=ALL
//NONPRINT OUTPUT DEST=NONPRINT,DEFAULT=Y
//STANDARD OUTPUT DEST=LOCAL,JESDS=ALL,DEFAULT=Y,CLASS=Y
//*
//*********************************************************************
//* THIS JOB BACKS UP AND RESETS VARIOUS FILES FOR ITS REAL TIME
//* ADJUDICATION
//*
//* SIMILAR TEST JOB - TDSCM.HRBSM.USRJCL(TEST02DD) (B.LAPAGE)
//*********************************************************************
//*
//JS005 EXEC PGM=IKJEFT1B,DYNAMNBR=20 **SPUFI DUMP
//STEPLIB DD DISP=SHR,DSN=D2T1.DSNEXIT
// DD DISP=SHR,DSN=D2T1.DSNLOAD
//SYSIN DD *
SELECT *
FROM DSC1TEST.ITS_CNTL
//SYSTSPRT DD SYSOUT=*
//*
//*YSPRINT DD SYSOUT=*
//SYSPRINT DD DSN=TDSCM.KPK.TEMPFL2(+1),
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=MC001608, PERMDA:PRIMRY=5 NONUSE EXP=15
// SPACE=(27998,(75,50),RLSE),
// DCB=(SYS3.DSCB,
// LRECL=133,BLKSIZE=13300,RECFM=FBA)
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(D2T1)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2)
END
//*
//*********************************************************************
//*
//PS510 EXEC PGM=IKJEFT01 **UNLD ITS_CNTL*
//STEPLIB DD DSN=D2T1.DSNEXIT,
// DISP=(SHR,PASS,KEEP)
// DD DSN=D2T1.DSNLOAD,
// DISP=(SHR,PASS,KEEP)
//SYSPUNCH DD SYSOUT=*
//SYSREC00 DD DSN=TDSCM.KPK.TEMPFL3(+1), ITS_CNTL UNLOAD
// DISP=(NEW,CATLG,DELETE),
// MGMTCLAS=MC002400,
// VOL=(,,,9),
// SPACE=(27998,(500,250),RLSE),
//* DCB=BUFNO=30,
// DCB=(SYS3.DSCB)
//*YSTSIN DD DSN=PDSCM.HRBSM.VCYC.SYSIN(HRSI20P1), SQL ENVIRONMENT
//* DISP=(SHR,KEEP,KEEP)
//SYSTSIN DD *
DSN SYSTEM(D2T1)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL') -
LIB('D2T1.DSNLOAD')
/*
//*YSIN DD DSN=PDSCM.HRBSM.VCYC.SYSIN(HRSI20P2), UNLOAD SELECT
//* DISP=(SHR,KEEP,KEEP)
//SYSIN DD *
SELECT *
FROM DSC1TEST.ITS_CNTL
ORDER BY CNTL_NUM,
HOST_HOME_IND,
RECORD_TYPE
;
/*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=6,OUTPUT=(*.NONPRINT)
//*
//PS520 EXEC PGM=WAAPABND, **ABEND IF BAD **
// COND=(4,GE,PS510),
// PARM='1000,ERROR EXTRACTING RECS FROM ITS_CNTL DB'
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=(,),OUTPUT=(*.NONPRINT)
//*
//PS530 EXEC PGM=DSNUTILB, **EMPTY ITSCNTL**
// PARM=(D2T1,'ITS_CNTL') *CLEANUP DCDT TBL
//***
//****** PARM=(D2T1,'ITS_CNTL',RESTART(PHASE)) <- AFTER ABEND
//***
//STEPLIB DD DSN=D2T1.DSNEXIT,
// DISP=(SHR,KEEP,KEEP)
// DD DSN=D2T1.DSNLOAD,
// DISP=(SHR,KEEP,KEEP)
//SORTLIB DD DSN=SYS1.SORTLIB,
// DISP=(SHR,KEEP,KEEP)
//SORTWK01 DD DSN=TDSCM.KPKDB.SDCM20CT.SORTWK01,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SORTOUT DD DSN=TDSCM.KPKDB.SDCM20CT.SORTOUT,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SYSUT1 DD DSN=TDSCM.KPKDB.WDCM20CT.SYSUT1,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SYSMAP DD DSN=TDSCM.KPKDB.WDCM20CT.SYSMAP,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SYSDISC DD DSN=TDSCM.KPKDB.SDCM20CT.SYSDISC,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SYSERR DD DSN=TDSCM.KPKDB.SDCM20CT.SYSERR,
// DISP=(MOD,DELETE,CATLG),
// MGMTCLAS=MC0008,
// VOL=(,,,9),
// SPACE=(27998,(500,250))
//SYSREC00 DD DUMMY
//*YSIN DD DSN=PDSCM.HRBSM.VCYC.SYSIN(HRSI20P3), REPL WITH DUMMY
//* DISP=(SHR,KEEP,KEEP)
//SYSIN DD *
LOAD DATA INDDN SYSREC00 REPLACE LOG YES
INTO TABLE DSC1TEST.ITS_CNTL
/*
//UTPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=6,OUTPUT=(*.NONPRINT)
//*
//PS540 EXEC PGM=WAAPABND, **ABEND IF BAD **
// COND=(4,GE,PS530),
// PARM='5000,ERROR WHILE EMPTYING ITS_CNTL DB'
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=(,),OUTPUT=*.NONPRINT
//*
//********************************************************************
//JS800 EXEC PGM=IKJEFT1B,DYNAMNBR=20 **SPUFI DUMP
//STEPLIB DD DISP=SHR,DSN=D2T1.DSNEXIT
// DD DISP=SHR,DSN=D2T1.DSNLOAD
//SYSIN DD *
SELECT *
FROM DSC1TEST.ITS_CNTL
//SYSTSPRT DD SYSOUT=*
//*
//*YSPRINT DD SYSOUT=*
//SYSPRINT DD DSN=TDSCM.KPK.TEMPFL4(+1),
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=MC001608, PERMDA:PRIMRY=5 NONUSE EXP=15
// SPACE=(27998,(75,50),RLSE),
// DCB=(SYS3.DSCB,
// LRECL=133,BLKSIZE=13300,RECFM=FBA)
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(D2T1)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2)
END
//*
//
INTO TABLE DSCMPROD.ITS_CNTL