Mainframe, MVS and zOS Discussion

Posted: **Thu Feb 25, 2021 4:41 pm**

Hi,

Is there a way that using ISPF 3.4 we can locate only the GDG bases? I mean when I use wild card it shows the generations also.

The problem I have is - I want to pick only the GDG bases - every base has got may generations for it - so it takes many iterations to reach to next GDGD base, if I could locate only the bases it could have been easier.

Posted: **Wed Mar 03, 2021 12:29 pm**

Hi,

Not an ISPF 3.4 solution, however, see if this works for you:

Code: Select all

//STEP01 EXEC PGM=IKJEFT01                             
//*                                                     
//SYSTSPRT DD DSN=&L,                                   
//            DISP=(,PASS),                             
//            SPACE=(CYL,(??,??),RLSE),                   
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)         
//SYSTSIN  DD *                                         
  LISTCAT LEVEL('gdg.base.criteria') ALL   
//*
//STEP0200 EXEC  PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=&L,DISP=(OLD,DELETE)
//SORTOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=COPY
  INCLUDE COND=(1,8,CH,EQ,C'GDG BASE')
  OUTREC FIELDS=(17,36)
/*

Posted: **Wed Apr 21, 2021 11:17 pm**

This is great piece of code, Thanks Anuj!

Posted: **Wed Apr 28, 2021 1:53 pm**

You're welcome Ashish.

Mainframe, MVS and zOS Discussion

Locating only GDG bases.

Locating only GDG bases.

Re: Locating only GDG bases.

Re: Locating only GDG bases.

Re: Locating only GDG bases.