topic Re: simple report run it . in Application Development and Automation Discussions

simple report run it .

ashish_gupta11 — Thu, 04 Oct 2007 07:54:15 GMT

Dear Experts ,

I Want to disply a report with sum at end of city, and city is display at every connid . i want to show city coms only once with respect of their connid.

===========================================================

i want 2 show output like ...................................

cityfrom :FRANKFURT

carrid: JL

connid:0408

carrid:LH

connid:0400

Cityfrom :NEWYORK....................

like this.

==========================================================

&----

*& Report ZFLIGHT_01 *

*& *

&----

*& *

&----

REPORT ZFLIGHT_01 .

TABLES : SPFLI, SBOOK, SFLIGHT.

*=========================================================================================

*initialization

*========================================================================================

PARAMETERS : P_CITY TYPE SPFLI-CITYFROM.

TYPES : BEGIN OF STR_FLI ,

CITYTO LIKE SPFLI-CITYTO,

CITYFROM LIKE SPFLI-CITYFROM,

CARRID LIKE SPFLI-CARRID ,

CONNID LIKE SPFLI-CONNID,

PLANETYPE LIKE SFLIGHT-PLANETYPE,

FLDATE LIKE SFLIGHT-FLDATE,

SEATSMAX LIKE SFLIGHT-SEATSMAX,

SEATSOCC LIKE SFLIGHT-SEATSOCC,

END OF STR_FLI.

DATA: BEGIN OF PTAB,

BOOKID LIKE SBOOK-BOOKID,

CUSTOMID LIKE SBOOK-CUSTOMID,

ORDER_DATE LIKE SBOOK-ORDER_DATE,

END OF PTAB.

DATA : ITAB TYPE STR_FLI OCCURS 0 WITH HEADER LINE.

DATA: WA TYPE STR_FLI,

SUM1 TYPE C VALUE '0' .

DATA LINE LIKE SY-LILLI.

SELECT A_{CITYTO A}CARRID A_{CONNID A}CITYFROM B_{SEATSMAX B}FLDATE B_{SEATSOCC B}PLANETYPE INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM SPFLI AS A INNER JOIN SFLIGHT AS B ON ( A_{CONNID = B}CONNID )." where cityfrom = p_city.

*SET PF-STATUS 'GRU'.

*SET TITLEBAR 'GRU' .

*=========================================================================================

*LOOP AT ITAB

*=========================================================================================

SORT ITAB BY CITYFROM CARRID CONNID .

LOOP AT ITAB INTO WA.

AT FIRST .

WRITE :/60 ' OUTPUT OF PROGRAM '.

ULINE.

WRITE :/30 'FLDATE' ,44 'SEATSOCC',55 'SEATSMAX',65'PLANETYPE'.

ULINE.

ENDAT.

AT NEW CONNID.

WRITE:/ WA-CITYFROM COLOR COL_KEY.

WRITE :/20 'FLIGHT ID :', WA-CARRID COLOR 5,

/20 'FLIGHT NO:', WA-CONNID COLOR 5.

ENDAT.

WRITE :/30 WA-FLDATE ,WA-SEATSOCC COLOR COL_NORMAL,WA-SEATSMAX COLOR COL_NORMAL,SY-VLINE,WA-PLANETYPE.

**========================================================================================

**DEFINE SUM .

**=========================================================================================

AT end of connid.

sum .

WRITE:/ WA-SEATSOCC COLOR COL_TOTAL UNDER WA-SEATSOCC,

WA-SEATSMAX COLOR COL_TOTAL.

ENDAT.

ENDLOOP.

thanks

Ashish .

Re: simple report run it .

Former Member — Thu, 04 Oct 2007 08:03:58 GMT

TABLES : spfli, sbook, sflight.

*=========================================================================================

*initialization

*========================================================================================

PARAMETERS : p_city TYPE spfli-cityfrom.

TYPES : BEGIN OF str_fli ,

cityto LIKE spfli-cityto,

cityfrom LIKE spfli-cityfrom,

carrid LIKE spfli-carrid ,

connid LIKE spfli-connid,

planetype LIKE sflight-planetype,

fldate LIKE sflight-fldate,

seatsmax LIKE sflight-seatsmax,

seatsocc LIKE sflight-seatsocc,

END OF str_fli.

DATA: BEGIN OF ptab,

bookid LIKE sbook-bookid,

customid LIKE sbook-customid,

order_date LIKE sbook-order_date,

END OF ptab.

DATA : itab TYPE str_fli OCCURS 0 WITH HEADER LINE.

DATA: wa TYPE str_fli,

l_city TYPE spfli-cityfrom,

sum1 TYPE c VALUE '0' .

DATA line LIKE sy-lilli.

SELECT a_{cityto a}carrid a_{connid a}cityfrom b_{seatsmax b}fldate b_{seatsocc b}planetype INTO CORRESPONDING FIELDS OF TABLE itab

FROM spfli AS a INNER JOIN sflight AS b ON ( a_{connid = b}connid )." where cityfrom = p_city.

*SET PF-STATUS 'GRU'.

*SET TITLEBAR 'GRU' .

*=========================================================================================

*LOOP AT ITAB

*=========================================================================================

SORT itab BY cityfrom carrid connid .

LOOP AT itab INTO wa.

AT FIRST .

WRITE :/60 ' OUTPUT OF PROGRAM '.

ULINE.

WRITE :/30 'FLDATE' ,44 'SEATSOCC',55 'SEATSMAX',65'PLANETYPE'.

ULINE.

ENDAT.

*AT NEW CONNID.

IF l_city NE wa-cityfrom.

WRITE:/ wa-cityfrom COLOR COL_KEY.

CLEAR l_city.

l_city = wa-cityfrom.

ENDIF.

WRITE :/20 'FLIGHT ID :', wa-carrid COLOR 5,

/20 'FLIGHT NO:', wa-connid COLOR 5.

*ENDAT.

WRITE :/30 WA-FLDATE ,WA-SEATSOCC COLOR COL_NORMAL,WA-SEATSMAX COLOR COL_NORMAL,SY-VLINE,WA-PLANETYPE.

**========================================================================================

**DEFINE SUM .

**=========================================================================================

AT END OF connid.

SUM .

WRITE:/ wa-seatsocc COLOR COL_TOTAL UNDER wa-seatsocc,

wa-seatsmax COLOR COL_TOTAL.

ENDAT.

ENDLOOP.

Re: simple report run it .

Former Member — Thu, 04 Oct 2007 08:07:39 GMT

Sort your table by cityfrom ascending


loop at itab.
  at new cityfrom.
     write: 'cityfrom:', itab-cityfrom.
  endat.

  write carrid,
  write connid.

  at end of cityfrom.
    sum.
   write sum...
  endat.
endloop.