How to convert the output of the report (program) to PDF file , Please HELP

Question

Good Morning, ALL
I have done a small program in ABAP that lets the employee enters his information. Once the emplyee enters the information and executes the program, I want the result to be saved in a PDF file (in any kind of format). I did try to do this action BUT I couldn't. ( ABAP Beginner LOL ).
This is the code ( The main thing ):
SELECTION-SCREEN BEGIN OF BLOCK Yours WITH FRAME TITLE text-001.
PARAMETERS: NAME(15) TYPE C OBLIGATORY lower case,
            CITY LIKE NAME OBLIGATORY ,
            DATE LIKE SY-DATUM DEFAULT SY-DATUM   MODIF ID ZZZ,
            ID# TYPE C LENGTH 9,
            PHONE TYPE C LENGTH 10.
SKIP 4.
SELECTION-SCREEN END OF BLOCK Yours.
SELECTION-SCREEN BEGIN OF BLOCK More WITH FRAME TITLE text-002.
PARAMETERS: MALE RADIOBUTTON GROUP G1 DEFAULT 'X',
            FEMALE RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK More.
SELECTION-SCREEN BEGIN OF BLOCK Details WITH FRAME TITLE text-003.
PARAMETERS: P_DATE TYPE DATUM,
            Locate TYPE C LENGTH 30.
SELECTION-SCREEN END OF BLOCK Details.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF SCREEN-GROUP1 = 'ZZZ'.
      SCREEN-INPUT = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
Any useful help will be appreciated, THANK YOU

Answer 1

Hi
Try the below code.
REPORT ztest_notepad.
"Variables
DATA:
   l_lay         TYPE pri_params-paart,
   l_lines       TYPE pri_params-linct,
   l_cols        TYPE pri_params-linsz,
   l_val         TYPE c,
   l_no_of_bytes TYPE i,
   l_pdf_spoolid LIKE tsp01-rqident,
   l_jobname     LIKE tbtcjob-jobname,
   l_jobcount    LIKE tbtcjob-jobcount,
   spoolno       TYPE tsp01-rqident.
*Types
TYPES:
   t_pripar      TYPE pri_params,
   t_arcpar      TYPE arc_params.
"Work areas
DATA:
   lw_pripar     TYPE t_pripar,
   lw_arcpar     TYPE t_arcpar.
DATA:
   it_t100       TYPE t100  OCCURS 0 WITH HEADER LINE,
   it_pdf        TYPE tline OCCURS 0 WITH HEADER LINE.
"Start-of-selection.
START-OF-SELECTION.
  l_lay   = 'X_65_132'.
  l_lines = 65.
  l_cols  = 132.
  "Read, determine, change spool print parameters and archive parameters
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
    EXPORTING
      in_archive_parameters  = lw_arcpar
      in_parameters          = lw_pripar
      layout                 = l_lay
      line_count             = l_lines
      line_size              = l_cols
      no_dialog              = 'X'
    IMPORTING
      out_archive_parameters = lw_arcpar
      out_parameters         = lw_pripar
      valid                  = l_val
    EXCEPTIONS
      archive_info_not_found = 1
      invalid_print_params   = 2
      invalid_archive_params = 3
      OTHERS                 = 4.
  IF l_val  space AND sy-subrc = 0.
    lw_pripar-prrel = space.
    lw_pripar-primm = space.
    NEW-PAGE PRINT ON
      NEW-SECTION
      PARAMETERS lw_pripar
      ARCHIVE PARAMETERS lw_arcpar
      NO DIALOG.
  ENDIF.
  "Get data
  SELECT *
  FROM t100
  INTO TABLE it_t100
  UP TO 100 ROWS
  WHERE sprsl = sy-langu.
  " Writing to Spool
  LOOP AT it_t100.
    WRITE:/ it_t100.
  ENDLOOP.
  NEW-PAGE PRINT OFF.
  CALL FUNCTION 'ABAP4_COMMIT_WORK'.
  spoolno = sy-spono.
  "Convert spool to PDF
  CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid   = spoolno
      no_dialog     = ' '
    IMPORTING
      pdf_bytecount = l_no_of_bytes
      pdf_spoolid   = l_pdf_spoolid
      btc_jobname   = l_jobname
      btc_jobcount  = l_jobcount
    TABLES
      pdf           = it_pdf.
  "Download PDF file C Drive
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename = 'C:\itab_to_pdf.pdf'
      filetype = 'BIN'
    TABLES
      data_tab = it_pdf
Hope this helps you.