After each call, sy-subrc is checked. On failure, the SAP message is captured into the status field and the routine exits; on success, the record is stamped with status, date, time, and user.

Code

ls_pack_req-venum = ls_vekp_pal-venum.
ls_pack_req-exidv = ls_vekp_pal-exidv.

*–Fill Outerbox as lower level HU
ls_pack_req-sub_hu_venum = ls_vekp_out-venum.
ls_pack_req-sub_hu_exidv = ls_vekp_out-exidv.

*–Fill quantity
ls_pack_req-pagew = ls_pallet-pallet_wt.
ls_pack_req-veanz = ‘1’.
ls_pack_req-velin = ‘3’.

ls_venom-venum = ls_vekp_out-venum.
append ls_venom to lt_venom.
clear ls_venom.
ls_venom-venum = ls_vekp_pal-venum. “gs_pallet-venum.
append ls_venom to lt_venom.
clear ls_venom.
*–Refresh
call function ‘HU_PACKING_REFRESH’.
*–Get HU headers
call function ‘HU_GET_HUS’
exporting
if_object = ’04’
if_lock_hus = ‘X’
it_venum = lt_venom
importing
et_header = lt_header
exceptions
hus_locked = 1
no_hu_found = 2
fatal_error = 3
others = 4.
*–Do the packing
if sy-subrc eq 0.
call function ‘HU_PACKING_AND_UNPACKING’
exporting
is_packing_request = ls_pack_req
exceptions
missing_data = 1
hu_not_changeable = 2
not_possible = 3
customizing = 4
weight = 5
volume = 6
serial_nr = 7
fatal_error = 8
others = 9.

if sy-subrc = 0.
call function ‘HU_POST’
exporting
if_synchron = ‘X’
if_commit = ‘X’.

<lfs_data>-status = text-020.
<lfs_data>-error_msg = text-s01.
<lfs_data>-idate = sy-datum.
<lfs_data>-itime = sy-uzeit.
<lfs_data>-iuser = sy-uname.
else.
<lfs_data>-status = text-019.
message id sy-msgid
type sy-msgty
number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
into <lfs_data>-error_msg.
lv_error = abap_true.
lv_msg = <lfs_data>-error_msg.
exit.
endif.
else.
<lfs_data>-idate = sy-datum.
<lfs_data>-itime = sy-uzeit.
<lfs_data>-iuser = sy-uname.
<lfs_data>-status = text-019.
message id sy-msgid
type sy-msgty
number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
into <lfs_data>-error_msg.
lv_error = abap_true.
lv_msg = <lfs_data>-error_msg.
exit.
endif.