oops programming in abap

Former Member — Fri, 31 Oct 2008 04:56:22 GMT

Hi,

Suggest me some sites to get a hang of Object Oriented concepts in ABAP and how to go about developing custom programs using those concepts.

<<removed by moderator>>

Those who respond to this post see this ==>

Thnx and Regards,

Mohana.

Re: oops programming in abap

GauthamV — Fri, 31 Oct 2008 04:59:36 GMT

hi,

If you SEARCH in SCN by oops programming in abap you will get tons of replys.

dont ask for sending documents for personal id's or your thread will be locked or deleted.

Re: oops programming in abap

Former Member — Fri, 31 Oct 2008 04:59:46 GMT

This message was moderated.

Re: oops programming in abap

Former Member — Fri, 31 Oct 2008 05:01:33 GMT

Hi,

The below site will help you.

http://help.sap.com/saphelp_nw70/helpdata/en/c3/225b5654f411d194a60000e8353423/frameset.htm

Cheers!!

VEnk@

Re: oops programming in abap

Former Member — Fri, 31 Oct 2008 05:08:38 GMT

Hi,

Here i am giving the one simple oops program. You can understand it very easy.

REPORT Z15117_GET_MARA.

TABLES : VBAK,VBAP.

TYPES : BEGIN OF ST_VBAK,

VBELN TYPE VBAK-VBELN,

ERDAT TYPE VBAK-ERDAT,

AUDAT TYPE VBAK-AUDAT,

VBTYP TYPE VBAK-VBTYP,

AUART TYPE VBAK-AUART,

END OF ST_VBAK.

TYPES : BEGIN OF ST_VBAP,

VBELN TYPE VBAP-VBELN,

POSNR TYPE VBAP-POSNR,

MATNR TYPE VBAP-MATNR,

MATKL TYPE VBAP-MATKL,

ARKTX TYPE VBAP-ARKTX,

PSTYV TYPE VBAP-PSTYV,

END OF ST_VBAP.

TYPES : BEGIN OF ST_FINAL,

VBELN TYPE VBAK-VBELN,

POSNR TYPE VBAP-POSNR,

ERDAT TYPE VBAK-ERDAT,

AUDAT TYPE VBAK-AUDAT,

VBTYP TYPE VBAK-VBTYP,

AUART TYPE VBAK-AUART,

MATNR TYPE VBAP-MATNR,

MATKL TYPE VBAP-MATKL,

ARKTX TYPE VBAP-ARKTX,

PSTYV TYPE VBAP-PSTYV,

END OF ST_FINAL.

SELECT-OPTIONS : S_VBAK FOR VBAK-VBELN.

CLASS SALES1 DEFINITION.

PUBLIC SECTION.

METHODS : GET_DATA,

POPULATE_DATA,

DISPLAY_DATA.

DATA : IT_VBAK TYPE STANDARD TABLE OF ST_VBAK,

IT_VBAP TYPE STANDARD TABLE OF ST_VBAP,

IT_FINAL TYPE STANDARD TABLE OF ST_FINAL,

WA_VBAK LIKE LINE OF IT_VBAK,

WA_VBAP LIKE LINE OF IT_VBAP,

WA_FINAL LIKE LINE OF IT_FINAL.

ENDCLASS.

CLASS SALES1 IMPLEMENTATION.

METHOD GET_DATA.

SELECT VBELN ERDAT AUDAT VBTYP AUART FROM VBAK INTO

TABLE IT_VBAK WHERE VBELN in S_VBAK.

IF NOT IT_VBAK[] IS INITIAL.

SELECT VBELN POSNR MATNR MATKL ARKTX PSTYV FROM VBAP

INTO TABLE IT_VBAP

FOR ALL ENTRIES IN IT_VBAK

WHERE VBELN = IT_VBAK-VBELN.

ENDIF.

ENDMETHOD.

METHOD POPULATE_DATA.

LOOP AT IT_VBAK INTO WA_VBAK.

READ TABLE IT_VBAP INTO WA_VBAP WITH KEY VBELN = WA_VBAK-VBELN.

IF SY-SUBRC = 0.

WA_FINAL-VBELN = WA_VBAK-VBELN.

WA_FINAL-POSNR = WA_VBAP-POSNR.

WA_FINAL-ERDAT = WA_VBAK-ERDAT.

WA_FINAL-AUDAT = WA_VBAK-AUDAT.

WA_FINAL-VBTYP = WA_VBAK-VBTYP.

WA_FINAL-AUART = WA_VBAK-AUART.

WA_FINAL-MATNR = WA_VBAP-MATNR.

WA_FINAL-MATKL = WA_VBAP-MATKL.

WA_FINAL-ARKTX = WA_VBAP-ARKTX.

WA_FINAL-PSTYV = WA_VBAP-PSTYV.

APPEND WA_FINAL TO IT_FINAL.

ENDIF.

ENDLOOP.

ENDMETHOD.

METHOD DISPLAY_DATA.

LOOP AT IT_FINAL INTO WA_FINAL.

WRITE 😕 WA_FINAL-VBELN ,

WA_FINAL-POSNR ,

WA_FINAL-ERDAT,

WA_FINAL-AUDAT ,

WA_FINAL-VBTYP ,

WA_FINAL-AUART ,

WA_FINAL-MATNR ,

WA_FINAL-MATKL ,

WA_FINAL-ARKTX ,

WA_FINAL-PSTYV .

ENDLOOP.

ENDMETHOD .

ENDCLASS.

START-OF-SELECTION.

DATA : OBJ TYPE REF TO SALES1.

CREATE OBJECT OBJ.

CALL METHOD OBJ->GET_DATA.

CALL METHOD OBJ->POPULATE_DATA.

CALL METHOD OBJ->DISPLAY_DATA.

Regards,

Bhaskar

topic Re: oops programming in abap in Application Development and Automation Discussions

oops programming in abap

Re: oops programming in abap

Re: oops programming in abap

Re: oops programming in abap

Re: oops programming in abap