Determining Member Lists (TAUPDELI)

The TAUPDELI procedure generates the member list of a PDS according to the filter criterion (see Filter type).

REXX Example: Extract from TAUPDELI (simplified)
. . . .
Parse Arg indsn filter .
. . . .
/* Create the element list dataset */                          
Call REXX '0 TAUPDXA1 CONFIG ELELIST'                  
Parse Value Result With . eledsn .                     
Call ALLOC_FILE eledd eledsn                           
/* Get the Elementtype */                              
type = GET_TYPE(indsn)                                 
/* Get members from PDS */         
Call GET_MEMBERS                                       
Call TSO "0 EXECIO * DISKW" eledd "(FINIS STEM member.)"
outparm = eledsn                                                                           
Call EXIT 0 wmsg
. . . .
 
GET_TYPE:                                                              
Arg tdsn .                                                             
Select                                                                 
  When Pos('SOURCE', tdsn) > 0 Then ttype = 'EDITABLE'                                               
  . . . .                                           
  Otherwise ttype = 'UNKNOWN'                                                
  End                                                                  
Return ttype
                                                           
GET_MEMBERS:                                                        
Call ISPF "0 LMINIT DATAID(DSNDD) DATASET('"indsn"') ENQ(SHR)"      
Call ISPF "0 LMOPEN DATAID("dsndd")"                                
j = 0                                                               
Do Forever                                                          
  mbr = ' '                                                         
  parm = "DATAID("dsndd") OPTION(LIST) STATS(YES) PATTERN("filter")"
  Call ISPF "8 LMMLIST" parm "MEMBER(MBR)"                          
  If Result > 0 Then Leave                                                          
  j = j + 1                                                         
  If Symbol('ZLC4DATE') = 'VAR' Then                             
    parm = zlc4date','zlm4date zlmtime','Strip(zlcnorc)','Strip(zluser)                    
  Else parm = ',,,'                                                    
  member.j = indsn','Strip(mbr)','parm','type                       
  End                                                               
member.0 = j                                                        
Return                                                                                                                              
. . . .
EXIT:
Parse Arg exitrc exitmsg
. . . .
Call ISPF "* LMMLIST DATAID("dsndd") OPTION(FREE)"
Call ISPF "* LMCLOSE DATAID("dsndd")"
Call ISPF '* LMFREE DATAID('dsndd')'
Call FREE_FILE eledd
. . . .
Exit exitrc outparm                                                        

Note the following in the programming for determining the member list:

• Two input parameters (PDS and Memberfilter) are foreseen for the REXX procedure in the AWM.
• There must be a file to which the member information can be written. The REXX subroutine TAUPDXA1 is used to create this file.
• The member, including the properties, will be determined from the ISPF Library Management Services.
• The member information matching the model definition of the corresponding file descriptor is written to the previously allocated file line by line as a comma-separated list.
• The name of the file (value of the variable “outparm”) will be transmitted to the client via the Exit statement.
• This file name is the only modeled output parameter.