I know there is a wish item for upgrading the OPSPDS function to list member details, but does anyone have an example of listing the member create date using the LMMLIST function, I can't get it. I am getting the No ISPF host command environment available when I try to use the ISPEXEC address space.
Thanks for any help.
You could look at the sample rexx ACLXSAMP(ALLOCSPF) to allocate a correct ISPF environment in your OPS server...
This provides an ISPF environment for you.
Marcel van Ek
Here is a vanilla sample to read info from some DSN which can be tailored as you need (pass some job or jobnames,etc). Key is having ISPF services allocated to the server as Marcel stated. If not using ALLOCSPF upon server initialization time (always allocated), you can of course allocate these ISPF dsns at the beginning of the pgm before doing LMMLIST. Additionally, you need to invoke this pgm within the ISPSTART command..so if in some rule:
"ISPSTART CMD(OI pgmname anyarg)"
ddn ='name of your dsn' address ISPEXEC "LMINIT DATAID(DSET) DATASET('"ddn"')" "LMOPEN DATAID("DSET")" lmrc = 0 do while lmrc = 0 "LMMLIST DATAID("DSET") OPTION(LIST)", "MEMBER(MEMBR) STATS(YES)" /* Say back some of the data vars returned by LMMLIST...*/ say '>>'membr zluser zlmdate zlmtime lmrc = rc end return
Please, let us know if you were able to make the LMMLIST function work with the information provided in the previous comments.
Carlos Mario Silveira Filho
Principal Support Engineer
firstname.lastname@example.org CA Technologies A Broadcom Company
Thank you Mark and Dave, Unfortunately this has fallen down the list of priorities. Once I do get it working, I will post the code generated.
Here is the code I got working.
ADDRESS osf "ISPSTART CMD(oi lmmlist "dsn")"
PARSE ARG dsn
"LMINIT DATAID(PDS) DATASET('"dsn"')"
initrc = RC
"LMOPEN DATAID("PDS") OPTION(INPUT)"
lmrc = RC
"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
"LMLIST DATAID("PDS") OPTION(FREE)"