Transaction BUS3 - Further checks - Own function module

Question

In order to create additional checks on BP Identification Numbers, we used tx BUS3 to add to view BUP520 under Further Checks our own function module.
As a start we took a straight copy of BUP_BUPA_PAI_MISC, the SAP delivered function module.
After the SAP FM, our Z-module gets called with parameter I_SICHT, identical to the
parameters of the SAP FM. No other parameters nor tables get passed.
How can we get hold of the same data as the SAP FM ? We want to check e.g. table
GT_BUT0ID (identification numbers). It is filled in the SAP FM at the end of FORM bup520_pai, but is empty in the Z-module ?
Thanks for your solution.

Answer 1

Hi.
We also validate the ident. numbers but on check or save event.
Create and Add the new z.fm to the event DCHCK (appl = 'BUP') in tcode BUS7.
We use some trick to get this data from memory [SAPLBUD0].
You can try to use it for the PAI (the same f.group = BUD0)
function z_gzp_but0id_get.
""Local interface:
*"  TABLES
*"      OT_BUT0ID STRUCTURE  ZGZP_ST_BUT0ID OPTIONAL
*"      OT_MEM_BUT0ID STRUCTURE  VBUT0ID OPTIONAL
  data: lv_fname1(50) type c value '(SAPLBUD0)GT_BUT0ID[]'.
  data: lv_fname2(50) type c value '(SAPLBUD0)MEM_BUT0ID[]'.
***------ ID-NUMMERN -
     BEGIN OF GT_BUT0ID OCCURS 0.
       INCLUDE STRUCTURE XBUT0ID.
**DATA:   XMARK     LIKE BOOLE-BOOLE,
       TEXT      LIKE TB039B-TEXT,
       ENTRYDATESTR TYPE BU_ENTRYDATESTR,
       DATEFROMSTR  TYPE BU_DATEFROMSTR_ID,
       DATETOSTR    TYPE BU_DATETOSTR_ID,
     END   OF GT_BUT0ID,
***------ ID-NUMMERN: ZUORDNUNGEN (ALTER STAND) -
     BEGIN OF GT_BUT0ID_OLD OCCURS 0.
       INCLUDE STRUCTURE XBUT0ID.
**DATA: END OF GT_BUT0ID_OLD,
corresponds to declaration of gt_but0id in include LBUD0TOP
  types: tp_s_but0id type zgzp_st_but0id.
  types: tp_t_but0id type standard table of zgzp_st_but0id.
  types: tp_s_mem_but0id type vbut0id.
  types: tp_t_mem_but0id type standard table of vbut0id.
  field-symbols: <fs1> type tp_t_but0id.
  field-symbols: <fs2> type tp_t_mem_but0id.
  data: ls_but0id1 type tp_s_but0id.
  data: ls_but0id2 type vbut0id.
  if ot_but0id is requested.
    assign (lv_fname1) to <fs1>.
    clear ot_but0id[].
    loop at <fs1> into ls_but0id1.
      ot_but0id = ls_but0id1.
      append ot_but0id.
    endloop.
  endif.
  if ot_mem_but0id is requested.
    assign (lv_fname2) to <fs2>.
    clear ot_mem_but0id[].
    loop at <fs2> into ls_but0id2.
      ot_mem_but0id = ls_but0id2.
      append ot_mem_but0id.
    endloop.
  endif.
endfunction.
I hope it helps.
Regards, Robert