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
