Mount ZFS During TSO Logon

tso_mount_zfs

  /* ----------------------------------------------------- *                
   | Small routine to put into a rexx exec invoked during  |                
   | TSO Logon, or manually after, to test for a zfs being |                
   | mounted and if not then to mount it.                  |                
   * ----------------------------------------------------- */               
  if listdsi("'userid.zopen.zfs'") = 4 then do                              
    x = syscalls('ON')                                                      
    path = '/u/userid/zopen/etc/'                                           
    address syscall ,                                                       
      'lstat (path) st.'                                                    
    if st.0 = 0 then do                                                      
      "mount filesystem('userid.zopen.zfs') mountpoint('/u/userid/zopen/')" 
        "type(zfs) mode(rdwr)"                                              
      say 'Mounting zopen zfs....'                                          
    end                                                                     
    x = syscalls('OFF')                                                     
  end