 77  WS-SAVE-DBKEY    PIC S9(8) COMP.

     ACCEPT WS-SAVE-DBKEY FROM CURRENCY.
     PERFORM IDMS-STATUS
*     (or ACCEPT WS-SAVE-DBKEY FROM EMPLOYEE-REC CURRENCY.)
*     (or MOVE DBKEY TO WS-SAVE-DBKEY)
*      . . .  misc other processing here . . .
     OBTAIN EMPLOYEE-REC DBKEY IS WS-SAVE-DBKEY.
     PERFORM IDMS-STATUS.
