|
View previous topic :: View next topic
|
| Author |
Message |
siddharth singh
New User
Joined: 21 Jul 2015
Posts: 3
Location: india
|
|
|
|
| Code: |
/* REXX */
"ISPEXEC LMDINIT LISTID(LISTID) LEVEL(DYD.PERM)"
Do Forever
"ISPEXEC LMDLIST LISTID(&listid) OPTION(LIST) DATASET(dsn)"
If rc = 0 Then
Do
Say "Erasing:'"dsn"'"
"ISPEXEC LMERASE DATASET('"dsn"')"
End
Else
LEAVE
End |
Coded |
|
| Back to top |
|
 |
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK
|
|
|
|
Please use the code tags to present code and data - your indentation is then retained.
Please search the forum before posting. This question has been asked before. Note that you will need the answer that caters for the use of ISPEXEC commands. |
|
| Back to top |
|
|
|
|
