MVSFORUMS.com

[santa]

Hi,

I am trying to make a generic job which will create a GDG base and the next file version. I wish to pass GDG file through parm while creating both GDG base using IDCAMS and Next version using IEBGENER.

As a work around, i tried creating a PASS file with the name same as that of GDG base to be created. This file will not have any space allocated for it. Then use the DD name for file in IDCAMS instream command and create GDG.

//STEP010 EXEC PGM=IDCAMS
//GDGMOD1 DD DSNAME=COSBATCH.OT22115D.SGSFEED,
// DISP=(,PASS),
// SPACE=(TRK,(0)),
// DCB=(RECFM=&RECFM,BLKSIZE=&BLKSIZE,LRECL=&LRECL)
//SYSPRINT DD SYSOUT=&SOUT
//SYSIN DD DSN=COSO110.APPL.PARMS(&PARM1),
// DISP=SHR



Parm 1:

DELETE GDGMOD1 GDG
IF MAXCC LT 9 THEN SET MAXCC = 0
DEFINE GDG(NAME(GDGMOD1) -
LIMIT (7) -
NOEMPTY -
SCRATCH )

However, I am encountering following error messages:


DEFINE GDG(NAME(GDGMOD1) -
LIMIT (7) -
NOEMPTY -
SCRATCH )
IDC3018I SECURITY VERIFICATION FAILED
IDC3009I ** VSAM CATALOG RETURN CODE IS 56 - REASON CODE IS IGG0CLFT-6
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12


IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12


I am not sure if the approach taken is correct here. Can you please enlighten me on the nature of problem and possible solutions

[expat]

Why do you want to delete the GDG base and redefine it every time ?

If you are hoping to use the GDGMOD1 DD name as a reference to be used by the IDCAMS statements, then it will not work, which probably explains the RACF error that you get, as there is probably no profile for resource GDGMOD1.

To be honest, I'm not sure that the delete would work if there were any generations of the GDG in existence. You would probably need to have the FORCE and/or PURGE parameters, and also the authority to use them.

You could use REXX as an easy way

//REXXSTEP EXEC PGM=IKJEFT01,PARM='gdg base name'

To do the following
a) Check to see if the base already exists
b) Act accordingly if (a) = Y
c) Define the GDG base
d) Define the G0001V00 dataset

Gentle hint