Author: sergeyken
Posted: Thu Dec 29, 2016 11:59 pm (GMT 5.5)
If REXXTOOLS by Compuware are available in your environment then you could use some functions from there, like LISTM:
_________________
Tyrannosaurus-REXX
Posted: Thu Dec 29, 2016 11:59 pm (GMT 5.5)
If REXXTOOLS by Compuware are available in your environment then you could use some functions from there, like LISTM:
| Code: |
| Parse Value LISTM("'USER01.LIBRARY'") With RC memcnt mlist If RC = 0 Then Do i=1 To memcnt Parse Var mlist mem mlist Say mem End Else Do Parse Var memcnt reason dsn message Say 'LISTM error:' message End |
_________________
Tyrannosaurus-REXX