Hello,
again, to avoid reinventing the wheel....I am looking for a simple way of asking the user for patience with a message like the one provided by 'USR1066N' ...
" Executing..."
..but I would like a specific message, in french, to be shown within a window, just during the the 6-7 seconds the data atre retrieved and sorted....like :
' Recherche et tri des donn
Run this and see if it is what you want:
DEFINE DATA LOCAL
1 #BAR (A60)
1 #LOOP (P3)
1 #PERC (P3)
1 #DELAY (I2) INIT <1>
1 #POS (P3)
END-DEFINE
*
FOR #LOOP = 1 TO 10
COMPUTE #PERC = 10 * #LOOP
COMPUTE #POS = #LOOP * 6 - 1
RESET #BAR
MOVE ‘*’ TO SUBSTRING (#BAR,#POS,1)
CALL ‘CMROLL’ #DELAY
SET CONTROL ‘N’
INPUT (AD=O IP=OFF) ‘PLEASE BE PATIENT…’ / #BAR (AD=V CD=PI DY=*N%)
/ ‘WE ARE’ #PERC ‘% FINISHED’
END-FOR
END
steve
The text, of course, could be in any language you want. Also, you could have arrays with different languages.
The value of #DELAY controls the amount of time between refreshes. You could play with this to achieve a suitable elapsed time for the entire message.
steve