Urgent could u plz clear my doubut

Question

While copying the code for Z_CREATE_PDF program (which is getting submit from main program ZSDL_393_REASON_CODE_REPORT, we have noticed some issue:
There are 2 Function Modules 'Z_CONVERT_ABAPSPOOLJOB_2_PDF' and 'Z_CONVERT_OTFSPOOLJOB_2_PDF' being called from Z_CREATE_PDF program, which are not yet copied to RD2 server. When I checked in PF server, there is Custom Function Group ZSMS developed under which these function modules are created.
There are many other Function Modules, screens and includes under this Function Group.
Please advise whether we need to copy all the objects under this Function Group in RD2 as well, or some other work around is possible. Please note that this part is related to just the PDF File Creation on selection screen of main program.
TABLES:
  bkpf,
  bseg.
DATA: "Internal tables
  BEGIN OF x_bkpf,
    bukrs LIKE bkpf-bukrs, "Company Code
    belnr LIKE bkpf-belnr, "Document Number
    gjahr LIKE bkpf-gjahr, "Fiscal Year
    budat LIKE bkpf-budat, "Posting Date
    xblnr LIKE bkpf-xblnr, "Reference           "PG01+
    blart LIKE bkpf-blart, "Document Type       "DB05+
  END OF x_bkpf,
  t_bkpf LIKE HASHED TABLE OF x_bkpf
    WITH UNIQUE KEY bukrs belnr gjahr
    WITH HEADER LINE,
  BEGIN OF t_bseg OCCURS 0,
    bukrs LIKE bseg-bukrs, "Company Code
    belnr LIKE bseg-belnr, "Document Number
    gjahr LIKE bseg-gjahr, "Fiscal Year
    shkzg LIKE bseg-shkzg, "Debit/Credit indicator
    wrbtr LIKE bseg-wrbtr, "Amount in doc currency
    sgtxt LIKE bseg-sgtxt, "Reason Desc
    hkont LIKE bseg-hkont, "G/L Account
    kunnr LIKE bseg-kunnr, "Customer number
    rstgr LIKE bseg-rstgr, "Reason Code
    prctr LIKE bseg-prctr, "Business Unit (SBU)
    xref1 LIKE bseg-xref1, "Ref Key 1           "PG01+
   zloc LIKE bseg-zloc,   "Location
   zexp LIKE bseg-zexp,   "Expense
   zdtl LIKE bseg-zdtl,   "Detail
  END OF t_bseg,
Table of customer records from bseg (1 for each in T_BSEG)
  BEGIN OF t_kunnr OCCURS 0,
    bukrs LIKE bseg-bukrs, "Company Code
    belnr LIKE bseg-belnr, "Document Number
    gjahr LIKE bseg-gjahr, "Fiscal Year
    kunnr LIKE bseg-kunnr, "Customer number
  END OF t_kunnr,
  BEGIN OF t_rstgr_sum OCCURS 0,
    rstgr LIKE bseg-rstgr, "Reason Code
    sgtxt LIKE bseg-sgtxt, "Reason Desc
    wrbtr LIKE bseg-wrbtr, "Sum for a Reason Code
  END OF t_rstgr_sum,
  BEGIN OF t_hkont_sum OCCURS 0,
    hkont LIKE bseg-hkont, "GL Account
    wrbtr LIKE bseg-wrbtr, "Sum for a GL Account
  END OF t_hkont_sum.
DATA: "Standalone work fields
  sum_wrbtr LIKE bseg-wrbtr,
  grand_wrbtr LIKE bseg-wrbtr,
  save_rstgr LIKE t_bseg-rstgr,
  save_sgtxt LIKE t_bseg-sgtxt,                             "PG02+
  save_hkont LIKE t_bseg-hkont,
  first_reason TYPE c,
  first_glacct TYPE c,
  detail_section TYPE c,
  amount_out LIKE t_bseg-wrbtr,
  l_rstgr LIKE t053r-rstgr.
Start of RC03
DATA:
valid  TYPE c,
params LIKE pri_params,
job_released LIKE btch0000-char1,
job_name LIKE tbtcjob-jobname,
job_count LIKE tbtcjob-jobcount.
DATA:
BEGIN OF t_kna1 OCCURS 0,
   kunnr LIKE kna1-kunnr,
   knrza LIKE kna1-knrza,
END OF t_kna1.
DATA:
s_monat1    LIKE bkpf-monat,
s_monat2    LIKE bkpf-monat,
s_monat3    LIKE bkpf-monat,
s_monat4    LIKE bkpf-monat,
s_monat5    LIKE bkpf-monat,
s_monat6    LIKE bkpf-monat,
s_monat7    LIKE bkpf-monat,
s_monat8    LIKE bkpf-monat,
s_monat9    LIKE bkpf-monat,
s_monat10   LIKE bkpf-monat,
s_monat11   LIKE bkpf-monat,
s_monat12   LIKE bkpf-monat,
s_monatlow  LIKE bkpf-monat,                               "DB05+
s_monathigh LIKE bkpf-monat.                               "DB05+
End of RC03
CONSTANTS:
  c_company_code(4) VALUE 'PF01'.
RANGES:
  r_rstgr FOR bseg-rstgr.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_gjahr LIKE bkpf-gjahr OBLIGATORY.
SELECT-OPTIONS: s_monat FOR bkpf-monat  OBLIGATORY,     "RC03+   "DB05+
                s_blart FOR bkpf-blart  OBLIGATORY,         "DB05+
                s_budat FOR bkpf-budat.                     "PG01+
SELECT-OPTIONS: s_hkont FOR bseg-hkont,
                s_rstgr FOR bseg-rstgr.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-026.
PARAMETERS: p_pdf AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b2.
*Start of RC03
PARAMETERS:
backgr(1) TYPE c DEFAULT 'X' MODIF ID dsp,
process(1) TYPE c MODIF ID dsp.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-group1 = 'DSP'.
      screen-active = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
*End of RC03
Print page headers *
TOP-OF-PAGE.
  PERFORM page_header.
START-OF-SELECTION.
Start Processing
  IF process = 'X'.
    PERFORM main.
  ENDIF.
Submit background job
  IF backgr = 'X'.
    job_name = 'Reason Code Report'.
    MESSAGE s000 WITH 'Background job has been submitted.'.
    PERFORM background.
  ENDIF.
PDF creation
  IF p_pdf = 'X'.                                           "RC04
    SUBMIT zsdl_393_create_pdf
    VIA SELECTION-SCREEN AND RETURN.                        "RC04
  ENDIF.                                                    "RC04
FORM main.
Load Data into internal tables *
*SELECT bukrs belnr gjahr budat FROM bkpf "PG01-
*SELECT bukrs belnr gjahr budat xblnr FROM bkpf "PG01+    "DB05-
  SELECT bukrs belnr gjahr blart budat xblnr FROM bkpf      "DB05+
    INTO CORRESPONDING FIELDS OF TABLE t_bkpf
    WHERE gjahr = p_gjahr "Fiscal Year
     AND monat = p_monat  "Posting Period               "RC03-
       AND monat IN s_monat  "Posting Period              "RC03+
       AND blart IN s_blart  "Document Type               "DB05+
       AND budat IN s_budat. "Posting Date                "PG01+
*AND (blart = 'AB' OR blart = 'DZ' OR blart = 'ZO' ).     "DB05-
  IF NOT t_bkpf[] IS INITIAL.
If the user selected specific Reason Codes, use that range...
Otherwise, create a range of valid Reason Codes from table T053R.
    IF s_rstgr IS INITIAL.
   READ TABLE t_bkpf INDEX 1. "Get first record for company code
      SELECT rstgr FROM t053r
        INTO l_rstgr
        WHERE bukrs = c_company_code.
        r_rstgr-sign = 'I'.          "Include
        r_rstgr-option = 'EQ'.       "where values equal
        r_rstgr-low = l_rstgr.       "comparison field
        APPEND r_rstgr.
      ENDSELECT.
    ELSE.
      r_rstgr[] = s_rstgr[].
    ENDIF.
*--- This section removed b/c of TDS review
SELECT bukrs belnr shkzg wrbtr sgtxt hkont
        kunnr rstgr prctr  zloc zexp zdtl
   FROM bseg
   INTO CORRESPONDING FIELDS OF t_bseg
   FOR ALL ENTRIES IN t_bkpf
   WHERE bukrs = t_bkpf-bukrs "Company code
   AND   belnr = t_bkpf-belnr "Doc#
   AND   hkont IN s_hkont     "Account# range
   AND   rstgr IN r_rstgr.    "Reason Code range
    Override blank Customer number in table from BSEG record.
     SELECT SINGLE kunnr FROM bseg
                 INTO t_bseg-kunnr
                 WHERE bukrs = t_bkpf-bukrs
                   AND belnr = t_bkpf-belnr
                   AND gjahr = t_bkpf-gjahr
                   AND koart = 'D'.
     if sy-subrc > 0.
       t_bseg-kunnr = ' '.
     endif.
   APPEND t_bseg.
ENDSELECT.
*--- End of TDS review removal
*--- This is the new section added b/c of the TDS review
    SELECT bukrs belnr gjahr shkzg wrbtr sgtxt hkont
         kunnr rstgr prctr  zloc zexp zdtl                "PG01-
           kunnr rstgr prctr xref1 "zloc zexp zdtl           "PG01+
           FROM bseg
      INTO CORRESPONDING FIELDS OF TABLE t_bseg
      FOR ALL ENTRIES IN t_bkpf
      WHERE bukrs = t_bkpf-bukrs "Company code
      AND   belnr = t_bkpf-belnr "Doc#
      AND   hkont IN s_hkont     "Account# range
      AND   rstgr IN r_rstgr.    "Reason Code range
Retrieve records from BSEG which have the Customer number
    SELECT bukrs belnr gjahr kunnr FROM bseg
                INTO CORRESPONDING FIELDS OF TABLE t_kunnr
                FOR ALL ENTRIES IN t_bkpf
                WHERE bukrs = t_bkpf-bukrs
                  AND belnr = t_bkpf-belnr
                  AND gjahr = t_bkpf-gjahr
                  AND koart = 'D'.
*--- End of TDS review addition
*->Start of RC03
    SELECT kunnr
           knrza
           FROM kna1
           INTO TABLE t_kna1
           FOR ALL ENTRIES IN t_kunnr
           WHERE kunnr = t_kunnr-kunnr.
    SORT t_kna1 BY kunnr.
*->End of RC03
  ENDIF. "t_bkpf has records in it
MAINLINE - Write Report Details *
  detail_section = 'Y'. "Write column headers
  NEW-PAGE.
  CLEAR sum_wrbtr.
  SORT t_bkpf BY bukrs belnr.
MAINLINE - LOOP THROUGH INTERNAL TABLE & PROCESS REPORT.
  SORT t_bseg BY rstgr belnr.
  LOOP AT t_bseg.
    ON CHANGE OF t_bseg-rstgr.
      IF sy-tabix <> 1. "If not first time
        PERFORM write_detail_subtotal.
      ENDIF.
      CLEAR sum_wrbtr. "Clear sum for next reason code.
      save_rstgr = t_bseg-rstgr.
      save_sgtxt = t_bseg-sgtxt.                            "PG02+
    ENDON.
Set amount field, add to sum, and print detail line.
    amount_out = t_bseg-wrbtr.
    IF t_bseg-shkzg = 'H'.
      MULTIPLY amount_out BY -1.
    ENDIF.
    sum_wrbtr = sum_wrbtr + amount_out.
    PERFORM write_detail_line.
Add amount to GL Account total internal table
    CLEAR t_hkont_sum-hkont.
    CLEAR t_hkont_sum-wrbtr.
    READ TABLE t_hkont_sum WITH KEY hkont = t_bseg-hkont.
    t_hkont_sum-wrbtr = t_hkont_sum-wrbtr + amount_out.
    IF sy-subrc = 0. "GL Account already found.
      MODIFY t_hkont_sum INDEX sy-tabix. "Modify existing itab record
    ELSE.
      t_hkont_sum-hkont = t_bseg-hkont.  "Set Account# itab key field
      APPEND t_hkont_sum.
    ENDIF.
    AT LAST.
      PERFORM write_detail_subtotal.
    ENDAT.
  ENDLOOP.
  FREE t_bkpf.
  FREE t_bseg.
  detail_section = 'N'. "Suppress column headers
  PERFORM write_summary. "Print Summary page by Reason & GL Account
ENDFORM.                    " main
*&      Form  page_header
      text
-->  p1        text
<--  p2        text
FORM page_header.
Start of RC03
  LOOP AT s_monat.
    CASE sy-tabix.
      WHEN 1.
        s_monat1    = s_monat-low.
        s_monatlow  = s_monat-low.                          "DB05+
        s_monathigh = s_monat-high.                         "DB05+
      WHEN 2.
        s_monat2 = s_monat-low.
      WHEN 3.
        s_monat3 = s_monat-low.
      WHEN 4.
        s_monat4 = s_monat-low.
      WHEN 5.
        s_monat5 = s_monat-low.
      WHEN 6.
        s_monat6 = s_monat-low.
      WHEN 7.
        s_monat7 = s_monat-low.
      WHEN 8.
        s_monat8 = s_monat-low.
      WHEN 9.
        s_monat9 = s_monat-low.
      WHEN 10.
        s_monat10 = s_monat-low.
      WHEN 11.
        s_monat11 = s_monat-low.
      WHEN 12.
        s_monat12 = s_monat-low.
    ENDCASE.
  ENDLOOP.
End of RC03
  CALL FUNCTION 'Z_STANDARD_REPORT_HEADER'
    EXPORTING
      report_name  = sy-cprog
      report_width = sy-linsz
      report_title = 'Reason Code Summary'.
  SKIP.
Print selected Fiscal Year
  WRITE AT: /51  text-002,
             66  p_gjahr.
Print selected Fiscal Period
  WRITE AT: /51  text-003.                                  "DB05
           66  p_monat.                                   "RC03-
Start of RC03
  IF s_monathigh = 0.                                       "DB05+
    WRITE AT:  66  s_monat1    NO-ZERO,
               69  s_monat2    NO-ZERO,
               72  s_monat3    NO-ZERO,
               75  s_monat4    NO-ZERO,
               78  s_monat5    NO-ZERO,
               81  s_monat6    NO-ZERO,
              /66  s_monat7    NO-ZERO,
               69  s_monat8    NO-ZERO,
               72  s_monat9    NO-ZERO,
               75  s_monat10   NO-ZERO,
               78  s_monat11   NO-ZERO,
               81  s_monat12   NO-ZERO.
  ELSE.                                                     "DB05+
    WRITE AT:  66  s_monatlow  NO-ZERO,                     "DB05+
               69  '-',                                     "DB05+
               71  s_monathigh NO-ZERO,                     "DB05+
               74  s_monat2    NO-ZERO,                     "DB05+
               77  s_monat3    NO-ZERO,                     "DB05+
               80  s_monat4    NO-ZERO,                     "DB05+
               83  s_monat5    NO-ZERO,                     "DB05+
              /66  s_monat6    NO-ZERO,                     "DB05+
               69  s_monat7    NO-ZERO,                     "DB05+
               72  s_monat8    NO-ZERO,                     "DB05+
               75  s_monat9    NO-ZERO,                     "DB05+
               78  s_monat10   NO-ZERO,                     "DB05+
               81  s_monat11   NO-ZERO,                     "DB05+
               84  s_monat12   NO-ZERO.                     "DB05+
  ENDIF.                                                    "DB05+
*End of RC03
Print selected Posting Date range
  WRITE AT: /51  text-022.                                  "PG01+
  IF s_budat IS INITIAL.                                    "PG01+
    WRITE AT:  66  'All'.                                   "PG01+
  ELSE.                                                     "PG01+
    WRITE AT:  66  s_budat-low,                             "PG01+
               77  '-',                                     "PG01+
               79  s_budat-high.                            "PG01+
  ENDIF.                                                    "PG01+
  SKIP.
  SKIP.
If we are in the detail section of the report, print column headers.
  IF detail_section = 'Y'.
    WRITE AT: /21 text-004,
               34 t_bseg-rstgr,
               39 text-005,
               52 t_bseg-sgtxt.
    SKIP.
    WRITE AT: /1 text-006, "Doc Number"
            13 text-007, "Business Unit"            "DB05-
            28 text-008, "Location"                 "DB05-
            38 text-009, "Account"                  "DB05-
            50 text-010, "Expense"                  "DB05-
            59 text-011, "Detail"                   "DB05-
            69 text-012, "Customer"                 "DB05-
            81 text-025, "Alt Payer                 "DB05-
            93 text-023, "Reference      "PG01+     "DB05-
           111 text-024, "Ref Key 1      "PG01+     "DB05-
            81 text-013, "Amount"        "PG01-     "DB05-
            99 text-014. "Posting Date"  "PG01-     "DB05-
           125 text-013, "Amount"        "PG01+     "DB05-
           143 text-014. "Posting Date"  "PG01+     "DB05-
              13 text-027, "Doc Type"                 "DB05+
              23 text-007, "Business Unit"            "DB05+
              38 text-008, "Loc"                      "DB05+
              44 text-009, "Account"                  "DB05+
              56 text-010, "Exp"                      "DB05+
              61 text-011, "Detail"                   "DB05+
              71 text-012, "Customer"                 "DB05+
              83 text-025, "Alt Payer                 "DB05+
              95 text-023, "Reference          "PG01+ "DB05+
             113 text-024, "Ref Key 1          "PG01+ "DB05+
             127 text-013, "Amount"            "PG01+ "DB05+
             145 text-014. "Posting Date"      "PG01+ "DB05+
    WRITE AT: /1 '----
',       "Underline Doc Number
          13 '-------------',      "Underline Business Unit   "DB05-
          28 '--------',           "Underline Location        "DB05-
          38 '----------',         "Underline Account         "DB05-
          50 '-------',            "Underline Expense         "DB05-
          59 '--------',           "Underline Detail          "DB05-
          69 '----------',         "Underline Customer        "DB05-
          81 '----------',         "Underline Alternate payer "DB05-
          93 '----------------',   "Underline Reference       "DB05-
         111 '------------',       "Underline Ref Key 1       "DB05-
         125 '----------------',   "Underline Amount          "DB05-
         143 '------------'.       "Underline Posting Date    "DB05-
            13 '----
',           "Underline Doc Type        "DB05+
            23 '----
',      "Underline Business Unit   "DB05+
            38 '----',               "Underline Loc             "DB05+
            44 '----
',         "Underline Account         "DB05+
            56 '---',                "Underline Exp             "DB05+
            61 '----
',           "Underline Detail          "DB05+
            71 '----
',         "Underline Customer        "DB05+
            83 '----
',         "Underline Alternate payer "DB05+
            95 '----
',   "Underline Reference       "DB05+
           113 '----
',       "Underline Ref Key 1       "DB05+
           127 '----
',   "Underline Amount          "DB05+
           145 '----
'.       "Underline Posting Date    "DB05+
*->Start RC03
           81 '----------------',   "Underline Reference "PG01+
           99 '------------',       "Underline Ref Key 1 "PG01+
           81 '----------------',   "Underline Amount       "PG01-
           99 '------------'.       "Underline Posting Date "PG01-
          113 '----------------',   "Underline Amount        "PG01+
          131 '------------'.       "Underline Posting Date  "PG01+
End RC03
    SKIP.
  ENDIF.
ENDFORM.                    " page_header
*&      Form  Write_Detail_Line
      Print a detail line.
-->  p1        text
<--  p2        text
FORM write_detail_line.
Retrieve the Posting Date from the header table (BUDAT)
  READ TABLE t_bkpf
    WITH TABLE KEY bukrs = t_bseg-bukrs
                   belnr = t_bseg-belnr
                   gjahr = t_bseg-gjahr.
*--- This is a new section added b/c of the TDS review
Retrieve the Customer number from the 'D' BSEG records
  READ TABLE t_kunnr
    WITH KEY bukrs = t_bseg-bukrs
             belnr = t_bseg-belnr
             gjahr = t_bkpf-gjahr.
  IF sy-subrc <> 0.
    t_kunnr-kunnr = 9999999999.
  ENDIF.
*--- End of TDS review addition
*Start of RC03
  CLEAR t_kna1.
  READ TABLE t_kna1 WITH KEY kunnr = t_kunnr-kunnr.
*End of RC03
  WRITE AT: /1 t_bseg-belnr,
          13 t_bseg-prctr,                               "DB05-
          28 t_bseg-zloc,                                "DB05-
          38 t_bseg-hkont,                               "DB05-
          50 t_bseg-zexp,                                "DB05-
          59 t_bseg-zdtl,                                "DB05-
*TDS-       69 t_bseg-kunnr,                               "DB05-
          69 t_kunnr-kunnr,                      "TDS+   "DB05-
          81 t_kna1-knrza,            "Alt payer "RC03+  "DB05-
          93 t_bkpf-xblnr,            "Reference "PG01+  "DB05-
         111 t_bseg-xref1,            "Ref Key 1 "PG01+  "DB05-
          81 amount_out,                         "PG01-  "DB05-
          99 t_bkpf-budat.                       "PG01-  "DB05-
         125 amount_out,                         "PG01+  "DB05-
         143 t_bkpf-budat.                       "PG01+  "DB05-
            13 t_bkpf-blart,                                "DB05+
            23 t_bseg-prctr,                                "DB05+
           38 t_bseg-zloc,                                 "DB05+
            44 t_bseg-hkont,                                "DB05+
           56 t_bseg-zexp,                                 "DB05+
           61 t_bseg-zdtl,                                 "DB05+
            71 t_kunnr-kunnr,                      "TDS+   "DB05+
            83 t_kna1-knrza,            "Alt payer "RC03+  "DB05+
            95 t_bkpf-xblnr,            "Reference "PG01+  "DB05+
           113 t_bseg-xref1,            "Ref Key 1 "PG01+  "DB05+
           127 amount_out,                         "PG01+  "DB05+
           145 t_bkpf-budat.                       "PG01+  "DB05+
ENDFORM.                    " Write_Detail_Line
*&      Form  Write_Detail_Subtotal
      Write the Reason Code subtotal line for the detail section.
-->  p1        text
<--  p2        text
FORM write_detail_subtotal.
WRITE AT: /81  '----------------'. "PG01-
WRITE AT: /56  text-015,           "PG01-
           81  sum_wrbtr.          "PG01-
WRITE AT: /81  '----------------'. "PG01-
WRITE AT: /81  '----------------'. "PG01-
WRITE AT: /125 '----------------'. "PG01+                  "DB05-
WRITE AT: /56  text-015,           "PG01+                  "DB05-
           125 sum_wrbtr.          "PG01+                  "DB05-
WRITE AT: /125 '----------------'. "PG01+                  "DB05-
WRITE AT: /125 '----------------'. "PG01+                  "DB05-
  WRITE AT: /127 '----
'. "PG01+                  "DB05+
  WRITE AT: /56  text-015,           "PG01+                  "DB05+
             127 sum_wrbtr.          "PG01+                  "DB05+
  WRITE AT: /127 '----
'. "PG01+                  "DB05+
  WRITE AT: /127 '----
'. "PG01+                  "DB05+
  NEW-PAGE.
Add the total for this reason code to an internal table
for printing the Summary Page at the end.
  CLEAR t_rstgr_sum-rstgr.
  CLEAR t_rstgr_sum-wrbtr.
  t_rstgr_sum-rstgr = save_rstgr.
  t_rstgr_sum-sgtxt = save_sgtxt.                           "PG02+
  t_rstgr_sum-wrbtr = sum_wrbtr.
  APPEND t_rstgr_sum.
ENDFORM.                    " Write_Detail_Subtotal
*&      Form  Write_Summary
      Prints the Summary section at the end of the report
-->  p1        text
<--  p2        text
FORM write_summary.
  NEW-PAGE.
  WRITE AT: /20 text-016.
  SKIP.
Print Summary by Reason Code
WRITE AT: /20 text-017. "Reason Code  Description                Total"
  SKIP.
  CLEAR grand_wrbtr.
  LOOP AT t_rstgr_sum.
    grand_wrbtr = grand_wrbtr + t_rstgr_sum-wrbtr.
    IF first_reason IS INITIAL.
      WRITE AT: /27 t_rstgr_sum-rstgr,
              33 text-021, "Dollar sign ($) "PG02-
              34 t_rstgr_sum-wrbtr.         "PG02-
                 33 t_rstgr_sum-sgtxt,
                 83 text-021, "Dollar sign ($) "PG02+
                 84 t_rstgr_sum-wrbtr.
      first_reason = 'N'.
    ELSE.
      WRITE AT: /27 t_rstgr_sum-rstgr,
              34 t_rstgr_sum-wrbtr. "PG02-
                 33 t_rstgr_sum-sgtxt,
                 84 t_rstgr_sum-wrbtr.
    ENDIF.
  ENDLOOP.
  PERFORM grand_total.
  SKIP.
  SKIP.
  SKIP.
Print Summary by GL Account
  WRITE AT: /20 text-018. "GL Account   Total"
  SKIP.
  CLEAR grand_wrbtr.
  LOOP AT t_hkont_sum.
    grand_wrbtr = grand_wrbtr + t_hkont_sum-wrbtr.
    IF first_glacct IS INITIAL.
      WRITE AT: /22 t_hkont_sum-hkont,
                 83 text-021, "Dollar sign ($)
                 84 t_hkont_sum-wrbtr.
      first_glacct = 'N'.
    ELSE.
      WRITE AT: /22 t_hkont_sum-hkont,
                 84 t_hkont_sum-wrbtr.
    ENDIF.
  ENDLOOP.
  PERFORM grand_total.
ENDFORM.                    " Write_Summary
*&      Form  Grand_Total
*&  Replaced below by mod PG02.
      Writes Grand Total lines of the two summary page sections.
-->  p1        text
<--  p2        text
*FORM grand_total.
*SKIP.
*WRITE AT: /33 text-020. "16 dashes (for underlining)
*WRITE AT: /19 text-019, "Grand Total"
          33 text-021, "Dollar sign ($)
          34 grand_wrbtr.
*WRITE AT: /33 text-020. "16 dashes (for underlining)
*WRITE AT: /33 text-020. "16 dashes (for underlining)
*SKIP.
*ENDFORM. " Grand_Total
*&      Form  Grand_Total
*&  New column numbers by mod PG02
      Writes Grand Total lines of the two summary page sections.
-->  p1        text
<--  p2        text
FORM grand_total.
  SKIP.
  WRITE AT: /83 text-020. "16 dashes (for underlining)
  WRITE AT: /19 text-019, "Grand Total"
             83 text-021, "Dollar sign ($)
             84 grand_wrbtr.
  WRITE AT: /83 text-020. "16 dashes (for underlining)
  WRITE AT: /83 text-020. "16 dashes (for underlining)
  SKIP.
ENDFORM. " Grand_Total
*&      Form  background
      text
-->  p1        text
<--  p2        text
FORM background.
*Get print parameters
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
    EXPORTING
      immediately    = ' '
      no_dialog      = 'X'
    IMPORTING
      out_parameters = params
      valid          = valid.
*Job Open
  CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      jobname          = job_name
      sdlstrtdt        = sy-datum
      sdlstrttm        = sy-uzeit
    IMPORTING
      jobcount         = job_count
    EXCEPTIONS
      cant_create_job  = 1
      invalid_job_data = 2
      jobname_missing  = 3
      OTHERS           = 4.
*Background job submittion
  SUBMIT zsdl_393_reason_code_report
  WITH p_gjahr   =  p_gjahr
  WITH s_monat   IN s_monat
  WITH s_blart   IN s_blart
  WITH s_budat   IN s_budat
  WITH s_hkont   IN s_hkont
  WITH s_rstgr   IN s_rstgr
  WITH backgr    = ' '
  WITH process   = 'X'
  VIA JOB job_name
  NUMBER job_count
  AND RETURN.
*Job Close
  CALL FUNCTION 'JOB_CLOSE'
    EXPORTING
      jobcount             = job_count
      jobname              = job_name
      strtimmed            = 'X'
      targetsystem         = sy-host
    IMPORTING
      job_was_released     = job_released
    EXCEPTIONS
      cant_start_immediate = 1
      invalid_startdate    = 2
      jobname_missing      = 3
      job_close_failed     = 4
      job_nosteps          = 5
      job_notex            = 6
      lock_failed          = 7
      OTHERS               = 8.
ENDFORM.                    " background
this is a report of pdf
theres is one pdf file could u plz explain this
TABLES: tsp01,
        knvh,
        scal,
        p0001.
I N T E R N A L  T A B L E S                                        *
DATA: int_spo LIKE tsp01 OCCURS 100 WITH HEADER LINE.
DATA: int_tsp01p LIKE tsp01psy OCCURS 100 WITH HEADER LINE.
DATA: otf LIKE itcoo OCCURS 100 WITH HEADER LINE.
DATA: pdf LIKE tline OCCURS 100 WITH HEADER LINE.
DATA: doctab LIKE docs OCCURS 1 WITH HEADER LINE.
DATA: int_xpm LIKE btcxpm OCCURS 100 WITH HEADER LINE.
DATA: cancel.
DATA: BEGIN OF int_knvh OCCURS 100,
        kunnr  LIKE knvh-kunnr,
        hkunnr LIKE knvh-hkunnr.
DATA: END OF int_knvh.
DATA: BEGIN OF db_tab OCCURS 100,
        filenam(128) TYPE c.
DATA: END OF db_tab.
D A T A  C O N S T A N T S                                          *
DATA: numbytes    TYPE i,
      arc_idx     LIKE toa_dara,
      pdfspoolid  LIKE tsp01-rqident,
      rq2name(12) TYPE n,
      rqcretime   LIKE tsp01-rqcretime,
      hkunnr      LIKE knvh-hkunnr,
      hreffile(30) TYPE c,
      jobname     LIKE tbtcjob-jobname,
      jobcount    LIKE tbtcjob-jobcount,
      counter     LIKE syst-tabix,
      g_count(4)  TYPE n,
      g_path      LIKE rlgrap-filename,
      g_filename TYPE string.
DATA: client      LIKE tst01-dclient,
      name        LIKE tst01-dname,
      objtype     LIKE rststype-type,
      type        LIKE rststype-type,
      dblink      LIKE rlgrap-filename,
      bothpath    LIKE rlgrap-filename,
      add_param   LIKE sxpgcolist-parameters,
      icon_note(5).
DATA: date        LIKE scal-date,
      weekday     LIKE scal-indicator,
      days        LIKE t5a4a-dlydy,
      months      LIKE t5a4a-dlymo,
      years       LIKE t5a4a-dlyyr,
      saturday    LIKE p0001-begda.
P A R A M E T E R S  &  S E L E C T - O P T I O N S                 *
SELECTION-SCREEN BEGIN OF BLOCK box WITH FRAME TITLE text-001.
PARAMETERS:       p_client LIKE tsp01-rqclient DEFAULT syst-mandt.
SELECT-OPTIONS:   s_spool FOR tsp01-rqident,
                  s_rqdate FOR sy-datum,
                  s_otptd FOR tsp01-rqdest NO INTERVALS.
SELECT-OPTIONS:   p_rqnam1 FOR tsp01-rq0name NO INTERVALS,
                  p_rqnam2 FOR tsp01-rq1name NO INTERVALS,
                  p_rqnam3 FOR tsp01-rq2name NO INTERVALS,
                  s_rqownr FOR tsp01-rqowner NO INTERVALS,
                  s_rqtitl FOR tsp01-rqtitle NO INTERVALS.
SELECTION-SCREEN SKIP.
Block PDF description
SELECTION-SCREEN BEGIN OF BLOCK desc WITH FRAME TITLE text-017.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:  p_sfx12 RADIOBUTTON GROUP two.
SELECTION-SCREEN COMMENT 4(27) text-022.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:  p_sfx2 RADIOBUTTON GROUP two.
SELECTION-SCREEN COMMENT 4(27) text-018.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:  p_titl RADIOBUTTON GROUP two.
SELECTION-SCREEN COMMENT 4(27) text-019.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:  p_cust RADIOBUTTON GROUP two.
SELECTION-SCREEN COMMENT 4(27) text-020.
PARAMETERS:          pt_tcust(20) TYPE c.
SELECTION-SCREEN COMMENT 52(1) text-024.
PARAMETERS:  p_incre AS CHECKBOX.
SELECTION-SCREEN COMMENT (20) text-021.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:  p_date AS CHECKBOX.
SELECTION-SCREEN COMMENT 4(27) text-023.
*PARAMETERS:          pt_date LIKE sy-datum DEFAULT sy-datum.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK desc.
*Block download
SELECTION-SCREEN BEGIN OF BLOCK options WITH FRAME TITLE text-003.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:       p_unix  RADIOBUTTON GROUP one.
SELECTION-SCREEN COMMENT 4(27) text-007.
PARAMETERS:       p_unxpat  LIKE rlgrap-filename.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:       p_pcdwn RADIOBUTTON GROUP one.
SELECTION-SCREEN COMMENT 4(27) text-006.
PARAMETERS:      p_pcpath LIKE rlgrap-filename.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:      p_test   AS CHECKBOX.
SELECTION-SCREEN COMMENT 4(27) text-008.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK options.
*Block Pointer file
SELECTION-SCREEN BEGIN OF BLOCK dbfile WITH FRAME TITLE text-016.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:      p_point   AS CHECKBOX.
SELECTION-SCREEN COMMENT 4(27) text-025.
PARAMETERS:      p_dbfile LIKE rlgrap-filename.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK dbfile.
SELECTION-SCREEN END OF BLOCK box.
AT-SELECTION-SCREEN                                                  *
AT SELECTION-SCREEN ON pt_tcust.
  IF p_cust = 'X' AND
     pt_tcust IS INITIAL.
    MESSAGE e000 WITH 'Please enter custom name'.
  ENDIF.
AT SELECTION-SCREEN ON p_unxpat.
  IF p_unix = 'X' AND
     p_unxpat IS INITIAL.
    MESSAGE e000 WITH 'Please enter Unix path'.
  ENDIF.
AT SELECTION-SCREEN ON p_pcpath.
  IF p_pcdwn = 'X' AND
     p_pcpath IS INITIAL.
    MESSAGE e000 WITH 'Please enter PC path'.
  ENDIF.
AT SELECTION-SCREEN ON p_dbfile.
  IF p_point = 'X' AND
     p_dbfile IS INITIAL.
    MESSAGE e000 WITH 'Please enter pointer file path in Unix'.
  ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_pcpath.
*Checks for the selected file
  CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            mask             = ',*  ,*.'
            mode             = '0'
       IMPORTING
            filename         = g_filename
       EXCEPTIONS
            inv_winsys       = 1
            no_batch         = 2
            selection_cancel = 3
            selection_error  = 4
            OTHERS           = 5.
  IF sy-subrc = 0.
    p_pcpath = g_filename.
  ENDIF.
TOP OF PAGE                                                          *
TOP-OF-PAGE.
  PERFORM page_header.
START OF SELECTION                                                  *
START-OF-SELECTION.
  SELECT * FROM tsp01 CLIENT SPECIFIED WHERE rqident IN s_spool
                        AND rqclient EQ p_client
                        AND rqdest  IN s_otptd
                        AND rq0name IN p_rqnam1
                        AND rq1name IN p_rqnam2
                        AND rq2name IN p_rqnam3
                        AND rqowner IN s_rqownr
                        AND rqtitle IN s_rqtitl.
    CHECK tsp01-rqcretime(8) IN s_rqdate.
    MOVE tsp01-rqident TO int_spo-rqident.
    MOVE tsp01-rq0name TO int_spo-rq0name.
    MOVE tsp01-rq1name TO int_spo-rq1name.
    MOVE tsp01-rq2name TO int_spo-rq2name.
    MOVE tsp01-rqtitle TO int_spo-rqtitle.
    MOVE tsp01-rqcretime(8) TO int_spo-rqcretime.
    MOVE tsp01-rqdest TO int_spo-rqdest.
    APPEND int_spo.
  ENDSELECT.
  IF sy-subrc NE 0.
Invalid parameters entered!  Please correct and re-execute.
    MESSAGE s014(zz).
  ENDIF.
END-OF-SELECTION.
  CLEAR: int_spo.
  SORT int_spo BY rqident rq2name.
  LOOP AT int_spo.
Sapscript or list
    PERFORM sapscript_or_list.
Define PDF description
    PERFORM pdf_desc.
Option to download PDF files to local PC
Real-time or test mode
    IF p_test <> 'X'.
      IF p_pcdwn EQ 'X'.
        PERFORM down_to_pc.
Option to download PDF files to Unix
      ELSEIF p_unix = 'X'.
        PERFORM down_to_unix.
      ENDIF.
    ENDIF.
Print report
  

Answer 1

Hello...
Create a new function group and required function module in the RD2 server using SE37. Enter the various parameters and exceptions, then cut and paste the code from one system to another. Create includes and use cut and paste to do that as well.