DELETE

Apagar um registro de uma tabela. Apaga o registro do banco que estava lido no buffer de registro .


FIND FIRST customer. /* precisa ter um registro lido para executar este comando */

DELETE customer.

DELETE OBJECT

Retirar a referência entre variável handle e programa.


/* exemplo 1 - menor código possível */
DEF VAR h1 AS HANDLE.

RUN prog1.p PERSISTENT SET h1.

DELETE OBJECT h1.

/* exemplo 2 - código completo */
DEF VAR param1 AS CHAR.
DEF VAR h1 AS HANDLE.

IF NOT VALID-HANDLE(h1)
THEN RUN prog1.p PERSISTENT SET h1.

RUN proc1 IN h1 (param1).

MESSAGE DYNAMIC-FUNCTION('func1' IN h1, param1).

IF VALID-HANDLE(h1)
THEN DELETE OBJECT h1.