Current Help System: Tutor Translator (View Core Help)

### EOF Functions

The EOF intrinsic function is not available in PC-DMIS.

The logical function

EOF(F0) translates to è

FILE/SAVE_POSITION,E.F0.PTR
EOFTEST = FILE/READ_CHARACTER,E.F0.PTR

ASSIGN/E.EOF_F0 = INT(ORD(EOFTEST) == 65535)
FILE/RECALL_POSITION,E.F0.PTR
IF EOF(E.F0) THEN
. . . .
. . . .

END_IF translates to è

FILE/SAVE_POSITION,E.F0.PTR
EOFTEST = FILE/READ_CHARACTER,E.F0.PTR

ASSIGN/EOF_F0 = INT(ORD(EOFTEST) == 65535)
FILE/RECALL_POSITION,E.F0.PTR
IF/EOF_F0
. . . .
. . . .
END_IF/

BOOL_VAR =EOF(E.F0) translates to è

FILE/SAVE_POSITION,E.F0.PTR
EOFTEST = FILE/READ_CHARACTER,E.F0.PTR

ASSIGN/EOF_F0 = INT(ORD(EOFTEST) == 65535)
FILE/RECALL_POSITION,E.F0.PTR
ASSIGN/E.BOOL_VAR = EOF_F0

For file F1, F2 and F3, use respectively the EOF_F1, EOF_F2 and EOF_F3 variables and E.F1PTR, E.F2PTR and E.F3PTR.