USS Sample - Check file

Sample
USS - Sample

Beispiel:                                 

/* REXX YUSSBSP7 Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
x=syscalls('ON')
path="/u/yves/yomvs3.rex"
address syscall
  "stat (path) inf."
  if inf.0 = 0 then do
    say "File does not exist"
  end
  else do
    say inf.st_mode inf.st_type inf.st_uid
  end