|
Hiwith the CPF 5175 error.
I have a problem where I am writing to a save file after receiving the
records from a remote system. Every so often I am getting a failure
where the save file is written. A message CPF5175 is sent after a
write to the file, but the fdbk area is still showing the record was
correctly added. I think this is to do with the caching of the writes
until 32K has been written? It appears IBM checks the CRC of the last
32K as it adds it to the file, when this CRC is incorrect it will fail
correctly!
Here is a bit of the code to show what is happening, I have even added
a check every 60 records to make sure the write has been performed
capture???
for(i = 0,j = 0; i< Request.Records; i++,j++) {
rc = recv(accept_sd, Savf_Buf,528,0);
if(rc< 0) {
sprintf(msg_dta," recv() failed %s",strerror(errno));
snd_msg("GEN0001",msg_dta,strlen(msg_dta));
close(accept_sd);
return -1;
}
if(rc == 528) {
fdbk = _Rwrite(fp,Savf_Buf,528);<<< this is where the CPF5175
message says it originates.
if(fdbk->num_bytes != 528) {
sprintf(msg_dta,"Error on write %s",strerror(errno));
close(accept_sd);
return -1;
}
}
else {
offset = 0;
total_bytes += rc;
do {
offset += rc;
rc = recv(accept_sd,&Savf_Buf[offset],528 - offset,0);
if(rc< 0) {
sprintf(msg_dta," recv() failed %s",strerror(errno));
snd_msg("GEN0001",msg_dta,strlen(msg_dta));
close(accept_sd);
return -1;
}
total_bytes += rc;
}while(total_bytes< 528);
fdbk = _Rwrite(fp,Savf_Buf,528);
if(fdbk->num_bytes != 528) {
sprintf(msg_dta,"Error on write %s",strerror(errno));
close(accept_sd);
return -1;
}
}
if(j == 60) {
rc = send(accept_sd,"OK",2,0);
j = 0;
}
}
_Rclose(fp);
This is the code that sends the request.
for(i = 0, j = 0; i< details->Records; i++,j++) {
fdbk = _Rreadn(fp,Cpy_Buf,528,__DFT);
if(fdbk->num_bytes == 528) {
len = send(sockfd, Cpy_Buf,528, 0);
total_bytes += len;
if(len != 528) {
sprintf(msg_dta," send() Cpy_Buf failed %s bytes sent
%l",
strerror(errno),total_bytes);
snd_msg("GEN0001",msg_dta,strlen(msg_dta));
close(sockfd);
Add_to_Failed(RepDta,msg_dta);
QUSDLTUS(Sav_Spc_Name,
&Error_Code);
if(Error_Code.EC.Bytes_Available> 0) {
snd_error_msg(Error_Code);
}
return -1;
}
}
else {
sprintf(msg_dta,"Failed to read record - bytes read %d",
fdbk->num_bytes);
snd_msg("GEN0001",msg_dta,strlen(msg_dta));
_Rclose(fp);
close(sockfd);
Add_to_Failed(RepDta,msg_dta);
QUSDLTUS(Sav_Spc_Name,
&Error_Code);
if(Error_Code.EC.Bytes_Available> 0) {
snd_error_msg(Error_Code);
}
return -1;
}
/* check at 32k limit for processing */
if(j == 60) {
len = recv(sockfd, recv_buf, 2, 0);
if(memcmp(recv_buf,"OK",2) == 0) {
j = 0;
}
else {
/* error in record count! */
sprintf(msg_dta," recv() count check failed");
snd_msg("GEN0001",msg_dta,strlen(msg_dta));
close(sockfd);
Add_to_Failed(RepDta,msg_dta);
QUSDLTUS(Sav_Spc_Name,
&Error_Code);
if(Error_Code.EC.Bytes_Available> 0) {
snd_error_msg(Error_Code);
}
return -1;
}
}
The error is always shown as coming from the line marked, but the
program is continuing because fdbk->num_bytes is set to 528. The
problem is the program is ending but leaving the save file open so
subsequent requests to this function cannot access the save file!!! I
THINK the data is corrupted in the transfer and IBM is not picking it
up? I have seen in other articles that IBM I is very bad on TCP/IP error
always different.
I would like to capture the CPF5175 error somehow and clean up so
other requests will not fail. I can log a retry on the source for the
object so it will be recoverable. What is the best way to do this?
Should I just add a signal capture and respond to it using
#pragma exception handler around the _Rwrite? Why isn?t this error
reported back through the fdbk structure? I added the 60 record check
and did a debug to see what records were causing the problem but it was
What I can say is this only occurs when the comms is heavily loaded?message.
Hope someone has some ideas? I will keep looking for Comms PTF?s as my
V6R1 system does not exhibit the same behavior just the customers
system running V5R4..
Chris Hird
Chris Hird
Director
Shield Advanced Solutions Ltd
http://www.shield.on.ca
1(519) 940-1192
______________________________________________________________________
______
_______
Please consider the environment before printing this email.
This message, including any attached documents, is intended for the
addressees only. It may contain information that is confidential,
privileged and/or exempt from disclosure. No rights to privilege or
confidentiality have been waived. Any unauthorized use or disclosure
is prohibited. If you have received this message in error, please
reply to the sender by e-mail and delete or destroy all copies of this
______________________________________________________
Avant d'imprimer ce courriel, pensez à l'environnement.
Ce message, incluant tous les documents joints, est à l'intention des
destinataires visés seulement. Il peut contenir des renseignements
confidentiels, protégés et/ou ne pouvant pas être divulgués. Aucune
renonciation n'est faite quant à sa nature confidentielle et privilégiée.
Par conséquent, toute diffusion ou utilisation non autorisée est
strictement interdite. Si vous avez reçu ce message par erreur,
veuillez en aviser immédiatement l'expéditeur par retour de courriel
et en détruire toutes les copies existantes.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
