Current Help System: Tutor Translator (View Core Help)

### EOL Functions

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

The logical function

EOL(F0) translates to è

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

ASSIGN/EOL_F0 = INT(ORD(EOFTEST) == 10)
FILE/RECALL_POSITION,E.F0.PTR
IF EOL(E.F0) THEN
. . . .
. . . .

END_IF translates to è

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

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

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.

If EOF (or EOL) intrinsic function is used in an expression the EOF_E.F0 (or EOL_E.F0) variable is read before expression translation.

IF EOF(F0) OR EOL(F1) 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
FILE/SAVE_POSITION,E.F1PTR
EOLTEST = FILE/READ_CHARACTER,E.F0.PTR

ASSIGN/EOL_F1 = INT(ORD(EOFTEST) == 10)
FILE/RECALL_POSITION,E.F1PTR
IF/EOF_F0 OR EOL_F1
. . . .
. . . .
END_IF/