Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Submit a report

Former Member
0 Kudos

I need to call a standard report and get the output from thet report with out changing the screen

I.e. i need to call other report and use the out put form that report in my report how to do this

1 ACCEPTED SOLUTION

Former Member
0 Kudos

Sample code...

*"Table declarations...................................................

TABLES:

SPFLI. " Flight Data

*"Selection Screen Elements............................................

SELECT-OPTIONS:

S_CARRID FOR SPFLI-CARRID. " Carrier ID

*" Data declarations...................................................

"----


  • Work variables *

"----


DATA:

BEGIN OF FS_SPFLI,

CARRID TYPE SPFLI-CARRID, " Carrier ID

CONNID TYPE SPFLI-CONNID, " Flight Connection ID

COUNTRYFR TYPE SPFLI-COUNTRYFR, " Country From

CITYFROM TYPE SPFLI-CITYFROM, " City from

AIRPFROM TYPE SPFLI-AIRPFROM, " Airport from

COUNTRYTO TYPE SPFLI-COUNTRYTO, " Destination

CITYTO TYPE SPFLI-CITYTO, " Cityto

AIRPTO TYPE SPFLI-AIRPTO, " Airport to

FLTIME TYPE SPFLI-FLTIME, " Flight Time

END OF FS_SPFLI.

DATA:

W_CHECKBOX TYPE C. " Checkbox.

"----


  • Internal table to hold Flight data *

"----


DATA:

T_SPFLI LIKE

STANDARD TABLE

OF FS_SPFLI.

"----


  • START-OF-SELECTION EVENT *

"----


START-OF-SELECTION.

PERFORM SPFLI_SELECTION.

"----


  • END-OF-SELECTION EVENT *

"----


END-OF-SELECTION.

SET PF-STATUS 'FLIGHT'.

PERFORM DISPLAY.

"----


  • AT USER COMMAND *

"----


AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'DISPLAY'.

PERFORM SELECTION.

ENDCASE.

&----


*& Form SPFLI_SELECTION

&----


  • Subroutine to select records from SPFLI

----


  • No interface parameters available

----


FORM SPFLI_SELECTION .

SELECT CARRID " Carrier ID

CONNID " Flight Connection ID

COUNTRYFR " Country From

CITYFROM " City From

AIRPFROM " Airport From

COUNTRYTO " Country to

CITYTO " City to

AIRPTO " Airport To

FLTIME " Flight Time

INTO TABLE T_SPFLI

FROM SPFLI

WHERE CARRID IN S_CARRID.

IF SY-SUBRC EQ 0.

ENDIF.

ENDFORM. " SPFLI_SELECTION

&----


*& Form DISPLAY

&----


  • Subroutine to Display the records

----


  • No interface parameters available

----


FORM DISPLAY .

IF SY-SUBRC EQ 0.

LOOP AT T_SPFLI INTO FS_SPFLI.

WRITE:

/ W_CHECKBOX AS CHECKBOX,

FS_SPFLI-CARRID,

FS_SPFLI-CONNID,

FS_SPFLI-COUNTRYFR,

FS_SPFLI-CITYFROM,

FS_SPFLI-AIRPFROM,

FS_SPFLI-COUNTRYTO,

FS_SPFLI-CITYTO,

FS_SPFLI-AIRPTO,

FS_SPFLI-FLTIME.

ENDLOOP.

ELSE.

WRITE: 'No Records Found'(001).

ENDIF.

ENDFORM. " DISPLAY

&----


*& Form SELECTION

&----


  • Subroutine to select data from different table

----


  • No Interface parameters Available

----


FORM SELECTION .

*" Data declarations...................................................

"----


  • Work variables *

"----


DATA:

LW_LINE TYPE I, " Line Count

LW_LNO TYPE I VALUE '3'. " Line Number

DATA:

BEGIN OF LFS_SPFLI,

CARRID LIKE SPFLI-CARRID,

CONNID LIKE SPFLI-CONNID,

END OF LFS_SPFLI.

"----


  • Internal table to hold SPFLI data *

"----


DATA:

LT_SPFLI LIKE

STANDARD TABLE

OF LFS_SPFLI.

DESCRIBE TABLE T_SPFLI LINES LW_LINE.

DO LW_LINE TIMES.

READ LINE LW_LNO FIELD VALUE W_CHECKBOX INTO W_CHECKBOX

FS_SPFLI-CARRID INTO FS_SPFLI-CARRID

FS_SPFLI-CONNID INTO FS_SPFLI-CONNID.

IF SY-SUBRC EQ 0.

IF W_CHECKBOX = 'X'.

LFS_SPFLI-CARRID = FS_SPFLI-CARRID.

LFS_SPFLI-CONNID = FS_SPFLI-CONNID.

APPEND LFS_SPFLI TO LT_SPFLI.

ENDIF.

ENDIF.

ADD 1 TO LW_LNO.

ENDDO. " DO LW_LINE TIMES

EXPORT LT_SPFLI FROM LT_SPFLI TO MEMORY ID 'YH627'.

<b>SUBMIT Y_030501A.</b> " Calling another report

ENDFORM. " SELECTION

Regards,

Pavan

3 REPLIES 3

Former Member

Former Member
0 Kudos

Sample code...

*"Table declarations...................................................

TABLES:

SPFLI. " Flight Data

*"Selection Screen Elements............................................

SELECT-OPTIONS:

S_CARRID FOR SPFLI-CARRID. " Carrier ID

*" Data declarations...................................................

"----


  • Work variables *

"----


DATA:

BEGIN OF FS_SPFLI,

CARRID TYPE SPFLI-CARRID, " Carrier ID

CONNID TYPE SPFLI-CONNID, " Flight Connection ID

COUNTRYFR TYPE SPFLI-COUNTRYFR, " Country From

CITYFROM TYPE SPFLI-CITYFROM, " City from

AIRPFROM TYPE SPFLI-AIRPFROM, " Airport from

COUNTRYTO TYPE SPFLI-COUNTRYTO, " Destination

CITYTO TYPE SPFLI-CITYTO, " Cityto

AIRPTO TYPE SPFLI-AIRPTO, " Airport to

FLTIME TYPE SPFLI-FLTIME, " Flight Time

END OF FS_SPFLI.

DATA:

W_CHECKBOX TYPE C. " Checkbox.

"----


  • Internal table to hold Flight data *

"----


DATA:

T_SPFLI LIKE

STANDARD TABLE

OF FS_SPFLI.

"----


  • START-OF-SELECTION EVENT *

"----


START-OF-SELECTION.

PERFORM SPFLI_SELECTION.

"----


  • END-OF-SELECTION EVENT *

"----


END-OF-SELECTION.

SET PF-STATUS 'FLIGHT'.

PERFORM DISPLAY.

"----


  • AT USER COMMAND *

"----


AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'DISPLAY'.

PERFORM SELECTION.

ENDCASE.

&----


*& Form SPFLI_SELECTION

&----


  • Subroutine to select records from SPFLI

----


  • No interface parameters available

----


FORM SPFLI_SELECTION .

SELECT CARRID " Carrier ID

CONNID " Flight Connection ID

COUNTRYFR " Country From

CITYFROM " City From

AIRPFROM " Airport From

COUNTRYTO " Country to

CITYTO " City to

AIRPTO " Airport To

FLTIME " Flight Time

INTO TABLE T_SPFLI

FROM SPFLI

WHERE CARRID IN S_CARRID.

IF SY-SUBRC EQ 0.

ENDIF.

ENDFORM. " SPFLI_SELECTION

&----


*& Form DISPLAY

&----


  • Subroutine to Display the records

----


  • No interface parameters available

----


FORM DISPLAY .

IF SY-SUBRC EQ 0.

LOOP AT T_SPFLI INTO FS_SPFLI.

WRITE:

/ W_CHECKBOX AS CHECKBOX,

FS_SPFLI-CARRID,

FS_SPFLI-CONNID,

FS_SPFLI-COUNTRYFR,

FS_SPFLI-CITYFROM,

FS_SPFLI-AIRPFROM,

FS_SPFLI-COUNTRYTO,

FS_SPFLI-CITYTO,

FS_SPFLI-AIRPTO,

FS_SPFLI-FLTIME.

ENDLOOP.

ELSE.

WRITE: 'No Records Found'(001).

ENDIF.

ENDFORM. " DISPLAY

&----


*& Form SELECTION

&----


  • Subroutine to select data from different table

----


  • No Interface parameters Available

----


FORM SELECTION .

*" Data declarations...................................................

"----


  • Work variables *

"----


DATA:

LW_LINE TYPE I, " Line Count

LW_LNO TYPE I VALUE '3'. " Line Number

DATA:

BEGIN OF LFS_SPFLI,

CARRID LIKE SPFLI-CARRID,

CONNID LIKE SPFLI-CONNID,

END OF LFS_SPFLI.

"----


  • Internal table to hold SPFLI data *

"----


DATA:

LT_SPFLI LIKE

STANDARD TABLE

OF LFS_SPFLI.

DESCRIBE TABLE T_SPFLI LINES LW_LINE.

DO LW_LINE TIMES.

READ LINE LW_LNO FIELD VALUE W_CHECKBOX INTO W_CHECKBOX

FS_SPFLI-CARRID INTO FS_SPFLI-CARRID

FS_SPFLI-CONNID INTO FS_SPFLI-CONNID.

IF SY-SUBRC EQ 0.

IF W_CHECKBOX = 'X'.

LFS_SPFLI-CARRID = FS_SPFLI-CARRID.

LFS_SPFLI-CONNID = FS_SPFLI-CONNID.

APPEND LFS_SPFLI TO LT_SPFLI.

ENDIF.

ENDIF.

ADD 1 TO LW_LNO.

ENDDO. " DO LW_LINE TIMES

EXPORT LT_SPFLI FROM LT_SPFLI TO MEMORY ID 'YH627'.

<b>SUBMIT Y_030501A.</b> " Calling another report

ENDFORM. " SELECTION

Regards,

Pavan

Former Member
0 Kudos

ThankX for your answeres