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.