OPS/MVS

 View Only
  • 1.  pds member detail listing

    Posted Feb 07, 2019 05:44 PM

    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.



  • 2.  Re: pds member detail listing

    Posted Feb 08, 2019 05:57 AM

    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

    Atos NL



  • 3.  Re: pds member detail listing
    Best Answer

    Posted Feb 08, 2019 07:29 AM

    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:   

    Address OSF

    "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                                                            



  • 4.  Re: pds member detail listing

    Broadcom Employee
    Posted Feb 11, 2019 10:45 AM

    Hello Chris,

     

    Please, let us know if you were able to make the LMMLIST function work with the information provided in the previous comments.

     

    Regards,

    Mario

    Carlos Mario Silveira Filho

    Principal Support Engineer

    carlosmario.silveira@broadcom.com
    CA Technologies A Broadcom Company 



  • 5.  Re: pds member detail listing

    Posted Mar 15, 2019 09:25 AM

    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.



  • 6.  Re: pds member detail listing

    Posted Mar 27, 2019 09:43 AM

    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