Giving problem in ecc6.0

Question

Hi experts,
  PARAMETERS:
  P_TABLE LIKE DD03L-TABNAME.
DATA: BEGIN OF XTABLE OCCURS 10,
      string(3000),
      END OF XTABLE.
  SELECT * FROM (P_TABLE) INTO TABLE XTABLE ORDER BY PRIMARY KEY.
The above code is working in 4.6 but not in ECC6.0 because the type of p_table and xtable are not convertable each other.
Kindly give a solution how to declare the internal table to store the data coming from the table which we entered on  selection-screen.
Thanks & Regards,
Sweta.

Answer 1

REPORT  ZSRK_024                                .
TYPE-POOLS : ABAP.
PARAMETERS: P_TABLE LIKE DD03L-TABNAME.
DATA: BEGIN OF XTABLE OCCURS 10,
STRING(3000),
END OF XTABLE.
FIELD-SYMBOLS: <DYN_TABLE> TYPE STANDARD TABLE,
             <DYN_WA>,
             <DYN_FIELD>,
             <DYN_WA1> TYPE C,
             <DYN_XTABLE> TYPE C.
DATA: DY_TABLE TYPE REF TO DATA,
    DY_LINE  TYPE REF TO DATA,
    XFC TYPE LVC_S_FCAT,
    IFC TYPE LVC_T_FCAT.
PERFORM GET_STRUCTURE.
PERFORM CREATE_DYNAMIC_ITAB.
PERFORM GET_DATA.
LOOP AT <DYN_TABLE> INTO <DYN_WA>.
  ASSIGN <DYN_WA> TO <DYN_WA1> CASTING.
  ASSIGN XTABLE  TO <DYN_XTABLE>  CASTING.
  <DYN_XTABLE> = <DYN_WA1>.
  APPEND <DYN_XTABLE> TO XTABLE.
  CLEAR <DYN_XTABLE>.
ENDLOOP.
*&      Form  get_structure
      text
FORM GET_STRUCTURE.
  DATA : IDETAILS TYPE ABAP_COMPDESCR_TAB,
       XDETAILS TYPE ABAP_COMPDESCR.
  DATA : REF_TABLE_DES TYPE REF TO CL_ABAP_STRUCTDESCR.
Get the structure of the table.
  REF_TABLE_DES ?=
      CL_ABAP_TYPEDESCR=>DESCRIBE_BY_NAME( P_TABLE ).
  IDETAILS[] = REF_TABLE_DES->COMPONENTS[].
  LOOP AT IDETAILS INTO XDETAILS.
    CLEAR XFC.
    XFC-FIELDNAME = XDETAILS-NAME .
    XFC-DATATYPE = XDETAILS-TYPE_KIND.
    XFC-INTTYPE = XDETAILS-TYPE_KIND.
    XFC-INTLEN = XDETAILS-LENGTH.
    XFC-DECIMALS = XDETAILS-DECIMALS.
    APPEND XFC TO IFC.
  ENDLOOP.
ENDFORM.                    "get_structure
*&      Form  create_dynamic_itab
      text
FORM CREATE_DYNAMIC_ITAB.
Create dynamic internal table and assign to FS
  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG = IFC
    IMPORTING
      EP_TABLE        = DY_TABLE.
  ASSIGN DY_TABLE->* TO <DYN_TABLE>.
Create dynamic work area and assign to FS
  CREATE DATA DY_LINE LIKE LINE OF <DYN_TABLE>.
  ASSIGN DY_LINE->* TO <DYN_WA>.
ENDFORM.                    "create_dynamic_itab
*&      Form  get_data
      text
FORM GET_DATA.
Select Data from table.
    SELECT * INTO TABLE <DYN_TABLE>
             FROM (P_TABLE) ORDER BY PRIMARY KEY.
ENDFORM.                    "get_data
Edited by: sreekanth reddy on Nov 4, 2008 5:03 PM
Edited by: sreekanth reddy on Nov 4, 2008 5:04 PM