I handle it differently also (isn't it nice that there are so many ways of
achieving the same result). I code in hard spaces and do a SRPL to change
them from hard spaces to normal spaces:-
SET VAR vbk = (CHAR(0255))
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)
SET VAR v1721 = (SRPL(.v1721,(CHAR(0255)),(CHAR(0032)),0))
----- Original Message -----
From: "William Cook" <[EMAIL PROTECTED]>
To: "RBASE-L Mailing List" <[EMAIL PROTECTED]>
Sent: Thursday, August 14, 2003 1:04 PM
Subject: [RBASE-L] - Re: Blank Spaces
> I handle this whole process differently.
>
> I begin by clearing a variable using SFIL to set it to the appropriate
> length of spaces.
> I then use SPUT to insert the non-blank parts in their places.
>
> SET VAR dollar TEXT = ('99,999,990.00')
>
> SET VAR vline = (SFIL(' ', .vfaright)) -- vfaright is like 80 or
> 132 depending
> SET VAR vtemp = (FORMAT(.vt2, .dollar)) -- formatting amount in text
> variable vtemp
>
> --right justified at .vright
> SET VAR vline = (SPUT(.vline, .vtemp, .vright - SLEN(.vtemp)-.lpct))
>
> Since I do this a lot, I have created command files (.sub files)
> to perform the common tasks. Like below:
>
> RUN clearlin.sub -- clears the line
> RUN place.sub USING 'PO#:', 'R', 17 -- puts the text PO# Right
> adjusted at column 17
> RUN place.sub USING .vponum, 'L', 19 -- puts the text in vponum
> left adjusted at column 19
> RUN writeclr.sub -- writes the line and clears
> it
>
> But essentially still just SPUT's.
>
>
