Locating only GDG bases.

[Ashish Pawar]

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.

[Anuj Dhawan]

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)
/*

[Ashish Pawar]

This is great piece of code, Thanks Anuj!

[Anuj Dhawan]

You're welcome Ashish.