Design Methodology › Step Four: Writing Process Code for the Dialogs › Writing the Source Code › Sample Premap Process Template: #2

Sample Premap Process Template: #2

 !**************************************************************
  DEFINE SUBROUTINE dberr99.
 !**************************************************************
 !
 !*****************************************************
 !*********  ABEND ROUTINE FOR BAD DB CALLS.  *********
 !*****************************************************
              KEEP LONGTERM ALL RELEASE.
              ACCEPT RECORD        INTO  der-record-name.
              ACCEPT AREA          INTO  der-area-name.
              ACCEPT ERROR SET     INTO  der-error-set.
              ACCEPT ERROR RECORD  INTO  der-error-record.
              ACCEPT ERROR AREA    INTO  der-error-area.
              MOVE   ERROR-STATUS    TO  der-error-status.
              ROLLBACK.
              DISPLAY MESSAGE CODE IS 799999
                        PARMS = (der-error-status
                                ,der-record-name
                                ,der-area-name
                                ,der-error-set
                                ,der-error-record
                                ,der-error-area).
        GOBACK.
             MSEND.