Pleaase help
Hi EXPERTS,
Below is a report.
I am not clear withits o/p.
according to mu undertndg it shows details of the sflight table with default variant in the screen (initial screen)
Actually i went through the code i dint practice it as i dnt have sap at home.
Regards
Jaya
tables:sflight.******table decalaration********
type-pools:slis.****alv function***************
***********internal table and work area declaration********
data:wa_sflight type sflight,
it_sflight type table of sfligh.
**********field catalog and layout decalartion***********
data:fieldcatalog type slis_t_fieldcat_alv with heade line,
gd_layout typ slis_layout-av,
gd_repid like sy-repid, "Report name
g_save type c value 'x',
g_variant type disvariant,"for function module
gx_variant type disvaraiant,"for function module
g_exit type c,
ispfli type table of spfli.
selection-screen begin of block b1 with frame title text-002.
parameters:variant like disvariant-variant.
selection-screen end of block b1.
initialization.
gx_variant-report =sy-repid.
call function 'REUSE_ALV_VARIANT_DEFAULT_GET'
EXPORTING
I_SAVE = G_SAVE.
CHANGING
CS_VARIANT =GX_VARIANT
EXCEPTIONS
NOT_FOUND = 2.
IF SY-SUBRC = 0.
VARIANT = GX_VARIANT-VARIANT.
ENDIF.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
FORM DATA_RETIEVAL.
SELECT * FROM SFLIGHT INTO TABLE IT_SFLIGHT.
ENDFORM.
PERFORM BUILD_FIELDCATALOG.
FORM FIELDCATALOG.
FIELDCATALOG-FILEDNAME = 'CARRID'.
FIELDCATALOG-SELTEXT_M = 'Airline Code'.
FIELDCATALOG-COL_POS = 0.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATLOG.
FIELDCATALOG-FILEDNAME = 'CONNID'.
FIELDCATALOG-SELTEXT_M = 'FLIGHT CONNECTION NUMBER'.
FIELDCATALOG-COL_POS = 1.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATLOG.
FIELDCATALOG-FILEDNAME = 'FLDATE'.
FIELDCATALOG-SELTEXT_M = 'Flight Date'.
FIELDCATALOG-COL_POS = 2.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATLOG.
FIELDCATALOG-FILEDNAME = 'PRICE'.
FIELDCATALOG-SELTEXT_M = 'AIRFARE'.
FIELDCATALOG-COL_POS = 3.
FIELDCATLOG_OUTPUTLEN = 20.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATLOG.
ENDFORM.
FORM DISPLAY_ALV_REPORT.
GD_REPID =SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = GD_REPID.
I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IT_FIELDCAT = FIELDCATALOG[]
I_SAVE = 'X'
IS_VARIANT = G_VARIANT
TABLES
T_OUTTAB = IT_SFLIGHT
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
FORM TOP-OF-PAGE.
DATA:T_HEADER TYPE SLIS_T_LISTHEADER,
WA_HEADER TYPE SLIS_LISTHEADER.
T_LINE LIKE WA_HEADER-INFO.
LD_LINES TYPE I.
LD_LINESC(10) TYPE C.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = 'SFLIGHT TABLE REPORT'.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = 'DATE:'.
CONCATENATE SY-DATUM+6(2)'.'
SY-DATUM+4(2)'.'
SY-DATUM(4) INTO WA_HEADER-INFO. "todays date
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = T_HEADER.
ENDFORM. "top-of-page
Edited by: jaya ec on May 28, 2008 9:43 AM