/* tr-d-srv.p - Delete trigger for state-version */
TRIGGER PROCEDURE FOR DELETE OF state-version.

/* Include commons */
{common.i}

/* Wipe out all relate state-report-items */
TransBlock:
DO ON ERROR UNDO TransBlock, RETURN ERROR:
  FOR EACH state-item OF state-version EXCLUSIVE-LOCK:
    DELETE state-item NO-ERROR.
  END.

  FOR EACH state-table-name OF state-version EXCLUSIVE-LOCK:
    DELETE state-table-name NO-ERROR.
  END.
          
  FOR EACH state-record OF state-version EXCLUSIVE-LOCK:
    DELETE state-record NO-ERROR.
  END.          
END.

/* Go Back */