Use the API QWCRSVAL to retrieve the date from the system value to reload
your date. You will also need to retrieve the value for the QUTCOFFSET to
make sure you are set correctly.

John Brandt
iStudio400.com

-----Original Message-----
From: Margaret Rozmarynowycz [mailto:mrozmary@xxxxxxxxxxxxx]
Sent: Wednesday, February 04, 2004 8:49 AM
To: COBOL Programming on the iSeries/AS400
Subject: Re: [COBOL400-L] Never Ending program


Perhaps I'm oversimplifying, but can't you just accept the system date 
every time you loop through the program?

Marge Rozmarynowycz
Computer Resources Specialist

Cesar Mendoza wrote:

>   Hi,
>
>   I have a never ending online program (Five sessions) and every night the
>   program is ending (Down) to refresh the data (Logical Date) then Up the
>   program and work all day.
>
>   My problem is to avoid "Down/Up" but I want to refresh the data.
>
>   Does anyone know, What can I do to avoid it?
>
>   Thanks for any help, Regards,
>
>                \|||/ 
>                (o o)
>   ----ooO--(_)--Ooo-------
>   Un abrazo cordial,
>   Cesar A. Mendoza Gomez
>   Calle Buen Retiro 216 Chalet 22 - Lima 33 - Peru
>   Phone: +(511) 434-2024
>   Mobile: +(511) 985-42410
>
>     ----------------------------------------------------------------------
>
>   The new MSN 8: smart spam protection and 2 months FREE*
>_______________________________________________
>This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
>To post a message email: COBOL400-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
>or email: COBOL400-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/cobol400-l.
>
>
>  
>


_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.576 / Virus Database: 365 - Release Date: 1/30/04
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.576 / Virus Database: 365 - Release Date: 1/30/04
 

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.