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™: 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
