Application Development 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
Showing results for 
Search instead for 
Did you mean: 

Top of Page Sequential/Hierarchical ALV using Class

Former Member
0 Kudos

Hi Experts.

I'd like to ask some codes on how to have the top-of-page function of the Sequential ALV using the CLASS cl_salv_hierseq_table.

Points would be rewarded.

Thanks!

Message was edited by:

Jay Cruz

Message was edited by:

Jay Cruz

1 ACCEPTED SOLUTION

Former Member
0 Kudos

hi

links for OO ABAP.

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm

http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

http://www.allsaplinks.com/

http://www.sap-img.com/

http://www.sapgenie.com/

http://help.sap.com

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com.

http://www.sapgenie.com/abap/OO/index.htm

http://www.sapgenie.com/abap/controls/index.htm

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

some more materials.

Go through the following Documents Links & Materials for ABAP Objects

check the below links lot of info and examples r there

http://www.sapgenie.com/abap/OO/index.htm

http://www.geocities.com/victorav15/sapr3/abap_ood.html

http://www.brabandt.de/html/abap_oo.html

Check this cool weblog:

/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql

/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql

/people/sap.user72/blog/2005/05/10/a-small-tip-for-the-beginners-in-oo-abap

/people/ravikumar.allampallam/blog/2005/02/11/abap-oo-in-action

/people/thomas.jung3/blog/2005/09/08/oo-abap-dynpro-programming

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b6254f411d194a60000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm

http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

http://www.allsaplinks.com/

http://www.sap-img.com/

http://www.sapgenie.com/

http://help.sap.com

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://www.sapgenie.com/abap/controls/index.htm

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

these links

http://help.sap.com/saphelp_47x200/helpdata/en/ce/b518b6513611d194a50000e8353423/content.htm

For funtion module to class

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5954f411d194a60000e8353423/content.htm

for classes

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5c54f411d194a60000e8353423/content.htm

for methods

http://help.sap.com/saphelp_47x200/helpdata/en/08/d27c03b81011d194f60000e8353423/content.htm

for inheritance

http://help.sap.com/saphelp_47x200/helpdata/en/dd/4049c40f4611d3b9380000e8353423/content.htm

for interfaces

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b6254f411d194a60000e8353423/content.htm

regards

ravish

<b>plz dont forget to reward points if helpful</b>

2 REPLIES 2

Former Member
0 Kudos

Hi Jay,

Plz check out this code.

REPORT BALVHT01 NO STANDARD PAGE HEADING.

  • ALV

TYPE-POOLS: SLIS.

  • DB-Table

TABLES: SCARR, SPFLI.

  • Includes

INCLUDE .

*

CONSTANTS:

GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.

DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

GS_LAYOUT TYPE SLIS_LAYOUT_ALV,

GS_KEYINFO TYPE SLIS_KEYINFO_ALV,

GT_SORT TYPE SLIS_T_SORTINFO_ALV,

GT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV,

GT_EVENTS TYPE SLIS_T_EVENT.

  • Data to be displayed

DATA: BEGIN OF GT_SPFLI OCCURS 0.

INCLUDE STRUCTURE SPFLI.

DATA: ADD1,

BOX,

WERT TYPE P,

LIGHTS.

DATA: END OF GT_SPFLI.

DATA: BEGIN OF GT_SCARR OCCURS 0.

INCLUDE STRUCTURE SCARR.

DATA: BOX,

LIGHTS,

EXPAND.

DATA: END OF GT_SCARR.

*

DATA: G_REPID LIKE SY-REPID.

DATA: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.

  • Report Selections

SELECT-OPTIONS CARRID FOR SCARR-CARRID.

SELECTION-SCREEN SKIP 1.

  • Parameters

PARAMETERS: P_MAXROW TYPE I DEFAULT 50.

SELECTION-SCREEN SKIP 1.

  • Variante

SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE TEXT-064.

PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT.

SELECTION-SCREEN END OF BLOCK 0.

  • Layout

SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-060.

PARAMETERS:

P_ZEBRA AS CHECKBOX DEFAULT ' ',

P_NOCOLH AS CHECKBOX DEFAULT ' ',

P_COLOPT AS CHECKBOX DEFAULT ' ',

P_KEYHOT AS CHECKBOX DEFAULT ' ',

P_NOINPT AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN END OF BLOCK A.

SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME TITLE TEXT-061.

PARAMETERS:

P_LIGHTS AS CHECKBOX DEFAULT ' ',

P_LIGHTC AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN END OF BLOCK B.

SELECTION-SCREEN BEGIN OF BLOCK C WITH FRAME TITLE TEXT-062.

PARAMETERS:

P_TOTONL AS CHECKBOX DEFAULT ' ',

P_TOTEXT(60),

P_STTEXT(60).

SELECTION-SCREEN END OF BLOCK C.

SELECTION-SCREEN BEGIN OF BLOCK D WITH FRAME TITLE TEXT-063.

PARAMETERS:

P_GPCE AS CHECKBOX DEFAULT ' ',

P_CHKBOX AS CHECKBOX DEFAULT ' ',

P_EXPAND AS CHECKBOX DEFAULT ' ',

P_DETPOP AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN END OF BLOCK D.

DATA: G_BOXNAM TYPE SLIS_FIELDNAME VALUE 'BOX',

G_EXPANDNAME TYPE SLIS_FIELDNAME VALUE 'EXPAND',

P_F2CODE LIKE SY-UCOMM VALUE '&ETA',

P_LIGNAM TYPE SLIS_FIELDNAME VALUE 'LIGHTS',

G_SAVE(1) TYPE C,

G_TABNAME_HEADER TYPE SLIS_TABNAME,

G_TABNAME_ITEM TYPE SLIS_TABNAME,

  • g_default(1) type c,

G_EXIT(1) TYPE C,

GX_VARIANT LIKE DISVARIANT,

G_VARIANT LIKE DISVARIANT.

*----


*

INITIALIZATION.

G_REPID = SY-REPID.

G_TABNAME_HEADER = 'GT_SCARR'.

G_TABNAME_ITEM = 'GT_SPFLI'.

  • define keyinfo

CLEAR GS_KEYINFO.

GS_KEYINFO-HEADER01 = 'CARRID'.

GS_KEYINFO-ITEM01 = 'CARRID'.

*

PERFORM E01_FIELDCAT_INIT USING GT_FIELDCAT[].

PERFORM E03_EVENTTAB_BUILD USING GT_EVENTS[].

PERFORM E04_COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].

PERFORM E06_T_SORT_BUILD USING GT_SORT[].

PERFORM E07_SP_GROUP_BUILD USING GT_SP_GROUP[].

  • Schalter Varianten benutzerspezifisch/allgemein speicherbar setzen

  • Set Options: save variants userspecific or general

G_SAVE = 'A'.

PERFORM VARIANT_INIT.

  • Get default variant

GX_VARIANT = G_VARIANT.

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.

P_VARI = GX_VARIANT-VARIANT.

ENDIF.

  • Process on value request

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.

PERFORM F4_FOR_VARIANT.

  • PAI

AT SELECTION-SCREEN.

PERFORM PAI_OF_SELECTION_SCREEN.

START-OF-SELECTION.

PERFORM SELECTION.

END-OF-SELECTION.

PERFORM E05_LAYOUT_BUILD USING GS_LAYOUT. "wg. Parameters

  • Call ABAP/4 List Viewer

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = G_REPID

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

IS_LAYOUT = GS_LAYOUT

IT_FIELDCAT = GT_FIELDCAT[]

  • IT_EXCLUDING =

IT_SPECIAL_GROUPS = GT_SP_GROUP[]

IT_SORT = GT_SORT[]

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • i_default = g_default

I_SAVE = G_SAVE

IS_VARIANT = G_VARIANT

IT_EVENTS = GT_EVENTS[]

  • IT_EVENT_EXIT =

I_TABNAME_HEADER = G_TABNAME_HEADER

I_TABNAME_ITEM = G_TABNAME_ITEM

IS_KEYINFO = GS_KEYINFO

  • IS_PRINT =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

TABLES

T_OUTTAB_HEADER = GT_SCARR

T_OUTTAB_ITEM = GT_SPFLI.

*----


*

  • FORM E01_FIELDCAT_INIT *

*----


*

  • ........ *

*----


*

  • --> E01_LT_FIELDCAT *

*----


*

FORM E01_FIELDCAT_INIT USING E01_LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

*

CLEAR LS_FIELDCAT.

LS_FIELDCAT-FIELDNAME = 'ADD1'.

LS_FIELDCAT-TABNAME = G_TABNAME_ITEM.

LS_FIELDCAT-REPTEXT_DDIC = '?'.

LS_FIELDCAT-OUTPUTLEN = 1.

LS_FIELDCAT-NO_OUT = 'X'.

LS_FIELDCAT-INPUT = 'X'.

LS_FIELDCAT-SP_GROUP = 'A'.

APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.

*

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

  • I_PROGRAM_NAME =

I_INTERNAL_TABNAME = G_TABNAME_HEADER

I_STRUCTURE_NAME = 'SCARR'

  • I_CLIENT_NEVER_DISPLAY = 'X'

CHANGING

CT_FIELDCAT = E01_LT_FIELDCAT[].

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

  • I_PROGRAM_NAME =

I_INTERNAL_TABNAME = G_TABNAME_ITEM

I_STRUCTURE_NAME = 'SPFLI'

  • I_CLIENT_NEVER_DISPLAY = 'X'

CHANGING

CT_FIELDCAT = E01_LT_FIELDCAT[].

  • geht am Anfang nicht !!!!

CLEAR LS_FIELDCAT.

LS_FIELDCAT-FIELDNAME = 'WERT'.

LS_FIELDCAT-TABNAME = G_TABNAME_ITEM.

LS_FIELDCAT-REPTEXT_DDIC = 'Wert'(070).

LS_FIELDCAT-OUTPUTLEN = 4.

LS_FIELDCAT-INTTYPE ='P'.

APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.

ENDFORM.

*----


*

  • FORM E02_DATA_ADD *

*----


*

  • ........ *

*----


*

  • --> E02_LT_SFLIGHT *

*----


*

FORM E02_DATA_ADD TABLES E02_LT_SPFLI STRUCTURE GT_SPFLI.

LOOP AT E02_LT_SPFLI.

IF SY-TABIX > 10.

E02_LT_SPFLI-ADD1 = 'A'.

E02_LT_SPFLI-BOX = 'X'.

E02_LT_SPFLI-LIGHTS = '3'.

ELSE.

IF SY-TABIX = 1.

E02_LT_SPFLI-LIGHTS = '2'.

ELSE.

E02_LT_SPFLI-LIGHTS = '1'.

ENDIF.

ENDIF.

E02_LT_SPFLI-WERT = SY-TABIX MOD 5.

MODIFY E02_LT_SPFLI.

ENDLOOP.

ENDFORM.

*----


*

  • FORM E03_EVENTTAB_BUILD *

*----


*

  • ........ *

*----


*

  • --> E03_LT_EVENTS *

*----


*

FORM E03_EVENTTAB_BUILD USING E03_LT_EVENTS TYPE SLIS_T_EVENT.

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

*

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 1

IMPORTING

ET_EVENTS = E03_LT_EVENTS.

READ TABLE E03_LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE

INTO LS_EVENT.

IF SY-SUBRC = 0.

MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.

APPEND LS_EVENT TO E03_LT_EVENTS.

ENDIF.

ENDFORM.

*----


*

  • FORM E04_COMMENT_BUILD *

*----


*

  • ........ *

*----


*

  • --> E04_LT_TOP_OF_PAGE *

*----


*

FORM E04_COMMENT_BUILD USING E04_LT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.

DATA: LS_LINE TYPE SLIS_LISTHEADER.

*

  • Listenüberschrift: Typ H

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

  • LS_LINE-KEY: not used for this type

LS_LINE-INFO = TEXT-001.

APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.

  • Kopfinfo: Typ S

CLEAR LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-KEY = TEXT-050.

LS_LINE-INFO = TEXT-010.

APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.

LS_LINE-KEY = TEXT-051.

APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.

  • Aktionsinfo: Typ A

CLEAR LS_LINE.

LS_LINE-TYP = 'A'.

  • LS_LINE-KEY: not used for this type

LS_LINE-INFO = TEXT-002.

APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.

ENDFORM.

*----


*

  • FORM E05_LAYOUT_BUILD *

*----


*

  • ........ *

*----


*

  • <-> E05_LS_LAYOUT *

*----


*

FORM E05_LAYOUT_BUILD USING E05_LS_LAYOUT TYPE SLIS_LAYOUT_ALV.

E05_LS_LAYOUT-F2CODE = P_F2CODE.

E05_LS_LAYOUT-ZEBRA = P_ZEBRA.

E05_LS_LAYOUT-COLWIDTH_OPTIMIZE = P_COLOPT.

IF P_CHKBOX = 'X'.

E05_LS_LAYOUT-BOX_FIELDNAME = G_BOXNAM.

E05_LS_LAYOUT-BOX_TABNAME = G_TABNAME_ITEM.

ELSE.

CLEAR E05_LS_LAYOUT-BOX_FIELDNAME.

CLEAR E05_LS_LAYOUT-BOX_TABNAME.

ENDIF.

IF P_EXPAND = 'X'.

E05_LS_LAYOUT-EXPAND_FIELDNAME = G_EXPANDNAME.

ELSE.

CLEAR E05_LS_LAYOUT-EXPAND_FIELDNAME.

ENDIF.

E05_LS_LAYOUT-NO_INPUT = P_NOINPT.

E05_LS_LAYOUT-NO_COLHEAD = P_NOCOLH.

IF P_LIGHTS = 'X' OR P_LIGHTC = 'X'.

E05_LS_LAYOUT-LIGHTS_FIELDNAME = P_LIGNAM.

E05_LS_LAYOUT-LIGHTS_TABNAME = G_TABNAME_ITEM.

ELSE.

CLEAR E05_LS_LAYOUT-LIGHTS_FIELDNAME.

CLEAR E05_LS_LAYOUT-LIGHTS_TABNAME.

ENDIF.

IF P_GPCE = 'X'.

E05_LS_LAYOUT-GROUP_CHANGE_EDIT = 'X'.

ENDIF.

E05_LS_LAYOUT-LIGHTS_CONDENSE = P_LIGHTC.

E05_LS_LAYOUT-TOTALS_TEXT = P_TOTEXT.

E05_LS_LAYOUT-SUBTOTALS_TEXT = P_STTEXT.

E05_LS_LAYOUT-TOTALS_ONLY = P_TOTONL.

E05_LS_LAYOUT-KEY_HOTSPOT = P_KEYHOT.

E05_LS_LAYOUT-DETAIL_POPUP = P_DETPOP.

ENDFORM.

*----


*

  • FORM E06_T_SORT_BUILD *

*----


*

  • ........ *

*----


*

  • --> E06_LT_SORT *

*----


*

FORM E06_T_SORT_BUILD USING E06_LT_SORT TYPE SLIS_T_SORTINFO_ALV.

DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.

*

CLEAR LS_SORT.

LS_SORT-FIELDNAME = 'CARRID'.

LS_SORT-TABNAME = G_TABNAME_HEADER.

LS_SORT-SPOS = 1.

LS_SORT-UP = 'X'.

APPEND LS_SORT TO E06_LT_SORT.

CLEAR LS_SORT.

LS_SORT-FIELDNAME = 'CONNID'.

LS_SORT-TABNAME = G_TABNAME_ITEM.

LS_SORT-SPOS = 2.

LS_SORT-DOWN = 'X'.

APPEND LS_SORT TO E06_LT_SORT.

ENDFORM.

*----


*

  • FORM E07_SP_GROUP_BUILD *

*----


*

  • ........ *

*----


*

  • --> E07_LT_SP_GROUP *

*----


*

FORM E07_SP_GROUP_BUILD USING E07_LT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV.

DATA: LS_SP_GROUP TYPE SLIS_SP_GROUP_ALV.

*

CLEAR LS_SP_GROUP.

LS_SP_GROUP-SP_GROUP = 'A'.

LS_SP_GROUP-TEXT = TEXT-005.

APPEND LS_SP_GROUP TO E07_LT_SP_GROUP.

ENDFORM.

*----


*

  • FORM SELECTION *

*----


*

  • ........ *

*----


*

FORM SELECTION.

SELECT * FROM SCARR INTO CORRESPONDING FIELDS OF TABLE GT_SCARR

WHERE CARRID IN CARRID.

SELECT * FROM SPFLI INTO CORRESPONDING FIELDS OF TABLE GT_SPFLI

UP TO P_MAXROW ROWS

WHERE CARRID IN CARRID.

LOOP AT GT_SCARR.

READ TABLE GT_SPFLI WITH KEY CARRID = GT_SCARR-CARRID.

IF SY-SUBRC NE 0.

DELETE GT_SCARR.

ENDIF.

ENDLOOP.

*

PERFORM E02_DATA_ADD TABLES GT_SPFLI.

ENDFORM.

*----


*

  • FORM TOP_OF_PAGE *

*----


*

  • ........ *

*----


*

FORM TOP_OF_PAGE.

*

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.

ENDFORM.

*----


*

  • FORM F4_FOR_VARIANT *

*----


*

  • ........ *

*----


*

FORM F4_FOR_VARIANT.

*

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

IS_VARIANT = G_VARIANT

I_SAVE = G_SAVE

I_TABNAME_HEADER = G_TABNAME_HEADER

I_TABNAME_ITEM = G_TABNAME_ITEM

  • it_default_fieldcat =

IMPORTING

E_EXIT = G_EXIT

ES_VARIANT = GX_VARIANT

EXCEPTIONS

NOT_FOUND = 2.

IF SY-SUBRC = 2.

MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

IF G_EXIT = SPACE.

P_VARI = GX_VARIANT-VARIANT.

ENDIF.

ENDIF.

ENDFORM.

*&----


*

*& Form PAI_OF_SELECTION_SCREEN

*&----


*

  • text

*----


*

FORM PAI_OF_SELECTION_SCREEN.

*

IF NOT P_VARI IS INITIAL.

MOVE G_VARIANT TO GX_VARIANT.

MOVE P_VARI TO GX_VARIANT-VARIANT.

CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'

EXPORTING

I_SAVE = G_SAVE

CHANGING

CS_VARIANT = GX_VARIANT.

G_VARIANT = GX_VARIANT.

ELSE.

PERFORM VARIANT_INIT.

ENDIF.

ENDFORM. " PAI_OF_SELECTION_SCREEN

*&----


*

*& Form VARIANT_INIT

*&----


*

  • text

*----


*

  • --> p1 text

  • <-- p2 text

*----


*

FORM VARIANT_INIT.

*

CLEAR G_VARIANT.

G_VARIANT-REPORT = G_REPID.

ENDFORM. " VARIANT_INIT

Regards,

Kiran

Former Member
0 Kudos

hi

links for OO ABAP.

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm

http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

http://www.allsaplinks.com/

http://www.sap-img.com/

http://www.sapgenie.com/

http://help.sap.com

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com.

http://www.sapgenie.com/abap/OO/index.htm

http://www.sapgenie.com/abap/controls/index.htm

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

some more materials.

Go through the following Documents Links & Materials for ABAP Objects

check the below links lot of info and examples r there

http://www.sapgenie.com/abap/OO/index.htm

http://www.geocities.com/victorav15/sapr3/abap_ood.html

http://www.brabandt.de/html/abap_oo.html

Check this cool weblog:

/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql

/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql

/people/sap.user72/blog/2005/05/10/a-small-tip-for-the-beginners-in-oo-abap

/people/ravikumar.allampallam/blog/2005/02/11/abap-oo-in-action

/people/thomas.jung3/blog/2005/09/08/oo-abap-dynpro-programming

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b6254f411d194a60000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm

http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

http://www.allsaplinks.com/

http://www.sap-img.com/

http://www.sapgenie.com/

http://help.sap.com

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://www.sapgenie.com/abap/controls/index.htm

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

these links

http://help.sap.com/saphelp_47x200/helpdata/en/ce/b518b6513611d194a50000e8353423/content.htm

For funtion module to class

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5954f411d194a60000e8353423/content.htm

for classes

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5c54f411d194a60000e8353423/content.htm

for methods

http://help.sap.com/saphelp_47x200/helpdata/en/08/d27c03b81011d194f60000e8353423/content.htm

for inheritance

http://help.sap.com/saphelp_47x200/helpdata/en/dd/4049c40f4611d3b9380000e8353423/content.htm

for interfaces

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b6254f411d194a60000e8353423/content.htm

regards

ravish

<b>plz dont forget to reward points if helpful</b>