Omron NJ501-1500 Reference Manual page 880

2 Instruction Descriptions
2 :
FileGets_instance(
Execute:=TRUE,
FileID :=Fid,
TrimLF :=TRUE);
IF (FileGets_instance.Done=TRUE) THEN
// Convert the text string that was read to an integer.
InDat[Index]:=STRING_TO_INT(FileGets_instance.Out);
Index:=Index+INT#1;
// Reached end of file.
IF (FileGets_instance.EOF=TRUE) THEN
Stage:=INT#3;
ELSE
FileGets_instance(Execute:=FALSE);
END_IF;
END_IF;
IF (FileGets_instance.Error=TRUE) THEN
Stage:=INT#99;
END_IF;
3 :
FileClose_instance(
Execute:=TRUE,
FileID :=Fid);
IF (FileClose_instance.Done=TRUE) THEN
Operating:=FALSE;
END_IF;
IF (FileClose_instance.Error=TRUE) THEN
Stage:=INT#99;
END_IF;
99 :
Operating:=FALSE;
END_CASE;
END_IF;
2-832
// Read text string.
// Normal end
// Error end
// Close file.
// File ID
// Normal end
// Error end
// Processing after error end.
NJ-series Instructions Reference Manual (W502)