simple report

Former Member · ‎04-19-2007

coding for simple report

Former Member · ‎04-19-2007

Hi,

REPORT ZTEJ_INTAB1 LINE-SIZE 103 LINE-COUNT 35(5) NO STANDARD PAGE

HEADING.

*TABLES DECLARATION

TABLES : KNA1, VBAK, VBAP.

*SELECT OPTIONS

SELECT-OPTIONS: CUST_NO FOR KNA1-KUNNR.

*INITIALIZATION

INITIALIZATION.

CUST_NO-LOW = '01'.

CUST_NO-HIGH = '5000'.

CUST_NO-SIGN = 'I'.

CUST_NO-OPTION = 'BT'.

APPEND CUST_NO.

*SELECTION SCREEN VALIDATION

AT SELECTION-SCREEN ON CUST_NO.

LOOP AT SCREEN.

IF CUST_NO-LOW < 1 OR CUST_NO-HIGH > 5000.

MESSAGE E001(ZTJ1).

ENDIF.

ENDLOOP.

*BASIC LIST SELECTION

START-OF-SELECTION.

SELECT KUNNR NAME1 ORT01 LAND1 INTO

(KNA1-KUNNR, KNA1-NAME1,KNA1-ORT01,KNA1-LAND1)

FROM KNA1

WHERE KUNNR IN CUST_NO.

WRITE:/1 SY-VLINE,

KNA1-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

KNA1-NAME1 UNDER 'NAME',

61 SY-VLINE,

KNA1-ORT01 UNDER 'CITY',

86 SY-VLINE,

KNA1-LAND1 UNDER 'COUNTRY',

103 SY-VLINE.

HIDE: KNA1-KUNNR.

ENDSELECT.

ULINE.

*SECONDARY LIST ACCESS

AT LINE-SELECTION.

IF SY-LSIND = 1.

PERFORM SALES_ORD.

ENDIF.

IF SY-LSIND = 2.

PERFORM ITEM_DET.

ENDIF.

*TOP OF PAGE

TOP-OF-PAGE.

FORMAT COLOR 1.

WRITE : 'CUSTOMER DETAILS'.

FORMAT COLOR 1 OFF.

ULINE.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'NAME',

61 SY-VLINE,

63 'CITY',

86 SY-VLINE,

88 'COUNTRY',

103 SY-VLINE.

ULINE.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR SECONDARY LISTS

TOP-OF-PAGE DURING LINE-SELECTION.

*TOP OF PAGE FOR 1ST SECONDARY LIST

IF SY-LSIND = 1.

ULINE.

FORMAT COLOR 1.

WRITE : 'SALES ORDER DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'SALES ORDER NO.',

40 SY-VLINE,

42 'DATE',

60 SY-VLINE,

62 'CREATOR',

85 SY-VLINE,

87 'DOC DATE',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR 2ND SECONDARY LIST

IF SY-LSIND = 2.

ULINE.

FORMAT COLOR 1.

WRITE : 'ITEM DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'SALES ORDER NO.',

40 SY-VLINE,

42 'SALES ITEM NO.',

60 SY-VLINE,

62 'ORDER QUANTITY',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*END OF PAGE

END-OF-PAGE.

ULINE.

WRITE :'USER :',SY-UNAME,/,'DATE :', SY-DATUM, 85 'END OF PAGE:',

SY-PAGNO.

SKIP.

&----

*& Form SALES_ORD

*&

*& FIRST SECONDARY LIST FORM

&----

FORM SALES_ORD .

SELECT KUNNR VBELN ERDAT ERNAM AUDAT INTO

(VBAK-KUNNR, VBAK-VBELN, VBAK-ERDAT, VBAK-ERNAM, VBAK-AUDAT)

FROM VBAK

WHERE KUNNR = KNA1-KUNNR.

WRITE:/1 SY-VLINE,

VBAK-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

VBAK-VBELN UNDER 'SALES ORDER NO.' HOTSPOT ON,

40 SY-VLINE,

VBAK-ERDAT UNDER 'DATE',

60 SY-VLINE,

VBAK-ERNAM UNDER 'CREATOR',

85 SY-VLINE,

VBAK-AUDAT UNDER 'DOC DATE',

103 SY-VLINE.

HIDE : VBAK-VBELN.

ENDSELECT.

ULINE.

ENDFORM. " SALES_ORD

&----

*& Form ITEM_DET

*&

*& SECOND SECONDARY LIST FORM

&----

FORM ITEM_DET .

SELECT VBELN POSNR KWMENG INTO

(VBAP-VBELN, VBAP-POSNR, VBAP-KWMENG)

FROM VBAP

WHERE VBELN = VBAK-VBELN.

WRITE : /1 SY-VLINE,

VBAP-VBELN UNDER 'SALES ORDER NO.',

40 SY-VLINE,

VBAP-POSNR UNDER 'SALES ITEM NO.',

60 SY-VLINE,

VBAP-KWMENG UNDER 'ORDER QUANTITY',

103 SY-VLINE.

ENDSELECT.

ULINE.

ENDFORM. " ITEM_DET

reward if useful

regards,

Anji

Former Member · ‎04-19-2007

hi,

goto transaction <b>abapdocu</b>. there you will find all types of programs

regards,

Navneeth.K

Former Member · ‎04-19-2007

Hi!

The most simple report is the following:


REPORT my_first_report.

WRITE:/ 'Hi World!'.

Regards

Tamá

p291102 · ‎04-19-2007

Hi,

go to the transaction DWDM - u can see all the examples are available in ABAP

Pgms.

Thanks,

Sankar M

aris_hidalgo · ‎04-19-2007

HI Rakkasi,

Please check out transaction ABAPDOCU. From there you can check out ABAP examples on different topics and also you can know the meaning of ABAP keywords. Hope it helps...

P.S. Please reward points if it helps...

Former Member · ‎04-19-2007

Hi Rakkasi,

Reports are classified into Five types.

1. Classical Report.

2. List Display.

3. Grid Display.

4. Hierarchical Report.

5. Hierarchical Sequential Report.

Consider This Grid Display Example. Here I used the simple Z table. Select the fields From z Table using Select query and print The Report.

TABLES: ZVIJIRANK.

DATA :

BEGIN OF WA,

REG_NO LIKE ZVIJIRANK-REG_NO,

END OF WA,

REG_NO1 LIKE STANDARD TABLE OF ZVIJIRANK WITH HEADER LINE.

SELECTION-SCREEN:BEGIN OF SCREEN 9004,

BEGIN OF BLOCK B2 WITH FRAME.

SELECT-OPTIONS REGNO FOR ZVIJIRANK-REG_NO MATCHCODE OBJECT ZRANK1.

SELECTION-SCREEN:END OF BLOCK B2,

END OF SCREEN 9004.

at selection-screen on help-request for REGNO.

SELECT * FROM ZVIJIRANK INTO CORRESPONDING FIELDS OF TABLE REG_NO1 WHERE REG_NO IN REGNO."BETWEEN REGNO-LOW AND REGNO-HIGH.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
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 = 'ZVIJIRANK'

I_BACKGROUND_ID = 'ALV_BACKGROUND'

I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
IT_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
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 =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = REG_NO1.

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.

Thanks.

Reward If Helpful.

Former Member · ‎08-01-2007

Hi,

check out this coding for a simple alv report.

TABLES : vbak,vbap.

TYPE-POOLS : slis.

DATA: repid LIKE sy-repid, "Report ID

is_layout TYPE slis_layout_alv, "Layout For ALV

it_fieldcat TYPE slis_t_fieldcat_alv, "ITAB for field

it_events TYPE slis_t_event, "ITAB for event

it_sub TYPE slis_layout_alv_spec1, "subtotals

i_header TYPE slis_t_listheader, "Itab for listheader

lt_sort TYPE slis_t_sortinfo_alv, "itab for sorting

wa_sort LIKE LINE OF lt_sort." slis_t_sortinfo_alv.

DATA : BEGIN OF itab OCCURS 0,

vbeln LIKE vbak-vbeln,

erdat LIKE vbak-erdat,

kunag LIKE vbak-kunnr,

ernam LIKE vbak-ernam,

END OF itab.

DATA : BEGIN OF it_disp OCCURS 0,

vbeln LIKE vbak-vbeln,

erdat LIKE vbak-erdat,

kunag LIKE vbak-kunnr,

ernam LIKE vbak-ernam,

posnr LIKE vbap-posnr,

matnr LIKE vbap-matnr,

END OF it_disp.

****selection-screen

SELECTION-SCREEN BEGIN OF BLOCK b1.

SELECT-OPTIONS : s_vbeln FOR vbak-vbeln,

s_date FOR vbak-erdat.

SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN.

START-OF-SELECTION.

PERFORM get_data.

PERFORM modify_data.

PERFORM disp_data .

END-OF-SELECTION.

&----

*& Form get_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM get_data .

SELECT a_{vbeln a}erdat a_{kunnr a}ernam b_{posnr b}matnr

INTO TABLE it_disp FROM vbak AS a

INNER JOIN vbap AS b ON

a_{vbeln = b}vbeln

WHERE a~vbeln IN s_vbeln.

ENDFORM. " get_data

&----

*& Form modify_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM modify_data .

MOVE-CORRESPONDING itab TO it_disp.

APPEND it_disp.

CLEAR it_disp.

ENDFORM. " modify_data

&----

*& Form Disp_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM disp_data .

PERFORM fill_layout_structure.

PERFORM fill_field_catalog_table.

PERFORM alv_header USING i_header.

PERFORM call_alv_function.

ENDFORM. " Disp_data

&----

*& Form fill_layout_structure

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_layout_structure .

CLEAR is_layout.

is_layout-colwidth_optimize = 'X'.

is_layout-zebra = 'X'.

is_layout-no_input = 'X'.

is_layout-colwidth_optimize = 'X'.

is_layout-totals_text = 'Totals'(201).

is_layout-totals_only = 'X'.

is_layout-zebra = 'X'.

is_layout-group_change_edit = 'X'.

is_layout-header_text = 'helllllo'.

ENDFORM. " fill_layout_structure

&----

*& Form fill_field_catalog_table

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_field_catalog_table .

DATA : gls1(10).

BREAK-POINT.

PERFORM fill_field_catalog USING :

'VBELN' 'SALES DOC NO.' '10' 'IT_FINAL' space space 'C11' ' ' ' ',

'ERDAT' 'DATE' '40' 'IT_FINAL' space space 'C11' ' ' ' ',

'KUNAG' 'CUSTOMER' '6' 'IT_FINAL' space space 'C11' 'X ' ' ',

'ERNAM' 'NAME' '20' 'IT_FINAL' space space 'C11' 'X' ' ',

'POSNR' 'ITEM' '10' 'IT_FINAL' space space 'C11' ' ' ' ',

'MATNR' 'MATERIAL' '20' 'IT_FINAL' space space 'C11' ' ' ' '.

ENDFORM. " fill_field_catalog_table

&----

*& Form fill_field_catalog

&----

text

----

FORM fill_field_catalog USING f d l t s z y a b.

DATA t_fld TYPE slis_fieldcat_alv.

STATICS pos LIKE sy-index VALUE 0.

pos = pos + 1.

CLEAR t_fld.

MOVE 1 TO t_fld-row_pos.

MOVE pos TO t_fld-col_pos.

MOVE f TO t_fld-fieldname.

MOVE d TO t_fld-seltext_m.

MOVE l TO t_fld-outputlen.

MOVE t TO t_fld-tabname.

MOVE s TO t_fld-do_sum.

MOVE z TO t_fld-no_zero.

MOVE y TO t_fld-emphasize.

MOVE a TO t_fld-no_out.

MOVE b TO t_fld-no_sum.

APPEND t_fld TO it_fieldcat.

ENDFORM. " fill_field_catalog

&----

*& Form alv_header

&----

text

----

-->P_I_HEADER text

----

FORM alv_header USING p_i_header.

DATA: wa_line TYPE slis_listheader.

CLEAR wa_line.

wa_line-typ = 'H'.

wa_line-info = 'Walvoil Fluid Power India Limited'.

APPEND wa_line TO i_header.

ENDFORM. " alv_header

&----

*& Form call_alv_function

&----

text

----

--> p1 text
<-- p2 text

----

FORM call_alv_function .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = REPID

I_CALLBACK_PF_STATUS_SET = ' '

IS_LAYOUT = IS_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

TABLES

t_outtab = IT_DISP.

IF sy-subrc <> 0.

ENDIF.

ENDFORM. " call_alv_function

Reward points if it useful to u,

Best wishes

Regards,

Guna..

Former Member · ‎08-01-2007

Go through the basics of ABAP and short practicing on your own. then you will come to know the things practically

Start with this.Refer this

http://www.sapbrain.com/FAQs/TECHNICAL/SAP_ABAP_DATADICTIONARY_FAQ.html

http://www.saptechnical.com/InterviewQ/interviewQ.htm

http://help.sap.com/saphelp_46c/helpdata/en/35/2cd77bd7705394e10000009b387c12/frameset.htm

Reports

http://www.sapgenie.com/abap/reports.htm

http://www.allsaplinks.com/material.html

http://www.sapdevelopment.co.uk/reporting/reportinghome.htm

http://www.sapfans.com/forums/viewtopic.php?t=58286

http://www.sapfans.com/forums/viewtopic.php?t=76490

http://www.sapfans.com/forums/viewtopic.php?t=20591

http://www.sapfans.com/forums/viewtopic.php?t=66305 - this one discusses which way should you use - ABAP Objects calls or simple function modules.

ALE/ IDOC

http://help.sap.com/saphelp_erp2004/helpdata/en/dc/6b835943d711d1893e0000e8323c4f/content.htm

http://www.sapgenie.com/sapgenie/docs/ale_scenario_development_procedure.doc

http://edocs.bea.com/elink/adapter/r3/userhtm/ale.htm#1008419

http://www.netweaverguru.com/EDI/HTML/IDocBook.htm

http://www.sapgenie.com/sapedi/index.htm

http://www.sappoint.com/abap/ale.pdf

http://www.sappoint.com/abap/ale2.pdf

http://www.sapgenie.com/sapedi/idoc_abap.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/0b/2a60bb507d11d18ee90000e8366fc2/frameset.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/78/217da751ce11d189570000e829fbbd/frameset.htm

http://www.allsaplinks.com/idoc_sample.html

http://www.sappoint.com/abap.html

http://help.sap.com/saphelp_erp2004/helpdata/en/dc/6b835943d711d1893e0000e8323c4f/content.htm

http://www.sapgenie.com/sapgenie/docs/ale_scenario_development_procedure.doc

http://edocs.bea.com/elink/adapter/r3/userhtm/ale.htm#1008419

http://www.netweaverguru.com/EDI/HTML/IDocBook.htm

http://www.sapgenie.com/sapedi/index.htm

http://www.allsaplinks.com/idoc_sample.html

Check these step-by-step links

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/uuid/ccab6730-0501...

https://sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/uuid/8fd773b3-0301-001...

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/uuid/3c5d9ae3-0501...

for Smartforms material

http://www.sap-basis-abap.com/sapsf001.htm

http://www.sap-press.com/downloads/h955_preview.pdf

http://www.ossincorp.com/Black_Box/Black_Box_2.htm

http://www.sap-img.com/smartforms/sap-smart-forms.htm

http://www.sap-img.com/smartforms/smartform-tutorial.htm

http://www.sapgenie.com/abap/smartforms.htm

How to trace smartform

http://help.sap.com/saphelp_47x200/helpdata/en/49/c3d8a4a05b11d5b6ef006094192fe3/frameset.htm

http://www.help.sap.com/bp_presmartformsv1500/DOCU/OVIEW_EN.PDF

http://www.sap-img.com/smartforms/smart-006.htm

http://www.sap-img.com/smartforms/smartforms-faq-part-two.htm

check most imp link

http://www.sapbrain.com/ARTICLES/TECHNICAL/SMARTFORMS/smartforms.html

step by step good ex link is....

http://smoschid.tripod.com/How_to_do_things_in_SAP/How_To_Build_SMARTFORMS/How_To_Build_SMARTFORMS.h...

SAPScripts

Link for SAP Scripts (step by step procedure)

http://smoschid.tripod.com/How_to_do_things_in_SAP/How_To_Create_A_SAPSCRIPT_Form/How_to_Create_SAPS...

http://esnips.com/doc/1ff9f8e8-0a4c-42a7-8819-6e3ff9e7ab44/sapscripts.pdf

http://esnips.com/doc/1e487f0c-8009-4ae1-9f9c-c07bd953dbfa/script-command.pdf

http://esnips.com/doc/64d4eccb-e09b-48e1-9be9-e2818d73f074/faqss.pdf

http://esnips.com/doc/cb7e39b4-3161-437f-bfc6-21e6a50e1b39/sscript.pdf

http://esnips.com/doc/fced4d36-ba52-4df9-ab35-b3d194830bbf/symbols-in-scripts.pdf

http://esnips.com/doc/b57e8989-ccf0-40d0-8992-8183be831030/sapscript-how-to-calculate-totals-and-sub...

SAP SCRIPT FIELDS

http://help.sap.com/saphelp_erp2005vp/helpdata/en/d1/8033ea454211d189710000e8322d00/content.htm

scripts easy material

http://www.allsaplinks.com/sap_script_made_easy.html

Debugging Document.

http://www.cba.nau.edu/haney-j/CIS497/Assignments/Debugging.doc

http://help.sap.com/saphelp_47x200/helpdata/en/c6/617ca9e68c11d2b2ab080009b43351/content.htm

http://www.cba.nau.edu/haney-j/CIS497/Assignments/Debugging.doc

http://help.sap.com/saphelp_erp2005/helpdata/en/b3/d322540c3beb4ba53795784eebb680/frameset.htm

http://help.sap.com/saphelp_nw04/helpdata/en/84/1f624f4505144199e3d570cf7a9225/frameset.htm

http://help.sap.com/saphelp_bw30b/helpdata/en/c6/617ca9e68c11d2b2ab080009b43351/content.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/b3/d322540c3beb4ba53795784eebb680/frameset.htm