U@FILEEXISTS

U@FILEEXISTS checks to see if a certain file exists.

Module SYSCMDS
Input E@SYSCMDFILENM
Output E@SYSCMDERROR

Programming Example

      IF        F1@AR90NM <> *BLANKS
     EVAL      E@SYSCMDFILENM = F1@AR90NM
     CALLP     U@FILEEXISTS                      Fileexists
     IF        E@SYSCMDERROR <> *ZEROS
     CLEAR                   F1@AR90NM
     EVAL      F1@FC          = 'I'
      ENDIF