On 1/20/2012 12:36 PM, Israel, John R. wrote:
> I have an INCLUDE that I use in ALL programs I touch.  It simply does a bunch 
> of assigning of variables so that I can use them as needed.  One of these 
> assignments is:
> TODAY = @DATE
> 
> I have 1 program in 1 account that is consistently returning: 16066 (which is 
> 12/26/11).  This program is initiated via a Redback call but so are many many 
> others.
> 
> In the pgm that is failing, immediately after my INCLUDE, I just added code 
> to write the following to disk:
> TODAY
> DATE()
> @DATE
> 
> Both TODAY and @DATE ALWAYS return 16066 for this 1 program, but no others.  
> The same program is working correctly in other accounts, and the value of 
> TODAY is correct in EVERY other program I have ever used.
> 
> Does anyone have a clue?
> 
> I could replace @DATE with DATE() in my INCLUDE, but to do my due diligence, 
> I should recompile EVERY program that uses the INCLUDE (and that is NOT going 
> to happen).


@DATE is writable, check to see if you're inadvertently over-writing it
in that one program.

Example code:
0001:       CRT "DATE():  ": DATE()
0002:       CRT "@DATE :  ": @DATE
0003:       @DATE = "XY"
0004:       CRT "@DATE :  ": @DATE
0005:       STOP

Example results:
>RUN ADE.BP TT
DATE():  16091
@DATE :  16091
@DATE :  XY


-- 
allen egerton; [email protected]
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to