3 :
FilePuts_instance(
Execute:=TRUE,
FileID
:=Fid,
In
:=StrDat);
IF (FilePuts_instance.Done=TRUE) THEN
Index1:=Index1+INT#1;
IF (Index1>INT#99) THEN
Stage:=INT#4;
ELSE
FilePuts_instance(Execute:=FALSE);
Stage:=INT#2;
END_IF;
END_IF;
IF (FilePuts_instance.Error=TRUE) THEN
Stage:=INT#99;
END_IF;
4
:
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;
NJ-series Instructions Reference Manual (W502)
// Write text string.
// If 100 lines were written...
// Error end
// Close file.
// File ID
// Normal end
// Error end
// Processing after error end.
2 Instruction Descriptions
2
2-839