Plz Check Code!!!!!

Question

Dear All,
Below is my code given but in output screen it does not show any value of ceratain fields like KOSTL,BELNR,BLDAT,WRBTR,DMBTR,BDIFF from BSID table.
Can anybody go through the program and let me know where is the error and where I am mistaking.
Regards,
Abhay.
REPORT rfdopr00
       MESSAGE-ID fr
       LINE-SIZE  132
       NO STANDARD PAGE HEADING.
TABLES:   b0sg,
          kna1,                        "Daten auf Mandantenebene
          KNKA,
            knb1,                      "Daten auf Buchungskreisebene
              knb4,                    "Zahlungsverhalten
              knb5,                    "Mahndaten
            KNKK,    "Kreditkontrolle
              knc1,                    "Verkehrszahlen
              knc3,                    "Sonderumsätze
              bsid,                    "Offend Posten
              BKPF,
                BSEG,
                       bsega.
TABLES:
          bhdgd,
          t001,
          t001s,
          *t001s,
          t074t,
          t074u,
          tbsl,
          tbslt,
          tcurx,
          adrs,
          rfpdo,
          rfsdo,
          RFPOSXEXT,
          faede.
FIELD-SYMBOLS: .
*Hilfsfelder
*---Prüfung ob mehrere Hauswährungen verarbeitet werden.
DATA:    cfakt(3)      TYPE p,
         checksaldo(8) TYPE p,
         checksald1(8) TYPE p,
         checksald2(8) TYPE p,
         checksald3(8) TYPE p,
         checksald4(8) TYPE p,
         checkagobl(8) TYPE p,
         waers         LIKE t001-waers,
         wflag(1)      TYPE p VALUE '0',
         waers2        LIKE t001-waers,
         wflag2(1)     TYPE p VALUE '0',
         ph-line(132)  TYPE c.
*---Ermittlung aktuelles Geschäftsjahr über Funktionsbaustein.
DATA: curry LIKE bsid-gjahr.
*-Ermittlung Zahlungseingang bei Zahlungen mit Skontoabzug--
DATA: zvtage LIKE knb4-vzs01,          "Verzugstage
      zvskonto(8) TYPE p,     "Zahlungsvolumen bei Zahlung mit Skonto
      zvnetto(8)  TYPE p,              "Zahlungsvolumen bei Nettozahlung
      zvverzug(8) TYPE p,              "Verzugstage
      zvmalvz(10) TYPE p,              "Zahlungvolumen * Verzugstage
                                       "KNB4-VZSxx)
      zvtyp(1)    TYPE c,              "Skonto oder Nettozahler
    ZVPER(4)    TYPE C.     "Periode letze Zahlung
      zvper(6)    TYPE c.              "Periode letze Zahlung
*---Zeilenanzahl fü Adressausgabe -
DATA: zeilenanzahl LIKE adrs-anzzl VALUE 7.
DATA: ksaldo(6)  TYPE p,               "Saldovortrag
      beabzug(6) TYPE p,               "Berechtigte Abzüge
      ubabzug(6) TYPE p,               "Unberechtigte Abzüge
      jahraug(6) TYPE p,               "Kumulierter Jahresausgleich
      kumzins(6) TYPE p.               "Kumulierter Zins
Ausgabe der Mahndaten pro Buchungskreis.
DATA: index(2) TYPE p VALUE 0.
Hilfsfelder
DATA: hf(1)    TYPE c.
DATA: txt_1(78) TYPE c,                "Mahnbereich
      txt_2(78) TYPE c,                "Mahnart
      txt_3(78) TYPE c,                "Mahnempfänger
      txt_4(78) TYPE c,                "Mahndatum
      txt_5(78) TYPE c,                "Mahnstufe
      txt_6(78) TYPE c,                "Mahnsperre
      txt_7(78) TYPE c,                "Mahnverfahren
      txt_8(78) TYPE c.                "Sachbearbeiter
DATA: BEGIN OF xmahn OCCURS 10.
        INCLUDE STRUCTURE knb5.
DATA: END OF xmahn.
Hilfsfeld für Sicherung der knka Felder
*ATA: SAVE_KLIMG LIKE KNKA-KLIMG,   "Gesamtlimit
    SAVE_KLIME LIKE KNKA-KLIME,   "Einzellimit
    SAVE_WAERS LIKE KNKA-WAERS,   "Währung
    SAVE_DLAUS LIKE KNKA-DLAUS.   "letzte Auskunft
Hilfsfelder
DATA: char1(1)   TYPE c.
DATA: flag1(1)   TYPE c.
DATA: intens(1)  TYPE c.
DATA: rastza(1)  TYPE c.
*---- K o n s t a n t e n -
*---- DNULL zum Vergleich mit Datumsfeldern -
DATA: dnull(8) TYPE c VALUE '00000000'.
*---- DECKBLATT = 'N' ==> Kein Deckblatt bei NEW-SECTION -
DATA: deckblatt TYPE c VALUE 'N'.
*---- 'H' =   Hilfsfelder, die jederzeit fuer Berechnungen ver-  -
*---- wendet werden koennen. -
DATA: BEGIN OF h,
        stichtag(8),
        offset(2) TYPE p,
        offse1(2) TYPE p,
        soll      LIKE knc1-um01s,
        haben     LIKE knc1-um01h,
        saldo     LIKE knc1-umsav,
        shbkz     LIKE knc3-shbkz,     "Sonderhauptbuchkennzeichen
        saldv     LIKE knc3-saldv,     "Sonderhauptbuch-Saldovortrag
        shbls     LIKE knc3-solll,     "Sonderhauptbuch-Lfd.-Saldo
        shbsl     LIKE knc3-solll,     "Sonderhauptbuch-Lfd.-SOLL
        shbhb     LIKE knc3-habnl,     "Sonderhauptbuch-Lfd.-HABEN
      GBNUM     LIKE KNC1-GBN01,    "Geschaeftsber. Nummer ECKERT
      GBUMS     LIKE KNC1-GBU01,    "Geschaeftsber. Umsatz
        text(15),
        umlow     LIKE bsid-umskz,     "Umsatzkennzeichen
        umhig     LIKE bsid-umskz,     "Umsatzkennzeichen
**************AB*******
        kostl LIKE bsid-kostl,
        belnr LIKE bsid-belnr,
        bldat LIKE bsid-bldat,
        wrbtr LIKE bsid-wrbtr,
        bdiff LIKE bsid-bdiff,
**************AB*******
      END   OF h.
---- 'C' =   Zwischenergebnisse, die aus Feldern des C-Segmentes ---
*---- berechnet werden. -
DATA: BEGIN OF c,
        saldo     TYPE p,              "Saldo
      WEXOB     TYPE P,         "Wechsel-Obligo        W,S,B
      ANZOB     TYPE P,         "Anzahlungs-Obligo     A
      ZANFB     TYPE P,         "Zahlungs-Anforderung  F
        umkz1     LIKE knc3-shbkz,                          "SHBKZ 1
        sums1     TYPE p,              "Sonderumsatz 1
        umkz2     LIKE knc3-shbkz,                          "SHBKZ 2
        sums2     TYPE p,              "Sonderumsatz 2
        umkz3     LIKE knc3-shbkz,                          "SHBKZ 3
        sums3     TYPE p,              "Sonderumsatz 3
        umkz4     LIKE knc3-shbkz,                          "SHBKZ 4
        sums4     TYPE p,              "Sonderumsatz 4
        umkz5     LIKE knc3-shbkz,                          "SHBKZ 5
        sums5     TYPE p,              "Sonderumsatz 5
        umkz6     LIKE knc3-shbkz,                          "SHBKZ 6
        sums6     TYPE p,              "Sonderumsatz 6
        umkz7     LIKE knc3-shbkz,                          "SHBKZ 7
        sums7     TYPE p,              "Sonderumsatz 7
        umkz8     LIKE knc3-shbkz,                          "SHBKZ 8
        sums8     TYPE p,              "Sonderumsatz 8
        umkz9     LIKE knc3-shbkz,                          "SHBKZ 9
        sums9     TYPE p,              "Sonderumsatz 9
        umkz10    LIKE knc3-shbkz,                          "SHBKZ 10
        sums10    TYPE p,              "Sonderumsatz 10
        sonob     TYPE p,              "Sonstige Umsatz-Kz
        babzg     TYPE p,              "Berechtigte Abzuege
        uabzg     TYPE p,              "Unberechtigte Abzuege
        kzins     TYPE p,              "Zinszahlungen
        kumum     TYPE p,              "Umsatz
        kumag     TYPE p,              "Kum. Jahresausgleich
      KREUEB    TYPE P,         "Kreditueberschreitung
      AGOBLI    TYPE P,         "Gesamt-Obligo (absolut)
        agobli LIKE knc1-umsav,        "Gesamt-Obligo (absolut)
      RGOBLI    TYPE P,         "Gesamt-Obligo (relativ)
        lftage(3) TYPE p,              "Langfristige Überzugstage
        mftage(3) TYPE p,              "Mittelfristige Überzugstage
        kftage(3) TYPE p,              "Kurzfristige Überzugstage
        zvtyp(1)    TYPE c,            "Flag Skonto oder Nettozahler
        zvper(6)    TYPE c,            "letze Zahlungsperiode
        zvverzug(8) TYPE p,            "Durchschittliche Verzugst
      END   OF c.
---- 'C2'=   Zwischenergebnisse, die aus Feldern des C-Segmentes ---
*---- berechnet werden. -
DATA: BEGIN OF c2 OCCURS 0,
        bukrs     LIKE knc1-bukrs,
        saldo     TYPE p,              "Saldo
      WEXOB     TYPE P,         "Wechsel-Obligo        W,S,B
      ANZOB     TYPE P,         "Anzahlungs-Obligo     A
      ZANFB     TYPE P,         "Zahlungs-Anforderung  F
        umkz1     LIKE knc3-shbkz,                          "SHBKZ 1
        sums1     TYPE p,              "Sonderumsatz 1
        umkz2     LIKE knc3-shbkz,                          "SHBKZ 2
        sums2     TYPE p,              "Sonderumsatz 2
        umkz3     LIKE knc3-shbkz,                          "SHBKZ 3
        sums3     TYPE p,              "Sonderumsatz 3
        umkz4     LIKE knc3-shbkz,                          "SHBKZ 4
        sums4     TYPE p,              "Sonderumsatz 4
        umkz5     LIKE knc3-shbkz,                          "SHBKZ 5
        sums5     TYPE p,              "Sonderumsatz 5
        umkz6     LIKE knc3-shbkz,                          "SHBKZ 6
        sums6     TYPE p,              "Sonderumsatz 6
        umkz7     LIKE knc3-shbkz,                          "SHBKZ 7
        sums7     TYPE p,              "Sonderumsatz 7
        umkz8     LIKE knc3-shbkz,                          "SHBKZ 8
        sums8     TYPE p,              "Sonderumsatz 8
        umkz9     LIKE knc3-shbkz,                          "SHBKZ 9
        sums9     TYPE p,              "Sonderumsatz 9
        umkz10    LIKE knc3-shbkz,                          "SHBKZ 10
        sums10    TYPE p,              "Sonderumsatz 10
        sonob     TYPE p,              "Sonstige Umsatz-Kz
        babzg     TYPE p,              "Berechtigte Abzuege
        uabzg     TYPE p,              "Unberechtigte Abzuege
        kzins     TYPE p,              "Zinszahlungen
        kumum     TYPE p,              "Umsatz
        kumag     TYPE p,              "Kum. Jahresausgleich
      KREUEB    TYPE P,         "Kreditueberschreitung
      AGOBLI    TYPE P,         "Gesamt-Obligo (absolut)
        agobli LIKE knc1-umsav,        "Gesamt-Obligo (absolut)
      RGOBLI    TYPE P,         "Gesamt-Obligo (relativ)
        lftage(3) TYPE p,              "Langfristige Überzugstage
        mftage(3) TYPE p,              "Mittelfristige Überzugstage
        kftage(3) TYPE p,              "Kurzfristige Überzugstage
        zvtyp(1)    TYPE c,            "Flag Skonto oder Nettozahler
        zvper(6)    TYPE c,            "letze Zahlungsperiode
        zvverzug(8) TYPE p,            "Durchschittliche Verzugst
      END   OF c2.
---- 'C3'=   Zwischenergebnisse, die aus Feldern des C-Segmentes ---
*---- berechnet werden. -
DATA: BEGIN OF c3,
        saldo     TYPE p,              "Saldo
      WEXOB     TYPE P,         "Wechsel-Obligo        W,S,B
      ANZOB     TYPE P,         "Anzahlungs-Obligo     A
      ZANFB     TYPE P,         "Zahlungs-Anforderung  F
        umkz1     LIKE knc3-shbkz,                          "SHBKZ 1
        sums1     TYPE p,              "Sonderumsatz 1
        umkz2     LIKE knc3-shbkz,                          "SHBKZ 2
        sums2     TYPE p,              "Sonderumsatz 2
        umkz3     LIKE knc3-shbkz,                          "SHBKZ 3
        sums3     TYPE p,              "Sonderumsatz 3
        umkz4     LIKE knc3-shbkz,                          "SHBKZ 4
        sums4     TYPE p,              "Sonderumsatz 4
        umkz5     LIKE knc3-shbkz,                          "SHBKZ 5
        sums5     TYPE p,              "Sonderumsatz 5
        umkz6     LIKE knc3-shbkz,                          "SHBKZ 6
        sums6     TYPE p,              "Sonderumsatz 6
        umkz7     LIKE knc3-shbkz,                          "SHBKZ 7
        sums7     TYPE p,              "Sonderumsatz 7
        umkz8     LIKE knc3-shbkz,                          "SHBKZ 8
        sums8     TYPE p,              "Sonderumsatz 8
        umkz9     LIKE knc3-shbkz,                          "SHBKZ 9
        sums9     TYPE p,              "Sonderumsatz 9
        umkz10    LIKE knc3-shbkz,                          "SHBKZ 10
        sums10    TYPE p,              "Sonderumsatz 10
        sonob     TYPE p,              "Sonstige Umsatz-Kz
        babzg     TYPE p,              "Berechtigte Abzuege
        uabzg     TYPE p,              "Unberechtigte Abzuege
        kzins     TYPE p,              "Zinszahlungen
        kumum     TYPE p,              "Umsatz
        kumag     TYPE p,              "Kum. Jahresausgleich
      KREUEB    TYPE P,         "Kreditueberschreitung
      AGOBLI    TYPE P,         "Gesamt-Obligo (absolut)
        agobli LIKE knc1-umsav,        "Gesamt-Obligo (absolut)
      RGOBLI    TYPE P,         "Gesamt-Obligo (relativ)
      LFTAGE(3) TYPE P,         "Langfristige Überzugstage
      MFTAGE(3) TYPE P,         "Mittelfristige Überzugstage
      KFTAGE(3) TYPE P,         "Kurzfristige Überzugstage
      ZVTYP(1)    TYPE C,       "Flag Skonto oder Nettozahler
      ZVPER(6)    TYPE C,       "letze Zahlungsperiode
      ZVVERZUG(8) TYPE P,       "Durchschittliche Verzugst
      END   OF c3.
DATA: shbetrag LIKE bsega-dmshb.       "TYPE P.
*---- 'RTAB' = Rastertabelle fuer offene Posten -
DATA: BEGIN OF rtab OCCURS 30,
        sortk(1)   TYPE c,             "0 = Summe Gesber
                                       "1 = Summe aller Gesber
                                       "2 = Umsatzdaten
        bukrs LIKE bsid-bukrs,
        gsber LIKE bsid-gsber,
        waers LIKE bsid-waers,
********AB********
        kostl LIKE bsid-kostl,
        belnr LIKE bsid-belnr,
        bldat LIKE bsid-bldat,
        wrbtr LIKE bsid-wrbtr,
        bdiff LIKE bsid-bdiff,
********AB********
        raart TYPE c,                  "Rasterart
                                       "1 = Netto-Faelligkeit
                                       "2 = Skonto1-Faelligkeit
                                       "3 = Zahlungseingang
                                       "4 = Belegalter
                                       "5 = Ueber-Faelligkeit
        kumum TYPE p,                  "Umsatz
        anzah TYPE p,                  "Anzahlungen
        opsum TYPE p,                  "Offene Posten Summe
        rast1 TYPE p,                  "Rasterfeld 1
        rast2 TYPE p,                  "Rasterfeld 2
        rast3 TYPE p,                  "Rasterfeld 3
        rast4 TYPE p,                  "Rasterfeld 4
        rast5 TYPE p,                  "Rasterfeld 5
        rast6 TYPE p,                  "Rasterfeld 6
      COUNT TYPE P,                  "count für Gesber
      END   OF rtab.
*---- 'RBUS' = Rastertabelle fuer Summen pro Sachbearbeiter -
DATA: BEGIN OF rbus OCCURS 30,
        sortk(1)   TYPE c,             "0 = Summe Gesber
                                       "1 = Summe aller Gesber
                                       "2 = Umsatzdaten
        bukrs LIKE bsid-bukrs,
        gsber LIKE bsid-gsber,
        waers LIKE bsid-waers,
        raart TYPE c,                  "Rasterart
                                       "1 = Netto-Faelligkeit
                                       "2 = Skonto1-Faelligkeit
                                       "3 = Zahlungseingang
                                       "4 = Ueber-Faelligkeit
        kumum TYPE p,                  "Umsatz
        anzah TYPE p,                  "Anzahlungen
        opsum TYPE p,                  "Offene Posten Summe
        rast1 TYPE p,                  "Rasterfeld 1
        rast2 TYPE p,                  "Rasterfeld 2
        rast3 TYPE p,                  "Rasterfeld 3
        rast4 TYPE p,                  "Rasterfeld 4
        rast5 TYPE p,                  "Rasterfeld 5
        rast6 TYPE p,                  "Rasterfeld 6
      COUNT TYPE P,             "count für Gesber
      END   OF rbus.
*---- 'RBUK' = Rastertabelle fuer Summen pro Buchungskreis  -
DATA: BEGIN OF rbuk OCCURS 30,
        sortk(1)   TYPE c,             "0 = Summe Gesber
                                       "1 = Summe aller Gesber
                                       "2 = Umsatzdaten
        bukrs LIKE bsid-bukrs,
        gsber LIKE bsid-gsber,
        waers LIKE bsid-waers,
        raart TYPE c,                  "Rasterart
                                       "1 = Netto-Faelligkeit
                                       "2 = Skonto1-Faelligkeit
                                       "3 = Zahlungseingang
                                       "4 = Ueber-Faelligkeit
        kumum TYPE p,                  "Umsatz
        anzah TYPE p,                  "Anzahlungen
        opsum TYPE p,                  "Offene Posten Summe
        rast1 TYPE p,                  "Rasterfeld 1
        rast2 TYPE p,                  "Rasterfeld 2
        rast3 TYPE p,                  "Rasterfeld 3
        rast4 TYPE p,                  "Rasterfeld 4
        rast5 TYPE p,                  "Rasterfeld 5
        rast6 TYPE p,                  "Rasterfeld 6
      COUNT TYPE P,             "count für Gesber
      END   OF rbuk.
---- 'RSUM' = Rastertabelle pro Währung über alle Buchungskreise ---
DATA: BEGIN OF rsum OCCURS 30,
        sortk(1)   TYPE c,             "0 = Summe Gesber
                                       "1 = Summe aller Gesber
      BUKRS LIKE BSID-BUKRS,
      GSBER LIKE BSID-GSBER,
        waers LIKE bsid-waers,
        raart TYPE c,                  "Rasterart
                                       "1 = Netto-Faelligkeit
                                       "2 = Skonto1-Faelligkeit
                                       "3 = Zahlungseingang
                                       "4 = Ueber-Faelligkeit
        kumum TYPE p,                  "Umsatz
        anzah TYPE p,                  "Anzahlungen
        opsum TYPE p,                  "Offene Posten Summe
        rast1 TYPE p,                  "Rasterfeld 1
        rast2 TYPE p,                  "Rasterfeld 2
        rast3 TYPE p,                  "Rasterfeld 3
        rast4 TYPE p,                  "Rasterfeld 4
        rast5 TYPE p,                  "Rasterfeld 5
        rast6 TYPE p,                  "Rasterfeld 6
      COUNT TYPE P,             "count für Gesber
      END   OF rsum.
*---- interne Tabelle für Periodenabgrenzung----
RANGES: bmonat FOR rfpdo-doprbmon.
*---- interne Tabelle für Kreditkontrollbereichsdaten----
*ATA: BEGIN OF KREDK OCCURS 10,
      KKBER LIKE KNKK-KKBER, "Kreditkontrollbereich
      UEDAT LIKE KNKK-UEDAT, "Datum Kreditlimitüberschreitung
      KLIMK LIKE KNKK-KLIMK, "Kreditkontrollbereichslimit
      SSOBL LIKE KNKK-SSOBL, "Relevantes Sonderobligo
      SAUFT LIKE KNKK-SAUFT, "Summe Auftragswerte
      SKFOR LIKE KNKK-SKFOR, "Summe Forderungen
    END OF KREDK.
---- interne Tabellen für Konsistenzcheck Kreditkontrollbereiche ---
*ATA: BEGIN OF KKBERSEL OCCURS 10,
      KKBER LIKE KNKK-KKBER, "Kreditkontrollbereich
    END OF KKBERSEL.
*ATA: BEGIN OF KKBERGES OCCURS 10,
      KKBER LIKE KNKK-KKBER, "Kreditkontrollbereich
      BUKRS LIKE T001-BUKRS, "Buchungskreis
    END OF KKBERGES.
---- In die Felder RP01 bis RP05 werden dynamisch die von aussen ---
*---- eingegebenen Rasterpunkte uebertragen -
DATA: rp01(2)   TYPE p,                                     "   0
      rp02(2)   TYPE p,                                     "  20
      rp03(2)   TYPE p,                                     "  40
      rp04(2)   TYPE p,                                     "  80
      rp05(2)   TYPE p,                                     " 100
      rp06(2)   TYPE p,                                     "   1
      rp07(2)   TYPE p,                                     "  21
      rp08(2)   TYPE p,                                     "  41
      rp09(2)   TYPE p,                                     "  81
      rp10(2)   TYPE p.                                     " 101
*---- In die Felder RC01 bis RC10 werden die Rasterpunkte in -
---- charakterform abgestellt. (fuer REPLACE-Funktion in Variabler -
*---- Ueberschrift) -
DATA: rc01(4)   TYPE c,                                     "  0
      rc02(4)   TYPE c,                                     "  20
      rc03(4)   TYPE c,                                     "  40
      rc04(4)   TYPE c,                                     "  80
      rc05(4)   TYPE c,                                     " 100
      rc06(4)   TYPE c,                                     "   1
      rc07(4)   TYPE c,                                     "  21
      rc08(4)   TYPE c,                                     "  41
      rc09(4)   TYPE c,                                     "  81
      rc10(4)   TYPE c.                                     " 101
*---- Felder für Umsatzkennzeichen -
*---- für Ausweis der Sonderumsätze----
DATA: humkz1    LIKE knc3-shbkz,
      humkz2    LIKE knc3-shbkz,
      humkz3    LIKE knc3-shbkz,
      humkz4    LIKE knc3-shbkz,
      humkz5    LIKE knc3-shbkz,
      humkz6    LIKE knc3-shbkz,
      humkz7    LIKE knc3-shbkz,
      humkz8    LIKE knc3-shbkz,
      humkz9    LIKE knc3-shbkz,
      humkz10   LIKE knc3-shbkz.
*---- 'GAG' = Hilfsfelder für die Berechnung der Gauss'chen  -
*---- Ausgleichsgeraden. ( Trend ) -
DATA:BEGIN OF gag OCCURS 5,
              f     TYPE c,            "1 = langfristig
                                       "2 = mittelfristig
                                       "3 = kurzfristig
                                       "4 = letzter Vorgang
              d(4)  TYPE p,            "Mitteldatum
              t(4)  TYPE p,            "MW Überzgustage
              u(8)  TYPE p,            "MW Umsatz
              ut(8) TYPE p,            "MW Umsatz * Tage
              dt(8) TYPE p,            "MW Datum  * Tage
              dd(8) TYPE p,            "MW Datum  * Datum
     END OF gag.
*---- Weitere Hilfsfelder für die Berechnung der Gauss'chen  -
*---- Ausgleichsgeraden. ( Trend ) -
DATA:         lz(4)  TYPE p,           "Letzte Zahlung
              dm(8)  TYPE p,           "Rechenfeld
              vw(16) TYPE p,           "Rechenfeld
              vw1(16) TYPE p,          "Rechenfeld
              vw2(16) TYPE p.          "Rechenfeld
DATA: BEGIN OF trend,
        text(7)     TYPE c,
        trendda(4)  TYPE c,
        trenddb(4)  TYPE c,
        trenddc(4)  TYPE c VALUE '/100',
      END OF trend.
DATA: BEGIN OF s,
        m(4)     TYPE p,               "Anzahl akzeptierter Mittelwerte
        d(4)     TYPE p,               "Summe (Datum)
        t(5)     TYPE p,               "Summe (Tage)
        dt(8)    TYPE p,               "Summe (Datum * Tage)
        dd(8)    TYPE p,               "Summe (Datum * Datum)
        aw(4)    TYPE p,               "Schätzwert f. akt. Überzugstage
        ae(9)    TYPE p,               "dto. aufbereitet.
        bw(4)    TYPE p,               "Tendenz Tage /100 Tage
        be(9)    TYPE p,               "dto. aufbereitet
      END OF s.
*---- E N D E der Hilfsfelder für Berechnung der Gauss'chen  -
*---- Ausgleichsgeraden. ( Trend ) -
*---- GBZAEHL - In diesem Feld wird vermerkt, fuer wieviele Ge- -
*----           schaeftsbereiche ein OP-Raster ausgegeben wird. -
----           Wird das Raster nur fuer einen Geschaeftsbereich ge- -
*----           druckt, so entfaellt das Summen-Raster. -
DATA: gbzaehl(3) TYPE p.
---- TOP-FLAG '1' = bei TOP-OF-PAGE Einzelpostenueberschrift ausg. --
*----          '2' = bei TOP-OF-PAGE Ueberschrift fuer Raster ausgeb. *
*----          '3' = bei TOP-OF-PAGE ULINE ausgeben. -
----          '4' = bei TOP-OF-PAGE Stammsatzueberschrift ausgeben --
DATA: top-flag(1) TYPE c.
*---- SEL-STAMM  'J' = Saldo Normalumsätze                            *
*---- SEL-POSTN  'J' = Stammsatz hat Posten gerastert                 *
*----            'N' = Stammsatz hat keine Posten gerastert           *
*---- SEL-POST2  'J' = Stammsatz hat Posten gerastert                 *
*----            'N' = Stammsatz hat keine Posten gerastert           *
DATA: BEGIN OF sel,
        stamm(1)  TYPE c,
        postn(1)  TYPE c,
        post2(1)  TYPE c,
      END   OF sel.
*---- SATZART  '1' = Stammdaten -
*----          '2' = Faelligkeitsraster -
*----          '3' = Einzelposten -
DATA: satzart(1) TYPE c.
*---- RART  =  Erste ausgewaehlte Rasterart -
DATA: rart(1)    TYPE c.
*---- TAGE  =  Tage nach denen die Posten sortiert sind -
DATA: tage(4)    TYPE p,
*---- NTAGE =  Tage fuer Netto-Faelligkeit -
      ntage(4)   TYPE p,
*---- STAGE =  Tage fuer Skonto1-Faelligkeit -
      stage(4)   TYPE p,
*---- ZTAGE =  Tage fuer voraussichtlichen Zahlungseingang -
      ztage(4)   TYPE p,
*---- ATAGE =  Alter der Belege -
      atage(4)   TYPE p,
*---- UTAGE =  Tage fuer Ueber-Faelligkeit -
      utage(4)   TYPE p.
*---- RASTERUU dient zur Sortierung der Einzelposten. Die Posten -
*----          gemaess ihrer Rasterung die Werte '1' bis '6' -
DATA: rasteruu(1) TYPE c.
*---- RAART  Rasterart -
---- Die einzelnen Felder der Feldleiste werden bei SART-OF-SELECTION
*---- mit 1 oder 0 bestueckt. -
*ATA: BEGIN OF RAART,
      NET(1)   TYPE C,      "X = ausgewaehlt, ' ' = nicht ausgewaehlt
      SKT(1)   TYPE C,      "X = ausgewaehlt, ' ' = nicht ausgewaehlt
      UEB(1)   TYPE C,      "X = ausgewaehlt, ' ' = nicht ausgewaehlt
    END   OF RAART.
DATA: BEGIN OF gb,
        gsber  LIKE bsid-gsber,
        waers  LIKE bsid-waers,
      END   OF gb.
*---- Variable Ueberschriften -
DATA: BEGIN OF varueb1,
        feld1(40)   TYPE c,
        feld2(14)   TYPE c,
        feld3(14)   TYPE c,
        feld4(14)   TYPE c,
        feld5(14)   TYPE c,
        feld6(14)   TYPE c,
        feld7(14)   TYPE c,
      END   OF varueb1.
DATA: BEGIN OF varueb2,
        feld1(40)   TYPE c,
        feld2(14)   TYPE c,
        feld3(14)   TYPE c,
        feld4(14)   TYPE c,
        feld5(14)   TYPE c,
        feld6(14)   TYPE c,
        feld7(14)   TYPE c,
      END   OF varueb2.
DATA: varueb3(132),
      varueb4(132),
      vartxt1(40),
      vartxt(40)  TYPE c.
*---- Variable für Ausgabe der Sonderumsätze----
DATA: shbbez LIKE t074t-ltext.
DATA: asums  TYPE p.                                        "
*---- Interne Tabelle für Bezeichnungen der SHBKZ----
DATA: BEGIN OF bezshb OCCURS 10,
        shbkz LIKE t074t-shbkz,
        ltext LIKE t074t-ltext,
      END OF bezshb.
*---- Interne Tabelle für Zwischenspeicherung -
DATA: BEGIN OF blkey,
        bukrs LIKE bsid-bukrs,
        belnr LIKE bsid-belnr,
        gjahr LIKE bsid-gjahr,
        buzei LIKE bsid-buzei,
      END   OF blkey.
DATA: BEGIN OF rtage,
        ntage LIKE ntage,
        stage LIKE stage,
        ztage LIKE ztage,
        atage LIKE atage,
        utage LIKE utage,
     END   OF rtage.
DATA: BEGIN OF hbsid OCCURS 10.
        INCLUDE STRUCTURE bsid.
        INCLUDE STRUCTURE bsega.
        INCLUDE STRUCTURE rtage.
DATA: END   OF hbsid.
DATA: BEGIN OF refbl OCCURS 10.
        INCLUDE STRUCTURE blkey.
        INCLUDE STRUCTURE rtage.
DATA: END   OF refbl.
DATA: BEGIN OF hknb1 OCCURS 10.
        INCLUDE STRUCTURE knb1.
DATA: END   OF hknb1.
DATA: BEGIN OF ht001 OCCURS 10.
        INCLUDE STRUCTURE t001.
DATA: END   OF ht001.
*---- Interne Tabelle für Ausgabe der Obligos -
DATA: BEGIN OF aobligo OCCURS 12,
        obart TYPE c,             "Flag für Obligoart 1 = Kontokorrent
                                       "                   2 = SHBKZ
                                  "                   3 = sonstige SHB
        shbkz LIKE t074t-shbkz,        "SHB-Kennzeichen
        ltext LIKE t074t-ltext,        "Bezeichnung
        oblig TYPE p,                  "Obligobetrag
      END OF aobligo.
*---- Declarationen für Accessibility /ALV GRID -
DATA: acc_mode TYPE c.
DATA: uebtext(22) TYPE c.
DATA: uektext(15)  TYPE c.
DATA: tittext(100) TYPE c.
DATA: dattext(10) TYPE c.
DATA: BEGIN OF rtab_alv OCCURS 30,
      SORTK(1)   TYPE C,             "0 = Summe Gesber
                                     "1 = Summe aller Gesber
                                     "2 = Umsatzdaten
        bukrs LIKE bsid-bukrs,
        kunnr LIKE kna1-kunnr,
        busab LIKE knb1-busab,
        sortl LIKE kna1-sortl,
        land1 LIKE kna1-land1,
        gsber LIKE bsid-gsber,
        waers LIKE bsid-waers,
      hwaer like rf140-hwaer,
        raart LIKE rf140-raart,        "Rasterart
      shkzg like bsid-shkzg,
      XGUTS TYPE C,                  "Gutschrift
        kumum LIKE rf140-kumumhw,      "Umsatz
        anzah LIKE rf140-anzbthw,      "Anzahlungen
        opsum LIKE rf140-gsaldd,       "Offene Posten Summe
       belnr LIKE rf140-belnr,
        rast1 LIKE rf140-rast1,        "Rasterfeld 1
        rast2 LIKE rf140-rast2,        "Rasterfeld 2
        rast3 LIKE rf140-rast3,        "Rasterfeld 3
        rast4 LIKE rf140-rast4,        "Rasterfeld 4
        rast5 LIKE rf140-rast5,        "Rasterfeld 5
        rast6 LIKE rf140-rast6,        "Rasterfeld 6
************AB*****
        kostl LIKE bsid-kostl,
        belnr LIKE bsid-belnr,
        bldat LIKE bsid-bldat,
        wrbtr LIKE bsid-wrbtr,
        bdiff LIKE bsid-bdiff,
************AB*****
      END   OF rtab_alv.
*"General Data
TYPE-POOLS: slis.
*DATA: BEGIN OF GT_OUTTAB OCCURS 0.
       INCLUDE STRUCTURE rtab_alv.
*DATA: END OF GT_OUTTAB.
DATA: gs_layout TYPE slis_layout_alv,
     G_EXIT_CAUSED_BY_CALLER,
     GS_EXIT_CAUSED_BY_USER TYPE SLIS_EXIT_BY_USER,
      g_repid LIKE sy-repid,
      g_grid_title TYPE  lvc_title.
*"Callback
*Data: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
     G_STATUS_SET   TYPE SLIS_FORMNAME VALUE 'PF_STATUS_SET',
DATA: g_user_command TYPE slis_formname VALUE 'USER_COMMAND'.
     G_TOP_OF_PAGE  TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
     G_TOP_OF_LIST  TYPE SLIS_FORMNAME VALUE 'TOP_OF_LIST',
     G_END_OF_LIST  TYPE SLIS_FORMNAME VALUE 'END_OF_LIST'.
*"Variants
DATA: gs_variant LIKE disvariant,
      g_save.
Global structure of list
fieldcatalog
DATA:   ls_fieldcat TYPE slis_fieldcat_alv.
DATA:   gt_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
sort
*DATA:   GT_SORT     TYPE SLIS_T_SORTINFO_ALV.
events
*DATA:   GT_EVENTS   TYPE SLIS_T_EVENT.
*----- Structure for specific color settings -
*DATA:   COL_TAB_T TYPE SLIS_T_SPECIALCOL_ALV,
       COL_TAB   TYPE SLIS_SPECIALCOL_ALV.
DATA:   g_tabname TYPE slis_tabname VALUE 'RTAB_ALV'.
print
*DATA:   GS_PRINT    TYPE SLIS_PRINT_ALV.
*---- FIELD-GROUPS                            -
FIELD-GROUPS:
          header,
          stammdaten,
          op-raster,
          einzelposten.
INSERT
  knb1-bukrs                           " Buchungskreis
  knb1-busab                           " Sachbearbeiter
  kna1-kunnr                           " Kontonummer
  satzart                              " Satzart
  rtab-sortk                           " Sortkz fuer Tabelle RTAB
                                       " '0' = normale Eintraege
                                       " '1' = Summeneintraege
                                       " '2' = Jahresumsatz
  gb                                   " Geschaeftsbereich
                                       " - GB-GSBER
                                       " - GB-WAERS
  rasteruu         " Kennzeichen fuer Detailposten bzw Raster
ab hier nur fuer Einzelposten -
  tage                                 " Rastertage  fuer Detailposten
  bsid-umskz                           " Umsatzkennzeichen
  bsid-blart                           " Belegart
BSID-ZUONR         " Zuordnungsnummer
  bsid-belnr                           " Belegnummer
  bsid-buzei                           " Belegzeile
************AB*****
  bsid-kostl
  bsid-belnr
  bsid-bldat
  bsid-wrbtr
  bsid-bdiff
************AB*****
INTO header.
INSERT
Addressdaten
  adrs-line0                           " 1. Zeile Adressenaufbereitung
  adrs-line1                           " 2. "     "
  adrs-line2                           " 3. "     "
  adrs-line3                           " 4. "     "
  adrs-line4                           " 5. "     "
  adrs-line5                           " 6. "     "
  adrs-line6                           " 7. "     "
ADRS-LINE7         " 8. "     "
ADRS-LINE8         " 9. "     "
ADRS-LINE9         " 10."     "
Umsatzdaten
  c-kumum                              " Umsatz
  c-babzg                              " Berechtigt. Abzuege
  c-uabzg                              " Unberechtigt. Abzuege
  c-kzins                              " Zinszahlungen
  c-kumag                              " Kum. Jahresausgleich
Warenkreditversicherung
  knb1-vrsnr                           " Vertragsnummer
  knb1-vrbkz                           " Institutsnummer
  knb1-vlibb                           " Versicherungssumme
  knb1-verdt                           " Gültig bis
  knb1-vrszl                           " Ziel-Monate
  knb1-vrspr                           " Selbstbeiteiligung in %
Obligos
  c-saldo                              " Saldo ohne SHB-Vorgänge
C-WEXOB          " Wechselobligo
C-ANZOB          " Anzahlungsobligo
C-ZANFB          " Zahlungsanforderungen
  c-umkz1                                                   "SHBKZ 1
  c-sums1                              "Sonderumsatz 1
  c-umkz2                                                   "SHBKZ 2
  c-sums2  

Answer 1

Hi,
cost center/profit center is not shown in BSID , this depends on ur functional settings.
Fetch these values from BSEG, providing the max possible key fields