Tuxedo CICS error

Hello,
I tried to start CICS service in Tuxedo. These are the commands that I launched:
[tuxedo1@afp518lx-tuxedo sample_00]$ *tmloadcf -y ${APPHOME}/config/tux/ubbconfig*
CMDTUX_CAT:6652: WARN: MAXACCESSERS is not set in UBBCONFIG. Please specify an appropriate value for your application if necessary.
CMDTUX_CAT:6653: WARN: MAXSERVERS is not set in UBBCONFIG. Please specify an appropriate value for your application if necessary.
CMDTUX_CAT:48: WARN: Missing SERVICES section
[tuxedo1@afp518lx-tuxedo sample_00]$ tmboot -y
Booting all admin and server processes in /home/tuxedo1/Desktop/Cics_RT/sample/sample_00/config/tux/tuxconfig
INFO: Oracle Tuxedo, Version 11.1.1.1.0, 64-bit, Patch Level (none)
Booting admin processes ...
exec BBL -A :
process id=7452 ... Started.
Booting server processes ...
exec ARTCCPL -o /home/tuxedo1/Desktop/Cics_RT/sample/sample_00/LOGS/sysout/stdout_tcp -e /home/tuxedo1/Desktop/Cics_RT/sample/sample_00/LOGS/sysout/stderr_tcp -- -M 4 -m 1 -L //afp518lx-tuxedo:8004 -n //afp518lx-tuxedo:8002 :
CMDTUX_CAT:816: ERROR: Cannot exec, executable file not found
exec ARTCNX -o /home/tuxedo1/Desktop/Cics_RT/sample/sample_00/LOGS/sysout/stdout_cnx -e /home/tuxedo1/Desktop/Cics_RT/sample/sample_00/LOGS/sysout/stderr_cnx -r -- :
ARTCNX: error while loading shared libraries: libcobrts64.so: cannot open shared object file: No such file or directory
CMDTUX_CAT:819: INFO: Process id=7456 Assume started (pipe).
2 processes started.
why I receive this error:
ARTCNX: error while loading shared libraries: libcobrts64.so
This library is not in Tuxedo packeges, this is a microfocus library.
Regards

ART CICS Runtime needs MicroFocus COBOL runtime, which is part of Microfocus product. You must install it to get ART CICS Runtime work.
Regards,
Jared

Similar Messages

Configuring UBBCONFIG for Tuxedo/Q-Error for rebuild message queue server

Hi..
Am using Tuxedo10g R3 on AIX 5.3..
Am using IBM COBOL..
I need to write a program with Queue Concept in cobol,so for that i created queuespace and queue using the qmadmin command..
While configuring UBBCONFIG file, as per the document which i referred:
http://e-docs.bea.com/tuxedo/tux80/pdf/usingq.pdf
i used (pg no: 28)
TMQUEUE SRVGRP="TMQUEUEGRP1" SRVID=1000 RESTART=Y GRACE=0 CLOPT="-s myqueuespace:TMQUEUE" in the servers section but while
booting TMQUEUE failed to start.. so i went for the alternative option provided in the same document as
buildserver -o TMQUEUE -s myqueuespace:TMQUEUE -r TUXEDO/QM \
-f ${TUXDIR}/lib/TMQUEUE.o
followed by
TMQUEUE SRVGRP="TMQUEUEGRP1" SRVID=1000 RESTART=Y GRACE=0 \
CLOPT="-A"
while rebuilding TMQUEUE am getting this error:
buildserver -o TMQUEUE -s myqueuespace:TMQUEUE -r TUXEDO/QM -f ${TUXDIR}/lib/TMQUEUE.o
ld: 0711-317 ERROR: Undefined symbol: .qs_tcm_setup
ld: 0711-345 Use the -bloadmap or -bnoquiet option to obtain more information.
CMDTUX_CAT:1832: ERROR: can't execute cc -brtl -qstaticinline -qrtti=all -I$TUXDIR/include -o TMQUEUE BS-23f0be.c -L${TUXDIR}/lib
/usr/Oracle/Tuxedo10g/lib/TMQUEUE.o -brtl -qstaticinline -ltux -lbuft -lqm -ltmib -lfml -lfml32 -lengine -lpthread
can anyone help me in this??
Thanks in advance..

Hi Todd,
Thanks for ur reply..
my sample program will fetch records from a table in a database and will store that in a queue and will retrieve that records from the queue.. i hope one queuespace is enough for this program.. while booting am getting these messages in the ULOG.. am i missing any step in the configuration??
230153.ibmsceai!BBL.2502724.1.0: 04-24-2009: Tuxedo Version 10.3.0.0, 32-bit, Patch Level (none)
230153.ibmsceai!BBL.2502724.1.0: LIBTUX_CAT:262: INFO: Standard main starting
230153.ibmsceai!TMS_QM.2019544.1.0: 04-24-2009: Tuxedo Version 10.3.0.0, 32-bit
230153.ibmsceai!TMS_QM.2019544.1.0: LIBTUX_CAT:262: INFO: Standard main starting
230153.ibmsceai!TMS_QM.2355258.1.0: 04-24-2009: Tuxedo Version 10.3.0.0, 32-bit
230153.ibmsceai!TMS_QM.2355258.1.0: LIBTUX_CAT:262: INFO: Standard main starting
230153.ibmsceai!TMS_QM.2568346.1.0: 04-24-2009: Tuxedo Version 10.3.0.0, 32-bit
230153.ibmsceai!TMS_QM.2568346.1.0: LIBTUX_CAT:262: INFO: Standard main starting
230154.ibmsceai!TMQUEUE.651302.1.0: 04-24-2009: Tuxedo Version 10.3.0.0, 32-bit
230154.ibmsceai!TMQUEUE.651302.1.0: LIBTUX_CAT:262: INFO: Standard main starting
230154.ibmsceai!TMQUEUE.651302.1.0: Q_CAT:1497: ERROR: xa_open() - no more process table slots
230154.ibmsceai!TMQUEUE.651302.1.0: LIBTUX_CAT:466: ERROR: tpopen TPERMERR xa_open returned XAER_RMERR
230154.ibmsceai!TMQUEUE.651302.1.0: Q_CAT:1630: ERROR: tpopen() failed, tperrno = 16
230154.ibmsceai!TMQUEUE.651302.1.0: LIBTUX_CAT:250: ERROR: tpsvrinit() failed
230154.ibmsceai!tmboot.495778.1.-2: 04-24-2009: Tuxedo Version 10.3.0.0, 32-bit
230154.ibmsceai!tmboot.495778.1.-2: CMDTUX_CAT:825: ERROR: Process TMQUEUE at cicsapp failed with /T tperrno (TPERMERR - resource manager error)

When boot tuxedo facing error while executing service.

exec TxGetHostData -A -s trg_TxGet:TxGetHostData -- -U :
exec(): 0509-036 Cannot load program TxGetHostData because of the following errors:
0509-130 Symbol resolution failed for TxGetHostData because:
0509-136 Symbol userlog (number 24) is not exported from
dependent module /tuxedo/bea/tuxedo8.0/lib/libtux.so.
0509-192 Examine .loader section symbols with the
'dump -Tv' command.
CMDTUX_CAT:819: INFO: Process id=831592 Assume started (pipe).
Junaid akbar

I've never seen this particular error before.
The best thing to do is to try rebuilding TxGetHostData using
buildserver -v. When executing buildserver, make sure that TUXDIR is set to
/tuxedo/bea/tuxedo8.0 and that the version of buildserver used is the one in
/tuxedo/bea/tuxedo8.0/bin. If that doesn't work, you may want
to experiment with "dump -Tv /tuxedo/bea/tuxedo8.0/lib/libtux.so" to see
what sort of output is produced.
From the error message format, I can tell that the operating system is AIX,
in case that helps to jog anyone's memory.
<Junaid Akbar> wrote in message news:[email protected]..
exec TxGetHostData -A -s trg_TxGet:TxGetHostData -- -U :
exec(): 0509-036 Cannot load program TxGetHostData because of thefollowing errors:
0509-130 Symbol resolution failed for TxGetHostData because:
0509-136 Symbol userlog (number 24) is not exported from
dependent module /tuxedo/bea/tuxedo8.0/lib/libtux.so.
0509-192 Examine .loader section symbols with the
'dump -Tv' command.
CMDTUX_CAT:819: INFO: Process id=831592 Assume started (pipe).
Junaid akbar

Tuxedo 3139 error - Secondary Event server failed!!

Hi all,
we're havin a msater/slave Tuxedo configuration. When we booted the servers, we're getting the error repeatedly in the slave logs:
3139
ERROR: Secondary Event Server failed to get a new copy of subscription database from the Primary, errstr=TPENOENT NOT FOUND
Could anyoone please explain why its happening??

Atheek,
The CMDTUX_CAT:3139 message is logged when TMSYSEVT cannot find a server
offering the ..TMSYSMIB service or when TMUSREVT cannot find a server
offering the ..TMUSRMIB service. These services are usually offered by the
primary event broker.
This message might occur if the application specifies all event broker
servers as secondary. (One of the event brokers should be started without
the -- -S option, and that server will be the primary event broker.) The
message also might occur if the primary event broker dies and is not marked
as restartable.
You can observe which servers if any offer the ..TMSYSMIB and/or ..TMUSRMIB
services by invoking tmadmin and giving the "psc -a 2" command. (The "-a 2"
option will cause the command to include service names that start with a "."
or with a "..".)
Ed
<Atheek Rahuman> wrote in message news:[email protected]..
Hi all,
we're havin a msater/slave Tuxedo configuration. When we booted the
servers, we're getting the error repeatedly in the slave logs:
3139
ERROR: Secondary Event Server failed to get a new copy of subscription
database from the Primary, errstr=TPENOENT NOT FOUND
Could anyoone please explain why its happening??

Using viGpibCommand and CIC errors

Dear all,
My hardware is an NI GPIB-USB-HS interface, connected to a windows 7 machine. I have two GPIB devices connected for testing.
I am trying to send low-level GPIB commands using viGpibCommand. The reason I need to do this is because I want to implement a GET trigger with multiple listeners. This cannot be accomplished with the viAssertTrigger() functionality, as far as I am aware.
However, when I try to send commands using viGpibCommand(), I get "VI_ERROR_NCIC: the interface associated with this session is not currently the controller in charge".
Indeed, the VI_ATTR_GPIB_CIC_STATE attribute of the session to my "GPIB::INTFC" controller shows 0 (not in control). It is the system controller though (VI_ATTR_GPIB_SYS_CNTRL_STATE shows 1).
My question is: what do I need to do to be able to send raw commands using viGpibCommand?

I think I found it: I need viGpibSendIFC() to become CIC.

Tuxedo login error

i am notable to login.
Loginid what i have to give.While installing it is only asked for password.in ps file only password is there.How and what i have to give loginid.

Hi Srinivas,
Please post this in the appropriate newsgroup.
Thanks,
Srinivas wrote:
i am notable to login.
Loginid what i have to give.While installing it is only asked for password.in ps file only password is there.How and what i have to give loginid.--
Apurb Kumar
Developer Relations Engineer
BEA Support

Tuxedo ART DB Configuration with XA

Hi,
I am trying to get my tuxedo application to work. I am not so much experienced with Tuxedo as far as database connections.
Basically when I start up the server. Do i need to have a TMSNAME set up? So far the sample_03 application works, but when I startup I do have an error about no TMS_ORA around.
Can someone please let me know what do I need to do to remove this error? I found something like a buildtms utility but after I configured it, my transactoins were not happening.
Please help.
Thanks

Todd Little wrote:
Hi,
OK, a couple of comments. It will help greatly if you can post whatever errors you are getting when you try something. These might be errors from a command such as crdl in tmadmin, or errors seen when you try to boot your application, etc. As well, posting the portion of the ULOG from the period of time when you're having a problem. These will help cut down the time to help you get this resolved.
When you say crdl did not work, what happened? You will not be able to use XA transactions until the transaction log is created.
You asked before about best practices and XA. It's not really so much a question of best practices, it's more a question of whether you need distributed transactions that guarantee consistency, i.e, the ACID properties of a distributed transaction. By using XA, you can ensure that updates to multiple resource managers either all occur or none occur, thus ensuring consistency of your application state. Without XA, if you modify multiple resource managers (multiple databases, a database and a queuing system, etc.) as in withdrawing money from an account in one database and depositing the money in an account in another database, there is no straightforward way to ensure that both updates occur or that neither occur.
Tuxedo is never a resource manager, it is always a transaction manager in XA terminology. Databases, queuing systems, and the like are resource managers.
The only real way to tell if XA is being used is to check with the resource managers and whatever logs they maintain. If XA is involved, then requests to the resource managers will be associated with a global transaction ID (GTRID). If you have TSAM installed, you can use its transaction monitoring category to monitor XA transactions.
Regards,
Todd Little
Oracle Tuxedo Chief ArchitectHi Todd,
Thank your for your response. It turns out that I had all the steps covered as you outlined. There is a setup.sh file in the sample_03 directory which will run the crdrl command.
At this point, I am having some problems running my code, and I am getting an ABEND.
This is the output from my stdout_strn file:
(FLDID(63555132)) 2
(FLDID(63555133)) 2271560481
(FLDID(63555134)) 100
(FLDID(63555135)) 100
(FLDID(63555136)) 0
(FLDID(63555200)) 0
(FLDID(63555201)) 24
(FLDID(63555202)) 80
(FLDID(63555203)) 5
(FLDID(63555212)) 0
(FLDID(63555213)) 0
(FLDID(63555214)) 0
(FLDID(197772865)) TX
(FLDID(197772866))
(FLDID(197772869))
(FLDID(197772912)) 0001501161936009
(FLDID(197772914)) IBM-3279-3-E
(FLDID(197772938)) ibm-37
(FLDID(197772939)) ascii
(FLDID(231327299)) BCTL
(FLDID(231327300)) CIX1
(FLDID(231327315)) ' DBCTL
(FLDID(231327333)) BCTL
(FLDID(231327335)) 000A
(FLDID(231327345))
(FLDID(231327349))
KIX-IERROR - CICS ERROR
KIX-IETRACE - KIX__RECEIVE_MAP____________
EIBFN - '1802' 'RECEIVE MAP '
EIBRESP - '01' 'ERROR '
EIBRESP2 - '00'
EIBCALEN - '+00182'
EIBAID - '9'
EIBTRNID - 'BCTL'
EIBTRMID - '0028'
EIBTASKN - '0022070'
EIBRSRCE - '^@^@^@^@^@^@^@^@'
KIX__USER_ABEND EIBFN =<^X^B>
KIX__USER_ABEND EIBRESP=<+0000000001>
01 : CTLB1 /opt/oracle/art11gR1/Cics_RT/sample/sample_03/CICS/CTLB1.gnt
02 : KIX__USER_ABEND KIX__USER_ABEND
03 : set_err_proc set_err_proc
-----> KixProgramAbort
-----> KixLevelStackFree
And this is the output form my stderr_strn file:
TCP__ReceiveMap : rc <1>
ERROR: receive map BmsTerm[1]
>> tcpstub >> TCP__ReceiveMap - Return length=<0>
tcpstub >> TCP_UpdateEib
tcpstub >> TCP_UpdateEib - EIBAID=<39/'9'>
tcpstub >> TCP_UpdateEib - EIBRESP=<1>
tcpstub >> TCP_UpdateEib - EIBRESP2=<0>
tcpstub >> TCP_UpdateEib - EIBRCODE=< >
tcpstub >> TCP_UpdateEib >> DONE162459 @................ CTLB1 Fatal Cobol error in tpr 'BCTL ': #Load error : file '.ABEND'#error code: 173, pc=0, call=1, seg=0#173 error message text not found
-----> KixProgramReturn(longjump) - STATUS_ABORT
> cobcancel <CTLB1>
tcpstub >> TCP__SendTextFileSelectedRemove (directory:regexp '/tmp':'.*-\[.*]-\[6404]-.*')
FileSelectedRemove (directory:/tmp)
@BCTL 6242 1209673199 1796424903 1209673499 1796454912
I was only running 2 users at a time, and the program is hung.

I have a problem when running my own EJB as a TUXEDO service using WTC.

Hello,
I have a problem when running my own EJB as a TUXEDO service using WTC. I am using TUXEDO 8.1 and WL 9.1.
When I am trying to run my own EJB as a TUXEDO service error appears.
TPENOENT(6):0:0:TPED_MINVAL(0):QMNONE(0):0:Could not find service TOUPPER
at weblogic.wtc.gwt.WTCService.getImport(WTCService.java:4988)
at weblogic.wtc.gwt.TuxedoConnection.getImport(TuxedoConnection.java:303)
at weblogic.wtc.gwt.TuxedoConnection.tpcall(TuxedoConnection.java:1302)
at examples.MyTestSessionBean.Toupper(MyTestSessionBean.java:102)
at examples.TestSessionBean_knby6k_EOImpl.Toupper(TestSessionBean_knby6k_EOImpl.java:61)
at net.roseindia.web.servlets.SessionTestServlet.doGet(SessionTestServlet.java:69)
at javax.servlet.http.HttpServlet.service(HttpServlet.java:743)
at javax.servlet.http.HttpServlet.service(HttpServlet.java:856)
at weblogic.servlet.internal.StubSecurityHelper$ServletServiceAction.run(StubSecurityHelper.java:225)
at weblogic.servlet.internal.StubSecurityHelper.invokeServlet(StubSecurityHelper.java:127)
at weblogic.servlet.internal.ServletStubImpl.execute(ServletStubImpl.java:272)
at weblogic.servlet.internal.ServletStubImpl.execute(ServletStubImpl.java:165)
at weblogic.servlet.internal.WebAppServletContext$ServletInvocationAction.run(WebAppServletContext.java:3153)
at weblogic.security.acl.internal.AuthenticatedSubject.doAs(AuthenticatedSubject.java:321)
at weblogic.security.service.SecurityManager.runAs(SecurityManager.java:121)
at weblogic.servlet.internal.WebAppServletContext.securedExecute(WebAppServletContext.java:1973)
at weblogic.servlet.internal.WebAppServletContext.execute(WebAppServletContext.java:1880)
at weblogic.servlet.internal.ServletRequestImpl.run(ServletRequestImpl.java:1310)
at weblogic.work.ExecuteThread.execute(ExecuteThread.java:207)
at weblogic.work.ExecuteThread.run(ExecuteThread.java:179)
e8
10
java.rmi.RemoteException: EJB Exception: ; nested exception is:
java.lang.NullPointerException
at weblogic.ejb.container.internal.EJBRuntimeUtils.throwRemoteException(EJBRuntimeUtils.java:95)
at weblogic.ejb.container.internal.BaseEJBObject.handleSystemException(BaseEJBObject.java:713)
at weblogic.ejb.container.internal.BaseEJBObject.handleSystemException(BaseEJBObject.java:681)
at weblogic.ejb.container.internal.BaseEJBObject.postInvoke1(BaseEJBObject.java:447)
at weblogic.ejb.container.internal.StatelessEJBObject.postInvoke1(StatelessEJBObject.java:72)
at weblogic.ejb.container.internal.BaseEJBObject.postInvokeTxRetry(BaseEJBObject.java:374)
at examples.TestSessionBean_knby6k_EOImpl.Toupper(TestSessionBean_knby6k_EOImpl.java:75)
at net.roseindia.web.servlets.SessionTestServlet.doGet(SessionTestServlet.java:69)
at javax.servlet.http.HttpServlet.service(HttpServlet.java:743)
at javax.servlet.http.HttpServlet.service(HttpServlet.java:856)
at weblogic.servlet.internal.StubSecurityHelper$ServletServiceAction.run(StubSecurityHelper.java:225)
at weblogic.servlet.internal.StubSecurityHelper.invokeServlet(StubSecurityHelper.java:127)
at weblogic.servlet.internal.ServletStubImpl.execute(ServletStubImpl.java:272)
at weblogic.servlet.internal.ServletStubImpl.execute(ServletStubImpl.java:165)
at weblogic.servlet.internal.WebAppServletContext$ServletInvocationAction.run(WebAppServletContext.java:3153)
at weblogic.security.acl.internal.AuthenticatedSubject.doAs(AuthenticatedSubject.java:321)
at weblogic.security.service.SecurityManager.runAs(SecurityManager.java:121)
at weblogic.servlet.internal.WebAppServletContext.securedExecute(WebAppServletContext.java:1973)
at weblogic.servlet.internal.WebAppServletContext.execute(WebAppServletContext.java:1880)
at weblogic.servlet.internal.ServletRequestImpl.run(ServletRequestImpl.java:1310)
at weblogic.work.ExecuteThread.execute(ExecuteThread.java:207)
at weblogic.work.ExecuteThread.run(ExecuteThread.java:179)
Caused by: java.lang.NullPointerException
at examples.MyTestSessionBean.Toupper(MyTestSessionBean.java:130)
at examples.TestSessionBean_knby6k_EOImpl.Toupper(TestSessionBean_knby6k_EOImpl.java:61)
... 15 more
Any clue on this.
With Regards,
MVS

If you are trying to create a Tuxedo service in Java using WTC you need to develop an EJB that implements the TuxedoService interface and register its home in JNDI so WTC can look it up. Once that is done you can then export the service to a remote domain in the WTC configuration.
Regards,
Todd Little
Oracle Tuxedo Chief Architect

Communicate to a Fluke 8840a, VB, IEEE-488; Error ECIC(1)

I am trying to communicate to a Fluke 8840a using VB 6/Measurement Studio via IEEE-488
Using Explore GPIB I can scan and find the DMM. However when ever I try to “Communicate with Instrument” I’m getting a ECIC (1) error [NI Spy] no matter what is typed into the “send string”. I have been through the help files and nothing has worked or I am doing something wrong [most likely].
I have look at the fluke example and other examples and it is not much help as I keep getting the CIC error
I know the interface works on the DMM because it is calibrated through the port.
NI-488.2 Version is 1.6, NI Spy is 1.4. My development system is Windows 2000 [no out side net connection]
Any help is much appreciated

Matt S,
This was not the answer I was hoping for but what I sort of expected. The reason was the additional paper work I needed/had to go through to allow the download of the executable from the net.
I got the upgrade installed and was able to read the DMM through the Explorer with no problem. From here, I do not expect any further problems.
Thanks Again
Matt

Unexpected ECIC Error

We recently upgraded our PCs from Lenovo C20 to C30. Both are running Win7 64-bit, in combination with a NI GPIB card. We are currently using version 2.8 of the NI-488.2 library. All these PC's are used to communicate with different GPIB devices. C30 PC's is however raising unexpected GPIB CIC errors (Controller In Charge), during the communication with the devices. The same program has been running fine over many years on the C20 PC's without the CIC errors.
Here are some of my observations:
1. When the NI-SPY program is running the CIC error did not occur ever after 2 days. When the NI-Spy program was closed, the CIC error occured within a day.
2. I tried changing the IbaTiming config parameter from 350 ns to 2 us as suggested by one of the threads here. That didnt help.
3. I also the added the condition where If the CIC bit was not set, wait until the CIC was set or until it timeouts before calling the Send() and ReadByte() commands. See below code:
if ((Ibsta & CIC) == 0)
  OutputDebugString("Waiting for CIC or TIMO to be set");
  ibwait(nBoardID, (CIC | TIMO));
  if(Ibsta & TIMO)
   OutputDebugString("Timeout Error Waiting for CIC");
Sleep( 10 );
Send( nBoardID, nDeviceAddress, ptrBuffer, lLength, nEOT );
I never saw the "Timeout Error Waiting for CIC" indicating that the CIC was surely set before calling the Send() or ReadByte() commands, neverthless I see the CIC error.
4. I also tried using ThreadIbsta() instead if Ibsta variable. But that didn't make any difference.
Does anyone have a suggestion or solution for this problem?
Thanks in advance,
SK

With the latest driver upgraded, I changed the bus timing from 500 ns to 2 us. However, this time the CIC error appeared much later than it appeared with old version of the driver & bus timing 500 ns. Any suggestions please? I've completely run out of ideas.

Gat data from CICS

Hi,
I have to get data from CICS. And I'm trying to understand what solution
to use - IBM Transaction Gateway or JAM. The connection is going to be
through APPC LU6.2. I got client program framework on COBOL for CICS
and COBOL copy books from CICS server team. The problem is that I don't
know in advance how many records of particular type I will get in
response. The COBOL client program uses command RECEIVE multiple times
to receives all record sequentially. But I didn't find neither in IBM
Transaction Gateway docs, nor in JAM docs how Java client can get data
in that case. Can somebody help me to understand how to implement Java
client for IBM TG or for JAM?
Thanks,
Sergey.

JAM does not currently support conversations (i.e., the need to call receive
multiple times). The Tuxedo gateway (which is currently called EAM) to CICS
does currently support this so you could do WLS ---> Tuxedo ----> CICS
and/or you could express your need for conversations to your BEA sales rep
(there are other customers who need this too so it is important to express
your need to BEA)...
Hope this helps,
Robert
Sergey Kosyakov wrote:
Hi,
I have to get data from CICS. And I'm trying to understand what solution
to use - IBM Transaction Gateway or JAM. The connection is going to be
through APPC LU6.2. I got client program framework on COBOL for CICS
and COBOL copy books from CICS server team. The problem is that I don't
know in advance how many records of particular type I will get in
response. The COBOL client program uses command RECEIVE multiple times
to receives all record sequentially. But I didn't find neither in IBM
Transaction Gateway docs, nor in JAM docs how Java client can get data
in that case. Can somebody help me to understand how to implement Java
client for IBM TG or for JAM?
Thanks,
Sergey.

How to solve the erro:(12/3841)? Emergency!

hi,all:
i meet a problem,when i try to fget the buffer from tuxedo,the error was logged!the
flowing is the message of error and source,pleae check and help me and tell me why?thanks
anyway!!!
PS:
1.my platform of tuxedo is Digital Unix and PC side is Win98/win2000.
2.Tuxedo version is 7.1(with no patch fixed)
3.database is sybase of unix
PART ONE,ERROR MESSAGE:
LIBTUX_CAT:6031: ERROR: Unable to pre-process buffer before tranmission. Error code(12/3841)
171112.ah97supp!WSH.10488.1.0: WSNAT_CAT:1148: ERROR: Processing of message to be
sent to client failed
171112.ah97supp!WSH.10488.1.0: WSNAT_CAT:1029: ERROR: Sending of reply message to
client failed
PART TWO:MY SOURCE:
void CPExscind::AllDataCheck(TPSVCINFO *rqst)
/* ¼ì²é¡¢¸î½Ó½á¹û±êÖ¾¡£
flag 0 Î´¼ì²é£¬1 ¸æ¾¯£¬2´íÎó£¬3 ¼ì²éÍ¨¹ý£¬4 ¸î½ÓÊ§°Ü£¬5 ¸î½Ó³É¹¦,6 ¸î½Ó»Ø¹öÊ§°Ü£¬7
¸î½Ó»Ø¹ö³É¹¦*/
EXEC SQL BEGIN DECLARE SECTION;
long recno;
long new_exchange_id;
long new_mdf_no;
CS_CHAR new_acc_nbr[21];
CS_CHAR new_port_no[21];
CS_CHAR new_mdf_col[9];
CS_CHAR new_mdf_block[9];
long new_mdf_serial;
CS_CHAR new_linebox_no[21];
long new_linebox_code;
long new_linebox_serial;
CS_CHAR new_crossbox1_no[21];
long new_crossbox1_code;
long new_crossbox1_in_line;
long new_crossbox1_out_line;
CS_CHAR new_crossbox2_no[21];
long new_crossbox2_code;
long new_crossbox2_in_line;
long new_crossbox2_out_line;
CS_CHAR new_crossbox3_no[21];
long new_crossbox3_code;
long new_crossbox3_in_line;
long new_crossbox3_out_line;
long new_maintrunk_code;
long new_mdf_code;
CS_CHAR check_message[101]="";
long tp_exchange_id;
CS_CHAR tp[2];
CS_CHAR tp_acc_nbr[21];
CS_CHAR tp_port_no[21];
CS_CHAR tp_mdfcol_no[9];
CS_CHAR tp_mdfblock_no[9];
long tp_mdf_code;
long tp_mdfblock_lineno;
long tp_maintrunk_code;
long tp_linebox_code;
CS_CHAR tp_linebox_name[21];
long tp_linebox_serial;
long tp_matchline_serial;
CS_CHAR tp_crossbox_name[21];
long tp_crossbox_code;
long tp_crossbox_inserial;
long tp_crossbox2_code;
long tp_crossbox2_in_serial;
long tp_crossbox2_out_serial;
long tp_crossbox3_code;
long tp_crossbox3_in_serial;
long tp_crossbox3_out_serial;
long SQL_exchange_id;
CS_CHAR SQL_project_name[21];
CS_CHAR SQL_project_sequence[11];
long SQL_input_err_cnt;
EXEC SQL END DECLARE SECTION;
recvbuf = (FBFR32 *)rqst->data;
     BufferSize = 4*1024;
     sendbuf = NULL;
     if((sendbuf = (FBFR32 *)tpalloc("FML32",NULL,BufferSize))==NULL)
DisConnect();
                    tpreturn(TPFAIL,0,NULL,0,0);
     Finit32(sendbuf,BufferSize) ;
Fget32(recvbuf,FML_CK_exchange_id,0,(char*)&SQL_exchange_id,0);
userlog("SQL_exchange_id-->%d",SQL_exchange_id);
Fget32(recvbuf,FML_CK_project_name,0,SQL_project_name,0);
userlog("SQL_project_name-->%s",SQL_project_name);
Fget32(recvbuf,FML_CK_project_sequence,0,SQL_project_sequence,0);
userlog("SQL_project_sequence-->%s",SQL_project_sequence);
Fget32(recvbuf,FML_CK_input_err_cnt,0,(char*)&SQL_input_err_cnt,0);
userlog("SQL_input_err_cnt-->%d",SQL_input_err_cnt);
/*È¡³ö·ûºÏ¼ì²éÌõ¼þµÄ¼ÇÂ¼*/
EXEC SQL DECLARE check_data cursor for
select recno,
ISNULL(new_exchange_id,-1),
ISNULL(new_mdf_no,-1),
ISNULL(new_acc_nbr,'-1'),
ISNULL(new_port_no,'-1'),
ISNULL(new_mdf_col,'-1'),
          ISNULL(new_mdf_block,'-1'),
          ISNULL(new_mdf_serial,-1),
          ISNULL(new_linebox_no,'-1'),
          ISNULL(new_linebox_code,-1),
          ISNULL(new_linebox_serial,-1),
          ISNULL(new_crossbox1_no,'-1'),
          ISNULL(new_crossbox1_code,-1),
          ISNULL(new_crossbox1_in_line,-1),
          ISNULL(new_crossbox1_out_line,-1),
          ISNULL(new_crossbox2_no,'-1'),
          ISNULL(new_crossbox2_code,-1),
          ISNULL(new_crossbox2_in_line,-1),
          ISNULL(new_crossbox2_out_line,-1),
          ISNULL(new_crossbox3_no,'-1'),
          ISNULL(new_crossbox3_code,-1),
          ISNULL(new_crossbox3_in_line,-1),
          ISNULL(new_crossbox3_out_line,-1),
          ISNULL(new_maintrunk_code,-1),
          ISNULL(new_mdf_code,-1)
          from res_modify_details
where old_exchange_id=:SQL_exchange_id and
project_name=:SQL_project_name and
project_sequence=:SQL_project_sequence and
state='10A' and flag in('0','1','2') order by recno;
EXEC SQL OPEN check_data;
if(sqlca.sqlcode!=0)
userlog("Open Cursor --->sqlca.sqlerrm.sqlerrmc,sqlca.sqlcode%s,%d",sqlca.sqlerrm.sqlerrmc,sqlca.sqlcode);
/*Ñ»·¼ì²éÃ¿Ìõ¼ÇÂ¼*/
int err_cnt=0;/*´íÎóÊý*/
int alert_cnt=0;/*¾¯¸æÊý*/
while(1)
/*¶ÔÓÚÒ»ÌõÏêÇé¼ÇÂ¼Êý¾Ý±éÀú¼ì²é*/
EXEC SQL FETCH check_data into
:recno,
:new_exchange_id,
:new_mdf_no,
          :new_acc_nbr,
          :new_port_no,
          :new_mdf_col,
          :new_mdf_block,
          :new_mdf_serial,
          :new_linebox_no,
          :new_linebox_code,
          :new_linebox_serial,
          :new_crossbox1_no,
          :new_crossbox1_code,
          :new_crossbox1_in_line,
          :new_crossbox1_out_line,
          :new_crossbox2_no,
          :new_crossbox2_code,
          :new_crossbox2_in_line,
          :new_crossbox2_out_line,
          :new_crossbox3_no,
          :new_crossbox3_code,
          :new_crossbox3_in_line,
          :new_crossbox3_out_line,
          :new_maintrunk_code,
          :new_mdf_code;
     userlog("sqlca.sqlerrm.sqlerrmc,sqlca.sqlcode%s,%d",sqlca.sqlerrm.sqlerrmc,sqlca.sqlcode);
     if(sqlca.sqlcode!=0) break;
     /*else if((sqlca.sqlcode!=100)&&(sqlca.sqlcode!=0))
          userlog("FETCH FAIL!");
          DisConnect();
               tpreturn(TPFAIL,0,NULL,0,0);
/*±ØÊäÈë:ÐÂ¾ÖÏòÃû£¬ÐÂºÅÂë£¬ÐÂ¶Ë¿Ú£¬ÐÂÁÐ¡¢¿é¡¢¶Ô£¬
ÐÂ·ÖÏßÏäºÅ£¬ÐÂ·ÖÏßÏäÏßÐò£¬ÐÂÒ»¼¶½»½ÓÏäºÅ£¬
ÈëÏß£¬³öÏß£¬¶þ¼¶½»½ÓÏäºÅ£¬ÈëÏß£¬³öÏß£¬Èý¼¶*/
char err_msg[200]="";
char alt_msg[200]="";
strcpy(check_message,"");
     /*=============================ÅÐ¶ÏÐÂÊý¾ÝÊÇ·ñÎª¿Õ´íÎó==============================*/
if(new_exchange_id==-1)
/*strcpy(err_msg,"ÐÂ¾ÖÏòÎª¿Õ´í£¡");*/
userlog("ÐÂ¾ÖÏòÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂ¾ÖÏòÎª¿Õ´í£¡",0) == -1) userlog("fadd
error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if(new_mdf_no==-1)
     /*strcpy(err_msg,"ÐÂÅäÏß¼ÜºÅÎª¿Õ´í£¡");*/
     userlog("ÐÂÅäÏß¼ÜºÅÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂÅäÏß¼ÜºÅÎª¿Õ´í£¡",0) == -1)
userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if((strcmp(new_acc_nbr,"-1")==0)||(strcmp(new_port_no,"-1")==0))
/*strcpy(err_msg,"ºÅÂë¶Ë¿ÚÎª¿Õ´í£¡");*/
userlog("ºÅÂë¶Ë¿ÚÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ºÅÂë¶Ë¿ÚÎª¿Õ´í£¡",0) == -1)
userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if((strcmp(new_mdf_col,"-1")==0)||(strcmp(new_mdf_block,"-1")==0)||(new_mdf_serial==-1))
/*strcpy(err_msg,"ÐÂÁÐ¿é¶ÔÎª¿Õ´í£¡");*/
userlog("ÐÂÁÐ¿é¶ÔÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂÁÐ¿é¶ÔÎª¿Õ´í£¡",0) == -1)
userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if(strcmp(new_linebox_no,"-1")==0)
/*strcpy(err_msg,"ÐÂ·ÖÏßÏäºÅÎª¿Õ´í£¡");*/
userlog("ÐÂ·ÖÏßÏäºÅÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂ·ÖÏßÏäºÅÎª¿Õ´í£¡",0) == -1)
userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if(new_linebox_serial==-1)
/*strcpy(err_msg,"ÐÂ·ÖÏßÏäÏßÐòÎª¿Õ´í£¡");*/
userlog("ÐÂ·ÖÏßÏäÏßÐòÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂ·ÖÏßÏäÏßÐòÎª¿Õ´í£¡",0) ==
-1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if(strcmp(new_crossbox1_no,"-1")==0)
/*strcpy(err_msg,"ÐÂÒ»¼¶½»½ÓÏäºÅÎª¿Õ´í£¡");*/
userlog("ÐÂÒ»¼¶½»½ÓÏäºÅÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂÒ»¼¶½»½ÓÏäºÅÎª¿Õ´í£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if(new_crossbox1_in_line==-1)
/*strcpy(err_msg,"ÐÂÒ»¼¶½»½ÓÏäÈëÏßÎª¿Õ´í£¡");*/
userlog("ÐÂÒ»¼¶½»½ÓÏäÈëÏßÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂÒ»¼¶½»½ÓÏäÈëÏßÎª¿Õ´í£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
/*===========================ÅÐ¶ÏÐÂÊý¾ÝÎª¿Õ¸æ¾¯============================
if(new_crossbox1_out_line==-1)
strcpy(alt_msg,"¸æ¾¯1,ÐÂÒ»¼¶½»½ÓÏä³öÏßÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
if(strcmp(new_crossbox2_no,"-1")==0)
          strcpy(alt_msg,"¸æ¾¯2,ÐÂ¶þ¼¶½»½ÓÏäºÅÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
          if(new_crossbox2_in_line==-1)
strcpy(alt_msg,"¸æ¾¯3,ÐÂ¶þ¼¶½»½ÓÏäÈëÏßÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
if(new_crossbox2_out_line==-1)
     strcpy(alt_msg,"¸æ¾¯4,ÐÂ¶þ¼¶½»½ÓÏä³öÏßÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
          if(strcmp(new_crossbox3_no,"-1")==0)
strcpy(alt_msg,"¸æ¾¯5,ÐÂÈý¼¶½»½ÓÏäºÅÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
if(new_crossbox3_in_line==-1)
strcpy(alt_msg,"¸æ¾¯6,ÐÂÈý¼¶½»½ÓÏäÈëÏßÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
if(new_crossbox3_out_line==-1)
          strcpy(alt_msg,"¸æ¾¯7,ÐÂÈý¼¶½»½ÓÏä³öÏßÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
/*===========================ÅÐ¶ÏÐÂÊý¾ÝºÏ·¨ÐÔ´íÎó²¢¾À´í=====================================*/
if(new_exchange_id!=-1)
EXEC SQL select exchange_id into :tp_exchange_id from exchange
where exchange_id=:new_exchange_id and state='10A';
if(sqlca.sqlcode!=0)
/*strcpy(err_msg,"´íÎó,¾ÖÏò±íÖÐÎÞ´ËÐÂ¾ÖÏò£¡");*/
strcat(check_message,"¾ÖÏò´í*");
userlog("´íÎó,¾ÖÏò±íÖÐÎÞ´ËÐÂ¾ÖÏò£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,¾ÖÏò±íÖÐÎÞ´ËÐÂ¾ÖÏò£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1)
userlog("fadd error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if((strcmp(new_acc_nbr,"-1")!=0)||(strcmp(new_port_no,"-1")!=0))
/*ÅÐ¶ÏºÅÂë¶Ë¿ÚÊÇ·ñÒ»Ò»¶ÔÓ¦*/
EXEC SQL select distinct switch_num_way into :tp from branch_tel_head
a,all_number b
where a.tel_head=b.tel_head
and b.acc_nbr=:new_acc_nbr;
if(strcmp(tp,"1")!=0)
/*²»¶ÔÓ¦*/
EXEC SQL select ISNULL(b.acc_nbr,'0') into
:tp_acc_nbr
from switch_info a,all_number b
     where a.switch_no=b.switch_no
     and a.exchange_id in (select distinct exchange_id FROM popedom_tache_exchange
     where exchange_id=:new_exchange_id )
     and b.acc_nbr =:new_acc_nbr and
b.num_line_state='6';
if(sqlca.sqlcode!=0)
/*strcpy(err_msg,"´íÎó,ºÅÂë±íÖÐÎÞ´ËÐÂºÅÂë£¡");*/
userlog("´íÎó,ºÅÂë±íÖÐÎÞ´ËÐÂºÅÂë£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,ºÅÂë±íÖÐÎÞ´ËÐÂºÅÂë£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
int num=Foccur32(sendbuf,FML_CK_errmessage);
                         userlog("num==%d",num);
strcat(check_message,"ºÅÂë´í*");
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1)
userlog("fadd error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
EXEC SQL select ISNULL(b.port_no,'0')
into :tp_port_no
from switch_info a,port_details b
     where a.switch_no=b.switch_no
     and a.exchange_id in (select distinct exchange_id FROM popedom_tache_exchange
     where exchange_id=:new_exchange_id) and
b.port_no=:new_port_no and
b.num_line_state='6';
if(sqlca.sqlcode!=0)
/*strcpy(err_msg,"´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂ¶Ë¿Ú£¡");*/
userlog("´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂ¶Ë¿Ú£¡");
strcat(check_message,"¶Ë¿Ú´í*");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂ¶Ë¿Ú£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1)
userlog("fadd error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
else if(strcmp(tp,"1")==0)/*Ò»Ò»¶ÔÓ¦*/
EXEC SQL select ISNULL(b.acc_nbr,'0'),
ISNULL(b.port_no,'0')
into
:tp_acc_nbr,
:tp_port_no
from switch_info a,port_no b
     where a.switch_no=b.switch_no
     and a.exchange_id in (select distinct exchange_id FROM popedom_tache_exchange
     where exchange_id=:new_exchange_id) and
b.acc_nbr=:new_acc_nbr and
b.port_no=:new_port_no and
b.num_line_state='6';
if(sqlca.sqlcode!=0)
/* strcpy(err_msg,"´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂºÅÂë¶Ë¿Ú£¡");*/
userlog("´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂºÅÂë¶Ë¿Ú£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂºÅÂë¶Ë¿Ú£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
strcat(check_message,"ºÅÂë¶Ë¿Ú´í*");
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) == -1)
userlog("fadd error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
else
strcpy(new_port_no,tp_port_no);
/*strcpy(err_msg,"¸æ¾¯,¶Ë¿Ú±íÖÐÓÐÐÂ¶Ë¿Ú£¡");*/
if (Fadd32(sendbuf,FML_CK_altmsg,"¸æ¾¯,¶Ë¿Ú±íÖÐÓÐÐÂ¶Ë¿Ú£¡",0)==
-1) userlog("fadd error %ld",__LINE__);
alert_cnt=alert_cnt+1;
if((strcmp(new_mdf_col,"-1")!=0)&&(strcmp(new_mdf_block,"-1")!=0)&&(new_mdf_serial!=-1))
EXEC SQL select ISNULL(a.mdfcol_no,'0'),
ISNULL(a.mdfblock_no,'0'),
ISNULL(a.mdf_code,0),
ISNULL(b.mdfblock_lineno,0)
into
:tp_mdfcol_no,
:tp_mdfblock_no,
:tp_mdf_code,
:tp_mdfblock_lineno
from mdfz_info a,mdfz_details b
where a.mdf_code=b.mdf_code and
a.mdf_no=:new_mdf_no and
a.mdfcol_no=:new_mdf_col and
a.mdfblock_no=:new_mdf_block and
b.mdfblock_lineno=:new_mdf_serial and
b.num_line_state='6';
if(sqlca.sqlcode!=0)
/*strcpy(err_msg,"´íÎó,mdf±íÖÐÎÞ´ËÐÂÁÐ¿é¶Ô£¡");*/
userlog("´íÎó,mdf±íÖÐÎÞ´ËÐÂÁÐ¿é¶Ô£¡");
strcat(check_message,"ÁÐ¿é¶Ô´í*");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,mdf±íÖÐÎÞ´ËÐÂÁÐ¿é¶Ô£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1) userlog("fadd error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
else
EXEC SQL select ISNULL(maintrunk_code,0)
into
:tp_maintrunk_code
from maintrunk_details
where mdf_code=:tp_mdf_code and
mdf_blocklineno=:tp_mdfblock_lineno;
if(sqlca.sqlcode==0)
new_maintrunk_code=tp_maintrunk_code;
if(strcmp(new_linebox_no,"-1")!=0)
     EXEC SQL select ISNULL(linebox_code,0),
     ISNULL(linebox_name,'0')
     into
     :tp_linebox_code,
     :tp_linebox_name
     from linebox_info
     where exchange_id=:new_exchange_id and
     linebox_name=:new_linebox_no;
     if(sqlca.sqlcode==0)
     new_linebox_code=tp_linebox_code;
               else
          /*strcpy(err_msg,"´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏä£¡");*/
          userlog("´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏä£¡");
          strcat(check_message,"·ÖÏßÏä´í*");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏä£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1) userlog("fadd error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
          if(new_linebox_serial!=-1)
          EXEC SQL select ISNULL(linebox_serial,0),
          ISNULL(matchline_serial,0)
          into
          :tp_linebox_serial,
          :tp_matchline_serial
          from linebox_details
          where linebox_code in (select linebox_code from linebox_info
          where exchange_id=:new_exchange_id and
          linebox_name=:new_linebox_no) and
          linebox_serial=:new_linebox_serial and
          num_line_state='6';
          if(sqlca.sqlcode!=0)
          /*strcpy(err_msg,"´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏäÏßÐò£¡");*/
          userlog("´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏäÏßÐò£¡");
          strcat(check_message,"·ÖÏßÏäÏßÐò´í*");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏäÏßÐò£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1) userlog("fadd error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
          else
          new_crossbox1_out_line=tp_matchline_serial;
          if(strcmp(new_crossbox1_no,"-1")!=0)
          EXEC SQL select ISNULL(crossbox_name,'0'),
          ISNULL(crossbox_code,0)
          into
          :tp_crossbox_name,
          :tp_crossbox_code
          from crossbox_info
          where exchange_id=:new_exchange_id and
          crossbox_name=:new_crossbox1_no;
          if(sqlca.sqlcode==0)
          new_crossbox1_code=tp_crossbox_code;
          else
          /*strcpy(err_msg,"´íÎó,±íÖÐÎÞ´Ë½»½ÓÏä£¡");*/
          userlog("´íÎó,±íÖÐÎÞ´Ë½»½ÓÏä£¡");
          strcat(check_message,"½»½ÓÏä´í*");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,±íÖÐÎÞ´Ë½»½ÓÏä£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1) userlog("fadd error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
          if(new_crossbox1_in_line!=-1)
          EXEC SQL select ISNULL(crossbox_inserial,0),
          ISNULL(uppercross_code,-1),
          ISNULL(uppercross_inserial,-1),
          ISNULL(uppercross_outserial,-1)
          into
          :tp_crossbox_inserial,
          :tp_crossbox2_code,
          :tp_crossbox2_in_serial,
          :tp_crossbox2_out_serial
          from maintrunk_details
          where maintrunk_code=:new_maintrunk_code and
          crossbox_inserial=:new_crossbox1_in_line and
          num_line_state='6';
          if(sqlca.sqlcode==0)
          if(tp_crossbox2_code!=-1)
          {/*2¼¶*/
          new_crossbox2_code=tp_crossbox2_code;
          new_crossbox2_in_line=tp_crossbox2_in_serial;
          new_crossbox2_out_line=tp_crossbox2_out_serial;
          EXEC SQL select ISNULL(crossbox_name,'0')
          into
          :new_crossbox2_no


hi,all:
i'm sorry the posted source is so confussing(tab key problem),i should point out
that the error has happened at "tpreturn" of
"userlog("before return in CPExscindclass.cpp get result = %s#,bufsize is %ld,used=%ld,unused=%ld",SQL_project_name,Fsizeof32(sendbuf),Fused32(sendbuf),Funused32(sendbuf));
tpreturn(TPSUCCESS,0,(char *)sendbuf,0L,0);
---------sunny
"sunny" <[email protected]> wrote:
>
hi,all:
i meet a problem,when i try to fget the buffer from tuxedo,the error was
logged!the
flowing is the message of error and source,pleae check and help me and tell
me why?thanks
anyway!!!
PS:
1.my platform of tuxedo is Digital Unix and PC side is Win98/win2000.
2.Tuxedo version is 7.1(with no patch fixed)
3.database is sybase of unix
PART ONE,ERROR MESSAGE:
LIBTUX_CAT:6031: ERROR: Unable to pre-process buffer before tranmission.
Error code(12/3841)
171112.ah97supp!WSH.10488.1.0: WSNAT_CAT:1148: ERROR: Processing of message
to be
sent to client failed
171112.ah97supp!WSH.10488.1.0: WSNAT_CAT:1029: ERROR: Sending of reply message
to
client failed
PART TWO:MY SOURCE:
void CPExscind::AllDataCheck(TPSVCINFO *rqst)
/* ¼ì²é¡¢¸î½Ó½á¹û±êÖ¾¡£
flag 0 Î´¼ì²é£¬1 ¸æ¾¯£¬2´íÎó£¬3 ¼ì²éÍ¨¹ý£¬4 ¸î½ÓÊ§°Ü£¬5 ¸î½Ó³É¹¦,6
¸î½Ó»Ø¹öÊ§°Ü£¬7
¸î½Ó»Ø¹ö³É¹¦*/
EXEC SQL BEGIN DECLARE SECTION;
long recno;
long new_exchange_id;
long new_mdf_no;
CS_CHAR new_acc_nbr[21];
CS_CHAR new_port_no[21];
CS_CHAR new_mdf_col[9];
CS_CHAR new_mdf_block[9];
long new_mdf_serial;
CS_CHAR new_linebox_no[21];
long new_linebox_code;
long new_linebox_serial;
CS_CHAR new_crossbox1_no[21];
long new_crossbox1_code;
long new_crossbox1_in_line;
long new_crossbox1_out_line;
CS_CHAR new_crossbox2_no[21];
long new_crossbox2_code;
long new_crossbox2_in_line;
long new_crossbox2_out_line;
CS_CHAR new_crossbox3_no[21];
long new_crossbox3_code;
long new_crossbox3_in_line;
long new_crossbox3_out_line;
long new_maintrunk_code;
long new_mdf_code;
CS_CHAR check_message[101]="";
long tp_exchange_id;
CS_CHAR tp[2];
CS_CHAR tp_acc_nbr[21];
CS_CHAR tp_port_no[21];
CS_CHAR tp_mdfcol_no[9];
CS_CHAR tp_mdfblock_no[9];
long tp_mdf_code;
long tp_mdfblock_lineno;
long tp_maintrunk_code;
long tp_linebox_code;
CS_CHAR tp_linebox_name[21];
long tp_linebox_serial;
long tp_matchline_serial;
CS_CHAR tp_crossbox_name[21];
long tp_crossbox_code;
long tp_crossbox_inserial;
long tp_crossbox2_code;
long tp_crossbox2_in_serial;
long tp_crossbox2_out_serial;
long tp_crossbox3_code;
long tp_crossbox3_in_serial;
long tp_crossbox3_out_serial;
long SQL_exchange_id;
CS_CHAR SQL_project_name[21];
CS_CHAR SQL_project_sequence[11];
long SQL_input_err_cnt;
EXEC SQL END DECLARE SECTION;
recvbuf = (FBFR32 *)rqst->data;
     BufferSize = 4*1024;
     sendbuf = NULL;
     if((sendbuf = (FBFR32 *)tpalloc("FML32",NULL,BufferSize))==NULL)
DisConnect();
                    tpreturn(TPFAIL,0,NULL,0,0);
     Finit32(sendbuf,BufferSize) ;
Fget32(recvbuf,FML_CK_exchange_id,0,(char*)&SQL_exchange_id,0);
userlog("SQL_exchange_id-->%d",SQL_exchange_id);
Fget32(recvbuf,FML_CK_project_name,0,SQL_project_name,0);
userlog("SQL_project_name-->%s",SQL_project_name);
Fget32(recvbuf,FML_CK_project_sequence,0,SQL_project_sequence,0);
userlog("SQL_project_sequence-->%s",SQL_project_sequence);
Fget32(recvbuf,FML_CK_input_err_cnt,0,(char*)&SQL_input_err_cnt,0);
userlog("SQL_input_err_cnt-->%d",SQL_input_err_cnt);
/*È¡³ö·ûºÏ¼ì²éÌõ¼þµÄ¼ÇÂ¼*/
EXEC SQL DECLARE check_data cursor for
select recno,
ISNULL(new_exchange_id,-1),
ISNULL(new_mdf_no,-1),
ISNULL(new_acc_nbr,'-1'),
ISNULL(new_port_no,'-1'),
ISNULL(new_mdf_col,'-1'),
          ISNULL(new_mdf_block,'-1'),
          ISNULL(new_mdf_serial,-1),
          ISNULL(new_linebox_no,'-1'),
          ISNULL(new_linebox_code,-1),
          ISNULL(new_linebox_serial,-1),
          ISNULL(new_crossbox1_no,'-1'),
          ISNULL(new_crossbox1_code,-1),
          ISNULL(new_crossbox1_in_line,-1),
          ISNULL(new_crossbox1_out_line,-1),
          ISNULL(new_crossbox2_no,'-1'),
          ISNULL(new_crossbox2_code,-1),
          ISNULL(new_crossbox2_in_line,-1),
          ISNULL(new_crossbox2_out_line,-1),
          ISNULL(new_crossbox3_no,'-1'),
          ISNULL(new_crossbox3_code,-1),
          ISNULL(new_crossbox3_in_line,-1),
          ISNULL(new_crossbox3_out_line,-1),
          ISNULL(new_maintrunk_code,-1),
          ISNULL(new_mdf_code,-1)
          from res_modify_details
where old_exchange_id=:SQL_exchange_id and
project_name=:SQL_project_name and
project_sequence=:SQL_project_sequence and
state='10A' and flag in('0','1','2') order by recno;
EXEC SQL OPEN check_data;
if(sqlca.sqlcode!=0)
userlog("Open Cursor --->sqlca.sqlerrm.sqlerrmc,sqlca.sqlcode%s,%d",sqlca.sqlerrm.sqlerrmc,sqlca.sqlcode);
/*Ñ»·¼ì²éÃ¿Ìõ¼ÇÂ¼*/
int err_cnt=0;/*´íÎóÊý*/
int alert_cnt=0;/*¾¯¸æÊý*/
while(1)
/*¶ÔÓÚÒ»ÌõÏêÇé¼ÇÂ¼Êý¾Ý±éÀú¼ì²é*/
EXEC SQL FETCH check_data into
:recno,
:new_exchange_id,
:new_mdf_no,
          :new_acc_nbr,
          :new_port_no,
          :new_mdf_col,
          :new_mdf_block,
          :new_mdf_serial,
          :new_linebox_no,
          :new_linebox_code,
          :new_linebox_serial,
          :new_crossbox1_no,
          :new_crossbox1_code,
          :new_crossbox1_in_line,
          :new_crossbox1_out_line,
          :new_crossbox2_no,
          :new_crossbox2_code,
          :new_crossbox2_in_line,
          :new_crossbox2_out_line,
          :new_crossbox3_no,
          :new_crossbox3_code,
          :new_crossbox3_in_line,
          :new_crossbox3_out_line,
          :new_maintrunk_code,
          :new_mdf_code;
     userlog("sqlca.sqlerrm.sqlerrmc,sqlca.sqlcode%s,%d",sqlca.sqlerrm.sqlerrmc,sqlca.sqlcode);
     if(sqlca.sqlcode!=0) break;
     /*else if((sqlca.sqlcode!=100)&&(sqlca.sqlcode!=0))
          userlog("FETCH FAIL!");
          DisConnect();
               tpreturn(TPFAIL,0,NULL,0,0);
/*±ØÊäÈë:ÐÂ¾ÖÏòÃû£¬ÐÂºÅÂë£¬ÐÂ¶Ë¿Ú£¬ÐÂÁÐ¡¢¿é¡¢¶Ô£¬
ÐÂ·ÖÏßÏäºÅ£¬ÐÂ·ÖÏßÏäÏßÐò£¬ÐÂÒ»¼¶½»½ÓÏäºÅ£¬
ÈëÏß£¬³öÏß£¬¶þ¼¶½»½ÓÏäºÅ£¬ÈëÏß£¬³öÏß£¬Èý¼¶*/
char err_msg[200]="";
char alt_msg[200]="";
strcpy(check_message,"");
     /*=============================ÅÐ¶ÏÐÂÊý¾ÝÊÇ·ñÎª¿Õ´íÎó==============================*/
if(new_exchange_id==-1)
/*strcpy(err_msg,"ÐÂ¾ÖÏòÎª¿Õ´í£¡");*/
userlog("ÐÂ¾ÖÏòÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂ¾ÖÏòÎª¿Õ´í£¡",0)
== -1) userlog("fadd
error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) ==
-1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if(new_mdf_no==-1)
     /*strcpy(err_msg,"ÐÂÅäÏß¼ÜºÅÎª¿Õ´í£¡");*/
     userlog("ÐÂÅäÏß¼ÜºÅÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂÅäÏß¼ÜºÅÎª¿Õ´í£¡",0)
== -1)
userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) ==
-1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if((strcmp(new_acc_nbr,"-1")==0)||(strcmp(new_port_no,"-1")==0))
/*strcpy(err_msg,"ºÅÂë¶Ë¿ÚÎª¿Õ´í£¡");*/
userlog("ºÅÂë¶Ë¿ÚÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ºÅÂë¶Ë¿ÚÎª¿Õ´í£¡",0)
== -1)
userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) ==
-1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if((strcmp(new_mdf_col,"-1")==0)||(strcmp(new_mdf_block,"-1")==0)||(new_mdf_serial==-1))
/*strcpy(err_msg,"ÐÂÁÐ¿é¶ÔÎª¿Õ´í£¡");*/
userlog("ÐÂÁÐ¿é¶ÔÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂÁÐ¿é¶ÔÎª¿Õ´í£¡",0)
== -1)
userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) ==
-1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if(strcmp(new_linebox_no,"-1")==0)
/*strcpy(err_msg,"ÐÂ·ÖÏßÏäºÅÎª¿Õ´í£¡");*/
userlog("ÐÂ·ÖÏßÏäºÅÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂ·ÖÏßÏäºÅÎª¿Õ´í£¡",0)
== -1)
userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) ==
-1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if(new_linebox_serial==-1)
/*strcpy(err_msg,"ÐÂ·ÖÏßÏäÏßÐòÎª¿Õ´í£¡");*/
userlog("ÐÂ·ÖÏßÏäÏßÐòÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂ·ÖÏßÏäÏßÐòÎª¿Õ´í£¡",0)
==
-1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) ==
-1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if(strcmp(new_crossbox1_no,"-1")==0)
/*strcpy(err_msg,"ÐÂÒ»¼¶½»½ÓÏäºÅÎª¿Õ´í£¡");*/
userlog("ÐÂÒ»¼¶½»½ÓÏäºÅÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂÒ»¼¶½»½ÓÏäºÅÎª¿Õ´í£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) ==
-1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if(new_crossbox1_in_line==-1)
/*strcpy(err_msg,"ÐÂÒ»¼¶½»½ÓÏäÈëÏßÎª¿Õ´í£¡");*/
userlog("ÐÂÒ»¼¶½»½ÓÏäÈëÏßÎª¿Õ´í£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"ÐÂÒ»¼¶½»½ÓÏäÈëÏßÎª¿Õ´í£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0) ==
-1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                    if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error %ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
/*===========================ÅÐ¶ÏÐÂÊý¾ÝÎª¿Õ¸æ¾¯============================
if(new_crossbox1_out_line==-1)
strcpy(alt_msg,"¸æ¾¯1,ÐÂÒ»¼¶½»½ÓÏä³öÏßÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd
error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
if(strcmp(new_crossbox2_no,"-1")==0)
          strcpy(alt_msg,"¸æ¾¯2,ÐÂ¶þ¼¶½»½ÓÏäºÅÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd
error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
          if(new_crossbox2_in_line==-1)
strcpy(alt_msg,"¸æ¾¯3,ÐÂ¶þ¼¶½»½ÓÏäÈëÏßÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd
error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
if(new_crossbox2_out_line==-1)
     strcpy(alt_msg,"¸æ¾¯4,ÐÂ¶þ¼¶½»½ÓÏä³öÏßÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd
error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
          if(strcmp(new_crossbox3_no,"-1")==0)
strcpy(alt_msg,"¸æ¾¯5,ÐÂÈý¼¶½»½ÓÏäºÅÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd
error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
if(new_crossbox3_in_line==-1)
strcpy(alt_msg,"¸æ¾¯6,ÐÂÈý¼¶½»½ÓÏäÈëÏßÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd
error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
if(new_crossbox3_out_line==-1)
          strcpy(alt_msg,"¸æ¾¯7,ÐÂÈý¼¶½»½ÓÏä³öÏßÎª¿Õ£¡");
if (Fadd32(sendbuf,FML_CK_altmsg,alt_msg,0)== -1) userlog("fadd
error
= %ld",__LINE__);
alert_cnt=alert_cnt+1;
/*===========================ÅÐ¶ÏÐÂÊý¾ÝºÏ·¨ÐÔ´íÎó²¢¾À´í=====================================*/
if(new_exchange_id!=-1)
EXEC SQL select exchange_id into :tp_exchange_id from exchange
where exchange_id=:new_exchange_id and state='10A';
if(sqlca.sqlcode!=0)
/*strcpy(err_msg,"´íÎó,¾ÖÏò±íÖÐÎÞ´ËÐÂ¾ÖÏò£¡");*/
strcat(check_message,"¾ÖÏò´í*");
userlog("´íÎó,¾ÖÏò±íÖÐÎÞ´ËÐÂ¾ÖÏò£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,¾ÖÏò±íÖÐÎÞ´ËÐÂ¾ÖÏò£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1)
userlog("fadd error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
if((strcmp(new_acc_nbr,"-1")!=0)||(strcmp(new_port_no,"-1")!=0))
/*ÅÐ¶ÏºÅÂë¶Ë¿ÚÊÇ·ñÒ»Ò»¶ÔÓ¦*/
EXEC SQL select distinct switch_num_way into :tp from
branch_tel_head
a,all_number b
where a.tel_head=b.tel_head
and b.acc_nbr=:new_acc_nbr;
if(strcmp(tp,"1")!=0)
/*²»¶ÔÓ¦*/
EXEC SQL select ISNULL(b.acc_nbr,'0') into
:tp_acc_nbr
from switch_info a,all_number b
     where a.switch_no=b.switch_no
     and a.exchange_id in (select distinct exchange_id FROM
popedom_tache_exchange
     where exchange_id=:new_exchange_id )
     and b.acc_nbr =:new_acc_nbr and
b.num_line_state='6';
if(sqlca.sqlcode!=0)
/*strcpy(err_msg,"´íÎó,ºÅÂë±íÖÐÎÞ´ËÐÂºÅÂë£¡");*/
userlog("´íÎó,ºÅÂë±íÖÐÎÞ´ËÐÂºÅÂë£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,ºÅÂë±íÖÐÎÞ´ËÐÂºÅÂë£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
int num=Foccur32(sendbuf,FML_CK_errmessage);
                         userlog("num==%d",num);
strcat(check_message,"ºÅÂë´í*");
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1)
userlog("fadd error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
EXEC SQL select ISNULL(b.port_no,'0')
into :tp_port_no
from switch_info a,port_details b
     where a.switch_no=b.switch_no
     and a.exchange_id in (select distinct exchange_id FROM
popedom_tache_exchange
     where exchange_id=:new_exchange_id) and
b.port_no=:new_port_no and
b.num_line_state='6';
if(sqlca.sqlcode!=0)
/*strcpy(err_msg,"´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂ¶Ë¿Ú£¡");*/
userlog("´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂ¶Ë¿Ú£¡");
strcat(check_message,"¶Ë¿Ú´í*");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂ¶Ë¿Ú£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1)
userlog("fadd error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
else if(strcmp(tp,"1")==0)/*Ò»Ò»¶ÔÓ¦*/
EXEC SQL select ISNULL(b.acc_nbr,'0'),
ISNULL(b.port_no,'0')
into
:tp_acc_nbr,
:tp_port_no
from switch_info a,port_no b
     where a.switch_no=b.switch_no
     and a.exchange_id in (select distinct exchange_id FROM
popedom_tache_exchange
     where exchange_id=:new_exchange_id) and
b.acc_nbr=:new_acc_nbr and
b.port_no=:new_port_no and
b.num_line_state='6';
if(sqlca.sqlcode!=0)
/* strcpy(err_msg,"´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂºÅÂë¶Ë¿Ú£¡");*/
userlog("´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂºÅÂë¶Ë¿Ú£¡");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,¶Ë¿Ú±íÖÐÎÞ´ËÐÂºÅÂë¶Ë¿Ú£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
strcat(check_message,"ºÅÂë¶Ë¿Ú´í*");
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1)
userlog("fadd error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                              if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
else
strcpy(new_port_no,tp_port_no);
/*strcpy(err_msg,"¸æ¾¯,¶Ë¿Ú±íÖÐÓÐÐÂ¶Ë¿Ú£¡");*/
if (Fadd32(sendbuf,FML_CK_altmsg,"¸æ¾¯,¶Ë¿Ú±íÖÐÓÐÐÂ¶Ë¿Ú£¡",0)==
-1) userlog("fadd error %ld",__LINE__);
alert_cnt=alert_cnt+1;
if((strcmp(new_mdf_col,"-1")!=0)&&(strcmp(new_mdf_block,"-1")!=0)&&(new_mdf_serial!=-1))
EXEC SQL select ISNULL(a.mdfcol_no,'0'),
ISNULL(a.mdfblock_no,'0'),
ISNULL(a.mdf_code,0),
ISNULL(b.mdfblock_lineno,0)
into
:tp_mdfcol_no,
:tp_mdfblock_no,
:tp_mdf_code,
:tp_mdfblock_lineno
from mdfz_info a,mdfz_details b
where a.mdf_code=b.mdf_code and
a.mdf_no=:new_mdf_no and
a.mdfcol_no=:new_mdf_col and
a.mdfblock_no=:new_mdf_block and
b.mdfblock_lineno=:new_mdf_serial and
b.num_line_state='6';
if(sqlca.sqlcode!=0)
/*strcpy(err_msg,"´íÎó,mdf±íÖÐÎÞ´ËÐÂÁÐ¿é¶Ô£¡");*/
userlog("´íÎó,mdf±íÖÐÎÞ´ËÐÂÁÐ¿é¶Ô£¡");
strcat(check_message,"ÁÐ¿é¶Ô´í*");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,mdf±íÖÐÎÞ´ËÐÂÁÐ¿é¶Ô£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1) userlog("fadd error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
else
EXEC SQL select ISNULL(maintrunk_code,0)
into
:tp_maintrunk_code
from maintrunk_details
where mdf_code=:tp_mdf_code and
mdf_blocklineno=:tp_mdfblock_lineno;
if(sqlca.sqlcode==0)
new_maintrunk_code=tp_maintrunk_code;
if(strcmp(new_linebox_no,"-1")!=0)
     EXEC SQL select ISNULL(linebox_code,0),
     ISNULL(linebox_name,'0')
     into
     :tp_linebox_code,
     :tp_linebox_name
     from linebox_info
     where exchange_id=:new_exchange_id and
     linebox_name=:new_linebox_no;
     if(sqlca.sqlcode==0)
     new_linebox_code=tp_linebox_code;
               else
          /*strcpy(err_msg,"´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏä£¡");*/
          userlog("´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏä£¡");
          strcat(check_message,"·ÖÏßÏä´í*");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏä£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1) userlog("fadd error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
          if(new_linebox_serial!=-1)
          EXEC SQL select ISNULL(linebox_serial,0),
          ISNULL(matchline_serial,0)
          into
          :tp_linebox_serial,
          :tp_matchline_serial
          from linebox_details
          where linebox_code in (select linebox_code from linebox_info
          where exchange_id=:new_exchange_id and
          linebox_name=:new_linebox_no) and
          linebox_serial=:new_linebox_serial and
          num_line_state='6';
          if(sqlca.sqlcode!=0)
          /*strcpy(err_msg,"´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏäÏßÐò£¡");*/
          userlog("´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏäÏßÐò£¡");
          strcat(check_message,"·ÖÏßÏäÏßÐò´í*");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,±íÖÐÎÞ´Ë·ÖÏßÏäÏßÐò£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1) userlog("fadd error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
          else
          new_crossbox1_out_line=tp_matchline_serial;
          if(strcmp(new_crossbox1_no,"-1")!=0)
          EXEC SQL select ISNULL(crossbox_name,'0'),
          ISNULL(crossbox_code,0)
          into
          :tp_crossbox_name,
          :tp_crossbox_code
          from crossbox_info
          where exchange_id=:new_exchange_id and
          crossbox_name=:new_crossbox1_no;
          if(sqlca.sqlcode==0)
          new_crossbox1_code=tp_crossbox_code;
          else
          /*strcpy(err_msg,"´íÎó,±íÖÐÎÞ´Ë½»½ÓÏä£¡");*/
          userlog("´íÎó,±íÖÐÎÞ´Ë½»½ÓÏä£¡");
          strcat(check_message,"½»½ÓÏä´í*");
if (Fadd32(sendbuf,FML_CK_errmessage,"´íÎó,±íÖÐÎÞ´Ë½»½ÓÏä£¡",0)
== -1) userlog("fadd error %ld",__LINE__);
err_cnt=err_cnt+1;
if (Fadd32(sendbuf,FML_CK_err_cnt,(char*)&err_cnt,0)
== -1) userlog("fadd error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_alert_cnt,(char*)&alert_cnt,0)== -1) userlog("fadd
error %ld",__LINE__);
                                        if (Fadd32(sendbuf,FML_CK_recno,(char*)&recno,0)== -1) userlog("fadd
error
%ld",__LINE__);
if(err_cnt>=SQL_input_err_cnt) goto SUBMIT;
          if(new_crossbox1_in_line!=-1)
          EXEC SQL select ISNULL(crossbox_inserial,0),
          ISNULL(uppercross_code,-1),

Tpcall erorr

private string tester()
TypedFML32 request = new TypedFML32(430024);
TypedBuffer response = new TypedFML32(430024);
AppContext ctx = null;
String result = null;
try
request.Fadds(aaaa, "PBO");
request.Fadds(bbbb, "06444658");
TypedTPINIT tpinfo = new TypedTPINIT();
ctx = AppContext.tpinit(tpinfo);
ctx.tpcall("CUSTADDR", request, ref response, 2);
result = "1111";
catch (Exception ex)
MessageBox.Show(ex.Message);
label2.Text = ex.ToString();
result = "0000";
ctx.tpterm();
return result;
this the erorr "TPESVCFAIL - application level service failure"
iam using tuxedo 9.1 client and Tuxedo .NET Workstation Client Applications "c#"
and how to use TypedFML32 .
thanks
Edited by: a.mofeez on 07/04/2013 03:21 ص

Hi,
What Kristian says is absolutely correct, the error is an indication that the service you called returned an error, application error, not a Tuxedo infrastructure error, so you will need to talk to the service developer to see what is wrong with your request. Also, even though a service returns TPFAIL, it can still return data, so there may be an output buffer that contains more information.
As for FML32, you seem to have the hang of it., i.e., you use the various FML Library methods to create and modify the contents of the FML32 buffer. The documentation for that is at:
http://docs.oracle.com/cd/E13203_01/tuxedo/tux91/dotnet/dotnet_chapter.htm
http://docs.oracle.com/cd/E13203_01/tuxedo/tux91/fml/fml01.htm
By the way, Tuxedo 9.1 is really old and only extended support is available for it. Premiere support has already ended.
Regards,
Todd Little
Oracle Tuxedo Chief Architect

Receiving TPESYSTEM(12) in exception, not sure how to diagnose

Hi All,
I am receiving an intermittent TPESYSTEM(12) excpetion in java code when trying to use a WTC 10.3 connection.
This is intermittent, quite often simply resending the request immediately after will work.
Is there a means of getting further information on what could cause this error?
I have found out :
TPESYSTEM - A BEA Tuxedo system error has occurred.
But this is all the detail I can find about this error. Can anyone offer any tips on how to further debug or what this error actually means?
Cheers,
Troy

Hi Ed,
Thanks for this information it has pointed to the problem, although we are still a far ways from the solution it seems.
I am wondering if you can help with this one as well...
We are calling 3 services in a row, the third service is failing with the TPESYSTEM error.
From examining the TCPDUMP output, it seems the WTC connector is initiating a connection close, which is processed by the Tuxedo end.
Tuxedo then opens another connection...
Can you think of a reason why the WTC connector is initating the close of connection?
Cheers,
Troy

Where can I find the Oracle Home Directory

hi,
When i try to setup SALT g10R3, I will have to specifiy the oracle home directory. I have a global variable $ORACLE_HOME which contains this path : /produits/oracle/product/10.2.0 !
I try to validate but this message appears :
=========================================================================
Choose Oracle Home Directory
1- Specify an Oracle Home
Enter a number: 1
Specify an Oracle Home directory: /produits/weblogic
Path must be absolute and have write permission!
Specify an Oracle Home directory: /produits/oracle/product/10.2.0
=========================================================================
Check Prerequisite
Cannot get registry information from the given Oracle Home Directory:
/produits/oracle/product/10.2.0
Tuxedo has not been installed in this directory, or the registry.xml file has
been manually removed or corrupted.
Type 'back' to select another Oracle Home Directory
Type 'quit' to cancel this installation
[back | quit]: /produits/tuxedo
Type 'back' to select another Oracle Home Directory
Type 'quit' to cancel this installation
[back | quit]: /produits/tuxedo/tuxedo9.1
Type 'back' to select another Oracle Home Directory
Type 'quit' to cancel this installation
[back | quit]: quit
=========================================================================
I don't know how can I solve this problem, someone can help me ?
Thanks

Hi Todd,
I see a similar error while installiing TSAM 10gR3. Please find the error below. I have Tuxedo 8.1 installed on a Linux base, where i am trying to also install TSAM 10gR3. But when i give the PATH/Location, where Tuxedo 8.1 is installed, it throws the following error. Can you please advise?
===============================================================================
Choose Tomcat Feature
Do you want to install the bundled Tomcat Server?
->1- Install Tomcat
2- Do not install Tomcat
ENTER THE NUMBER FOR YOUR CHOICE, OR PRESS <ENTER> TO ACCEPT THE DEFAULT:
===============================================================================
Oracle Home directory selection
Specify Oracle Home directory: /opt/tuxhome/tuxdom2
registry.xml does not exist in Folder: /opt/tuxhome/tuxdom2
Specify Oracle Home directory: /opt/tuxedo/v81
Error:TUXEDO 10gR3 is not found in the specified directory.
Specify Oracle Home directory:

Tuxedo CICS error

Similar Messages

Maybe you are looking for