View previous topic :: View next topic
Author
Message
subhasis_50 Moderator Joined: 09 Mar 2005Posts: 363 Location: Earth
Hi,
I am executing a step in my JCL. The program is in assembler & IMS. There is one internal sort in the program. Previously temporary files are used for that purpose. That is program is creating the file and sort it. After that a FTP step, which will FTP the sorted file to a server.
My requirement is to create the file as GDG. But i am getting JCL error.
The JCL is as following:
Code:
//STEP1 EXEC PGM=DFSRRC00,
// PARM=&CAPARM
//STEPLIB DD DSN=
// DD DSN=IMSMAT1.RESLIB,DISP=SHR
// DD DSN=IMSMAT1.APPL.RESLIB,DISP=SHR
// DD DSN=IMSMAT1.SYSTEM.RESLIB,DISP=SHR
//IMS DD DISP=SHR,DSN=
// DD DSN=IMSMAT1.DBDLIB,DISP=SHR
// DD DSN=IMSMAT1.PSBLIB,DISP=SHR
//DFSVSAMP DD DSN=TEST.APPLIB.PROCCARD
// (ABMVSAM4),DISP=SHR
//IEFRDER DD DCB=(TRTCH=NOCOMP,RECFM=VB,
// LRECL=10236,BLKSIZE=16000),
// DISP=(,PASS,),
// DSN=&&TESTLOG,
// UNIT=TAPE,
// VOL=(,RETAIN,,10)
//IEFRDER2 DD DUMMY
//DFSRESLB DD DSN=IMSMAT1.RESLIB,DISP=SHR
//SYSOUT DD SYSOUT=T
//SYSUDUMP DD SYSOUT=T
//INFILE DD DISP=SHR,DSN=TEST.FILE.HIST2
//INFILE1 DD DISP=SHR,DSN=TEST.FILE1.G0198.CYC
//INFILE2 DD DISP=SHR,DSN=TEST.ABA01V.HIST3
//INFILE3 DD DISP=SHR,DSN=TEST.ABA01V.REVMON
[b]//OUTFILE DD DSN=TEST.OUT.FILE(+1), [/b]
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=90,BLKSIZE=0),
// UNIT=DISK,
// SPACE=(CYL,(5,1),RLSE)
[b]//SORTIN DD DISP=SHR,DSN=TEST.OUT.FILE(+1)[/b]
//SORTOUT DD DSN=&&TEMSORT,
// DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=296,BLKSIZE=8880,BUFNO=2)
But when i am giving the GDG in the sortin step, it shows JCL error, Disp parameter is invalid. How can i solve that problem.
Back to top
avalanches New User Joined: 10 May 2005Posts: 28
Just curious if you have tried changing the DISP parameter to OLD. I guess that could solve your problem.
Back to top
subhasis_50 Moderator Joined: 09 Mar 2005Posts: 363 Location: Earth
Hi,
I have tried it. But old is also not taken.
Back to top
SteveConway New User Joined: 26 May 2005Posts: 28 Location: Northern VA, USA
You can not create a +1 GDG in a job step and reference it in the same step with a different DD.
Here's a workaround. Create the dataset as a standard sequential file, DISP=(NEW,CATLG,DELETE).
Code:
//OUTFILE DD DSN=TEST.OUT.TEMP,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=90,BLKSIZE=0),
// UNIT=DISK,
// SPACE=(CYL,(5,1),RLSE)
//SORTIN DD DISP=SHR,DSN=TEST.OUT.TEMP
Add an IEBGENER step following your current step to make the GDG.
Code:
//CRE8GDG PGM=IEBGENER
//*
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=TEST.OUT.TEMP
//SYSUT2 DD DSN=TEST.OUT.FILE(+1),
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=90,BLKSIZE=0),
// UNIT=DISK,
// SPACE=(CYL,(5,1),RLSE)
//SYSIN DD DUMMY
Cheers,,,Steve
Back to top
subhasis_50 Moderator Joined: 09 Mar 2005Posts: 363 Location: Earth
Hi,
Thanks a lot Steve.
Back to top
SteveConway New User Joined: 26 May 2005Posts: 28 Location: Northern VA, USA
You're welcome.
Back to top
Please enable JavaScript!