|
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 |
|
|
|
|
