Programming Example

The following example shows the E@DBFULLDELETE routine used to drop a single record from a file.

Deleting a single record

     CALLP     U@AUDITBEGIN                       Audit Begin
     EVAL      D@CMPNY        = F1@PQCMPN                    
     EVAL      D@PSCLSS       = F1@PQPSCL                    
     CALLP     DN@DBPAPAQ1(E@DBFULLDELETE)                   
     CALLP     DPAQ@IO(E@DBFULLDELETE)                DBPAPAQ
     CALLP     U@AUDITEND                           Audit End