Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Pleaase help

Former Member

‎2008 May 28 8:40 AM

0 Likes
464

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

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

Reply
3 REPLIES 3
Read only

Former Member

‎2008 May 28 8:46 AM

0 Likes
443

fieldcatalog with header line

Please Reward if helpful

Tony

Read only

Former Member

‎2008 May 28 8:53 AM

0 Likes
443

It simply displays the Air line details like Flight No, Flight Date and Fare in ALV grid.

Paste the User Command Code also, it is missing in the code.

Regards

Kannaiah

Read only

Former Member

‎2008 May 28 8:59 AM

0 Likes
443

hi,

1) the report prog. has used alv FM to display the o/p.

2) initially the default variant is passed to the report through the alv_dislpay_variant FM.

3) then by using field catalog ur report is passing headings to the o/p. ( i.e ur o/p table should have field heads rite for that u r using field catalog and then passing this field catalog to ur FM alv_list _display)

4) now u need a top of page in ur o/p display, so u wil import events into ur report prog. with the help of FM.

5) that is why u have used user_command in ur FM.

6) now events of alv can be accessed bcoz u have passed user_command to bring the alv events to ur report prog.

7) after using the top of page event, now ur output display should dispaly the top of page.

😎 for that u r using another FM . alv_ commentary_write..

these are the interpretation of ur code...

feel free to ask doubts

reward if helpful

regards

mano