Classical report coding

Question

can anybody send coding for classical report?

Answer 1

hi,
check the code below
*& Report  ZWK12346
REPORT  zwk12346 LINE-SIZE 160 LINE-COUNT 35(3) NO STANDARD PAGE HEADING.
...............DECLARATION OF TABLES..................................
TABLES: mkpf,
        mseg,
        makt.
.............AT SELECTION SCREEN.....................................*
SELECT-OPTIONS b FOR mkpf-mblnr. "Document no.
PARAMETERS: a TYPE mkpf-mjahr. "Document year.
DATA: am TYPE mseg-dmbtr VALUE 0.
.................DECLARATION OF WORK AREA.............................
DATA: BEGIN OF wa,
      mblnr TYPE mkpf-mblnr,
      mjahr TYPE mkpf-mjahr,
      budat TYPE mkpf-budat,
      matnr TYPE mseg-matnr,
      maktx TYPE makt-maktx,
      werks TYPE mseg-werks,
      dmbtr TYPE mseg-dmbtr,
      END OF wa.
..............INTERNAL TABLE DELARATION..............................*
DATA: itab LIKE STANDARD TABLE OF wa.
...............CONSTANT...............................................
...............GLOBAL VARIABLES.......................................
..............TOP-OF-PAGE.............................................
TOP-OF-PAGE.
  FORMAT COLOR COL_HEADING.
  WRITE: / sy-uline(150).
  WRITE:/ sy-vline,
         3 'Document No.',
         17 sy-vline,
         20 'Document Year',
         37 sy-vline,
         38 'Posting Date',
         54 sy-vline,
         56 'Material No.',
         72 sy-vline,
         74 'Description',
         118 sy-vline,
         120 'Plant',
         130 sy-vline,
         132 'Amount',
         150 sy-vline.
  WRITE: / sy-uline(150).
  FORMAT RESET.
.............END-OF-PAGE.............................................
END-OF-PAGE.
  WRITE: / sy-uline(150).
  FORMAT COLOR COL_TOTAL.
  WRITE: /128 'Total', am.
......................START OF SELECTION.............................
START-OF-SELECTION.
  SELECT mmblnr mmjahr mbudat qmatnr pmaktx qwerks q~dmbtr INTO CORRESPONDING FIELDS OF TABLE itab
         FROM ( ( mkpf AS m INNER JOIN mseg AS q ON mmblnr = qmblnr )
                  INNER JOIN makt AS p ON pmatnr = qmatnr )
                   WHERE m~mjahr = a.
..............Exit if Data is not fetched............................
  IF sy-subrc NE 0.
    WRITE: / 'No data selected'.
    EXIT.
  ENDIF.
.....................END OF SELECTION................................
  LOOP AT itab INTO wa.
    WRITE:/ sy-vline,
           3 wa-mblnr COLOR COL_KEY,
           17 sy-vline COLOR COL_KEY,
            20 wa-mjahr COLOR COL_KEY,
            37 sy-vline,
             38 wa-budat,54 sy-vline,
             56 wa-matnr COLOR COL_KEY,
             72 sy-vline,
             74 wa-maktx,
            118 sy-vline,
             120 wa-werks,
             130 sy-vline,
             132 wa-dmbtr,
             150 sy-vline.
  ENDLOOP.
  WRITE: / sy-uline(150).
regards,
Navneeth.K