Omron NX701-1620 - Page 240

Appendix A
A-52
NJ/NX-series Database Connection CPU Units User’s Manual (W527)
);
OperatingStart_Delete := FALSE;
END_IF;
// Delete records from the table Production of the DB Connection MyDB1. Timeout is not monitored for the instruction execution.
IF (Operating_Delete=TRUE) THEN
// Delete the records.
DB_Delete_instance(
Execute := TRUE,
DBConnection := MyDB1,
TableName := 'Production',
Where := WhereCond_Delete
);
IF (DB_Delete_instance.Done=TRUE) THEN
Operating_Delete :=FALSE; // Normal end
Request_Delete :=FALSE;
END_IF;
IF (DB_Delete_instance.Error=TRUE) THEN
// Execute the error handler.
// Program the error handler (FaultHandler_Delete) for the device.
FaultHandler_Delete();
Operating_Delete := FALSE;
Request_Delete :=FALSE;
END_IF;
END_IF;
// ---------------------------------------------------------------------------------------------------------------------
// - Close the DB Connection MyDB1.
// Start the sequence when the variable Trigger_Close changes to TRUE.
IF ( (Trigger_Close=TRUE) AND (LastTrigger_Close=FALSE) ) THEN
OperatingStart_Close := TRUE;
Operating_Close := TRUE;
END_IF;
LastTrigger_Close := Trigger_Close;
// Sequence start processing
IF (OperatingStart_Close=TRUE) THEN
// Initialize the instance of the applicable DB Connection Instruction.
DB_Close_instance( Execute:=FALSE );
OperatingStart_Close := FALSE;
END_IF;
// Close the DB Connection MyDB1.
IF (Operating_Close=TRUE) THEN