Hi all,
I have a strange problem in RBW 1.851xRT03 ...
Seems that COPY don't works anymore after a PAUSE 3 command in a non
optimized WHILE loop :
SET ERROR VAR verr
SET WHILEOPT OFF
SET VAR vTEXT TEXT = NULL
SET VAR vINT INTEGER = NULL
SET VAR vcaption TEXT = 'Caption'
SET var vfich TEXT = 'Rbase.dat'
SET var vdrive = 'A:'
WHILE #PI <> 0 THEN
-- Message d'attente
SET VAR vTEXT = ('Travail en cours .... PATIENTEZ S.V.P ....')
PAUSE 3 USING .vTEXT=45 CAPTION .vcaption AT CENTER CENTER
COPY 'Rbase.dat' 'A:'
SET var vINT = .verr
IF vINT <> 0 THEN
CLS
SET VAR vTEXT = ('COPY 1 (error' & (CTXT(.vINT)) + ').')
PAUSE 2 USING .vTEXT
ENDIF
BREAK
ENDWHILE
SET VAR vTEXT = ('Work in Progress ....')
PAUSE 3 USING .vTEXT=45 CAPTION .vcaption AT CENTER CENTER
COPY 'Rbase.dat' 'A:'
SET var vINT = .verr
IF vINT <> 0 THEN
CLS
SET VAR vTEXT = ('COPY 2 (error' & (CTXT(.vINT)) + ').')
PAUSE 2 USING .vTEXT
ENDIF
CLS
RETURN
Both COPY works in TRACE mode, but first COPY return error 2086.
Second COPY works fine because not in the WHILE loop.
Same problem with
COPY .vfich .vdrive
or
COPY &vfich &vdrive
Can anybody confirm ?
Any suggestion ?
TIA
J.M. GRATIAS, Logimatique
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
