.script
;
;=============================================================== 
.input pr2001, 17, 70
.placement 1, 1
.title ' Pay/Tax ', highlight
.line Line1, 70, pos(2,1), horizontal
.line Line2, 17, pos(2,35), vertical
.line Line3, 17, pos(2,70), vertical
.paint _

.field empl, a6, pos(1,1), prompt("Employee"), fpos(1,12)
.field name, a25, fpos(1,20)

.field payt, a1, pos(3,1), prompt("Pay type"), fpos(3,13), -
 help(PRPAYTYP), select(0,3,,"Salaried","Hourly")

.field payf, a1, pos(4,1), prompt("Pay period"), fpos(4,13), -
 help(PRPAYPER), -
 select(1,3,,"Weekly","Bi-weekly","Semi-monthly","Monthly","Quarterly",-
	     "H semi-annually","Annually")

.field clss, a2, pos(5,1), prompt("Job class"), fpos(5,13), -
 help(PRJOBCLS)

.field mrtl, a1, pos(6,1), prompt("Marital"), fpos(6,13), -
 help(PRMARITL), -
 select(1,3,,"Married","Single","Head of household")

.field eic, a1, pos(7,1), prompt("EIC status"), fpos(7,13), -
 help(PREICSTA), -
 select(1,3,,"None","1-qualifies single","2-qualifies married")

.field xfic, a1, pos(8,1), prompt("FICA exempt"), fpos(8,13), -
 help(PRSSEXMP), selwnd(1,3,noyes)

.field xfwt, a1, pos(9,1), prompt("FWT exempt"), fpos(9,13), -
 help(PRFWTEXM), selwnd(1,3,noyes)

.field dfwt, d2, pos(10,1), prompt("FWT deducts"), fpos(10,13), -
 help(PRFWTDED), format('ZX')

.field afwt, d4, pos(11,1), prompt("FWT addtl"), fpos(11,13), -
 help(PRFWTADL), format('ZZZX')

.field fuie, a1, pos(3,36), prompt("FUI exempt"), fpos(3,50), -
 help(PRFUIEXM), selwnd(1,3,noyes)

.field scde, d3, pos(4,36), prompt("State code"), fpos(4,50), -
 help(PRSWTCOD), format('ZZX'),  user('#Drill/Opt/S#'), -
 drill_method("PRTAXF_FIND"), change_method("PRTAXF_CHANGE"), -
 info("FIND(Lookup)")
.field scde_descr, a10, fpos(4,56)

.field xswt, a1, pos(5,36), prompt("SWT exempt"), fpos(5,50), -
 help(PRSWTEXM), selwnd(1,3,noyes)

.field dswt, d2, pos(6,36), prompt("SWT deducts"), fpos(6,50), -
 help(PRSWTDED), format('ZX')

.field aswt, d5.2, pos(7,36), prompt("SWT addtl"), fpos(7,50), -
 help(PRSWTADL), negative, format('ZZX.XX-')

.field wamt, d7.2, pos(8,36), prompt("SWT ded amt"), fpos(8,50), -
 help(PRSWTAMT), negative, format('ZZZZX.XX-')

.field mrts, a1, pos(9,36), prompt("SWT marital"), fpos(9,50), -
 help(PRSWTMAR), -
 select(1,3,,"Married","Single","Head of household")

.field suie, a1, pos(10,36), prompt("SUI exempt"), fpos(10,50), -
 help(PRSUIEXM), selwnd(1,3,noyes)

.field ccde, d3, pos(11,36), prompt("City code"), fpos(11,50), -
 help(PRCWTCOD), format('ZZX'),  user('#Drill/Opt/C#'), -
 drill_method("PRTAXF_FIND"), change_method("PRTAXF_CHANGE"), -
 info("FIND(Lookup)")
.field ccde_descr, a10, fpos(11,56)

.field xcwt, a1, pos(12,36), prompt("City exempt"), fpos(12,50), -
 help(PRCWTEXM), selwnd(1,3,noyes)

.field dcwt, d2, pos(13,36), prompt("City deducts"), fpos(13,50), -
 help(PRCWTDED), format('ZX')

.field acwt, d3, pos(14,36), prompt("City addtl"), fpos(14,50), -
 help(PRCWTADL), format('ZZX')

.field pens, a1, pos(15,36), prompt("Pension plan"), fpos(15,50), -
 help(PRPENSON), selwnd(1,3,noyes)

.field work, a4, pos(16,36), prompt("WK comp code"), fpos(16,50), -
 help(PREMPWCC)

.field tips, a1, pos(17,36), prompt("Tip eligible"), fpos(17,50), -
 help(PRTIPCRE), selwnd(1,3,noyes)

.structure rec1, <2>,empl,name,<156>,payt,payf,mrtl,eic,<36>,xfic,-
	xfwt,dfwt,<3>,scde,xswt,dswt,aswt,ccde,xcwt,dcwt,acwt,fuie,-
	suie,pens,<153>,clss,work,wamt,mrts,tips,<66>,afwt
.set set_chg, rec1, payt,payf,clss,mrtl,eic,xfic,xfwt,-
	dfwt,afwt,fuie,scde,xswt,dswt,aswt,wamt,mrts,suie,ccde,-
	xcwt,dcwt,acwt,pens,work,tips
.set set_show, rec1, empl,name,payt,payf,clss,mrtl,eic,xfic,xfwt,-
	dfwt,afwt,fuie,scde,xswt,dswt,aswt,wamt,mrts,suie,ccde,-
	xcwt,dcwt,acwt,pens,work,tips
.end
;
