On Fri, 10 Jul 2009 12:43:59 -0500 Adam Johanson <adam.johan...@usaa.com>
wrote:
:>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);
If the fields are 36 characters, why are 37 being displayed?
:>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.
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
----------------------------------------------------------------------
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
