J.M.:
Remove the quotes:
COPY Rbase.dat A:
Jim Blackburn
Kodiak
"J.M. GRATIAS" wrote:
>
> 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/
================================================
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/
