RemTask Procedure
The Remtask 4GL procedure isolates the deletion of records from the tasks table from the application. Additional qualifications coan be enforced by this procedure, because it controls access within the application.
/* remtask.osq /
/ remove a task from the project management
** database */
procedure rem_task (person=c20, proj=c12,
job=c9) =
begin
message 'Removing ' + :proj + ' Task: '
+ job;
sleep 3;
delete from tasks where
tasks.name = :person and
tasks.project = :proj and
tasks.task = :job;
end