Programming Example

The following example shows the E@DBLOCKEQ routine used to modify a record. This particular example assumes that the record has already been retrieved using a Find call.

`CALLP U@AUDITBEGIN Audit Begin IF E@DMSFLAG = 1 RETURN ENDIF EVAL D@CRRNCD = F1@CCCRCD CALLP DN@DBIFCUC1(E@DBLOCKEQ) CALLP S1@MVDT Move Data CALLP DCUC@IO(E@DBSTORE) DBIFCUC CALLP U@AUDITEND Audit End CALLP S1@MVSC Move To Screen EVAL E@CRTMESSAGE = E@CHGCOMPLETE`

     CALLP     U@AUDITBEGIN                     Audit Begin
     IF        E@DMSFLAG = 1                 
     RETURN                                         
     ENDIF                                      
     EVAL      D@CRRNCD       = F1@CCCRCD               
     CALLP     DN@DBIFCUC1(E@DBLOCKEQ)                   
     CALLP     S1@MVDT                              Move Data
     CALLP     DCUC@IO(E@DBSTORE)                   DBIFCUC
     CALLP     U@AUDITEND                           Audit End
     CALLP     S1@MVSC                         Move To Screen
     EVAL      E@CRTMESSAGE   = E@CHGCOMPLETE