Plz Check Code!!!!!

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  

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

Similar Messages

  • Error while posting " gl account is relevant to tax; check code"

    Dear Experts
    During invoice booking while posting into GL the warning message appears "" Gl account is relevant to tax; check code" and this is making our work a bit tough , please check why this message is coming.
    as previously it was not there.
    Regards,
    Charmaine Martin

    Dear:
                I have a solution and i hope this will resolve your issue. Please follow as given under.
    Use transaction OBA5 and enter FS as Area. You will find message no 219 there please keep the following settings against it
    Keep User name as Blank
    and for Online - Batch - (- means message will be turned off). If you do not find Message No 219 then please go to new entry and do the settings as mentioned above.\
    Regards

  • Check Code (PK) When type in to text field,Exist or not

    Hi,
    i want to create a Language Master.I have take two fields LAN_CODE and LAN_NAME in LANG_MASTER Table. Here LAN_CODE is my Primary Key.
    Now problem is when i type New LAN_CODE into Text Field Item and when i press Submit then it show me Error LAN_CODE Already Exist .
    I need when i Type New LAN_CODE in Language Code TEXT FIELD then it should be check LAN_CODE Already Exist or not. if LAN_CODE Already Exist .then Cursor should not point (go) to Next Item.
    My LAN_CODE Formate is
    HIE-------Hindi
    ENG------English
    PAN------PANJABI
    How can i check code when i type new code in to text field.Code Exist or Not.
    How can i do this.
    Thanks
    Vedant
    Edited by: Vedant on Jun 2, 2011 11:39 PM

    Hi Paul ,
    Thanks to reply me.
    I have created a form with report and
    i did apply that code ,It's working BUt Now Problem is when i press TAB then it's show me error Value Already Exit But Here it's change into APPLY_CHANGE Mode .
    How can i prevent to page not in Apply Change Mode.
    i want when TAB Press and check for Duplicate VAlue it should be in Create New Language Mode.
    How can i do this.
    Thanks
    Vedant
    Edited by: Vedant on Jun 5, 2011 11:19 PM

  • I can not download my adobe reader,the checking code always failed. W7 SYSTEM.

    I can not download my adobe reader,the checking code always failed. MY COMPUTER IN W7 SYSTEM.

    wanghuaqiong wrote:
    I can not download my adobe reader,the checking code always failed. MY COMPUTER IN W7 SYSTEM.
    Sorry, I don't understand the checking code part. Could you please give more details?

  • Check code conventions

    Anyone seen or have any ideas about using javadoc to check code for code conventions compliance? I read about use of it to report source where variables are not declareed private (http://www.smotricz.com/kabutz/Issue035.html) - it might be interesting to apply this to other conventions such as variable and method naming.

    No ideas here. We have a DocCheck doclet, but that checks only doc comments, not the
    code itself: http://java.sun.com/javadoc/doccheck
    A doclet based on javadoc 1.3.x could only check the declarations of code and not its
    implementation, because it does not have access to the implementation through the
    Doclet API. With 1.4, the Doclet API gives the source position (file, line number) of the
    code, which a doclet could then access and check the implementation.
    -Doug Kramer
    Javadoc team

  • [svn] 2260: Fix for version checking code not always detecting calls to newer functions .

    Revision: 2260
    Author: [email protected]
    Date: 2008-06-26 12:42:39 -0700 (Thu, 26 Jun 2008)
    Log Message:
    Fix for version checking code not always detecting calls to newer functions.
    flex checkintests pass
    Modified Paths:
    flex/sdk/trunk/modules/asc/src/java/macromedia/asc/semantics/ConstantEvaluator.java
    flex/sdk/trunk/modules/asc/src/java/macromedia/asc/semantics/ReferenceValue.java

    Revision: 2260
    Author: [email protected]
    Date: 2008-06-26 12:42:39 -0700 (Thu, 26 Jun 2008)
    Log Message:
    Fix for version checking code not always detecting calls to newer functions.
    flex checkintests pass
    Modified Paths:
    flex/sdk/trunk/modules/asc/src/java/macromedia/asc/semantics/ConstantEvaluator.java
    flex/sdk/trunk/modules/asc/src/java/macromedia/asc/semantics/ReferenceValue.java

  • How can i check code?

    how can i check code ?

    If you've forgotten the passcode to unlock your iPad then you will need to reset the iPad (it's not stored anywhere) : http://support.apple.com/kb/HT1212

  • Table Control Sort doesnt  work , plz check my code

    Hello
      Flag is defined thr in TCL1 attribute list(checked) w/selColumn & value is FLAG ,also defined as char in prog
      But syntax error is "No component exist with the name FLAg "
       Plz correct me .
       REPORT ZSD_REP_ORDER_BANK_CHANGE NO STANDARD PAGE HEADING LINE-SIZE 255.
    TABLES: VBAK,VBAP,VBRK,ZSD_TABL_ORDBANK,MARA,KONV.
    CONTROLS: TCL1 TYPE TABLEVIEW USING SCREEN 0200.
    DATA: ITAB LIKE ZSD_TABL_ORDBANK OCCURS 0 WITH HEADER LINE,
          WA_ITAB LIKE ZSD_TABL_ORDBANK,
          OK_CODE LIKE SY-UCOMM,
          SAVE_OK_CODE LIKE SY-UCOMM,
          ANSWER TYPE C,
          I LIKE SY-LOOPC ,
          J LIKE SY-LOOPC,
          V_LINES LIKE SY-LOOPC,
          LINE_COUNT LIKE SY-LOOPC,
          STS  TYPE N,
          FLAG,
          EMGRP LIKE MARA-EXTWG,
          QTY LIKE ZSD_TABL_ORDBANK-QTY,
          UPRICE LIKE ZSD_TABL_ORDBANK-UPRICE,
          TOT LIKE ZSD_TABL_ORDBANK-TOT,
          INO LIKE VBAP-POSNR.
    FIELD-SYMBOLS:
         <FS_ITAB> LIKE LINE OF ITAB,
         <FS_TCL1> LIKE LINE OF TCL1-COLS.
    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
      SELECT-OPTIONS: S_CCODE FOR ZSD_TABL_ORDBANK-CCODE
                              NO INTERVALS NO-EXTENSION  OBLIGATORY,
                      S_SORG  FOR ZSD_TABL_ORDBANK-SORG
                              NO INTERVALS NO-EXTENSION  OBLIGATORY,
                      S_DCHAN FOR ZSD_TABL_ORDBANK-DISTCHAN,
                      S_DIV FOR ZSD_TABL_ORDBANK-DIV,
                      S_MATNO FOR ZSD_TABL_ORDBANK-MATNO,
                      S_CUSTNO FOR ZSD_TABL_ORDBANK-CUSTNO ,
                      S_QTNO FOR ZSD_TABL_ORDBANK-QTNO,
                      S_QTDAT FOR ZSD_TABL_ORDBANK-QTDAT,
                      S_QTVDAT FOR ZSD_TABL_ORDBANK-QTVALDAT,
                      S_SONO   FOR ZSD_TABL_ORDBANK-SONO.
    SELECTION-SCREEN END OF BLOCK b1.
    AT SELECTION-SCREEN.
       SELECT * FROM  ZSD_TABL_ORDBANK
                   INTO  TABLE ITAB
                   WHERE CCODE IN S_CCODE
                     AND SORG IN  S_SORG
                     AND DISTCHAN IN  S_DCHAN
                     AND DIV IN S_DIV
                     AND MATNO IN  S_MATNO
                     AND CUSTNO IN  S_CUSTNO
                     AND QTNO IN  S_QTNO
                     AND QTDAT IN  S_QTDAT
                     AND QTVALDAT IN  S_QTVDAT
                     AND SONO IN  S_SONO .
          IF SY-SUBRC EQ 0.
             REFRESH ITAB.
             CALL SCREEN 0200.
          ELSE.
             MESSAGE E012(ZQOTBANK) .
          ENDIF.
    *&      Module  SET_STATUS  OUTPUT
          text
    MODULE SET_STATUS OUTPUT.
      SET PF-STATUS '0200'.
      SET TITLEBAR '0200'.
          SELECT * FROM  ZSD_TABL_ORDBANK
                   INTO  TABLE ITAB
                   WHERE CCODE IN S_CCODE
                     AND SORG IN  S_SORG
                     AND DISTCHAN IN  S_DCHAN
                     AND DIV IN S_DIV
                     AND MATNO IN  S_MATNO
                     AND CUSTNO IN  S_CUSTNO
                     AND QTNO IN  S_QTNO
                     AND QTDAT IN  S_QTDAT
                     AND QTVALDAT IN  S_QTVDAT
                     AND SONO IN  S_SONO .
          IF SY-SUBRC EQ 0.
            DESCRIBE TABLE ITAB LINES V_LINES.
            TCL1-LINES = V_LINES.
          ENDIF.
          LOOP AT ITAB.
             QTY = ITAB-QTY.
             UPRICE  = ITAB-UPRICE.
             TOT = QTY * UPRICE .
             ITAB-TOT = TOT .
             CLEAR: QTY, UPRICE, TOT.
             QTY = ITAB-CGL_QTY.
             UPRICE  = ITAB-CGL_UPRICE.
             TOT = QTY * UPRICE .
             ITAB-CGL_TOT = TOT .
             CLEAR: QTY, UPRICE, TOT.
             QTY = ITAB-BHEL_QTY.
             UPRICE  = ITAB-BHEL_UPRICE.
             TOT = QTY * UPRICE .
             ITAB-BHEL_TOT = TOT .
             CLEAR: QTY, UPRICE, TOT.
             QTY = ITAB-ALSTOM_QTY.
             UPRICE  = ITAB-ALSTOM_UPRICE.
             TOT = QTY * UPRICE .
             ITAB-ALSTOM_TOT = TOT .
             CLEAR: QTY, UPRICE, TOT.
             QTY = ITAB-SIEMENS_QTY.
             UPRICE  = ITAB-SIEMENS_UPRICE.
             TOT = QTY * UPRICE .
             ITAB-SIEMENS_TOT = TOT .
             CLEAR: QTY, UPRICE, TOT.
             QTY = ITAB-TELK_QTY.
             UPRICE  = ITAB-TELK_UPRICE.
             TOT = QTY * UPRICE .
             ITAB-TELK_TOT = TOT .
             CLEAR: QTY, UPRICE, TOT.
             QTY = ITAB-OTH_QTY.
             UPRICE  = ITAB-OTH_UPRICE.
             TOT = QTY * UPRICE .
             ITAB-OTH_TOT = TOT .
             CLEAR: QTY, UPRICE, TOT.
             MODIFY ITAB.
          ENDLOOP.
    ENDMODULE.                 " SET_STATUS  OUTPUT
    *&      Module  SET_LINE_COUNT  INPUT
          text
    MODULE SET_LINE_COUNT OUTPUT.
      LINE_COUNT = SY-LOOPC.
    ENDMODULE.                 " SET_LINE_COUNT  INPUT
    *&      Module SCROLL INPUT
          text
    MODULE SCROLL_SORT INPUT.
    SAVE_OK_CODE = OK_CODE.
    CLEAR OK_CODE.
    CASE SAVE_OK_CODE.
      WHEN 'P--'.
          TCL1-TOP_LINE = 1.
      WHEN 'P-'.
          TCL1-TOP_LINE = TCL1-TOP_LINE - LINE_COUNT.
          IF TCL1-TOP_LINE LE 0.
             TCL1-TOP_LINE = 1.
          ENDIF.
      WHEN 'P+'.
          I = TCL1-TOP_LINE + LINE_COUNT.
          J = TCL1-LINES - LINE_COUNT + 1.
          IF J LE 0.
             J = 1.
          ENDIF.
          IF I LE J.
             TCL1-TOP_LINE = I.
          ELSE.
             TCL1-TOP_LINE = J.
          ENDIF.
      WHEN 'P++'.
          TCL1-TOP_LINE = TCL1-LINES - LINE_COUNT + 1.
          IF TCL1-TOP_LINE LE 0.
              TCL1-TOP_LINE = 1.
          ENDIF.
      WHEN 'SORTUP'.
          READ TABLE TCL1-COLS ASSIGNING <FS_TCL1> WITH KEY FLAG = 'X'.
          IF SY-SUBRC = 0.
              SORT ITAB ASCENDING BY (<FS_TCL1>-screen-name+5).
          ENDIF.
      WHEN 'SORTDN'.
          READ TABLE TCL1-COLS ASSIGNING <FS_TCL1> WITH KEY FLAG = 'X'.
          IF SY-SUBRC = 0.
              SORT ITAB DESCENDING BY (<FS_TCL1>-screen-name+5).
          ENDIF.
      ENDCASE.
    ENDMODULE.                 " USER_COMMAND  INPUT
    *&      Module  UPDATE_MOD  INPUT
          text
    MODULE UPDATE_MOD INPUT.
    CASE OK_CODE.
    WHEN 'SAVE'.
          UPDATE ZSD_TABL_ORDBANK FROM ITAB .
          STS = SY-SUBRC .
          IF STS NE 0.
               MESSAGE E003(ZQOTBANK) .
          ENDIF.
      ENDCASE.
    ENDMODULE.                 " UPDATE_MOD  INPUT
    *&      Module  EXIT_COMAND  INPUT
          text
    MODULE EXIT_COMAND INPUT.
    CASE OK_CODE.
        WHEN 'BACK'.
          CALL FUNCTION 'POPUP_TO_CONFIRM'
            EXPORTING
              TITLEBAR       = 'Order Bank Entry'
              TEXT_QUESTION  = 'Do you want to Go BacK ?'
              TEXT_BUTTON_1  = 'Yes'
              TEXT_BUTTON_2  = 'No'
              DEFAULT_BUTTON = '2'
            IMPORTING
              ANSWER         = ANSWER.
          IF ANSWER = '1'.
            LEAVE TO SCREEN 0.
          ELSE.
          ENDIF.
        WHEN '%EX'.
          CALL FUNCTION 'POPUP_TO_CONFIRM'
            EXPORTING
              TITLEBAR       = 'Order Bank Entry'
              TEXT_QUESTION  = 'Do you want to Exit ?'
              TEXT_BUTTON_1  = 'Yes'
              TEXT_BUTTON_2  = 'No'
              DEFAULT_BUTTON = '2'
            IMPORTING
              ANSWER         = ANSWER.
          IF ANSWER = '1'.
            LEAVE TO SCREEN 0.
          ELSE.
          ENDIF.
      ENDCASE.
    ENDMODULE.                 " EXIT_COMAND  INPUT
    Tnx advance

    Hi Moni,
    The Problem is with the READ statement.
    READ TABLE TCL1-COLS ASSIGNING <FS_TCL1> WITH KEY FLAG = 'X'.
    The structure of TCL1 is different from what you think. TCL1 will be a deep structure with an internal table COLS. Now this internal table COLS will have the  standard structure:
    SCREEN
    INDEX
    SELECTED
    VISLENGTH
    INVISIBLE
    The Read statement tries to find a field of name FLAG in the TCL1-COLS structure. Therefore you get the error.
    Try to read the COLS table with a correct key.
    Regards,
    Anand Mandalika.

  • Plz check the code

    Hi all,
    Friends please tell me what is the problem with this code.....
    It is not giving what i want.......
    I want only that row in the table to have orange background which contains the value 'check'..
    but what it does is that it sets all the other rows as orange too....
    but when i select all the rows in the table.....it does show the color of the cell which contains 'check' and the color of the rest of the cells which are set to highlight color...
    please chk the following code and let me know if there is any error...
    public class ErrorEntryCellRenderer extends DefaultTableCellRenderer {
        /** Creates a new instance of ErrorEntryCellRenderer */
        public ErrorEntryCellRenderer() {
        public Component getTableCellRendererComponent(JTable table, Object value, boolean isSelected, boolean hasFocus, int row, int column) {
            Component retValue;
            retValue = super.getTableCellRendererComponent(table, value, isSelected, hasFocus, row, column);
            if(value instanceof String) {
                if(((String)value).equalsIgnoreCase("check")) {
                    setBackground(Color.ORANGE);
                    validate();
            return retValue;
    }Thank you..
    Message was edited by:
    vaibhavpingle

    it doesnt work then...it does not paint any thing......
    i did the following changes
    public Component getTableCellRendererComponent(JTable table, Color c, Object value, boolean isSelected, boolean hasFocus, int row, int column) {
            Component retValue;
            retValue = super.getTableCellRendererComponent(table, value, isSelected, hasFocus, row, column);
            if(value instanceof String) {
                if(((String)value).equalsIgnoreCase("check")) {
                    setBackground(Color.ORANGE);
                    validate();
                } else {
                    setBackground(c);
                    validate();
            return retValue;
        }

  • Error in Code?-PlZ Check This

    Hai,
    We are getting an error in this code.We are beginners in Flex.
    Can anyone help us?
    This is our code....
    <?xml version="1.0" encoding="utf-8"?>
    <mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" creationComplete="init()">
    <mx:Script>
        <![CDATA[
            import flash.media.Camera;
            import flash.media.Microphone;
            private function init():void
                cam.dataProvider=Camera.names;
                mic.dataProvider=Microphone.names;
            private function send():void
                //var camera:Camera=Camera.getCamera();
                var micro:Microphone=Microphone.getMicrophone();
                micro.addEventListener(StatusEvent.STATUS, this.onMicStatus);
                private function onMicstatus(event:StatusEvent):void
                    if(event.code == "Microphone.Unmuted")
                        trace("Microphone access allowed");
                    else if(event.code == "Microphone.Muted")
                        trace("Microphone access denied");
        ]]>
    </mx:Script>
        <mx:Panel x="265" y="50" width="294" height="200" layout="absolute">
            <mx:VideoDisplay x="0" y="0" width="274" height="160"/>
        </mx:Panel>
        <mx:Button x="381.5" y="314" label="Start" click="send()"/>
        <mx:Text x="281" y="24" text="Username" id="uname"/>
        <mx:TextArea x="351" y="24" height="18" width="150"/>
        <mx:Text x="281" y="260" text="Camera" width="62"/>
        <mx:ComboBox x="351" y="258" width="191" id="cam"></mx:ComboBox>
        <mx:Label x="273" y="286" text="microphone"/>
        <mx:ComboBox x="351" y="284" width="191" id="mic"></mx:ComboBox>
    </mx:Application>
    ERROR:-
    1013: The private attribute may be used only on class property definitions.    videovoice/src    videovoice.mxml    line 23    1267425378537    662

    First of all, check Permit Debugging in publish settings so you can at least reference a line number. It's not very realistic to post 150 lines of code, and say guys can you check this.
    Anyway from a cursory glance it looks like you only create 27 bricks:
    for (var i=0; i<9; i++)
    for (var j=0; j<3; j++)
    bricks = new brick(i,j);
    Brick_Array.push(bricks);
    And then later you do this:
    for (var k=0; k<100; k++)
    if (Ball.hitTestObject(Brick_Array[k]))
    You don't have 100 bricks in Brick_Array.
    Also - as a matter of convention variables names should not have the first letter capitalized - that is for class naming.

  • Simple code somthings wrong plz check them:)

    code 1:
    import java.awt.*;
    class Yo {
    public static void main (String[] arg) {
    String s;
    double i;
    System.out.print("Translate to euro! Input the swedish money: "); System.out.flush();
    s = myIn.readLine();
    i = Double.parseDouble(s);
    System.out.println(i, "SEK blir" + i*9.15781 + "euro" );
    code 2:
    class Halt {
    public static void main (String[] arg) {
    System.out.print("Halt! Who goes there?"); System.out.flush();
    String s = myIn.readLine();
    System.out.println("You may pass " + s + "!");
    I think the errors are similar to eachother.. plz tell me whats wrong with the "myIn" thing:)

    why not import Scanner and use that to get user input? all you would have to do is this:
    import java.util.Scanner
    //blah blah blah
    //create the following object before you call it
    Scanner myln = new Scanner (System.in);
    //ask for user input
    double i = myln.nextDouble();
    //end output

  • Plz check the code and tell me necessary  modifications

    report Z_PHANIBDC2
           no standard page heading line-size 255.
    include bdcrecx1.
    PARAMETERS:P_FILE   LIKE RLGRAP-FILENAME DEFAULT
    'C:Documents and Settingssarath.vempatiDesktopphani1.TXT' OBLIGATORY
    DATA: BEGIN OF RECORD1 OCCURS 0,
            LIFNR(018),
            BURKS(011),
            KTOKK(014),
            ANRED(014),
            NAME1(014),
            SURTL(014),
            STRAS(012),
            ORT01(040),
            LAND1(013),
            SPRAS(019),
            KUNNR(015),
            BANKL(012),
            BANKS(018),
            AKONT(022),
            ZTERM(012),
            MAHNA(016),
    END OF RECORD1.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
    CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
       DEF_FILENAME           = 'P_FILE '
    *   DEF_PATH               = ' '
       MASK                   = ',*.*,*.*. '
       MODE                   = 'O'
       TITLE                  = 'GET FILENAME '
    IMPORTING
       FILENAME               = P_FILE
    *   RC                     =
    EXCEPTIONS
       INV_WINSYS             = 1
       NO_BATCH               = 2
       SELECTION_CANCEL       = 3
       SELECTION_ERROR        = 4
       OTHERS                 = 5
    IF SY-SUBRC <> 0.
    * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    START-OF-SELECTION.
    *LOOP AT RECORD1 FROM 2.
    CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
    *   CODEPAGE                      = ' '
       FILENAME                      = 'P_FILE '
       FILETYPE                      = 'DAT'
    *   HEADLEN                       = ' '
    *   LINE_EXIT                     = ' '
    *   TRUNCLEN                      = ' '
    *   USER_FORM                     = ' '
    *   USER_PROG                     = ' '
    *   DAT_D_FORMAT                  = ' '
    * IMPORTING
    *   FILELENGTH                    =
      TABLES
        DATA_TAB                      = RECORD1
    EXCEPTIONS
       CONVERSION_ERROR              = 1
       FILE_OPEN_ERROR               = 2
       FILE_READ_ERROR               = 3
       INVALID_TYPE                  = 4
       NO_BATCH                      = 5
       UNKNOWN_ERROR                 = 6
       INVALID_TABLE_WIDTH           = 7
       GUI_REFUSE_FILETRANSFER       = 8
       CUSTOMER_ERROR                = 9
       NO_AUTHORITY                  = 10
       OTHERS                        = 11
      DATA : RECORD LIKE RECORD1 OCCURS 0 WITH HEADER LINE.
      DATA : RECORD3 LIKE RECORD1 OCCURS 0 WITH HEADER LINE.
      DATA : LIFNR1 LIKE LFA1-LIFNR.
      LOOP AT RECORD1.
        IF RECORD1-LIFNR <> ''.
          LIFNR1 = RECORD1-LIFNR.
          RECORD3-LIFNR = RECORD1-LIFNR.
          RECORD3-BURKS = record1-BURKS.
          APPEND RECORD3.
        ELSE.
          RECORD3-LIFNR = LIFNR1.
          RECORD3-BURKS = record1-BURKS.
          APPEND RECORD3.
        ENDIF.
      ENDLOOP.
      DELETE RECORD1 WHERE LIFNR = ''.
      RECORD[] = RECORD1[].
      DATA VAR1(15).
      DATA VAR2(15).
      DATA COUNT(2).
      DATA COUNT1(2) VALUE 1.
      DATA VAR3(16).
      DATA VAR4(16).
      DATA VAR5(16).
      DELETE ADJACENT DUPLICATES FROM RECORD COMPARING LIFNR BURKS.
    write:/ 'phani'.
    *IF SY-SUBRC <> 0.
    ** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    **         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    *ENDIF.
    perform open_group.
    perform bdc_dynpro      using 'SAPMF02K' '0100'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RF02K-KTOKK'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'RF02K-LIFNR'
                                  record1-lifnr.
    perform bdc_field       using 'RF02K-BUKRS'
                                  RECORD1-BURKS.
    perform bdc_field       using 'RF02K-KTOKK'
                                  RECORD1-KTOKK.
    perform bdc_field       using 'RF02K-REF_LIFNR'
                                  RECORD1-LIFNR.
    perform bdc_field       using 'RF02K-REF_BUKRS'
                                  RECORD1-BURKS.
    perform bdc_dynpro      using 'SAPMF02K' '0110'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFA1-TELX1'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'LFA1-ANRED'
                                  'RECORD1-ANRED'.
    perform bdc_field       using 'LFA1-NAME1'
                                  'RECORD1-NAME1'.
    perform bdc_field       using 'LFA1-SORTL'
                                  'RECORD1-SORTL'.
    perform bdc_field       using 'record1-STRAS'
                                  'RECORD1-STRAS'.
    perform bdc_field       using 'LFA1-ORT01'
                                  'RECORD1-ORT01'.
    perform bdc_field       using 'LFA1-LAND1'
                                  'RECORD1-LAND1'.
    perform bdc_field       using 'LFA1-SPRAS'
                                  'RECORD1-SPRAS'.
    perform bdc_dynpro      using 'SAPMF02K' '0120'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFA1-KUNNR'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'LFA1-KUNNR'
    perform bdc_dynpro      using 'SAPMF02K' '0130'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFBK-BANKL(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ENTR'.
    perform bdc_field       using 'LFBK-BANKS(01)'
                                  'IN'.
    perform bdc_field       using 'LFBK-BANKL(01)'
                                  'RECORD1-BANKL'.
    perform bdc_dynpro      using 'SAPMF02K' '0130'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'record1-BANKS(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ENTR'.
    perform bdc_dynpro      using 'SAPMF02K' '0210'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'record1-AKONT'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_dynpro      using 'SAPMF02K' '0215'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'record1-ZTERM'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_dynpro      using 'SAPMF02K' '0220'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'record1-MAHNA'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_dynpro      using 'SAPLSPO1' '0300'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=YES'.
    perform bdc_transaction using 'XK01'.
    perform close_group.

    report Z_PHANIBDC2
           no standard page heading line-size 255.
    include bdcrecx1.
    DATA: BEGIN OF RECORD1 OCCURS 0,
            LIFNR(018),
            BURKS(011),
            KTOKK(014),
            ANRED(014),
            NAME1(014),
            SURTL(014),
            STRAS(012),
            ORT01(040),
            LAND1(013),
            SPRAS(019),
            KUNNR(015),
            BANKL(012),
            BANKS(018),
            AKONT(022),
            ZTERM(012),
            MAHNA(016),
    END OF RECORD1.
    <b>perform upload.</b>
    perform open_group.
    loop at recored.
    perform bdc_dynpro      using 'SAPMF02K' '0100'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'RF02K-KTOKK'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'RF02K-LIFNR'
                                  record1-lifnr.
    perform bdc_field       using 'RF02K-BUKRS'
                                  RECORD1-BURKS.
    perform bdc_field       using 'RF02K-KTOKK'
                                  RECORD1-KTOKK.
    perform bdc_field       using 'RF02K-REF_LIFNR'
                                  RECORD1-LIFNR.
    perform bdc_field       using 'RF02K-REF_BUKRS'
                                  RECORD1-BURKS.
    perform bdc_dynpro      using 'SAPMF02K' '0110'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFA1-TELX1'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'LFA1-ANRED'
                                  'RECORD1-ANRED'.
    perform bdc_field       using 'LFA1-NAME1'
                                  'RECORD1-NAME1'.
    perform bdc_field       using 'LFA1-SORTL'
                                  'RECORD1-SORTL'.
    perform bdc_field       using 'record1-STRAS'
                                  'RECORD1-STRAS'.
    perform bdc_field       using 'LFA1-ORT01'
                                  'RECORD1-ORT01'.
    perform bdc_field       using 'LFA1-LAND1'
                                  'RECORD1-LAND1'.
    perform bdc_field       using 'LFA1-SPRAS'
                                  'RECORD1-SPRAS'.
    perform bdc_dynpro      using 'SAPMF02K' '0120'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFA1-KUNNR'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_field       using 'LFA1-KUNNR'
    perform bdc_dynpro      using 'SAPMF02K' '0130'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'LFBK-BANKL(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ENTR'.
    perform bdc_field       using 'LFBK-BANKS(01)'
                                  'IN'.
    perform bdc_field       using 'LFBK-BANKL(01)'
                                  'RECORD1-BANKL'.
    perform bdc_dynpro      using 'SAPMF02K' '0130'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'record1-BANKS(01)'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=ENTR'.
    perform bdc_dynpro      using 'SAPMF02K' '0210'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'record1-AKONT'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_dynpro      using 'SAPMF02K' '0215'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'record1-ZTERM'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_dynpro      using 'SAPMF02K' '0220'.
    perform bdc_field       using 'BDC_CURSOR'
                                  'record1-MAHNA'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '/00'.
    perform bdc_dynpro      using 'SAPLSPO1' '0300'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=YES'.
    perform bdc_transaction using 'XK01'.
    endloop.
    perform close_group.
    <b>form upload.</b>
    CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      CODEPAGE                      = ' '
       FILENAME                       = ' '
       FILETYPE                      = 'DAT'
      HEADLEN                       = ' '
      LINE_EXIT                     = ' '
      TRUNCLEN                      = ' '
      USER_FORM                     = ' '
      USER_PROG                     = ' '
      DAT_D_FORMAT                  = ' '
    IMPORTING
      FILELENGTH                    =
      TABLES
        DATA_TAB                      = RECORD1
    EXCEPTIONS
       CONVERSION_ERROR              = 1
       FILE_OPEN_ERROR               = 2
       FILE_READ_ERROR               = 3
       INVALID_TYPE                  = 4
       NO_BATCH                      = 5
       UNKNOWN_ERROR                 = 6
       INVALID_TABLE_WIDTH           = 7
       GUI_REFUSE_FILETRANSFER       = 8
       CUSTOMER_ERROR                = 9
       NO_AUTHORITY                  = 10
       OTHERS                        = 11
      DATA : RECORD LIKE RECORD1 OCCURS 0 WITH HEADER LINE.
      DATA : RECORD3 LIKE RECORD1 OCCURS 0 WITH HEADER LINE.
      DATA : LIFNR1 LIKE LFA1-LIFNR.
      LOOP AT RECORD1.
        IF RECORD1-LIFNR <> ''.
          LIFNR1 = RECORD1-LIFNR.
          RECORD3-LIFNR = RECORD1-LIFNR.
          RECORD3-BURKS = record1-BURKS.
          APPEND RECORD3.
        ELSE.
          RECORD3-LIFNR = LIFNR1.
          RECORD3-BURKS = record1-BURKS.
          APPEND RECORD3.
        ENDIF.
      ENDLOOP.
      DELETE RECORD1 WHERE LIFNR = ''.
      RECORD[] = RECORD1[].
      DATA VAR1(15).
      DATA VAR2(15).
      DATA COUNT(2).
      DATA COUNT1(2) VALUE 1.
      DATA VAR3(16).
      DATA VAR4(16).
      DATA VAR5(16).
      DELETE ADJACENT DUPLICATES FROM RECORD COMPARING LIFNR BURKS.
    write:/ 'phani'.
    *IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    *ENDIF.
    endform.

  • Plz check the report ?

    hi,
    i writen the report by using bolck alvs  then iam not getting the field value in RS_SELFELD structure so that iam not able to check condition like
    if rs_selfield-fieldname = 'vbeln'.
    so that to rectify this is there any other solution plz send with code. iam also sending source code.
    REPORT  ZSSALV_BLOCKED.
    TYPE-POOLS : SLIS.
    TYPES: BEGIN OF ST_VBAK,
           VBELN TYPE VBAK-VBELN,
           ERDAT TYPE VBAK-ERDAT,
           VBTYP TYPE VBAK-VBTYP,
           NETWR TYPE VBAK-NETWR,
           WAERK TYPE VBAK-WAERK,
           END OF ST_VBAK.
    TYPES: BEGIN OF ST_VBAP,
           VBELN TYPE VBAP-VBELN,
           POSNR TYPE VBAP-POSNR,
           MATNR TYPE VBAP-MATNR,
           MATKL TYPE VBAP-MATKL,
           POSAR TYPE VBAP-POSAR,
           MEINS TYPE VBAP-MEINS,
           END OF ST_VBAP.
    DATA: IT_VBAK     TYPE TABLE OF ST_VBAK,
          W_VBAK      TYPE ST_VBAK,
          IT_VBAP     TYPE TABLE OF ST_VBAP,
          IT_TABLE    TYPE SLIS_TABNAME,
          W_VBAP      TYPE ST_VBAP,
          IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
          W_FIELDCAT  TYPE SLIS_FIELDCAT_ALV,
          W_IS_LAYOUT TYPE SLIS_LAYOUT_ALV,
          IT_EVENT    TYPE SLIS_T_EVENT,
          REPID       TYPE SY-REPID.
    REPID = SY-REPID.
    REFRESH IT_VBAK.
    SELECT VBELN ERDAT VBTYP NETWR WAERK FROM VBAK INTO TABLE IT_VBAK UP TO 10 ROWS.
    W_FIELDCAT-FIELDNAME  = 'VBELN'.
    W_FIELDCAT-COL_POS    = '1'.
    W_FIELDCAT-SELTEXT_L  = 'SALES_DOCU_NO'.
    APPEND W_FIELDCAT TO IT_FIELDCAT.
    CLEAR W_FIELDCAT.
    W_FIELDCAT-FIELDNAME  = 'ERDAT'.
    W_FIELDCAT-COL_POS    = '2'.
    W_FIELDCAT-SELTEXT_L  = 'SALES_DOCU_DATE'.
    APPEND W_FIELDCAT TO IT_FIELDCAT.
    CLEAR W_FIELDCAT.
    W_FIELDCAT-FIELDNAME  = 'VBTYP'.
    W_FIELDCAT-COL_POS    = '3'.
    W_FIELDCAT-SELTEXT_L  = 'SALES_DOCU_TYPE'.
    APPEND W_FIELDCAT TO IT_FIELDCAT.
    CLEAR W_FIELDCAT.
    W_FIELDCAT-FIELDNAME  = 'NETWR'.
    W_FIELDCAT-COL_POS    = '4'.
    W_FIELDCAT-SELTEXT_L  = 'NET_VALUE'.
    APPEND W_FIELDCAT TO IT_FIELDCAT.
    CLEAR W_FIELDCAT.
    W_FIELDCAT-FIELDNAME  = 'WAERK'.
    W_FIELDCAT-COL_POS    = '5'.
    W_FIELDCAT-SELTEXT_L  = 'CURRENCY'.
    APPEND W_FIELDCAT TO IT_FIELDCAT.
    CLEAR W_FIELDCAT.
    W_IS_LAYOUT-ZEBRA = 'X'.
    W_IS_LAYOUT-NO_VLINE = 'X'.
          CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
            EXPORTING
              I_CALLBACK_PROGRAM             = REPID
            I_CALLBACK_PF_STATUS_SET       = ' '
             I_CALLBACK_USER_COMMAND        = 'USER_COMMAND'
            IT_EXCLUDING                   =
       CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
        EXPORTING
          IS_LAYOUT                        = W_IS_LAYOUT
          IT_FIELDCAT                      = IT_FIELDCAT
          I_TABNAME                        = IT_TABLE
          IT_EVENTS                        = IT_EVENT
        TABLES
          T_OUTTAB                         = IT_VBAK
       EXCEPTIONS
         PROGRAM_ERROR                    = 1
         MAXIMUM_OF_APPENDS_REACHED       = 2
         OTHERS                           = 3.
         CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
         EXCEPTIONS
            PROGRAM_ERROR                 = 1
            OTHERS                        = 2
    FORM user_command  USING r_ucomm LIKE sy-ucomm
                          rs_selfield TYPE slis_selfield.
    DATA:  IT_TABLE1     TYPE SLIS_TABNAME,
           IT_EVENT1     TYPE SLIS_T_EVENT,
           IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
           W_FIELDCAT1  TYPE SLIS_FIELDCAT_ALV,
           W_IS_LAYOUT1 TYPE SLIS_LAYOUT_ALV.
      CASE R_UCOMM.
      WHEN '&IC1'.
        IF RS_SELFIELD-FIELDNAME = 'VBELN' .
        REFRESH IT_VBAP.
        SELECT VBELN POSNR MATNR MATKL POSAR MEINS FROM VBAP INTO TABLE IT_VBAP WHERE VBELN = RS_SELFIELD-VALUE.
       ENDIF.
      ENDCASE.
    W_FIELDCAT1-FIELDNAME  = 'VBELN'.
    W_FIELDCAT1-COL_POS    = '1'.
    W_FIELDCAT1-SELTEXT_L  = 'SALES'.
    APPEND W_FIELDCAT1 TO IT_FIELDCAT1.
    CLEAR W_FIELDCAT1.
    W_FIELDCAT1-FIELDNAME  = 'POSNR'.
    W_FIELDCAT1-COL_POS    = '2'.
    W_FIELDCAT1-SELTEXT_L  = 'ITEM_NOS'.
    APPEND W_FIELDCAT1 TO IT_FIELDCAT1.
    CLEAR W_FIELDCAT1.
    W_FIELDCAT1-FIELDNAME  = 'MATNR'.
    W_FIELDCAT1-COL_POS    = '3'.
    W_FIELDCAT1-SELTEXT_L  = 'MATERIAL_TYPE'.
    APPEND W_FIELDCAT1 TO IT_FIELDCAT1.
    CLEAR W_FIELDCAT1.
    W_FIELDCAT1-FIELDNAME  = 'MATKL'.
    W_FIELDCAT1-COL_POS    = '4'.
    W_FIELDCAT1-SELTEXT_L  = 'MATKL'.
    APPEND W_FIELDCAT1 TO IT_FIELDCAT1.
    CLEAR W_FIELDCAT1.
    W_FIELDCAT1-FIELDNAME  = 'POSAR'.
    W_FIELDCAT1-COL_POS    = '5'.
    W_FIELDCAT1-SELTEXT_L  = 'POSAR'.
    APPEND W_FIELDCAT1 TO IT_FIELDCAT1.
    CLEAR W_FIELDCAT1.
    W_FIELDCAT1-FIELDNAME  = 'MEINS'.
    W_FIELDCAT1-COL_POS    = '6'.
    W_FIELDCAT1-SELTEXT_L  = 'MEINS'.
    APPEND W_FIELDCAT1 TO IT_FIELDCAT1.
    CLEAR W_FIELDCAT1.
    W_IS_LAYOUT1-ZEBRA = 'X'.
    W_IS_LAYOUT1-NO_VLINE = 'X'.
    CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
      EXPORTING
        IS_LAYOUT                        = W_IS_LAYOUT1
        IT_FIELDCAT                      = IT_FIELDCAT1
        I_TABNAME                        = IT_TABLE1
        IT_EVENTS                        = IT_EVENT1
      TABLES
        T_OUTTAB                         = IT_VBAP
    EXCEPTIONS
       PROGRAM_ERROR                    = 1
       MAXIMUM_OF_APPENDS_REACHED       = 2
       OTHERS                           = 3.
    ENDIF.
      CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
       EXCEPTIONS
         PROGRAM_ERROR                 = 1
         OTHERS                        = 2.
      REFRESH IT_VBAP.
    ENDFORM.
    bye.

    Hi Abhay,
    check if you are taking work area for every Internal Table in Smartform or not .
    just have to drag and drop that work area field into the position you want to display
    <i>Reward Points if it helps solves query .</i>
    Regards,
    Amber S

  • Check code ( urgent help needed from ABAP guys working on FI/CO)

    hi all,
    check my code & give me solution for getting only offsetting acounts depending on particular HKONT.
    plz i need its solution urgently.
    REPORT zglaccline NO STANDARD PAGE HEADING                              
                       LINE-SIZE 300                                         
                       LINE-COUNT 65(3).                                                                               
    TABLES : bkpf, bseg.                                                                               
    DATA : BEGIN OF it_bkpf OCCURS 0,                                       
            bukrs LIKE bkpf-bukrs,                                           
            belnr LIKE bkpf-belnr,                                           
            gjahr LIKE bkpf-gjahr,                                           
            monat LIKE bkpf-monat,                                           
            budat LIKE bkpf-budat,                                           
            brnch LIKE bkpf-brnch,                                           
            xblnr LIKE bkpf-xblnr,                                           
            waers LIKE bkpf-waers,                                           
            END OF it_bkpf.                                                                               
    DATA : BEGIN OF it_bseg OCCURS 0,                                        
    gsber LIKE bseg-gsber,                                                   
    hkont LIKE bseg-hkont,                                                   
    kunnr LIKE bseg-kunnr,                                                   
    sgtxt LIKE bseg-sgtxt,                                                   
    bschl LIKE bseg-bschl,                                                   
    wrbtr LIKE bseg-wrbtr,                                                   
    dmbtr LIKE bseg-dmbtr,                                                   
    pswsl LIKE bseg-pswsl,                                                   
    kostl LIKE bseg-kostl,                                                   
    prctr LIKE bseg-prctr,                                                   
    aufnr LIKE bseg-aufnr,                                                   
    shkzg LIKE bseg-shkzg,                                                   
    augbl LIKE bseg-augbl,                                                   
    END OF it_bseg.                                                                               
    DATA : BEGIN OF it_res OCCURS 0,                                           
    bukrs LIKE bkpf-bukrs,                                                    
    gjahr LIKE bkpf-gjahr,                                                    
    monat LIKE bkpf-monat,                                                    
    belnr LIKE bkpf-belnr,                                                    
    budat LIKE bkpf-budat,                                                    
    brnch LIKE bkpf-brnch,                                                    
    gsber LIKE bseg-gsber,                                                    
    hkont LIKE bseg-hkont,                                                    
    kunnr LIKE bseg-kunnr,                                                    
    bschl LIKE bseg-bschl,                                                    
    prctr LIKE bseg-prctr,                                                    
    kostl LIKE bseg-kostl,                                                    
    aufnr LIKE bseg-aufnr,                                                    
    pswsl LIKE bseg-pswsl,                                                    
    wrbtr LIKE bseg-wrbtr,                                                                               
    waers LIKE bkpf-waers,                                                 
    dmbtr LIKE bseg-dmbtr,                                                 
    xblnr LIKE bkpf-xblnr,                                                 
    txt50 LIKE skat-txt50,                                                 
    sgtxt LIKE bseg-sgtxt,                                                 
    shkzg LIKE bseg-shkzg,                                                 
    END OF it_res.                                                                               
    DATA : BEGIN OF itab_head OCCURS 0,                                     
           name1(20) TYPE c,                                                
           END OF itab_head.                                                
    SELECTION-SCREEN BEGIN OF BLOCK b_2 WITH FRAME TITLE text-002.          
    PARAMETERS : p_sel1 RADIOBUTTON GROUP sel,                              
                 p_sel2 RADIOBUTTON GROUP sel,                              
                 p_sel3 RADIOBUTTON GROUP sel.                              
    SELECTION-SCREEN END OF BLOCK b_2.                                      
    SELECTION-SCREEN SKIP 1.                                                
    SELECTION-SCREEN BEGIN OF BLOCK b_1 WITH FRAME TITLE text-001.          
    PARAMETER p_bukrs LIKE bkpf-bukrs DEFAULT 'ML' OBLIGATORY.              
    SELECT-OPTIONS : s_belnr FOR bkpf-belnr.                                
    SELECT-OPTIONS : s_gjahr FOR bkpf-gjahr OBLIGATORY.                     
    SELECT-OPTIONS : s_monat FOR bkpf-monat.                                
    SELECT-OPTIONS : s_blart FOR bkpf-blart.                                
    SELECT-OPTIONS : s_budat FOR bkpf-budat.                                
    SELECT-OPTIONS : s_waers FOR bkpf-waers.                                
    SELECT-OPTIONS : s_hkont FOR bseg-hkont.                                
    SELECT-OPTIONS : s_bldat FOR bkpf-bldat.                                
    SELECTION-SCREEN END OF BLOCK b_1.                                                                               
    SELECT bukrs belnr gjahr monat budat brnch xblnr waers                  
       INTO CORRESPONDING FIELDS OF TABLE it_bkpf                           
       FROM bkpf                                                            
       WHERE bukrs = p_bukrs                                                
       AND belnr IN s_belnr                                                 
       AND gjahr IN s_gjahr                                                 
       AND monat IN s_monat                                                 
       AND blart IN s_blart                                                 
       AND budat IN s_budat                                                 
       AND bldat IN s_bldat                                                 
       AND waers IN s_waers.                                                                               
    IF NOT it_bkpf[] IS INITIAL.                                            
      LOOP AT it_bkpf.                                                      
    IF p_sel1 = 'X'.                                                        
        SELECT gsber hkont kunnr sgtxt bschl wrbtr pswsl kostl shkzg        
                            dmbtr prctr aufnr augdt augbl                               
           INTO CORRESPONDING FIELDS OF TABLE it_bseg                       
           FROM bseg                                                        
           WHERE bukrs = it_bkpf-bukrs                                      
           AND belnr   = it_bkpf-belnr                                      
           AND gjahr   = it_bkpf-gjahr                                      
           AND pswsl   = it_bkpf-waers                                      
           AND hkont  IN s_hkont.                                           
    ELSEIF p_sel2 = 'X'.                                                    
        SELECT gsber hkont kunnr sgtxt bschl wrbtr pswsl kostl shkzg        
                dmbtr prctr aufnr augdt augbl                               
           INTO CORRESPONDING FIELDS OF TABLE it_bseg                       
           FROM bseg                                                        
           WHERE bukrs = it_bkpf-bukrs                                      
           AND belnr   = it_bkpf-belnr                                      
           AND gjahr   = it_bkpf-gjahr                                      
           AND pswsl   = it_bkpf-waers.                                    
          AND koart <> 'S'.                                              
    ENDIF.                                                                 
        IF sy-subrc EQ 0.                                                  
          LOOP AT it_bseg.                                                 
            SELECT SINGLE txt50 INTO it_res-txt50                          
                 FROM skat                                                 
                 WHERE spras = 'EN'                                        
                 AND   ktopl = 'PCA'                                       
                 AND   saknr = it_bseg-hkont.                                                                               
    it_res-bukrs = it_bkpf-bukrs.                                  
            it_res-gjahr = it_bkpf-gjahr.                                  
            it_res-monat = it_bkpf-monat.                                  
            it_res-gsber = it_bseg-gsber.                                  
            it_res-belnr = it_bkpf-belnr.                                  
            it_res-budat = it_bkpf-budat.                                  
            it_res-brnch = it_bkpf-brnch.                                  
            it_res-kunnr = it_bseg-kunnr.                                  
            it_res-hkont = it_bseg-hkont.                                  
            it_res-sgtxt = it_bseg-sgtxt.                                  
            it_res-bschl = it_bseg-bschl.                                  
            it_res-wrbtr = it_bseg-wrbtr.                                  
            it_res-pswsl = it_bseg-pswsl.                                  
            it_res-waers = it_bkpf-waers.                                  
            it_res-dmbtr = it_bseg-dmbtr.                                  
            it_res-kostl = it_bseg-kostl.                                  
            it_res-prctr = it_bseg-prctr.                                  
            it_res-aufnr = it_bseg-aufnr.                                  
            it_res-shkzg = it_bseg-shkzg.                                  
           it_res-augbl = it_bseg-augbl.                                 
            it_res-xblnr = it_bkpf-xblnr.                                  
            APPEND it_res.                                                 
            CLEAR it_res.                                                  
          ENDLOOP.                                                         
          CLEAR it_bkpf.                                                   
        ENDIF.                                                             
      ENDLOOP.                                                             
    ENDIF.                                                                 
    LOOP AT it_res.                                                        
      IF it_res-shkzg EQ 'H'.                                              
        it_res-wrbtr = it_res-wrbtr * -1.                                  
        it_res-dmbtr = it_res-dmbtr * -1.                                  
      ENDIF.                                                               
      WRITE : /2(4) it_res-bukrs,                                          
               13(4) it_res-gjahr,                                         
               21(2) it_res-monat,                                         
               31(10) it_res-belnr,                                        
               44(10) it_res-budat,                                        
               55(4) it_res-brnch,                                         
               60(4) it_res-gsber,                                          
               70(10) it_res-hkont,                                         
               82(10) it_res-kunnr,                                         
               94(2) it_res-bschl,                                          
               104(10) it_res-prctr,                                        
              116(10)  it_res-kostl,                                        
              128(12)  it_res-aufnr,                                        
              142(5)  it_res-pswsl,                                         
              148(13)  it_res-wrbtr,                                        
              164(5)  it_res-waers,                                         
              170(13)  it_res-dmbtr,                                        
             187(16)   it_res-xblnr,                                        
              205(50)  it_res-sgtxt.                                        
      MODIFY it_res.                                                        
      CLEAR it_res.                                                         
    ENDLOOP.                                                                
    plz give soltuion i am looking for it.
    i will aslo reward all ur precious effort.
    otherwise if anyone have any code on my reqirement then plz send it to me in my id- [email protected]
    thanks
    Message was edited by: sanjeev singh

    Hi
    You should a selection in BSIS and BSAS table instead of BKPF and BSEG:
    DATA : BEGIN OF it_res OCCURS 0,
    bukrs LIKE bkpf-bukrs,
    gjahr LIKE bkpf-gjahr,
    monat LIKE bkpf-monat,
    belnr LIKE bkpf-belnr,
    budat LIKE bkpf-budat,
    brnch LIKE bkpf-brnch,
    gsber LIKE bseg-gsber,
    hkont LIKE bseg-hkont,
    kunnr LIKE bseg-kunnr,
    bschl LIKE bseg-bschl,
    prctr LIKE bseg-prctr,
    kostl LIKE bseg-kostl,
    aufnr LIKE bseg-aufnr,
    pswsl LIKE bseg-pswsl,
    wrbtr LIKE bseg-wrbtr,
    waers LIKE bkpf-waers,
    dmbtr LIKE bseg-dmbtr,
    xblnr LIKE bkpf-xblnr,
    txt50 LIKE skat-txt50,
    sgtxt LIKE bseg-sgtxt,
    shkzg LIKE bseg-shkzg,
    END OF it_res.
    Open Item
    SELECT *
    INTO CORRESPONDING FIELDS OF TABLE it_res
    FROM <b>BSIS</b>
    WHERE bukrs = p_bukrs
    <b>AND HKONT IN S_HKONT</b>
    AND belnr IN s_belnr
    AND gjahr IN s_gjahr
    AND monat IN s_monat
    AND blart IN s_blart
    AND budat IN s_budat
    AND bldat IN s_bldat
    AND waers IN s_waers.
    Cleared Item
    SELECT *
    APPENDING CORRESPONDING FIELDS OF TABLE it_res
    FROM <b>BSAS</b>
    WHERE bukrs = p_bukrs
    <b>AND HKONT IN S_HKONT</b>
    AND belnr IN s_belnr
    AND gjahr IN s_gjahr
    AND monat IN s_monat
    AND blart IN s_blart
    AND budat IN s_budat
    AND bldat IN s_bldat
    AND waers IN s_waers.
    Max
    Message was edited by: max bianchi

  • Check code inspector results after release

    Hello experts,
    I introduced the Code Inspector upon release of a workbench transport request.
    All transport requests are released by developers, but the team lead sometimes wants to very the result afterwards.
    Is there a way to get the code inspector results after a few days after the release?
    Thanks a lot.
    Dimitri

    Dear Dimitri,
    You can test released transport via SCII just as you can test unreleased transports.
    Go to SCII, check 'Request/Task' and give the name of the released transport in the Object Selection tab and press F8 or the execute button.
    I know that this is long after you asked the question but perhaps somebody here can use the information.
    Regards,
    Hans

Maybe you are looking for

  • Decimal characters

    Hi, We have many varchar2 columns in the database which can contain, for example '24.00' (here "." is the decimal separator), but when i run the following query on my machine i got that error SQL> select to_number('24.99') from dual; select to_number

  • Best Solution for Photo Galleries?

    Hi - Just wondering if there is anyone out there that has any other kind of photo gallery in Contribute other than the linking from a thumbnail to a larger image in a new window. I'm looking for a solution that will allow for using something that is

  • Reports Development in 12.1.3

    Hey guys I want to develop customize reports in oracle EBS 12.1.3, which developer suite is better to you ?? my database version is 11g Regards Hussain

  • "Insufficient Bandwidth Problem" and "Did not respond" error messages

    I am getting 3 error messages when I try to video chat using isight and ichat with my son's PC (which does video chat with my husband's PC) I have not been able to video chat although I can instant message with my son's PC. 1. It says insufficient ba

  • On line number call costs

    How much does  It cost you call an on line number? From uk to Australia