please try to find out error in this program

[Former Member]

Hi abapers,

when i execute this report , i got the error. please anybody find the error "Runtime Errors GETWA_NOT_ASSIGNED"

Short text

Field symbol has not yet been assigned." this error i got..

please help me..

REPORT  ZBLOCKED_ALV_CLS.

*Data Objects to avoid tables work area.
DATA: V_KUNNR TYPE KNA1-KUNNR,
      V_LIFNR TYPE LFA1-LIFNR.

*Logiv to maintain frist block.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS: CUSTOMER FOR V_KUNNR.
SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
  SELECT-OPTIONS: VENDOR FOR V_LIFNR.
SELECTION-SCREEN END OF BLOCK B2.

TYPES: BEGIN OF TY_VBAK,
       VBELN TYPE VBELN_VA,
       ERDAT TYPE ERDAT,
       END OF TY_VBAK.

TYPES: BEGIN OF TY_EKKO,
       EBELN TYPE EBELN,
       AEDAT TYPE ERDAT,
       END OF TY_EKKO.

DATA: WA_VBAK TYPE TY_VBAK,
      WA_EKKO TYPE TY_EKKO,
      I_VBAK TYPE STANDARD TABLE OF TY_VBAK,
      I_EKKO TYPE STANDARD TABLE OF TY_EKKO.

TYPE-POOLS: SLIS.

DATA: REPID TYPE SY-REPID.

DATA: LAYOUT TYPE SLIS_LAYOUT_ALV,
      FCAT TYPE SLIS_FIELDCAT_ALV,
  F_VBAK LIKE STANDARD TABLE OF FCAT,
  F_EKKO LIKE STANDARD TABLE OF FCAT,
  I_EVENTS TYPE SLIS_T_EVENT.

START-OF-SELECTION.
REPID = SY-REPID.
* REPID TYPE SY-REPID.
PERFORM: GET_DATA,
         COL_HEAD.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
  EXPORTING
    I_CALLBACK_PROGRAM             = SY-REPID.

          .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                        = LAYOUT
    IT_FIELDCAT                      = F_VBAK
    I_TABNAME                        = 'I_VBAK'
    IT_EVENTS                        = I_EVENTS
*   IT_SORT                          =
*   I_TEXT                           = ' '
  TABLES
    T_OUTTAB                         = I_VBAK
* EXCEPTIONS
*   PROGRAM_ERROR                    = 1
*   MAXIMUM_OF_APPENDS_REACHED       = 2
*   OTHERS                           = 3
          .

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                        = LAYOUT
    IT_FIELDCAT                      = F_EKKO
    I_TABNAME                        = 'I_EKKO'
    IT_EVENTS                        = I_EVENTS
*   IT_SORT                          =
*   I_TEXT                           = ' '
  TABLES
    T_OUTTAB                         = I_EKKO
* EXCEPTIONS
*   PROGRAM_ERROR                    = 1
*   MAXIMUM_OF_APPENDS_REACHED       = 2
*   OTHERS                           = 3
          .


CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_DATA .

SELECT VBELN ERDAT FROM VBAK INTO TABLE I_VBAK WHERE KUNNR IN CUSTOMER.

  SELECT EBELN AEDAT FROM EKKO INTO TABLE I_EKKO WHERE LIFNR IN VENDOR.

ENDFORM.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form  COL_HEAD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM COL_HEAD .

PERFORM BUILD_CAT USING:
      'VBELN' 'VBAK' 'VBELN' 'I_VBAK' 'SD',
      'ERDAT' 'VBAK' 'ERDAT' 'I_VBAK' 'SD',
      'EBELN' 'EKKO' 'EBELN' 'I_EKKO' 'MM',
      'AEDAT' 'EKKO' 'AEDAT' 'I_EKKO' 'MM'.

ENDFORM.                    " COL_HEAD
*&---------------------------------------------------------------------*
*&      Form  BUILD_CAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0238   text
*      -->P_0239   text
*      -->P_0240   text
*      -->P_0241   text
*      -->P_0242   text
*----------------------------------------------------------------------*
FORM BUILD_CAT  USING    VALUE(P_0238)
                         VALUE(P_0239)
                         VALUE(P_0240)
                         VALUE(P_0241)
                         VALUE(P_0242).
  CLEAR FCAT.
  IF P_0242 = 'SD'.
    FCAT-REF_FIELDNAME = P_0238.
    FCAT-REF_TABNAME = P_0239.
    FCAT-FIELDNAME = P_0240.
    FCAT-TABNAME = P_0241.
    APPEND FCAT TO F_VBAK.
 ENDIF.

 IF P_0242 = 'MM'.
    FCAT-REF_FIELDNAME = P_0238.
    FCAT-REF_TABNAME = P_0239.
    FCAT-FIELDNAME = P_0240.
    FCAT-TABNAME = P_0241.
    APPEND FCAT TO F_VBAK.
 ENDIF.

ENDFORM.                    " BUILD_CAT

Thanks,

Vinay.

Edited by: abapvinay on Apr 19, 2011 4:56 AM

[deepak_dhamat]

hi ,

Please write your code properly in <> code <>

regards

Deepak.

[Former Member]

Hi,

You have passed as shown below :

IF p_0242 = 'SD'.
    fcat-ref_fieldname = p_0238.
    fcat-ref_tabname = p_0239.
    fcat-fieldname = p_0240.
    fcat-tabname = p_0241.
    APPEND fcat TO f_vbak.
  ENDIF.
  IF p_0242 = 'MM'.
    fcat-ref_fieldname = p_0238.
    fcat-ref_tabname = p_0239.
    fcat-fieldname = p_0240.
    fcat-tabname = p_0241.
    APPEND fcat TO f_vbak. " Change this to F_EKKO
  ENDIF.

Hope this helps

Regards,

Madhukar Shetty

[Former Member]

Thanks for giving the reply Mr Madhukar..

now problem solved.

Thanks,

Vinay

Edited by: abapvinay on Apr 19, 2011 7:19 AM

[Former Member]

Hi,

Its because of the empty fieldcatalog. Just set the break points over the function calls. At the second 'List_append' call, You will find the fieldcatalog 'F_EKKO' empty .It wont give the dump while calling append FM. but at the display FM, Dump will occur. Just try to populate it with entries. Use seperate fieldcatalog for each list. If you want it as single block, combine both field catalog and internal table before the function calls.

PERFORM FIELD_CAT1. " Before the first list append

PERFORM FIELD_CAT2. "Before the second list append.

Regards,

Chellamma Chandrasekar.