Was this helpful?
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
Last modified date: 08/28/2024