Read Session ID in WD

Hi,
what have I to do to read the Session ID of the actual session. (Session concept ?)
Which libraries have to be included and how could be the code?
best regards
Mathias

Hi Maksim,
in the last view days, I implemented a passwording as graphic picture to enter my a page with answering a "captcha" (Password as graphic picture on a page to entry or http://en.wikipedia.org/wiki/Captcha).
Jcaptcha generates an image which has to be read by the (human) user and typed into a input field to make shure that there is a human who uses the page (this page cannot use an usual authentification, because it is a free site for anybody - a user registration process site ).
To generate this image in a secure way it is recommended to give the framework the actual session id.
So, I`m thinking about to get this session id.
Can you help me?
best regards
Mathias

Similar Messages

  • How can i kill the Adobe Reader session right away?

    Hello
    I have developed an interactive form, my_form. And we launch / render this my_form in (ERP / SAP) application's portal IE browser, well.
    Say, user opened this form, worked on it, submitted (we have our own submit button) and closed the window by clicking the top right corner's X button, but user is seeing stll the red Reader icon on the bottom bar, even thought the user is closed the window completely
    If user try to close this reader red reader icon explicitly, user is getting the other exception popup as Runtime error as described here http://forums.adobe.com/thread/391738
    Hence, am thinking to KILL the reader session right away the moment user closes the window, pls. let me know,
    1) How can i KILL the reader session via JavaScript, is it possible?
    2) if so, what the JS code i need to put and
    3) in which event pls.?
    Thank you

    In to my original posting, am attaching these pics
    On my desktop it looks like below,
    1) Even though user is closing the window but still the reader icon is lying on the bottom
    2) Once user double cliks the above red icon, user is getting below popup
    Thank you

  • All Adobe reader sessions closing

    Hello,
           If i am viewing multiple files located on my local machine, through multiple Reader sessions, and close on window, they all close.  I have more than one machine that does it.  All have Vista SP 2 and adobe reader 9 with all updates installed.  Any ideas?
    Regards,
    Adam

    1. Go to C/Programs/Adobe/Reader 11/Reader
    2. Look for a file named eula.exe (or just eula).
    3. If it's there, double click it and accept the license agreement.
    4. Open a PDF.
    If the problem persists
    Download the Adobe Cleaner to completely remove Reader
    Download the offline installer and reinstall

  • Reading Session Variables in Abstract Portal Component/ JSP Dynpage or Java

    Hi All,
    I have a web dynpro for Java component which passes parameters in a session and also navigates to a Java application.
    Now when I try to read the session parameters in the Java application (JSPDynpage or Abstract Portal Component) I cannot retrieve the values.
    Can someone throw light on how I can achieve this within a Java application.
    Code is as enclosed below -
    WD for Java Code
      public void onActionClicked(com.sap.tc.webdynpro.progmodel.api.IWDCustomEvent wdEvent )
        //@@begin onActionClicked(ServerEvent)
    IClientSession session = Utils.getCurrentClientSession();
    IScope scope = session.getScope();
    scope.put("TestSession", wdContext.currentContextElement().getTxtValue());
    WDPortalNavigation.navigateAbsolute(
    "ROLES:portal_content/com.be.pct.cr.Test/DynProToNet",
    WDPortalNavigationMode.SHOW_INPLACE,
    (String)null,
    (String)null,
    WDPortalNavigationHistoryMode.NO_DUPLICATIONS,
    (String)null,
    (String)null,
    (String)null);
        //@@end
    Code within the Abstract Portal Component doContent method is -
    IPortalComponentSession ses;          
    ses = request.getComponentSession();
    String TestSession = new String();
    String sTest = new String();
    String sTesting = new String();
    if(ses.getValue("TestSession")!= null){
    TestSession = ses.getValue("TestSession").toString();
    if(request.getParameter("TestSession")!= null){
    sTest = request.getParameter("TestSession");
    if( request.getValue("TestSession")!= null)
    sTesting = request.getValue("TestSession").toString();
    response.write("Display"TestSessionsTest+sTesting);
    Any help is highly appreciated.
    Thanks in advance,
    Divya

    Hi,
      Why not use eventing between webdynpro and portal applications? That would be more easy. Check these documents.
    https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/60d7d690-0201-0010-e581-9c4fc69cec0e
    https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/d48eaa90-0201-0010-58a8-887fc8632c3c
    Regards,
    Harini S

  • Read session cfm in asp

    Hi Guys,
    ANyone knows how to read a seesion from CFM page in ASP.
    Because We here got to type of application. CFM Apps and ASP Apps.
    So anyone knows how I can read seesion from CFM in ASP pages and
    also session from asp to read in CFM pages. Pls help me on this.
    Thansk in advance
    Regards,
    Shaffiq

    Hi Maksim,
    in the last view days, I implemented a passwording as graphic picture to enter my a page with answering a "captcha" (Password as graphic picture on a page to entry or http://en.wikipedia.org/wiki/Captcha).
    Jcaptcha generates an image which has to be read by the (human) user and typed into a input field to make shure that there is a human who uses the page (this page cannot use an usual authentification, because it is a free site for anybody - a user registration process site ).
    To generate this image in a secure way it is recommended to give the framework the actual session id.
    So, I`m thinking about to get this session id.
    Can you help me?
    best regards
    Mathias

  • Can't read session data

    I am working with iAS6.0 SP4, distributed session
    I perform a load test of 100 users,
    For some of my sessions (about 3%), I can't read
    the session data, all attributes are null.
    Can someone help ?
    Amir.

    Are you sure you want to distribute sessions ? We experienced sever scaling issues with this options even on multi CPU machine. Check your KXS cpu utilisation using top command ( assuming Unix ).
    This is because the distributed sessions are stored in kxs and lead to contention at high loads. You can chose for lite sessions by changing the web.xml of the application incase you do not need distributed sessions. If at all you want distributed sessions you may check the behaviour at lesser load

  • Reading Session information from Cookie MYSAPSSO2

    Hi All
    I have a requirement where i need to get the portal session in my webdynpro component.
    My portal runtime and webdynpro runtime are different.
    My both runtimes are configured for accepting sap logon tickets.
    I observerd that  portal is sending the cookie MYSAPSS02 to webdynpro when ever a webdynpro component is called from portal.
    I also read that this cookie contains the portal session info.
    I want to read the session value from this cookie. How can i do this?
    Thanks in advance
    NagaKishore

    I have post the similar problem.
    here is the url /thread/40387 [original link is broken]
    But i still haven't worked it out
    hope i'ts helpful for you.

  • Reading sessions and descriptors outside of classpath

    Hello all,
    IHAC who wants to read the sessions.xml and descriptors xml files from a designated location outside of the classpath. TopLink usually reads the sessions and descriptors using class loaders, but that is not what customer is looking for.
    How can a TopLink runtime read those files using absolute paths such as C:\descriptors\toplink\sessions.xml ?
    And, also, inside the sessions.xml is the location of the project xml (deployment descriptor). Can that location also be expressed using absolute path (ex. C:\descriptors\toplink\HR\toplink-deployment-descriptor.xml) ?
    Any information is welcomed

    Doug,
    Thanks for the info.
    I tried to read the sessions.xml file using XMLLoader using the absolute path,
    but I'm not sucessful with it.
    What I tried is:
    // acquire toplink session & deployment descriptor
    SessionManager manager = new SessionManager();
    XMLLoader loader = new XMLLoader("C:/descriptor/META-INF/sessions.xml");
    session = (ServerSession)manager.getSession(loader, "sampleSession", Thread.currentThread().getContextClassLoader());
    which yields it cannot find the sessions.xml resource.
    Can you please point out any sample codes or the way to do it in your reply?
    I know that you're very busy, I'd be much appreciated if you could help me and my customer.
    Thank You.

  • Why do arrow keys quit working during a reading session

    I've noticed many times while reading that when I first open a book I can use arrow keys to scroll and turn pages.  But after while that quits working and I have to use the readers paging and scrolling tools.   Which is much more difficult to me since you have to focus on finding them.  Whereas with the arrow keys my hands just know here they are.
    I haven't yet discovered what causes the arrow keys to quit working, but once they have the only way I've found to get them woking again is to completely close the book and reopen it.

    I have noticed this also. I am using OS X 10.6.1 and Digital Editions 1.7.1.1085.
    I have tried many things to get the arrow keys working, on the assumption that I had done something to deactivate them. Now, however, I suspect this is a bug.
    - D -

  • 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.

  • NullPointer in trying to read sessions.xml

    Hi, I'm trying move to a new system and I'm having a hard time getting past this exception. The sessions.xml file is found but it doesn't seem to be parsing it at all. I've even changed the code to try to load a specific sessions.xml - mysessions.xml. No change. Maybe this error is more of a ClassNotFound than a NP?
    Any ideas?
    Thanks,
    Bret
    java.lang.NullPointerException
    at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.loadDocument(XMLSessionConfigLoader.java:166)
    at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.loadDocument(XMLSessionConfigLoader.java:156)
    at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.load(XMLSessionConfigLoader.java:93)
    at oracle.toplink.tools.sessionmanagement.SessionManager.getSession(SessionManager.java:367)
    at oracle.toplink.tools.sessionmanagement.SessionManager.getSession(SessionManager.java:194)

    The above stacktrace was created when just using the defaults - sessions.xml
    session = (ServerSession)SessionManager.getManager()          .getSession("TBS",false);
    This code below over-rides the default and uses mysessions.xml.
    oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader loader = new oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader("mysessions.xml");
    session = (ServerSession)SessionManager.getManager().getSession(loader,"TBS",getClass().getClassLoader());
    The stack I get there is:
    java.lang.NullPointerException
    at oracle.toplink.platform.xml.XMLPlatformFactory.getXMLPlatformClass(XMLPlatformFactory.java:51)
    at oracle.toplink.platform.xml.XMLPlatformFactory.getXMLPlatform(XMLPlatformFactory.java:75)
    at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.loadDocument(XMLSessionConfigLoader.java:188)
    at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.loadDocument(XMLSessionConfigLoader.java:156)
    at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.load(XMLSessionConfigLoader.java:93)
    at oracle.toplink.tools.sessionmanagement.SessionManager.getSession(SessionManager.java:367)
    at oracle.toplink.tools.sessionmanagement.SessionManager.getSession(SessionManager.java:269)
    Thanks

  • I need java application to read session and cookie requests

    Hi
    I have a java application that can the HTML and links etc but is there a way for the application to
    a. retrieve cookies when they are given and
    b. know when the cookie is requested
    c. present the cookie when when they are requested
    d. retrieve session variables when they are given and
    e. know when the cookie is requested
    f. present them when they are requested
    Or is there a component out there where i can look at the code if it's complex
    stev

    Sure, the cookie is in the HTTP headers, so you don't really need anything special to handle cookies.
    A starting point for further studies is:
    http://home.netscape.com/newsref/std/cookie_spec.html

  • Known Issues with Session Vars and non-IE browsers?

    Are there any known issues with non-Internet Explorer
    browsers storing or reading session variables. Or loops and
    ListGetAt functions? I'm using CF 5.
    The code works fine in IE, but not in FireFox or Netscape.
    Thanks,
    Josh

    This testing will not really address any cross domain issues, due to the content being hosted by ScormCloud.
    What I found interesting, is that in ScormCloud, using the links below, my results were opposite those that I obtained through my LMS.
    In LMS, Captivate 5 worked, Captivate 6 did not in IE8, both worked in FF
    In ScormCloud, Captivate 5 did not work in IE8, but worked in FF, and Captivate 6 did work in FF and IE8.
    Here are the links:
    captivate 5 http://cloud.scorm.com/sc/InvitationConfirmEmail?publicInvitationId=3c04f298-d0db-4d10-ab6 3-80b9aaf2890b
    captivate 6 http://cloud.scorm.com/sc/InvitationConfirmEmail?publicInvitationId=e2b05753-2f03-421a-87d 9-62b92ad199af
    Thanks for your attention, every bit of information that I can get will help.
    Thanks,
    SL

  • Unable to fetch session variables in my application page code behind

    hi,
    my env:  1  WFE  server which hosts the  central admin and my web appln,  1 sql server box  
    i am having a custom web part[ listviewbyquery web part]  which populates the site collection/ sub site's document library contents . also it reads some query string values and pushes these  values into  session variables.
    and i am having another application page in this application which reads this session variables and  perform some operation in a custom sql db. But i am unable to read these session variables on page load of this  application page.
    am unable to debug also. so, would like to know is there any way i can see, what values  are getting passed to this page and verify the session variables are accessed correctly.
    or
    is this  by design, that its not possible to read session variables in the application page ?
    if i am not having a visual studio env. to debug, how to test these  session variable  existence / to find the root cause of this issue.
    note: already configured session state in IIS , http  modules section. am using Page.Session["myvariable1"].tostring() to fetch the  session variables.
    help is appreciated!

    i have found out myself. i have put  page.response.write(mysessionvariables) in the code and deployed and tested in my env. and i was able to find out the reason and i have fixed it with proper validation check.

  • How to use Session Key-based Request Targeting Mechanism in OCCAS ??

    I read Session Key-Based Request Targeting(chapter 5) in Developing SIP Applications.
    But, I don't work my application using this mechanism.
    I add sesssionKey function with @SipApplicationKey annotation.
    I deploy this application. And then, other machine send INVITE request.
    My application received INVITE request. But sessionKey function is not called before doInvite function is called.
    I used @SipApplicationKey(applicationName="...") annotation.
    It didn't work.
    sample code is following.
    Could someone help me?
    import javax.servlet.ServletConfig;
    import javax.servlet.ServletContext;
    import javax.servlet.ServletException;
    import javax.servlet.sip.SipFactory;
    import javax.servlet.sip.SipServlet;
    import javax.servlet.sip.SipServletMessage;
    import javax.servlet.sip.SipServletRequest;
    import javax.servlet.sip.SipServletResponse;
    import javax.servlet.sip.SipURI;
    import javax.servlet.sip.URI;
    import javax.servlet.sip.annotation.SipApplicationKey;
    public class app2SipServlet extends SipServlet {
    private static final long serialVersionUID = 1L;
    public static SipFactory sipFactory;
    public static ServletContext sc;
    public void init(ServletConfig cfg) throws ServletException {
    super.init(cfg);
    sipFactory = getSipFactory();
    sc = getServletContext();
    trace("+++ app2SipServlet Initialization");          
    @SipApplicationKey
    public static String sessionKey(SipServletRequest req) {
    String appid = req.getHeader("ApplicationID");
    System.out.println("application id : " + appid);
    return appid;
    @Override
    public void doRequest(SipServletRequest req)     throws ServletException, IOException {
    trace(req, "doRequest()");
    super.doRequest(req);
    @Override
    protected void doInvite(SipServletRequest req) throws ServletException, IOException {
    URI from = req.getFrom().getURI();
    String user = ((SipURI)from).getUser();
    trace(user + " : " + req.getSession().getApplicationSession().getId());
    trace(user + " : " + req.getSession().getApplicationSession().getApplicationName());
    SipServletResponse resp = req.createResponse(200);
    resp.send();
    trace(resp);
    }

    How many servlets you have defined in your sip.xml .If there are multiple you may want to check if
    -- You have defined main-servlet ?
    -- or Is deployment descriptor version 1.0 or 1.1

Maybe you are looking for

  • IPod 5G Firewire Connection

    I know that 5G iPods don't support firewire connections, but is there any way to download, or do something to my ipod to make firewire work?

  • Creation of jar files

    i am using the command jar cvf HelloApplet.jar hello/HelloApplet*.class in my ms-dos prompt in windows xp, it displays message invalid command. Kindly help me how to create jar files in javafx in javafx sdk using dos prompt

  • Bold in IE, not bold in FF and GC

    Here's the link: http://www.dynamicevolution.com/selfmastery_Program.html I have the pricing and subheads in bold. When viewed in IE, works fine. Not in FF and GC. Not sure where I'm missing something.

  • File name changed to "1.psd"

    During a PS CS5.5 session the default file name is changed to "1.psd" and the file is corrupted and unopenable.  This has happened on windows machines with several different OS, including XP64, Win7, and Win8.  Correcting the default name does not co

  • Password Removal on my files

    My wife's employeer EFT her pay and sends her payroll stub via a PDF file that is password protected. Once I d/l it I want to remove the password protection. I've tried "save as" but that keeps the PW. Is there a way to save the file w/o the PW? Mike