SAP ABAP

ATA :  ls_message    TYPE  bapiret2 ,         lt_message    TYPE  STANDARD  TABLE  OF  bapiret2 ,         ls_message1   TYPE                    bapiret2 ,         ls_msg        TYPE                    bapiret2 ,         bank_detail   TYPE                    bapibus1006_bankdetail ,         business_par  TYPE                    bu_partner ,         gt_status     type  STANDARD  TABLE  OF  ZVENDOR_BANK_S ,         gs_status     type                    ZVENDOR_BANK_S .    LOOP  AT  gt_file  INTO  gs_file .      MOVE  gs_file - bpartner                     TO  business_par .      MOVE  gs_file - bank_ctry                    TO  bank_detail - bank_ctry .      MOVE  gs_file - bank_key                     TO  bank_detail - bank_key .      MOVE  gs_file - bank_acct                    TO  bank_detail - bank_acct .      MOVE  gs_file - ctrl_key                     TO  bank_detail - ctrl_key .      MOVE  gs_file - accountholder                TO  bank_detail - accountholder .   

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR  s_oldcn - low .    SELECT  *      FROM  ZCS_INVOICE_EXP      INTO  CORRESPONDING  FIELDS  OF  TABLE  it_search . *    WHERE zzclmno EQ 'ZHEX'.    CALL  FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST'      EXPORTING *     DDIC_STRUCTURE  = 'EKKO'       retfield         =  'ZZINV'       dynprofield      =  'S_OLDCN-LOW'       window_title     =  'INVOICE'       value_org        =  'S'      TABLES       value_tab        =  it_search       return_tab       =  it_return      EXCEPTIONS       parameter_error  =  1       no_values_found  =  2        OTHERS           =  3 .    READ  TABLE  it_return  INTO  wa_return  INDEX  1 .   s_oldcn - low  =  wa_return - fieldval .

FORM  f_user_command  USING  vl_ucomm  LIKE  sy - ucomm             "#EC CALLED                   rs_selfield  TYPE  slis_selfield .    DATA :  lv_case  TYPE  sy - ucomm .    DATA :  gd_repid  LIKE  sy - repid ,              ref_grid  TYPE  REF  TO  cl_gui_alv_grid .    DATA :  lv_approval1  TYPE  char10 ,         lv_approval2  TYPE  char10 ,         lv_approval3  TYPE  char10 .    CALL  FUNCTION  'GET_GLOBALS_FROM_SLVC_FULLSCR'      IMPORTING       e_grid  =  ref_grid .    CALL  METHOD  ref_grid -> check_changed_data .   lv_case  =  sy - ucomm .    CASE  lv_case .      WHEN  'SELECTALL' .        LOOP  AT  gt_zbatch_h2h  INTO  gs_zbatch_h2h .         gs_zbatch_h2h - check  =  'X' .  " ' '.          MODIFY  gt_zbatch_h2h  FROM  gs_zbatch_h2h  TRANSPORTING  check .          COMMIT  WORK .        ENDLOOP .       rs_selfield - refresh  =  'X' .      WHEN  'DESELECT' .        LOOP  AT  gt_zbatch_h2h  IN