How to generate screen dynamically ?

Question

My requirement is to get the customers informations but the case is  according to the number of the customers to generate the tab screen automatically (ex: 5 customers should be 5 tabs )and each tab screen to layout the information of the customer.
the title of the tab should be the customer name.
any suggestion?
many thanks~

Answer 1

hi
good
try this code
FUNCTION z_change_screen_field_position.
Code Devlioped in version 4.5B
""Local interface:
*"       IMPORTING
*"             VALUE(PROG) LIKE  D020S-PROG DEFAULT SY-REPID
*"             VALUE(DNUM) LIKE  D020S-DNUM DEFAULT SY-DYNNR
*"             VALUE(FNAM) LIKE  D021S-FNAM
*"             VALUE(LINE_NUM)
*"             VALUE(COLN_NUM)
  DATA: h LIKE d020s,
        f LIKE d021s OCCURS 0 WITH HEADER LINE,
        e LIKE d022s OCCURS 0 WITH HEADER LINE,
        m LIKE d023s OCCURS 0 WITH HEADER LINE,
        f1(100), f2(100), f3(100), dynpro_id(44).
Format Screen ID
  dynpro_id = prog.
  dynpro_id+40(4) = dnum.
Import Screen data in tables
  IMPORT DYNPRO h f e m ID dynpro_id.
  CHECK sy-subrc EQ 0.
Modify Screen Data
  LOOP AT f WHERE fnam EQ fnam.
    f-line = line_num.
    f-coln = coln_num.
    MODIFY f.
  ENDLOOP.
  CHECK sy-subrc EQ 0.
Export Screen Data
  EXPORT DYNPRO h f e m ID dynpro_id.
  CHECK sy-subrc EQ 0.
Generate Screen for changes to take effect
  GENERATE DYNPRO h f e m ID dynpro_id MESSAGE f1 LINE f2 WORD f3.
ENDFUNCTION.
thanks
mrutyun^