Programming Example

The following example shows the 830-DELETE-<FileName> routine used to drop a single record from a file.

*       Delete a single record from SALESREP.
        PERFORM 910-AUDIT-BEGIN.

        MOVE WS-COMPANY         TO DB-COMPANY.
        MOVE WS-SALESMAN        TO DB-SALESMAN.
        PERFORM 840-MODIFY-SAWSET1.
        PERFORM 830-DELETE-SALESREP.

        PERFORM 920-AUDIT-END.