zOs/REXX/EXISPSTA

/* enquire ispf member statistics */
call adrIsp "lmInit dataid(lmid) dataset(tmp.rexx)"
call adrIsp 'lmOpen dataid('lmid')'
call adrIsp 'lmmFind dataid('lmid') member(wsh) stats(yes) noLla'
say f('%t S')
say translate(ZLC4DATE, '-', '/') zlcNoRc zlExt zlcNoRcE
say translate(ZLM4DATE'-'zlmTime':'zlmSec, '-.', '/:') zlUser
call adrIsp 'lmmStats dataid('lmid') member(wsh) createD4(1908/04/01)',
       'modDate4(2122/05/31) modTime(23:24:25) user(MyUser7)'
call adrIsp 'lmClose dataid('lmid')'
call adrIsp 'lmFree dataid('lmid')'