View previous topic :: View next topic
|
Author |
Message |
cmsmoon
New User
Joined: 17 Jun 2010 Posts: 75 Location: Chennai
|
|
|
|
Hi All,
I am using to retrieve the list of dataset using the below rexx command
INPUTDS=XXX.YY.B*
ADDRESS TSO
"ISPEXEC LMDINIT LISTID(IDV) LEVEL("INPUTDS")"
DO FOREVER
ADDRESS TSO "ISPEXEC LMDLIST LISTID("IDV") OPTION(LIST) DATASET(DSVAR)"
IF RC= 0 THEN
SAY DSVAR
EXIT
But while using this we have get addtional qualifer dataset also.So how can we avoid/Omit Addtional qualifer
For example:
XXX.YY.B1
XXX.YY.B1.te1
XXX.YY.B2
XXX.YY.B3
XXX.YY.B4
XXX.YY.B4.te1
XXX.YY.B4.te2
XXX.YY.B1.te1
My requirement is to display,when we given XXX.YY.B* as INPUTDS
the results should be
XXX.YY.B1
XXX.YY.B2
XXX.YY.B3
XXX.YY.B4
how can we achive this. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
ISPF will return - as You have seen - all the datasets
which - as the name tells - will match the LEVEL keyword
You will have to discard on your own the unwanted ones
with something like
Code: |
ds.1 = "lev1.lev2.lev3"
ds.2 = "lev1.lev2.lev3.lev4"
ds.0 = 2
do d = 1 to ds.0
parse var ds.d l1 "." l2 "." l3 "." tail
if tail = "" then ,
say d left(ds.d,20) "GOOD"
else
say d left(ds.d,20) "VERY BAD"
end |
|
|
Back to top |
|
|
cmsmoon
New User
Joined: 17 Jun 2010 Posts: 75 Location: Chennai
|
|
|
|
Thanks Enrico. |
|
Back to top |
|
|
|