Determining Element Properties (TAUPDEPR)

The TAUPDEPR procedure determines the modeled properties for a PDS member (see Actions and tools). Most of the properties were already determined during the generation of the member list. Some properties are only determined during the individual processing – mainly for reasons of performance.

REXX Example: Extract from TAUPDEPR (simplified) 
. . . . 
Parse Arg indsn member . 
. . . . 
Call ALLOC_FILE indd indsn'('member')'                    
Call TSO "2 EXECIO 200 DISKR" indd "(FINIS STEM record.)"                                
Do i = 1 To record.0                                             
   record.i = Translate(record.i)                                
   . . . .                                                        
   If Pos('IDENTIFICATION DIVISION',record.i) > 0 Then Do        
      suffix = 'CBL'                                             
      type = 'EDITABLE'                                          
      propgroup = 'COBOL'                                        
      End 
   . . . .  
   End  
outparm = suffix','propgroup','type                                      
Call EXIT 0 wmsg  
. . . . 
EXIT: 
Parse Arg exitrc exitmsg 
. . . . 
Call FREE_FILE indd 
. . . . 
Exit exitrc outparm                                                                                                                                              

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

• Two input parameters separated by spaces (file name, member name) are foreseen for the REXX procedure in the AWM.
• The two output parameters File-Suffix and the element type will be determined by reading through the members.
• These two output parameters, which are separated by commas according to the modeling definitions (value of the variable “outparm”), will be transmitted to the client via the Exit statement.