         MACRO                                                                  
&NAME    RV1#DTE &SECTTYP=DSECT                                                 
         AIF   ('&SECTTYP' NE 'DSECT').SECTSKP                                  
.NDST    ANOP                                                                   
DTENTRY  DSECT                                                                  
.SECTSKP ANOP                                                                   
DTEFIRST EQU   *                                                                
DTENAME  DS    CL8                       Member Name                            
DTETTRB  DS    XL4                       TTRx ( Binary )                        
DTETTR   DS    CL6                       TTR ( Character )                      
DTERLNG  DS    XL2                       Logical Record Length(for F)           
DTELRL   DS    XL2                       Logical Record Length(for V)           
DTEBSZ   DS    XL2                       Phisical Record Length(BLKSZ)          
DTERFM   DS    BL1'00000000'             Record Format Flag.                    
*                  o                     Not Variable Format Record.            
*                   o                    Invalid DCB                            
*                    o                   Last Length Different                  
*                     o                  Non Fixed Format Record.               
*                      .                 Reserved                               
*                       .                Reserved                               
*                        .               Reserved                               
*                         .              Reserved                               
         DS    BL3                       Filler                                 
DTERECD  DS    XL4                       Record Number                          
* --- See RV1#COMM:ATTR_??? ---                                                 
DTEATTR  DS    XL1                       Directory Area Attribute               
DTEDATTR DS    XL1                       Data Area Attribute                    
DTEDATA  DS    CL60                      Record ( First 60 Byte )               
DTELAST  EQU   *-DTEFIRST                Length                                 
         MEND                                                                   
