Dear Sravani,
You have to create custom GUI status and Submit the ALV report in background, store output in spool and generate PDF.
You can create GUI status in two ways.
- Double click on 'MENU' in from FORM_MENU
- Go to SE41 and create
In our program we will create using first one. Double click on MENU and click on YES.
Provide short text and enter.
Save, activate and go back (F3) to program.
Execute the program, you will find toolbar as below.
Step3: Submit the program, store output in spool and generate PDF.
Implement the logic to submit the program and download data into PDF. The below code has lot of steps, please try to understand based on comments provided.
**for to handle user command
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN 'EPDF'. "Function code for export which we created in MENU
**submit the same program in background and store
TYPES: BEGIN OF TY_TSP01,
RQIDENT TYPE TSP01-RQIDENT, " spool number
RQ2NAME TYPE TSP01-RQ2NAME, " Spool request: Suffix 2
RQCRETIME TYPE TSP01-RQCRETIME, " User name
END OF TY_TSP01.
DATA: LV_JOBCNT TYPE TBTCJOB-JOBCOUNT, " job number
LV_JOBNAME TYPE TBTCJOB-JOBNAME. " job name
DATA: LV_LEN TYPE I,
LS_PARAM TYPE RSPARAMS, " selection work area
LS_TSP01 TYPE TY_TSP01, " Spool Requests work area
LT_TSP01 TYPE STANDARD TABLE OF TY_TSP01, " Spool Requests internal table
LT_PARAM TYPE RSPARAMS_TT. " Selection table
* ********* Derive job counter
LV_JOBNAME = 'ZALV2PDF'. "Background job name
CALL FUNCTION 'JOB_OPEN' "open a job
EXPORTING
JOBNAME = LV_JOBNAME
IMPORTING
JOBCOUNT = LV_JOBCNT
EXCEPTIONS
CANT_CREATE_JOB = 1
INVALID_JOB_DATA = 2
JOBNAME_MISSING = 3
OTHERS = 4.
IF SY-SUBRC EQ 0.
DATA : LV_RQDEST TYPE TSP01-RQDEST VALUE 'LP01',
LV_LINSZ TYPE SYLINSZ VALUE '9999999'.
SUBMIT (SY-REPID) "submit the same program
WITH P_MTART = P_MTART
TO SAP-SPOOL DESTINATION LV_RQDEST
LINE-SIZE LV_LINSZ
IMMEDIATELY 'X'
KEEP IN SPOOL 'X'
USER SY-UNAME VIA JOB LV_JOBNAME NUMBER LV_JOBCNT
WITHOUT SPOOL DYNPRO
WITH SELECTION-TABLE LT_PARAM
AND RETURN.
CALL FUNCTION 'JOB_CLOSE' "job close
EXPORTING
JOBCOUNT = LV_JOBCNT
JOBNAME = LV_JOBNAME
STRTIMMED = 'X'
EXCEPTIONS
CANT_START_IMMEDIATE = 1
INVALID_STARTDATE = 2
JOBNAME_MISSING = 3
JOB_CLOSE_FAILED = 4
JOB_NOSTEPS = 5
JOB_NOTEX = 6
LOCK_FAILED = 7
INVALID_TARGET = 8
OTHERS = 9.
IF SY-SUBRC <> 0.
RAISE JOB_CANNOT_BE_CLOSED. " Raise exception
ENDIF.
ELSE.
RAISE JOB_CANNOT_BE_SUBMITTED.
ENDIF.
*********** confirm job status if finished
DATA: LV_JOB TYPE TBTCV-FIN. " Job status
DO 120 TIMES.
CALL FUNCTION 'BDL_READ_JOB_STATUS' "get job status
EXPORTING
JOBNAME = LV_JOBNAME
JOBNUMBER = LV_JOBCNT
IMPORTING
JOBSTATUS = LV_JOB
EXCEPTIONS
JOB_NOT_FOUND = 1
OTHERS = 2.
IF LV_JOB NE 'F'. "job finished
WAIT UP TO 1 SECONDS.
CONTINUE.
ELSE.
EXIT.
ENDIF.
ENDDO.
**calculate report name in Spool table
DATA: LV_RQ2NAME TYPE TSP01-RQ2NAME. " Spool request
DATA: LV_TMP(14) TYPE C, " temp
LV_STRING TYPE STRING, " store program name
LV_TEMP TYPE TSP01-RQ2NAME, " Spool request
LV_SPOOL TYPE TSP01-RQIDENT. " spool number
IF LV_JOB EQ 'F'. "job finished
LV_LEN = STRLEN( SY-REPID ) .
IF LV_LEN >= 9 .
CONCATENATE SY-REPID+0(9)
SY-UNAME+0(3) INTO LV_RQ2NAME .
ELSE.
LV_LEN = 9 - LV_LEN.
DO LV_LEN TIMES .
CONCATENATE LV_TEMP '_' INTO LV_TEMP .
ENDDO.
CONCATENATE SY-REPID LV_TEMP
SY-UNAME INTO LV_RQ2NAME .
ENDIF.
*Get spool request from SPOOL table TSP01
SELECT RQIDENT RQ2NAME RQCRETIME FROM TSP01 INTO TABLE LT_TSP01
WHERE RQ2NAME = LV_RQ2NAME AND RQOWNER = SY-UNAME .
*sort table to find latest spool no
SORT LT_TSP01 BY RQCRETIME DESCENDING .
*read table to find latest spool no
READ TABLE LT_TSP01 INTO LS_TSP01 INDEX 1.
*get user desktop
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DESKTOP_DIRECTORY
CHANGING
DESKTOP_DIRECTORY = LV_STRING
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
CALL METHOD CL_GUI_CFW=>UPDATE_VIEW.
CONCATENATE LV_STRING TEXT-001 INTO LV_STRING.
*Prepare selection table for PDF download
LS_PARAM-SELNAME = 'SPOOLNO'.
LS_PARAM-SIGN = 'I'.
LS_PARAM-OPTION = 'EQ'.
LS_PARAM-LOW = LS_TSP01-RQIDENT.
LS_PARAM-HIGH = ''.
APPEND LS_PARAM TO LT_PARAM.
LS_PARAM-SELNAME = 'P_FILE'.
LS_PARAM-SIGN = 'I'.
LS_PARAM-OPTION = 'EQ'.
LS_PARAM-LOW = LV_STRING.
LS_PARAM-HIGH = ''.
APPEND LS_PARAM TO LT_PARAM.
* Submit to PDF converted and download
SUBMIT RSTXPDFT4 WITH SELECTION-TABLE LT_PARAM
AND RETURN.
IF SY-SUBRC <> 0.
RAISE PDF_DOWN_NOT_POSSIBLE. " Raise exception
ENDIF.
ELSE.
MESSAGE 'PDF Can not be downloaded, you have selected huge data. Reduce data and try again' TYPE 'I'.
ENDIF.
ENDCASE.
ENDFORM. "user command
Here is the whole scenario.
Many Thanks / Himanshu Gupta