OUTPUT..URGENT

Question

Hi frnds,
      i have modified a standard report to 'z' report.the output comes as like
standard abap list. when i execute the report in foreground and saves the output
in spreadsheet its fine but when i execute it in background the output is messed up.(excel)
       the background needs to be executed in sm37 and spool request is created then we
can see the file type and its output.(sp01).
        a standard program is attached in that report-RSBTCHH0 from where its takes
the output in excel.
Hoe to mail funcitionality to this report
        help me where to make the changes..
REPORT ZFCHKN00
  LINE-COUNT (1)
  LINE-SIZE 171
  NO STANDARD PAGE HEADING
  MESSAGE-ID FS.
TABLES:
  AUTHA,
  BHDGD,                               "Batch-Heading
  BNKA,                                "Bankdaten
  BKPF,                                "Accounting document header
  PAYR,                                "Scheckdatei
  RFSDO,                               "Select-Options
  T001,                                "für das Land des Buchungskreises
  T005,                                "für den Bankschlüsseltyp im Land
  T012,                                "Banken
  T012K,                               "Bankenkonten
  T042Z,                               "Name des Zahlweges
  TCURX,                               "Nachkommastellen
  TVOIT,                               "Grund ungültiger Scheck, Text
  BSAK,      "Accounting: Secondary index for vendors (cleared items)
  BSEG,                                "Accounting document segment
  REGUH.                               "Payment data from payment progra
RANGES:
  SEL_LAUD  FOR PAYR-LAUFD,
  SEL_LAUI  FOR PAYR-LAUFI,
  SEL_XDAT  FOR PAYR-EXTRD,
  SEL_XTIM  FOR PAYR-EXTRT,
  SEL_ECHT  FOR PAYR-VOIDR,
  TAB_RZAWE FOR PAYR-RZAWE.
INCLUDE RFEPOSC1.                      "Tabelle POSTAB für Rechnungsinfo
DATA:
  FLG_INTENSIV(1) TYPE N,              "1 - Color intensiv (Streifen)
  FLG_POSTEN(1)   TYPE N,              "1 - Rechnungsposten selektiert
  FLG_SUMME(1)    TYPE N,              "1 - Summe der EPs möglich
  HLP_DATUM(10)   TYPE C,              "aufbereitetes Datum
  HLP_VON/BIS(27) TYPE C,              "von Nummer bis Nummer
  HLP_SUBRC       LIKE SY-SUBRC,       "Returncode
  HLP_WAERS       LIKE POSTAB-WAERS,   "Währung der EPs
  SUM_WRSHB       LIKE POSTAB-WRSHB,
  SUM_ABZUG       LIKE POSTAB-WSKTO,   "Summen für die Rechnungssumme
  SUM_NETTO       LIKE POSTAB-WRSHB,
TXT_ZEILE(132)  TYPE C,              "Textzeile  SYALLA asr 11456
  TXT_ZEILE(171)  TYPE C,              "Textzeile  SYALLA asr 11456
  BEGIN OF TAB_SUMME OCCURS 10,        "pro Zahlweg Summe je Währung
    WAERS         LIKE PAYR-WAERS,
    RWBTR         LIKE PAYR-RWBTR,
Inserted By Jassi on 04/14/04 - ASR# 23240
    DISER         LIKE PAYR-RWBTR,     "Discount Earned Total
    DISTA         LIKE PAYR-RWBTR,     "Discount Taken Total
    DISLO         LIKE PAYR-RWBTR,     "Discount Lost Total
  END OF TAB_SUMME,
  BEGIN OF TAB_LAUFK OCCURS 1.
        INCLUDE STRUCTURE ILAUFK.
DATA: END OF TAB_LAUFK,
BEGIN OF MIKLINE,                      "Feldleiste zur Aufnahem des
  ZBUKR LIKE PAYR-ZBUKR,               "variablen Teils der Mikro-Fiche-
  HBKID LIKE PAYR-HBKID,               "Zeile
  HKTID LIKE PAYR-HKTID,
  RZAWE LIKE PAYR-RZAWE,
  CHECF LIKE PAYR-CHECF,
END OF MIKLINE.
DATA: FLAG TYPE C VALUE '0'.
DATA: DISAM TYPE P DECIMALS 5,
      DAYS_1 TYPE I,
      DAYS_2 TYPE I,
      PERC_1 TYPE P DECIMALS 3,
      PERC_2 TYPE P DECIMALS 3,
      DAYS_PAID TYPE I,
      DISER TYPE P DECIMALS 5,
      DISTA TYPE P DECIMALS 2,
      DISTOT(17),
      DISLO TYPE P DECIMALS 2.
ASR # 8269 RKSHARMA----
DATA: BVORG1 LIKE BKPF-BVORG,
      BVORG2 LIKE BKPF-BVORG,
      BUKRS1 LIKE BKPF-BUKRS,
      BUKRS2 LIKE BKPF-BUKRS,
      BELNR1 LIKE BKPF-BELNR,
      BELNR2 LIKE BKPF-BELNR,
      BELNR3 LIKE BKPF-BELNR,
      HKONT1 LIKE BSEG-HKONT,
      SHKZG1 LIKE BSEG-SHKZG,
      DMBTR1 LIKE BSEG-DMBTR.
FIELD-GROUPS:
  HEADER,
  ZAHLUNG,    "means Payment
  RECHNUNG.   "means Calculation
INSERT
  PAYR-HBKID
  PAYR-HKTID
  PAYR-XMANU
  PAYR-RZAWE
  PAYR-CHECT
  POSTAB-BUKRS
  POSTAB-GJAHR
  POSTAB-BELNR
INTO HEADER.
INSERT
  PAYR
INTO ZAHLUNG.
INSERT
  POSTAB
INTO RECHNUNG.
Selektionsparameter                                                 *
INCLUDE: RFCHKI99, RFDBRMAC.
PARAMETERS:                            "Zahlender Buchungskreis
  PAR_ZBUK LIKE PAYR-ZBUKR MEMORY ID BUK.
SELECT-OPTIONS:
  SEL_HBKI FOR PAYR-HBKID,             "Hausbank (Kurzschlüssel)
  SEL_HKTI FOR PAYR-HKTID.             "Kontenverbindung (Kurzschlüssel)
PARAMETERS:                            "Personalabrechnungsschecks
  PAR_XPER LIKE RFPDO2-CHKNXPER MEMORY ID XHR.
SELECTION-SCREEN SKIP.
BEGIN_OF_BLOCK 0.
SELECT-OPTIONS:
  SEL_BNKL FOR T012-BANKL  NO-EXTENSION,"Bankleitzahl
  SEL_BNKN FOR T012K-BANKN NO-EXTENSION."Bankkonto
SELECT_OPTION_SCHECK.
SELECT-OPTIONS:
  SEL_WAER FOR PAYR-WAERS,             "Währungsschlüssel
  SEL_RWBT FOR PAYR-RWBTR.             "Betrag
END_OF_BLOCK 0.
BEGIN_OF_BLOCK 1.
SELECT-OPTIONS:
  SEL_ZALD FOR RFSDO-CHKLADAT,         "Ausstellungsdatum
  SEL_CPUD FOR RFSDO-CHKLEDAT,         "Erstellungsdatum
  S_BUDAT FOR BKPF-BUDAT,
  SEL_BNCD FOR PAYR-BANCD,             "Einlösedatum
  SEL_USER FOR RFSDO-CHKLUSER,         "Scheckaussteller
  SEL_VBLN FOR PAYR-VBLNR,             "Zahlungsbelegnummer
  SEL_PERN FOR PAYR-PERNR,             "Personalnummer
  SEL_VOID FOR PAYR-VOIDR.             "Ungültigkeitsgrund
SELECTION-SCREEN:
  BEGIN OF LINE,
  COMMENT 01(31) TEXT-015 FOR FIELD ZW_LAUFD.
PARAMETERS:
  ZW_LAUFD LIKE PAYR-LAUFD,            "Laufdatum
  ZW_LAUFI LIKE PAYR-LAUFI,            "Laufidentifikation
  ZW_XVORL LIKE REGUH-XVORL NO-DISPLAY."Vorschlagslauf
SELECTION-SCREEN:
  END OF LINE,
  BEGIN OF LINE,
  COMMENT 01(31) TEXT-016 FOR FIELD PAR_XDAT.
PARAMETERS:
  PAR_XDAT LIKE PAYR-EXTRD,            "Extraktdatum
  PAR_XTIM LIKE PAYR-EXTRT.            "Extraktuhrzeit
SELECTION-SCREEN END OF LINE.
END_OF_BLOCK 1.
BEGIN_OF_BLOCK 2.
PARAMETERS:
  PAR_XAUS LIKE RFPDO1-CHKNXAUS,       "Scheckaußenstandsliste
  PAR_EPOS LIKE RFPDO-CHKNEPOS,        "Gezahlte Posten
  PAR_LSEP LIKE RFPDO-ALLGLSEP,        "Listseparation
  PAR_MIKF LIKE RFPDO-ALLGMIKF,        "Mikro-Fiche-Information
  PAR_LINE LIKE RFPDO1-ALLGLINE.       "Zusatzüberschrift
END_OF_BLOCK 2.
Buchungskreis vorbelegen                                            *
INITIALIZATION.
  GET_FRAME_TITLE: 0,1,2.
  GET_TEXT: 0,1.
  IF PAR_XTIM IS INITIAL.
    SHIFT PAR_XTIM BY 6 PLACES.
  ENDIF.
  REFRESH TAB_LAUFK.
  TAB_LAUFK-LAUFK = 'W'.
  TAB_LAUFK-SIGN  = 'E'.
  APPEND TAB_LAUFK.
F4 für den Zahllauf                                                 *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ZW_LAUFD.
  CALL FUNCTION 'F4_ZAHLLAUF'
       EXPORTING
            F1TYP = 'D'
            F2NME = 'ZW_LAUFI'
       IMPORTING
            LAUFD = ZW_LAUFD
            LAUFI = ZW_LAUFI
       TABLES
            LAUFK = TAB_LAUFK.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ZW_LAUFI.
  CALL FUNCTION 'F4_ZAHLLAUF'
       EXPORTING
            F1TYP = 'I'
            F2NME = 'ZW_LAUFD'
       IMPORTING
            LAUFD = ZW_LAUFD
            LAUFI = ZW_LAUFI
       TABLES
            LAUFK = TAB_LAUFK.
Prüfung der Eingaben (AT SELECTION-SCREEN)                          *
  INCLUDE RFCHKI00.
  IF PAR_XTIM IS INITIAL.
    SHIFT PAR_XTIM BY 6 PLACES.
  ENDIF.
Seitentitel (Bankinformation und Überschrift)                       *
TOP-OF-PAGE.
  FORMAT RESET.
  MOVE MIKLINE TO BHDGD-GRPIN.
  PERFORM BATCH-HEADING(RSBTCHH0).
  ULINE.
  SKIP.
  TXT_ZEILE = TEXT-007.
  REPLACE:
    '&HBKID' WITH PAYR-HBKID  INTO TXT_ZEILE,
    '&BANKA' WITH BNKA-BANKA  INTO TXT_ZEILE,
    '&ORT01' WITH BNKA-ORT01  INTO TXT_ZEILE.
  WRITE:
  / TXT_ZEILE(16) COLOR 1 INVERSE,
    TXT_ZEILE+16(115).
  TXT_ZEILE = TEXT-008.
  REPLACE:
    '&BANKL' WITH T012-BANKL  INTO TXT_ZEILE.
  WRITE:
  / TXT_ZEILE(16) COLOR 1 INVERSE,
    TXT_ZEILE+16(115).
  TXT_ZEILE = TEXT-009.
  REPLACE:
    '&HKTID' WITH PAYR-HKTID  INTO TXT_ZEILE,
    '&BANKN' WITH T012K-BANKN INTO TXT_ZEILE.
  WRITE:
  / TXT_ZEILE(16) COLOR 1 INVERSE,
    TXT_ZEILE+16(115).
  SKIP.
  ULINE.
  FORMAT COLOR 1 INTENSIFIED OFF.
  WRITE: / SY-VLINE NO-GAP,
           T042Z-TEXT1,
      132 SY-VLINE.   "syalla asr 11456
        171 SY-VLINE.                  "syalla asr 11456
  FORMAT RESET.
  ULINE.
  TXT_ZEILE = TEXT-005.
  IF PAR_XPER NE SPACE.
    TXT_ZEILE+15(10) = TEXT-017.
  ENDIF.
  IF PAR_XAUS NE SPACE.
    IF TXT_ZEILE CA '/'.
      WRITE:
        SPACE    TO TXT_ZEILE+SY-FDPOS,
        SY-VLINE TO TXT_ZEILE+169.
    ENDIF.
  ENDIF.
  IF PAR_EPOS EQ SPACE.
    WRITE:
    / TXT_ZEILE COLOR 1 INTENSIFIED,
     132 'Disc earned' COLOR 1 INTENSIFIED,  "syalla  asr 11456
     149 'Disc taken'COLOR 1 INTENSIFIED,    "syalla  asr 11456
     161 'Disc lost'COLOR 1 INTENSIFIED,     "syalla  asr 11456
    171 SY-VLINE .                     "syalla  asr 11456
  ELSE.
    WRITE:
    / TXT_ZEILE COLOR 7 INTENSIFIED,
    / TEXT-006  COLOR 1 INTENSIFIED,
    171 SY-VLINE .                     "syalla  asr 11456
    SUMMARY.
  ENDIF.
  ULINE.
Seitenende                                                          *
END-OF-PAGE.
  ULINE.
Schecks selektieren                                                 *
START-OF-SELECTION.
Keine Verarbeitung von Vorschlagsläufen
  IF ZW_XVORL NE SPACE.
    MESSAGE S615 WITH SY-REPID.
    STOP.
  ENDIF.
Keine FI-Selektion bei HR und umgekehrt
  CLEAR SEL_LAUI.
  SEL_LAUI-LOW      = '+++++P'.
  SEL_LAUI-OPTION   = 'CP'.
  IF PAR_XPER EQ SPACE.
    SEL_LAUI-SIGN   = 'E'.
    REFRESH SEL_PERN.
  ELSE.
    SEL_LAUI-SIGN   = 'I'.
    REFRESH SEL_VBLN.
    CLEAR SEL_VBLN.
    SEL_VBLN-OPTION = 'EQ'.
    SEL_VBLN-SIGN   = 'I'.
    APPEND SEL_VBLN.
    CLEAR PAR_EPOS.
  ENDIF.
  IF ZW_LAUFI IS INITIAL.
    APPEND SEL_LAUI.
  ENDIF.
Übergabe der Zahllauf- und Extraktparameter als Select-Option
  IF NOT ( ZW_LAUFD IS INITIAL ).
    CLEAR SEL_LAUD.
    SEL_LAUD-LOW    = ZW_LAUFD.
    SEL_LAUD-OPTION = 'EQ'.
    SEL_LAUD-SIGN   = 'I'.
    APPEND SEL_LAUD.
  ENDIF.
  IF NOT ( ZW_LAUFI IS INITIAL ).
    CLEAR SEL_LAUI.
    SEL_LAUI-LOW    = ZW_LAUFI.
    SEL_LAUI-OPTION = 'EQ'.
    SEL_LAUI-SIGN   = 'I'.
    APPEND SEL_LAUI.
  ENDIF.
  IF NOT ( PAR_XDAT IS INITIAL ).
    CLEAR SEL_XDAT.
    SEL_XDAT-LOW    = PAR_XDAT.
    SEL_XDAT-OPTION = 'EQ'.
    SEL_XDAT-SIGN   = 'I'.
    APPEND SEL_XDAT.
  ENDIF.
  IF PAR_XTIM NE SPACE.
    CLEAR SEL_XTIM.
    SEL_XTIM-LOW    = PAR_XTIM.
    SEL_XTIM-OPTION = 'EQ'.
    SEL_XTIM-SIGN   = 'I'.
    APPEND SEL_XTIM.
  ENDIF.
Nur gültige Schecks selektieren, wenn Währung gewünscht
  IF NOT ( SEL_WAER IS INITIAL ).
    CLEAR SEL_ECHT.
    SEL_ECHT-OPTION = 'EQ'.
    SEL_ECHT-SIGN   = 'I'.
    APPEND SEL_ECHT.
  ENDIF.
Zusatztitel füllen
  IF PAR_LINE EQ SPACE.
    PAR_LINE = TEXT-014.
    REPLACE '&BUKRS' WITH PAR_ZBUK INTO PAR_LINE.
  ENDIF.
Abweichender Titel für die Scheckaußenstandsliste
  IF PAR_XAUS NE SPACE.
    SY-TITLE = TEXT-013.
  ENDIF.
Batch-Heading und Mikro-Fiche-Zeile vorbereiten
  BHDGD-INIFL   = 0.
  BHDGD-LINES   = SY-LINSZ.
  BHDGD-UNAME   = SY-UNAME.
  BHDGD-REPID   = SY-REPID.
  BHDGD-LINE1   = SY-TITLE.
  BHDGD-LINE2   = PAR_LINE.
  BHDGD-MIFFL   = PAR_MIKF.
  BHDGD-SEPAR   = PAR_LSEP.
  BHDGD-DOMAI   = 'BUKRS'.
  BHDGD-BUKRS   = PAR_ZBUK.
  BHDGD-WERTE   = PAR_ZBUK.
  MIKLINE-ZBUKR = PAR_ZBUK.
  PERFORM NEW-SECTION(RSBTCHH0).
Alle möglichen Zahlwege ermitteln, die Schecks produzieren, und
besondere Behandlung der Schecknummer-Parameter/Betrags-Select-Option
  INCLUDE RFCHKI10.
  SELECT SINGLE * FROM T005 WHERE LAND1 EQ T001-LAND1.
Selektion der Daten
  SELECT * FROM PAYR
    WHERE   ZBUKR EQ PAR_ZBUK
      AND   HBKID IN SEL_HBKI
      AND   HKTID IN SEL_HKTI
      AND   RZAWE IN TAB_RZAWE
      AND   CHECF LE PAR_CHKT
      AND   CHECT GE PAR_CHKF
      AND   LAUFD IN SEL_LAUD
      AND   LAUFI IN SEL_LAUI
      AND   VBLNR IN SEL_VBLN
      AND   ZALDT IN SEL_ZALD
      AND   WAERS IN SEL_WAER
      AND   RWBTR IN SEL_RWBT
      AND   BANCD IN SEL_BNCD
      AND   EXTRD IN SEL_XDAT
      AND   EXTRT IN SEL_XTIM
      AND ( PRIDT IN SEL_CPUD
         OR VOIDD IN SEL_CPUD )
      AND ( PRIUS IN SEL_USER
         OR VOIDU IN SEL_USER )
      AND   VOIDR IN SEL_VOID
      AND   VOIDR IN SEL_ECHT.
    CHECK PAYR-PERNR IN SEL_PERN.
    IF PAR_XAUS NE SPACE.              "nur nicht eingelöste Schecks
      CHECK PAYR-XBANC EQ SPACE AND PAYR-VOIDR EQ SPACE.
    ENDIF.
Modification carried out by VChavva on 3/5/01
Check posting date of the document on the selection screen.
    IF NOT S_BUDAT IS INITIAL.
      SELECT SINGLE BUDAT FROM BKPF INTO BKPF-BUDAT
             WHERE BUKRS EQ PAYR-ZBUKR AND
                   BELNR EQ PAYR-VBLNR AND
                   GJAHR EQ PAYR-GJAHR AND
                   BUDAT IN S_BUDAT.
      CHECK SY-SUBRC EQ 0.
    ENDIF.
End modification
    CLEAR POSTAB.
    IF PAYR-XMANU NE SPACE.
      PAYR-RZAWE = SPACE.
    ENDIF.
    EXTRACT ZAHLUNG.
    IF PAR_EPOS NE SPACE AND PAYR-VOIDR EQ SPACE.
      REFRESH: POSTAB.
      CALL FUNCTION 'GET_INVOICE_DOCUMENT_NUMBERS'
           EXPORTING
                I_XBUKR   = PAYR-XBUKR
                I_ZBUKR   = PAYR-ZBUKR
                I_VBLNR   = PAYR-VBLNR
                I_GJAHR   = PAYR-GJAHR
           TABLES
                T_INVOICE = POSTAB.
      LOOP AT POSTAB.
        IF POSTAB-XHELL EQ SPACE.
          EXTRACT RECHNUNG.
        ENDIF.
      ENDLOOP.
    ENDIF.
  ENDSELECT.
  IF SY-SUBRC NE 0.
    MESSAGE S509.
  ENDIF.
  SORT.
  LOOP.
    PERFORM GET_DATA_FOR_DISCOUNT_EARNED.     "syalla asr 11456
    PERFORM GET_DATA_FOR_DISCOUNT_TAKEN.      "syalla asr 11456
    PERFORM GET_DATA_FOR_DISCOUNT_LOST.       "syalla 11456
    AT NEW PAYR-HKTID.
      PERFORM WRITE_BANK.
    ENDAT.
    AT NEW PAYR-RZAWE.
      PERFORM WRITE_ZAHLWEG.
    ENDAT.
    AT ZAHLUNG.
      PERFORM WRITE_ZAHLUNG.
    ENDAT.
    AT RECHNUNG.
      PERFORM WRITE_RECHNUNG.
    ENDAT.
    AT END OF PAYR-CHECT.
      PERFORM WRITE_RECHNUNGSSUMME.
    ENDAT.
    AT END OF PAYR-RZAWE.
      PERFORM WRITE_ZAHLWEGSUMME.
    ENDAT.
  ENDLOOP.
  IF SY-BATCH NE SPACE.
    MESSAGE S620.
  ENDIF.
FORM WRITE_BANK                                                     *
Bereitstellen der Zeilen mit den Bankinformationen für den Titel    *
FORM WRITE_BANK.
  MIKLINE-HBKID = PAYR-HBKID.
  MIKLINE-HKTID = PAYR-HKTID.
  SELECT SINGLE * FROM T012
    WHERE BUKRS EQ PAYR-ZBUKR
      AND HBKID EQ PAYR-HBKID.
  SELECT SINGLE * FROM T012K
    WHERE BUKRS EQ PAYR-ZBUKR
      AND HBKID EQ PAYR-HBKID
      AND HKTID EQ PAYR-HKTID.
  IF T005-BNKEY EQ '2'.
    T012-BANKL = T012K-BANKN.
  ENDIF.
  SELECT SINGLE * FROM BNKA
    WHERE BANKS EQ T012-BANKS
      AND BANKL EQ T012-BANKL.
ENDFORM.
FORM WRITE_ZAHLWEG                                                  *
Bereitstellen einer Zeile mit dem Namen des Zahlwegs für den Titel  *
FORM WRITE_ZAHLWEG.
  MIKLINE-RZAWE = PAYR-RZAWE.
  MIKLINE-CHECF = PAYR-CHECF.
  IF PAYR-RZAWE NE SPACE.
    SELECT SINGLE * FROM T042Z
      WHERE LAND1 EQ T001-LAND1
        AND ZLSCH EQ PAYR-RZAWE.
  ELSEIF PAYR-XMANU EQ SPACE.
    T042Z-TEXT1 = TEXT-010.
  ELSE.
    T042Z-TEXT1 = TEXT-011.
  ENDIF.
  NEW-PAGE.
  FLG_INTENSIV = 1.
  REFRESH TAB_SUMME.
ENDFORM.
FORM WRITE_ZAHLUNG                                                  *
Ausgabe einer Zeile mit Scheckinformationen                         *
FORM WRITE_ZAHLUNG.
  IF PAR_EPOS NE SPACE.        "Item Paid
    FORMAT COLOR 7 INTENSIFIED OFF.
  ELSE.
    IF FLG_INTENSIV = 0.
      FLG_INTENSIV = 1.
      FORMAT COLOR 2 INTENSIFIED OFF.
    ELSE.
      FLG_INTENSIV = 0.
      FORMAT COLOR 2 INTENSIFIED.
    ENDIF.
  ENDIF.
  WRITE / SY-VLINE NO-GAP.
  IF PAR_XPER NE SPACE AND PAYR-PERNR NE 0.
    PAYR-VBLNR = PAYR-PERNR.
  ENDIF.
  IF PAYR-VOIDR EQ SPACE.
    WRITE: PAYR-CHECT,
           PAYR-VBLNR,
           PAYR-ZALDT DD/MM/YYYY,
           PAYR-WAERS,
    (14)   PAYR-RWBTR CURRENCY PAYR-WAERS NO-SIGN,
    60(30) PAYR-ZNME1.
    CLEAR TXT_ZEILE.
    TXT_ZEILE     = PAYR-ZORT1.
    TXT_ZEILE+36  = PAYR-ZREGI.
    CONDENSE TXT_ZEILE.
    IF PAR_XAUS NE SPACE OR PAYR-XBANC EQ SPACE.
      WRITE:
      (38) TXT_ZEILE.
    ELSE.
      WRITE:
      (30) TXT_ZEILE.
    ENDIF.
    IF PAYR-XBANC NE SPACE.
      WRITE:
      117 PAYR-BANCD DD/MM/YYYY.       "SYALLA ASR 11456
    122 payr-bancd dd/mm/yyyy.       "SYALLA ASR 11456
    ENDIF.
    IF PAR_EPOS EQ SPACE.                "Items paid
ASR 4176 BY RAJU
       DISER = DISTA + DISLO.
ASR 4176 BY RAJU
      WRITE: 128 DISER DECIMALS 2.       "SYALLA asr 11456
      WRITE: 144 DISTA DECIMALS 2.       "SYALLA asr 11456
      WRITE: 160 DISLO DECIMALS 2.       "SYALLA asr 11456
     CLEAR: diser,dista,dislo,distot.   "JASSI
    ENDIF.
  ELSE.
    IF PAYR-CHECF EQ PAYR-CHECT.
      WRITE    PAYR-CHECT.
      IF PAYR-VBLNR NE SPACE.
        WRITE: PAYR-VBLNR,
               PAYR-ZALDT DD/MM/YYYY.
      ENDIF.
    ELSE.
      WRITE:
        PAYR-CHECF TO HLP_VON/BIS,
        '-'        TO HLP_VON/BIS+13,
        PAYR-CHECT TO HLP_VON/BIS+14.
      CONDENSE HLP_VON/BIS NO-GAPS.
      WRITE HLP_VON/BIS.
    ENDIF.
    TXT_ZEILE = TEXT-004.              "entwertet durch ... am ...
    SELECT SINGLE * FROM TVOIT
      WHERE LANGU EQ SY-LANGU
        AND VOIDR EQ PAYR-VOIDR.
    WRITE PAYR-VOIDD TO HLP_DATUM DD/MM/YYYY.
    REPLACE:
      '&VOIDU' WITH PAYR-VOIDU  INTO TXT_ZEILE,
      '&VOIDD' WITH HLP_DATUM   INTO TXT_ZEILE,
      '&VOIDT' WITH TVOIT-VOIDT INTO TXT_ZEILE.
    CONDENSE TXT_ZEILE.
    WRITE:
    60 TXT_ZEILE.
  ENDIF.
WRITE 132 SY-VLINE.   " syalla asr 11456
  WRITE 171 SY-VLINE.                  " syalla asr 11456
  IF PAYR-VOIDR EQ SPACE.
    TAB_SUMME-WAERS = PAYR-WAERS.
    TAB_SUMME-RWBTR = ABS( PAYR-RWBTR ).
Inserted By Jassi on 04/14/04 - ASR# 23240
    TAB_SUMME-DISER = DISER.   "Discount Earned Total
    TAB_SUMME-DISTA = DISTA.   "Discount Taken Total
    TAB_SUMME-DISLO = DISLO.   "Discount Lost Total
End of Insertion on 04/14/04 - ASR# 23240
    COLLECT TAB_SUMME.
    CLEAR: DISER,DISTA,DISLO,DISTOT.   "JASSI
  ENDIF.
  SUM_WRSHB  = 0.
  SUM_ABZUG  = 0.
  SUM_NETTO  = 0.
  FLG_POSTEN = 0.
  FLG_SUMME  = 1.
  HLP_WAERS  = SPACE.
ENDFORM.
FORM WRITE_RECHNUNG                                                 *
Ausgabe einer Zeile mit Rechnungsinformationen                      *
FORM WRITE_RECHNUNG.
  DATA:
    ABZUG LIKE POSTAB-WSKTO,
    NETTO LIKE POSTAB-WRSHB.
  FORMAT COLOR 2 INTENSIFIED OFF.
  IF FLG_POSTEN EQ 0.
    WRITE:
    / SY-VLINE,
      SPACE,
      TEXT-003,                        "Gezahlte Posten:
WRITE 132 SY-VLINE.   " syalla asr 11456
    171 SY-VLINE.                      " syalla asr 11456
  ENDIF.
  POSTAB-WRSHB = - POSTAB-WRSHB.
  ABZUG        =   POSTAB-WSKTO + POSTAB-QBSHB.
  NETTO        =   POSTAB-WRSHB + ABZUG.
  WRITE:
  /    SY-VLINE,
       SPACE,
       POSTAB-BUKRS,
       POSTAB-GSBER,
       POSTAB-XBLNR,
       POSTAB-BELNR,
       POSTAB-BUZEI,
       POSTAB-BLDAT DD/MM/YYYY,
       POSTAB-BUDAT DD/MM/YYYY,
       POSTAB-WAERS,
  (17) POSTAB-WRSHB CURRENCY POSTAB-WAERS,
  (17) ABZUG        CURRENCY POSTAB-WAERS,
  (17) NETTO        CURRENCY POSTAB-WAERS,
  132 SY-VLINE.   " syalla asr 11456
    171 SY-VLINE.                      " syalla asr 11456
  SUM_WRSHB   = SUM_WRSHB + POSTAB-WRSHB.
  SUM_ABZUG   = SUM_ABZUG + ABZUG.
  SUM_NETTO   = SUM_NETTO + NETTO.
  FLG_POSTEN  = 1.
  IF HLP_WAERS EQ SPACE.
    HLP_WAERS = POSTAB-WAERS.
  ELSEIF HLP_WAERS NE POSTAB-WAERS.
    FLG_SUMME = 0.
  ENDIF.
ENDFORM.
FORM WRITE_RECHNUNGSUMME                                            *
Ausgabe der Summen der Rechnungsinformationen                       *
FORM WRITE_RECHNUNGSSUMME.
  CHECK PAR_EPOS NE SPACE.
  IF FLG_POSTEN EQ 1 AND FLG_SUMME EQ 1.
    FORMAT COLOR 3 INTENSIFIED OFF.
    WRITE:
     /    SY-VLINE,
     58   TEXT-012,
     69   HLP_WAERS,
     (17) SUM_WRSHB CURRENCY PAYR-WAERS,
     (17) SUM_ABZUG CURRENCY PAYR-WAERS,
     (17) SUM_NETTO CURRENCY PAYR-WAERS,
    132  SY-VLINE.   "syalla  asr 11456
     171  SY-VLINE.                    "syalla asr 11456
  ENDIF.
  ULINE.
ENDFORM.
FORM WRITE_ZAHLWEGSUMME                                             *
Ausgabe der Summen je Währung für diesen Zahlweg                    *
FORM WRITE_ZAHLWEGSUMME.
  FORMAT COLOR 3 INTENSIFIED.
  DESCRIBE TABLE TAB_SUMME LINES SY-TFILL.
  ADD 2 TO SY-TFILL.
  RESERVE SY-TFILL LINES.
  SORT TAB_SUMME.
  LOOP AT TAB_SUMME.
    AT FIRST.
      IF PAR_EPOS EQ SPACE.
        ULINE.
      ENDIF.
      WRITE:
      /2 TEXT-012,
      13 SPACE.
    ENDAT.
    WRITE:
    1(1) SY-VLINE,
    38   TAB_SUMME-WAERS,
    (14) TAB_SUMME-RWBTR CURRENCY TAB_SUMME-WAERS NO-SIGN.
   132  SY-VLINE.    "syalla  asr 11456
Inserted By Jassi on 04/14/04 - ASR# 23240
Write Totals
      WRITE:127 TAB_SUMME-DISER DECIMALS 2.       "JASSI
      WRITE:144 TAB_SUMME-DISTA DECIMALS 2.       "JASSI
      WRITE:161 TAB_SUMME-DISLO DECIMALS 2,       "JASSI
End of Insertion on 04/14/04 - ASR# 23240
   171  SY-VLINE.                     "syalla  asr 11456
    NEW-LINE.
  ENDLOOP.
  IF SY-SUBRC EQ 0 OR PAR_EPOS EQ SPACE.
    ULINE.
  ENDIF.
ENDFORM.
*&      Form  GET_DATA_FOR_DISCOUNT_EARNED
      text
-->  p1        text
<--  p2        text
FORM GET_DATA_FOR_DISCOUNT_EARNED.
  SELECT * FROM BSAK WHERE AUGBL = PAYR-VBLNR AND BUKRS = PAYR-ZBUKR.
    IF BSAK-BELNR <> BSAK-AUGBL.
      IF BSAK-ZBD1P <> '0.000' OR BSAK-ZBD2P <> '0.000'.
        IF BSAK-ZBD1T <> 0 AND BSAK-ZBD2T = 0.
          DAYS_1 = BSAK-ZBD1T.
          PERC_1 = BSAK-ZBD1P.
        ENDIF.
        IF BSAK-ZBD2T <> 0 AND BSAK-ZBD1T = 0.
          DAYS_1 = BSAK-ZBD2T.
          PERC_1 = BSAK-ZBD2P.
        ENDIF.
        IF BSAK-ZBD1T <> 0 AND BSAK-ZBD1T < BSAK-ZBD2T .
          DAYS_1 = BSAK-ZBD1T.
          PERC_1 = BSAK-ZBD1P.
          DAYS_2 = BSAK-ZBD2T.
          PERC_2 = BSAK-ZBD2P.
        ENDIF.
        IF BSAK-ZBD2T <> 0 AND BSAK-ZBD2T < BSAK-ZBD1T .
          DAYS_1 = BSAK-ZBD2T.
          PERC_1 = BSAK-ZBD2P.
          DAYS_2 = BSAK-ZBD1T.
          PERC_2 = BSAK-ZBD1P.
        ENDIF.
        DAYS_PAID = BSAK-AUGDT - BSAK-ZFBDT.
        IF DAYS_PAID <= DAYS_1.
          DISAM = ( BSAK-DMBTR * PERC_1 ) / 100 .
        ELSEIF DAYS_PAID <= DAYS_2.
          DISAM = ( BSAK-DMBTR * PERC_2 ) / 100 .
        ENDIF.
        DISER = DISER + DISAM.
        CLEAR DISAM.
      ENDIF.
    ENDIF.
    CLEAR: DISAM,PERC_2,PERC_1,DAYS_1,DAYS_2,DAYS_PAID,BSAK.
  ENDSELECT.
ENDFORM.                               " GET_DATA_FOR_DISCOUNT_EARNED
*&      Form  GET_DATA_FOR_DISCOUNT_TAKEN
      text
-->  p1        text
<--  p2        text
FORM GET_DATA_FOR_DISCOUNT_TAKEN.
CLEAR DISTA.
  SELECT * FROM BSEG WHERE BUKRS = PAYR-ZBUKR AND BELNR = PAYR-VBLNR.
    IF BSEG-HKONT =  '0000820000'.
      IF BSEG-SHKZG = 'S'.
        BSEG-DMBTR = -1 * BSEG-DMBTR.
      ENDIF.
      DISTA = DISTA + BSEG-DMBTR.
Start Of ASR # 8269 RKSHARMA----
    ELSE.
    SELECT SINGLE BVORG FROM BKPF INTO BVORG1
    WHERE BUKRS = PAYR-ZBUKR AND BELNR = PAYR-VBLNR.
  IF BVORG1 <> SPACE.
    SELECT BUKRS BELNR FROM BKPF INTO (BUKRS1, BELNR1)
    WHERE BVORG = BVORG1.
    IF BELNR1 <> PAYR-VBLNR AND BUKRS1 <> PAYR-ZBUKR.
    BUKRS2 = BUKRS1.
    BELNR2 = BELNR1.
    ENDIF.
    ENDSELECT.
IF BUKRS2 <> SPACE AND BELNR2 <> SPACE.
   SELECT BELNR FROM BSEG INTO BELNR1
   WHERE AUGBL = BELNR2
   AND BUKRS = BUKRS2.
   IF BELNR1 <> BELNR2.
    BELNR3 = BELNR1.
   ENDIF.
   ENDSELECT.
ENDIF.
CLEAR DISTA.
CLEAR DMBTR1.
IF BELNR3 <> SPACE.
SELECT DMBTR HKONT SHKZG FROM BSEG INTO (DMBTR1, HKONT1, SHKZG1)
          WHERE BELNR = BELNR3
          AND BUKRS = BUKRS2.
     IF HKONT1 =  '0000820000'.
      FLAG = 1.
           IF SHKZG1 = 'S'.
              DMBTR1 = -1 * DMBTR1.
           ENDIF.
       IF DMBTR1 <> 0.
          DISTA = DISTA + DMBTR1.
       ELSE.
          DISTA = 0.
       ENDIF.
    ENDIF.
    CLEAR DMBTR1.
   ENDSELECT.
ENDIF.
IF FLAG = 0.
*else. "new line
IF BELNR2 <> SPACE.
SELECT DMBTR HKONT SHKZG FROM BSEG INTO (DMBTR1, HKONT1, SHKZG1)
          WHERE BELNR = BELNR2
          AND BUKRS = BUKRS2.
     IF HKONT1 =  '0000820000'.
           IF SHKZG1 = 'S'.
              DMBTR1 = -1 * DMBTR1.
           ENDIF.
       IF DMBTR1 <> 0.
          DISTA = DISTA + DMBTR1.
       ELSE.
          DISTA = 0.
       ENDIF.
    ENDIF.
    CLEAR DMBTR1.
   ENDSELECT.
ENDIF.
ENDIF.   "new line----
ENDIF.
End Of ASR # 8269 RKSHARMA----
    ENDIF.
    CLEAR BSEG.
  ENDSELECT.
ENDFORM.                               " GET_DATA_FOR_DISCOUNT_TAKEN
*&      Form  GET_DATA_FOR_DISCOUNT_LOST
      text
-->  p1        text
<--  p2        text
FORM GET_DATA_FOR_DISCOUNT_LOST.
Start Commented by JASSI on 04/14/04 - ASR# 23240
DISTOT = DISER.
DISTOT = DISTOT+0(13).
DISLO = DISTOT - DISTA.
End Commented by JASSI on 04/14/04 - ASR# 23240
Inserted By Jassi on 04/14/04 - ASR# 23240
Fetch the Data for Discount Lost from
Table 'REGUH' - Payment data from payment program
  SELECT SINGLE * FROM REGUH WHERE LAUFD = PAYR-LAUFD AND
                                   LAUFI = PAYR-LAUFI AND
                                   ZBUKR = PAYR-ZBUKR AND
                                   LIFNR = PAYR-LIFNR AND
                                   KUNNR = PAYR-KUNNR AND
                                   EMPFG = PAYR-EMPFG AND
                                   VBLNR = PAYR-VBLNR .
  IF SY-SUBRC = 0.
    DISLO = REGUH-SKVHW.
  ENDIF.
End of Insertion on 04/14/04 - ASR# 23240
ENDFORM.                               " GET_DATA_FOR_DISCOUNT_LOST

Answer 1

Hi,
I had exactly the same error on printout.
My case was that if the print out is more than 10 pages, the page number was printed as ’*/21' instead of '10/21'.
And the total quantity was not displayed correctly when return.
I asked my ABAPer to check again how wide the space is for being reserved for the total quantity and page number.
As ABAPer increased the space, it solved this problem.
Regards,