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