topic Re: oo abap in Application Development and Automation Discussions

oo abap

Former Member — Thu, 22 Mar 2007 11:45:03 GMT

hi ,

I am new to oo abap, can any one guide me regarding oo abap, from basic.

with regards,

sharma.

Re: oo abap

Former Member — Thu, 22 Mar 2007 11:46:29 GMT

Hi Nanduja,

Please check this online document (starting page 1291).

http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCABA/BCABA.pdf

Also check this links as well.

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

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

http://www.futureobjects.de/content/intro_oo_e.html

http://www.sap-img.com/abap/business-add-in-you-need-to-understand-abap-oo-interface-concept.htm

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

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

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

Hope this resolves your query.

Reward all the helpful answers.

Regards

Re: oo abap

Former Member — Thu, 22 Mar 2007 11:49:32 GMT

Hi,

here i am giving one example to u check it.it is very helpful to u.

&----

*& Report ZEXAMPLE3

&----

REPORT ZTMW_WRKBNCH_TABS.

DATA:OKCODE LIKE SY-UCOMM. " ok code for screen 101

DATA:SCRNO(4) TYPE N. "FOR 101 SCREEN

DATA:T_NUM(2),SCR(4).

SELECT SINGLE WORK_BENCH_TAB INTO T_NUM FROM ZTMW_WRKBNCH_TAB

WHERE TAB_STATUS = 'X'.

IF STRLEN( T_NUM ) = 1.

CONCATENATE '300' T_NUM INTO SCR.

ELSE.

CONCATENATE '30' T_NUM INTO SCR.

ENDIF.

SCRNO = SCR.

CONTROLS TABS TYPE TABSTRIP. "TAB STRIP IN SCREEN 101

perform ref_texts.

SET SCREEN 0101.

DATA: h LIKE d020s,

f LIKE d021s OCCURS 0 WITH HEADER LINE,

e LIKE d022s OCCURS 0 WITH HEADER LINE,

m LIKE d023s OCCURS 0 WITH HEADER LINE,

f1(100), f2(100), f3(100), dynpro_id(44).

DATA:TAB(5) TYPE C,

tab_num type ztmw_wrkbnch_tab-WORK_BENCH_TAB,

tab_name type ztmw_wrkbnch_tab-TAB_NAME,

ACT_TAB(5) TYPE C,

TAB_STATUS TYPE ztmw_wrkbnch_tab-TAB_STATUS,NUM(2).

DATA:GT_ZTMW_HEADER_HIS TYPE TABLE OF ZTMW_HEADER_HIS,

GT_ZTMW_HEADER_WIP TYPE TABLE OF ZTMW_HEADER_WIP,

G_CONTAINER TYPE SCRFNAME VALUE 'TABC',

GRID1 TYPE REF TO CL_GUI_ALV_GRID,

G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA:LAYOUT TYPE LVC_S_LAYO.

DATA:FCAT TYPE LVC_T_FCAT.

Field-symbols: <lfs_fieldcat> TYPE lvc_s_fcat.

&----

*& Module STATUS_0101 OUTPUT

MODULE STATUS_0101 OUTPUT.

SET PF-STATUS 'MENU1'.

SET TITLEBAR 'TIT1'.

DO 20 TIMES.

NUM = SY-INDEX.

CONCATENATE 'TAB' NUM INTO ACT_TAB.

SELECT TAB_STATUS INTO TAB_STATUS FROM ZTMW_WRKBNCH_TAB

WHERE WORK_BENCH_TAB = NUM.

IF tab_status = 'X'.

LOOP AT SCREEN.

IF SCREEN-NAME = ACT_TAB.

SCREEN-INVISIBLE = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF SCREEN-NAME = ACT_TAB.

SCREEN-INVISIBLE = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

ENDSELECT.

IF SY-SUBRC <> 0.

LOOP AT SCREEN.

IF SCREEN-NAME = ACT_TAB.

SCREEN-INVISIBLE = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

ENDDO.

ENDMODULE. " STATUS_0101 OUTPUT

&----

*& Module USER_COMMAND_0101 INPUT

MODULE USER_COMMAND_0101 INPUT.

CASE OKCODE.

WHEN 'TAB1'.

SCRNO = 3001.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB2'.

SCRNO = 3002.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB3'.

SCRNO = 3003.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB4'.

SCRNO = 3004.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB5'.

SCRNO = 3005.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB6'.

SCRNO = 3006.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB7'.

SCRNO = 3007.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB8'.

SCRNO = 3008.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB9'.

SCRNO = 3009.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB10'.

SCRNO = 3010.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB11'.

SCRNO = 3011.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB12'.

SCRNO = 3012.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB13'.

SCRNO = 3013.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB14'.

SCRNO = 3014.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB15'.

SCRNO = 3015.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB16'.

SCRNO = 3016.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB17'.

SCRNO = 3017.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB18'.

SCRNO = 3018.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB19'.

SCRNO = 3019.

TABS-ACTIVETAB = OKCODE.

WHEN 'TAB20'.

SCRNO = 3020.

TABS-ACTIVETAB = OKCODE.

WHEN 'BACK'.

set screen 0.

WHEN 'REFRESH'.

perform ref_texts.

ENDCASE.

ENDMODULE. " USER_COMMAND_0101 INPUT

FORM ref_texts .

Format Screen ID

dynpro_id = sy-repid.

dynpro_id+40(4) = '0101'.

Import Screen data in tables

IMPORT DYNPRO h f e m ID dynpro_id.

CHECK sy-subrc EQ 0.

Modify Screen Data

SELECT WORK_BENCH_TAB TAB_NAME into (tab_num,tab_name)

FROM ZTMW_WRKBNCH_TAB WHERE TAB_STATUS = 'X'.

CONCATENATE 'TAB' tab_num INTO TAB.

LOOP AT f WHERE fnam EQ TAB.

f-stxt = tab_name.

MODIFY f.

ENDLOOP.

ENDSELECT.

CHECK sy-subrc EQ 0.

Export Screen Data

EXPORT DYNPRO h f e m ID dynpro_id.

CHECK sy-subrc EQ 0.

Generate Screen for changes to take effect

GENERATE DYNPRO h f e m ID dynpro_id MESSAGE f1 LINE f2 WORD f3.

ENDFORM. " ref_texts

&----

*& Module STATUS_3007 OUTPUT

MODULE GRID OUTPUT.

IF G_CUSTOM_CONTAINER IS INITIAL.

CREATE OBJECT G_CUSTOM_CONTAINER

EXPORTING CONTAINER_NAME = G_CONTAINER.

CREATE OBJECT GRID1

EXPORTING I_PARENT = G_CUSTOM_CONTAINER.

PERFORM LAYOUT.

PERFORM FIELD_CAT.

PERFORM FILL_DATA.

CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

IS_LAYOUT = LAYOUT

CHANGING

IT_FIELDCATALOG = FCAT[]

IT_OUTTAB = GT_ZTMW_HEADER_HIS.

ENDIF.

ENDMODULE. " STATUS_3007 OUTPUT

&----

*& Form FIELD_CAT

&----

text

----

FORM FIELD_CAT.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'

EXPORTING

I_STRUCTURE_NAME = 'ZTMW_HEADER_IO'

CHANGING

CT_FIELDCAT = FCAT[].

LOOP AT FCAT ASSIGNING <lfs_fieldcat>.

CASE <lfs_fieldcat>-fieldname.

WHEN 'TRANSACTION_NUM'.

<lfs_fieldcat>-coltext = 'IDOC no.'.

WHEN 'FEED_CODE'.

<lfs_fieldcat>-coltext = 'Feed Code'.

WHEN 'BOL_NUM'.

<lfs_fieldcat>-coltext = 'EXT. BOL'.

WHEN 'TERMINAL_CODE'.

<lfs_fieldcat>-coltext = 'Unc.Term Cd'.

WHEN 'TRANSCATION_DATE'.

<lfs_fieldcat>-coltext = 'Trans Date'.

WHEN 'TRANSCATION_TIME'.

<lfs_fieldcat>-coltext = 'Trans Time'.

WHEN 'TRANS_STATUS'.

<lfs_fieldcat>-coltext = 'BOL Status'.

WHEN 'VOID_STATUS'.

<lfs_fieldcat>-coltext = 'Void Status'.

WHEN 'HOLD_STATUS'.

<lfs_fieldcat>-coltext = 'Hold Status'.

WHEN 'PLANT'.

<lfs_fieldcat>-coltext = 'Plant'.

ENDCASE.

ENDLOOP.

ENDFORM. "FIELD_CAT

&----

*& Form FILL_DATA

&----

text

----

FORM FILL_DATA.

CLEAR GT_ZTMW_HEADER_HIS.

IF WIP_ONLY = 'X'.

SELECT * FROM ZTMW_HEADER_WIP INTO TABLE GT_ZTMW_HEADER_HIS.

UP TO MAX_HITS ROWS.
ELSEIF HIS_ONLY = 'X'.
SELECT * FROM ZTMW_HEADER_HIS INTO TABLE GT_ZTMW_HEADER_HIS
UP TO MAX_HITS ROWS.
ELSE.
SELECT * FROM ZTMW_HEADER_HIS INTO TABLE GT_ZTMW_HEADER_HIS.
SELECT * FROM ZTMW_HEADER_WIP INTO TABLE GT_ZTMW_HEADER_WIP.
INSERT LINES OF GT_ZTMW_HEADER_HIS INTO TABLE
GT_ZTMW_HEADER_WIP.
SORT GT_ZTMW_HEADER_WIP.
CLEAR GT_ZTMW_HEADER_HIS[].
INSERT LINES OF GT_ZTMW_HEADER_WIP FROM 1 TO MAX_HITS INTO
TABLE GT_ZTMW_HEADER_HIS .

ENDIF.

ENDFORM. "FILL_DATA

FORM LAYOUT.

LAYOUT-EDIT = 'X'.

layout-grid_title = 'List Of Bills Of Lading'.

ENDFORM. "LAYOUT

regards,

bharat.

Re: oo abap

Former Member — Thu, 22 Mar 2007 11:53:41 GMT

Hi ,

Check out this link for begineers

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

Please reward if useful.