Generate PDF from ABAP report

Description: This program will generate the PDF form from ABAP List Output. 

I have used the format X_90_120 for generating PDF form from List Output. 

You can do this setting by changing the properties of printer after 

clicking the PDF generation button in the List output.* Author: Nagaraj Kalbavi&---------------------------------------------------------------------*& Report  Z_CREATE_PDF_ABAPLIST&---------------------------------------------------------------------*& Description: Simple Program to generate PDF from ABAP List Output&---------------------------------------------------------------------REPORT  Z_CREATE_PDF_ABAPLIST NO STANDARD PAGE HEADING.    * PF-status containing a PDF button in the report Output to generate    * PDF formSET PF-STATUS 'Z_PDF'.----------------------------------------------------------------------*Table Declarations----------------------------------------------------------------------TABLES: MARA, MARC, MAKT.---------------------------------------------------------------------    * Internal Table Declarations----------------------------------------------------------------------DATA: BEGIN OF TS_MARA OCCURS 0,         MATNR LIKE MARA-MATNR,         MTART LIKE MARA-MTART,         MATKL LIKE MARA-MATKL,         LVORM LIKE MARA-LVORM,         WERKS LIKE MARC-WERKS,         MAKTX LIKE MAKT-MAKTX,       END   OF TS_MARA.----------------------------------------------------------------------    * Selection Screen Parameters----------------------------------------------------------------------SELECTION-SCREEN BEGIN OF BLOCK B1.  SELECT-OPTIONS: S_MATNR FOR MARA-MATNR OBLIGATORY,                  S_WERKS FOR MARC-WERKS OBLIGATORY.SELECTION-SCREEN END OF BLOCK B1.----------------------------------------------------------------------TOP-OF-PAGE.----------------------------------------------------------------------write: 40 'Generating PDF from List Output' color 1 intensified on.  skip 1.  write: /1 'Date        :',  SY-DATUM,         /1 'User ID     :',  SY-UNAME,         /1(112) SY-ULINE.----------------------------------------------------------------------START-OF-SELECTION.----------------------------------------------------------------------    * Perform for Basic SelectionPERFORM GET_MARA.    * Perform to Display DataPERFORM DISPLAY_MARA.----------------------------------------------------------------------------------AT USER-COMMAND.----------------------------------------------------------------------------------    * User Command to generate PDF Form  AT USER-COMMAND.  CASE SY-UCOMM.    WHEN 'PDF'.    DATA: L_PARAMS TYPE PRI_PARAMS,            L_VALID TYPE STRING,            W_SPOOL_NR LIKE TSP01-RQIDENT.    * TO GET PRINT PARAMETERS      CALL FUNCTION 'GET_PRINT_PARAMETERS'        IMPORTING          OUT_PARAMETERS = L_PARAMS          VALID          = L_VALID.      IF SY-SUBRC <> 0.      ENDIF.    * Internal table for Selection ScreenDATA: BEGIN OF I_RSPARAMS OCCURS 0.       INCLUDE STRUCTURE RSPARAMS.DATA: END OF I_RSPARAMS.    * Store the current selection screen detailsCALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'  EXPORTING    CURR_REPORT           = SY-REPID    * IMPORTING*   SP                    =  TABLES    SELECTION_TABLE       = I_RSPARAMS    * EXCEPTIONS*   NOT_FOUND             = 1*   NO_REPORT             = 2*   OTHERS                = 3          .IF SY-SUBRC <> 0.    * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.    * SUBMIT TO GET THE SPOOL NUMBERSUBMIT Z_CREATE_PDF_ABAPLIST WITH SELECTION-TABLE I_RSPARAMS                             TO SAP-SPOOL                             SPOOL PARAMETERS L_PARAMS                             WITHOUT SPOOL DYNPRO                             AND RETURN.    * SELECT THE RECENTLY CREATED SPOOL      SELECT MAX( RQIDENT ) INTO W_SPOOL_NR FROM TSP01                                 WHERE RQCLIENT = SY-MANDT                                 AND   RQOWNER  = SY-UNAME.*REPORT TO GENERATE SPOOL NUMBER FOR PDF CONVERT      SUBMIT RSTXPDF5 WITH SPOOLNO  = W_SPOOL_NR                      WITH DSTDEVIC = 'LOCL' AND RETURN .      IF SY-SUBRC EQ 0.        CLEAR W_SPOOL_NR.    * SELECT THE RECENTLY CREATED SPOOL FOR PDF        SELECT MAX( RQIDENT ) INTO W_SPOOL_NR FROM TSP01                                   WHERE RQCLIENT = SY-MANDT                                   AND   RQOWNER  = SY-UNAME.*REPORT TO DOWNLOAD PDF SPOOL TO GUI        SUBMIT RSTXPDFT5 WITH SPOOLID = W_SPOOL_NR                         AND RETURN.      ENDIF.  ENDCASE.&---------------------------------------------------------------------*&      Form  GET_MARA&---------------------------------------------------------------------*       text----------------------------------------------------------------------*  -->  p1        text*  <--  p2        text----------------------------------------------------------------------FORM GET_MARA .CLEAR  : TS_MARA.REFRESH: TS_MARA.    * To select Materials based on Selection CriteriaSELECT A~MATNR A~MTART A~MATKL A~LVORM B~WERKS INTO CORRESPONDING                           FIELDS OF TABLE TS_MARA FROM MARA AS A                           INNER JOIN MARC AS B ON A~MATNR EQ B~MATNR                           WHERE A~MATNR IN S_MATNR                           AND   B~WERKS IN S_WERKS.LOOP AT TS_MARA.   SELECT SINGLE * FROM MAKT WHERE MATNR EQ TS_MARA-MATNR                             AND   SPRAS EQ SY-LANGU.   MOVE MAKT-MAKTX TO TS_MARA-MAKTX.   MODIFY TS_MARA INDEX SY-TABIX.ENDLOOP.ENDFORM.                    " GET_MARA&---------------------------------------------------------------------*&      Form  DISPLAY_MARA&---------------------------------------------------------------------*       text----------------------------------------------------------------------*  -->  p1        text*  <--  p2        text----------------------------------------------------------------------FORM DISPLAY_MARA .CLEAR  : TS_MARA.WRITE: /1   '|', 2(18)  'Material Number' COLOR 7,         21  '|', 22(5)  'Plant          ' COLOR 7,         28  '|', 29(13) 'Material Type  ' COLOR 7,         42  '|', 43(14) 'Material Group ' COLOR 7,         57  '|', 58(13) 'Deletion Flag  ' COLOR 7,         71  '|', 72(40) 'Description    ' COLOR 7,         112 '|'.WRITE: /1(112) SY-ULINE.LOOP AT TS_MARA.  WRITE: /1   '|', 2(18)   TS_MARA-MATNR,          21  '|', 22(5)   TS_MARA-WERKS,          28  '|', 29(13)  TS_MARA-MTART,          42  '|', 43(14)  TS_MARA-MATKL,          57  '|', 58(13)  TS_MARA-LVORM,          71  '|', 72(40)  TS_MARA-MAKTX,          112 '|'.WRITE: /1(112) SY-ULINE.ENDLOOP.ENDFORM.                    " DISPLAY_MARA