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.