Calling LDB (logical Database) into ALV output

Question

h1.Dear Experts,
h3.I have called LDB AFI in my Z program.
h3.My requirement is in program i have to call LDB and output it in ALV  display.
h3.But in output only one entry get displayed .
h3.Here is my code......
REPORT  ZLDB_PROGRAM1                           .
NODES: DIAUFK.
GET DIAUFK.
TYPE-POOLS: SLIS.
*ALV data declarations
data : begin of itab occurs 0,
aufnr like diaufk-aufnr,
auart like diaufk-auart,
erdat like diaufk-erdat,
ustxt like diaufk-ustxt,
sttxt like diaufk-sttxt,
tplnr like diaufk-tplnr,
end of itab.
data : fieldcatalog type slis_t_fieldcat_alv with header line,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid.
data: gt_events type slis_t_event.
DATA: report_id LIKE sy-repid.
move-corresponding diaufk to itab.
append itab.
  fieldcatalog-fieldname   = 'AUFNR'.
  fieldcatalog-seltext_m   = 'Order Number'.
  fieldcatalog-col_pos     = 0.
  fieldcatalog-outputlen   = 10.
  fieldcatalog-emphasize   = 'X'.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'AUART'.
  fieldcatalog-seltext_m   = 'Order Type'.
  fieldcatalog-col_pos     = 1.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'ERDAT'.
  fieldcatalog-seltext_m   = 'Created On'.
  fieldcatalog-col_pos     = 2.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'USTXT'.
  fieldcatalog-seltext_m   = 'User Status Line'.
  fieldcatalog-col_pos     = 3.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'STTXT'.
  fieldcatalog-seltext_m   = 'System Status Line'.
  fieldcatalog-col_pos     = 4.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
report_id = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
  I_INTERFACE_CHECK              = ' '
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                = ' '
   I_CALLBACK_PROGRAM             = report_id
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  I_STRUCTURE_NAME               =
  IS_LAYOUT                      =
   IT_FIELDCAT                    = fieldcatalog[]
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     =
  IT_EVENTS                      =
  IT_EVENT_EXIT                  =
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
  TABLES
    T_OUTTAB                       = itab
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.
Please reply.

Answer 1

hi,
Populate one more field in field catalog for each entry  and try.
fieldcatalog-fieldname = 'AUFNR'.
fieldcatalog-tabname = 'itab'.
fieldcatalog-seltext_m = 'Order Number'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
Regards,
Lokeswari.