[RBASE-L] - Re: Blank Spaces - Razzak's Reply

[A. Razzak Memon]

At 07:54 AM 8/13/2003 +0700, Charles Dean Conrad wrote:

I am having problems when I try to insert blanks between
numbers. Every time I run it the blanks do not appear.
Below is the code that I am using.  I am using 65++
      SET VAR vbk = (CHAR0032)
      SET VAR vf3 TEXT = (.vbk+.vbk+.vbk)
      SET VAR vf4 TEXT = (.vbk+.vbk+.vbk+.vbk)
      SET VAR vst1 = (SGET(.vtax,2,1))
      SET VAR vst2 = (SGET(.vtax,3,3))
      SET VAR vst3 = (SGET(.vtax,3,6))
      SET VAR vst4 = (SGET(.vtax,1,9))
      SET VAR vst5 = (SGET(.vtax,3,10))
      SET VAR vst6 = (SGET(.vtax,3,13))
      SET VAR v1721 = +
            (.vst1+.vf3+.vst2+.vf4+.vst3+.vf3++
             .vst4+.vf4+.vst5+.vf4+.vst6)


Charles,

Reading your code above, if I understand correctly, your
resulting variable v1721 should include a total of 33
characters in a text string with vst1 at position 1,
vst2 at position 6, vst3 at position 13, vst4 at position 19,
vst5 at position 24 and vst6 at position 31. Anything in
between should be a blank space.  Wow ...
So, keeping that scenario in mind, try the following simple
example using the POWER of SFIL and SPUT String Manipulation
Functions of R:BASE!
SET VAR v1721 TEXT = NULL
SET VAR v1721 = (SFIL((CHAR(32)),33))
SET VAR vst1 = (SGET(.vtax,2,1))
SET VAR vst2 = (SGET(.vtax,3,3))
SET VAR vst3 = (SGET(.vtax,3,6))
SET VAR vst4 = (SGET(.vtax,1,9))
SET VAR vst5 = (SGET(.vtax,3,10))
SET VAR vst6 = (SGET(.vtax,3,13))
SET VAR v1721 = (SPUT(.v1721,.vst1,1))
SET VAR v1721 = (SPUT(.v1721,.vst2,6))
SET VAR v1721 = (SPUT(.v1721,.vst3,13))
SET VAR v1721 = (SPUT(.v1721,.vst4,19))
SET VAR v1721 = (SPUT(.v1721,.vst5,24))
SET VAR v1721 = (SPUT(.v1721,.vst6,31))
SHOW VAR v1721

Should work accordingly in R:BASE 6.5++ (Build:1.866xRT03)
and the Next Generation R:BASE 7.0 for Windows!
Enjoy and make sure to have fun!

Very Best R:egards,

Razzak.