Hi all,
I have problems in codelocked RBW6.5 programs (1.862xRT03).
One of these programs where writen with older version (1.842/1.851) and
were working OK with thoses version.
Now, it don't :
- in run mode (RUN myprog IN myprog.apx)
- in TRACE mode (TRA myprog IN myprog.apx) where I use F5 to progress
It works in TRACE mode (TRA myprog IN myprog.apx) where I use F10 to
progress (step by step).
This is the structure of the program.
WHILE #PI <> 0 THEN
CHOOSE vchoix FROM #VALUES FOR .......
IF vchoix = '[Esc]' THEN
BREAK
ENDIF
SWITCH (.vchoix)
CASE '1'
Something ...
BREAK
CASE '.....'
BREAK
CASE '6'
SET var vcaption = 'LOGINTRA. Installation des nomenclatures
officielles', +
vdrive TEXT, vmulti TEXT, vINT INT
CHOOSE vdrive FROM mdrive IN nc8.apx AT CENTER CENTER +
TITLE 'Choisir l''unit� � utiliser (ou Echap)' +
CAPTION .vcaption LINE 4
IF vdrive = '[Esc]' THEN
BREAK
ENDIF
BREAK
CASE '.....'
BREAK
ENDSW
-- R�ouverture DBCEE avant retour au menu
DISC
SET multi .vmulti
CONN dbcee
ENDWHILE
RETURN
$MENU
mdrive
POPUP
|#DRIVES|
ENDC
Problem happen only when vchoix = 6
When in RUN mode and TRA/F5, CHOOSE vdrive FROM mdrive ...... and all
following commands are skipped over
and control return directly to ENDSW
WHILEOPT is set to OFF
Using W98SE
I tryed to recodelock with 1.862 : same problem
Same problem also with the same not codelocked (RUN myprog)
Have some changes has been made in WHILE loop optimisations ?
Any ideas ?
TIA,
J.M. GRATIAS, Logimatique
