900-FILEEXISTS

900-FILEEXISTS checks to see if a certain file exists.

Library SYSCMDS
Input SYSCMD-FILENAME
Output SYSCMD-ERROR

Programming Example

    IF (AR90F1-AR90A-NAME        NOT = SPACES)
        MOVE AR90F1-AR90A-NAME   TO SYSCMD-FILENAME
        PERFORM 900-FILEEXISTS
        IF (SYSCMD-ERROR         NOT = ZEROS)
            INITIALIZE AR90F1-AR90A-NAME
            MOVE "I"             TO AR90F1-FC.