Hi Guys

Former Member · ‎07-19-2007

will u send some sample clasical reports using material and sales tables not usings intractive or alvs plz simple reports

Former Member · ‎07-19-2007

You can check here:

http://help.sap.com/saphelp_nw04s/helpdata/en/17/cd5e407aa4c44ce10000000a1550b0/frameset.htm

Hope this helps...

rewards point for helpful answer.

Former Member · ‎07-19-2007

Best way is go to Business Content and you can see all the infoareas you have mentioned.

Go to transaction rsa1,click Business Content, Click Infoproviders based on Infoarea.

In the right side window collection mode select manual selection.

Drag your infoarea and push it in the right window.Then Execute it.

rewards point for helpful answer.

Former Member · ‎07-19-2007

Hi,

Find a sample report using material and sales table.

TABLES: mara,
        eina,
        eipa.

DATA: BEGIN OF itab_eina OCCURS 0,
        infnr TYPE eina-infnr,
        erdat TYPE eina-erdat,
        matnr TYPE eina-matnr,
      END OF itab_eina.
DATA: itab_copy LIKE STANDARD TABLE OF itab_eina WITH HEADER LINE .
DATA: BEGIN OF itab_eipa OCCURS 0,
        infnr TYPE eipa-infnr,
        ebeln TYPE eipa-ebeln,
        bedat TYPE eipa-bedat,
        preis TYPE eipa-preis,
        bwaer TYPE eipa-bwaer,
      END OF itab_eipa.

DATA: c TYPE i VALUE 0,
      c1 TYPE i VALUE 0,
      lrec TYPE eina-infnr.


DATA: BEGIN OF it_final OCCURS 0,
          matnr TYPE eina-matnr,
          erdat TYPE eina-erdat,
          ebeln TYPE eipa-ebeln,
          preis TYPE eipa-preis,
          bwaer TYPE eipa-bwaer,
      END OF it_final.
DATA: BEGIN OF itab_mara OCCURS 0,
        matnr TYPE mara-matnr,
      END OF itab_mara.
*& ----------------  SELECTION SCREEN --------------------------- &*

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME  TITLE text-001.

SELECT-OPTIONS: s_matnr  FOR  mara-matnr.

SELECTION-SCREEN END OF BLOCK b1.

*& ------------- INITIALIZATION  ---------------------------- &*
*& -------------  AUTHORITY-CHECK  --------------------------&*

INITIALIZATION.

AUTHORITY-CHECK OBJECT 'ZMM_TCODE'
         ID 'ACTVT' FIELD '02'
         ID 'TCODE' FIELD 'ZMM18'.

      if sy-subrc <> 0.
        message 'You Do not have the rights' type 'E'.
      endif.


*&  ------------------  START-OF-SELECTION ------------------------- &*

START-OF-SELECTION.

  SELECT matnr FROM mara INTO CORRESPONDING FIELDS OF TABLE itab_mara
          WHERE matnr IN s_matnr.

  LOOP AT itab_mara.
    SELECT infnr
           erdat
           matnr FROM eina INTO CORRESPONDING FIELDS OF TABLE itab_eina
           WHERE matnr = itab_mara-matnr.



    SORT itab_eina BY erdat.
    c = sy-dbcnt.
    READ TABLE itab_eina INDEX c.
    it_final-matnr = itab_eina-matnr.
    it_final-erdat = itab_eina-erdat.
    lrec = itab_eina-infnr.


    SELECT ebeln
           bedat
           preis
           bwaer FROM eipa INTO CORRESPONDING FIELDS OF TABLE itab_eipa
           WHERE infnr = lrec.


    SORT itab_eipa BY bedat.
    c1 = sy-dbcnt.
    READ TABLE itab_eipa INDEX c1.
    it_final-ebeln = itab_eipa-ebeln.
    it_final-preis = itab_eipa-preis.
    it_final-bwaer = itab_eipa-bwaer.
    APPEND it_final.
  ENDLOOP.
  DELETE ADJACENT DUPLICATES FROM it_final.

Reward points for helpful answer

Debjani Lahiri

Former Member · ‎07-19-2007

Hi,

refer the following link for different codes.

http://www.erpgenie.com/abap/example_code.htm

http://www.sap-img.com/abap.htm

REPORT zREPORTS NO STANDARD PAGE HEADING.

MESSAGE-ID 38 LINE-SIZE 132 LINE-COUNT 65(3).

*----

PROGRAM # Z_ABAP_STD_PGM
DATE WRITTEN # 31.12.9999
SYSTEM # ADC
TYPE # REPORT
AUTHOR # Your Name

*----

TITLE # GL item list
PURPOSE # List all GL items
COPIED FROM # Zrxxxxxx

*----

DESCRIPTION
Read through all GL documents and list the values " Description

*

*----

include some common code

*include ZIaxxxxx. " If you are including any includes or prgms

*----

----

Parameters and select options OR SELECTION SCREEN

----

Tables *

----

Internal Tables *

----

work areas

*data: begin of itab occurs 0,

line(100) type c,

*end of itab.

an internal table

DATA: BEGIN OF ITAB OCCURS 0,

VBELN LIKE VBAP-VBELN,

MATNR LIKE VBAP-MATNR,

POSNR LIKE VBAP-POSNR,

ERDAT LIKE VBAK-ERDAT,

ERNAM LIKE VBAK-ERNAM,

AUART LIKE VBAK-AUART,

END OF ITAB.

DATA: BEGIN OF ITAB1 OCCURS 0,

VBELN LIKE VBKD-VBELN,

POSNR LIKE VBKD-POSNR,

KONDA LIKE VBKD-KONDA,

KDGRP LIKE VBKD-KDGRP,

END OF ITAB1.

DATA: BEGIN OF ITAB2 OCCURS 0,

VBELN LIKE VBAP-VBELN,

MATNR LIKE VBAP-MATNR,

POSNR LIKE VBAP-POSNR,

ERDAT LIKE VBAK-ERDAT,

ERNAM LIKE VBAK-ERNAM,

AUART LIKE VBAK-AUART,

KONDA LIKE VBKD-KONDA,

KDGRP LIKE VBKD-KDGRP,

END OF ITAB2.

----

Variables *

----

DATA: XPOS LIKE SY-TABIX,

PAGE_NO LIKE SY-PAGNO, " the page no.

NO_LINES TYPE P, " no of lines

REC_NO LIKE SY-TABIX. " Record number

DATA: V1_MATNR TYPE VBAP-MATNR,

V1_VBELN TYPE VBAP-VBELN,

V1_POSNR TYPE VBAP-POSNR.

----

Constants *

----

DATA:

YES(1) TYPE C VALUE 'X',

NO(1) TYPE C VALUE ' '.

***********************************************************************

Start of Program *

***********************************************************************

----

INITIALIZATION. *

----

INITIALIZATION.

----

SELECTION-SCREEN *

----

AT SELECTION-SCREEN.

----

START-OF-SELECTION *

----

START-OF-SELECTION.

----

initialise values
first = yes.
Getting data

PERFORM GET_DATA.

PERFORM GET_DATA1.

populate internal tables
perfrom fill_itab.

----

END-OF-SELECTION *

----

END-OF-SELECTION.

----

LOOP AT ITAB.

ITAB2-VBELN = ITAB-VBELN.

ITAB2-MATNR = ITAB-MATNR.

ITAB2-POSNR = ITAB-POSNR.

ITAB2-ERDAT = ITAB-ERDAT.

ITAB2-ERNAM = ITAB-ERNAM.

ITAB2-AUART = ITAB-AUART.

READ TABLE ITAB1 WITH KEY VBELN = ITAB-VBELN

POSNR = ITAB-POSNR.

IF SY-SUBRC = 0.

ITAB2-KONDA = ITAB1-KONDA.

ITAB2-KDGRP = ITAB1-KDGRP.

ENDIF.

APPEND ITAB2.

ENDLOOP.

SORT ITAB2 BY VBELN POSNR MATNR.

WRITE : / 'vbeln', 15 'posnr', 25 'matnr', 40 'erdat',

50 'ernam', 60 'auart', 70 'konda', 80 'kdgrp'.

LOOP AT ITAB2.

AT NEW VBELN.

WRITE : / ITAB2-VBELN.

ENDAT.

WRITE: ITAB2-POSNR,

ITAB2-MATNR,

ITAB2-ERDAT,

ITAB2-ERNAM,

ITAB2-AUART,

ITAB2-KONDA,

ITAB2-KDGRP.

ENDLOOP.

Print Report Footers
Write the end of the report

----

TOP-OF-PAGE *

----

TOP-OF-PAGE.

----

write report header

write out the column headings.

----

TOP-OF-PAGE-DURING-LINE-SELECTION *

----

top-of-page-during-line-selection.

----

write report header

write out the column headings.

----

END-OF-PAGE *

----

*end-of-page.

----

write report footers

----

AT LINE-SELECTION *

----

AT LINE-SELECTION.

----

AT PFXX *

----

AT PFXX.

----

AT USER-COMMAND *

----

AT USER-COMMAND.

----

process screen selection

CASE SY-UCOMM.

WHEN 'UP '.

WHEN OTHERS.

ENDCASE.

*

----

process formxxxxx *

----

FORM FORMXXXXX.

do something

ENDFORM.

*

&----

*& Form get_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_DATA .

*select matnr vbeln posnr into (itab_matnr, itab_vbeln, v1_posnr)

from vbap.

*endselect.

*

SELECT P~VBELN

P~MATNR

P~POSNR

K~ERDAT

K~ERNAM

K~AUART

INTO TABLE ITAB

FROM VBAP AS P INNER JOIN VBAK AS K

ON P_{VBELN = K}VBELN.

inner join vbkd as d
on d_{vbeln = p}vbeln
and d_{posnr = p}posnr.

ENDFORM. " get_data

&----

*& Form get_data1

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_DATA1 .

SELECT VBELN

POSNR

KONDA

KDGRP

INTO TABLE ITAB1

FROM VBKD

FOR ALL ENTRIES IN ITAB

WHERE VBELN = ITAB-VBELN

AND POSNR = ITAB-POSNR.

ENDFORM. " get_data1

regards,

srinivas

*reward for useful answers*

Former Member · ‎07-19-2007

Hi Satesh,

Pls check the coding below


REPORT ZTEST 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 user-command.

IF SY-UCOMM = 'IONE'.
PERFORM SALES_ORD.
ENDIF.
IF SY-UCOMM = 'ITWO'.
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-UCOMM = 'IONE'.
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-UCOMM = 'ITWO'.
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 pts if found usefull :)

regards

Sathish

Former Member · ‎07-19-2007

plz close the thread once u got what u wanted.

regards,

srinivas