RE: [COBOL400-L] Never Ending program

["John Brandt Sr." <pgmr@xxxxxxxxxxxxxxx>]

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