To find if a GDG has any generations, RC4

GaganGarg · Active User Joined: 31 Mar 2010 Posts: 134 Location: India

Hi expat,
I tried to run the JCL from How to find in JCL, whether a GDG has any generations? but each time i am facing the same retun code RC=4. Here my Input GDG base name is OPERA.TEST1.BKUP generations exist which are associated with this GDG base name :

expat · Posted: Mon Apr 19, 2010 5:30 pm

How did you work out that the include should start 1n position 36

GaganGarg · Active User Joined: 31 Mar 2010 Posts: 134 Location: India

Instead of using the temporary dataset, i used a PS file in which i collected the LISTCAT information. and this PS file i provided as the input.
From this PS file, i come to know about include condition.
Sorry, earlier i gave wrong file names as i had typed the file names, volume etc manually. sorry for inconvenience. Please find below the contents of the PS file:

expat · Posted: Mon Apr 19, 2010 6:24 pm

And what is the RECFM of the file ?

GaganGarg · Active User Joined: 31 Mar 2010 Posts: 134 Location: India

RECFM is VBA and LRECL is 200.
Actually RECFM is changing after executing the IDCAMS step. Before submitting the JCL, I gave the PS file in IDCAMS step to collect LISTCAT information with LRECL=200 and RECFM=FB.
but after executing the JCL, THis PS file is found to be having the RECFM=VBA. I mean, it is changing after executing the JCL from FB to VBA.

Anuj Dhawan · Posted: Mon Apr 19, 2010 7:53 pm

Gagan - In an IDCAMS step SYSPRINT DD is IDCAMS Messages file and is RECFM=VBA. If you check, LRECL should be 125. That's the leagcy of IDCAMS and you can't change it, whatever is happening is normal.

expat · Posted: Mon Apr 19, 2010 7:57 pm

Because the file is VB you need to add 4 to the positions specified to account for the RDW. So pos 36 becomes pos 40.

Anuj Dhawan · Posted: Mon Apr 19, 2010 8:20 pm

I just went through the entire thread, it was quite lengthy to read... just thinking, in the JCL from expat, what if you check the RC from IDCAMS step, if it is RC=0004 don't execute SORT step else execute it - shouldn't this suffice for the original request. Though, I might miss something, as I said it was a lengthy-read.

expat · Posted: Mon Apr 19, 2010 8:25 pm

Unfortunately if the GDG base exists then the LISTCAT RC will be 0.

Anuj Dhawan · Posted: Mon Apr 19, 2010 8:37 pm

oh Martin, looks like Beer you offered me is still showing its effect

. However, if what if we use

GaganGarg · Active User Joined: 31 Mar 2010 Posts: 134 Location: India

Hi Expat/Anuj,
Thanks a lot. It is working now. Solution provided by Anuj is aloso handling the RC=4 for GDGs having no generations associated with it.
Thanks all.

Anuj Dhawan · Posted: Tue Apr 20, 2010 5:51 pm

GaganGarg · Active User Joined: 31 Mar 2010 Posts: 134 Location: India

Hi Anuj,
RECFM was VBA and i was not considering the 4 additional bytes for VBA format. I added 4 to the starting positions whatever i gave in include cond first i.e. I gave INCLUDE COND=(40,2,CH,EQ,C'.G',AND,46,3,CH,EQ,C'V00'). And i also used solution provided by you incase if there is no generation associated with GDG base. ( i.e. I used LISTCAT LVL(some.gdg.base.without.generation) ALL instead of LISTCAT ENT('OPERA12.TEST1.BKUP') GDG ALL )

Thanks

GaganGarg · Active User Joined: 31 Mar 2010 Posts: 134 Location: India

or i thought it is better to use INCLUDE COND=(13,7,CH,EQ,C'NONVSAM') as it adds the flexibility to the JCL regardless of changing the INCLUDE COND everytime if GDG base name changes. I mean another GDG base name may by of different length.

Anuj Dhawan · Posted: Tue Apr 20, 2010 6:45 pm

Good, thanks for the follow up.