Here's how the 2 strings are declared:
DCL WRKCEGR_PTR POINTER;
...
DCL WRKCEGR_STRING CHAR(36)
BASED(WRKCEGR_PTR);
...
DCL HLDCEGR_PTR POINTER;
...
DCL HLDCEGR_STRING CHAR(36)
BASED(HLDCEGR_PTR);
On Fri, 10 Jul 2009 10:41:27 -0500, Adam Johanson
<adam.johan...@usaa.com> wrote:
>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
----------------------------------------------------------------------
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
