Karen,
My code is like this:
SET VAR vz0 TEXT = ' '
WRITE .vDataLine, .vz0=675 CONTINUE
It works!
Hartmut Braun
Am 04.01.2015 um 21:14 schrieb Karen Tellef:
I need to create a file with fixed field lengths. Rather than doing
SFIL/SPUT I did a "select" statement and it works great and is easy to
code, except...
I need to have 675 blank spaces at the end of each line and I can't
figure out how to do that using a "select" statement. Has anyone done
that, or do I need to use SFIL/SPUT. According to my notes, if I use
SFIL/SPUT I'll have to use a cursor and then do something like this (and
thanks to whoever originally posted this code and I saved it):
--Add CarriageReturn/LineFeed charaters to the line
Set var vDataLine = (SPUT(.vDataLine,.vCRLF,.vPastEnd))
--Make sure no trash data exists beyond CR/LF
Set var vDataLine = (SGET(.vDataLine,..vTotalLength,1))
--Write the line, telling RBASE not to add its own CRLF
WRITE .vDataLine CONTINUE
Karen
--- RBASE-L
================================================
TO POST A MESSAGE TO ALL MEMBERS:
Send a plain text email to [email protected]
(Don't use any of these words as your Subject:
INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH,
REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP)
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: INTRO
================================================
TO UNSUBSCRIBE:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: UNSUBSCRIBE
================================================
TO SEARCH ARCHIVES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: SEARCH-n
(where n is the number of days). In the message body,
place any
text to search for.
================================================
