Hi Rob.
Here is a snippet of code that I use to create electronic W2 info to send to
Fed.
set var ln = 'RW'
*( eliminate the dash in ssn, if exists )
Label again2
set var ipos = (sloc(.ssn,'-'))
if ipos > 0 then
set var lngth = (slen(.ssn))
set var nchar = (.lngth - .ipos)
set var ssn = (smove(.ssn,(.ipos+1),.nchar,.ssn,.ipos))
set var ssn = (sput(.ssn,' ',.lngth))
goto again2
endif
set var ln = (sput(.ln,.ssn,3))
set var ln = (sput(.ln,.fnm,12))
set var ln = (sput(.ln,.lnm,42))
set var ln = (sput(.ln,.addr,66))
set var ln = (sput(.ln,.addr,88))
set var ln = (sput(.ln,.ecity,110))
set var ln = (sput(.ln,.estate,132))
set var ln = (sput(.ln,.ezip,134))
-- set var ln = (sput(.ln,.ezip4,139))
set var ln = (smove(.ezip4,2,5,.ln,139))
set var igrs int = (.grs * 1000/10 + .005)
*( right justify & zero fill into an 11 digit text field )
set var ln = (sput(.ln,(format(.igrs,'[-]00000000000')),188))
set var ifed int = (.fitwh * 1000/10 + .005)
set var ln = (sput(.ln,(format(.ifed,'[-]00000000000')),199))
set var ficawag = .grs
if grs > .maxfica then
set var ficawag = .maxfica
endif
set var ifica int = (.ficawag * 1000/10 + .005)
set var ln = (sput(.ln,(format(.ifica,'[-]00000000000')),210))
set var isst int = (.sstwh * 1000/10 + .005)
set var ln = (sput(.ln,(format(.isst,'[-]00000000000')),221))
set var ln = (sput(.ln,(format(.igrs,'[-]00000000000')),232)) *( M/R
Wages)
set var imr int = (.mrtwh * 1000/10 + .005)
set var ln = (sput(.ln,(format(.imr,'[-]00000000000')),243))
set var ln0 = (sfil('0',110))
set var ln = (sput(.ln,.ln0,254))
set var ln = (smove(.ln0,1,22,.ln,364))
set var ln = (smove(.ln0,1,11,.ln,386))
set var ln = (smove(.ln0,1,22,.ln,408))
set var ln = (smove(.ln0,1,11,.ln,430))
set var ln = (smove(.ln0,1,1,.ln,486))
set var ln = (smove(.ln0,1,2,.ln,488))
set var ln = (sput(.ln,'0',512))
out w2report append
write .ln
out screen
Hope this helps,
Bernie Lis
----- Original Message -----
From: "Rob Vincent" <[EMAIL PROTECTED]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Monday, February 27, 2006 10:48 PM
Subject: [RBASE-L] - Fixed Position File Export
Is there a way to export data from Rbase in a fixed field position
format?
I remember in the 'ole days, RBDOS 4.5Plus had a Fixed format export in
Gateway
where you would place [S]tart and [E]nd markers for the specified
fields.
Never thought I would need this functionality again, BUT a customer
needs to supply
accounting information to a customer on a regular basis in this format.
Looks like they are planning on importing this into some COBOL program
based on the
sample format they provided.
Any recommendations on how I might be able to accomplish this would be
appreciated.
Thanks -- Rob
--- 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.
================================================
