Phoenix
New User
Joined: 27 Feb 2007 Posts: 20 Location: Chennai
|
|
|
|
Hi,
I wrote an IMS batch program (IMS - DB / DLI) to download two databases to two flat files in some required format. But while runtime JCL is abending with the abend code S000 and U0000.
I am unable to spot the error. The JCL is correct to my knowledge.
Prompt replies would be highly appreciated.
Cheers,
Phoenix |
|
Phoenix
New User
Joined: 27 Feb 2007 Posts: 20 Location: Chennai
|
|
|
|
Hi George,
The output datasets are not created at all and i am not able to get any output .
Actually we are expanding the database to include some new segments with the same old data. So we need to download the data to a flat file and then expand & reload it with another program. But it seems its not even touching the program at all.
The SYSOUT is not coming in the outlist so i guess the control is not reaching the program.
Heres' the JCL used to execute it.
Code: |
//STEPNAME EXEC PGM=DFSRRC00,PARM='DLI,PGMNAME,PSBNAME,50,00'
//DFSRESLB DD DSN=IMS.RESLIB,DISP=SHR
//IMS DD DSN=IMS.P.DBDLIB,DISP=SHR
// DD DSN=IMS.P.PSBLIB,DISP=SHR
//IEFRDER DD DUMMY
//SYSUDUMP DD SYSOUT=*
//DATABAS1 DD DSN=DATABASE.FIRST,DISP=SHR
//INDEX1 DD DSN=VSAM.INDEXFOR.DATABASE.FIRST,DISP=SHR
//DATABAS2 DD DSN=DATABASE.SECOND,DISP=SHR
//DATABAS3 DD DSN=DATABASE.THIRD,DISP=SHR
//INDEX1 DD DSN=VSAM.INDEXFOR.DATABASE.THIRD,DISP=SHR
//OUTONE DD DSN=OUTPUT.TEST.DOWNLOAD.ONE.
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE),
// RECFM=FB,LRECL=055,BLKSIZE=0
//OUTTWO DD DSN=OUTPUT.TEST.DOWNLOAD.TWO,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(100,10),RLSE),
// RECFM=FB,LRECL=135,BLKSIZE=0
//DFSVSAMP DD *
IOBF=(4096,10)
IOBF=(8192,10)
2048,5
4096,5
/*
//CNTLPAGE DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
// |
Hope this aids in a better understanding |
|