Here is the code I got working.
RULE syntax:
)PROC
dsn ='CSIOSGP.CA.OPSMVS.REXX.OLD'
ADDRESS osf "ISPSTART CMD(oi lmmlist "dsn")"
return "accept"
REXX syntax:
PARSE ARG dsn
address ISPEXEC
"LMINIT DATAID(PDS) DATASET('"dsn"')"
initrc = RC
"LMOPEN DATAID("PDS") OPTION(INPUT)"
lmrc = RC
do forever
"LMMLIST DATAID("PDS") OPTION(LIST)",
" MEMBER(MEMBR) STATS(YES)"
If rc ¬= 0 then leave
/* Say back some of the data vars returned by LMMLIST...*/
say '>>'membr zlcdate zlmdate zlmtime zluser
end
"LMLIST DATAID("PDS") OPTION(FREE)"
"LMCLOSE DATAID("PDS")"
return