Session Deleted in SM35
Hi ,
I have done induvidual processing of FF67 with process type 2. Therefore it generates a batch input session.
While processing session from SM35 i got error an error (related to GL Account) and i exit the session. Assume there are 10 entries to be generate after processing of that session but 9 entries got posted and due to this error one entry not posted. But wrongly user has deleted the session (error symbol). Now the problem is in FF67 overview system showing all items got posted. But GL account is not updated with that missed entry. even FEBA also showing correct. Please suggest how to correct this.
Thanks in advance,
Shivaji
Hi,
under my concern, you have done all process and just missed one Accounting posting. FEBA and FF67 are okay.
You can go on the FEBA, select the item that appears in red (error) and post (Ctrl + S).
If it was posted wrong, enter F-02 and post an adjustment to the correct account.
let me know if it is helpful.
Marssel
Similar Messages
-
How to see the Batch input session name in SM35 with User name.
Hi
Yesterday,User has created one Batch input session from FBWE and selected process button after that display errors only tick mark in SM35. Then the system displayed one error message"No Batch input data for screen SAPMF05A 0700".After that he came out from the screen. He dont know what happened.
Today we have verified in SM35. But there is no batch input session with his name. We have verified in incorrect screens and every thing in SM35.
We have verified in Table 'T045DTA'. There are some entries are there.
We dont know the session name also.
How we can find the session name created by the User.
We have not deleted any thing.
Please help me
Thanks
Ravi.Hi Ravi,
Yes, you should be able to create a new batch job for FBWE. You can see your own batch sessions from SYSTEM ==> OWN JOBS
Regards,
Mike -
Security authorizations - batch input session - deleting your own session
I know that S_BDC_MONI will allow you to delete Batch Input sessions (SM35), but it looks like it will allow you to delete whatever you put in BDCGROUPID, irrespective of whether it's your session or some one elses.
Is there anything in security, which will allow you to only delete your own sessions, other than having different session names for different people.Hi,
Execute the session in error mode only. If you are still facing the problem, you will have to execute it in foreground.
Regards,
Amit -
FF67 session deletion indicator
Hi all,
I'm using the T-FF67 with the processing type parameter value '2 Further processing as batch input (generate as batch)' and it is generating a session with the deletion indicator checked. This causes that when I process the BI session it is deleted after it run.
I wanna know if its possible to generate the session with the deletion indicator unchecked? if so, how can I do this?
If the answer to my question is negative, how can I uncheck this indicator from T-SM35 or other transaction?
Regards.
Gregory.Hi,
In that case, You can post the query to SAP if this note can be manually applied / if they have a patch for the same.
Since in 4.7, It will not be possible to use enhancement spots as well.
Hope it helps.
Sujay -
Program To Update BDC Session Status in SM35
Existing Process : Currently we create orders using a function module which internally uses BDC Session method for transaction VA01. If the session ran successfully then we check the status and use SAVE_TEXT to upload the long text for the order. But in some cases the order fails. Then the session will be errored out in SM35 and user runs the session manually and fixes the problem and post order. So the text cannot be uploaded now as the user ran the session manually. So I wrote a Z program to run the session using program RSBDCCTU which the runs the session in forground and get the text from memory which I exported to memory while initial transaction and upload it using SAVE_TEXT after the session ran successfully. This program works fine.
Problem : After running my Z program the order is posted and text is uploaded but the session is still in error status in SM35. The standard program RSBDCCTU just runs the session in foreground but does not update the status.
Is there any other way we can do this or any other standard programs available to update the status of the session.
Any help will be appreciated.How are you importing text in the z program, which is exported in the function module? they are totally unrelated internal sessions.
You can as well import text and use SAVE_TEXT using user exit USEREXIT_SAVE_DOCUMENT_PREPARE in include MV45AFZZ after executing the error session in SM35, you don't need a Z program.
Use condition SY-BINPT = 'X' and T180-TRTYP = 'H' in the user exit to process SAVE_TEXT.
Regards
Sridhar -
BDC Session processing in SM35
Hi,
Please let me if a session in SM35 has lot of data to process, will it be timed out??
Thanks & Regards,
Soumya.Hi Soumya
If you are not sure whether the huge data while processing would time out.
Follow these steps:-
1.Go to SM35.
2. Select the data to be processed.
3. Click the Process button. A pop will appear.
4. In Processing mode Select Background Radio button.
5. Also check the Extended log check button in additional functions.
Second way is:
1.Go to SM35.
2. Select the data to be processed.
3. Click the Process button. A pop will appear.
4. In Processing mode Select Display Errors Only Radio button.
5. It will process data in backgound and errors will appear in foreground. -
BRS Batch input session deletion
Dear Gurus,
User entered wrong data in BRS Statement and posted...When running session he came to know that Bank key and accound id entered wrongly.....
Can anybody tell me how can we overcome this.
Regards,
VenkatDear All,
Problem resolved. We deleted that session and updated opening balance in next statement and system accepted.
Regards,
Venkat -
Stateful Session deleted on Remote Exception ?
Hi,
Our statefull session bean gets deleted, whenever it throws Remote exception.
Actually the internal exception is caught and the method throws' Remote Exception.
After the exception the bean cannot be accessed from it's remote interface. All we
get is the error saying the bean is removed or deleted. Is this a known behavior.
All help appreciated
Thanks,
Venki
Exception :
= ===================================
= ======= Reason ===================
= ===================================
java.rmi.NoSuchObjectException: Bean has been deleted.
Start server side stack trace:
java.rmi.NoSuchObjectException: Bean has been deleted.
at weblogic.ejb20.swap.DiskSwap.read(DiskSwap.java:155)
at weblogic.ejb20.manager.StatefulSessionManager.getBean(StatefulSession
Manager.java:242)
at weblogic.ejb20.manager.StatefulSessionManager.preInvoke(StatefulSessi
onManager.java:313)
at weblogic.ejb20.internal.BaseEJBObject.preInvoke(BaseEJBObject.java:11
7)
at weblogic.ejb20.internal.StatefulEJBObject.preInvoke(StatefulEJBObject
.java:170)Thanks,
V
"Dimitri I. Rakitine" <[email protected]> wrote:
Yup, this is exactly what is supposed to happen. RemoteException isA system
exception
and it is container's responsibility to, among other things, discard the
bean instance.
If you want different behaviour then throw a checked application exception
(one which
subclasses java.lang.Exception and not RuntimeException or RemoteException).
Venki <[email protected]> wrote:
Hi,
Our statefull session bean gets deleted, whenever it throws Remoteexception.
Actually the internal exception is caught and the method throws' RemoteException.
After the exception the bean cannot be accessed from it's remote interface.All we
get is the error saying the bean is removed or deleted. Is this a knownbehavior.
All help appreciated
Thanks,
Venki
Exception :
= ===================================
= ======= Reason ===================
= ===================================
java.rmi.NoSuchObjectException: Bean has been deleted.
Start server side stack trace:
java.rmi.NoSuchObjectException: Bean has been deleted.
at weblogic.ejb20.swap.DiskSwap.read(DiskSwap.java:155)
at weblogic.ejb20.manager.StatefulSessionManager.getBean(StatefulSession
Manager.java:242)
at weblogic.ejb20.manager.StatefulSessionManager.preInvoke(StatefulSessi
onManager.java:313)
at weblogic.ejb20.internal.BaseEJBObject.preInvoke(BaseEJBObject.java:11
7)
at weblogic.ejb20.internal.StatefulEJBObject.preInvoke(StatefulEJBObject
.java:170)--
Dimitri -
Session log from SM35-not fully displayed
Dear Freinds,
My requirement is to read the log of SM35, that is my intenstion is after my report being executed (BDC session method ) the session get processed in background only as i have used rsbdcsub .
Now i want to display the log which find in the SM35 for processed session i have tried below in my program
i.e after running the session I should read log and store for which legacy numbers SAP customer is created and for which its failed.
As specified in one of the logs in the SDN i have written as below.
Get your TEMSEID MANDANT from APQL table, and call these four function modules in sequence.
DATA: CHARCP LIKE RSTSTYPE-CHARCO VALUE '0000'.
CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
EXPORTING
AUTHORITY = ' '
CLIENT = APQL-MANDANT
NAME = APQL-TEMSEID
IMPORTING
CHARCO = CHARCP
EXCEPTIONS
FB_ERROR = 1
FB_RSTS_OTHER = 2
NO_OBJECT = 3
NO_PERMISSION = 4
OTHERS = 5.
CALL FUNCTION 'RSTS_OPEN_RLC'
EXPORTING
NAME = APQL-TEMSEID
CLIENT = APQL-MANDANT
AUTHORITY = 'BATCH'
PROM = 'I'
RECTYP = 'VNL----'
CHARCO = CHARCP
EXCEPTIONS
FB_CALL_HANDLE = 4
FB_ERROR = 8
FB_RSTS_NOCONV = 12
FB_RSTS_OTHER = 16
NO_OBJECT = 20
OTHERS = 24.
IF SY-SUBRC > 0.
EXIT.
ENDIF.
CALL FUNCTION 'RSTS_READ'
TABLES
DATATAB = LOG_TABLE
EXCEPTIONS
FB_CALL_HANDLE = 4
FB_ERROR = 8
FB_RSTS_NOCONV = 12
FB_RSTS_OTHER = 16
OTHERS = 16.
IF SY-SUBRC > 0.
EXIT.
ENDIF.
CALL FUNCTION 'RSTS_CLOSE'
EXCEPTIONS
OTHERS = 4.
LOG_TABLE is having only the below
ENTERDATE LIKE BTCTLE-ENTERDATE,
ENTERTIME LIKE BTCTLE-ENTERTIME,
LOGMESSAGE(400) TYPE C,
In t´he log message I am not getting any exact message displayed in SM35 log . Please suggest me what i have to do
regards
divyabetter use:
CALL TRANSACTION tcode USING bdcdata MODE mod MESSAGES INTO itab.
and analyse sy-subrc and itab for every customer
A. -
Running the batchinput session other than sm35
Hi
Can any one please tell how to know when a batch input session was run other than SM35?
Thanks,Hi Anand,
Check for the following transactions:
SM36 - Define Background Job
SM37 - Simple job Selection
Hope this helps you,
Regards.
Chandra Sekhar -
ERROR SESSIONS DOWNLOAD FROM SM35
Hi Guru's,
I want to down load error sessions from SM35 on desktop for user friendly, But i am trying to search in SCN but i am not getting exact one,
So please help me with peace of worthfull code.
Best Regards,
Arjun.try to do manually use following tables and and get the error log and download it....
APQI------->Queue info definition
APQD----->n DATA DEFINITION Queue............
in APQI table u will get the log field VARDATA....... -
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,
AnkurHi Ankur..
Program is there.
Program name is RSBDCLOG.
Below is the program's source code..
*@(#)RSBDCLOG %I% SAP %E%
SAP AG Walldorf
Systeme, Anwendungen und Produkte in der Datenverarbeitung
(C) Copyright SAP AG 1997
Projekt: R/3 BatchInput
Entwickl.-Stand: SAP , BIN-Datenbank
Source-Typ: Report
Autor: SAP
Entwicklungsstand:
30.04.97 first version with new protocol interface based on
previous RSBDCLOG (copied to RSBDCOLG and used if
parameter bdc/new_protocol = off)
REPORT RSBDCLOG MESSAGE-ID 00 LINE-SIZE 102
NO STANDARD PAGE HEADING.
Dieser Report dient zur Anzeige des Inhalts eines Batch-Input *
Protokolls. Batch Input Protokolle werden ab dieser Version *
als TemSe Files abgelegt. Die Zuordnung eines TemSe Files zu einem *
Batch Input Lauf erfolgt ueber die neue Tabelle APQL, die damit *
das Protokoll Verzeichnis realisiert. *
1. Die Tabelle BDCLD beschreibt die Struktur eines Verzeichnis- *
Eintrags und entspricht damit APQL. *
2. Die Tabelle BDCLM beschreibt einen Eintrag innerhalb eines *
TemSe Protkoll Files (M = Message). *
*-- Datendefinitionen zum Report ---*
TABLES: BDCMH, *BDCMH, "BatchInput Trans.Header
BDCTH, *BDCTH, "BatchInput Mess. Header
APQD, *APQD, "Queue Daten
APQI, *APQI, "Queue Info
APQL, "Protocol Directory Info
D0220, "Dynpro 220
D0300. "Dynpro 320
TABLES: SPOP. "infostruktur popup_to_confirm
DATA: BEGIN OF BIM, "Aktivitaeten Uebersicht
AONL(4) VALUE 'AONL', "Mappen-Abspielen im Online
ABTC(4) VALUE 'ABTC', "Mappen-Abspielen im Batch
FREE(4) VALUE 'FREE', "Freigeben einer Mappe
LOCK(4) VALUE 'LOCK', "Sperren und Entsperren von Mappen
DELE(4) VALUE 'DELE', "Loeschen von Mappen
ANAL(4) VALUE 'ANAL', "Analysieren von Mappen
END OF BIM.
DATA BEGIN OF BDCLDA OCCURS 0. " ITabelle der Verzeichniseintraege
INCLUDE STRUCTURE APQL. " LogTabelle
DATA END OF BDCLDA .
DATA: BEGIN OF ITRAN OCCURS 0,
CNT TYPE I, "zaehler
TRANS TYPE I, "transanktions#
QID LIKE APQI-QID , "qid
FRAGM(1) , "fragmented flag
END OF ITRAN.
DATA: ISTART TYPE I,
IENDE TYPE I,
ISTEP TYPE I,
IND TYPE I.
DATA: BEGIN OF BLOCK,
MARK TYPE I VALUE 0, "markierungsflag
SA LIKE SY-CPAGE, " block anfang
ZA LIKE SY-CUROW,
SE LIKE SY-CPAGE, " block ende
ZE LIKE SY-CUROW,
END OF BLOCK.
DATA: BEGIN OF MTAB OCCURS 0.
INCLUDE STRUCTURE APQI.
DATA: END OF MTAB.
DATA: BEGIN OF MY ,
MSGV1 LIKE SY-MSGV1,
MSGV2 LIKE SY-MSGV2,
MSGV3 LIKE SY-MSGV3,
MSGV4 LIKE SY-MSGV4,
END OF MY.
DATA: T-COUNT TYPE I.
DATA: "Hilfsfelder Zugriff Logfile
S_LOGNAME(80),
DECISION(01),
JA(01) VALUE 'J', "yeah
NEIN(01) VALUE 'N', "ni
EC TYPE I,
DEL_RETURN TYPE I,
NAMELN TYPE I,
TFOUND TYPE I,
TFCOUNT TYPE I,
DTRANCNT TYPE I VALUE 0,
PROTCNT TYPE I,
DCOUNT TYPE I,
MCOUNT TYPE I,
CHECKCNT TYPE I,
MAXLINE TYPE I VALUE 0,
WSTAT(04) TYPE C,
USE(1) TYPE C,
MODUS(1) TYPE C,
RUNLEVEL(1) TYPE C,
ZW-FNAME(80), "Hilfsfeld feldname
TMAPN(12) TYPE C, "hilfsfeld bdcld-GROUPID
BDCMHLEN TYPE I VALUE 20, "MessageHeader laenge 20 Bytes
BDCTHLEN TYPE I VALUE 6, "TransactionHeader laenge 6 Bytes
WHICHTRAN(3) TYPE C,
ULINE(80) VALUE "Unterstrich
TABIND LIKE SY-TABIX,
TABIND1 LIKE SY-TABIX,
PFSTATUS LIKE SY-PFKEY,
OLDSTATUS LIKE SY-PFKEY,
MOD_BILD TYPE I VALUE 0,
LOOP(1) VALUE 'L', "loop flag
TABW(1) VALUE 'T' , "loop flag
MSG_ART(1), "message art e=error w=warning s=
SEPCHAR(1), "seperator character def.
HBEGIN(1), "header beginn character Def.
COUNTX TYPE X, "header beginn character Def.
COUNTY TYPE I, "header beginn character Def.
EAFELD TYPE X VALUE '80', "header beginn character Def.
HLEN TYPE I VALUE 20, "header len
SAVE_CUROW0 LIKE SY-CUROW,
SAVE_CUROW1 LIKE SY-CUROW,
SAVE_CUROW2 LIKE SY-CUROW,
SAVE_CUROW3 LIKE SY-CUROW,
SAVE_CUROW4 LIKE SY-CUROW,
SAVE_CUROW5 LIKE SY-CUROW,
SAVE_CUROW6 LIKE SY-CUROW,
SAVE_CUROW7 LIKE SY-CUROW,
SAVE_CUROW8 LIKE SY-CUROW,
SAVE_LSIND LIKE SY-LSIND,
SAVE_LILLI1 LIKE SY-LILLI,
SAVE_LILLI2 LIKE SY-LILLI,
SAVE_PAGE1 LIKE SY-CPAGE,
SAVE_PAGE2 LIKE SY-CPAGE,
SAVE_PAGE8 LIKE SY-CPAGE,
SAVE_STARO LIKE SY-STARO,
SAVE_STACO LIKE SY-STACO,
SAVE_RC LIKE SY-SUBRC,
LINCT LIKE SY-LINCT,
LLINCT LIKE SY-LINCT,
E(1) VALUE 'E',
PARAMNAME(11) VALUE 'bdc/logfile',
frame1(14),
D0320-FCODE LIKE SY-UCOMM .
DATA:
Hilfsfeld zur Parameter-Uebergabe an Langtext-Anzeige eines
Job-Protokoll Eintrags
MSG_TEXT LIKE SHKONTEXT-MELDUNG,
MSG_ARBGB LIKE SHKONTEXT-MELD_ID,
MSG_NR LIKE SHKONTEXT-MELD_NR,
MSG_TITLE LIKE SHKONTEXT-TITEL.
DATA:
Hilfsfeld zur protokollfeststellung im zentralen directory
SHIFTLEN TYPE I VALUE 0,
PROTFLEN TYPE I VALUE 0,
PROTFOFF TYPE I VALUE 0,
RLEN TYPE I VALUE 0.
DATA: "Konstanten
APQD-MAXA TYPE I VALUE 100, " maximaler access auf apqd
AUTOR(05) TYPE C VALUE 'HARMS',
STANDALONE(01) TYPE C VALUE 'O',
DYNPRO(01) TYPE C VALUE 'D',
SUBMIT(01) TYPE C VALUE 'S'.
DATA: "zaehler
TFCNT TYPE I VALUE 0,
ON TYPE I VALUE 1,
OK TYPE I VALUE 1,
OFF TYPE I VALUE 0,
GUI_OBJ TYPE I VALUE 9,
HCOUNT TYPE I VALUE 0,
TCOUNT TYPE I VALUE 0,
TCOUNT1 TYPE I VALUE 0,
TCOUNT2 TYPE I VALUE 0,
WCOUNT TYPE I VALUE 0,
ZCOUNT TYPE I VALUE 0,
QCOUNT TYPE I VALUE 0.
DATA BEGIN OF LOG.
INCLUDE STRUCTURE RLOG.
DATA END OF LOG.
DATA:
BEGIN OF ZWD,
VDAT(8) TYPE C,
XDAT(1) TYPE C,
BDAT(8) TYPE C,
END OF ZWD.
DATA: "Hilfsfelder
VDAT TYPE D,
BDAT TYPE D.
DATA: "Eingabedatum fuer Ausgabedatum
BEGIN OF DATE,
JJJJ(4) TYPE N, "jahr
MM(2) TYPE N, "monat
TT(2) TYPE N, "tag
END OF DATE.
DATA: "Eingabedatum fuer Ausgabedatum
BEGIN OF DAT ,
TT(2) TYPE N, "tag
MM(2) TYPE N, "monat
JJJJ(4) TYPE N, "jahr
END OF DAT .
DATA: BEGIN OF DYH. "Dynpro Header
INCLUDE STRUCTURE D020S.
DATA: END OF DYH.
DATA: BEGIN OF DYF OCCURS 250. "Dynpro Felder
INCLUDE STRUCTURE D021S.
DATA: END OF DYF.
DATA: BEGIN OF DYA OCCURS 100. "Dynpro Ablauf-Logik
INCLUDE STRUCTURE D022S.
DATA: END OF DYA.
DATA: BEGIN OF DYM OCCURS 20. "Dynpro Matchcode-Subkeys
INCLUDE STRUCTURE D023S.
DATA: END OF DYM.
DATA: BEGIN OF DYL OCCURS 64, "Loop-Information
LTYP,
LANF TYPE X,
LBLK TYPE X,
LREP TYPE X,
END OF DYL.
n e u -
DATA: BEGIN OF TF OCCURS 0, "interne tabelle mit dynprofeldern
COUNT TYPE I VALUE 0, "zum abmischen
TRCD(4),
STAT(4),
PGM(8), "programmname
DYN(4) TYPE N, "dynpronummer
FNAME(35),
FARG(80),
FSTART(5) TYPE P,
FENDE(5) TYPE P,
END OF TF.
DATA: BEGIN OF DYT. "Dynpro Felder
INCLUDE STRUCTURE D021S.
DATA: END OF DYT.
DATA: BEGIN OF ANAL,
COUNT TYPE I VALUE 0, " zaehler
ECOUNT TYPE I VALUE 0, " zaehler
BA LIKE APQD-TRANS, " block anfang
BE LIKE APQD-TRANS, " block ende
OBA LIKE APQD-TRANS, " block anfang old
OBE LIKE APQD-TRANS, " block ende old
FKT1 LIKE APQD-TRANS, " faktor1
FKT2 LIKE APQD-TRANS, " faktor2
MAXBLK LIKE APQD-TRANS, " maximale blockanzahl
BLK# LIKE APQD-TRANS, " blocknummer lfd.
END OF ANAL.
interne Tabelle ---
DATA:
BEGIN OF ITAB OCCURS 0, "Interne Tabelle fuer Grundliste
COUNT LIKE APQI-TRANSCNT, "Record count, Hilfsfeld fuer debug
TCNT LIKE APQI-TRANSCNT, "transaction counter all
MCNT LIKE APQI-MSGCNT, "message counter all
ETCNT LIKE APQI-TRANSCNTE, "transaction counter errore
EMCNT LIKE APQI-MSGCNTE, "message counter error
DTCNT LIKE APQI-TRANSCNTD, "transaction counter delete
DMCNT LIKE APQI-MSGCNTD, "message counter delete
FTCNT LIKE APQI-TRANSCNTF, "transaction counter finished
FMCNT LIKE APQI-MSGCNTF, "message counter finished
BTCNT LIKE APQI-TRANSCNTF, "transaction counter booked
BMCNT LIKE APQI-MSGCNTF, "message counter booked
QDEL LIKE APQI-QERASE, "kennzeichen loeschen mappe
STATD(12),
END OF ITAB.
DATA:
BEGIN OF OLDI, "Headerdaten von Tapqd-udat (Vergl.)
HYC(1), "header eyecatcher
PGM(8), "programmname
DYN(4) TYPE N, "dynpronummer
SYNC(1), "syncpoint
STAT(1), "STatus
SCHAR(1), "Seperatorcharacter Def.
TRCD(4), "Trans.code
TCNT LIKE APQD-TRANS,
MCNT LIKE APQD-BLOCK,
END OF OLDI.
DATA: MFART(2) TYPE C, "Hilfsfelder abmischen dynpro mit
MFSTART TYPE I VALUE 0, "feldinhalten
MFENDE TYPE I VALUE 0,
MFLEN TYPE I VALUE 0.
DATA:
BEGIN OF Z, "Hilfsstruktur fuer sy-lisel
TRCD(04),
FILLER1(08),
STAT(03),
FILLER2(09),
PROG(08),
FILLER3(01),
DYN(04),
FILLER4(44),
END OF Z.
DATA:
BEGIN OF LF, "Hilfsstruktur fuer loop extension
FILLER1(01),
ZEILE(02) TYPE N,
FILLER2(01),
END OF LF.
DATA: ZEILE(2) TYPE P, "Hilfsfelder Dynproaufbereitung
SPALTE(2) TYPE P,
PLENG(2) TYPE P,
PLANF(2) TYPE P,
PLBLK(2) TYPE P,
PLREP(2) TYPE P,
ZAEHL(4) TYPE P,
PZEILE(2) TYPE P,
PCOLN(2) TYPE P.
DATA: BEGIN OF BILD OCCURS 24, " -''-
ZEILE(120),
FLAG,
END OF BILD,
CHAR79(79),
DYNAME(12).
DATA: BEGIN OF BILDE OCCURS 0, "Eingabefelder aufbereitet
ZEILE LIKE ZEILE,
PCOLN LIKE PCOLN,
PLENG LIKE PLENG,
PREP TYPE I,
GUIOBJ(01),
FLD(120),
END OF BILDE,
REF-ZEILE LIKE ZEILE.
DATA:
BEGIN OF BDC,
OKCODE(5), "Dynpro Okcode
CURSOR(35), "Cursorposition Feldname
END OF BDC. "oder Format ZZ,SS
DATA:
BEGIN OF CURSOR,
ZZ(2) TYPE N, "Zeile
FILLER(1), "Komma
SS(2) TYPE N, "Sspalte
END OF CURSOR. " Z = Zeile, S = Spalte
DATA:
BEGIN OF FLD,
FNAME(80),
FVAL(80),
END OF FLD.
DATA: "Popup 220 Groesse
BEGIN OF D220,
L TYPE I VALUE 10 , " links 10
O TYPE I VALUE 06 , " oben 06
R TYPE I VALUE 38 , " rechts38
U TYPE I VALUE 11 , " unten 11
END OF D220.
INCLUDE RSTR0110.
DATA: BEGIN OF PROT_LIST OCCURS 0.
INCLUDE RSTR0112.
DATA: SEEN(1),
TO_BE_DELETED(1),
HAS_CHANGED(1),
LOCAL_HOST(24),
END OF PROT_LIST.
DATA: "reports
REOREPORT(8) TYPE C VALUE 'RSBDCREO', " Protokollreorganisation
SUBREPORT(12) TYPE C VALUE 'RSBDCBTC_NEW', " Submit Batch
LOGREPORT(8) TYPE C VALUE 'RSBDCLOG', " Protokoll
DMPREPORT(12) TYPE C VALUE 'RSBDCDMP_NEW', " Queue Dump
TSTREPORT(8) TYPE C VALUE 'RSBDCCKT', " alle BDCLG Files in APQL?
APLREPORT(8) TYPE C VALUE 'RSBDCCKA'. " TemSe File zu APQL-Eintrag?
TABLES: SNAP. "Rabaxauswertung
FIELD-SYMBOLS: .
DATA:
BEGIN OF D320, "Popup 320 Groesse
L TYPE I VALUE 30 , " links 30
O TYPE I VALUE 06 , " oben 06
R TYPE I VALUE 60 , " rechts60
U TYPE I VALUE 08 , " unten 08
END OF D320.
DATA: FOLGESEGMENT TYPE I,
SOFFS TYPE I ,
APQDVARLEN TYPE I,
BDCMHSEPC(01),
MAXVARDATALEN TYPE I VALUE 0.
*---- common part daten erhalten ein eigenes segment----
DATA BEGIN OF COMMON PART VARDAT.
DATA: APQDVARDATA(21333), " neue datenfelder wegen
*APQDVARDATA(21333), " segmentierten mappen
UDAT(21333).
DATA END OF COMMON PART VARDAT.
INCLUDE RSBDCIL1. " data definitionen fuer rsbdcil2
INCLUDE RSBDCIL2. " Forms zur Protokollanzeige
INCLUDE RSBDCIL3. " Form zum Lesen des TemSe Files
" in Anlehnung an LSTLGFXX.
*---- START OF SELECTION -
DATA: PROTPARAM(60) VALUE 'bdc/new_protocol',
NEWPROT(3) VALUE 'off'.
PARAMETER MAPPE LIKE APQI-GROUPID DEFAULT '*'.
PARAMETER QUEUE_ID LIKE APQD-QID DEFAULT '0' NO-DISPLAY.
PARAMETER TEMSEID LIKE APQL-TEMSEID DEFAULT '0' NO-DISPLAY.
START-OF-SELECTION.
CALL 'C_SAPGPARAM' ID 'NAME' FIELD PROTPARAM
ID 'VALUE' FIELD NEWPROT.
IF NEWPROT <> 'on'.
SUBMIT RSBDCOLG AND RETURN.
EXIT.
ENDIF.
CLEAR LOG.
IF SY-TCODE NE 'SE38'. " runlevel festlegen
RUNLEVEL = SUBMIT.
ELSE.
RUNLEVEL = STANDALONE.
ENDIF.
IF SY-BATCH <> SPACE. " runlevel festlegen
RUNLEVEL = STANDALONE. " im batch
ENDIF.
IF RUNLEVEL = SUBMIT.
GET PARAMETER ID 'BDC' FIELD LOG.
ELSE.
PERFORM CHECK_PARAM.
ENDIF.
CLEAR: BDCLD, SHOWTYP.
REFRESH: BDCLD.
IF LOG-MODUS EQ 'A' OR
LOG-MODUS EQ 'B'.
IF LOG-TEXT(17) NE SPACE.
MOVE LOG-TEXT TO ZWD.
MOVE ZWD-VDAT TO VDAT.
PERFORM MAKE_DATE USING ZWD-VDAT VDAT.
MOVE ZWD-BDAT TO BDAT.
PERFORM MAKE_DATE USING ZWD-BDAT BDAT.
ELSE.
MOVE '00000000' TO VDAT.
MOVE '99999999' TO BDAT.
ENDIF.
ENDIF.
CASE LOG-MODUS.
WHEN 'A'.
SET PF-STATUS 'ALPH'.
SET TITLEBAR 'ALP'.
PERFORM ALL_PROT. "vh3914
PERFORM LOG_ALL.
PERFORM SHOW_DIR.
WHEN 'B'.
SET PF-STATUS 'ALPH'.
SET TITLEBAR 'ALP'.
PERFORM ALL_PROT. "vh3914
PERFORM LOG_ALL.
PERFORM SHOW_DIRP.
WHEN 'C'.
SET PF-STATUS 'ALPO'.
SET TITLEBAR 'ALP'.
PERFORM ALL_PROT. "vh3914
PERFORM LOG_ALL.
PERFORM INFO_BIPROT.
IF LOG-TCNT GT 1.
LOG-MODUS = 'F'.
SET PF-STATUS 'ALPF'.
PERFORM SHOW_DIRF.
ELSE.
PERFORM SHOW_DIRQ.
ENDIF.
WHEN 'D'.
SET PF-STATUS 'ALPO'.
SET TITLEBAR 'ALP'.
PERFORM ALL_PROT. "vh3914
PERFORM LOG_ALL.
PERFORM SHOW_DIR.
WHEN 'E'.
SET PF-STATUS 'ALPO'.
SET TITLEBAR 'ALP'.
PERFORM ALL_PROT. "vh3914
PERFORM LOG_ALL.
PERFORM SHOW_DIRE.
WHEN 'M'.
SET PF-STATUS 'MESS'.
SET TITLEBAR 'MSG' WITH LOG-MAPN.
CLEAR BDCLD.
MOVE-CORRESPONDING LOG TO BDCLD.
MOVE LOG-MAPN TO BDCLD-GROUPID.
MOVE LOG-QUID TO BDCLD-QID.
PERFORM LOG_MES.
PERFORM SHOW_MES.
WHEN 'P'.
PERFORM ALL_PROT. "vh3914
PERFORM INFO_BIPROT.
WHEN 'Q'.
PERFORM ALL_PROT. "vh3914
PERFORM DELE_BIPROT.
WHEN OTHERS.
SET PF-STATUS 'ALPH'.
SET TITLEBAR 'ALP'.
PERFORM ALL_PROT. "vh3914
PERFORM LOG_ALL.
PERFORM SHOW_DIR.
ENDCASE.
PERFORM SEND_MSG.
SET PARAMETER ID 'BDC' FIELD LOG.
*---- PBO MODULE REPORT RSBDCLOG -
MODULE D0220_POPINI PBO *
Initialisierung der Cursor-Eingabe-Felder (ja,nein) in Popup *
MODULE D0220_POPINI OUTPUT.
CLEAR: ZW-FNAME.
ZW-FNAME = 'D0220-POPNEIN'.
SET CURSOR FIELD ZW-FNAME.
SET PF-STATUS '0220'.
SET TITLEBAR '009'.
D0220-POPJA = TEXT-027. "ja
D0220-POPNEIN = TEXT-028. "nein
ENDMODULE. " D0220_POPINI.
MODULE D0320_INIT PBO *
Initialisierung der Felder des Dynpros 0320 *
MODULE D0320_INIT OUTPUT.
Initialisierung der Dynprofelder
SET PF-STATUS '0320'.
SET TITLEBAR '015'.
CLEAR: D0320-FCODE.
CLEAR: D0300-BATCHSYS.
ENDMODULE. " D0300_INIT.
*---- PAI MODULE REPORT RSBDCLOG -
MODULE D0220_DELETE PAI *
Loeschen eines Protokolls *
MODULE D0220_DELETE.
IF SY-UNAME EQ AUTOR. BREAK-POINT 1. ENDIF.
CLEAR: ZW-FNAME.
GET CURSOR FIELD ZW-FNAME.
IF D0220-FCODE = 'CONT' OR " f12 abbrechen, nein
SY-CUROW = 7 OR
SY-CUROW = 4 OR
ZW-FNAME = 'D0220-POPNEIN' OR
ZW-FNAME = 'D0220-POPCONT'.
RETURN = 0.
ENDIF.
IF D0220-FCODE <> 'CONT' AND " ja
( ZW-FNAME = 'D0220-POPJA' OR
SY-CUROW = 5 ).
RETURN = 0.
D0220-FCODE = 'DEL'.
ENDIF.
ENDMODULE. " D0220_DELETE
MODULE D0320_START *
Angabe der Blocknummer in der Mappenanalyse *
MODULE D0320_FCODE.
CASE D0320-FCODE.
WHEN ' ' . "normale verarbeitung
IF D0300-BLOCKNR GT ANAL-MAXBLK OR
D0300-BLOCKNR LE 0.
RETURN = 328.
PERFORM SEND_MSG.
SET SCREEN 320.
ENDIF.
WHEN 'GOON' . "normale verarbeitung
IF D0300-BLOCKNR GT ANAL-MAXBLK OR
D0300-BLOCKNR LE 0.
RETURN = 328.
PERFORM SEND_MSG.
SET SCREEN 320.
ENDIF.
WHEN 'CONT' . "f12 abbrechen
WHEN OTHERS .
SET PF-STATUS '0320'.
SET TITLEBAR '015'.
SET SCREEN 320.
ENDCASE. "D0320-FCODE
ENDMODULE. " d0320_fcode
FORM : info_biprot *
Info ueber ein Protokoll *
FORM INFO_BIPROT.
CLEAR: QFOUND.
LOOP AT BDCLD.
IF LOG-QUID EQ BDCLD-QID.
QFOUND = QFOUND + 1.
ENDIF.
ENDLOOP.
IF QFOUND GT 0.
LOG-RETC = 'PROT'.
LOG-TCNT = QFOUND.
ENDIF.
ENDFORM. " info_biprot
FORM : dele_biprot *
loeschen eines Protokolls von aussen *
FORM DELE_BIPROT.
CLEAR: QFOUND.
LOOP AT BDCLD.
IF LOG-QUID EQ BDCLD-QID.
QFOUND = QFOUND + 1.
PERFORM DEL_MESL.
ENDIF.
ENDLOOP.
IF QFOUND GT 0.
LOG-RETC = 'DELE'.
LOG-TCNT = QFOUND.
ENDIF.
ENDFORM. " dele_biprot
FORM : all_prot "vh3914 *
FORM ALL_PROT.
CLEAR: BDCLD-CNT,
BDCLD#.
PERFORM LOG_ALL. "vh3914
IF BDCLD-CNT EQ 0. "vh3914
RETURN = 318. "vh3914
EXIT. "vh3914
ELSE. "vh3914
RETURN = 0. "vh3914
ENDIF. "vh3914
SORT: BDCLD BY CREDATE DESCENDING "vh3914
CRETIME DESCENDING. "vh3914
ENDFORM. " all_prot
FORM : log_all *
FORM LOG_ALL.
PERFORM LOG_DIR.
ENDFORM. " log_all.
FORM : show_all *
FORM SHOW_ALL.
PERFORM SHOW_DIR.
ENDFORM. " show_all.
FORM : log_dir *
FORM LOG_DIR.
CLEAR: BDCLD.
REFRESH: BDCLD.
CLEAR: BDCLDA. "vh3914
REFRESH: BDCLDA. "vh3914
SELECT * FROM APQL INTO TABLE BDCLDA. "protocol directory data
IF SY-SUBRC = 4. " Verzeichnis ist leer
RETURN = 318. "MESSAGE S318 WITH 'Verzeichnis'
EXIT.
ENDIF.
IF SY-SUBRC NE 0. " Fehler beim Lesen des Verzeichni
RETURN = 317. "MESSAGE S317 WITH 'Verzeichnis' 'gelesen
EXIT.
ENDIF.
SORT: BDCLDA BY CREDATE DESCENDING
CRETIME DESCENDING.
LOOP AT BDCLDA "vh3914
WHERE MANDANT = SY-MANDT.
MOVE-CORRESPONDING BDCLDA TO BDCLD. "vh3914
BDCLD-CNT = BDCLD-CNT + 1. "vh3914
BDCLD# = BDCLD# + 1. "vh3914
APPEND BDCLD. "vh3914
ENDLOOP. "vh3914
ENDFORM. " log_dir.
FORM : show_dir *
FORM SHOW_DIR.
IF SY-UNAME EQ AUTOR. BREAK-POINT 1. ENDIF.
IF RETURN GT 0.
EXIT.
ENDIF.
SHOWTYP = 'DIR '.
LOOP AT BDCLD WHERE CREDATE GE VDAT
AND CREDATE LE BDAT.
FORMAT RESET.
WRITE:/01(102) SPACE COLOR COL_NORMAL.
WRITE: 24(27) BDCLD-GROUPID COLOR COL_KEY INTENSIFIED ON.
PERFORM WRITE_DATE USING BDCLD-CREDATE.
WRITE: 02(10) DATE1 DD/MM/YYYY COLOR COL_NORMAL,
13(08) BDCLD-CRETIME USING EDIT MASK '__:__:__'
COLOR COL_NORMAL.
WRITE: 52(12) BDCLD-CREATOR COLOR COL_NORMAL,
81(24) BDCLD-DESTSYS COLOR COL_NORMAL.
PERFORM WRITE_VLINE USING ' ' 23.
PERFORM WRITE_VLINE USING ' ' 12.
PERFORM WRITE_VLINE USING ' ' 51.
PERFORM WRITE_VLINE USING ' ' 80.
PERFORM WRITE_VLINE USING ' ' 1.
PERFORM WRITE_VLINE USING ' ' 102.
HIDE: BDCLD, BDCLD#.
ENDLOOP.
PERFORM LAST_LISTLINE.
LINCT0 = SY-SROWS. "seitengroesse grundliste festhalten
ENDFORM. " show_dir.
FORM : show_dirp *
FORM SHOW_DIRP.
show directory for log-name
IF RETURN GT 0.
EXIT.
ENDIF.
SHOWTYP = 'DIRP '.
CLEAR: NAMELN, LMAPN, TFOUND.
IF LOG-MAPN CA '%'.
NAMELN = SY-FDPOS.
WRITE LOG-MAPN TO LMAPN(NAMELN).
ELSE.
IF LOG-MAPN CA ' '.
NAMELN = SY-FDPOS.
ELSE.
NAMELN = 12.
ENDIF.
WRITE LOG-MAPN TO LMAPN(NAMELN).
ENDIF.
LOOP AT BDCLD WHERE CREDATE GE VDAT
AND CREDATE LE BDAT.
CLEAR: TMAPN.
WRITE BDCLD-GROUPID TO TMAPN(NAMELN).
IF LMAPN EQ TMAPN.
TFOUND = TFOUND + 1.
FORMAT RESET.
WRITE:/01(102) SPACE COLOR COL_NORMAL.
WRITE: 24(27) BDCLD-GROUPID COLOR COL_KEY INTENSIFIED ON.
PERFORM WRITE_DATE USING BDCLD-CREDATE.
WRITE: 02(10) DATE1 DD/MM/YYYY
COLOR COL_NORMAL,
13(08) BDCLD-CRETIME USING EDIT MASK '__:__:__'
COLOR COL_NORMAL,
52(12) BDCLD-CREATOR COLOR COL_NORMAL,
81(24) BDCLD-DESTSYS COLOR COL_NORMAL.
PERFORM WRITE_VLINE USING ' ' 23.
PERFORM WRITE_VLINE USING ' ' 12.
PERFORM WRITE_VLINE USING ' ' 51.
PERFORM WRITE_VLINE USING ' ' 80.
PERFORM WRITE_VLINE USING ' ' 1.
PERFORM WRITE_VLINE USING ' ' 102.
HIDE: BDCLD, BDCLD#.
ENDIF.
ENDLOOP.
IF TFOUND = 0.
RETURN = 324. " keine Protokolle gefunden
ELSE.
PERFORM LAST_LISTLINE.
ENDIF.
LINCT0 = SY-SROWS. "seitengroesse grundliste festhalten
ENDFORM. " show_dirp.
FORM : show_dirq *
FORM SHOW_DIRQ.
show directory and message for QUEUE_ID
IF RETURN GT 0.
EXIT.
ENDIF.
SHOWTYP = 'DIRQ '.
CLEAR: QFOUND, LMAPN.
LOOP AT BDCLD.
IF LOG-QUID EQ BDCLD-QID.
QFOUND = QFOUND + 1.
QFOUND = 1.
IF QFOUND = 1.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/01(102) SY-ULINE.
WRITE:/24(12) 'Mappenname '(003).
WRITE: 02(11) 'Angelegt '(004),
12(08) ' ',
52(12) 'User '(005).
PERFORM WRITE_VLINE USING ' ' 23.
PERFORM WRITE_VLINE USING ' ' 51.
PERFORM WRITE_VLINE USING ' ' 1.
PERFORM WRITE_VLINE USING ' ' 102.
FORMAT INTENSIFIED.
WRITE:/24(12) SY-ULINE,
02(80) SY-ULINE,
12(08) SY-ULINE,
52(40) SY-ULINE.
PERFORM WRITE_VLINE USING 'T' 23.
PERFORM WRITE_VLINE USING 'T' 51.
PERFORM WRITE_VLINE USING ' ' 1.
PERFORM WRITE_VLINE USING ' ' 102.
ENDIF.
FORMAT RESET.
IF BDCLD-GROUPID NE LMAPN.
WRITE:/01(102) SPACE COLOR COL_NORMAL.
WRITE: 24(27) BDCLD-GROUPID COLOR COL_KEY INTENSIFIED ON.
LMAPN = BDCLD-GROUPID.
PERFORM WRITE_DATE USING BDCLD-CREDATE.
WRITE: 02(10) DATE1 DD/MM/YYYY COLOR COL_NORMAL ,
13(08) BDCLD-CRETIME USING EDIT MASK '__:__:__'
COLOR COL_NORMAL .
WRITE: 52(12) BDCLD-CREATOR COLOR COL_NORMAL ,
80(24) BDCLD-DESTSYS COLOR COL_NORMAL .
PERFORM WRITE_VLINE USING ' ' 23.
PERFORM WRITE_VLINE USING ' ' 51.
PERFORM WRITE_VLINE USING ' ' 1.
PERFORM WRITE_VLINE USING ' ' 102.
ENDIF.
MTAB-GROUPID = BDCLD-GROUPID.
PERFORM BIM_BERECHTIGUNG USING BIM-ANAL X.
IF SY-SUBRC NE 0.
HIDE: BDCLD, BDCLD#.
EXIT.
ENDIF.
WRITE:/01(102) SY-ULINE.
WRITE:/01(102) SPACE COLOR COL_HEADING INTENSIFIED OFF.
WRITE: 02 'Zeit '(001) COLOR COL_HEADING INTENSIFIED OFF,
11 'Tran'(008) COLOR COL_HEADING INTENSIFIED OFF,
16 'Dynpro'(007) COLOR COL_HEADING INTENSIFIED OFF,
30 'Nachricht'(002) COLOR COL_HEADING INTENSIFIED OFF.
63 DATE1 DD/MM/YYYY.
PERFORM WRITE_VLINE USING 'T' 10.
PERFORM WRITE_VLINE USING 'T' 15.
PERFORM WRITE_VLINE USING 'T' 29.
PERFORM WRITE_VLINE USING 'T' 1.
PERFORM WRITE_VLINE USING 'T' 102.
WRITE: /02(09) SY-ULINE,
11(04) SY-ULINE,
16(13) SY-ULINE,
30(60) SY-ULINE.
PERFORM WRITE_VLINE USING 'T' 10.
PERFORM WRITE_VLINE USING 'T' 15.
PERFORM WRITE_VLINE USING 'T' 29.
PERFORM WRITE_VLINE USING 'T' 1.
PERFORM WRITE_VLINE USING 'T' 102.
FORMAT RESET.
PERFORM LOG_MES.
PERFORM SHOW_MES.
DO 1 TIMES.
WRITE:/01(102) SPACE COLOR COL_NORMAL.
PERFORM WRITE_VLINE USING 'T' 10.
PERFORM WRITE_VLINE USING 'T' 15.
PERFORM WRITE_VLINE USING 'T' 29.
PERFORM WRITE_VLINE USING 'T' 1.
PERFORM WRITE_VLINE USING 'T' 102.
ENDDO.
HIDE: BDCLD, BDCLD#.
EXIT. " protokoll gefunden, bye
ENDIF. " immer das neueste protokoll
ENDLOOP.
IF QFOUND = 0.
RETURN = 324. " keine Protokolle gefunden
ELSE.
PERFORM LAST_LISTLINE.
ENDIF.
LINCT0 = SY-SROWS. "seitengroesse grundliste festhalten
ENDFORM. " show_dirq.
FORM : show_dirm *
FORM SHOW_DIRM.
show directory and message for QUEUE_ID
at line-selection
SHOWTYP = 'DIRM '.
CLEAR: QFOUND, LMAPN.
IF LOG-QUID EQ BDCLD-QID.
QFOUND = QFOUND + 1.
IF QFOUND = 1.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/01(102) SY-ULINE.
WRITE:/24(12) 'Mappenname '(003).
WRITE: 02(11) 'Angelegt '(004),
12(08) ' ',
52(50) 'User '(005).
PERFORM WRITE_VLINE USING ' ' 23.
PERFORM WRITE_VLINE USING ' ' 51.
PERFORM WRITE_VLINE USING ' ' 1.
PERFORM WRITE_VLINE USING ' ' 102.
FORMAT INTENSIFIED.
WRITE:/24(12) SY-ULINE,
02(80) SY-ULINE,
12(08) SY-ULINE,
52(80) SY-ULINE.
PERFORM WRITE_VLINE USING ' ' 23.
PERFORM WRITE_VLINE USING ' ' 51.
PERFORM WRITE_VLINE USING ' ' 1.
PERFORM WRITE_VLINE USING ' ' 102.
ENDIF.
FORMAT RESET.
IF BDCLD-GROUPID NE LMAPN.
WRITE:/01(102) SPACE COLOR COL_NORMAL.
WRITE: 24(27) BDCLD-GROUPID COLOR COL_KEY INTENSIFIED ON.
LMAPN = BDCLD-GROUPID.
PERFORM WRITE_DATE USING BDCLD-CREDATE.
WRITE: 02(10) DATE1 DD/MM/YYYY COLOR COL_NORMAL ,
13(08) BDCLD-CRETIME USING EDIT MASK '__:__:__'
COLOR COL_NORMAL .
WRITE: 52(12) BDCLD-CREATOR COLOR COL_NORMAL ,
80(24) BDCLD-DESTSYS COLOR COL_NORMAL .
PERFORM WRITE_VLINE USING ' ' 23.
PERFORM WRITE_VLINE USING ' ' 51.
PERFORM WRITE_VLINE USING ' ' 1.
PERFORM WRITE_VLINE USING ' ' 102.
ENDIF.
MTAB-GROUPID = BDCLD-GROUPID.
PERFORM BIM_BERECHTIGUNG USING BIM-ANAL X.
IF SY-SUBRC NE 0.
HIDE: BDCLD, BDCLD#.
EXIT.
ENDIF.
WRITE:/01(102) SPACE COLOR COL_HEADING INTENSIFIED OFF.
WRITE: 02 'Zeit '(001) COLOR COL_HEADING INTENSIFIED OFF,
11 'Tran'(008) COLOR COL_HEADING INTENSIFIED OFF,
16 'Dynpro'(007) COLOR COL_HEADING INTENSIFIED OFF,
30 'Nachricht'(002) COLOR COL_HEADING INTENSIFIED OFF.
PERFORM WRITE_VLINE USING ' ' 10.
PERFORM WRITE_VLINE USING ' ' 15.
PERFORM WRITE_VLINE USING ' ' 29.
PERFORM WRITE_VLINE USING ' ' 1.
PERFORM WRITE_VLINE USING ' ' 102.
WRITE: 01(09) SY-ULINE,
11(04) SY-ULINE,
16(13) SY-ULINE,
30(80) SY-ULINE.
PERFORM WRITE_VLINE USING ' ' 10.
PERFORM WRITE_VLINE USING ' ' 15.
PERFORM WRITE_VLINE USING ' ' 29.
PERFORM WRITE_VLINE USING ' ' 1.
PERFORM WRITE_VLINE USING ' ' 102.
FORMAT RESET.
PERFORM LOG_MES.
PERFORM SHOW_MES.
DO 1 TIMES.
WRITE:/01(102) SPACE COLOR COL_NORMAL.
PERFORM WRITE_VLINE USING 'T' 10.
PERFORM WRITE_VLINE USING 'T' 15.
PERFORM WRITE_VLINE USING 'T' 29.
PERFORM WRITE_VLINE USING 'T' 1.
PERFORM WRITE_VLINE USING 'T' 102.
ENDDO.
HIDE: BDCLD, BDCLD#.
ENDIF.
IF QFOUND = 0.
RETURN = 324. " keine Protokolle gefunden
ELSE.
PERFORM LAST_LISTLINE.
ENDIF.
LINCT0 = SY-SROWS. "seitengroesse grundliste festhalten
ENDFORM. " show_dirm.
FORM : show_dire *
FORM SHOW_DIRE.
show directory and message for QUEUE_ID
IF RETURN GT 0.
EXIT.
ENDIF.
SHOWTYP = 'DIRE '.
CLEAR: QFOUND, LMAPN.
LOOP AT BDCLD.
IF LOG-QUID EQ BDCLD-QID.
QFOUND = QFOUND + 1.
IF QFOUND = 1.
FORMAT COLOR COL_HEADING.
WRITE:/01(102) SY-ULINE.
WRITE:/01(102) SPACE.
WRITE: 24(12) 'Mappenname '(003),
02(10) 'Angelegt '(004),
12(08) ' ',
52(50) 'User '(005).
PERFORM WRITE_VLINE USING ' ' 01.
PERFORM WRITE_VLINE USING ' ' 23.
PERFORM WRITE_VLINE USING ' ' 51.
PERFORM WRITE_VLINE USING ' ' 102.
FORMAT INTENSIFIED.
WRITE:/24(12) SY-ULINE,
01(80) SY-ULINE,
12(40) SY-ULINE,
52(80) SY-ULINE.
PERFORM WRITE_VLINE USING ' ' 01.
PERFORM WRITE_VLINE USING ' ' 23.
PERFORM WRITE_VLINE USING ' ' 51.
PERFORM WRITE_VLINE USING ' ' 102.
ENDIF.
FORMAT RESET.
IF BDCLD-GROUPID NE LMAPN.
WRITE:/24(12) BDCLD-GROUPID.
WRITE:/01(102) SPACE COLOR COL_NORMAL.
WRITE: 24(27) BDCLD-GROUPID COLOR COL_KEY INTENSIFIED ON.
LMAPN = BDCLD-GROUPID.
PERFORM WRITE_DATE USING BDCLD-CREDATE.
WRITE: 02(10) DATE1 DD/MM/YYYY COLOR COL_NORMAL,
13(08) BDCLD-CRETIME USING EDIT MASK '__:__:__'
COLOR COL_NORMAL.
PERFORM GET_STAT USING BDCLD-STATE WSTAT.
WRITE: 40(03) WSTAT COLOR COL_NORMAL,
WRITE: 52(12) BDCLD-CREATOR COLOR COL_NORMAL,
80(24) BDCLD-DESTSYS COLOR COL_NORMAL.
PERFORM WRITE_VLINE USING ' ' 01.
PERFORM WRITE_VLINE USING ' ' 23.
PERFORM WRITE_VLINE USING ' ' 51.
PERFORM WRITE_VLINE USING ' ' 102.
WRITE:/01(102) SY-ULINE.
ENDIF.
FORMAT INTENSIFIED.
WRITE:/.
WRITE:/01(102) SPACE COLOR COL_HEADING INTENSIFIED OFF.
WRITE: 02 'Zeit '(001) COLOR COL_HEADING INTENSIFIED OFF,
11 'Tran'(008) COLOR COL_HEADING INTENSIFIED OFF,
16 'Dynpro'(007) COLOR COL_HEADING INTENSIFIED OFF,
30 'Nachricht'(002) COLOR COL_HEADING INTENSIFIED OFF.
PERFORM WRITE_VLINE USING ' ' 01.
PERFORM WRITE_VLINE USING ' ' 10.
PERFORM WRITE_VLINE USING ' ' 15.
PERFORM WRITE_VLINE USING ' ' 29.
PERFORM WRITE_VLINE USING ' ' 102.
FORMAT INTENSIFIED.
WRITE:
/01(09) SY-ULINE,
11(04) SY-ULINE,
16(13) SY-ULINE,
30(80) SY-ULINE.
PERFORM WRITE_VLINE USING ' ' 10.
PERFORM WRITE_VLINE USING ' ' 15. -
How to delete BDC session ?
hi gurus,
In my scenario , Before runnning BDC ( calll transaction ) , I firstly create a session ( use : BDC_OPEN_GROUP) with group name = the file that used to upload data for BDC execution , Then I check If the BDC run without error I will use BDC_CLOSE_GROUP to delete this group or else the session is kept , But when I check In SM35 , There's no session deleted ? Could you please help me ?
Thanks>I will use BDC_CLOSE_GROUP to delete this group or else the session is kept , But when I check In >SM35 , There's no session deleted ? Could you please help me ?
BDC_CLOSE_GROUP is used to Close the session Group, if you close it you cannot insert any transactions/records to the the Session group , not for Deletion.
You want to Delete the session after the processing you have to use KEEP = ' '.
then once process is over the session will be deleted. -
Is there any means to recover a deleted session
Is there any means to recover a deleted session
(The session was deleted using SM35)Dear Usha,
Welcome to SDN.
Check this link.
Deleted BDC sessions
Regards,
J.Jayanthi -
Storing of log file in A/P Server while running BDC session in SM35
Hi All,
I have issue when running BDC session in SM35.
The actual issue is
I need to store of log file generated while running BDC session in <b>SM35</b> in <b>Application/Presentation</b> Server path.
When ever we run single session the Log file regarding that session we need to store in Application/Presentation Server.
Can anybody have solution for this issue.
Thanks in advance.
Thanks & Regards,
Rayeez.Hi
See the std report RSBDC_ANALYSE, here you can know how to find out the log of B.I..
You can create a program like that to load the log into file instead of showing it.
Max
Maybe you are looking for
-
New MacBook Pro slower than a snail
I have just upgraded to a new MacBook, and am having speed issues, first with Mountain Lion and now with Mavericks. It seems as though almost all operations, even selecting a file in the Finder, bring up the beach ball of death, and opening applicati
-
I've somehow managed to screw up my installation and so far uninstalling/reinstalling (both the SAP GUI 6.4 and Office 2003) hasn't helped. My problem is that when I open anything in BEx Analyzer and hit Refresh Query, the box that pops up normally
-
Is it possible to have Pages '09 serve as the default application to open documents? Whenever I receive a word document from someone and try to open it, it opens it in TextEdit. I would prefer that it opened it in Pages so that I could avoid the step
-
I have a SQL statement that has a cpu execution time of 11 second, but a lapse time of 52 seconds. The query does 32105 physical disk reads and the number of buffers read for consistent reads is 303304. The statement uses all relavent indices. How do
-
I moved the iMovie projects and events folder to a regular harddrive. I know now, i the aftermath that it was a wrong thing to do, and i was wondering whether there are some way to recover the projects to use them in iMovie again?