topic Re: Reports in Application Development and Automation Discussions

Reports

Former Member — Thu, 10 Apr 2008 08:12:05 GMT

ABAP GURU'S

1- Plz send 2-2 Examles of interactive and classical repot swith some short discription of all events which we can used in the repor.

Thanks.

Re: Reports

Former Member — Thu, 10 Apr 2008 08:15:13 GMT

HI,

report zmjud001 no standard page heading line-size 85 line-count 50. 
* DATA /TABLES DECLARATION* 
tables: eban. 
data: prog_nam(8). 
data: begin of pur_req occurs 100, 
ekgrp like eban-ekgrp, 
werks like eban-werks, 
banfn like eban-banfn, 
bnfpo like eban-bnfpo, 
bsart like eban-bsart, 
estkz like eban-estkz, 
matnr like eban-matnr, 
menge like eban-menge, 
meins like eban-meins, 
numb(3) type n.
data: end of pur_req. 
* THE REPORT HEADER 
prog_nam = sy-repid. 
top-of-page. 
perform header_write.
* SELECTION 
start-of-selection. 
pur_req-numb = 1.
* SELECT ONLY THOSE FIELDS THAT WILL BE USED FROM THE TABLE EBAN, AND ONLY 
*THE FIRST100 RECORDS OF THE THE PLANT 'PL01' 
select banfn bnfpo bsart ekgrp matnr werks menge meins frgdt estkz 
into corresponding fields of eban from eban up to 100 rows 
where bsart = 'NB' "document type 'NB' = purchase requisition 
and werks = 'PL01' 
and statu = 'N' "processing status 
and loekz = ' '. "deletion indicator
* THE SELECTED RECORDS SHOULD BE APPENDED TO INTERNAL TABLE 'PUR_REQ' 
pur_req-banfn = eban-banfn. 
pur_req-matnr = eban-matnr. 
pur_req-werks = eban-werks. 
pur_req-ekgrp = eban-ekgrp. 
pur_req-bnfpo = eban-bnfpo. 
pur_req-bsart = eban-bsart. 
pur_req-menge = eban-menge. 
pur_req-meins = eban-meins. 
pur_req-estkz = eban-estkz. 
append pur_req. 
pur_req-numb = pur_req-numb + 1.
endselect.
* CHECK WHETHER THE TABLE EBAN CONTAINS ANY PURCHASE REQUISITIONS 
if sy-subrc ne 0. 
write: / 'No Purchase Requisition found.'.
endif.
* PROCESS THE INTERNAL TABLE; WRITE OUT THE REQUIRED FIELDS AND HIDE THE 
*FIELDS YOU ARE GOING TO USE LATER 
loop at pur_req. 
write: /1 pur_req-numb, 9 pur_req-banfn, 21 pur_req-bnfpo, 31 pur_req-bsart, 41 pur_req-matnr, 
61 pur_req-menge unit pur_req-meins, 82 pur_req-meins. 
hide: pur_req-matnr, pur_req-werks, pur_req-banfn.
endloop. 
clear pur_req-banfn. clear pur_req-matnr. clear pur_req-werks.
* IN THE MENU PAINTER (SE41) CREATE A STATUS TO YOUR PROGRAM. HERE YOU CAN 
*DEFINE THE PUSH-BUTTON 
set pf-status 'basic'.
* CHOOSE A REQUISITION (WITH DOUBLE CLICKING OR PUSH-BUTTON) IN THE LIST! THE 
*PURCHASE REQUISITION IS GOING TO COME UP 
at line-selection. 
if pur_req-banfn <> space. 
set parameter id 'BAN' field pur_req-banfn. " parameter id for pruchase req. number 
call transaction 'ME52' and skip first screen. "trans. code 'ME52': Change Purchase Requis. 
clear pur_req-banfn. clear pur_req-matnr. 
clear pur_req-werks.
endif.
* FORM THE HEADER 
form header_write. 
write: / prog_nam, 32 'FUN-FACTORY', 
/ 'Purch.Gr.:', pur_req-ekgrp, 26 'Purchase Requisition List', 
61 'As Of Date:', 75 sy-datum, 
/ 'Plant:', pur_req-werks, 61 'Page:', 75 sy-pagno.
uline. 
write: / text-001, 
/ text-002.
uline.
endform.

Re: Reports

Former Member — Thu, 10 Apr 2008 08:18:41 GMT

*&---------------------------------------------------------------------*
*& Report  ZSAP_DEMO                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  zsap_demo NO STANDARD PAGE HEADING LINE-SIZE 146
                                             LINE-COUNT 50.

TABLES : mara,mard,marc.
INCLUDE : <list>.

DATA: BEGIN OF itab OCCURS 0,
        matnr TYPE mara-matnr,
        ersda TYPE mara-ersda,
        ernam TYPE mara-ernam,
        laeda TYPE mara-laeda,
        aenam TYPE mara-aenam,
        vpsta TYPE mara-vpsta,
        lvorm TYPE mara-lvorm,
        mtart TYPE mara-mtart,
        mbrsh TYPE mara-mbrsh,
        matkl TYPE mara-matkl,
        bismt TYPE mara-bismt,
      END OF itab.

DATA: BEGIN OF itab2 OCCURS 0,
        matnr TYPE marc-matnr,
        werks TYPE marc-werks,
        ekgrp TYPE marc-ekgrp,
        mabst TYPE marc-mabst,
      END OF itab2.

SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-000.
SELECT-OPTIONS : matnr FOR mara-matnr OBLIGATORY.
PARAMETERS : werks LIKE marc-werks." OBLIGATORY.
PARAMETERS : num TYPE c.
SELECTION-SCREEN END OF BLOCK b.

AT SELECTION-SCREEN OUTPUT.

  IF num = '0' OR num = '1'.
    LOOP AT SCREEN.
      IF screen-name = 'NUM'.
        screen-intensified = 1.
        screen-input = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

AT LINE-SELECTION.
  SELECT * FROM marc  WHERE matnr = itab-matnr.
    IF sy-subrc EQ 0.
      MOVE-CORRESPONDING marc TO itab2.
      APPEND itab2.CLEAR itab2.
    ENDIF.
  ENDSELECT.
  DATA : ctr1(3) TYPE n.
  LOOP AT itab2.
    ctr1 = ctr1 + 1.
    FORMAT COLOR 2 INTENSIFIED ON.
    WRITE :/1 sy-vline,2(3) ctr1,7(18) itab2-matnr,26 sy-vline,27(6) itab2-werks,32 sym_circle AS SYMBOL,
           34 sy-vline, 35(10) itab2-ekgrp,46 sy-vline,47(13) itab2-mabst,61 sy-vline.
  ENDLOOP.
  WRITE :/1 sy-vline,1(60) sy-uline,61 sy-vline.

START-OF-SELECTION.

  IF matnr IS INITIAL AND werks IS INITIAL.
    MESSAGE 'Enter Material and Plant!!!' TYPE 'I'.
  ELSE.
    SELECT * FROM mara INTO CORRESPONDING FIELDS OF TABLE itab
                                         WHERE matnr IN matnr.

  ENDIF.

  PERFORM print_data.

TOP-OF-PAGE DURING LINE-SELECTION.
  WRITE :/1 sy-vline,1(60) sy-uline,61 sy-vline.
  FORMAT COLOR 1 INTENSIFIED ON.
  WRITE :/1 sy-vline,2(3) 'SNO',7(18) 'MATERIAL',26 sy-vline,27(6) 'PLANT', 34 sy-vline,35(10) 'PUR.GROUP',
          46 sy-vline,47(13) 'MAX STOCK',61 sy-vline.
  WRITE :/1 sy-vline,1(61) sy-uline,61 sy-vline.

TOP-OF-PAGE.

  WRITE :/1 sy-vline,1(150) sy-uline,146 sy-vline.
  FORMAT COLOR 1 INTENSIFIED ON.
  WRITE :/1 sy-vline,2 'AS-IS TECHNOLOGIES',
         40 'M A T E R I A L   S T O C K   A V A I L A B I L I T Y',
         125 'PAGE NO: ',sy-pagno,146 sy-vline.
  FORMAT COLOR 7 INTENSIFIED ON.
  WRITE :/1 sy-vline,2 'RUN DATE :',sy-datum,146 sy-vline.
  WRITE :/1 sy-vline,40 'PLANT : ', werks,146 sy-vline.
  WRITE :/1 sy-vline,1(150) sy-uline,146 sy-vline.
  WRITE :/1 sy-vline,2(3) 'SNO',6 sy-vline,7(18) 'MATERIAL',26 sy-vline,27(10) 'CREAT.DATE',38 sy-vline,
         39(12) 'CREATED BY',52 sy-vline,53(10) 'L.CHANGE',64 sy-vline,65(12) 'CH.PER.NAME',78 sy-vline,
         79(15) 'MAIN.STATUS',95 sy-vline,96(5) 'FLAG',102 sy-vline,103(9) 'MAT.TYPE',113 sy-vline,
         114(10) 'IND.SECTOR',125 sy-vline,126(10) 'MAT.GROUP',127(18) 'OLD MAT NO',146 sy-vline.
  WRITE :/1 sy-vline,1(150) sy-uline,146 sy-vline.

END-OF-PAGE.
  ULINE.
*&---------------------------------------------------------------------*
*&      Form  PRINT_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM print_data .
  DATA : ctr(3) TYPE n.
  LOOP AT itab.
    ctr = ctr + 1.
    FORMAT COLOR 2 INTENSIFIED ON.
    WRITE :/1 sy-vline,2(3) ctr,6 sy-vline,7(18) itab-matnr HOTSPOT ON,26 sy-vline,27(10) itab-ersda,38 sy-vline,
             39(12) itab-ernam,52 sy-vline,53(10) itab-laeda,64 sy-vline,65(12) itab-aenam,78 sy-vline,
             79(15) itab-vpsta,95 sy-vline,96(5) itab-lvorm,102 sy-vline,103(9) itab-mtart,113 sy-vline,
             114(10) itab-mbrsh,125 sy-vline,126(10) itab-matkl,127(18) itab-bismt,146 sy-vline.
  ENDLOOP.
ENDFORM.                    " PRINT_DATA

Reward if usefull

Re: Reports

Former Member — Thu, 10 Apr 2008 08:19:01 GMT

Hi,

For Interactive Report,

Refer to the link below:

http://erpgenie.com/abaptips/content/view/512/62/

From this you will be able to code for classical report as well.

Hope this helps.

Reward if helpful.

Regards,

Sipra