isnehil Warnings : 1 New User
Joined: 10 Oct 2007 Posts: 23 Location: mumbai
|
|
|
|
Hi all,
I am trying to find the space taken by the latest GDG version, if a gDG base is provided to the rexx program.
I guess it could be done through LMDLIST service. I have written the following code.
Could someone please enlighten me what changes I make in this code.
Which are the variables to look for in to find the space consumed in bytes by this file.
Code: |
/* REXX */
/*
SAY PLEASE ENTER GDG BASE
PULL GDG */
GDG=PRODSC75.DSC75950
X=OUTTRAP(LST.) /* LISTCAT GDG BASE */
" LISTC ENT('"GDG"')"
X=OUTTRAP(OFF)
DO A = LST.0 TO 1 BY -1 /* FIRST FIND = 0 GDG */
IF POS('NONVSAM',LST.A) > 0 THEN DO
DSN = SUBSTR(LST.A,POS('NONVSAM',LST.A)+13,44)
A = 0
END
END
SAY "GDG=" GDG
SAY "DSN =" DSN
GDG1= SUBSTR(DSN,19,8)
ADDRESS ISPEXEC
DSNLEV = 'PWSX.KAMSHEW.G0269V00.SNDISK'
"LMDINIT LISTID("LSTID") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTID") OPTION(LIST) DATASET(DSVAR) STATS(YES)"
"LMDFREE LISTID("LSTID")"
|
Thanks in advance,
~ Snehil |
|