D openstmf        PR            10I 0 ExtProc('open')                                          
     D  path@                          *   Value                                                    
     D  oflag                        10I 0 Value                                                    
     D  mode                         10U 0 Value Options(*nopass)                                   
     D  codepage                     10U 0 Value Options(*nopass)                                   
      *                                                                                             
     D readstmf        PR            10I 0 Extproc('read')                                          
     D  FileDescO                    10I 0 Value                                                    
     D  bufferO@                       *   Value                                                    
     D  nbyte                        10U 0 Value                                                    
      *                                                                                             
     D writestmf       PR            10I 0 Extproc('write')                                         
     D  FileDescO                    10I 0 Value                                                    
     D  bufferO@                       *   Value                                                    
     D  nbyte                        10U 0 Value                                                    
      *                                                                                             
     D closestmf       PR            10I 0 Extproc('close')                                         
     D  FileDesc                     10I 0 Value                                                    
      *                                                                                             
     D statstmf        PR            10I 0 Extproc('stat')                                          
     D  path@                          *   Value                                                    
     D  statds@                        *   Value                                                    
      *                                                                                             
      * Variables for the IFS APIs used                                                             
     D Path            S            100A                                                            
     D FileDesc        S             10I 0                                                          
     D OFileDesc       S             10I 0                                                          
     D DebugDesc       S             10I 0                                                          
     D Oflag           S             10I 0                                                          
     D Mode            S             10I 0                                                          
     D BytesRead       S             10I 0                                                          
      *                                                                                             
      * File Access Modes                                                                           
     D O_RDONLY        S             10I 0 INZ(X'01')                           Read Only           
     D O_WRONLY        S             10I 0 INZ(X'02')                           Write Only          
     D O_RDWR          S             10I 0 INZ(x'04')                           Read/Write          
     D O_CREATE        S             10I 0 INZ(x'08')                           Create File         
     D O_EXCL          S             10I 0 INZ(x'10')                           Exclusive           
     D O_TRUNC         S             10I 0 INZ(x'40')                           Truncate            
      *                                                                                             
      * File Status Codes                                                                           
     D O_CODEPAGE      S             10I 0 INZ(x'800000')                       Code Page           
     D O_TEXTDATA      S             10I 0 INZ(x'01000000')                     Text Data           
     D O_APPEND        S             10I 0 INZ(x'0100')                         Append Mode         
     D O_LARGEFILE     S             10I 0 INZ(x'20000000')                     Large File          
     D O_INHERIT       S             10I 0 INZ(x'08000000')                     Inherit Mode        
      *                                                                                             
      * File Share Modes                                                                            
     D O_SHARE_RDONLY  S             10I 0 INZ(x'010000')                       Share w/readers     
     D O_SHARE_WRONLY  S             10I 0 INZ(x'020000')                       Share w/ writers    
     D O_SHARE_RDWR    S             10I 0 INZ(x'040000')                       Share w/ read/write 
     D O_SHARE_NONE    S             10I 0 INZ(x'080000')                       No sharing          
      *                                                                                             
      * Security Attributes for owner                                                               
     D S_IRUSR         S             10I 0 INZ(x'0100')                         *R                  
     D S_IWUSR         S             10I 0 INZ(x'80')                           *W                  
     D S_IXUSR         S             10I 0 INZ(x'40')                           *X                  
     D S_IRWXU         S             10I 0 INZ(x'01C0')                         *RWX                
      *                                                                                             
      * Security Attributes for group                                                               
     D S_IRGRP         S             10I 0 INZ(x'20')                           *R                  
     D S_IWGRP         S             10I 0 INZ(x'10')                           *W                  
     D S_IXGRP         S             10I 0 INZ(x'08')                           *X                  
     D S_IRWXG         S             10I 0 INZ(x'38')                           *RWX                
      *                                                                                             
      * Security Attributes for *PUBLIC                                                             
     D S_IROTH         S             10I 0 INZ(x'04')                           *R                  
     D S_IWOTH         S             10I 0 INZ(x'02')                           *W                  
     D S_IXOTH         S             10I 0 INZ(x'01')                           *X                  
     D S_IRWXO         S             10I 0 INZ(x'07')                           *RWX                
      *                                                                                             
      * Status Data Structure                                                                       
     D statDS          ds                  align                                                    
     D  st_mode                      10u 0                                                          
     D  st_ino                       10u 0                                                          
     D  st_nlink                      5u 0                                                          
     D  st_uid                       10u 0                                                          
     D  st_gid                       10u 0                                                          
     D  st_size                      10i 0                                                          
     D  st_atime                     10i 0                                                          
     D  st_mtime                     10i 0                                                          
     D  st_ctime                     10i 0                                                          
     D  st_dev                       10u 0                                                          
     D  st_blksize                   10u 0                                                          
     D  st_allocsize                 10u 0                                                          
     D  st_objtype                   11                                                             
     D  st_codepage                   5u 0                                                          
     D  st_reserved1                 62                                                             
     D  st_ino_gen_id                10u 0