Rob -
I would create a temporary table with a field wide enough to hold an entire
line of text. Then write a routine to string one variable out that uses
some character (I used the tilde (~) in the example below) as the blank
space place-saver. Once the whole line is created and saved in one variable,
insert it into the temp table. Then, when the whole table is ready to go,
output it using the SRPL on the blank space place-holder value and replace
it with CHAR(32). Here's a snippet of code I used for a 1099 file for the
IRS.
Sami
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sami Aaron
Software Management Specialists
913-915-1971
[EMAIL PROTECTED]
--Start a new line
SET V vrecordinfo TEXT = NULL
SET V vrecordinfo = ('F')
SET V vrecordinfo = (.vrecordinfo + '00000001')
--vrecordinfo now looks like F00000001
SET V vzero21 TEXT = '000000000000000000000'
SET V vrecordinfo = (.vrecordinfo + .vzero21)
--vrecordinfo now looks like F00000001000000000000000000000
SET V vblank19 TEXT = NULL
SET V vblank19 = (SFIL('~',19))
SET V vrecordinfo = (.vrecordinfo + .vblank19)
--vrecordinfo now looks like
-- F00000001000000000000000000000~~~~~~~~~~~~~~~~~~~
SET V vblank442 TEXT = NULL
SET V vblank442 = (SFIL('~',442))
SET V vrecordinfo = (.vrecordinfo + .vblank442)
--vrecordinfo now looks like the last value
-- but with an additional 442 tildes
SET V vrecordinfo = (.vrecordinfo + (CHAR(13)) + (CHAR(12)))
--Can't remember why I'm using CHAR(12) but
-- this is the end of line marker
INSERT INTO L1099EFile (recordtype,recordinfo) VALUES ('F',.vrecordinfo)
SET V vblank = (CHAR(32))
SET WIDTH 755
SET LINES 0
SET HEADINGS OFF
OUTPUT IRSTAX.txt
SET SELMARGIN 1
SELECT (SRPL(recordinfo,'~',.vblank,0))=750 FROM L1099EFile
OUTPUT SCREEN
SET HEADINGS ON
SET WIDTH 79
SET LINES 20
SET SELMARGIN 0
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Rob Vincent
Sent: Sunday, March 05, 2006 7:27 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Right Justified Padding
What is the correct method for creating a text variable with RJS padded
spaces??
The result should look like this (without the quotes):
"Some text goes here "
Sounds simple huh? -- I'm stumped!
I've tried:
RJS
SFIL
SRPL
SPUT
SMOVE
FORMAT
No matter what, the commands execute without error, but the result
ALWAYS truncates the trailing spaces.
Is this an issue with defining the var as text?
- Rob
