on 07-28-2008 1:01 PM
looking for the report in abap which are customized,, start from Z or Y for practise.... pls send me few for practise.....
Hi,
Ask this question in ABAP forums, any how follow the below code.
REPORT ZSMALLREPORT_rept_cntbrkstmts NO STANDARD PAGE HEADING
-----creating the structure and workarea for kna1 table
TYPES : BEGIN OF st_knc1,
bukrs TYPE knc1-bukrs,
gjahr TYPE knc1-gjahr,
erdat TYPE knc1-erdat,
usnam TYPE knc1-usnam,
kunnr TYPE knc1-kunnr,
um01s TYPE knc1-um01s,
END OF st_knc1.
DATA : it_knc1 TYPE STANDARD TABLE OF st_knc1,
wa_knc1 TYPE st_knc1.
----
START-OF-SELECTION
----
START-OF-SELECTION.
*-----retrieving the database table data through sub routines
PERFORM get_data.
*-----sorting internal table data by using bukrs field
SORT it_knc1 BY bukrs.
----
END-OF-SELECTION
----
END-OF-SELECTION.
*-----displaying the data
PERFORM disp_data.
&----
*& Form get_data
&----
FORM get_data.
REFRESH it_knc1.
SELECT bukrs gjahr erdat usnam kunnr um01s
FROM knc1
INTO TABLE it_knc1
UP TO 250 ROWS.
IF sy-subrc <> 0.
MESSAGE i002.
ENDIF.
ENDFORM. " get_data
&----
*& Form disp_data
&----
FORM disp_data .
LOOP AT it_knc1 INTO wa_knc1.
WRITE : / wa_knc1-bukrs,
wa_knc1-gjahr,
wa_knc1-erdat,
wa_knc1-usnam,
wa_knc1-kunnr,
wa_knc1-um01s CURRENCY 'INR'.
*-----performing at end event
AT END OF gjahr.
SUM.
WRITE : /35 wa_knc1-um01s CURRENCY 'INR' COLOR 7.
ENDAT.
*-----performing at last event
AT LAST.
SUM.
WRITE : / text-001 COLOR 6,
22 wa_knc1-um01s CURRENCY 'INR' COLOR 6.
ENDAT.
CLEAR wa_knc1.
ENDLOOP.
ENDFORM. " disp_data
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Hello Varun,
Fallow the sample ABAP report....
REPORT ZClassical_rep NO STANDARD PAGE HEADING LINE-COUNT 25(3) .
& declarations.........................................................
INCLUDE zrmclassical_rep_formf01.
& selection screen.....................................................
INCLUDE zrmclassical_rep_formf02.
& sort,heading color and text symbols..................................
SORT it_matdet BY connid.
FORMAT COLOR = 5.
WRITE: /(25) text-t01 LEFT-JUSTIFIED,(17) text-t02 LEFT-JUSTIFIED,(20) text-t03 LEFT-JUSTIFIED, (20) text-t04 LEFT-JUSTIFIED.
FORMAT COLOR OFF.
ULINE NO-GAP.
& subroutine...........................................................
PERFORM form IN PROGRAM zrmclassical_rep1.
& header and footer....................................................
include zrmclassical_rep_formf04.
&----
*& form form
&----
text
----
--> p1 text
<-- p2 text
----
FORM form .
LOOP AT it_matdet INTO wa_matdet.
IF wa_matdet-carrid = 'LH'.
WRITE: /(25) 'Lufthansa',
(20) wa_matdet-connid,
(20) wa_matdet-price,
(20) wa_matdet-planetype.
ENDIF.
IF wa_matdet-carrid = 'AA'.
WRITE: /(25) 'American Airlines',
(17) wa_matdet-connid LEFT-JUSTIFIED,
(20) wa_matdet-price LEFT-JUSTIFIED,
(20) wa_matdet-planetype LEFT-JUSTIFIED.
ENDIF.
IF wa_matdet-carrid = 'AZ'.
WRITE: /(25) 'Alitalia',
(17) wa_matdet-connid LEFT-JUSTIFIED,
(20) wa_matdet-price LEFT-JUSTIFIED,
(20) wa_matdet-planetype LEFT-JUSTIFIED.
ENDIF.
IF wa_matdet-carrid = 'DL'.
WRITE: /(25) 'Delta Airlines',
(17) wa_matdet-connid LEFT-JUSTIFIED,
(20) wa_matdet-price LEFT-JUSTIFIED,
(20) wa_matdet-planetype LEFT-JUSTIFIED.
ENDIF.
IF wa_matdet-carrid = 'JL'.
WRITE: /(25) 'Japan Airlines',
(17) wa_matdet-connid LEFT-JUSTIFIED,
(20) wa_matdet-price LEFT-JUSTIFIED,
(20) wa_matdet-planetype LEFT-JUSTIFIED.
ENDIF.
IF wa_matdet-carrid = 'QF'.
WRITE: /(25) 'Quantas',
(17) wa_matdet-connid LEFT-JUSTIFIED,
(20) wa_matdet-price LEFT-JUSTIFIED,
(20) wa_matdet-planetype LEFT-JUSTIFIED.
ENDIF.
IF wa_matdet-carrid = 'SQ'.
WRITE: /(25) 'Singapore Airlines',
(17) wa_matdet-connid LEFT-JUSTIFIED,
(20) wa_matdet-price LEFT-JUSTIFIED,
(20) wa_matdet-planetype LEFT-JUSTIFIED.
ENDIF.
IF wa_matdet-carrid = 'UA'.
WRITE: /(25) 'United Airlines',
(17) wa_matdet-connid LEFT-JUSTIFIED,
(20) wa_matdet-price LEFT-JUSTIFIED,
(20) wa_matdet-planetype LEFT-JUSTIFIED.
ENDIF.
ENDLOOP.
ENDFORM. " form
Thanks,
Satya Kumar
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
Dear Friend,
This is XI Forum, Please post your query in ABAP Forum.
You will get better solution there
Regards
Seshagiri
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
89 | |
10 | |
9 | |
9 | |
9 | |
6 | |
6 | |
5 | |
5 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.