Kbase P96045: How to send n times space character to a variable using 4GL?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
11/17/2004 |
|
Status: Unverified
GOAL:
How to send n times space character to a variable using 4GL?
FIX:
This example code will send 4 times a space character.
DEF VAR i AS INT.
DEF VAR mytext AS CHAR INIT "This is my text".
DEF VAR myothertext AS CHAR INIT "This is my other text".
DEF VAR theresult AS CHAR FORMAT "X(50)".
theresult = STRING(mytext).
DO i = 1 TO 4:
theresult = theresult + string(CHR(ASC(" "))).
END.
theresult = theresult + STRING(myothertext).
DISPLAY theresult.