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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html