|
View previous topic :: View next topic
|
| Author |
Message |
vimalonline
Warnings : 1
New User
Joined: 08 Apr 2006
Posts: 14
Location: In front of my PC
|
|
|
|
| Code: |
/* REXX */
ADDRESS ISPEXEC
DSNLEV = 'my.dsn'
"LMDINIT LISTID("LSTID") LEVEL("DSNLEV")"
"LMDLIST LISTID("LSTID") OPTION(LIST) DATASET(DSVAR) STATS(YES)"
SAY 'ZDLMIGR' ZDLMIGR
EXIT |
This Rexx checks for only one dataset.Similiarly How to check for the multiple datasets?? |
|
| Back to top |
|
 |
PeD
Active User
Joined: 26 Nov 2005
Posts: 459
Location: Belgium
|
|
|
|
something like
| Code: |
X = OUTTRAP("LCAT.")
ADRESS TSO "LISTCAT LVL('HLQ.ABC.DEF') ALL"
DO ICAT = 1 TO LCAT.O
pseudo : check : If Index(LCAT.ICAT,'VOLSER--') > 0 Then
pseudo : check word MIGRAT
END
|
|
|
| Back to top |
|
|
|
|
