Re: Time Delay RPG IV

dRun pr ExtPgm('QCMDEXC')
D CmdStr 32767a Const Options(*varsize)
D CmdStrSize 15p 5 Const
D DBCS 3a Const Options(*NoPass)
D CmdStr s 32767a Varying

CmdStr = 'DLYJOB 2';
Run(CmdStr:%Len(CmdStr));

Thanks,
Tommy Holden



From:
vhamberg@xxxxxxxxxxx
To:
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Date:
07/24/2008 10:52 AM
Subject:
Re: Time Delay RPG IV



Calling QCMDEXC doesn't give him a delay - what command should he use? I
think I know, but wondering what you have in mind.

-------------- Original message --------------
From: Michael_Schutte@xxxxxxxxxxxx

yes, look in the archives on how to call QCMDEXC from the rpg pgm.


Michael Schutte
Admin Professional
Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans
Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. For more
information, visit www.BobEvans.com.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 07/24/2008 10:10:08 AM:

Good morning,

I was wondering if there is any way to make an rpg program wait for a
time interval (say, 2 seconds). I have to start an asynchronous
procedure and the rpg program has to wait until that procedure is done

and has returned files to the IFS before continuing.

Has anyone done something like this before?

Thank you,
Chris Anderson
Partners Mutual Insurance

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.