         MACRO                                                                  
&NAME    RV1#FMTB &SECTTYP=DSECT                                                
         AIF   ('&SECTTYP' NE 'DSECT').SECTSKP                                  
.NDST    ANOP                                                                   
DFORMATT DSECT                                                                  
.SECTSKP ANOP                                                                   
DFTFIRST EQU   *                                                                
DFTRFM   DS    XL1                       Recfm                                  
*                 'ooo.....'                                                    
*                  x                     recfm:v                                
*                   x                    recfm:f                                
*                    x                   recfm:u                                
         DS    XL1                                                              
DFTFLRL  DS    XL2                       LRECL ( recfm:f )                      
DFTVLRL  DS    XL2                       LRECL ( recfm:v )                      
DFTBLKSZ DS    XL2                       BLKSIZE                                
DFTEXTM  DS    XL4                       Member Exist ( Match )                 
DFTEXTU  DS    XL4                       Member Exist ( UnMatch )               
DFTNOFM  DS    XL4                       Member No Exist ( Match )              
DFTNOFU  DS    XL4                       Member No Exist ( UnMatch )            
DFTLAST  EQU   *-DFTFIRST                Length                                 
         MEND                                                                   
