Table Control in Custom Infotype

Question

Hi Everyone,
I have created a custom infotype 9200 where i have four field bunching (zband01, zgrade01, zcurrp01, zrmrks01, zbandp02...upto 10 repeations) in PS9200 structure. I have created another structure ZQ9200 with just the above four fields in the structure. This structure field names are assigned to the table control layout fields in the module pool.
I created another internal table and workarea with the same four field structure in the program. In PAI, in the 'loop with control TC', i am populating the internal table first. Then after the loop ends, i am loopinf the internal table and populating the P9200 structure.
Problem here is in pa30, if i want to create a record to IT 9200, i am entering the values in the table control but could not hold the values after I press the 'Enter' button.
PLease do help me.

Answer 1

Hi
It would be something like this
PROCESS BEFORE OUTPUT.
*         general infotype-independent operations
  MODULE before_output.
  CALL SUBSCREEN subscreen_empl   INCLUDING empl_prog empl_dynnr.
  CALL SUBSCREEN subscreen_header INCLUDING header_prog header_dynnr.
*         infotype specific operations
  MODULE p9991.
  LOOP AT g_tabla WITH CONTROL g_d_tc INTO g_wa.
    MODULE pbo_tc.
  ENDLOOP.
************+
PROCESS AFTER INPUT.
*  process exit commands
  MODULE exit AT EXIT-COMMAND.
*         processing after input
*         check and mark if there was any input: all fields that
*         accept input HAVE TO BE listed here
  CHAIN.
    FIELD p9991-begda.
    FIELD p9991-endda.
    MODULE input_status ON CHAIN-REQUEST.
  ENDCHAIN.
*      process functioncodes before input-checks                      *
  MODULE pre_input_checks.
*         input-checks:                                               *
  LOOP.
    MODULE pai_tc.
  ENDLOOP.
*   insert check modules here:
*&      Module  PBO_TC  OUTPUT
*       text
module PBO_TC output.
  MOVE-CORRESPONDING G_WA TO ZQ9991.
endmodule.                 " PBO_TC  OUTPUT
*&      Module  PAI_TC  INPUT
*       text
MODULE pai_tc INPUT.
  MOVE-CORRESPONDING zq9991 TO g_wa.
  PERFORM tc_update TABLES g_tabla
                      USING  g_wa
                       g_d_tc-current_line.
ENDMODULE.                 " PAI_TC  INPUT
*&      Form  TC_UPDATE
*       text
*      -->P_G_TABLA  text
*      -->P_G_WA  text
*      -->P_G_D_TC_CURRENT_LINE  text
FORM tc_update  TABLES   p_tabla
                         USING    value(p_datos)
                                  value(p_linea).
  READ TABLE p_tabla
           TRANSPORTING NO FIELDS
           INDEX p_linea.
  IF sy-subrc = 0.
    MODIFY p_tabla FROM p_datos INDEX p_linea.
  ELSE.
    APPEND p_datos TO p_tabla.
  ENDIF.
ENDFORM.                    " TC_UPDATE