Omron NJ501-1500

2 Instruction Descriptions
2-832
NJ-series Instructions Reference Manual (W502)
2 :
FileGets_instance(
Execute:=TRUE,
FileID :=Fid,
TrimLF :=TRUE);
IF (FileGets_instance.Done=TRUE) THEN
InDat[Index]:=STRING_TO_INT(FileGets_instance.Out);
Index:=Index+INT#1;
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;
// File ID
// Normal end
// Normal end
// Error end
// Processing after error end.
// Error end
// Read text string.
// Close file.
// Convert the text string that was read to an integer.
// Reached end of file.