IBM Support

GXS EDIEXPRESS Connection fails after receiving [11][7F][7F] from GXS and gives and in session log appears a "Read timeout occurred" error (SCI61668) - Sterling Gentran:Server for Microsoft Windows

Troubleshooting


Problem

GXS EDIEXPRESS Connection fails after receiving [11][7F][7F] from GXS and gives and in session log appears a "Read timeout occurred" error (SCI61668)

Symptom

Performing a  GDW_Send_Only session
Error "Read timeout occurred"  after receiving [11][7F][7F] from GXS

Cause

Resolving The Problem

Move the AsciiRcvCtl ("ENTER SELECTION:"); from before the BYE command into the Receiving IF-Statement. Below follows an example script:



//GEIS Async EDIEXPRESS
//User variables
scriptvar string[25] UserID;
scriptvar string[25] Password;
scriptvar string[3] Last3ChrsID;
scriptvar string[15] network_userid;
scriptvar string[15] network_password;



//run-time variables
integer MsgId;
integer AtmId;
string[100] Logon;
string[100] Docs;
string[25] Maila;
string[25] Send;
string[50] networkid;
string[50] networkpswd;



//initialization
Logon = UserID + "," + Password + "^0D";
Docs = "DOCS" + Last3ChrsID + "^0D";
Maila = "MAILA" + Last3ChrsID + "^0D";
Send = "SEND DOCS" + Last3ChrsID + "^0D";
networkid = network_userid + "^0D";
networkpswd = network_password + "^0D";
 



//logon procedure
SetBlockSize(128);
AsciiSndCtl (".^0D");
AsciiRcvCtl ("ACCOUNT:");
AsciiSndCtl ("gxsasy^0D");
AsciiRcvCtl ("USER ID:");
AsciiSndCtl ("gxsasy1^0D");
AsciiRcvCtl ("PASSWORD:");
AsciiSndCtl ("gegxsasy^0D");
AsciiRcvCtl ("TERM=(vt100):");
AsciiSndCtl ("^0D");
AsciiRcvCtl ("->");
AsciiSndCtl ("set port 3001^0D");
AsciiRcvCtl ("->");
AsciiSndCtl ("set bin^0D");
AsciiRcvCtl ("->");
AsciiSndCtl ("connect mkiii^0D");
AsciiRcvCtl ("UserATG:");
AsciiSndCtl (networkid);
AsciiRcvCtl ("Password:");
AsciiSndCtl (networkpswd);
AsciiRcvCtl ("U#=");
AsciiSndCtl (Logon);
AsciiRcvCtl ("ENTER SELECTION:");
AsciiSndCtl ("DATA^0D");
AsciiRcvCtl ("ENTER SELECTION:");



//send procedure
if DoSnd then
begin
            MbxStartMsgLoop();
            while ( MbxGetNextMsg(MsgId) !=0 ) do
begin
            MbxStartAtmLoop(MsgId);
            while ( MbxGetNextAtm(AtmId) !=0 ) do
begin
            AsciiSndCtl("XMOD SEND^0D");
            AsciiRcvCtl("Selection:?");
            AsciiSndCtl("C^0D");
            AsciiRcvCtl("filename ?");
            AsciiSndCtl(Docs);
            AsciiRcvCtl ("is");
            if RcvBufSearch("File") = 1 then
begin
            AsciiRcvCtl ("Selection: ?");
            AsciiSndCtl ("OV^0D");
end        
            AsciiRcvCtl ("READY FOR INPUT^0D^0A");
            AsciiRcvCtl ("^7F^7F^11C");
            Pause(2);
            XmodemSndAtm (MsgId, AtmId);
            AsciiRcvCtl ("again(Y/N)?");
            AsciiSndCtl ("N^0D");
            AsciiRcvCtl ("Continue XMODEM(Y/N) ?");
            AsciiSndCtl ("N^0D");
            AsciiRcvCtl ("ENTER SELECTION:");
            AsciiSndCtl (Send);
            AsciiRcvCtl ("ENTER SELECTION:");
            SndOK(MsgId, AtmId);
end
            SndOK(MsgId);
end



end



 



//receive procedure
if DoRcv then
begin
            AsciiSndCtl ("RECV^0D");
            AsciiRcvCtl ("ENTER SELECTION:");
            AsciiSndCtl ("XMOD RECV^0D");
            AsciiRcvCtl ("Selection:?");
            AsciiSndCtl ("C^0D");
            AsciiRcvCtl ("filename ?");
            AsciiSndCtl (Maila);
            AsciiRcvCtl ("Start download now.^0D^0A");
            XmodemRcvMsg();
            AsciiRcvCtl ("again(Y/N)?");
            AsciiSndCtl ("N^0D");
            AsciiRcvCtl ("Continue XMODEM(Y/N) ?");
            AsciiSndCtl ("N^0D");
            AsciiRcvCtl ("ENTER SELECTION:");
end
AsciiSndCtl ("BYE^0D");
AsciiRcvCtl("OFF AT");



SetStatus(SUCCESS);

Related Information

[{"Product":{"code":"SS6V3G","label":"Sterling Gentran:Server for Microsoft Windows"},"Business Unit":{"code":"BU055","label":"Cognitive Applications"},"Component":"Not Applicable","Platform":[{"code":"PF033","label":"Windows"}],"Version":"5.1;5.2;5.3;5.3.1","Edition":"","Line of Business":{"code":"","label":""}}]

Historical Number

PRI14847

Product Synonym

[<p><b>]Change[</b><p>];The script was waiting twice for a AsciiRcvCtl ("ENTER SELECTION:"); The
problem occurs only if a send_only session is executed.;[<p><b>]Fact[</b><p>];Session works properly if a GDW_Send_Receive is executed [<br/>] Dialup
EDIEXPRESS connection to GXS [<br/>] ISDN Modem [<br/>] SCI61668 [<br/>]
GENTRAN:Server for Windows NT, All Releases [<br/>] Gentran:Server for Windows,
All Releases

Document Information

Modified date:
16 June 2018

UID

swg21542834