Session Deleted in SM35

Hi ,
  I have done induvidual processing of FF67 with process type 2. Therefore it generates a batch input session.
While processing session from SM35 i got error an error (related to GL Account) and i exit the session. Assume there are 10 entries to be generate after processing of that session but 9 entries got posted and due to this error one entry not posted. But wrongly user has deleted the session (error symbol). Now the problem is in FF67 overview system showing all items got posted. But  GL account is not updated with that missed entry.  even FEBA also showing correct. Please suggest how to correct this.
Thanks in advance,
Shivaji

Hi,
under my concern, you have done all process and just missed one Accounting posting. FEBA and FF67 are okay.
You can go on the FEBA, select the item that appears in red (error) and post (Ctrl + S).
If it was posted wrong, enter F-02 and post an adjustment to the correct account.
let me know if it is helpful.
Marssel

Similar Messages

  • How to see the Batch input session name in SM35 with User name.

    Hi
    Yesterday,User has created one Batch input session from FBWE and selected process button after that display errors only tick mark in SM35. Then the system displayed one error message"No Batch input data for screen SAPMF05A 0700".After that he came out from the screen. He dont know what happened.
    Today we have verified in SM35. But there is no batch input session with his name. We have verified in incorrect screens and every thing in SM35.
    We have verified in Table 'T045DTA'. There are some entries are there.
    We dont know the session name also.
    How we can find the session name created by the User.
    We have not deleted any thing.
    Please help me
    Thanks
    Ravi.

    Hi Ravi,
    Yes, you should be able to create a new batch job for FBWE. You can see your own batch sessions from SYSTEM ==> OWN JOBS
    Regards,
    Mike

  • Security authorizations - batch input session - deleting your own session

    I know that S_BDC_MONI will allow you to delete Batch Input sessions (SM35), but it looks like it will allow you to delete whatever you put in BDCGROUPID, irrespective of whether it's your session or some one elses.
    Is there anything in security, which will allow you to only delete your own sessions, other than having different session names for different people.

    Hi,
    Execute the session in error mode only. If you are still facing the problem, you will have to execute it in foreground.
    Regards,
    Amit

  • FF67 session deletion indicator

    Hi all,
    I'm using the T-FF67 with the processing type parameter value '2 Further processing as batch input (generate as batch)' and it is generating a session with the deletion indicator checked. This causes that when I process the BI session it is deleted after it run.
    I wanna know if its possible to generate the session with the deletion indicator unchecked? if so, how can I do this?
    If the answer to my question is negative, how can I uncheck this indicator from T-SM35 or other transaction?
    Regards.
    Gregory.

    Hi,
    In that case, You can post the query to SAP if this note can be manually applied / if they have a patch for the same.
    Since in 4.7, It will not be possible to use enhancement spots as well.
    Hope it helps.
    Sujay

  • Program To Update BDC Session Status in SM35

    Existing Process : Currently we create orders using a function module which internally uses BDC Session method for transaction VA01. If the session ran successfully then we check the status and use SAVE_TEXT to upload the long text for the order. But in some cases the order fails. Then the session will be errored out in SM35 and user runs the session manually and fixes the problem and post order. So the text cannot be uploaded now as the user ran the session manually. So I wrote a Z program to run the session using program RSBDCCTU which the runs the session in forground and get the text from memory which I exported to memory while initial transaction and upload it using SAVE_TEXT after the session ran successfully. This program works fine.
    Problem : After running my Z program the order is posted and text is uploaded but the session is still in error status in SM35. The standard program RSBDCCTU just runs the session in foreground but does not update the status.
    Is there any other way we can do this or any other standard programs available to update the status of the session.
    Any help will be appreciated.

    How are you importing text in the z program, which is exported in the function module? they are totally unrelated internal sessions.
    You can as well import text and use SAVE_TEXT using user exit USEREXIT_SAVE_DOCUMENT_PREPARE in include MV45AFZZ after executing the error session in SM35, you don't need a Z program.
    Use condition SY-BINPT = 'X' and  T180-TRTYP = 'H' in the user exit to process SAVE_TEXT.
    Regards
    Sridhar

  • BDC Session processing in SM35

    Hi,
    Please let me if a session in SM35 has lot of data to process, will it be timed out??
    Thanks & Regards,
    Soumya.

    Hi Soumya
    If you are not sure whether the huge data while processing would time out.
    Follow these steps:-
    1.Go to SM35.
    2. Select the data to be processed.
    3. Click the Process button. A pop will appear.
    4. In Processing mode Select Background Radio button.
    5. Also check the Extended log check button in additional functions.
    Second way is:
    1.Go to SM35.
    2. Select the data to be processed.
    3. Click the Process button. A pop will appear.
    4. In Processing mode Select Display Errors Only Radio button.
    5. It will process data in backgound and errors will appear in foreground.

  • BRS Batch input session deletion

    Dear Gurus,
    User entered wrong data in BRS Statement and posted...When running session he came to know that Bank key and accound id entered wrongly.....
    Can anybody tell me how can we overcome this.
    Regards,
    Venkat

    Dear All,
    Problem resolved. We deleted that session and updated opening balance in next statement and system accepted.
    Regards,
    Venkat

  • Stateful Session deleted on Remote Exception ?

    Hi,
    Our statefull session bean gets deleted, whenever it throws Remote exception.
    Actually the internal exception is caught and the method throws' Remote Exception.
    After the exception the bean cannot be accessed from it's remote interface. All we
    get is the error saying the bean is removed or deleted. Is this a known behavior.
    All help appreciated
    Thanks,
    Venki
    Exception :
         = ===================================
         = ======= Reason ===================
         = ===================================
         java.rmi.NoSuchObjectException: Bean has been deleted.
         Start server side stack trace:
         java.rmi.NoSuchObjectException: Bean has been deleted.
         at weblogic.ejb20.swap.DiskSwap.read(DiskSwap.java:155)
         at weblogic.ejb20.manager.StatefulSessionManager.getBean(StatefulSession
         Manager.java:242)
         at weblogic.ejb20.manager.StatefulSessionManager.preInvoke(StatefulSessi
         onManager.java:313)
         at weblogic.ejb20.internal.BaseEJBObject.preInvoke(BaseEJBObject.java:11
         7)
         at weblogic.ejb20.internal.StatefulEJBObject.preInvoke(StatefulEJBObject
         .java:170)

    Thanks,
    V
    "Dimitri I. Rakitine" <[email protected]> wrote:
    Yup, this is exactly what is supposed to happen. RemoteException isA system
    exception
    and it is container's responsibility to, among other things, discard the
    bean instance.
    If you want different behaviour then throw a checked application exception
    (one which
    subclasses java.lang.Exception and not RuntimeException or RemoteException).
    Venki <[email protected]> wrote:
    Hi,
    Our statefull session bean gets deleted, whenever it throws Remoteexception.
    Actually the internal exception is caught and the method throws' RemoteException.
    After the exception the bean cannot be accessed from it's remote interface.All we
    get is the error saying the bean is removed or deleted. Is this a knownbehavior.
    All help appreciated
    Thanks,
    Venki
    Exception :
         = ===================================
         = ======= Reason ===================
         = ===================================
         java.rmi.NoSuchObjectException: Bean has been deleted.
         Start server side stack trace:
         java.rmi.NoSuchObjectException: Bean has been deleted.
         at weblogic.ejb20.swap.DiskSwap.read(DiskSwap.java:155)
         at weblogic.ejb20.manager.StatefulSessionManager.getBean(StatefulSession
         Manager.java:242)
         at weblogic.ejb20.manager.StatefulSessionManager.preInvoke(StatefulSessi
         onManager.java:313)
         at weblogic.ejb20.internal.BaseEJBObject.preInvoke(BaseEJBObject.java:11
         7)
         at weblogic.ejb20.internal.StatefulEJBObject.preInvoke(StatefulEJBObject
         .java:170)--
    Dimitri

  • Session log from SM35-not fully displayed

    Dear Freinds,
    My requirement is to read the log of SM35, that is my intenstion is after my report being executed (BDC session method ) the session get processed in background only as i have used  rsbdcsub .
    Now i want to display the log which find in the SM35 for processed session i have tried below in my program
    i.e after running the session I should read log and store for which legacy numbers SAP customer is created and for which its failed.
    As specified in one of the logs in the SDN i have written as below.
    Get your TEMSEID MANDANT from APQL table, and call these four function modules in sequence.
    DATA: CHARCP LIKE RSTSTYPE-CHARCO VALUE '0000'.
    CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
    EXPORTING
    AUTHORITY = ' '
    CLIENT = APQL-MANDANT
    NAME = APQL-TEMSEID
    IMPORTING
    CHARCO = CHARCP
    EXCEPTIONS
    FB_ERROR = 1
    FB_RSTS_OTHER = 2
    NO_OBJECT = 3
    NO_PERMISSION = 4
    OTHERS = 5.
    CALL FUNCTION 'RSTS_OPEN_RLC'
    EXPORTING
    NAME = APQL-TEMSEID
    CLIENT = APQL-MANDANT
    AUTHORITY = 'BATCH'
    PROM = 'I'
    RECTYP = 'VNL----'
    CHARCO = CHARCP
    EXCEPTIONS
    FB_CALL_HANDLE = 4
    FB_ERROR = 8
    FB_RSTS_NOCONV = 12
    FB_RSTS_OTHER = 16
    NO_OBJECT = 20
    OTHERS = 24.
    IF SY-SUBRC > 0.
    EXIT.
    ENDIF.
    CALL FUNCTION 'RSTS_READ'
    TABLES
    DATATAB = LOG_TABLE
    EXCEPTIONS
    FB_CALL_HANDLE = 4
    FB_ERROR = 8
    FB_RSTS_NOCONV = 12
    FB_RSTS_OTHER = 16
    OTHERS = 16.
    IF SY-SUBRC > 0.
    EXIT.
    ENDIF.
    CALL FUNCTION 'RSTS_CLOSE'
    EXCEPTIONS
    OTHERS = 4.
    LOG_TABLE is having only  the below
    ENTERDATE LIKE BTCTLE-ENTERDATE,
    ENTERTIME LIKE BTCTLE-ENTERTIME,
    LOGMESSAGE(400) TYPE C,
    In t´he log message I am not getting any exact message displayed in SM35 log  . Please suggest me what i have to do
    regards
    divya

    better use:
    CALL TRANSACTION tcode USING bdcdata MODE mod MESSAGES INTO itab.
    and analyse sy-subrc and itab for every customer
    A.

  • Running the batchinput session other than sm35

    Hi
    Can any one please tell how to know when a batch input session was run other than SM35?
    Thanks,

    Hi Anand,
      Check for the following transactions:
    SM36 -  Define Background Job
    SM37 -  Simple job Selection
    Hope this helps you,
    Regards.
    Chandra Sekhar

  • ERROR SESSIONS DOWNLOAD FROM SM35

    Hi Guru's,
             I want to down load error sessions from SM35 on desktop for user friendly,  But i am trying to search in SCN but i am not getting exact one,
               So please help me with peace of worthfull code.
    Best Regards,
    Arjun.

    try to do manually use following tables and and get the error log and download it....
    APQI------->Queue info definition
    APQD----->n  DATA DEFINITION Queue............
    in APQI table u will get the log field  VARDATA.......

  • Read session log of SM35

    Hi ,
    I have a requirement to provide the list of inforecord that went to error in SM35.
    Is there any standard program that could provide the log contents?
    I found few standard programs but that are giving me screen data for all records even for the successfull records.
    Any Ideas..
    Thanks & Regards,
    Ankur

    Hi Ankur..
    Program is there.
    Program name is RSBDCLOG.
    Below is the program's source code..
    *@(#)RSBDCLOG   %I%   SAP %E%
        SAP AG Walldorf
        Systeme, Anwendungen und Produkte in der Datenverarbeitung
        (C) Copyright SAP AG 1997
    Projekt:          R/3 BatchInput
    Entwickl.-Stand:  SAP   , BIN-Datenbank
    Source-Typ:       Report
    Autor:            SAP
    Entwicklungsstand:
    30.04.97 first version with new protocol interface based on
              previous RSBDCLOG (copied to RSBDCOLG and used if
              parameter bdc/new_protocol = off)
    REPORT RSBDCLOG MESSAGE-ID 00 LINE-SIZE 102
                    NO STANDARD PAGE HEADING.
    Dieser Report dient zur Anzeige des Inhalts eines Batch-Input       *
    Protokolls.  Batch Input Protokolle werden ab dieser Version        *
    als TemSe Files abgelegt. Die Zuordnung eines TemSe Files zu einem  *
    Batch Input Lauf erfolgt ueber die neue Tabelle APQL, die damit     *
    das Protokoll Verzeichnis realisiert.                               *
    1. Die Tabelle BDCLD beschreibt die Struktur eines Verzeichnis-     *
       Eintrags und entspricht damit APQL.                              *
    2. Die Tabelle BDCLM beschreibt einen Eintrag innerhalb eines       *
       TemSe Protkoll Files (M = Message).                              *
    *-- Datendefinitionen zum Report                                   ---*
    TABLES: BDCMH, *BDCMH,            "BatchInput Trans.Header
            BDCTH, *BDCTH,            "BatchInput Mess. Header
            APQD,  *APQD,             "Queue Daten
            APQI,  *APQI,             "Queue Info
            APQL,                     "Protocol Directory Info
            D0220,                    "Dynpro 220
            D0300.                    "Dynpro 320
    TABLES: SPOP.                     "infostruktur popup_to_confirm
    DATA: BEGIN OF BIM,            "Aktivitaeten Uebersicht
      AONL(4) VALUE 'AONL',        "Mappen-Abspielen im Online
      ABTC(4) VALUE 'ABTC',        "Mappen-Abspielen im Batch
      FREE(4) VALUE 'FREE',        "Freigeben einer Mappe
      LOCK(4) VALUE 'LOCK',        "Sperren und Entsperren von Mappen
      DELE(4) VALUE 'DELE',        "Loeschen von Mappen
      ANAL(4) VALUE 'ANAL',        "Analysieren von Mappen
          END OF BIM.
    DATA BEGIN OF BDCLDA  OCCURS 0.    " ITabelle der Verzeichniseintraege
      INCLUDE STRUCTURE APQL.          " LogTabelle
    DATA END OF BDCLDA .
    DATA: BEGIN OF ITRAN OCCURS 0,
      CNT    TYPE I,                 "zaehler
      TRANS  TYPE I,                 "transanktions#
      QID    LIKE APQI-QID    ,      "qid
      FRAGM(1)            ,          "fragmented flag
          END OF ITRAN.
    DATA: ISTART TYPE I,
          IENDE  TYPE I,
          ISTEP  TYPE I,
          IND    TYPE I.
    DATA: BEGIN OF BLOCK,
      MARK TYPE I VALUE 0,         "markierungsflag
      SA     LIKE SY-CPAGE,        " block anfang
      ZA     LIKE SY-CUROW,
      SE     LIKE SY-CPAGE,        " block ende
      ZE     LIKE SY-CUROW,
          END OF BLOCK.
    DATA: BEGIN OF MTAB OCCURS 0.
             INCLUDE STRUCTURE APQI.
    DATA: END OF MTAB.
    DATA: BEGIN OF MY   ,
      MSGV1 LIKE SY-MSGV1,
      MSGV2 LIKE SY-MSGV2,
      MSGV3 LIKE SY-MSGV3,
      MSGV4 LIKE SY-MSGV4,
          END OF MY.
    DATA: T-COUNT TYPE I.
    DATA:                               "Hilfsfelder Zugriff Logfile
    S_LOGNAME(80),
    DECISION(01),
    JA(01) VALUE 'J',              "yeah
    NEIN(01) VALUE 'N',            "ni
    EC     TYPE I,
    DEL_RETURN TYPE I,
    NAMELN TYPE I,
    TFOUND TYPE I,
    TFCOUNT TYPE I,
    DTRANCNT  TYPE I VALUE 0,
    PROTCNT TYPE I,
    DCOUNT TYPE I,
    MCOUNT TYPE I,
    CHECKCNT TYPE I,
    MAXLINE  TYPE I VALUE 0,
    WSTAT(04) TYPE C,
    USE(1) TYPE C,
    MODUS(1) TYPE C,
    RUNLEVEL(1) TYPE C,
    ZW-FNAME(80),                      "Hilfsfeld feldname
    TMAPN(12) TYPE C,                  "hilfsfeld bdcld-GROUPID
      BDCMHLEN   TYPE I VALUE 20,        "MessageHeader laenge    20 Bytes
      BDCTHLEN   TYPE I VALUE  6,        "TransactionHeader laenge 6 Bytes
      WHICHTRAN(3) TYPE C,
      ULINE(80)   VALUE                 "Unterstrich
      TABIND LIKE SY-TABIX,
      TABIND1 LIKE SY-TABIX,
      PFSTATUS LIKE SY-PFKEY,
      OLDSTATUS LIKE SY-PFKEY,
      MOD_BILD  TYPE I VALUE 0,
      LOOP(1) VALUE 'L',                "loop flag
      TABW(1) VALUE 'T' ,               "loop flag
      MSG_ART(1),                       "message art e=error w=warning s=
      SEPCHAR(1),                       "seperator character def.
      HBEGIN(1),                        "header beginn character Def.
      COUNTX TYPE X,                    "header beginn character Def.
      COUNTY TYPE I,                    "header beginn character Def.
      EAFELD TYPE X VALUE '80',         "header beginn character Def.
      HLEN      TYPE I VALUE 20,        "header len
      SAVE_CUROW0 LIKE SY-CUROW,
      SAVE_CUROW1 LIKE SY-CUROW,
      SAVE_CUROW2 LIKE SY-CUROW,
      SAVE_CUROW3 LIKE SY-CUROW,
      SAVE_CUROW4 LIKE SY-CUROW,
      SAVE_CUROW5 LIKE SY-CUROW,
      SAVE_CUROW6 LIKE SY-CUROW,
      SAVE_CUROW7 LIKE SY-CUROW,
      SAVE_CUROW8 LIKE SY-CUROW,
      SAVE_LSIND  LIKE SY-LSIND,
      SAVE_LILLI1 LIKE SY-LILLI,
      SAVE_LILLI2 LIKE SY-LILLI,
      SAVE_PAGE1 LIKE SY-CPAGE,
      SAVE_PAGE2 LIKE SY-CPAGE,
      SAVE_PAGE8 LIKE SY-CPAGE,
      SAVE_STARO LIKE SY-STARO,
      SAVE_STACO LIKE SY-STACO,
      SAVE_RC LIKE SY-SUBRC,
      LINCT       LIKE SY-LINCT,
      LLINCT      LIKE SY-LINCT,
      E(1) VALUE 'E',
    PARAMNAME(11) VALUE 'bdc/logfile',
    frame1(14),
    D0320-FCODE LIKE SY-UCOMM .
    DATA:
      Hilfsfeld zur Parameter-Uebergabe an Langtext-Anzeige eines
      Job-Protokoll Eintrags
      MSG_TEXT LIKE SHKONTEXT-MELDUNG,
      MSG_ARBGB LIKE SHKONTEXT-MELD_ID,
      MSG_NR LIKE SHKONTEXT-MELD_NR,
      MSG_TITLE LIKE SHKONTEXT-TITEL.
    DATA:
      Hilfsfeld zur protokollfeststellung im zentralen directory
      SHIFTLEN TYPE I VALUE 0,
      PROTFLEN TYPE I VALUE 0,
      PROTFOFF TYPE I VALUE 0,
      RLEN     TYPE I VALUE 0.
    DATA:                               "Konstanten
    APQD-MAXA TYPE I VALUE 100,       " maximaler access auf apqd
    AUTOR(05) TYPE C VALUE 'HARMS',
    STANDALONE(01) TYPE C VALUE 'O',
    DYNPRO(01)     TYPE C VALUE 'D',
    SUBMIT(01)     TYPE C VALUE 'S'.
    DATA:                               "zaehler
      TFCNT     TYPE I VALUE 0,
      ON        TYPE I VALUE 1,
      OK        TYPE I VALUE 1,
      OFF       TYPE I VALUE 0,
      GUI_OBJ   TYPE I VALUE 9,
      HCOUNT    TYPE I VALUE 0,
      TCOUNT    TYPE I VALUE 0,
      TCOUNT1   TYPE I VALUE 0,
      TCOUNT2   TYPE I VALUE 0,
      WCOUNT    TYPE I VALUE 0,
      ZCOUNT    TYPE I VALUE 0,
      QCOUNT    TYPE I VALUE 0.
    DATA BEGIN OF LOG.
      INCLUDE STRUCTURE RLOG.
    DATA END OF LOG.
    DATA:
    BEGIN OF ZWD,
      VDAT(8) TYPE C,
      XDAT(1) TYPE C,
      BDAT(8) TYPE C,
    END OF ZWD.
    DATA:                                "Hilfsfelder
      VDAT TYPE D,
      BDAT TYPE D.
    DATA:                               "Eingabedatum fuer Ausgabedatum
      BEGIN OF DATE,
         JJJJ(4) TYPE N,                "jahr
         MM(2)   TYPE N,                "monat
         TT(2)   TYPE N,                "tag
      END OF DATE.
    DATA:                               "Eingabedatum fuer Ausgabedatum
      BEGIN OF DAT ,
         TT(2)   TYPE N,                "tag
         MM(2)   TYPE N,                "monat
         JJJJ(4) TYPE N,                "jahr
      END OF DAT .
    DATA: BEGIN OF DYH.                 "Dynpro Header
             INCLUDE STRUCTURE D020S.
    DATA: END OF DYH.
    DATA: BEGIN OF DYF OCCURS 250.      "Dynpro Felder
             INCLUDE STRUCTURE D021S.
    DATA: END OF DYF.
    DATA: BEGIN OF DYA OCCURS 100.      "Dynpro Ablauf-Logik
             INCLUDE STRUCTURE D022S.
    DATA: END OF DYA.
    DATA: BEGIN OF DYM OCCURS 20.       "Dynpro Matchcode-Subkeys
             INCLUDE STRUCTURE D023S.
    DATA: END OF DYM.
    DATA: BEGIN OF DYL OCCURS 64,         "Loop-Information
             LTYP,
             LANF TYPE X,
             LBLK TYPE X,
             LREP TYPE X,
          END OF DYL.
    n e u -
    DATA: BEGIN OF TF OCCURS 0,        "interne tabelle mit dynprofeldern
             COUNT TYPE I VALUE 0,     "zum abmischen
             TRCD(4),
             STAT(4),
             PGM(8),                    "programmname
             DYN(4) TYPE N,            "dynpronummer
             FNAME(35),
             FARG(80),
             FSTART(5) TYPE P,
             FENDE(5) TYPE P,
          END OF TF.
    DATA: BEGIN OF DYT.                 "Dynpro Felder
             INCLUDE STRUCTURE D021S.
    DATA: END OF DYT.
    DATA: BEGIN OF ANAL,
      COUNT  TYPE I VALUE 0,       " zaehler
      ECOUNT TYPE I VALUE 0,       " zaehler
      BA     LIKE APQD-TRANS,      " block anfang
      BE     LIKE APQD-TRANS,      " block ende
      OBA    LIKE APQD-TRANS,      " block anfang  old
      OBE    LIKE APQD-TRANS,      " block ende    old
      FKT1   LIKE APQD-TRANS,      " faktor1
      FKT2   LIKE APQD-TRANS,      " faktor2
      MAXBLK LIKE APQD-TRANS,      " maximale blockanzahl
      BLK#   LIKE APQD-TRANS,      " blocknummer lfd.
          END OF ANAL.
    interne Tabelle ---
    DATA:
      BEGIN OF ITAB OCCURS 0,           "Interne Tabelle fuer Grundliste
         COUNT LIKE APQI-TRANSCNT,       "Record count, Hilfsfeld fuer debug
         TCNT  LIKE APQI-TRANSCNT,     "transaction counter   all
         MCNT  LIKE APQI-MSGCNT,       "message counter       all
         ETCNT LIKE APQI-TRANSCNTE,    "transaction counter   errore
         EMCNT LIKE APQI-MSGCNTE,      "message counter       error
         DTCNT LIKE APQI-TRANSCNTD,    "transaction counter   delete
         DMCNT LIKE APQI-MSGCNTD,      "message counter       delete
         FTCNT LIKE APQI-TRANSCNTF,    "transaction counter   finished
         FMCNT LIKE APQI-MSGCNTF,      "message counter       finished
         BTCNT LIKE APQI-TRANSCNTF,    "transaction counter   booked
         BMCNT LIKE APQI-MSGCNTF,      "message counter       booked
         QDEL  LIKE APQI-QERASE,       "kennzeichen loeschen mappe
         STATD(12),
      END OF ITAB.
    DATA:
      BEGIN OF OLDI,                    "Headerdaten von Tapqd-udat (Vergl.)
         HYC(1),                        "header eyecatcher
         PGM(8),                        "programmname
         DYN(4) TYPE N,                "dynpronummer
         SYNC(1),                       "syncpoint
         STAT(1),                       "STatus
         SCHAR(1),                      "Seperatorcharacter Def.
         TRCD(4),                       "Trans.code
         TCNT LIKE APQD-TRANS,
         MCNT LIKE APQD-BLOCK,
      END OF OLDI.
    DATA: MFART(2) TYPE C,              "Hilfsfelder abmischen dynpro mit
          MFSTART  TYPE I VALUE 0,     "feldinhalten
          MFENDE   TYPE I VALUE 0,
          MFLEN    TYPE I VALUE 0.
    DATA:
      BEGIN OF Z,                       "Hilfsstruktur fuer sy-lisel
        TRCD(04),
        FILLER1(08),
        STAT(03),
        FILLER2(09),
        PROG(08),
        FILLER3(01),
        DYN(04),
        FILLER4(44),
      END OF Z.
    DATA:
      BEGIN OF LF,                      "Hilfsstruktur fuer loop extension
        FILLER1(01),
        ZEILE(02) TYPE N,
        FILLER2(01),
      END OF LF.
    DATA: ZEILE(2) TYPE P,              "Hilfsfelder Dynproaufbereitung
          SPALTE(2) TYPE P,
          PLENG(2) TYPE P,
          PLANF(2) TYPE P,
          PLBLK(2) TYPE P,
          PLREP(2) TYPE P,
          ZAEHL(4) TYPE P,
          PZEILE(2) TYPE P,
          PCOLN(2) TYPE P.
    DATA: BEGIN OF BILD OCCURS 24,      "      -''-
          ZEILE(120),
          FLAG,
          END OF BILD,
          CHAR79(79),
          DYNAME(12).
    DATA: BEGIN OF BILDE OCCURS 0,      "Eingabefelder aufbereitet
          ZEILE LIKE ZEILE,
          PCOLN LIKE PCOLN,
          PLENG LIKE PLENG,
          PREP  TYPE I,
          GUIOBJ(01),
          FLD(120),
          END OF BILDE,
          REF-ZEILE LIKE ZEILE.
    DATA:
      BEGIN OF BDC,
        OKCODE(5),                     "Dynpro Okcode
        CURSOR(35),                    "Cursorposition Feldname
      END OF BDC.                      "oder           Format ZZ,SS
    DATA:
      BEGIN OF CURSOR,
        ZZ(2) TYPE N,                  "Zeile
        FILLER(1),                     "Komma
        SS(2) TYPE N,                  "Sspalte
      END OF CURSOR.                   " Z = Zeile, S = Spalte
    DATA:
      BEGIN OF FLD,
        FNAME(80),
        FVAL(80),
      END OF FLD.
    DATA:                               "Popup 220 Groesse
      BEGIN OF D220,
        L         TYPE I VALUE 10  ,      " links 10
        O         TYPE I VALUE 06  ,      " oben  06
        R         TYPE I VALUE 38  ,      " rechts38
        U         TYPE I VALUE 11  ,      " unten 11
      END OF D220.
    INCLUDE          RSTR0110.
    DATA:     BEGIN OF PROT_LIST OCCURS 0.
    INCLUDE     RSTR0112.
    DATA:     SEEN(1),
         TO_BE_DELETED(1),
         HAS_CHANGED(1),
         LOCAL_HOST(24),
              END   OF PROT_LIST.
    DATA:                                          "reports
      REOREPORT(8)  TYPE C VALUE 'RSBDCREO',       " Protokollreorganisation
      SUBREPORT(12) TYPE C VALUE 'RSBDCBTC_NEW',   " Submit Batch
      LOGREPORT(8)  TYPE C VALUE 'RSBDCLOG',       " Protokoll
      DMPREPORT(12) TYPE C VALUE 'RSBDCDMP_NEW',   " Queue Dump
      TSTREPORT(8)  TYPE C VALUE 'RSBDCCKT',    " alle BDCLG Files in APQL?
      APLREPORT(8) TYPE C VALUE 'RSBDCCKA'.   " TemSe File zu APQL-Eintrag?
      TABLES: SNAP.                        "Rabaxauswertung
      FIELD-SYMBOLS: .
    DATA:
      BEGIN OF D320,                    "Popup 320 Groesse
        L         TYPE I VALUE  30 ,      " links 30
        O         TYPE I VALUE  06 ,      " oben  06
        R         TYPE I VALUE  60 ,      " rechts60
        U         TYPE I VALUE  08 ,      " unten 08
      END OF D320.
    DATA: FOLGESEGMENT TYPE I,
          SOFFS TYPE I ,
          APQDVARLEN TYPE I,
          BDCMHSEPC(01),
          MAXVARDATALEN TYPE I VALUE 0.
    *----  common part daten erhalten ein eigenes segment----
    DATA BEGIN OF  COMMON PART VARDAT.
    DATA: APQDVARDATA(21333),          " neue datenfelder wegen
          *APQDVARDATA(21333),         " segmentierten mappen
          UDAT(21333).
    DATA END   OF  COMMON PART VARDAT.
    INCLUDE RSBDCIL1.                  " data definitionen fuer rsbdcil2
    INCLUDE RSBDCIL2.                  " Forms zur Protokollanzeige
    INCLUDE RSBDCIL3.                  " Form zum Lesen des TemSe Files
                                       " in Anlehnung an LSTLGFXX.
    *----   START  OF  SELECTION                                      -
    DATA: PROTPARAM(60) VALUE 'bdc/new_protocol',
          NEWPROT(3) VALUE 'off'.
    PARAMETER MAPPE    LIKE APQI-GROUPID DEFAULT '*'.
    PARAMETER QUEUE_ID LIKE APQD-QID  DEFAULT '0' NO-DISPLAY.
    PARAMETER TEMSEID LIKE  APQL-TEMSEID  DEFAULT '0' NO-DISPLAY.
    START-OF-SELECTION.
    CALL 'C_SAPGPARAM'        ID 'NAME'   FIELD PROTPARAM
                              ID 'VALUE'  FIELD NEWPROT.
    IF NEWPROT <> 'on'.
      SUBMIT RSBDCOLG AND RETURN.
      EXIT.
    ENDIF.
      CLEAR LOG.
      IF SY-TCODE NE 'SE38'.              " runlevel festlegen
        RUNLEVEL = SUBMIT.
      ELSE.
        RUNLEVEL = STANDALONE.
      ENDIF.
      IF SY-BATCH <> SPACE.               " runlevel festlegen
        RUNLEVEL = STANDALONE.            " im batch
      ENDIF.
      IF RUNLEVEL = SUBMIT.
        GET PARAMETER ID 'BDC' FIELD LOG.
      ELSE.
        PERFORM CHECK_PARAM.
      ENDIF.
      CLEAR:   BDCLD, SHOWTYP.
      REFRESH: BDCLD.
      IF LOG-MODUS EQ 'A' OR
         LOG-MODUS EQ 'B'.
        IF LOG-TEXT(17) NE SPACE.
          MOVE LOG-TEXT TO ZWD.
          MOVE ZWD-VDAT TO VDAT.
        PERFORM MAKE_DATE USING ZWD-VDAT VDAT.
          MOVE ZWD-BDAT TO BDAT.
        PERFORM MAKE_DATE USING ZWD-BDAT BDAT.
        ELSE.
          MOVE '00000000' TO VDAT.
          MOVE '99999999' TO BDAT.
        ENDIF.
      ENDIF.
      CASE LOG-MODUS.
         WHEN 'A'.
             SET PF-STATUS 'ALPH'.
             SET TITLEBAR  'ALP'.
             PERFORM ALL_PROT.                      "vh3914
               PERFORM LOG_ALL.
             PERFORM SHOW_DIR.
         WHEN 'B'.
             SET PF-STATUS 'ALPH'.
             SET TITLEBAR  'ALP'.
             PERFORM ALL_PROT.                      "vh3914
               PERFORM LOG_ALL.
             PERFORM SHOW_DIRP.
         WHEN 'C'.
             SET PF-STATUS 'ALPO'.
             SET TITLEBAR  'ALP'.
             PERFORM ALL_PROT.                      "vh3914
               PERFORM LOG_ALL.
             PERFORM INFO_BIPROT.
             IF LOG-TCNT GT 1.
               LOG-MODUS = 'F'.
               SET PF-STATUS 'ALPF'.
               PERFORM SHOW_DIRF.
             ELSE.
               PERFORM SHOW_DIRQ.
             ENDIF.
         WHEN 'D'.
             SET PF-STATUS 'ALPO'.
             SET TITLEBAR  'ALP'.
             PERFORM ALL_PROT.                      "vh3914
               PERFORM LOG_ALL.
             PERFORM SHOW_DIR.
         WHEN 'E'.
             SET PF-STATUS 'ALPO'.
             SET TITLEBAR  'ALP'.
             PERFORM ALL_PROT.                      "vh3914
               PERFORM LOG_ALL.
             PERFORM SHOW_DIRE.
         WHEN 'M'.
             SET PF-STATUS 'MESS'.
             SET TITLEBAR  'MSG' WITH LOG-MAPN.
             CLEAR BDCLD.
             MOVE-CORRESPONDING LOG TO BDCLD.
             MOVE LOG-MAPN          TO BDCLD-GROUPID.
             MOVE LOG-QUID          TO BDCLD-QID.
             PERFORM LOG_MES.
             PERFORM SHOW_MES.
         WHEN 'P'.
             PERFORM ALL_PROT.                      "vh3914
             PERFORM INFO_BIPROT.
         WHEN 'Q'.
             PERFORM ALL_PROT.                      "vh3914
             PERFORM DELE_BIPROT.
         WHEN OTHERS.
             SET PF-STATUS 'ALPH'.
             SET TITLEBAR  'ALP'.
             PERFORM ALL_PROT.                      "vh3914
                  PERFORM LOG_ALL.
             PERFORM SHOW_DIR.
      ENDCASE.
      PERFORM SEND_MSG.
      SET PARAMETER ID 'BDC' FIELD LOG.
    *----   PBO   MODULE      REPORT     RSBDCLOG                    -
          MODULE D0220_POPINI                            PBO            *
    Initialisierung der Cursor-Eingabe-Felder (ja,nein) in Popup        *
    MODULE D0220_POPINI OUTPUT.
      CLEAR: ZW-FNAME.
      ZW-FNAME = 'D0220-POPNEIN'.
      SET CURSOR FIELD ZW-FNAME.
      SET PF-STATUS '0220'.
      SET TITLEBAR  '009'.
      D0220-POPJA    =  TEXT-027.          "ja
      D0220-POPNEIN  =  TEXT-028.          "nein
    ENDMODULE.                          " D0220_POPINI.
          MODULE D0320_INIT                              PBO            *
    Initialisierung der Felder des Dynpros 0320                         *
    MODULE D0320_INIT OUTPUT.
      Initialisierung der Dynprofelder
        SET PF-STATUS '0320'.
        SET TITLEBAR '015'.
        CLEAR: D0320-FCODE.
      CLEAR: D0300-BATCHSYS.
    ENDMODULE.                          " D0300_INIT.
    *----   PAI   MODULE      REPORT     RSBDCLOG                    -
          MODULE D0220_DELETE                            PAI            *
    Loeschen eines Protokolls                                           *
    MODULE D0220_DELETE.
        IF SY-UNAME EQ AUTOR. BREAK-POINT 1. ENDIF.
      CLEAR: ZW-FNAME.
      GET CURSOR FIELD ZW-FNAME.
      IF D0220-FCODE = 'CONT' OR                    " f12 abbrechen, nein
         SY-CUROW = 7    OR
         SY-CUROW = 4    OR
         ZW-FNAME = 'D0220-POPNEIN' OR
         ZW-FNAME = 'D0220-POPCONT'.
        RETURN = 0.
      ENDIF.
      IF D0220-FCODE <> 'CONT' AND                  " ja
         ( ZW-FNAME = 'D0220-POPJA' OR
         SY-CUROW = 5 ).
        RETURN = 0.
        D0220-FCODE = 'DEL'.
      ENDIF.
    ENDMODULE.                          " D0220_DELETE
          MODULE D0320_START                                            *
    Angabe der Blocknummer in der Mappenanalyse                     *
    MODULE D0320_FCODE.
      CASE  D0320-FCODE.
        WHEN '    ' .                  "normale verarbeitung
           IF D0300-BLOCKNR GT ANAL-MAXBLK OR
              D0300-BLOCKNR LE 0.
              RETURN = 328.
              PERFORM SEND_MSG.
              SET SCREEN 320.
           ENDIF.
        WHEN 'GOON' .                  "normale verarbeitung
           IF D0300-BLOCKNR GT ANAL-MAXBLK OR
              D0300-BLOCKNR LE 0.
              RETURN = 328.
              PERFORM SEND_MSG.
              SET SCREEN 320.
           ENDIF.
        WHEN 'CONT' .                  "f12 abbrechen
        WHEN OTHERS .
          SET PF-STATUS '0320'.
          SET TITLEBAR  '015'.
          SET SCREEN 320.
      ENDCASE. "D0320-FCODE
    ENDMODULE.                         " d0320_fcode
    FORM : info_biprot                                                  *
    Info ueber ein Protokoll                                            *
    FORM INFO_BIPROT.
        CLEAR: QFOUND.
        LOOP AT BDCLD.
          IF LOG-QUID EQ BDCLD-QID.
            QFOUND = QFOUND + 1.
          ENDIF.
        ENDLOOP.
        IF QFOUND GT 0.
          LOG-RETC = 'PROT'.
          LOG-TCNT = QFOUND.
        ENDIF.
    ENDFORM.                           " info_biprot
    FORM : dele_biprot                                                  *
    loeschen eines Protokolls von aussen                                *
    FORM DELE_BIPROT.
        CLEAR: QFOUND.
        LOOP AT BDCLD.
          IF LOG-QUID EQ BDCLD-QID.
            QFOUND = QFOUND + 1.
            PERFORM DEL_MESL.
          ENDIF.
        ENDLOOP.
        IF QFOUND GT 0.
          LOG-RETC = 'DELE'.
          LOG-TCNT = QFOUND.
        ENDIF.
    ENDFORM.                           " dele_biprot
    FORM : all_prot                  "vh3914                            *
    FORM ALL_PROT.
          CLEAR: BDCLD-CNT,
                 BDCLD#.
          PERFORM LOG_ALL.                               "vh3914
          IF BDCLD-CNT EQ 0.                             "vh3914
            RETURN = 318.                                "vh3914
            EXIT.                                        "vh3914
          ELSE.                                          "vh3914
            RETURN = 0.                                  "vh3914
          ENDIF.                                         "vh3914
          SORT: BDCLD  BY CREDATE DESCENDING             "vh3914
                          CRETIME DESCENDING.            "vh3914
    ENDFORM.                           " all_prot
    FORM : log_all                                                      *
    FORM LOG_ALL.
          PERFORM LOG_DIR.
    ENDFORM.                           " log_all.
    FORM : show_all                                                     *
    FORM SHOW_ALL.
             PERFORM SHOW_DIR.
    ENDFORM.                           " show_all.
    FORM : log_dir                                                      *
    FORM LOG_DIR.
      CLEAR: BDCLD.
      REFRESH: BDCLD.
        CLEAR: BDCLDA.           "vh3914
        REFRESH: BDCLDA.         "vh3914
        SELECT *  FROM APQL INTO TABLE BDCLDA. "protocol directory data
        IF SY-SUBRC = 4.                 " Verzeichnis ist leer
          RETURN = 318.            "MESSAGE S318 WITH 'Verzeichnis'
          EXIT.
        ENDIF.
        IF SY-SUBRC NE 0.                 " Fehler beim Lesen des Verzeichni
          RETURN = 317.            "MESSAGE S317 WITH 'Verzeichnis' 'gelesen
          EXIT.
        ENDIF.
        SORT: BDCLDA  BY CREDATE DESCENDING
                        CRETIME DESCENDING.
        LOOP AT BDCLDA                           "vh3914
        WHERE MANDANT = SY-MANDT.
          MOVE-CORRESPONDING BDCLDA TO BDCLD.    "vh3914
          BDCLD-CNT = BDCLD-CNT + 1.             "vh3914
          BDCLD#    = BDCLD#    + 1.             "vh3914
          APPEND BDCLD.                          "vh3914
        ENDLOOP.                                 "vh3914
    ENDFORM.                           " log_dir.
    FORM : show_dir                                                     *
    FORM SHOW_DIR.
        IF SY-UNAME EQ AUTOR. BREAK-POINT 1. ENDIF.
        IF RETURN GT 0.
          EXIT.
        ENDIF.
        SHOWTYP = 'DIR  '.
        LOOP AT BDCLD WHERE CREDATE GE VDAT
                      AND   CREDATE LE BDAT.
           FORMAT RESET.
           WRITE:/01(102) SPACE COLOR COL_NORMAL.
           WRITE: 24(27) BDCLD-GROUPID        COLOR COL_KEY INTENSIFIED ON.
                         PERFORM WRITE_DATE USING BDCLD-CREDATE.
           WRITE: 02(10) DATE1 DD/MM/YYYY     COLOR COL_NORMAL,
                  13(08) BDCLD-CRETIME USING EDIT MASK '__:__:__'
                                              COLOR COL_NORMAL.
           WRITE: 52(12) BDCLD-CREATOR          COLOR COL_NORMAL,
                  81(24) BDCLD-DESTSYS     COLOR COL_NORMAL.
           PERFORM WRITE_VLINE USING ' ' 23.
           PERFORM WRITE_VLINE USING ' ' 12.
           PERFORM WRITE_VLINE USING ' ' 51.
           PERFORM WRITE_VLINE USING ' ' 80.
           PERFORM WRITE_VLINE USING ' '  1.
           PERFORM WRITE_VLINE USING ' ' 102.
           HIDE: BDCLD, BDCLD#.
        ENDLOOP.
        PERFORM LAST_LISTLINE.
        LINCT0 = SY-SROWS.              "seitengroesse grundliste festhalten
    ENDFORM.                           " show_dir.
    FORM : show_dirp                                                    *
    FORM SHOW_DIRP.
      show directory for log-name
        IF RETURN GT 0.
          EXIT.
        ENDIF.
        SHOWTYP = 'DIRP '.
       CLEAR: NAMELN, LMAPN, TFOUND.
       IF LOG-MAPN CA '%'.
          NAMELN = SY-FDPOS.
          WRITE LOG-MAPN TO LMAPN(NAMELN).
       ELSE.
         IF LOG-MAPN CA ' '.
            NAMELN = SY-FDPOS.
         ELSE.
            NAMELN = 12.
         ENDIF.
         WRITE LOG-MAPN TO LMAPN(NAMELN).
       ENDIF.
        LOOP AT BDCLD WHERE CREDATE GE VDAT
                      AND   CREDATE LE BDAT.
         CLEAR: TMAPN.
         WRITE BDCLD-GROUPID TO TMAPN(NAMELN).
         IF LMAPN  EQ TMAPN.
           TFOUND = TFOUND + 1.
           FORMAT RESET.
           WRITE:/01(102) SPACE COLOR COL_NORMAL.
           WRITE: 24(27) BDCLD-GROUPID         COLOR COL_KEY INTENSIFIED ON.
                         PERFORM WRITE_DATE USING BDCLD-CREDATE.
           WRITE: 02(10) DATE1 DD/MM/YYYY
                                                   COLOR COL_NORMAL,
                  13(08) BDCLD-CRETIME USING EDIT MASK '__:__:__'
                                                   COLOR COL_NORMAL,
                  52(12) BDCLD-CREATOR               COLOR COL_NORMAL,
                  81(24) BDCLD-DESTSYS          COLOR COL_NORMAL.
           PERFORM WRITE_VLINE USING ' ' 23.
           PERFORM WRITE_VLINE USING ' ' 12.
           PERFORM WRITE_VLINE USING ' ' 51.
           PERFORM WRITE_VLINE USING ' ' 80.
           PERFORM WRITE_VLINE USING ' '  1.
           PERFORM WRITE_VLINE USING ' ' 102.
           HIDE: BDCLD, BDCLD#.
         ENDIF.
        ENDLOOP.
        IF TFOUND = 0.
          RETURN = 324.      " keine Protokolle gefunden
        ELSE.
          PERFORM LAST_LISTLINE.
        ENDIF.
        LINCT0 = SY-SROWS.              "seitengroesse grundliste festhalten
    ENDFORM.                           " show_dirp.
    FORM : show_dirq                                                    *
    FORM SHOW_DIRQ.
      show directory and message for QUEUE_ID
        IF RETURN GT 0.
          EXIT.
        ENDIF.
        SHOWTYP = 'DIRQ '.
        CLEAR: QFOUND, LMAPN.
        LOOP AT BDCLD.
         IF LOG-QUID EQ BDCLD-QID.
           QFOUND = QFOUND + 1.
         QFOUND =  1.
           IF QFOUND = 1.
                FORMAT COLOR COL_HEADING INTENSIFIED ON.
                WRITE:/01(102) SY-ULINE.
                WRITE:/24(12) 'Mappenname  '(003).
                WRITE: 02(11) 'Angelegt  '(004),
                       12(08) '        ',
                       52(12) 'User       '(005).
                PERFORM WRITE_VLINE USING ' ' 23.
                PERFORM WRITE_VLINE USING ' ' 51.
                PERFORM WRITE_VLINE USING ' '  1.
                PERFORM WRITE_VLINE USING ' ' 102.
                FORMAT INTENSIFIED.
                WRITE:/24(12) SY-ULINE,
                       02(80) SY-ULINE,
                       12(08) SY-ULINE,
                       52(40) SY-ULINE.
                PERFORM WRITE_VLINE USING 'T' 23.
                PERFORM WRITE_VLINE USING 'T' 51.
                PERFORM WRITE_VLINE USING ' '  1.
                PERFORM WRITE_VLINE USING ' ' 102.
           ENDIF.
           FORMAT RESET.
           IF BDCLD-GROUPID NE LMAPN.
              WRITE:/01(102) SPACE COLOR COL_NORMAL.
              WRITE: 24(27) BDCLD-GROUPID COLOR COL_KEY INTENSIFIED ON.
              LMAPN = BDCLD-GROUPID.
              PERFORM WRITE_DATE USING BDCLD-CREDATE.
              WRITE: 02(10) DATE1 DD/MM/YYYY            COLOR COL_NORMAL ,
                     13(08) BDCLD-CRETIME USING EDIT MASK '__:__:__'
                                                        COLOR COL_NORMAL .
              WRITE: 52(12) BDCLD-CREATOR                 COLOR COL_NORMAL ,
                     80(24) BDCLD-DESTSYS            COLOR COL_NORMAL .
             PERFORM WRITE_VLINE USING ' ' 23.
             PERFORM WRITE_VLINE USING ' ' 51.
             PERFORM WRITE_VLINE USING ' '  1.
             PERFORM WRITE_VLINE USING ' ' 102.
           ENDIF.
           MTAB-GROUPID = BDCLD-GROUPID.
           PERFORM BIM_BERECHTIGUNG USING BIM-ANAL X.
           IF SY-SUBRC NE 0.
            HIDE: BDCLD, BDCLD#.
            EXIT.
           ENDIF.
           WRITE:/01(102) SY-ULINE.
           WRITE:/01(102) SPACE COLOR COL_HEADING INTENSIFIED OFF.
           WRITE: 02 'Zeit '(001)     COLOR COL_HEADING INTENSIFIED OFF,
                  11 'Tran'(008)      COLOR COL_HEADING INTENSIFIED OFF,
                  16 'Dynpro'(007)    COLOR COL_HEADING INTENSIFIED OFF,
                  30 'Nachricht'(002) COLOR COL_HEADING INTENSIFIED OFF.
              63 DATE1 DD/MM/YYYY.
           PERFORM WRITE_VLINE USING 'T' 10.
           PERFORM WRITE_VLINE USING 'T' 15.
           PERFORM WRITE_VLINE USING 'T' 29.
           PERFORM WRITE_VLINE USING 'T'  1.
           PERFORM WRITE_VLINE USING 'T' 102.
           WRITE: /02(09) SY-ULINE,
                   11(04) SY-ULINE,
                   16(13) SY-ULINE,
                   30(60) SY-ULINE.
           PERFORM WRITE_VLINE USING 'T' 10.
           PERFORM WRITE_VLINE USING 'T' 15.
           PERFORM WRITE_VLINE USING 'T' 29.
           PERFORM WRITE_VLINE USING 'T'  1.
           PERFORM WRITE_VLINE USING 'T' 102.
           FORMAT RESET.
           PERFORM LOG_MES.
           PERFORM SHOW_MES.
           DO 1 TIMES.
             WRITE:/01(102) SPACE COLOR COL_NORMAL.
             PERFORM WRITE_VLINE USING 'T' 10.
             PERFORM WRITE_VLINE USING 'T' 15.
             PERFORM WRITE_VLINE USING 'T' 29.
             PERFORM WRITE_VLINE USING 'T'  1.
             PERFORM WRITE_VLINE USING 'T' 102.
           ENDDO.
           HIDE: BDCLD, BDCLD#.
           EXIT.             " protokoll gefunden, bye
         ENDIF.              " immer das neueste protokoll
        ENDLOOP.
        IF QFOUND = 0.
          RETURN = 324.      " keine Protokolle gefunden
        ELSE.
          PERFORM LAST_LISTLINE.
        ENDIF.
        LINCT0 = SY-SROWS.              "seitengroesse grundliste festhalten
    ENDFORM.                           " show_dirq.
    FORM : show_dirm                                                    *
    FORM SHOW_DIRM.
      show directory and message for QUEUE_ID
      at line-selection
        SHOWTYP = 'DIRM '.
        CLEAR: QFOUND, LMAPN.
         IF LOG-QUID EQ BDCLD-QID.
           QFOUND = QFOUND + 1.
           IF QFOUND = 1.
                FORMAT COLOR COL_HEADING INTENSIFIED ON.
                WRITE:/01(102) SY-ULINE.
                WRITE:/24(12) 'Mappenname  '(003).
                WRITE: 02(11) 'Angelegt  '(004),
                       12(08) '        ',
                       52(50) 'User       '(005).
                PERFORM WRITE_VLINE USING ' ' 23.
                PERFORM WRITE_VLINE USING ' ' 51.
                PERFORM WRITE_VLINE USING ' '  1.
                PERFORM WRITE_VLINE USING ' ' 102.
                FORMAT INTENSIFIED.
                WRITE:/24(12) SY-ULINE,
                       02(80) SY-ULINE,
                       12(08) SY-ULINE,
                       52(80) SY-ULINE.
                PERFORM WRITE_VLINE USING ' ' 23.
                PERFORM WRITE_VLINE USING ' ' 51.
                PERFORM WRITE_VLINE USING ' '  1.
                PERFORM WRITE_VLINE USING ' ' 102.
           ENDIF.
           FORMAT RESET.
           IF BDCLD-GROUPID NE LMAPN.
              WRITE:/01(102) SPACE COLOR COL_NORMAL.
              WRITE: 24(27) BDCLD-GROUPID  COLOR COL_KEY INTENSIFIED ON.
              LMAPN = BDCLD-GROUPID.
              PERFORM WRITE_DATE USING BDCLD-CREDATE.
              WRITE: 02(10) DATE1 DD/MM/YYYY       COLOR COL_NORMAL ,
                     13(08) BDCLD-CRETIME USING EDIT MASK '__:__:__'
                                                   COLOR COL_NORMAL .
              WRITE: 52(12) BDCLD-CREATOR            COLOR COL_NORMAL ,
                     80(24) BDCLD-DESTSYS       COLOR COL_NORMAL .
              PERFORM WRITE_VLINE USING ' ' 23.
              PERFORM WRITE_VLINE USING ' ' 51.
              PERFORM WRITE_VLINE USING ' '  1.
              PERFORM WRITE_VLINE USING ' ' 102.
           ENDIF.
           MTAB-GROUPID = BDCLD-GROUPID.
           PERFORM BIM_BERECHTIGUNG USING BIM-ANAL X.
           IF SY-SUBRC NE 0.
            HIDE: BDCLD, BDCLD#.
            EXIT.
           ENDIF.
           WRITE:/01(102) SPACE COLOR COL_HEADING INTENSIFIED OFF.
           WRITE: 02 'Zeit '(001)    COLOR COL_HEADING INTENSIFIED OFF,
                  11 'Tran'(008)     COLOR COL_HEADING INTENSIFIED OFF,
                  16 'Dynpro'(007)   COLOR COL_HEADING INTENSIFIED OFF,
                  30 'Nachricht'(002) COLOR COL_HEADING INTENSIFIED OFF.
                PERFORM WRITE_VLINE USING ' ' 10.
                PERFORM WRITE_VLINE USING ' ' 15.
                PERFORM WRITE_VLINE USING ' ' 29.
                PERFORM WRITE_VLINE USING ' '  1.
                PERFORM WRITE_VLINE USING ' ' 102.
           WRITE: 01(09) SY-ULINE,
                  11(04) SY-ULINE,
                  16(13) SY-ULINE,
                  30(80) SY-ULINE.
                PERFORM WRITE_VLINE USING ' ' 10.
                PERFORM WRITE_VLINE USING ' ' 15.
                PERFORM WRITE_VLINE USING ' ' 29.
                PERFORM WRITE_VLINE USING ' '  1.
                PERFORM WRITE_VLINE USING ' ' 102.
           FORMAT RESET.
           PERFORM LOG_MES.
           PERFORM SHOW_MES.
           DO 1 TIMES.
             WRITE:/01(102) SPACE COLOR COL_NORMAL.
             PERFORM WRITE_VLINE USING 'T' 10.
             PERFORM WRITE_VLINE USING 'T' 15.
             PERFORM WRITE_VLINE USING 'T' 29.
             PERFORM WRITE_VLINE USING 'T'  1.
             PERFORM WRITE_VLINE USING 'T' 102.
           ENDDO.
           HIDE: BDCLD, BDCLD#.
         ENDIF.
        IF QFOUND = 0.
          RETURN = 324.      " keine Protokolle gefunden
        ELSE.
          PERFORM LAST_LISTLINE.
        ENDIF.
        LINCT0 = SY-SROWS.              "seitengroesse grundliste festhalten
    ENDFORM.                           " show_dirm.
    FORM : show_dire                                                    *
    FORM SHOW_DIRE.
      show directory and message for QUEUE_ID
        IF RETURN GT 0.
          EXIT.
        ENDIF.
        SHOWTYP = 'DIRE '.
        CLEAR: QFOUND, LMAPN.
        LOOP AT BDCLD.
         IF LOG-QUID EQ BDCLD-QID.
           QFOUND = QFOUND + 1.
           IF QFOUND = 1.
                FORMAT COLOR COL_HEADING.
                WRITE:/01(102) SY-ULINE.
                WRITE:/01(102) SPACE.
                WRITE: 24(12) 'Mappenname  '(003),
                       02(10) 'Angelegt  '(004),
                       12(08) '        ',
                       52(50) 'User       '(005).
                PERFORM WRITE_VLINE USING ' ' 01.
                PERFORM WRITE_VLINE USING ' ' 23.
                PERFORM WRITE_VLINE USING ' ' 51.
                PERFORM WRITE_VLINE USING ' ' 102.
                FORMAT INTENSIFIED.
                WRITE:/24(12) SY-ULINE,
                       01(80) SY-ULINE,
                       12(40) SY-ULINE,
                       52(80) SY-ULINE.
                PERFORM WRITE_VLINE USING ' ' 01.
                PERFORM WRITE_VLINE USING ' ' 23.
                PERFORM WRITE_VLINE USING ' ' 51.
                PERFORM WRITE_VLINE USING ' ' 102.
           ENDIF.
           FORMAT RESET.
           IF BDCLD-GROUPID NE LMAPN.
             WRITE:/24(12) BDCLD-GROUPID.
              WRITE:/01(102) SPACE COLOR COL_NORMAL.
              WRITE: 24(27) BDCLD-GROUPID    COLOR COL_KEY INTENSIFIED ON.
              LMAPN = BDCLD-GROUPID.
              PERFORM WRITE_DATE USING BDCLD-CREDATE.
              WRITE: 02(10) DATE1 DD/MM/YYYY COLOR COL_NORMAL,
                     13(08) BDCLD-CRETIME USING EDIT MASK '__:__:__'
                                             COLOR COL_NORMAL.
            PERFORM GET_STAT USING  BDCLD-STATE WSTAT.
            WRITE: 40(03) WSTAT            COLOR COL_NORMAL,
              WRITE: 52(12) BDCLD-CREATOR      COLOR COL_NORMAL,
                     80(24) BDCLD-DESTSYS COLOR COL_NORMAL.
              PERFORM WRITE_VLINE USING ' ' 01.
              PERFORM WRITE_VLINE USING ' ' 23.
              PERFORM WRITE_VLINE USING ' ' 51.
              PERFORM WRITE_VLINE USING ' ' 102.
              WRITE:/01(102) SY-ULINE.
           ENDIF.
           FORMAT INTENSIFIED.
         WRITE:/.
           WRITE:/01(102) SPACE    COLOR COL_HEADING INTENSIFIED OFF.
           WRITE: 02 'Zeit '(001)  COLOR COL_HEADING INTENSIFIED OFF,
              11 'Tran'(008)       COLOR COL_HEADING INTENSIFIED OFF,
              16 'Dynpro'(007)     COLOR COL_HEADING INTENSIFIED OFF,
              30 'Nachricht'(002)  COLOR COL_HEADING INTENSIFIED OFF.
              PERFORM WRITE_VLINE USING ' ' 01.
              PERFORM WRITE_VLINE USING ' ' 10.
              PERFORM WRITE_VLINE USING ' ' 15.
              PERFORM WRITE_VLINE USING ' ' 29.
              PERFORM WRITE_VLINE USING ' ' 102.
              FORMAT INTENSIFIED.
           WRITE:
              /01(09) SY-ULINE,
               11(04) SY-ULINE,
               16(13) SY-ULINE,
               30(80) SY-ULINE.
               PERFORM WRITE_VLINE USING ' ' 10.
               PERFORM WRITE_VLINE USING ' ' 15.

  • How to delete BDC session ?

    hi gurus,
    In my scenario , Before runnning BDC ( calll transaction ) , I firstly create a session ( use : BDC_OPEN_GROUP) with group name = the file that used to upload data for BDC execution , Then I check If the BDC run without error I will use BDC_CLOSE_GROUP to delete this group or else the session is kept , But when I check In SM35 , There's no session deleted ? Could you please help me ?
    Thanks

    >I will use BDC_CLOSE_GROUP to delete this group or else the session is kept , But when I check In >SM35 , There's no session deleted ? Could you please help me ?
    BDC_CLOSE_GROUP is used to Close the session Group, if you close it you cannot insert any transactions/records to the the Session group , not for Deletion.
    You want to Delete the session after the processing you have to use KEEP = ' '.
    then once process is over the session will be deleted.

  • Is there any means to recover a deleted session

    Is there any means to recover a deleted session
    (The session was deleted using SM35)

    Dear Usha,
    Welcome to SDN.
    Check this link.
    Deleted BDC sessions
    Regards,
    J.Jayanthi

  • Storing of log file in A/P Server while running BDC session in SM35

    Hi All,
    I have issue when running BDC session in SM35.
    The actual issue is
    I need to store of log file generated while running BDC session in <b>SM35</b> in <b>Application/Presentation</b> Server path.
    When ever we run single session the Log file regarding that session we need to store in Application/Presentation Server.
    Can anybody have solution for this issue.
    Thanks in advance.
    Thanks & Regards,
    Rayeez.

    Hi
    See the std report RSBDC_ANALYSE, here you can know how to find out the log of B.I..
    You can create a program like that to load the log into file instead of showing it.
    Max

Maybe you are looking for

  • New MacBook Pro slower than a snail

    I have just upgraded to a new MacBook, and am having speed issues, first with Mountain Lion and now with Mavericks. It seems as though almost all operations, even selecting a file in the Finder, bring up the beach ball of death, and opening applicati

  • Totally empty prompt box

    I've somehow managed to screw up my installation and so far uninstalling/reinstalling (both the SAP GUI 6.4 and Office 2003) hasn't helped.  My problem is that when I open anything in BEx Analyzer and hit Refresh Query, the box that pops up normally

  • Making Pages the Default

    Is it possible to have Pages '09 serve as the default application to open documents? Whenever I receive a word document from someone and try to open it, it opens it in TextEdit. I would prefer that it opened it in Pages so that I could avoid the step

  • Tuning SQL

    I have a SQL statement that has a cpu execution time of 11 second, but a lapse time of 52 seconds. The query does 32105 physical disk reads and the number of buffers read for consistent reads is 303304. The statement uses all relavent indices. How do

  • Is there any way to recover the broken iMovie files, that were moved to a different unauthorized drive?

    I moved the iMovie projects and events folder to a regular harddrive. I know now, i the aftermath that it was a wrong thing to do, and i was wondering whether there are some way to recover the projects to use them in iMovie again?