NO_FIELDCATALOG_AVAILABLE

Question

ERROR:EXCEPTION 'NO_FIELDCATALOG_AVAILABLE' RAISED
CAN ANYBODY HELP ME IN SOLVING THIS ERROR
REPORT  YLOOKUP_FINDER_TEST.
TYPE-POOLS slis.
DATA : fcat1 TYPE slis_t_fieldcat_alv.
DATA: BEGIN OF t_display OCCURS 0,
         targetname TYPE rstran-targetname,
         sourcename TYPE rstran-sourcename,
         tranid TYPE rstran-tranid,
         routine TYPE rstran-startroutine,
         line_no TYPE rsaabap-line_no,
         line TYPE rsaabap-line,
END OF t_display.
DATA : input_pattern1(70) TYPE c.
DATA : input_pattern2(70) TYPE c.
DATA : same_source(30) TYPE c.
SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE text-004.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(22) text-002 FOR FIELD infoprov.
PARAMETERS infoprov LIKE input_pattern1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-001 FOR FIELD mdobject.
PARAMETERS: mdobject AS CHECKBOX.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-003 FOR FIELD pattern.
PARAMETERS: pattern AS CHECKBOX.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b01.
**Internal table declerations**************************************
TYPES:  BEGIN OF t_trans_lookup_finder,
         targetname TYPE rstran-targetname,
         sourcename TYPE rstran-sourcename,
         tranid TYPE rstran-tranid,
         routine TYPE rstran-startroutine,
         line_no TYPE rsaabap-line_no,
         line TYPE rsaabap-line,
END OF t_trans_lookup_finder.
DATA:
  i_lookup_finder TYPE STANDARD TABLE OF t_trans_lookup_finder,
  wa_lookup_finder TYPE t_trans_lookup_finder,
  i_trans_lookup_finder TYPE STANDARD TABLE OF t_trans_lookup_finder,
  wa_trans_lookup_finder TYPE t_trans_lookup_finder,
  i_trans_final TYPE STANDARD TABLE OF t_trans_lookup_finder,
  wa_trans_final TYPE t_trans_lookup_finder.
DATA : i(7) TYPE n.
DATA  old_cube(20) TYPE c VALUE ' '.
DATA  old_source(20) TYPE c VALUE ' '.
**Selections for update rules**************************************
IF ( infoprov NE '' ).
  IF ( pattern NE 'X' ).
    IF ( mdobject NE 'X' ).
      CONCATENATE 'from*A' infoprov '00' '' INTO input_pattern1.
    ELSE.
      CONCATENATE 'from*p' infoprov '' INTO input_pattern1.
    ENDIF.
    CONCATENATE '8' infoprov '*' INTO same_source.
    SELECT DISTINCT
           infocube
           isource
           b~updid
           routine
           line_no
           line
           INTO TABLE i_lookup_finder FROM
           rsupdinfo AS a  INNER JOIN rsupdrout AS b ON a~updid =
           b~updid
                           INNER JOIN rsaabap AS c ON c~codeid =
                           b~codeid
                           WHERE
                           aobjvers = 'A' AND bobjvers = 'A' AND
                           cobjvers = 'A' AND aobjvers = 'A'
                           AND
                           b~routine GE 9000.
  ELSE.
    input_pattern1 = infoprov.
    SELECT DISTINCT
           infocube
           isource
           b~updid
           routine
           line_no
           line
           INTO TABLE i_lookup_finder FROM
           rsupdinfo AS a  INNER JOIN rsupdrout AS b ON a~updid =
           b~updid
                           INNER JOIN rsaabap AS c ON c~codeid =
                           b~codeid
                           WHERE
                           aobjvers = 'A' AND bobjvers = 'A' AND
                           cobjvers = 'A' AND aobjvers = 'A'.
    SELECT DISTINCT
           targetname
           sourcename
           a~tranid
           c~codeid
           line_no
           line
           INTO TABLE i_trans_lookup_finder FROM
           rstran AS a INNER JOIN rstransteprout AS b
                           ON atranid = btranid
                       INNER JOIN rsaabap AS c ON bcodeid = ccodeid
                           WHERE
                           aobjvers = 'A' AND bobjvers = 'A' AND
                           c~objvers = 'A'.
    APPEND LINES OF i_trans_lookup_finder TO i_lookup_finder.
  ENDIF.
**Selections for Transformations(start routine)********************
  SELECT DISTINCT
         targetname
         sourcename
         tranid
         startroutine
         line_no
         line
         INTO TABLE i_trans_lookup_finder FROM
      rstran AS a INNER JOIN rsaabap AS b ON astartroutine = bcodeid
                         WHERE
                         aobjvers = 'A' AND bobjvers = 'A'.
  APPEND LINES OF i_trans_lookup_finder TO i_lookup_finder.
**Selections for Transformations(End routine)**********************
  SELECT DISTINCT
         targetname
         sourcename
         tranid
         endroutine
         line_no
         line
         INTO TABLE i_trans_lookup_finder FROM
       rstran AS a  INNER JOIN rsaabap AS b ON aendroutine = bcodeid
                         WHERE
                         aobjvers = 'A' AND bobjvers = 'A'.
  APPEND LINES OF i_trans_lookup_finder TO i_lookup_finder.
**Selections for Transformations(Expert routine)*******************
  SELECT DISTINCT
         targetname
         sourcename
         tranid
         expert
         line_no
         line
         INTO TABLE i_trans_lookup_finder FROM
         rstran AS a  INNER JOIN rsaabap AS b ON aexpert = bcodeid
                         WHERE
                         aobjvers = 'A' AND bobjvers = 'A'.
  APPEND LINES OF i_trans_lookup_finder TO i_lookup_finder.
**Extracting records where lookup code is written******************
  SORT i_lookup_finder BY targetname sourcename tranid routine line_no.
  LOOP AT i_lookup_finder INTO wa_lookup_finder.
    TRANSLATE wa_lookup_finder-line TO UPPER CASE.
    IF ( wa_lookup_finder-line CP input_pattern1 ) AND
       ( wa_lookup_finder-sourcename NP same_source ).
      IF ( pattern NE 'X' ).
        APPEND wa_lookup_finder TO i_lookup_finder.
        old_cube = wa_lookup_finder-targetname.
        old_source = wa_lookup_finder-sourcename.
      ELSE.
        APPEND wa_lookup_finder TO i_lookup_finder.
      ENDIF.
    ENDIF.
  ENDLOOP.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = 'YLOOKUP_FINDER_TEST'
      i_internal_tabname     = 'I_LOOKUP_FINDER'
      i_inclname             = 'YLOOKUP_FINDER_TEST'
    CHANGING
      ct_fieldcat            = fcat1
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = 'YLOOKUP_FINDER_TEST'
     it_fieldcat                       = fcat1
    TABLES
      t_outtab                          = i_lookup_finder
EXCEPTIONS
   PROGRAM_ERROR                     = 1
   OTHERS                            = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDIF.

Answer 1

hi,
You have only declared the fieldcatalog but did not append the fieldcatalog as the output internal table format. Declare a work area like the fieldcatalog update the workarea with the fieldname, output length, column position for each and every field of the final internal table and append it to the fieldcatalog.
Regards,
sirisha