         MACRO                                                                  
&NAME    RV1#CMDA &SECTTYP=DSECT                                                
         AIF   ('&SECTTYP' NE 'DSECT').SECTSKP                                  
.NDST    ANOP                                                                   
CMDPROCD DSECT                                                                  
.SECTSKP ANOP                                                                   
CMDPROCA EQU   *                                                                
PC@HDR   DC    CL8'RV1CMDA'                                                     
PC@CMD   DS    CL1                       Line Command                           
         DS    XL1                       filler                                 
PC@NAME  DS    CL8                       Member Name                            
PC@NNAME DS    CL8                       Member New Name                        
PC@TTR   DS    CL6                       TTR ( Character )                      
PC@TTRB  DS    XL4                       TTR ( Binary )                         
PC@RECD  DS    XL4                       Record Number                          
PC@RLNG  DS    XL2                       Logical Record Length(For F)           
PC@LRL   DS    XL2                       Logical Record Length(For V)           
PC@BSZ   DS    XL2                       Phisical Record Length(BLKSZ)          
PC@RFM   DS    XL1                       Record Format Flag.                    
PC@ATTR  DS    XL1                       Attribute                              
PC@MSG   DC    CL80'>>> Member Process :'                                       
CMDPROCL EQU   *-CMDPROCA                Length                                 
         MEND                                                                   
