Programming Example The following example shows the E@DBDELETE routine used to drop a single record from a file. CALLP U@AUDITBEGIN Audit Begin EVAL D@CMPNY = F1@PQCMPN EVAL D@PSCLSS = F1@PQPSCL CALLP DN@DBPAPAQ1(E@DBDELETE) CALLP DPAQ@IO(E@DBDELETE) DBPAPAQ CALLP U@AUDITEND Audit End