Steve
PAUSE for 5 USING 'PAUSE with APPS Icon' CAPTION 'New PAUSE Command' ICON APPS
Will pause for 5 seconds then go to the next line.
Marc
From: Steve Breen
Sent: Friday, July 24, 2009 7:47 AM
To: RBASE-L Mailing List
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
