Programming Example

The following example shows the 840-MODIFY-<Index> routine used to modify a record. This particular example assumes that the record has already been retrieved using a Find call.

*      Update an individual record to reflect a change.
*
       PERFORM 910-AUDIT-BEGIN.
       IF (DMS-ABORTED)
         GO TO 420-END.
 
       MOVE CU01F1-CUC-CURRENCY-CODE    TO DB-CURRENCY-CODE.
       PERFORM 840-MODIFY-CUCSET1.

       PERFORM 500-MOVE-DATA
       THRU    500-END.
       PERFORM 820-STORE-CUCODES.

       PERFORM 920-AUDIT-END.