reports

Former Member · ‎2008 Mar 14

Hi,

Please send sample program on alv reports.

Regrds,

Madhu

Former Member · ‎2008 Mar 14

Check this out to find some sample alv programs

http://sap-img.com/abap-function.htm

Regards,

Santosh

Former Member · ‎2008 Mar 14

Hi,

Check the following links:

http://sapdev.co.uk/reporting/alvhome.htm

http://sapmaterial.com/alv.html

http://www.sap-img.com/abap-function.htm

Regards,

Bhaskar

Former Member · ‎2008 Mar 14

Hi

i am sending sample program for alv.

TYPE-POOLS : slis.

----

INTERNAL TABLE DECLARATION

----

DATA: it_ekpo TYPE STANDARD TABLE OF z50875_ekpo_alv ,

wa_ekpo type z50875_ekpo_alv,

it_fieldcat TYPE slis_t_fieldcat_alv,

wa_fieldcat TYPE slis_fieldcat_alv,

v_ebeln TYPE ekpo-ebeln,

it_events TYPE slis_t_event, "events table

wa_events TYPE slis_alv_event,

it_headings TYPE slis_t_listheader,

wa_headings LIKE LINE OF it_headings.

SELECT-OPTIONS so_ebeln FOR v_ebeln.

----

START-OF-SELECTION

----

START-OF-SELECTION.

SELECT ebeln ebelp matnr netwr

FROM ekpo

INTO TABLE it_ekpo

WHERE ebeln IN so_ebeln.

PERFORM fill_events_table.

PERFORM populate_feildcat.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-repid

it_fieldcat = it_fieldcat

it_events = it_events[]

TABLES

t_outtab = it_ekpo

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.

&----

*& Form populate_feildcat

&----

FORM populate_feildcat .

wa_fieldcat-fieldname = 'EBELN'.

wa_fieldcat-seltext_l = 'DOCUMENT NUMBER'.

APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-fieldname = 'EBELP'.

wa_fieldcat-seltext_l = 'ITEM DOCUMENT NUMBER'.

APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-seltext_l = 'MATERIAL'.

APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-fieldname = 'NETWR'.

wa_fieldcat-seltext_l = 'NET VALUE'.

APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-fix_column = 'X'.

ENDFORM. " populate_feildcat

&----

*& Form fill_events_table

&----

FORM fill_events_table .

CLEAR wa_events.

wa_events-name = 'TOP_OF_PAGE'.

wa_events-form = 'PRINT_HEADING'.

APPEND wa_events TO it_events.

ENDFORM. " fill_events_table

&----

*& Form print_heading

&----

FORM print_heading.

CLEAR wa_headings.

wa_headings-typ = 'S'.

wa_headings-info = 'DEMO ON ALV REPORTS'.

APPEND wa_headings TO it_headings.

CLEAR wa_headings.

wa_headings-typ = 'H'.

wa_headings-info = 'PURCHASE ORDER ITEM DETAILS'.

APPEND wa_headings TO it_headings.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_headings[]

i_logo = 'ENJOYSAP_LOGO'.

I_END_OF_LIST_GRID = I_END_OF_LIST_GRID
I_ALV_FORM = I_ALV_FORM.

ENDFORM. "print_heading

Former Member · ‎2008 Mar 14

Hi

http://www.sap-img.com/abap/sample-programs-on-alv-grid.htm

http://www.sap-img.com/abap/abap-example-program-alv-grid-control.htm

http://www.sap-img.com/abap/line-color-in-alv-example.htm

Former Member · ‎2008 Mar 14

EDI CONFIGURATION :

***************************

STEP1 : DEFINE THE EDI PORT : TCODE WE21.

PORTS --> FILE ~~> CREATE <~~ENTR

GIVE PORT NAME : ZRVPORT

DESCRIPTION : EDI PORT

OUTBOUNDFILE --> PHYSICAL DIRECORY --> GIVE PATH NAME AS

C:\

FUNCTION MODULE --> EDIT_PATH_CREATE_USERNAME

OUTBOUNDFILE--> C:\ERR.TXT : TO MAINTAIN ERRORS

SELECT ' OUTBOUND TRIGGER' -->

SPECIFY 'RFC DESTINATION ' --> SERVER-EXEC

COMMAND FILE ~~> CONVERT-START[ which converts into idoc ]~~-> SAVE

STEP2: DEFINE PROCESS CODE : TCODE WE41 . [ SPECIFY THE FUNCTIONAL MODULE WHICH DEALS WITH PURCHASE ORDER AND CONVERTS INTO IDOC. IDOC_OUTPUT_ORDERS01

'outbound process code ' --> new entries --> process code --> rvcode

description --> rv process code

function module --> IDOC_OUTPUT-ORDERS --SAVE

select 'logical message ' --> dclick

assignment to logical message

specify 'message type ' --> orders

STEP3 : SPECIFY OUTPUT CONTROL (CONDITIONS) : TCODE MN04.

specify 'output type '--> neu [condition table ]

click on 'key combinations ' --> select 'purchae output determination'

purchase organization --> R100

vendor description partfun partner medium time lan

R1040 vn R1040 edi 4 en

save -->entr

STEP4: CREATING PARTNER PROFILES : TCODE WE20.

partner profiles --> partener profile LI --> create

partner no --> R1040

parter type--> LI

under 'post processing : permitted agent '

type --> us

agent --> sapuser

lan --> en ~~>save<~~entr

select 'outbound parameters'

click on + [symbol]

partner --> R1040

part type --> LI

part Fun --> VN

message type --> ORDERS

recive port --> rvport

output mode --> 'transfer idoc immediately '.

idoc type --> basic type --> orders03

message control -->entr

application message type process code

purchase order

EF NEU rvcode

post processing : permitted agent

type --> us

agent --> sapuser

lang ~~> en <~~ save

EDI configuration is over

create purchase order tcode : me21

vendor --> R1040

pur .org --> NB [standard purchase order]

pur.group --> R10

delivery date --> 10.05.2003

plant --> R100

continue <--entr

-

po items A material PO quantity freeitem

F R100032 20 check

save <--entr

Former Member · ‎2008 Mar 14

Hi,

sample code on Alv blocked list:

TYPE-POOLS : SLIS.

TABLES VBAK.

TYPES : BEGIN OF ST_VBAK,

VBELN TYPE VBELN_VA,

ERDAT TYPE ERDAT,

ERNAM TYPE ERNAM,

VBTYP TYPE VBTYP,

END OF ST_VBAK.

TYPES : BEGIN OF ST_VBAP,

VBELN TYPE VBELN_VA,

POSNR TYPE POSNR_VA,

MATNR TYPE MATNR,

END OF ST_VBAP.

DATA : "p_vbeln type vbeln_va,

WA_VBAK TYPE ST_VBAK,

IT_VBAK TYPE STANDARD TABLE OF ST_VBAK,

WA_VBAP TYPE ST_VBAP,

IT_VBAP TYPE STANDARD TABLE OF ST_VBAP.

DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

IT_LAYOUT TYPE SLIS_LAYOUT_ALV,

IT_LAYOUT1 TYPE SLIS_LAYOUT_ALV,

IT_EVENTS TYPE SLIS_T_EVENT.

It_print TYPE slis_print_alv.

SELECTION-SCREEN BEGIN OF BLOCK B1.

SELECT-OPTIONS : SO_VBELN FOR VBAK-VBELN.

SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION.

PERFORM GET_DATA.

PERFORM FIELD_CAT.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING = IT_EXCLUDING

.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = IT_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

I_TABNAME = 'IT_VBAK'

IT_EVENTS = IT_EVENTS

IT_SORT = IT_SORT
I_TEXT = ' '

TABLES

T_OUTTAB = IT_VBAK

EXCEPTIONS

PROGRAM_ERROR = 1

MAXIMUM_OF_APPENDS_REACHED = 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_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = IT_LAYOUT1

IT_FIELDCAT = IT_FIELDCAT1

I_TABNAME = 'IT_VBAP'

IT_EVENTS = IT_EVENTS

IT_SORT = IT_SORT
I_TEXT = ' '

TABLES

T_OUTTAB = IT_VBAP

EXCEPTIONS

PROGRAM_ERROR = 1

MAXIMUM_OF_APPENDS_REACHED = 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_BLOCK_LIST_DISPLAY'

EXPORTING
I_INTERFACE_CHECK = ' '
IS_PRINT = IT_PRINT
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 = E_EXIT_CAUSED_BY_CALLER
ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER

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.

&----

*& Form get_data

&----

FORM GET_DATA .

SELECT VBELN ERDAT ERNAM VBTYP INTO TABLE IT_VBAK FROM VBAK

WHERE VBELN IN SO_VBELN.

SELECT VBELN POSNR MATNR INTO TABLE IT_VBAP FROM VBAP

WHERE VBELN IN SO_VBELN.

ENDFORM. " get_data

&----

*& Form field_cat

&----

FORM FIELD_CAT .

DATA : L_COUNT TYPE I.

CLEAR WA_FIELDCAT.

L_COUNT = L_COUNT + 1.

WA_FIELDCAT-COL_POS = 1.

WA_FIELDCAT-FIELDNAME = 'VBELN'.

WA_FIELDCAT-SELTEXT_L = ' docu no.'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

L_COUNT = L_COUNT + 1.

WA_FIELDCAT-FIELDNAME = 'ERDAT'.

WA_FIELDCAT-REF_TABNAME = 'VBAK'.

WA_FIELDCAT-KEY = 'X'. "define field as key

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

L_COUNT = L_COUNT + 1.

WA_FIELDCAT-FIELDNAME = 'ERNAM'.

WA_FIELDCAT-REF_TABNAME = 'VBAK'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

L_COUNT = L_COUNT + 1.

WA_FIELDCAT-FIELDNAME = 'VBTYP'.

WA_FIELDCAT-REF_TABNAME = 'VBAK'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

L_COUNT = L_COUNT + 1.

WA_FIELDCAT-COL_POS = 1.

WA_FIELDCAT-FIELDNAME = 'VBELN'.

WA_FIELDCAT-REF_TABNAME = 'VBAP'.

APPEND WA_FIELDCAT TO IT_FIELDCAT1.

CLEAR WA_FIELDCAT.

L_COUNT = L_COUNT + 1.

WA_FIELDCAT-COL_POS = 2.

WA_FIELDCAT-FIELDNAME = 'POSNR'.

WA_FIELDCAT-REF_TABNAME = 'VBAP'.

APPEND WA_FIELDCAT TO IT_FIELDCAT1.

CLEAR WA_FIELDCAT.

L_COUNT = L_COUNT + 1.

WA_FIELDCAT-COL_POS = 3.

WA_FIELDCAT-FIELDNAME = 'MATNR'.

WA_FIELDCAT-REF_TABNAME = 'VBAP'.

APPEND WA_FIELDCAT TO IT_FIELDCAT1.

ENDFORM. " field_cat

Regards,

vineela.

Former Member · ‎2008 Mar 21

hi iam sending one sample alv report on mm module.

REPORT ZALV_INTER NO STANDARD PAGE HEADING.

TYPE-POOLS: SLIS.

TABLES: EKKO,EKPO.

TYPES: BEGIN OF EKKO,

EBELN LIKE EKKO-EBELN,

BUKRS LIKE EKKO-BUKRS,

BSART LIKE EKKO-BSART,

LIFNR LIKE EKKO-LIFNR,

SPRAS LIKE EKKO-SPRAS,

ZTERM LIKE EKKO-ZTERM,

EKORG LIKE EKKO-EKORG,

EKGRP LIKE EKKO-EKGRP,

END OF EKKO.

TYPES: BEGIN OF EKPO,

EBELN LIKE EKPO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

MENGE LIKE EKPO-MENGE,

MEINS LIKE EKPO-MEINS,

NETPR LIKE EKPO-NETPR,

END OF EKPO.

DATA: GT_EKKO TYPE STANDARD TABLE OF EKKO,

GS_EKKO TYPE EKKO,

GT_EKPO TYPE STANDARD TABLE OF EKPO,

GS_EKPO TYPE EKPO.

DATA:GT_FIELDCAT TYPE slis_t_fieldcat_alv,

GS_FIELDCAT TYPE slis_fieldcat_alv,

GT_FIELDCAT1 TYPE slis_t_fieldcat_alv,

GS_FIELDCAT1 TYPE slis_fieldcat_alv,

GT_SORT TYPE SLIS_T_SORTINFO_ALV,

GS_SORT TYPE SLIS_SORTINFO_ALV,

GT_LAYOUT TYPE SLIS_LAYOUT_ALV,

GT_EVENTS TYPE slis_t_event.

SELECT-OPTIONS: S_EBELN FOR EKKO-EBELN.

INITIALIZATION.

PERFORM BUILD_FIELDCATALOG CHANGING GS_FIELDCAT GT_FIELDCAT.

PERFORM BUILD_FIELDCATALOG1 CHANGING GS_FIELDCAT1 GT_FIELDCAT1.

START-OF-SELECTION.

PERFORM SUB_GET_DATA.

PERFORM SUB_GRID_DISPLAY.

&----

*& Form BUILD_FIELDCATALOG

&----

text

----

<--P_GS_FIELDCAT text
<--P_GT_FIELDCAT text

----

FORM BUILD_FIELDCATALOG CHANGING GS_FIELDCAT TYPE SLIS_FIELDCAT_ALV

GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

GS_FIELDCAT-FIELDNAME = 'EBELN'.

GS_FIELDCAT-TABNAME = 'GT_EKKO'.

GS_FIELDCAT-REF_FIELDNAME = 'EBELN'.

GS_FIELDCAT-REF_TABNAME = 'EKKO'.

GS_FIELDCAT-OUTPUTLEN = 12.

GS_FIELDCAT-SELTEXT_M = 'PO NUMBER'.

GS_FIELDCAT-KEY = 'X'.

GS_FIELDCAT-HOTSPOT = 'X'.

APPEND GS_FIELDCAT TO GT_FIELDCAT.

CLEAR GS_FIELDCAT.

GS_FIELDCAT-FIELDNAME = 'BUKRS'.

GS_FIELDCAT-TABNAME = 'GT_EKKO'.

GS_FIELDCAT-REF_FIELDNAME = 'BUKRS'.

GS_FIELDCAT-REF_TABNAME = 'EKKO'.

GS_FIELDCAT-OUTPUTLEN = 12.

GS_FIELDCAT-SELTEXT_M = 'COMP CODE'.

APPEND GS_FIELDCAT TO GT_FIELDCAT.

CLEAR GS_FIELDCAT.

GS_FIELDCAT-FIELDNAME = 'BSART'.

GS_FIELDCAT-TABNAME = 'GT_EKKO'.

GS_FIELDCAT-REF_FIELDNAME = 'BSART'.

GS_FIELDCAT-REF_TABNAME = 'EKKO'.

GS_FIELDCAT-OUTPUTLEN = 12.

GS_FIELDCAT-SELTEXT_M = 'PO TYPE'.

APPEND GS_FIELDCAT TO GT_FIELDCAT.

CLEAR GS_FIELDCAT.

GS_FIELDCAT-FIELDNAME = 'LIFNR'.

GS_FIELDCAT-TABNAME = 'GT_EKKO'.

GS_FIELDCAT-REF_FIELDNAME = 'LIFNR'.

GS_FIELDCAT-REF_TABNAME = 'EKKO'.

GS_FIELDCAT-OUTPUTLEN = 12.

GS_FIELDCAT-SELTEXT_M = 'VENDOR NUMBER'.

APPEND GS_FIELDCAT TO GT_FIELDCAT.

CLEAR GS_FIELDCAT.

GS_FIELDCAT-FIELDNAME = 'SPRAS'.

GS_FIELDCAT-TABNAME = 'GT_EKKO'.

GS_FIELDCAT-REF_FIELDNAME = 'SPRAS'.

GS_FIELDCAT-REF_TABNAME = 'EKKO'.

GS_FIELDCAT-OUTPUTLEN = 12.

GS_FIELDCAT-SELTEXT_M = 'LANGUAGE'.

APPEND GS_FIELDCAT TO GT_FIELDCAT.

CLEAR GS_FIELDCAT.

GS_FIELDCAT-FIELDNAME = 'ZTERM'.

GS_FIELDCAT-TABNAME = 'GT_EKKO'.

GS_FIELDCAT-REF_FIELDNAME = 'ZTERM'.

GS_FIELDCAT-REF_TABNAME = 'EKKO'.

GS_FIELDCAT-OUTPUTLEN = 12.

GS_FIELDCAT-SELTEXT_M = 'TERMS'.

APPEND GS_FIELDCAT TO GT_FIELDCAT.

CLEAR GS_FIELDCAT.

GS_FIELDCAT-FIELDNAME = 'EKORG'.

GS_FIELDCAT-TABNAME = 'GT_EKKO'.

GS_FIELDCAT-REF_FIELDNAME = 'EKORG'.

GS_FIELDCAT-REF_TABNAME = 'EKKO'.

GS_FIELDCAT-OUTPUTLEN = 12.

GS_FIELDCAT-SELTEXT_M = 'PO ORGANI'.

APPEND GS_FIELDCAT TO GT_FIELDCAT.

CLEAR GS_FIELDCAT.

GS_FIELDCAT-FIELDNAME = 'EKGRP'.

GS_FIELDCAT-TABNAME = 'GT_EKKO'.

GS_FIELDCAT-REF_FIELDNAME = 'EKGRP'.

GS_FIELDCAT-REF_TABNAME = 'EKKO'.

GS_FIELDCAT-OUTPUTLEN = 12.

GS_FIELDCAT-SELTEXT_M = 'PO GROUP'.

APPEND GS_FIELDCAT TO GT_FIELDCAT.

CLEAR GS_FIELDCAT.

ENDFORM. " BUILD_FIELDCATALOG

&----

*& Form SUB_GET_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_GET_DATA .

SELECT EBELN BUKRS BSART LIFNR SPRAS ZTERM EKORG EKGRP INTO TABLE

GT_EKKO FROM EKKO WHERE EBELN IN S_EBELN.

ENDFORM. " SUB_GET_DATA

&----

*& Form SUB_GRID_DISPLAY

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_GRID_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = ' '

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = GT_FIELDCAT

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
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = GT_EKKO

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.

ENDFORM. " SUB_GRID_DISPLAY

FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM

SEL_FIELD TYPE SLIS_SELFIELD.

CASE UCOMM.

WHEN '&IC1'.

IF SEL_FIELD-FIELDNAME = 'EBELN'.

PERFORM SUB_GET_DATA_EKPO USING SEL_FIELD.

PERFORM SUB_GRID_DISPLAY_INTER.

ENDIF.

ENDCASE.

ENDFORM.

&----

*& Form SUB_GET_DATA_EKPO

&----

text

----

-->P_SEL_FIELD text

----

FORM SUB_GET_DATA_EKPO USING SEL_FIELD TYPE SLIS_SELFIELD.

SELECT EBELN EBELP MATNR MENGE MEINS NETPR INTO TABLE GT_EKPO FROM EKPO

WHERE EBELN = SEL_FIELD-VALUE.

ENDFORM. " SUB_GET_DATA_EKPO

&----

*& Form BUILD_FIELDCATALOG1

&----

text

----

<--P_GS_FIELDCAT1 text
<--P_GT_FIELDCAT1 text

----

FORM BUILD_FIELDCATALOG1 CHANGING GS_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV

GT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV

.

GS_FIELDCAT1-FIELDNAME = 'EBELN'.

GS_FIELDCAT1-TABNAME = 'GT_EKPO'.

GS_FIELDCAT1-REF_FIELDNAME = 'EBELN'.

GS_FIELDCAT1-REF_TABNAME = 'EKPO'.

GS_FIELDCAT1-OUTPUTLEN = 12.

GS_FIELDCAT1-SELTEXT_M = 'PO NUMBER'.

APPEND GS_FIELDCAT1 TO GT_FIELDCAT1.

CLEAR GS_FIELDCAT1.

GS_FIELDCAT1-FIELDNAME = 'EBELP'.

GS_FIELDCAT1-TABNAME = 'GT_EKPO'.

GS_FIELDCAT1-REF_FIELDNAME = 'EBELP'.

GS_FIELDCAT1-REF_TABNAME = 'EKPO'.

GS_FIELDCAT1-OUTPUTLEN = 12.

GS_FIELDCAT1-SELTEXT_M = 'PO ITEM'.

APPEND GS_FIELDCAT1 TO GT_FIELDCAT1.

CLEAR GS_FIELDCAT1.

GS_FIELDCAT1-FIELDNAME = 'MATNR'.

GS_FIELDCAT1-TABNAME = 'GT_EKPO'.

GS_FIELDCAT1-REF_FIELDNAME = 'MATNR'.

GS_FIELDCAT1-REF_TABNAME = 'EKPO'.

GS_FIELDCAT1-OUTPUTLEN = 12.

GS_FIELDCAT1-SELTEXT_M = 'MAT NUM'.

APPEND GS_FIELDCAT1 TO GT_FIELDCAT1.

CLEAR GS_FIELDCAT1.

GS_FIELDCAT1-FIELDNAME = 'MENGE'.

GS_FIELDCAT1-TABNAME = 'GT_EKPO'.

GS_FIELDCAT1-REF_FIELDNAME = 'MENGE'.

GS_FIELDCAT1-REF_TABNAME = 'EKPO'.

GS_FIELDCAT1-OUTPUTLEN = 12.

GS_FIELDCAT1-SELTEXT_M = 'QUANTITY'.

APPEND GS_FIELDCAT1 TO GT_FIELDCAT1.

CLEAR GS_FIELDCAT1.

GS_FIELDCAT1-FIELDNAME = 'MEINS'.

GS_FIELDCAT1-TABNAME = 'GT_EKPO'.

GS_FIELDCAT1-REF_FIELDNAME = 'MEINS'.

GS_FIELDCAT1-REF_TABNAME = 'EKPO'.

GS_FIELDCAT1-OUTPUTLEN = 12.

GS_FIELDCAT1-SELTEXT_M = 'UNITS'.

APPEND GS_FIELDCAT1 TO GT_FIELDCAT1.

CLEAR GS_FIELDCAT1.

GS_FIELDCAT1-FIELDNAME = 'NETPR'.

GS_FIELDCAT1-TABNAME = 'GT_EKPO'.

GS_FIELDCAT1-REF_FIELDNAME = 'NETPR'.

GS_FIELDCAT1-REF_TABNAME = 'EKPO'.

GS_FIELDCAT1-OUTPUTLEN = 12.

GS_FIELDCAT1-SELTEXT_M = 'CURRENCY'.

APPEND GS_FIELDCAT1 TO GT_FIELDCAT1.

CLEAR GS_FIELDCAT1.

ENDFORM. " BUILD_FIELDCATALOG1

&----

*& Form SUB_GRID_DISPLAY_INTER

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_GRID_DISPLAY_INTER .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = GT_FIELDCAT1

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
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = GT_EKPO

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.

ENDFORM. " SUB_GRID_DISPLAY_INTER

Former Member · ‎2008 Jun 13

Hi!!

This is a simple alv list display... U can understand alv list using this program.

TABLES: SPFLI.

TYPE-POOLS: SLIS.

DATA: begin of IT_spfli occurs 0,

carrid like spfli-carrid,

connid like spfli-connid,

countryfr like spfli-countryfr,

cityfrom like spfli-cityfrom,

airpfrom like spfli-airpfrom,

cityto like spfli-cityto,

airpto like spfli-airpto,

countryto like spfli-countryto,

end of IT_spfli.

DATA: IT_fIELDLOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

WA_FIELDLOG LIKE LINE OF IT_FIELDLOG,

IT_LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA: REPID LIKE SY-REPID.

SELECT-OPTIONS: ROUTE FOR SPFLI-CARRID NO-EXTENSION,

FLIGHT FOR SPFLI-CONNID NO-EXTENSION.

start-of-selection.

SELECT

carrid

connid

countryfr

cityfrom

airpfrom

cityto

airpto

countryto

FROM SPFLI INTO TABLE IT_SPFLI WHERE CARRID IN ROUTE AND CONNID IN FLIGHT.

it_FIELDLOG-FIELDNAME = 'CARRID'.

IT_FIELDLOG-SELTEXT_M = 'AIRLINE'.