ABAP-Programs

[Former Member]

Can anyone pass out any Sample Programs of taking input from user and passingoutput from server which may be developed for me to understand how we write ABAP programs

I have got address of learning ABAP-in 21 days.

I need to go through any of programs.

Thanks

[Former Member]

This message was moderated.

[Former Member]

Where is ABAP docuTransaction i do not have currently R/3 softwareinstalled on my comp i may get it after 2 weeks

[Former Member]

Hi,

In which city you are?

You can call me on +91-9810241317.

Amit.

[Former Member]

bombay

[Former Member]

This message was moderated.

[BGarcia]

Hello Shaikh.

My suggestion is to check in transaction SE38, programs that starts with word DEMO.

Kind regards.

Bruno

[Former Member]

Hi,

Just go through the tutorials of SAPTechnical.com.

You will find a wide variety of programs there.

[Former Member]

hi

you can start with small programs.........

refer to links

http://help.sap.com

https://www.sdn.sap.com/irj/sdn/forums

sap.tutorials.

[Former Member]

Hi ,

Goto transaction abapdocu from your command prompt.

It is really helpful for beginners.

[Former Member]

This message was moderated.

[Nagaraju_yadav]

Hello,

Please find below sample ABAP Program.

*&---------------------------------------------------------------------*

*& Report ZSALESORDER_REPORT2

*&---------------------------------------------------------------------*

*&

*&---------------------------------------------------------------------*

REPORT ZSALESORDER_REPORT2.

TYPES: BEGIN OF TY_VBAP,

VBELN TYPE VBAP-VBELN,

POSNR TYPE VBAP-POSNR,

MATNR TYPE VBAP-MATNR,

MATWA TYPE VBAP-MATWA,

CHARG TYPE VBAP-CHARG,

NETPR TYPE VBAP-NETPR,

END OF TY_VBAP.

TYPES:BEGIN OF TY_FINAL,

VBELN TYPE VBAP-VBELN,

POSNR TYPE VBAP-POSNR,

MATNR TYPE VBAP-MATNR,

MATWA TYPE VBAP-MATWA,

CHARG TYPE VBAP-CHARG,

NETPR TYPE VBAP-NETPR,

END OF TY_FINAL.

*--------------------------------------------------------------------------------------------------------*

*D E C L A R A T I O N S

*--------------------------------------------------------------------------------------------------------*

DATA:IT_SALES TYPE TABLE OF TY_VBAP,

WA_SALES TYPE TY_VBAP.

DATA:IT_FINAL TYPE TABLE OF TY_FINAL,

WA_FINAL TYPE TY_FINAL.

DATA: IT_SLIS TYPE SLIS_T_FIELDCAT_ALV,

WA_SLIS TYPE SLIS_FIELDCAT_ALV.

DATA:LS_LAYOUT TYPE SLIS_LAYOUT_ALV.

*-----------------------------------------------------------------------------------------------------*

*S E L E C T I O N - S C R E E N

*-----------------------------------------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: S_ORDER FOR WA_SALES-VBELN.

SELECTION-SCREEN END OF BLOCK B1.

*-----------------------------------------------------------------------------------------------------*

*S T A R T - O F - S E L E C T I O N.

*-----------------------------------------------------------------------------------------------------*

START-OF-SELECTION.

PERFORM GET_DATA.

PERFORM PROCESS_DATA.

PERFORM FIELDCATE.

PERFORM DISPLAY.

FORM GET_DATA.

SELECT VBELN

POSNR

MATNR

MATWA

CHARG

NETPR

FROM VBAP

INTO TABLE IT_SALES

WHERE VBELN IN S_ORDER.

ENDFORM.

FORM PROCESS_DATA.

LOOP AT IT_SALES INTO WA_SALES.

WA_FINAL-VBELN = WA_SALES-VBELN.

WA_FINAL-POSNR = WA_SALES-POSNR.

WA_FINAL-MATNR = WA_SALES-MATNR.

WA_FINAL-MATWA = WA_SALES-MATWA.

WA_FINAL-CHARG = WA_SALES-CHARG.

WA_FINAL-NETPR = WA_SALES-NETPR.

APPEND WA_FINAL TO IT_FINAL.

CLEAR:WA_FINAL.

ENDLOOP.

ENDFORM.

FORM FIELDCATE.

WA_SLIS-FIELDNAME = 'VBELN'.

WA_SLIS-TABNAME = 'IT_FINAL'.

WA_SLIS-SELTEXT_S = 'Order number'.

APPEND WA_SLIS TO IT_SLIS.

CLEAR:WA_SLIS.

WA_SLIS-FIELDNAME = 'POSNR'.

WA_SLIS-TABNAME = 'IT_FINAL'.

WA_SLIS-SELTEXT_S = 'Order number'.

APPEND WA_SLIS TO IT_SLIS.

CLEAR:WA_SLIS.

WA_SLIS-FIELDNAME = 'MATNR'.

WA_SLIS-TABNAME = 'IT_FINAL'.

WA_SLIS-SELTEXT_S = 'Order number'.

APPEND WA_SLIS TO IT_SLIS.

CLEAR:WA_SLIS.

WA_SLIS-FIELDNAME = 'MATWA'.

WA_SLIS-TABNAME = 'IT_FINAL'.

WA_SLIS-SELTEXT_S = 'Order number'.

APPEND WA_SLIS TO IT_SLIS.

CLEAR:WA_SLIS.

WA_SLIS-FIELDNAME = 'CHARG'.

WA_SLIS-TABNAME = 'IT_FINAL'.

WA_SLIS-SELTEXT_S = 'Order number'.

APPEND WA_SLIS TO IT_SLIS.

CLEAR:WA_SLIS.

WA_SLIS-FIELDNAME = 'NETPR'.

WA_SLIS-TABNAME = 'IT_FINAL'.

WA_SLIS-SELTEXT_S = 'Order number'.

APPEND WA_SLIS TO IT_SLIS.

CLEAR:WA_SLIS.

WA_SORT-SPOS = 1.

WA_SORT-FIELDNAME = 'POSNR'.

WA_SORT-UP = 'X'.

WA_SORT-SUBTOT = 'X'.

APPEND WA_SORT TO IT_SORT.

CLEAR:WA_SORT.

ENDFORM.

*&---------------------------------------------------------------------*

*& Form FIELD_CAT

*&---------------------------------------------------------------------*

*& text

*&---------------------------------------------------------------------*

*& --> P_

*& --> P_

*& --> P_

*&---------------------------------------------------------------------*.

FORM DISPLAY.

LS_LAYOUT-ZEBRA = 'X'.

LS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

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 = LS_LAYOUT

IT_FIELDCAT = IT_SLIS

* IT_EXCLUDING =

* IT_SPECIAL_GROUPS =

IT_SORT = IT_SORT

* IT_FILTER =

* IS_SEL_HIDE =

* I_DEFAULT = 'X'

* I_SAVE = '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

* I_HTML_HEIGHT_TOP = 0

* I_HTML_HEIGHT_END = 0

* IT_ALV_GRAPHICS =

* IT_HYPERLINK =

* IT_ADD_FIELDCAT =

* IT_EXCEPT_QINFO =

* IR_SALV_FULLSCREEN_ADAPTER =

* O_PREVIOUS_SRAL_HANDLER =

* IMPORTING

* E_EXIT_CAUSED_BY_CALLER =

* ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_FINAL[]

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ENDIF.

ENDFORM.

[jerryjanda]

FYI, there's an "insert code" option when commenting. I'd recommend using here to make your comment easier to read. Thank you!

--Jerry