Re: Job Dates and Service Programs

[Charles Wilt <charles.wilt@xxxxxxxxx>]

How are you using *DATE?   Sounds like it's being used during
initialization of a global variable...

explicitly setting a variable should pick up the changed job date..
myVar = %date(*DATE);

Charles


On Wed, Jan 26, 2022 at 9:50 AM DEnglander--- via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

> Has anyone noticed this:
>
> I have a program that uses a service program. That service program uses
> *DATE.
>
> When I change the job date to [for example] 12/21/2019, the service
> program gets that date as its *DATE value.
>
> Then, when the program ends, I change the job date again, using CHGJOB
> DATE(122819).
>
> When I run the program a second time, the service program is still getting
> 12/21/19 as its *DATE value. Is that normal? Shouldn't it get the new
> 12/28/19 date instead?
>
> We are on V7R3 with the latest PTFs.
>
> Thank you,
>
> Doug
>
>
>
> "CONFIDENTIALITY NOTICE:  This e-mail transmission (and/or the attachments
> accompanying it) contain confidential information belonging to the sender.
> The information is intended only for the use of the intended recipient.  If
> you are not the intended recipient, you are hereby notified that any
> disclosure, copying, distribution or the taking of any action in reliance
> on the contents of the information is strictly prohibited.  Any
> unauthorized interception of this transmission is illegal under the law.
> If you have received this transmission in error, please promptly notify the
> sender by reply e-mail, and then destroy all copies of the transmission."
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com