Unable to pre-process buffer before tranmission. Error code(12/4154)

Question

Hi,
I had a problem with tuxedo10 over suse 10 enterprise 64bit
114705.hermes!?proc.19294.337377072.0: LIBTUX_CAT:6031: ERROR: Unable to pre-process buffer before tranmission. Error code(12/4154)
When i call the first time the domain A at domain B the process run, but in the second time the message is LIBTUX_CAT:6031.
help my with that case.
Javier Claros

Answer 1

Hi :
tuxedo@hermes:/home/sistemas/platinum/LIBPRE> more prbube.v
VIEW prbube
#type cname fbname count flag size null
- PRBUBE_TIP_ID PR_TIP_IDf 1 - 4 -
- PRBUBE_NUM_ID PR_NUM_IDf 1 - 14 -
- PRBUBE_CONT PR_CONTf 1 - - -
- PRBUBE_TIP_ID_B PR_TIP_ID_Bf 10 - 4 -
- PRBUBE_NUM_ID_B PR_NUM_ID_Bf 10 - 14 -
- PRBUBE_COD_NUA PR_COD_NUAf 10 - - -
- PRBUBE_COD_FONDO PR_COD_FONDOf 10 - 3 -
- PRBUBE_APE_PAT PR_APE_PATf 10 - 21 -
- PRBUBE_APE_MAT PR_APE_MATf 10 - 21 -
- PRBUBE_APE_T PR_APE_Tf 10 - 21 -
- PRBUBE_P_NOMBRE PR_P_NOMBREf 10 - 21 -
- PRBUBE_S_NOMBRE PR_S_NOMBREf 10 - 21 -
- PRBUBE_FEC_NAC PR_FEC_NACf 10 - - -
- PRBUBE_FEC_REG PR_FEC_REGf 10 - - -
- PRBUBE_FEC_ACT PR_FEC_ACTf 10 - - -
- PRBUBE_FEC_SYS PR_FEC_SYSf 10 - - -
- PRBUBE_ERROR PR_ERRORf 1 - - -
- PRBUBE_MENSAJE PR_MENSAJEf 1 - 61 -
END
This is my view32
And my parameter call is
BUSCA-LISTA-BENEFI SECTION.
PERFORM INICIALIZA-PRBUBE (clean the view)
PERFORM INICIALIZA-PREFML (clean the fml down attached code)
PERFORM MOVER-A-PRBUBE
PERFORM LLAMAR-PRBUSBEN
PERFORM DO-TPTERM
IF PRBUBE-ERROR = "N"
INICIALIZA-PREFML SECTION.
MOVE LENGTH OF PREFML-DATA-REC TO LEN
MOVE LENGTH OF PREFML-DATA-REC TO FML-LENGTH
CALL "FINIT32" USING PREFML-DATA-REC FML-REC.
IF NOT FOK
PERFORM DO-FML-ERROR
MOVE "Falla INICIALIZACION DE PREFML" TO LOGMSG-TEXT
PERFORM DO-USERLOG
END-IF.
LLAMAR-PRBUSBEN section.
PERFORM CONV-PRBUBE-A-PREFML
move LENGTH OF PREFML-DATA-REC TO LEN.
move "FML32" to REC-TYPE.
move SPACES to SUB-TYPE
move "prbusben" to SERVICE-NAME.
PERFORM LLAMAR-SERVICIO-PREFML
PERFORM CONV-PREFML-A-PRBUBE
IF PRBUBE-ERROR NOT = "N"
MOVE "S" TO PRBUBE-ERROR
INSPECT PRBUBE-MENSAJE REPLACING ALL WS-NULO BY SPACES
IF PRBUBE-MENSAJE = SPACES
MOVE "Servicio no disponible. Llamar a SINTESIS"
TO PRBUBE-MENSAJE
END-IF
END-IF.
LLAMAR-SERVICIO-PREFML SECTION.
SET TPBLOCK TO TRUE.
SET TPNOTRAN TO TRUE.
SET TPNOTIME TO TRUE.
SET TPSIGRSTRT TO TRUE.
SET TPCHANGE TO TRUE.
CALL "TPCALL" USING TPSVCDEF-REC
TPTYPE-REC
PREFML-DATA-REC
TPTYPE-REC
PREFML-DATA-REC
TPSTATUS-REC.
IF NOT TPOK
PERFORM DO-FML-ERROR
PERFORM DO-ERROR
INITIALIZE LOGMSG-TEXT
STRING "Falla en el servicio : " SERVICE-NAME
DELIMITED BY SIZE INTO LOGMSG-TEXT
PERFORM DO-USERLOG
END-IF
IF TPTRUNCATE
INITIALIZE LOGMSG-TEXT
STRING "Dato truncado en servicio : " SERVICE-NAME
DELIMITED BY SIZE INTO LOGMSG-TEXT
PERFORM DO-USERLOG
END-IF.
All my client call in the same code but it is run in linux 32bit, but in the s.o linux 64bit i have the problem.
Javier