Need assistance to resolve EZASOKET failure with ERRNO 54 

 
Thank You
 
Pereto F. Williams
Integrated Dispute Systems (IDS)
First Data Commercial Services
 
O (954) 845-4723 
M (954) 464-4852
F  (954) 845-4400 
 
 
firstdata.com

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of john gilmore
Sent: Friday, July 10, 2009 12:54 PM
To: [email protected]
Subject: Re: Odd Behavior in PL/I Assignment Statement

Adam,

 

The excerpt you posted is to small and incomplete to make much sense of.
Copy and post the relevant declarations too.

John Gilmore Ashland, MA 01721-1817 USA


 
> Date: Fri, 10 Jul 2009 10:41:27 -0500
> From: [email protected]
> Subject: Odd Behavior in PL/I Assignment Statement
> To: [email protected]
> 
> Could someone explain how this is happening? It appears that the 
> source for an assignment statement is changed after the move. Here is 
> an excerpt from the listing:
> 
> 446 2 2 PUT SKIP LIST ('BEFORE: WRKCEGR_STRING = HLDCEGR_STRING ', 
> WRKCEGR_STRING, HLDCEGR_STRING);
> 447 2 2 WRKCEGR_STRING = HLDCEGR_STRING;
> 448 2 2 IF WRKCEGR_STRING = HLDCEGR_STRING THEN DO;
> 449 2 3 END;
> 450 2 2 ELSE
> DO;
> 451 2 3 PUT SKIP LIST ('AFTER: WRKCEGR_STRING = HLDCEGR_STRING ', 
> WRKCEGR_STRING, HLDCEGR_STRING);
> 
> And here is the SYSPRINT with HEX ON. Note the x'01' in the high order

> byte of the last PUT:
> 
> BEFORE: WRKCEGR_STRING = HLDCEGR_STRING
> CCCDDC74EDDCCCD6EEDCDC474CDCCCCD6EEDCDC44
> 256695A06923579D2399570E08343579D23995700
> ----------------------------------------
> :ESUBSCRICSPEC255 U 0000005
> 0FCEECECDCCEDCCFFF4E44444444FFFFFFF04
> 0F52422399327532550400000000000000500
> ------------------------------------
> :APUBLISHCSPEC255 UTECEGDB 00: 
> 0FCDECDCECCEDCCFFF44EECCCCCC44444FF04
> 0F17423928327532550043535742000000010
> ------------------------------------
> AFTER: WRKCEGR_STRING = HLDCEGR_STRING
> CCECD744EDDCCCD6EEDCDC474CDCCCCD6EEDCDC44
> 16359A006923579D2399570E08343579D23995700
> ----------------------------------------
> :APUBLISHCSPEC255 UTECEGDB 00: 
> 0FCDECDCECCEDCCFFF44EECCCCCC44444FF04
> 0F17423928327532550043535742000000010
> ------------------------------------
> ::APUBLISHCSPEC255 UTECEGDB 00: 
> 0FCDECDCECCEDCCFFF44EECCCCCC44444FF04
> 1F17423928327532550043535742000000010
> 
> 
> Any input is appreciated. Thanks.
> 
> 
> Adam Johanson
> IMS Systems Programming
> USAA
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to [email protected] with the message: GET IBM-MAIN INFO 
> Search the archives at http://bama.ua.edu/archives/ibm-main.html

_________________________________________________________________
Windows Live(tm): Keep your life in sync. 
http://windowslive.com/explore?ocid=TXT_TAGLM_WL_BR_life_in_synch_062009
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to [email protected] with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html

-----------------------------------------
The information in this message may be proprietary and/or
confidential, and protected from disclosure.  If the reader of this
message is not the intended recipient, or an employee or agent
responsible for delivering this message to the intended recipient,
you are hereby notified that any dissemination, distribution or
copying of this communication is strictly prohibited. If you have
received this communication in error, please notify First Data
immediately by replying to this message and deleting it from your
computer. 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to