Transfer data from ALV to Z table

Question

Hi,
I need to confirm the exact procedure to transfer data from ALV into z table.I am entering few values at runtime in the ALV & need to populate the z table with the same.
I created a z table,it has been assigned a internal table & work area.A loop is there on the internal table passed to fieldcatalog.
LOOP AT GIT_EKPO INTO GS_EKPO.
    LS_ZPS005-EBELN = GS_EKPO-EBELN.
    LS_ZPS005-EBELP = GS_EKPO-EBELP.
    LS_ZPS005-ERECDAT = GS_EKPO-ERDAT. "this field is not passing value into z table
    LS_ZPS005-LINEID = SY-TABIX.
    LS_ZPS005-POQTY = GS_EKPO-POQTY.
    LS_ZPS005-EREQTY = GS_EKPO-EREQTY. "this field is not passing value into z table
ENDLOOP.
  INSERT INTO ZPS005 VALUES LS_ZPS005.
When I assign the values from Internal table into internal table of z table,the values in fields populated at runtime does not come.
Please help me with your suggestions on the same.
Thanks.

Answer 1

Hi,
I tried the procedure,but do I need to include this before method set_table_for_first_display?
You can have a look at the whole code.Please let me know of a possible solution.Looking forward to an early reply.
Thanks.
TABLES: EKKO,
        EKPO,
        ZPS005.
INITIALIZATION.
PERFORM CREATE_FIELD_CATLOG.
                           Types Declaration                          *
*Structure for EKPO table
  TYPES: BEGIN OF TYPE_EKPO,
          EBELN TYPE EKPO-EBELN, "PURCHSE ORDER NUMBER
          EBELP TYPE EKPO-EBELP, "Item Number of Purchasing Document
          POQTY TYPE EKPO-MENGE, "Purchase Order Quantity
          ERDAT TYPE SY-DATUM, "Date on Which Record Was Created
         LINEID TYPE ZPS005-LINEID, "Unique identification of document line
          EREQTY TYPE ZPS005-EREQTY, "Erection Quantity
     END OF TYPE_EKPO.
                                    Data                              *
           Data Declaration for Internal Table & Work Area            *
*INTERNAL TABLE FOR EKPO TABLE
  DATA:LIT_EKPO TYPE TABLE OF EKPO,
       LS_EKPO TYPE EKPO.
*SECOND INTERNAL TABLE FOR EKPO TABLE
  DATA: GIT_EKPO TYPE TABLE OF TYPE_EKPO.
  DATA: GS_EKPO TYPE TYPE_EKPO.
*INTERNAL TABLE FOR FIELD CATALOG
  DATA: LIT_FIELDCAT TYPE lvc_t_fcat,
        LS_FIELDCAT LIKE LINE OF LIT_FIELDCAT. "WORK AREA FOR FIELD CATALOG
*INTERNAL TABLE FOR Z TABLE ZPS005
  DATA: LIT_ZPS005 TYPE TABLE OF ZPS005,
        LS_ZPS005 TYPE ZPS005.
                        ALV GRID Data Declaration                     *
  DATA: V_CONTAINER TYPE REF TO cl_gui_custom_CONTAINER.
  data: grid TYPE REF TO cl_gui_alv_grid.
  data: ok_code type sy-ucomm.
  DATA: V_LAYOUT TYPE lvc_s_layo.  " FOR LAYOUT
  DATA: V_LINE TYPE I,
        LINEID TYPE I.
  DATA: V_INDEX TYPE SY-TABIX.
                               PARAMETER                              *
  parameter : p_ebeln like ekko-ebeln.
                              START OF SELECTION                      *
START-OF-SELECTION.
                               SELECTION OF DATA                      *
  CALL FUNCTION 'ME_PURCHASE_DOCUMENT_DATA_READ'
    EXPORTING
      I_EBELN                    = P_EBELN
      I_TCODE                    = 'ME23'
  I_NO_COMMIT                = ' '
      I_TRTYP                    = 'A'
  I_NO_MESSAGING             =
  I_NO_MESSAGE_REQ           =
  I_NO_AUTHORITY_CHECK       =
  I_VORGA                    =
IMPORTING
  E_EKKO                     =
   TABLES
     T_EKPO                     = LIT_EKPO
  T_EKET                     =
  T_EKKN                     =
  T_KOMV                     =
   EXCEPTIONS
     NO_EBLNR                   = 1
     EBLNR_NOT_FOUND            = 2
     NO_TCODE                   = 3
     TCODE_NOT_ALLOWED          = 4
     NO_TRTYP                   = 5
     INVALID_CALL_OF_FB         = 6
     OTHERS                     = 7
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  LOOP AT LIT_EKPO INTO LS_EKPO.
    MOVE : LS_EKPO-EBELN TO GS_EKPO-EBELN,
           LS_EKPO-EBELP TO GS_EKPO-EBELP,
           LS_EKPO-MENGE TO GS_EKPO-POQTY.
    APPEND GS_EKPO TO GIT_EKPO.
  ENDLOOP.
End-of-selection.
  perform field_catalog.
  call screen 100.
                               END-OF-SELECTION                       *
                            MODULES FOR ALV DISPLAY                   *
*&      Module  STATUS_0100  OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'PF-STAT'.
  SET TITLEBAR 'TITLE'.
ENDMODULE.                 " STATUS_0100  OUTPUT
**&      Module  USER_COMMAND_0100  INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
  CASE OK_CODE.
    WHEN 'BACK'.
      LEAVE PROGRAM.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
   WHEN 'SWITCH'.
     PERFORM switch_edit_mode.
    WHEN 'SAVE'.
      PERFORM FILL_TABLE.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
**&      Module  layout_0100  OUTPUT
      text
MODULE layout_0100 OUTPUT.
  V_LAYOUT-grid_title = 'Purchase Order Erection Details'.
ENDMODULE.                 " layout_0100  OUTPUT
**&      Module  data_retrivaL  OUTPUT
      text
MODULE data_retrivaL OUTPUT.
  IF V_CONTAINER IS INITIAL.
    CREATE OBJECT V_CONTAINER
      EXPORTING container_name = 'GRID'.
    CREATE OBJECT grid
    EXPORTING i_parent = V_CONTAINER.
  ENDIF.
  CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
      IS_LAYOUT                     = V_LAYOUT
    CHANGING
      IT_OUTTAB                     = GIT_EKPO
      IT_FIELDCATALOG               = LIT_FIELDCAT
    EXCEPTIONS
      INVALID_PARAMETER_COMBINATION = 1
      PROGRAM_ERROR                 = 2
      TOO_MANY_LINES                = 3
      others                        = 4.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDMODULE.                 " data_retrivaL  OUTPUT
*&      Module  field_catalog  OUTPUT
      text
FORM field_catalog.
  CLEAR LS_fieldcat.
  LS_fieldcat-fieldname = 'EBELN'.
  LS_fieldcat-ref_table = 'GIT_EKPO'.
  LS_FIELDCAT-coltext  = 'PURCHSE ORDER NUMBER'.
  LS_FIELDCAT-col_pos   = 0.
  LS_FIELDCAT-EDIT = ' '.
ls_FIELDCAT-style = cl_gui_alv_grid=>mc_style_disabled.
INSERT LS_FIELDCAT INTO TABLE LIT_FIELDCAT.
  APPEND LS_fieldcat TO LIT_fieldcat.
  CLEAR LS_fieldcat.
  LS_fieldcat-fieldname = 'EBELP'.
  LS_fieldcat-ref_table = 'GIT_EKPO'.
  LS_FIELDCAT-coltext  = 'ITEM NUMBER'.
  LS_FIELDCAT-col_pos   = 1.
  LS_FIELDCAT-EDIT = ' '.
ls_FIELDCAT-style = cl_gui_alv_grid=>mc_style_disabled.
INSERT LS_FIELDCAT INTO TABLE LIT_FIELDCAT.
  APPEND LS_fieldcat TO LIT_fieldcat.
  CLEAR LS_fieldcat.
  LS_fieldcat-fieldname = 'POQTY'.
  LS_fieldcat-ref_table = 'GIT_EKPO'.
  LS_FIELDCAT-coltext  = 'PURCHASE ORDER QUANTITY'.
  LS_FIELDCAT-col_pos   = 2.
  LS_FIELDCAT-EDIT = ' '.
ls_FIELDCAT-style = cl_gui_alv_grid=>mc_style_disabled.
INSERT LS_FIELDCAT INTO TABLE LIT_FIELDCAT.
  APPEND LS_fieldcat TO LIT_fieldcat.
  CLEAR LS_fieldcat.
  LS_fieldcat-fieldname = 'ERDAT'.
  LS_fieldcat-ref_table = 'GIT_EKPO'.
  LS_FIELDCAT-coltext  = 'DATE OF ERECTION'.
  LS_FIELDCAT-col_pos   = 3.
  LS_FIELDCAT-EDIT = 'X'.
ls_fieldcat-style = cl_gui_alv_grid=>mc_style_enabled.
INSERT LS_FIELDCAT INTO TABLE LIT_FIELDCAT.
  APPEND LS_fieldcat TO LIT_fieldcat.
  CLEAR LS_fieldcat.
  LS_fieldcat-fieldname = 'EREQTY'.
  LS_fieldcat-ref_table = 'GIT_EKPO'.
  LS_FIELDCAT-coltext  = 'ERECTION QUANTITY'.
  LS_FIELDCAT-col_pos   = 4.
  LS_FIELDCAT-EDIT = 'X'.
ls_fieldcat-style = cl_gui_alv_grid=>mc_style_enabled.
INSERT LS_FIELDCAT INTO TABLE LIT_FIELDCAT.
  APPEND LS_fieldcat TO LIT_fieldcat.
ENDFORM.                 " field_catalog  OUTPUT
*&      Form  SWITCH_EDIT_MODE
      text
-->  p1        text
<--  p2        text
*FORM switch_edit_mode.
IF GRID->is_ready_for_input( ) eq 0.
set edit enabled cells ready for input
   CALL METHOD GRID->set_ready_for_input
     EXPORTING
       i_ready_for_input = 1.
ELSE.
lock edit enabled cells against input
   CALL METHOD GRID->set_ready_for_input
     EXPORTING
       i_ready_for_input = 0.
ENDIF.
*ENDFORM.                               " SWITCH_EDIT_MODE
*&      Form  FILL_TABLE
      text
-->  p1        text
<--  p2        text
FORM FILL_TABLE .
  LOOP AT GIT_EKPO INTO GS_EKPO.
    LS_ZPS005-EBELN = GS_EKPO-EBELN.
    LS_ZPS005-EBELP = GS_EKPO-EBELP.
    LS_ZPS005-POQTY = GS_EKPO-POQTY.
    LS_ZPS005-ERECDAT = GS_EKPO-ERDAT.
    LS_ZPS005-EREQTY = GS_EKPO-EREQTY.
  ENDLOOP.
  MODIFY ZPS005 FROM LS_ZPS005.
ENDFORM.                    " FILL_TABLE