Exit for Creating Files (TAUPDXA1)

The TAUPDXA1 procedure will be used as the exit within the PDS Explorer example, in order to store the output files generated by the tools. The exit may need to be adapted with regard to the allocation guidelines. The exit creates the files for the container and element lists, and will be called up as a subroutine in the previously described procedures.

The following example shows an extract from this procedure, in which the allocation of the files is carried out.

REXX Example: Extract from TAUPDXA1  
. . . . 
/* Create Container list dataset */                                   
CONLIST:                                                           
condsn = zuser'.TAUTMP.CONLIST'                                    
If "SYSDSN"("'"condsn"'") = "DATASET NOT FOUND" Then Do            
   Call TSO "0 ALLOC FI("alcdd") DA('"condsn"')" ,                 
               "NEW CATALOG REUSE SPACE(1,1) CYLINDERS" ,          
               "LRECL(255) RECFM(V,B) DSORG(PS)"                   
   Call TSO "* FREE FI("alcdd")"                                   
   End                                                             
Return condsn                                                      
/* Create Element list dataset */ 
ELELIST:                                                           
eledsn = zuser'.TAUTMP.ELELIST'                                    
If "SYSDSN"("'"eledsn"'") = "DATASET NOT FOUND" Then Do            
   Call TSO "0 ALLOC FI("alcdd") DA('"eledsn"')" ,                 
               "NEW CATALOG REUSE SPACE(1,1) CYLINDERS" ,          
               "LRECL(255) RECFM(V,B) DSORG(PS)"                   
   Call TSO "* FREE FI("alcdd")"                                   
   End                                                             
Return eledsn                                                      
. . . .