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.

Similar Messages

  • How to get the job logs from sm35 by using the queue id and session name?

    hi all,
    can any one please let me know how to read the job log from sm35 by using the session name and queue id. i have the job name and job count but is it possible to download the job log by using the queue id and session name.
    FYI..
    i want to read this job log and i want to send it to an email id.
    -> i am using the job_open and submitting the zreport via job name and job count and then i am using the function module  job_close.
    but this is not working in my scenario i have the queue id and session name by using this two i want to get the job log is there any function module available or code please provide me some inputs.
    thanks in advance,
    koushik

    Hi Bharath,
    If you want to download it to the local file then you can follow the instructions in the below link.
    How to download Batch Input Session Log?
    Regards,
    Sachin

  • When links are clicked, they do not fully display the NEW page until the mouse is moved.I know it is a current bug, and appears in no other browsers that I know of.

    It was pointed out that my links do not function correctly on Firefox on a Windows platform. When links are clicked, they do not fully display the NEW page until the mouse is moved! I have now observed it for myself on my fathers PC running Windows XP on Firefox.My PC is on Windows7
    It is the 5 version of Firefox, so I know it is a current bug, and appears in no other browsers that I know of.

    Start Firefox in <u>[[Safe Mode]]</u> to check if one of the extensions is causing the problem (switch to the DEFAULT theme: Firefox (Tools) > Add-ons > Appearance/Themes).
    * Don't make any changes on the Safe mode start window.
    * https://support.mozilla.com/kb/Safe+Mode
    If it does work in Safe-mode then disable all extensions and then try to find which is causing it by enabling one at a time until the problem reappears.
    * Use "Disable all add-ons" on the [[Safe mode]] start window to disable all extensions.
    * Close and restart Firefox after each change via "File > Exit" (Mac: "Firefox > Quit"; Linux: "File > Quit")
    In Firefox 4+ you can use one of these to start in <u>[[Safe mode]]</u>:
    * Help > Restart with Add-ons Disabled
    * Hold down the Shift key while double clicking the Firefox desktop shortcut (Windows)
    * https://support.mozilla.com/kb/Troubleshooting+extensions+and+themes

  • External Email address in process chain alerting not fully displayed

    Friends,
    I have this weird problem and not sure if its a real issue.
    I am maintaining messages for process chain failure alerting. I am using an external address and receipant type as "via Internet".
    When I enter email id  (ex: abc.123.xyz at mycompany.xxx) save it and come back, and If I re enter that screen the entered email is not fully displayed, few chars are truncated, (ex : abc.123.xyz@mycompan).
    Can you guys please help me figure out what the issue is?
    Is there any restriction on the length?
    Thanks
    vijay

    please dont bother...

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

  • SC history update problem:PO from PR not getting displayed in SC history

    Hi
    We are on EBP 3.5,Classic scenario.
    PR's get created in R/3 backend and then are manually converted into PO.This entire cycle is shown in EBP SC history tab.However for some of the SC's we are seeing status only up to PR stage(PO no. is not getting displayed either in BBP_PD or check status txn).When we try manual status updation thru BBP_GET_STATUS_2,it throws an error saying,"these references neither GUID nor destination,thus could not be assigned to any system not even local system".
    Has anyone faced such an issue.Pl reply
    Regards
    Sanjeev

    Hi
    <u>I am not sure, is it happening for Catalog Item, free text item, or limit item in your case.</u>
    <b>Have you tried executing report CLEAN_REQREQ_UP ? What all errors appear in RZ20 Transaction, when this dump happens. ? </b>
    <u>Please have a look at the following OSS Notes, which deals with the same symptoms, you told in your response.</u>
    <b>Note 1005373 - BBPSC04: Purchase order details missing in history for STO
    Note 728894 - Creation date of the PReq in the history
    Note 989891 - BBP_GET_STATUS_2: Incorr quantity determination in back end
    Note 1023706 - Follow-on Documents Show Wrong Net-Price and Net-Value.
    Note 886099 - History: Short dump during the product conversion
    Note 925480 - Short dump in history of a purchase order
    Note 1006898 - Deleted vendor not displayed in Change hist of Shopping cart
    Note 994379 - History page:wrong exchange rate is used
    Note 725920 - Incorrect display in follow-on docs of limit shopping carts
    Note 953238 - Shopping cart history in the sourcing cockpit
    Note 949162 - Follow-on documents exist, status I1111 and I1113 active
    Note 890859 - Status/shopping cart/error message without text
    Note 927585 - GI slip and cancellation are missing in the history
    Note 730239 - Check status: Missing Backend reference
    Note 625121 - PO Ack not displayed in Check Status
    Note 758522 - Check Status: Follow-on documents in the list and history
    Note 532709 - Shop with Limit: Backend PO after requisition is not found
    Note 515475 - EBP/BBP Status BE Requis.: Probl. with Limit / UoM
    Note 555183 - EBP 3.0: Not all references found after 550783
    Note 957957 - BBPIV03:doesn't find POs when deliv.date is set
    Note 787786 - Archived PReq and reservations are missing in history
    Note 812564 - The ordered quantity of the BE-PO is not read
    Note 943679 - Termination or incorrect conversion after Note 812564</b>
    Hope this will help.
    Please reward suitable points, incase it suits your requirements.
    Regards
    - Atul

  • IWork apps not fully displaying content in remote desktop session

    Hi,
    I have a 2.26 GHz Mac Mini running Snow Leopard, and I'm using my 12" G4 PowerBook to remotely connect to the Mini using JollysFastVNC. Generally this setup has worked very well, but I just realized that when remotely connecting to the Mini, the right-side display of iWork apps doesn't appear at all. In Numbers, if I open a new document based on a template in the Template Chooser, the "sheets" data on the left side appears properly, but the large area where the actual sheet data should appear is just solid white. I've encountered similar situations for Keynote (the Theme Chooser display is just a solid dark gray), and in Pages (just a white screen, if I type characters, the status info indicates that the characters are being recognized and entered, but nothing appears on the screen). I've tested this with both JollysFastVNC as well as Chicken of the VNC, and I have the same problems with either client, which is making me think that there's something unique about the way that the iWork apps update their main displays that "flies under the radar" of Snow Leopard's VNC server, keeping it from thinking that these parts of the app displays have been updated and thus need to be communicated to the VNC client apps. I'm wondering if anyone else has encountered this, and if so, if there's a know fix or workaround.
    Thanks,
    Ken

    hello FUBAR-BDHR, that may well be an issue with hardware acceleration - please try to disable hardware acceleration in the firefox ''menu ≡ > options > advanced > general'' (that setting will take a restart of the browser to take effect) & see if the situation changes...

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

  • HT204266 Aps are not fully displaying on my iPad

    When I go to my aps icon open it to buy new ones they will not display or fully open.

    Hi Pat,
    I have Adobe Reader XI. I can see them online but cannot open fully in Reader. I am using MS Windows XP Professional (Version 2002)

  • Image in NSImageView is not fully displayed upon load, is full when clicked

    I have an NSImageView that is intended to display a subject image. It is loaded with:
    set image of image view "imgviewSubject" of window "wndmain" to load image ThePickedPathName
    About a quarter of image's right hand side is missing and jagged when the image first loads. A click on the image redraws the image to its full view. The entire image needs to show.
    The " Editable" property has to be set for this to regen click to work. The image view is in the 250 x 200 range. It does not matter if the image is set to be proportional or scaled to fit. The image file size does not seem to be a factor in this problem.
    How can I get the image to show in full without requiring an additional user input.
    Tia, AKS

    I found this in the ASStudio terminology ref:
    needs display
    Access: read/write
    Class: boolean
    Does the view need to be displayed? setting this property to true will cause the view to be redrawn at the next opportunity; to cause an immediate redraw, use the update command; note that through AppleScript Studio version 1.4, the needs display property is not supported for the window class, but is supported for the view class
    Which lead me to this:
    update
    Updates display of the specified window or view object, causing it to be redrawn immediately.
    Syntax
    update reference required
    Parameters
    reference
    a reference to the window or view object to update
    Examples
    The following is the launched handler, from the Browser sample application, available at /Developer/Examples/AppleScript Studio. This handler uses the Finder application to get a list of disk names for a browser object, sets a path separator for the browser, then uses the update command to update the browser’s display.
    on launched theObject
    tell application "Finder"
    set diskNames to name of every disk
    end tell
    set path separator of browser "browser" of window "main" to ":"
    tell browser "browser" of window "main" to update
    end launched
    So maybe as a last step in setting up your image view, you need to:
    tell image view "imgviewSubject" of window "wndmain" to update
    Let's see what that does.
    St!ff

  • Web page is not fully displayed in FireFox, but Chrome

    Recently, I have made some changes to my company website, actually just the images of our team. <br />
    The size of the image before is 130x130 but we changed it to 127x170.<br />
    Everything worked good on localhost but then I uploaded it to the server. I tested the site on Google Chrome first (everything worked nicely) but FireFox didn't show up all the team images as the last line are cropped. <br />
    You can have a look at "http://www.webnam.net.vn (Section About->Team). (Make sure you view it on Chrome & Firefox to see the differences here, which I want to say).<br />
    I haven't changed anything on CSS (just HTML with some &lt;li&gt; changes). <br />
    Thank you for your attention. <br />
    Hope someone figured it out already.

    Looks the same for me in Firefox and Google Chrome on Linux.
    Note that Firefox has the habit of using cached versions of files and may not always retrieve the current version from the server, so you need to refresh those files.
    Reload web page(s) and bypass the cache to refresh possibly outdated or corrupted files.
    *Hold down the Shift key and left-click the Reload button
    *Press "Ctrl + F5" or press "Ctrl + Shift + R" (Windows,Linux)
    *Press "Command + Shift + R" (Mac)
    Clear the cache and cookies only from websites that cause problems.
    "Clear the Cache":
    *Firefox/Tools > Options > Advanced > Network > Cached Web Content: "Clear Now"
    "Remove Cookies" from sites causing problems:
    *Firefox/Tools > Options > Privacy > Cookies: "Show Cookies"

  • The right-click link menu in Firefox 29.0.1 on Mac OSX 10.9.3 does not fully display options (cuts off text)

    When I right click on a link, the usual menu I used to get in older versions of firefox still shows up. However, it shows up in a box that's much, much smaller than the size of the box in previous versions. The text gets cut off and while I can scroll up and down, I can't scroll left to right to read the text of the option. Actually, I've noticed that this happens with most right click menus now.
    For example, if I right-click on a link, I get:
    Open Li...
    Open Li...
    Open Li...
    (down facing arrow to hover over to see the rest of the options)
    All of the system and Firefox fontsize, menu size etc. are at their default. I haven't changed anything.

    You can check for problems caused by a corrupted localstore.rdf file.
    *http://kb.mozillazine.org/Corrupt_localstore.rdf
    You can use this button to go to the currently used Firefox profile folder:
    *Help > Troubleshooting Information > Profile Directory: Show Folder (Linux: Open Directory; Mac: Show in Finder)
    Create a new profile as a test to check if your current profile is causing the problem.
    See "Creating a profile":
    *https://support.mozilla.org/kb/profile-manager-create-and-remove-firefox-profiles
    *http://kb.mozillazine.org/Standard_diagnostic_-_Firefox#Profile_issues
    If the new profile works then you can transfer files from a previously used profile to the new profile, but be cautious not to copy corrupted files to avoid carrying over the problem
    *http://kb.mozillazine.org/Transferring_data_to_a_new_profile_-_Firefox

  • PDF with javaScript function from Pro, not fully functional in Reader

    Hi,
    I followed recommendations to set up a button and apply a javaScript so that when end-user clicks on button, they can upload an image and then save the PDF.
    However, in Reader, the file extension drop-down is locked and forces end-user to only have the option of selecting a PDF as their image. I was going for JPG or GIF here at the very least.
    Is there anything else I could do, or am I stuck? In Pro, the drop down presents a wide array of file types in which to select from...
    Thank you!

    Adobe Reader can only insert PDF files as images. Adobe Reader can't convert other files.

  • HT203175 itunes store does not fully display

    When I open iTunes (yes, it is the latest version), the iTunes store doesn't display properly.  Images don't display.  I can't link to anything, or purchase anything.  I am running Windows XP.

    Perhaps try the iTunes Store loads partially or returns "Error 306" or "Error 10054" section in the Specific Conditions and Alert Messages: (Mac OS X / Windows) section of the following document:
    iTunes: Advanced iTunes Store troubleshooting

  • Passwords visible in session logs

    Hi,
    When I set up a developer as a developer with no workspace management rights, they can still access the monitor activity area.
    If they go to
    Manage Workspace>Monitor>Recent Page Views
    and click on a session detail of one of our users testing the applications then they get to see the passwords being used to log into the application.
    Is there a way of stopping the access to this area and/or stopping the session logs from recording the passwords in plain english?
    ...David

    Hi Scott,
    The application(s) where this is happening relate to systems where we have used basically a copy of the demo application log in page (ie page 101). The password is being reported in the session log files as p101_password (full text in English).
    It does not happen if the user logs directly into the application (btw it is a ldap authentication).
    If however a developer hits the 'run' button and then either they or a user sitting next to them then logs in to test the application, then it does hold the password in the logs (it is held in the application = 4350 page views).
    I have just found out that In another instance of htmldb here (on a separate database) they have also copied the p101 log in page and it does not happen in their case - but we can't see any differences in the log in pages?
    I am happy to send through a page export if you want to see it?
    ...david.

Maybe you are looking for

  • "this accessory may not be supported" iOs 7.0.3

    Since updating to iOS 7.0.3 I've getting a prompt "this accessory may not be supported" after a few minutes charging. Charging then stops and I've unplug the cable and reconnect, then hopefully get another 5 minutes before the message appears again.

  • Why cant i open pdf files with adobe on my phone?

    Why can't I open PDF files on my phone if I have adobe installed?

  • Online php form (inserts) in pdf form and send via email

    So first hello all. There are 4 PDF Forms amd 4 php forms on a website. The user should be able to fill out the php form, click on send and the inserts from the user should be stored in the pdf form and send to an email adress. I know that there are

  • Question about zip file

    how do I unzip a zip file? is it safe to download a zip file from apple website?

  • QoS for Video Data

    Hello Together, I like to implement a QoS Policy class to prioritise "Windows Netmeeting". Does somebody know the well known port number and can somebody recommend an bandwidth that i should provide at least to this class ? Thanks in advance.