Quelltext der Seite VHURM HU POST WE PROD ORDER

<syntaxhighlight lang="abap" line start="1"> 
 CALL FUNCTION 'VHURM_HU_POST_WE_PROD_ORDER'
  EXPORTING
   it_hulist = lt_hulist
   i_aufnr   = me->gv_order_number
  IMPORTING
    e_error   = lv_error.
   IF lv_error IS NOT INITIAL.
    "= Error is occurred

   CALL FUNCTION 'CM_F_MESSAGES_GET'
    TABLES
     e_msgprot  = lt_cm_f_msg
    EXCEPTIONS
     not_active = 1
     OTHERS     = 2.
    IF sy-subrc NE 0 OR lines( lt_cm_f_msg ) EQ 0.
     MESSAGE e000(zmc_xyz) INTO lv_msg.
     "save in BAL
     "RAISE...
    ENDIF.

    LOOP AT lt_cm_f_msg ASSIGNING FIELD-SYMBOL(<ls_cm_f_msg>).
    "save to BAL
    ENDLOOP.
    "RAISE
   ENDIF.
   " No error occurred, write database and send success message
    COMMIT WORK AND WAIT.
</syntaxhighlight>