Read session log of SM35

Question

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

Answer 1

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.