RV1ALCD  DSECT                                                                  
*A#PROC  DS    CL8                       Process ..                             
*                                        'ALLOCATE' or 'CREATE  ' or            
*                                        'FREE    '                             
DA#DSN   DS    CL44                      Dataset Name                           
DA#VOL   DS    CL6                       Volume Serial                          
DA#DISP  DS    CL3                       'OLD' or 'SHR' or 'NEW' or             
*                                        'MOD' or 'FRE'                         
         DS    XL1                                                              
DA#RETDD DS    CL8                       Returnd DD Name                        
DA#RETC  DS    XL2                       Return Code                            
DA#INFO  DS    XL2                       Information Code                       
DA#SPC   DS    CL3                       'TRK' or 'CYL' or 'BLK'                
         DS    XL1                                                              
DA#SIZE1 DS    XL3                       Space #1                               
         DS    XL1                                                              
DA#SIZE2 DS    XL3                       Space #2                               
         DS    XL1                                                              
DA#SIZED DS    XL3                       Directory Space                        
         DS    XL1                                                              
DA#DSORG DS    CL2                       'PS' or 'PO'                           
*                                        x'0000' : Error                        
*                                        x'0004' : TR                           
*                                        x'0008' : VSAM                         
*                                        x'0020' : TQ                           
*                                        x'0040' : TX                           
*                                        x'0080' : GS                           
*                                        x'0200' : PO                           
*                                        x'0300' : POU                          
*                                        x'0400' : MQ                           
*                                        x'0800' : CQ                           
*                                        x'1000' : CX                           
*                                        x'2000' : DA                           
*                                        x'2100' : DAU                          
*                                        x'4000' : PS                           
*                                        x'4100' : PSU                          
*                                        x'8000' : IS                           
*                                        x'8100' : ISU                          
DA#RECFM DS    XL1                       x'02' : M   x'04' : A                  
*                                        x'08' : S   x'10' : B                  
*                                        x'20' : D,T x'40' : V                  
*                                        x'80' : F   x'C0' : U                  
DA#RECFM_M EQU X'02'                                                            
DA#RECFM_A EQU X'04'                                                            
DA#RECFM_S EQU X'08'                                                            
DA#RECFM_B EQU X'10'                                                            
DA#RECFM_D EQU X'20'                                                            
DA#RECFM_T EQU X'20'                                                            
DA#RECFM_V EQU X'40'                                                            
DA#RECFM_F EQU X'80'                                                            
DA#RECFM_U EQU X'C0'                                                            
         DS    XL1                                                              
*                                                                               
DA#LRECL DS    XL2                       Record Length                          
DA#BLKSZ DS    XL2                       Block Size                             
DA#ERR   DS    XL1024                    Returnd Error Message Text             
*                                                                               
* DA#ERR Format                                                                 
*                                                                               
* |....+....||..+....n...                                                       
* n         ||                    : All Message Number                          
*  xx       ||  yy                : Message Text Length ( Half Word )           
*    *******||**  ***********     : Message Text                                
*    <-xx Byte->  <-yy Byte->                                                   
*                                                                               
DA#ERRM  DS    CL60                      Returnd Error Message Text             
RV1ALCDL EQU   *-RV1ALCD                 DSECT Length                           
