Untitled

FORM call_external_zglvhum  USING p_exidv TYPE exidv
                                  p_lgnum TYPE lgnum.

  DATA: lt_bdc_tab TYPE TABLE OF bdcdata .                   "$sst: #110
  DATA: ls_bdc_tab TYPE bdcdata.                               "$sst: #110
  DATA opt TYPE ctu_params.

  CLEAR ls_bdc_tab.                                          "$sst: #110
  ls_bdc_tab-program  = 'SAPMZ_GL_LO_GROUP_HU_MOVE_NEW'.     "$sst: #110
  ls_bdc_tab-dynpro   = '9001'.                              "$sst: #110
  ls_bdc_tab-dynbegin = 'X'.                                 "$sst: #110
  APPEND ls_bdc_tab TO lt_bdc_tab.                           "$sst: #110

  CLEAR ls_bdc_tab.                                          "$sst: #110
  ls_bdc_tab-fnam = 'GV_EXIDV'.                              "$sst: #110
  ls_bdc_tab-fval = p_exidv.                                 "$sst: #110
  APPEND ls_bdc_tab TO lt_bdc_tab.                           "$sst: #110

  CLEAR ls_bdc_tab.                                          "$sst: #110
  ls_bdc_tab-fnam = 'BDC_OKCODE'.                            "$sst: #110
  ls_bdc_tab-fval = 'MOVE_G'.                                "$sst: #110
  APPEND ls_bdc_tab TO lt_bdc_tab.                           "$sst: #110

  opt-dismode = 'E'.
  opt-defsize = 'X'.
  opt-racommit = 'X'.

  CALL TRANSACTION 'ZGLVHUM_CLOVER' USING lt_bdc_tab OPTIONS "$sst: #110
    FROM opt.                                                "$sst: #110

ENDFORM.                    " CALL_EXTERNAL_ZGLVHUM



loop at screen .

    if ( screen-name eq 's_tpev' .
        screen-input = 0.   
        modify screen.
    endif .
    
endloop .