MVSFORUMS.com

mrinalsolanki · Beginner Joined: 02 May 2006 Posts: 56 Topics: 16

Hi All,

I am getting the error mentioned below when i tried to make a gdg and its version.Please help me to get out of this.

ERROR:

Cogito-Ergo-Sum · Posted: Fri Nov 24, 2006 6:37 am Post subject:

In your step to create the GDG, put the name in quotes and try.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

mrinalsolanki · Beginner Joined: 02 May 2006 Posts: 56 Topics: 16

cogito-ergp-sum,

Can you please specify the step name and the exact syntax?

Cogito-Ergo-Sum · Posted: Fri Nov 24, 2006 7:42 am Post subject:

NAME operand of DEFINE statement in STEP1.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

nevilh · Beginner Joined: 11 Aug 2004 Posts: 115 Topics: 0

Could it be that in step3 you are executing IEBFR14 instead of IEFBR14 or that model.dcb does not exist .

shekar123 · Posted: Fri Nov 24, 2006 12:41 pm Post subject:

nevilh,

I am running the same code for JCL and i am getting error in STEP2 as below:

vjkumk · Beginner Joined: 28 Sep 2005 Posts: 98 Topics: 33

Hi,

1)make sure you are giving your HLQ correctly.

2) I also see the Referback as model.dcb instead of MODEL1.DCB(Instead of giving model.dcb in step3, you can create a PS with the needed RECFM and LRECL and you can give that in the dcb as follows

//INFILE DD DSN=TEST.GDG06(+1),
// DISP=(NEW,CATLG,DELETE),
//* UNIT=SYSDA,
// SPACE=(TRK,(20,10),RLSE),
// DCB=(test.myfile)

I assume i want to create a gdg of LRECL 80 and RECFM FB,so test.myfile has to be created with those DCB values.So that it takes the attributes of test.myfile to create the GDG.

3)Add a step before STEP1 to delete any previously created GDG of same convention.So you dont get any message like Duplicate dataset exists in catalog.

//delgdg exec pgm = idcams
//sysprint dd sysout=*
//sysin dd *
delete (TEST.GDG06) GDG force purge
IF MAXCC GT 0
THEN
SET MAXCC=0
/*
//add the remaining steps.

Cheers,
VJ

mrinalsolanki · Beginner Joined: 02 May 2006 Posts: 56 Topics: 16

hi all,

mrinalsolanki · Beginner Joined: 02 May 2006 Posts: 56 Topics: 16

The above error message is wrong .Attached is the correct error message:

vjkumk · Beginner Joined: 28 Sep 2005 Posts: 98 Topics: 33

1)try this,the first delete statement deletes all the versions of that GDG
2)the second delete statement,deletes the GDG base if created any,the AMS modal command is used to set the return code.

//delgdg exec pgm = idcams
//sysprint dd sysout=*
//sysin dd *
delete TEST.GDG06.* purge
delete TEST.GDG06 GDG FORCE
IF MAXCC lt 9 THEN set maxcc eq 0 else set maxcc eq 16
/*
//add the remaining steps.

Cheers,
VJ

mrinalsolanki · Beginner Joined: 02 May 2006 Posts: 56 Topics: 16

hi vjkumk,

Your solution is working fine .
I have one question.If i want to delete theversion and gdgbase and if suppose that version and gdg is already deleted then how should i set the if else statements to skip that .

thanks and regards

Mrinal

kolusu · Posted: Mon Nov 27, 2006 6:16 am Post subject:

mrinalsolanki,

If the GDG Base is already deleted the return code will be 8. So check for the return code in the IF statement.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

seemajena · Posted: Mon Nov 27, 2006 7:03 am Post subject:

hi all,

I am getting the error while submitting the JCL here proc 1 is a cataloged proc and called by JCL The main problem is in Proc.

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Please follow the forum rules and start a new topic.

mrinalsolanki · Beginner Joined: 02 May 2006 Posts: 56 Topics: 16

hi kolusu,

Your suggestion is working fine.i have one more problem and that is as follows:
If i want to print some message after if statement then what should be the syntax?
My if statement is in sysin.

thanks

Mrinal