If I understand your intention correctly:
remove your two vars:
SET V vCounter INTEGER = 0
SET V vCounterLimit INTEGER = 2000000
and replace:
WHILE vCounter < .vCounterLimit THEN
SET V vCounter = (.vCounter + 1)
ENDWHILE
with
PAUSE FOR 5
>From the help file:
FOR n
Sets the pause duration in seconds; n must be a positive integer. Any keystroke
interrupts the pause, regardless of duration. In the absence of a USING clause,
no message is displayed. With a USING clause, the message is displayed in an
Windows dialog box
Regards,
Alastair.
----- Original Message -----
From: Steve Breen
To: RBASE-L Mailing List
Sent: Friday, July 24, 2009 1:47 PM
Subject: [RBASE-L] - SETTING UP A PAUSE COMMAND
Can anyone tell me the best way to insert a pause command in the code below
with a restart.
Want slight pause between cycles.
Pause should be 5 seconds lets say.
Thanks,
Steve
LABEL GetData
CONNECT ADD_REP
SET V vCounter INTEGER = 0
SET V vCounterLimit INTEGER = 2000000
SET V vRQ__ID INTEGER
SET V vFileName TEXT = NULL
SET V vRQ__ServerIDRQ TEXT = (ENVVAL('ComputerName'))
CONNECT R:\RBASE\RBDATA\BREAKDN
SET ERROR MESSAGES OFF
DROP CURSOR cBDRQ
DECLARE cBDRQ CURSOR FOR SELECT RQ__ID FROM REP_QUE +
WHERE RQ__ServerID IS NULL
OPEN cBDRQ
FETCH cBDRQ INTO vRQ__ID
WHILE SQLCODE <> 100 THEN
SET V vFileName = ('RQ' + (CTXT(.vRQ__ID)) + (CHAR(46)) + 'ASC')
OUTPUT .vFileName
UNLOAD DATA FROM REP_QUE AS ASCII USING +
RQ__Date , +
RQ__Time , +
RQ__Host , +
RQ__CpuID , +
RQ__SessionID , +
RQ__ClientProgram , +
RQ__ClientVersion , +
RQ__RepName , +
RQ__RepWhere , +
RQ__RepOrderBy , +
RQ__RepFileType , +
RQ__RepFileDrv , +
RQ__RepFileFold , +
ODBC_DS_Name , +
RQ__FaxContact , +
RQ__FaxNumber , +
RQ__Email , +
RQ__EmailSubject , +
RQ__Message +
WHERE RQ__ID = .vRQ__ID
OUTPUT SCREEN
UPDATE REP_Que SET RQ__ServerID = .vRQ__ServerIDRQ WHERE CURRENT OF cBDRQ
BREAK
FETCH cBDRQ INTO vRQ__ID
ENDWHILE
DROP CURSOR cBDRQ
IF vFileName IS NOT NULL THEN
CONNECT ADD_REP
LOAD REP_Que FROM .vFileName USING +
RQ__Date , +
RQ__Time , +
RQ__Host , +
RQ__CpuID , +
RQ__SessionID , +
RQ__ClientProgram , +
RQ__ClientVersion , +
RQ__RepName , +
RQ__RepWhere , +
RQ__RepOrderBy , +
RQ__RepFileType , +
RQ__RepFileDrv , +
RQ__RepFileFold , +
ODBC_DS_Name , +
RQ__FaxContact , +
RQ__FaxNumber , +
RQ__Email , +
RQ__EmailSubject , +
RQ__Message
ENDIF
DELETE .vFileName
WHILE vCounter < .vCounterLimit THEN
SET V vCounter = (.vCounter + 1)
ENDWHILE
GOTO GetData
RETURN
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.392 / Virus Database: 270.13.26/2257 - Release Date: 07/23/09
18:00:00
