.script
;===============================================================;
.input prw2fl, 21, 70
.placement 1, 1
.title " Create W-2 Electronic Submission File ", highlight
.paint _

.field wage, a1, pos(1,1), prompt("Wage type"), fpos(1,22), -
help("PRW2WAGE"), select(0,3,0, "Federal Taxable","Gross  ") 

.field w2typ, a1, pos(2,1), prompt("Type of W-2"), fpos(2,22), -
help("PRW2TYPE"), select(0,3,0, "Federal", "Local  ")

.field stxcod, d3, pos(3,1), prompt("State tax code"), fpos(3,22), -
user('#Drill/Req/S#'), drill_method("PRTAXF_FIND"), -
change_method("PRTAXF_CHANGE"), format("XXX"), help("PRW2STAT")

.field ctxcod, d3, pos(4,1), prompt("City tax code"), fpos(4,22), -
user('#Drill/Opt/C'), drill_method("PRTAXF_FIND"), -
change_method("PRTAXF_CHANGE"), format("XXX"), help("PRW2CITY")

.field frqtdt, d8, date, pos(5,1), prompt("QTD from check date"), -
fpos(5,22), required, default(010101), help("PRFRQTDT")

.field toqtdt, d8, date(today), pos(6,1), prompt("QTD to check date"), -
fpos(6,22), required, help("PRTOQTDT")

.field frytdt, d8, date, pos(7,1), prompt("YTD from check date"), -
fpos(7,22), required, default(010101), help("PRFRYTDT")

.field toytdt, d8, pos(8,1), date(today), prompt("YTD to check date"), -
fpos(8,22), required, help("PRTOYTDT")

.field fica, d8.2, pos(9,1), prompt("FICA limit"), required, fpos(9,22), -
format("$ZXX,XXX.XX")

.field pin, a8, pos(10,1), prompt("PIN"), fpos(10,22), -
required, help("PRW2PIN")

.field empltype, a1, pos(11,1), prompt("Employee type"), -
fpos(11,22), help("PRW2EMPLTYPE"), select(1,3,0,  -
 "R:all other   ", "M:military    ", "H:household   ", "X:railroad    ",  -
 "A:agriculture ", "F:federal     ", "Q:medicare fed")

.field emplkind, a1, pos(12,1), prompt("Kind of employer"), -
fpos(12,22), help("PRW2EMPLTYPE"), select(1,3,0,  -
 "N:None apply", "F:Federal Government",-
 "S:State/Local Governmental Employer",-
 "T:Tax Exempt Employer",-
 "Y:State/Local Tax Exempt Employer")

.field emplname, a50, pos(13,1), prompt("Employer name"), -
fpos(13,20), required, help("PRW2EMPLNAME")

.field emplstreet, a40, pos(14,1), prompt("Employer address"), -
fpos(14,20), required, help("PRW2EMPLSTREET")

.field emplcity, a25, pos(15,1), prompt("Employer city"), -
fpos(15,20), required, help("PRW2EMPLCITY")

.field emplstate, a2, pos(16,1), prompt("Employer state"), -
fpos(16,20), upper, required, help("PRW2EMPLSTATE")

.field emplzip, a9, pos(17,1), prompt("Employer zip"), -
fpos(17,20), required, help("PRW2EMPLZIP")

.field contact , a27, pos(18,1), prompt("Employer contact"), -
 fpos(18,20), required, help("PRW2EMPCONT")

.field phone, a15, pos(19,1), prompt("Employer phone"), -
fpos(19,20), required, help("PRW2EMPLPHON")

.field fax, a10, pos(20,1), prompt("Employer fax"), -
fpos(20,20), required, help("PRW2EMPLFAX")

.field email, a40, pos(21,1), prompt("Employer e-mail"), -
fpos(21,20), required, help("PRW2EMPLEMAIL")

.structure prw2fl, wage, w2typ, stxcod, ctxcod, frqtdt, toqtdt, frytdt,  -
 toytdt, fica, pin, empltype, emplkind, emplname, emplstreet, emplcity, emplstate,  -
 emplzip, contact, phone, fax, email
.set set1, prw2fl, wage, w2typ, stxcod, ctxcod, frqtdt, toqtdt, frytdt,  -
 toytdt, fica, pin, empltype, emplkind, emplname, emplstreet, emplcity, emplstate,  -
 emplzip, contact, phone, fax, email
.end
