BPXYMODE — Map the mode constants of the file services

                                                      
            BPXYMODE   ,                                                        
** BPXYMODE: Mode constants specified on system calls                           
**  Used By: CHM FCM MKD MKN OPN UMK                                            
S_MODE               DSECT ,                                                    
                     DS    0F                                                   
*                                                                               
S_TYPE               DS    B      File types, mapped by BPXYFTYP                
*                                 Flag bytes                                    
S_MODE3B             DS    0XL3   All flag bytes                                
S_RES01              DS    0BL.8  Reserved                                      
S_MODE1              DS    B      Flag byte 1 - reserved                        
*                                                                               
S_RES02              DS    0BL.4  Reserved                                      
S_MODE2              DS    B      Flag byte 2                                   
*                                 Set ID flags                                  
S_ISUID              EQU   X'08'  Set user ID on execution                      
S_ISGID              EQU   X'04'  Set group ID on execution                     
S_ISVTX              EQU   X'02'  Sticky Bit: For executables, look             
*                                  first in normal MVS search order             
*                                  For directories, deletion rstd               
*                                  to owner or superuser.                       
*                                 Owner flags                                   
S_IRWXU1             EQU   X'01'  All permissions for user - part I             
S_IRUSR              EQU   X'01'  Read permission                               
*                                                                               
S_MODE3              DS    B      Flag byte 3                                   
*                                 Owner flags - continued                       
S_IRWXU2             EQU   X'C0'  All permissions for user - Part II            
S_IWUSR              EQU   X'80'  Write permission                              
S_IXUSR              EQU   X'40'  Search (if a directory) or                    
*                                 execute (otherwise) permission                
*                                 Group flags                                   
S_IRWXG              EQU   X'38'  All permissions for group                     
S_IRGRP              EQU   X'20'  Read permission                               
S_IWGRP              EQU   X'10'  Write permission                              
S_IXGRP              EQU   X'08'  Search (if a directory) or                    
*                                 execute (otherwise) permission                
*                                 Other flags                                   
S_IRWXO              EQU   X'07'  All permissions for other                     
S_IROTH              EQU   X'04'  Read permission                               
S_IWOTH              EQU   X'02'  Write permission                              
S_IXOTH              EQU   X'01'  Search (if a directory) or                    
*                                 execute (otherwise) permission                
S_MODE#LENGTH        EQU   *-S_MODE Length this structure                       
** BPXYMODE End