USS Sample - Check file

Sample
USS - Sample

Beispiel:                                 

/* REXX YUSSBSP6 Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
x=syscalls('ON')
path="/u/yves/yomvs3.rez"
address syscall
  "access (path)" F_OK
  if retval<>0 then say "file does not exist"
  "access (path)" R_OK
  if retval<>0 then say "file does not have read"
  "access (path)" W_OK
  if retval<>0 then say "file does not have write"
  "access (path)" X_OK
  if retval<>0 then say "file does not have execute"