TSO Command to find the latest version of a GDG

bharathsb · New User Joined: 23 Feb 2006 Posts: 3

Is there any TSO command to find the latest version of a GDG?

For Eg: If the base GDG is A000.TEST.TEMP and the versions of the GDG are
A000.TEST.TEMP.G0000.V00
A000.TEST.TEMP.G0000.V01
A000.TEST.TEMP.G0000.V02
A000.TEST.TEMP.G0000.V03
A000.TEST.TEMP.G0000.V04
A000.TEST.TEMP.G0000.V05

By using a TSO command I should be able to get the following Dataset name A000.TEST.TEMP.G0000.V05

Regards,
Bharath

superk · Posted: Thu Mar 16, 2006 2:45 pm

TSO LISTCAT LVL(GDG.BASE)

bharathsb · New User Joined: 23 Feb 2006 Posts: 3

Thanks Superk,
The command TSO LISTCAT(GDG-BASE) lists all the GDG versions. To get the latest version alone I couldn't find any TSO command. But still we can achieve that by coding in REXX

surjeet kumar singh · New User Joined: 27 Apr 2006 Posts: 2

HI all,

I ran TSO LISTCAT LVL(GDG.BASE) for a GDG base but that had many record, may be 20000. It is showingt all the GDGs screen by screen followed by three * i.e. *** and that means i will have to press <enter> everytime to see the next screen.

I dont want to see all the screens as the number will ne many. Please suggest me a commant on *** to come out of this screen cycle.

Thanks in advance.

superk · Posted: Thu Apr 27, 2006 3:50 pm

1. Run the LISTCAT in batch, so all the output goes to SYSOUT instead of your terminal.

2. Write a CLIST or REXX exec that uses the OUTTRAP function to capture and store the output from the LISTCAT command instead of displaying it on the terminal.

3. (Not yet tested) You may be able to allocate SYSPRINT to somewhere else other than your terminal (i.e. SYSOUT or a dataset). This will definitely work if you call IDCAMS first:

TSO ALLOC DD(SYSPRINT) SYSOUT(A) REU
TSO CALL *(IDCAMS)
>input prompt
LISTCAT LVL(GDG.BASE)
>input prompt
/*

surjeet kumar singh · New User Joined: 27 Apr 2006 Posts: 2

Thanks for the reply!!

I will try doing that next time.