RE: Timing loop

1)  The latest rage, (of which I am guilty of), is to avoid CL unless it is
at a really GREAT cost.  Often you do this by calling some API.  Now,
wouldn't it be a kick in the shorts if this API was written in CL and just
did a DLYJOB :-)
2)  Sometimes you find some function that was new or overlooked for years.
For example we have a cl program called RTVUSR that we used to call from
our RPG programs to put the user on the print headings, etc.  All it did
was a RTVJOBA for the user.  Then I found out that user is part of the
Program Status Data Structure, or PSDS and anyone who has this /copy, in
our shop, in their program gets a PSDS with a field called USER.  What a
duplication of effort.  Thus I no longer use RTVUSR.
      /COPY ROUTINES/QRPGLESRC,SRVPGMCPY


Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    "Saunders, Martin
                    P"                      To:     "'rpg400-l@midrange.com'" 
<rpg400-l@midrange.com>
                    <martin.saunders@       cc:
                    cgey.com>               Fax to:
                    Sent by:                Subject:     RE: Timing loop
                    rpg400-l-admin@mi
                    drange.com


                    02/27/2002 09:43
                    AM
                    Please respond to
                    rpg400-l






DLYJOB?  Or am I missing something?

HTH

Martin

-----Original Message-----
From: Smith, Nelson [mailto:NSmith@lincare.com]
Sent: 27 February 2002 14:32
To: rpg400-l@midrange.com
Subject: Timing loop


What's the best way to implement a timing loop in RPG without creating
another CFINT that would eat up the system?  i.e. I would like to wait 5
seconds and retry something, but I don't want to be testing the time every
.000001 microseconds (or however fast a loop would execute) to see if 5
seconds has passed or not.

Nelson Smith, CDP, CCP
IBM Certified Specialist
AS400 RPG IV Programmer
(727) 431-8243
(800) 284-2006



****************************************************************************

****************************************************************************

****************************************************
This message originates from Lincare Holdings Inc. It contains information
which maybe confidential or privileged and is intended only for the
individual or entity named above.
It is prohibited for anyone else to disclose, copy, distribute or use the
contents of this message.
All personal messages express views solely of the sender, which are not to
be attributed to Lincare Holdings Inc., and may not be copied or
distributed
without this disclaimer.
If you received this message in error, please notify us immediately at
MailAdmin@lincare.com or (800) 284-2006.
****************************************************************************

****************************************************************************

****************************************************

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


********************************************************************************************

" This message contains information that may be privileged or confidential
and
is the property of the Cap Gemini Ernst & Young Group. It is intended only
for
the person to whom it is addressed. If you are not the intended recipient,
you
are not authorized to read, print, retain, copy, disseminate, distribute,
or use
this message or any part thereof. If you receive this message in error,
please
notify the sender immediately and delete all copies of this message ".
********************************************************************************************

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.