07-23-2007 8:05 AM
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
07-23-2007 8:08 AM
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
07-23-2007 8:07 AM
Hi,
Check this,
http://help.sap.com/saphelp_nw2004s/helpdata/en/9f/db9dd035c111d1829f0000e829fbfe/content.htm
Reward if useful!
07-23-2007 8:08 AM
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
07-23-2007 8:30 AM