CREATE TABLE VALUE REQUEST FOR INPUT PARAMETERS IN MODULE POOL PROGRAM

process before output.
 module status_0100.

process after input.
 module user_command_0100.
 process on value-request.
 field: t001-bukrs module zsearch_company.

“”””””’’’’’’’’’’’’Start  main module program”””””””””””””””

module zsearch_company input.

  data: begin of t_company occurs 0,
    bukrs type t001-bukrs,
    butxt type t001-butxt,
      end of t_company.

select   bukrs  butxt
  from  t001 into corresponding fields of table t_company
        where  bukrs  = 'COM1'


  call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
      retfield    = 'BUKRS' "field name
      dynpprog    = sy-cprog "Program name
      dynpnr      = sy-dynnr   " screen number
      dynprofield = 'T001-BUKRS' "screen field name
      value_org   = 'S'

    tables
      value_tab   =  t_company.

endmodule.                 " ZSEARCH_COMPANY  INPUT

“”””””’’’’’’’’’’’’end  main module program”””””””””””””””