Read Session ID in WD
Hi,
what have I to do to read the Session ID of the actual session. (Session concept ?)
Which libraries have to be included and how could be the code?
best regards
Mathias
Hi Maksim,
in the last view days, I implemented a passwording as graphic picture to enter my a page with answering a "captcha" (Password as graphic picture on a page to entry or http://en.wikipedia.org/wiki/Captcha).
Jcaptcha generates an image which has to be read by the (human) user and typed into a input field to make shure that there is a human who uses the page (this page cannot use an usual authentification, because it is a free site for anybody - a user registration process site ).
To generate this image in a secure way it is recommended to give the framework the actual session id.
So, I`m thinking about to get this session id.
Can you help me?
best regards
Mathias
Similar Messages
-
How can i kill the Adobe Reader session right away?
Hello
I have developed an interactive form, my_form. And we launch / render this my_form in (ERP / SAP) application's portal IE browser, well.
Say, user opened this form, worked on it, submitted (we have our own submit button) and closed the window by clicking the top right corner's X button, but user is seeing stll the red Reader icon on the bottom bar, even thought the user is closed the window completely
If user try to close this reader red reader icon explicitly, user is getting the other exception popup as Runtime error as described here http://forums.adobe.com/thread/391738
Hence, am thinking to KILL the reader session right away the moment user closes the window, pls. let me know,
1) How can i KILL the reader session via JavaScript, is it possible?
2) if so, what the JS code i need to put and
3) in which event pls.?
Thank youIn to my original posting, am attaching these pics
On my desktop it looks like below,
1) Even though user is closing the window but still the reader icon is lying on the bottom
2) Once user double cliks the above red icon, user is getting below popup
Thank you -
All Adobe reader sessions closing
Hello,
If i am viewing multiple files located on my local machine, through multiple Reader sessions, and close on window, they all close. I have more than one machine that does it. All have Vista SP 2 and adobe reader 9 with all updates installed. Any ideas?
Regards,
Adam1. Go to C/Programs/Adobe/Reader 11/Reader
2. Look for a file named eula.exe (or just eula).
3. If it's there, double click it and accept the license agreement.
4. Open a PDF.
If the problem persists
Download the Adobe Cleaner to completely remove Reader
Download the offline installer and reinstall -
Reading Session Variables in Abstract Portal Component/ JSP Dynpage or Java
Hi All,
I have a web dynpro for Java component which passes parameters in a session and also navigates to a Java application.
Now when I try to read the session parameters in the Java application (JSPDynpage or Abstract Portal Component) I cannot retrieve the values.
Can someone throw light on how I can achieve this within a Java application.
Code is as enclosed below -
WD for Java Code
public void onActionClicked(com.sap.tc.webdynpro.progmodel.api.IWDCustomEvent wdEvent )
//@@begin onActionClicked(ServerEvent)
IClientSession session = Utils.getCurrentClientSession();
IScope scope = session.getScope();
scope.put("TestSession", wdContext.currentContextElement().getTxtValue());
WDPortalNavigation.navigateAbsolute(
"ROLES:portal_content/com.be.pct.cr.Test/DynProToNet",
WDPortalNavigationMode.SHOW_INPLACE,
(String)null,
(String)null,
WDPortalNavigationHistoryMode.NO_DUPLICATIONS,
(String)null,
(String)null,
(String)null);
//@@end
Code within the Abstract Portal Component doContent method is -
IPortalComponentSession ses;
ses = request.getComponentSession();
String TestSession = new String();
String sTest = new String();
String sTesting = new String();
if(ses.getValue("TestSession")!= null){
TestSession = ses.getValue("TestSession").toString();
if(request.getParameter("TestSession")!= null){
sTest = request.getParameter("TestSession");
if( request.getValue("TestSession")!= null)
sTesting = request.getValue("TestSession").toString();
response.write("Display"TestSessionsTest+sTesting);
Any help is highly appreciated.
Thanks in advance,
DivyaHi,
Why not use eventing between webdynpro and portal applications? That would be more easy. Check these documents.
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/60d7d690-0201-0010-e581-9c4fc69cec0e
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/d48eaa90-0201-0010-58a8-887fc8632c3c
Regards,
Harini S -
Hi Guys,
ANyone knows how to read a seesion from CFM page in ASP.
Because We here got to type of application. CFM Apps and ASP Apps.
So anyone knows how I can read seesion from CFM in ASP pages and
also session from asp to read in CFM pages. Pls help me on this.
Thansk in advance
Regards,
ShaffiqHi Maksim,
in the last view days, I implemented a passwording as graphic picture to enter my a page with answering a "captcha" (Password as graphic picture on a page to entry or http://en.wikipedia.org/wiki/Captcha).
Jcaptcha generates an image which has to be read by the (human) user and typed into a input field to make shure that there is a human who uses the page (this page cannot use an usual authentification, because it is a free site for anybody - a user registration process site ).
To generate this image in a secure way it is recommended to give the framework the actual session id.
So, I`m thinking about to get this session id.
Can you help me?
best regards
Mathias -
I am working with iAS6.0 SP4, distributed session
I perform a load test of 100 users,
For some of my sessions (about 3%), I can't read
the session data, all attributes are null.
Can someone help ?
Amir.Are you sure you want to distribute sessions ? We experienced sever scaling issues with this options even on multi CPU machine. Check your KXS cpu utilisation using top command ( assuming Unix ).
This is because the distributed sessions are stored in kxs and lead to contention at high loads. You can chose for lite sessions by changing the web.xml of the application incase you do not need distributed sessions. If at all you want distributed sessions you may check the behaviour at lesser load -
Reading Session information from Cookie MYSAPSSO2
Hi All
I have a requirement where i need to get the portal session in my webdynpro component.
My portal runtime and webdynpro runtime are different.
My both runtimes are configured for accepting sap logon tickets.
I observerd that portal is sending the cookie MYSAPSS02 to webdynpro when ever a webdynpro component is called from portal.
I also read that this cookie contains the portal session info.
I want to read the session value from this cookie. How can i do this?
Thanks in advance
NagaKishoreI have post the similar problem.
here is the url /thread/40387 [original link is broken]
But i still haven't worked it out
hope i'ts helpful for you. -
Reading sessions and descriptors outside of classpath
Hello all,
IHAC who wants to read the sessions.xml and descriptors xml files from a designated location outside of the classpath. TopLink usually reads the sessions and descriptors using class loaders, but that is not what customer is looking for.
How can a TopLink runtime read those files using absolute paths such as C:\descriptors\toplink\sessions.xml ?
And, also, inside the sessions.xml is the location of the project xml (deployment descriptor). Can that location also be expressed using absolute path (ex. C:\descriptors\toplink\HR\toplink-deployment-descriptor.xml) ?
Any information is welcomedDoug,
Thanks for the info.
I tried to read the sessions.xml file using XMLLoader using the absolute path,
but I'm not sucessful with it.
What I tried is:
// acquire toplink session & deployment descriptor
SessionManager manager = new SessionManager();
XMLLoader loader = new XMLLoader("C:/descriptor/META-INF/sessions.xml");
session = (ServerSession)manager.getSession(loader, "sampleSession", Thread.currentThread().getContextClassLoader());
which yields it cannot find the sessions.xml resource.
Can you please point out any sample codes or the way to do it in your reply?
I know that you're very busy, I'd be much appreciated if you could help me and my customer.
Thank You. -
Why do arrow keys quit working during a reading session
I've noticed many times while reading that when I first open a book I can use arrow keys to scroll and turn pages. But after while that quits working and I have to use the readers paging and scrolling tools. Which is much more difficult to me since you have to focus on finding them. Whereas with the arrow keys my hands just know here they are.
I haven't yet discovered what causes the arrow keys to quit working, but once they have the only way I've found to get them woking again is to completely close the book and reopen it.I have noticed this also. I am using OS X 10.6.1 and Digital Editions 1.7.1.1085.
I have tried many things to get the arrow keys working, on the assumption that I had done something to deactivate them. Now, however, I suspect this is a bug.
- D - -
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. -
NullPointer in trying to read sessions.xml
Hi, I'm trying move to a new system and I'm having a hard time getting past this exception. The sessions.xml file is found but it doesn't seem to be parsing it at all. I've even changed the code to try to load a specific sessions.xml - mysessions.xml. No change. Maybe this error is more of a ClassNotFound than a NP?
Any ideas?
Thanks,
Bret
java.lang.NullPointerException
at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.loadDocument(XMLSessionConfigLoader.java:166)
at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.loadDocument(XMLSessionConfigLoader.java:156)
at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.load(XMLSessionConfigLoader.java:93)
at oracle.toplink.tools.sessionmanagement.SessionManager.getSession(SessionManager.java:367)
at oracle.toplink.tools.sessionmanagement.SessionManager.getSession(SessionManager.java:194)The above stacktrace was created when just using the defaults - sessions.xml
session = (ServerSession)SessionManager.getManager() .getSession("TBS",false);
This code below over-rides the default and uses mysessions.xml.
oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader loader = new oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader("mysessions.xml");
session = (ServerSession)SessionManager.getManager().getSession(loader,"TBS",getClass().getClassLoader());
The stack I get there is:
java.lang.NullPointerException
at oracle.toplink.platform.xml.XMLPlatformFactory.getXMLPlatformClass(XMLPlatformFactory.java:51)
at oracle.toplink.platform.xml.XMLPlatformFactory.getXMLPlatform(XMLPlatformFactory.java:75)
at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.loadDocument(XMLSessionConfigLoader.java:188)
at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.loadDocument(XMLSessionConfigLoader.java:156)
at oracle.toplink.tools.sessionconfiguration.XMLSessionConfigLoader.load(XMLSessionConfigLoader.java:93)
at oracle.toplink.tools.sessionmanagement.SessionManager.getSession(SessionManager.java:367)
at oracle.toplink.tools.sessionmanagement.SessionManager.getSession(SessionManager.java:269)
Thanks -
I need java application to read session and cookie requests
Hi
I have a java application that can the HTML and links etc but is there a way for the application to
a. retrieve cookies when they are given and
b. know when the cookie is requested
c. present the cookie when when they are requested
d. retrieve session variables when they are given and
e. know when the cookie is requested
f. present them when they are requested
Or is there a component out there where i can look at the code if it's complex
stevSure, the cookie is in the HTTP headers, so you don't really need anything special to handle cookies.
A starting point for further studies is:
http://home.netscape.com/newsref/std/cookie_spec.html -
Known Issues with Session Vars and non-IE browsers?
Are there any known issues with non-Internet Explorer
browsers storing or reading session variables. Or loops and
ListGetAt functions? I'm using CF 5.
The code works fine in IE, but not in FireFox or Netscape.
Thanks,
JoshThis testing will not really address any cross domain issues, due to the content being hosted by ScormCloud.
What I found interesting, is that in ScormCloud, using the links below, my results were opposite those that I obtained through my LMS.
In LMS, Captivate 5 worked, Captivate 6 did not in IE8, both worked in FF
In ScormCloud, Captivate 5 did not work in IE8, but worked in FF, and Captivate 6 did work in FF and IE8.
Here are the links:
captivate 5 http://cloud.scorm.com/sc/InvitationConfirmEmail?publicInvitationId=3c04f298-d0db-4d10-ab6 3-80b9aaf2890b
captivate 6 http://cloud.scorm.com/sc/InvitationConfirmEmail?publicInvitationId=e2b05753-2f03-421a-87d 9-62b92ad199af
Thanks for your attention, every bit of information that I can get will help.
Thanks,
SL -
Unable to fetch session variables in my application page code behind
hi,
my env: 1 WFE server which hosts the central admin and my web appln, 1 sql server box
i am having a custom web part[ listviewbyquery web part] which populates the site collection/ sub site's document library contents . also it reads some query string values and pushes these values into session variables.
and i am having another application page in this application which reads this session variables and perform some operation in a custom sql db. But i am unable to read these session variables on page load of this application page.
am unable to debug also. so, would like to know is there any way i can see, what values are getting passed to this page and verify the session variables are accessed correctly.
or
is this by design, that its not possible to read session variables in the application page ?
if i am not having a visual studio env. to debug, how to test these session variable existence / to find the root cause of this issue.
note: already configured session state in IIS , http modules section. am using Page.Session["myvariable1"].tostring() to fetch the session variables.
help is appreciated!i have found out myself. i have put page.response.write(mysessionvariables) in the code and deployed and tested in my env. and i was able to find out the reason and i have fixed it with proper validation check.
-
How to use Session Key-based Request Targeting Mechanism in OCCAS ??
I read Session Key-Based Request Targeting(chapter 5) in Developing SIP Applications.
But, I don't work my application using this mechanism.
I add sesssionKey function with @SipApplicationKey annotation.
I deploy this application. And then, other machine send INVITE request.
My application received INVITE request. But sessionKey function is not called before doInvite function is called.
I used @SipApplicationKey(applicationName="...") annotation.
It didn't work.
sample code is following.
Could someone help me?
import javax.servlet.ServletConfig;
import javax.servlet.ServletContext;
import javax.servlet.ServletException;
import javax.servlet.sip.SipFactory;
import javax.servlet.sip.SipServlet;
import javax.servlet.sip.SipServletMessage;
import javax.servlet.sip.SipServletRequest;
import javax.servlet.sip.SipServletResponse;
import javax.servlet.sip.SipURI;
import javax.servlet.sip.URI;
import javax.servlet.sip.annotation.SipApplicationKey;
public class app2SipServlet extends SipServlet {
private static final long serialVersionUID = 1L;
public static SipFactory sipFactory;
public static ServletContext sc;
public void init(ServletConfig cfg) throws ServletException {
super.init(cfg);
sipFactory = getSipFactory();
sc = getServletContext();
trace("+++ app2SipServlet Initialization");
@SipApplicationKey
public static String sessionKey(SipServletRequest req) {
String appid = req.getHeader("ApplicationID");
System.out.println("application id : " + appid);
return appid;
@Override
public void doRequest(SipServletRequest req) throws ServletException, IOException {
trace(req, "doRequest()");
super.doRequest(req);
@Override
protected void doInvite(SipServletRequest req) throws ServletException, IOException {
URI from = req.getFrom().getURI();
String user = ((SipURI)from).getUser();
trace(user + " : " + req.getSession().getApplicationSession().getId());
trace(user + " : " + req.getSession().getApplicationSession().getApplicationName());
SipServletResponse resp = req.createResponse(200);
resp.send();
trace(resp);
}How many servlets you have defined in your sip.xml .If there are multiple you may want to check if
-- You have defined main-servlet ?
-- or Is deployment descriptor version 1.0 or 1.1
Maybe you are looking for
-
I know that 5G iPods don't support firewire connections, but is there any way to download, or do something to my ipod to make firewire work?
-
i am using the command jar cvf HelloApplet.jar hello/HelloApplet*.class in my ms-dos prompt in windows xp, it displays message invalid command. Kindly help me how to create jar files in javafx in javafx sdk using dos prompt
-
Bold in IE, not bold in FF and GC
Here's the link: http://www.dynamicevolution.com/selfmastery_Program.html I have the pricing and subheads in bold. When viewed in IE, works fine. Not in FF and GC. Not sure where I'm missing something.
-
File name changed to "1.psd"
During a PS CS5.5 session the default file name is changed to "1.psd" and the file is corrupted and unopenable. This has happened on windows machines with several different OS, including XP64, Win7, and Win8. Correcting the default name does not co
-
My wife's employeer EFT her pay and sends her payroll stub via a PDF file that is password protected. Once I d/l it I want to remove the password protection. I've tried "save as" but that keeps the PW. Is there a way to save the file w/o the PW? Mike