Determining Datasets With Properties (TAUPDGPD)

The TAUPDGPR procedure delivers the PDS files, including their properties for the Properties view, for the Container Tree view (see Container element types).

REXX Example: Extract from TAUPDGPD (simplified) 
. . . . 
Parse Arg project . 
. . . . 
/* Create the container list dataset */ 
Call REXX '0 TAUPDXA1 CONFIG CONLIST'                      
Parse Value Result With . condsn .                         
/* Alloc container list */                                 
Call ALLOC_FILE condd condsn 
/* Get datasets from dataset list project.* */                           
Call GET_DATASETS                                                        
Call TSO "0 EXECIO * DISKW" condd "(FINIS STEM dataset.)"                
outparm = condsn                                                         
Call EXIT 0 wmsg 
. . . . 
GET_DATASETS:                                                            
sdsn = project'.*'                                                       
Call ISPF "0 LMDINIT LISTID(DSNDD) LEVEL("sdsn")"                        
lmdinit.dsndd = 1                                                        
dsn = ' '                                                                
j = 0                                                                    
Do Forever                                                               
  Call ISPF "8 LMDLIST LISTID("dsndd") OPTION(LIST) DATASET(DSN) STATS(YES)"                                             
  If Result > 0 Then Leave                                                               
  If zdldsntp = '' Then Iterate                                                             
  lmdlist.dsndd = 1                                                      
  j = j + 1                                                              
  parm = dsn','Strip(zdlmigr)','Strip(zdlvol)','Strip(zdldsorg)          
  parm = parm','Strip(zdlrecfm)','Strip(zdllrecl)','Strip(zdlblksz)      
  parm = parm','zdlcdate','zdlrdate’,DATASET’                                      
  dataset.j = parm                                                       
  End                                                                    
dataset.0 = j                                                            
Return                                                                   
. . . . 
EXIT: 
Parse Arg exitrc exitmsg 
. . . . 
Call ISPF '* LMDLIST LISTID('dsndd') OPTION(FREE)' 
Call ISPF '* LMDFREE LISTID('dsndd')' 
Call FREE_FILE condd 
. . . . 
Exit exitrc outparm                                                        

Note the following in the programming for determining the dataset container:

• The project (first qualifier) is the only input parameter for the REXX procedure defined in the AWM.
• There must be a file to which the container information will be written. The REXX subroutine TAUPDXA1 creates this file.
• The datasets for the first qualifier, including the properties, will be determined from the ISPF Library Management Services.
• The container information matching the model definitions 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.