BP_TAX000 SUBROUTINE TAX000 *FMS *=======================================================================* * COPYRIGHT 1990 (C) Fast A. C. S. * * * * SUBROUTINE: TAX000 * * AUTHOR : S. E. POLLOM * * WRITTEN : 1 APRIL 1988 * * PURPOSE : * * * *=======================================================================* * INCLUDE PWBP COMM * CROSS.FILE=CONTROL.FILE; STLC=1 100 PRINT CLR:; PICK='' CALL SRB500('???*TAXFORMS',1,PICK,CROSS.FILE,1) IF PICK='' THEN GO 9999 FORM.ID=PICK; CONTROL.ID=PICK:'*TAXFORMS' READ FORM.RCD FROM CONTROL.FILE,CONTROL.ID ELSE FORM.RCD='' TYPE=FORM.RCD<2> BEGIN CASE CASE TYPE=2 OLD.PROGRAM=PROGRAM; PROGRAM=FORM.ID CALL @FORM.ID CASE 1 OLD.PROGRAM=PROGRAM; PROGRAM=FORM.ID CALL STANDARD END CASE PROGRAM=OLD.PROGRAM GO 100 * 9999 RETURN ~~ BP_TAX050 SUBROUTINE TAX050 *FMS *=======================================================================* * COPYRIGHT 1990 (C) Fast A. C. S. * * * * SUBROUTINE: TAX050 * * AUTHOR : S. E. POLLOM * * WRITTEN : 09 NOV 1989 * * REVISION : 19 JAN 1990 (12:47:45) * * PURPOSE : * * * *=======================================================================* * INCLUDE PWBP COMM * OPEN '','AIF' TO AIF.FILE ELSE STOP 201,'AIF' OPEN '','1099' TO W2F.FILE ELSE STOP 201,'W2F' * YEAR=OCONV(DATE(),'D4Y')-1 READV FISCAL FROM SC.FILE,'FISCAL',1 ELSE FISCAL='' IF YEAR#USER THEN SUBFILE=',':YEAR ELSE SUBFILE='' IF USER#FISCAL AND FISCAL+1=YEAR THEN SUBFILE=''; * Fiscal year still not closed... END PROGRAM='TAX050S'; DATA.RCD='' CONTROL.ID='1099-':YEAR READ DATA.RCD FROM CONTROL.FILE,CONTROL.ID ELSE EXECUTE 'P' EXECUTE 'SSELECT AIF # "9999]"' 10 READNEXT AIF.ID THEN C=3000 15 SC.ID=C:'_':AIF.ID READ SC.RCD FROM SC.FILE,SC.ID ELSE SC.RCD='' L=DCOUNT(SC.RCD,AM) H=L/2 FOR X=1 TO H CODE=SC.RCD DESC=TRIM(FIELD(SC.RCD,'.',2)) READV NAME FROM AIF.FILE,AIF.ID,1 ELSE NAME=' ' DATA.RCD<1,-1>=AIF.ID:' ' DATA.RCD<2,-1>=NAME DATA.RCD<3,-1>=CODE:' ' DATA.RCD<4,-1>=SPACE((CODE[1,1]#'*')*2):DESC:' ' DATA.RCD<5,-1>=(CODE[1,1]#'*') NEXT X IF AIF.ID='0840.2' AND C=3000 THEN C=2000; GO 15 GO 10 END EXECUTE 'P' END TITLE='1099 File Build Control - ':YEAR 100 CALL SRB614(DATA.RCD,TITLE) MAXV=DCOUNT(DATA.RCD<1>,VM) DATA.RCD<8>='' FOR V=1 TO MAXV IF DATA.RCD<5,V> THEN DATA.RCD<8,-1>=TRIM(DATA.RCD<1,V>):'*':TRIM(DATA.RCD<3,V>) END NEXT V WRITE DATA.RCD ON CONTROL.FILE,CONTROL.ID * SYSERR='' PRINT @(0,24-GRAP(2)):GRAP(66)<1,2>:'Do you wish to clear and ': PRINT 'rebuild 1099 file ? : ':EOL:BEEP: CALL SRB666(RESPONSE,6,6,48,24-GRAP(2),'YES') IF OCONV(RESPONSE,'MCU')[1,1]#'Y' THEN GO 9999 * PRINT @(0,24-GRAP(2)):GRAP(66)<1,2>:EOL: ERROR='' OPEN '','FDR':SUBFILE TO FDR.FILE ELSE ERROR='FDR':SUBFILE OPEN '','VIF':SUBFILE TO VIF.FILE ELSE ERROR='VIF':SUBFILE IF ERROR#'' THEN SYSERR='NOT-CLOSED' CALL SRB325 GO 9999 END EXECUTE 'CLEAR-FILE DATA 1099' SELECT FDR.FILE 200 READNEXT FDR.ID THEN PRINT @(0,24-GRAP(2)):FDR.ID:EOL: READ FDR.RCD FROM FDR.FILE,FDR.ID ELSE GO 200 IF FDR.RCD<1>#'D' THEN GO 200 VIF.ID=FDR.RCD<3> READ VIF.RCD FROM VIF.FILE,VIF.ID ELSE VIF.RCD='' ACCOUNT=VIF.RCD<6>; BCODE=VIF.RCD<7> IF NOT(VIF.RCD<22>+0) THEN GO 200 MAXV=DCOUNT(FDR.RCD<6>,VM) FOR V=1 TO MAXV AMOUNT=FDR.RCD<6,V> AIF.ID=FDR.RCD<7,V>:'*':FDR.RCD<8,V> IF ACCOUNT='0840.2' AND BCODE='2C' THEN BLOCK=1 ELSE BLOCK=7 LOCATE(AIF.ID,DATA.RCD,8;POS) THEN W2F.ID=VIF.ID READ W2F.RCD FROM W2F.FILE,W2F.ID ELSE W2F.RCD='' IF W2F.RCD<1>='' THEN W2F.RCD<1>=VIF.RCD<1> W2F.RCD<2>=VIF.RCD<2>:' ':VIF.RCD<3> W2F.RCD<3>=VIF.RCD<9>:' ':VIF.RCD<10>[1,5] W2F.RCD<4>=VIF.RCD<21> W2F.RCD<6>=YEAR W2F.RCD<7>=BLOCK END W2F.RCD<5>=W2F.RCD<5>+AMOUNT WRITE W2F.RCD ON W2F.FILE,W2F.ID PRINT @(0,24-GRAP(2)):W2F.ID: END NEXT V GO 200 END * PRINT @(0,24-GRAP(2)):'The 1099 file has been built, you may ': PRINT 'print and edit your Proof List now...':EOL:; INPUT XXX,1: * * Exit * 9999 RETURN ~~ BP_TAX300 SUBROUTINE FILER(WRITE.RCD,FILE1,KEY,ERROR,FILE.STAT) *FMS *=======================================================================* * COPYRIGHT 1990 (C) Fast A. C. S. * * * * SUBROUTINE: FILER * * AUTHOR : S. E. POLLOM * * WRITTEN : 1 APRIL 1988 * * PURPOSE : * * * *=======================================================================* * INCLUDE PWBP COMM * AMOUNT=OCONV(WRITE.RCD<1>,'MD2') OUTPUT=WRITE.RCD<2> TITLE='1099 File Proof Listing Amounts > ':AMOUNT TITLE<7>=OUTPUT GOSUB 500 * INCLUDE PWBP SRI374C * GO 9999 * * Build the Execution String * 500 STRING='SORT 1099 WITH AMOUNT >= "':AMOUNT:'" BY COMPANY ' STRING=STRING:' A0 COMPANY YEAR TAXID TOTAL AMOUNT BLOCK ' * CALL SRB350(STRING,TITLE) * STRING=STRING:" ID-SUPP (":OUTPUT RETURN * * Exit Point * 9999 PRINTER CLOSE FILE.STAT=-1; RETURN ~~ BP_TAX668 SUBROUTINE PRB668(WRITE.RCD,WRITE.FILE,WRITE.ID,ERROR,FILE.STAT) *FMS *=======================================================================* * COPYRIGHT 1990 (C) Fast A. C. S. * * * * SUBROUTINE: PRB668 * * AUTHOR : S. E. POLLOM * * WRITTEN : 1 APRIL 1988 * * PURPOSE : * * * *=======================================================================* * INCLUDE PWBP COMM * * Unreserve printers so any of them can be used to print * PRINT.LINE='' FINISHED=0 SYSERR='PICK-PRINTER'; CALL SRB325 READV HOLDPOQ FROM SC.FILE,POQ,1 ELSE HOLDPOQ='' READV HOLDCLQ FROM SC.FILE,CLQ,1 ELSE HOLDCLQ='' IF HOLDPOQ#'' THEN DELETE SC.FILE,'POQ' END IF HOLDCLQ#'' THEN DELETE SC.FILE,'CLQ' END CALL SRB317 IF HOLDPOQ#'' THEN WRITEV HOLDPOQ ON SC.FILE,'POQ',1 END IF HOLDCLQ#'' THEN WRITEV HOLDCLQ ON SC.FILE,'CLQ',1 END * * Update defaults in PCM file * PCM.ID='TAX668_PCM' READ PCM.RCD FROM PCM.FILE,PCM.ID THEN FOR P=2 TO 6 PCM.RCD=WRITE.RCD

NEXT P WRITE PCM.RCD ON PCM.FILE,PCM.ID END LC=1 OPEN '','1099' TO W2F.FILE ELSE STOP 201,'W2F' * CALL SRB318(INIT) INCLUDE PWBP SRI374A PRINT INIT: INCLUDE PWBP SRI374B WRITE WRITE.RCD ON WRITE.FILE,WRITE.ID YEAR=WRITE.RCD<1> COMPANY.NAME=WRITE.RCD<2> COMPANY.ADDRESS=WRITE.RCD<3> ADDRESS.TWO=WRITE.RCD<4> COMPANY.CSZ=WRITE.RCD<5> COMPANY.FED.ID=WRITE.RCD<6> STATEID=WRITE.RCD<8> AMOUNT=OCONV(WRITE.RCD<7>,'MD2') FCOUNT=WRITE.RCD<10>+0 SIDEBYSIDE=WRITE.RCD<11>+0 SPACES=WRITE.RCD<13>+0 DOWNSET=WRITE.RCD<12>+0 GAP=WRITE.RCD<14>+0 ENDOFPAGE=FCOUNT * EXECUTE 'SSELECT 1099 WITH AMOUNT >= "':AMOUNT:'" BY NAME ' CNTR=0 * 100 READNEXT W2F.ID ELSE IF PRINT.LINE#'' THEN FINISHED=1 GOSUB 110 END INCLUDE PWBP SRI374B GO 9999 END READ W2F.RCD FROM W2F.FILE,W2F.ID ELSE GO 100 * STATUS=''; AMOUNT='' NAME=W2F.RCD<1> CALL SRB344(NAME,AM,30) CALL SRB344(NAME,AM,32) ADDRESS=W2F.RCD<2> CALL SRB344(ADDRESS,AM,30) CSZ=W2F.RCD<3> SSN=W2F.RCD<4> WAGES=W2F.RCD<5> BLOCK=W2F.RCD<7>+0 IF NOT(BLOCK) THEN BLOCK=7 WAGES=OCONV(WAGES,'MD2') AMOUNT=WAGES * * Begin Print * IF ENDOFPAGE=FCOUNT THEN FOR D=1 TO DOWNSET PRINT.LINE<-1>=' ' NEXT D END PRINT.LINE<-1>=COMPANY.NAME 'L#30':AMOUNT<1> 'R#16' PRINT.LINE<-1>=COMPANY.ADDRESS 'L#30' PRINT.LINE<-1>=ADDRESS.TWO 'L#30' PRINT.LINE<-1>=COMPANY.CSZ 'L#30':AMOUNT<2> 'R#16' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=SPACE(30):AMOUNT<3> 'R#16':AMOUNT<4> 'R#14' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=COMPANY.FED.ID 'L#15':' ':SSN 'L#14':AMOUNT<5> 'R#16':AMOUNT<6> 'R#14' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=NAME<1> 'L#30' PRINT.LINE<-1>=NAME<2> 'L#30' PRINT.LINE<-1>=NAME<3> 'L#30':AMOUNT<7> 'R#16':AMOUNT<8> 'R#14' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=ADDRESS<1> 'L#30' PRINT.LINE<-1>=ADDRESS<2> 'L#44':AMOUNT<10> 'R#16' PRINT.LINE<-1>=CSZ 'L#30' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=SPACE(4):W2F.ID 'L#26':AMOUNT<13> 'R#16':AMOUNT<14> 'R#14' PRINT.LINE<-1>=' ' 110 ENDOFPAGE=ENDOFPAGE-1 IF ENDOFPAGE>0 THEN FOR G=1 TO GAP PRINT.LINE<-1>=' ' NEXT G GO 100 END ELSE PRINT.LINE<-1>=FF END * * Stop and prompt * MAXX=DCOUNT(PRINT.LINE,AM) PRINT GRAP(66)<1,2>:@(-1) FOR X=6+DOWNSET TO 20; PRINT PRINT.LINE; NEXT X PRINT @(0,18): PRINT 'Press ENTER to print the 1099 Form' PRINT 'Press "S" to skip to next 1099' PRINT 'Press "Q" to quit' INPUT XXX,1:; XXX=OCONV(XXX,'MCU') IF XXX='' THEN INCLUDE PWBP SRI374A FOR X=1 TO MAXX IF PRINT.LINE=FF THEN PRINT FF: PRINT.LINE='' END ELSE PRINT SPACE(SPACES):PRINT.LINE END NEXT X CNTR=CNTR+1 LC=LC+1 ENDOFPAGE=ENDOFPAGE-1 IF ENDOFPAGE<1 THEN ENDOFPAGE=FCOUNT PRINT.LINE='' END INCLUDE PWBP SRI374B END IF XXX='Q' OR SEQ(XXX)=27 OR SEQ(XXX)=251 THEN GO 9999 IF XXX='S' THEN PRINT.LINE='' IF NOT(FINISHED) THEN GO 100 * * Exit * 9999 FILE.STAT=-1; RETURN ~~ BP_TAXPAYER.FMT SUBROUTINE TAXPAYER.FMT(IDATA) *ASM * INCLUDE PWBP COMM * IF IDATA MATCHES '0N' THEN OPEN '','RMV' TO RMV.FILE ELSE STOP 201,'RMV' OPEN '','AMF' TO AMF.FILE ELSE STOP 201,'AMF' READV TEST FROM RMV.FILE,IDATA,1 THEN ONFILE=2 ELSE ONFILE=1 PRINT @(0,23-GRAP(2)):'Vehicle Registration is ':'NOT ': PRINT 'on file':EOL: READV STATUS FROM AMF.FILE,IDATA,2 THEN IF STATUS='I' THEN PRINT @(0,23-GRAP(2)):'Taxpayer Status is INACTIVE!': PRINT BEEP:EOL: END END END * RETURN ~~ BP_W2F300 SUBROUTINE *PRB *=======================================================================* * COPYRIGHT 1990 (C) Fast A. C. S. * * * * SUBROUTINE: ASM300 * * AUTHOR : S. E. POLLOM * * WRITTEN : 1 APRIL 1988 * * PURPOSE : * * * *=======================================================================* * INCLUDE PWBP COMM * CALL SRB667('W2F300','',RESPONSE) IF RESPONSE#'Y' THEN GO 9999 OPEN '','W2F' TO W2F.FILE ELSE STOP 201,'W2F' * STRING='SSELECT W2F BY NAME' PRINT @(-1):GRAP(66)<1,2>:STRING EXECUTE STRING RETURNING ERROR IF ERROR=401 THEN GO 9999 PROGRAM='W2F100' PCM.ID='W2F100_PCM' READ PCM.RCD FROM PCM.FILE,PCM.ID ELSE PCM.RCD='' MAXA=DCOUNT(PCM.RCD,AM) 100 READNEXT W2F.ID THEN RECORD='' READ W2F.RCD FROM W2F.FILE,W2F.ID ELSE W2F.RCD='' FOR A=1 TO MAXA ATTR=FIELD(PCM.RCD,',',1) VALUE=FIELD(PCM.RCD,',',2) RECORD=W2F.RCD RECORD=OCONV(RECORD,FIELD(PCM.RCD,SPC,1)) NEXT A RECORD<1>=W2F.ID CALL SRB333(RECORD) RQM 2; GO 100 END PROGRAM='W2F300' * * Exit Point * 9999 FILE.STAT=-1; RETURN ~~ BP_W2F600 SUBROUTINE W2F600(TAXES,RHF.FILE,RHF.ID,ERROR,FILE.STAT) *FMS *=======================================================================* * COPYRIGHT 1994 (C) Fast A.C.S. * * * * SUBROUTINE: W2F600 * * AUTHOR : S. E. POLLOM * * WRITTEN : 12 Jan 1996 * * PURPOSE : * * * *=======================================================================* INCLUDE PWBP COMM * MAXFICA=TAXES<14> MAXMED=TAXES<15> COMBINE=TAXES<16> SHOWFRINGE=TAXES<17> PRINT CLR:'Clearing W2 File Standby...' EXECUTE 'CLEAR-FILE DATA W2F' * OPEN '','W2F' TO W2F.FILE ELSE STOP 201,'W2F' * READV FISCAL FROM SC.FILE,'FISCAL',1 ELSE STOP 202,'FISCAL' IF FISCAL#RHF.ID THEN SUBFILE=',':RHF.ID ELSE SUBFILE='' OPEN '','FDR':SUBFILE TO FDR.FILE ELSE STOP 201,'FDR' OPEN '','VIF':SUBFILE TO VIF.FILE ELSE STOP 201,'VIF' 1 OPEN '','EMP':SUBFILE TO EMP.FILE ELSE EXECUTE 'CREATE-FILE EMP 3 3'; GO 1 END MAXA=DCOUNT(TAXES,AM) * EXECUTE 'SELECT FDR':SUBFILE:' WITH TAX # "0"' 100 READNEXT FDR.ID THEN PRINT FDR.ID 'L#14':CHAR(13): TAX.ID=FIELD(FDR.ID,'_',1):'D_':FIELD(FDR.ID,'_',2) READ FDR.RCD FROM FDR.FILE,FDR.ID ELSE FDR.RCD='' READ TAX.RCD FROM FDR.FILE,TAX.ID ELSE TAX.RCD='' NET=FDR.RCD<4>; CALL SRB640(FDR.RCD<6>,GROSS) IF TAX.RCD<4>#(GROSS-NET) THEN SYSERR='W2_ERROR':AM:FDR.ID; CALL SRB325 END EDM.ID=FDR.RCD<3> CALL W2F601(TAX.RCD,EDM.ID,TAXES,DEFFERED,FRINGE) IF TAXES<6>='' THEN DEFFERED=0 IF NOT(SHOWFRINGE) THEN FRINGE='' GOSUB 200 GO 100 END * * Process Box13 information * This also refiles the W2 under the VIF/EMP id number * EXECUTE 'SELECT W2F' 105 READNEXT W2F.ID THEN READ W2F.RCD FROM W2F.FILE,W2F.ID THEN C=0 FOR A=6 TO 12 STEP 2 IF TAXES#'' THEN LOCATE(TAXES,W2F.RCD,25;XXX) THEN C=C+1 W2F.RCD<23,C>=TAXES C=C+1 W2F.RCD<23,C>=W2F.RCD<26,XXX,1> END END NEXT A WRITE W2F.RCD ON W2F.FILE,W2F.RCD<27> IF W2F.ID#W2F.RCD<27> THEN DELETE W2F.FILE,W2F.ID END END GO 105 END * GO 9999 * 200 VIF.ID=FDR.RCD<3> READV SSN FROM EMP.FILE,VIF.ID,6 ELSE SSN='' IF SSN='' THEN READV SSN FROM VIF.FILE,VIF.ID,21 ELSE SSN='' END IF SSN='' THEN SSN=VIF.ID SSN=OCONV(SSN,'MCN') READ W2F.RCD FROM W2F.FILE,SSN ELSE W2F.RCD='' IF W2F.RCD='' THEN FOR Z=6 TO 11; W2F.RCD=0; NEXT Z READ EMP.RCD FROM EMP.FILE,VIF.ID THEN W2F.RCD<1>=OCONV(EMP.RCD<6>,'MCN') W2F.RCD<2>=EMP.RCD<1> IF INDEX(W2F.RCD<2>,',',1) THEN W2F.RCD<2>=FIELD(EMP.RCD<1>,',',2):' ':FIELD(EMP.RCD<1>,',',1) END W2F.RCD<2>=TRIM(W2F.RCD<2>) W2F.RCD<3>=EMP.RCD<4,1> W2F.RCD<4>=EMP.RCD<4,2> W2F.RCD<5>=EMP.RCD<4,3>:' ':EMP.RCD<5> W2F.RCD<16>=TRIM(FIELD(EMP.RCD<4,3>,',',2)) W2F.RCD<19>=EMP.RCD<8> END ELSE READ VIF.RCD FROM VIF.FILE,VIF.ID ELSE VIF.RCD='' W2F.RCD<1>=OCONV(VIF.RCD<21>,'MCN') W2F.RCD<2>=VIF.RCD<1> W2F.RCD<3>=VIF.RCD<2> W2F.RCD<4>=VIF.RCD<3> W2F.RCD<5>=VIF.RCD<9>:' ':VIF.RCD<10> W2F.RCD<16>='IN' READV COUNTY FROM SC.FILE,'COUNTY',1 ELSE COUNTY='' W2F.RCD<19>=COUNTY END END CALL SRB640(FDR.RCD<6>,GROSS) W2F.RCD<6>=W2F.RCD<6>+GROSS-DEFFERED<1>+FRINGE<1> W2F.RCD<8>=W2F.RCD<8>+GROSS-DEFFERED<4>+FRINGE<4> W2F.RCD<10>=W2F.RCD<10>+GROSS-DEFFERED<5>+FRINGE<5> W2F.RCD<17>=W2F.RCD<17>+GROSS-DEFFERED<2>+FRINGE<2> W2F.RCD<20>=W2F.RCD<20>+GROSS-DEFFERED<3>+FRINGE<3> IF W2F.RCD<8>>MAXFICA THEN W2F.RCD<8>=MAXFICA IF W2F.RCD<10>>MAXMED THEN W2F.RCD<10>=MAXMED MAXV=DCOUNT(DEFFERED<10>,VM) FOR V=1 TO MAXV AIF.ID=DEFFERED<10,V> LOCATE(AIF.ID,W2F.RCD,25;XXX) THEN FOR A=1 TO 5 W2F.RCD<26,XXX,A>=W2F.RCD<26,XXX,A>+DEFFERED<11,V,A> NEXT A END ELSE W2F.RCD<25,-1>=AIF.ID VALUE=DCOUNT(W2F.RCD<25>,VM) FOR A=1 TO 5 W2F.RCD<26,VALUE,A>=W2F.RCD<26,VALUE,A>+DEFFERED<11,V,A> NEXT A END NEXT V * MAXV=DCOUNT(TAX.RCD<6>,VM) FOR V=1 TO MAXV AMOUNT=TAX.RCD<6,V> AIF.ID=TAX.RCD<7,V> FOR A=1 TO MAXA LOCATE(AIF.ID,TAXES,A;POS) THEN BEGIN CASE CASE A=1; W2F.RCD<7>=W2F.RCD<7>+AMOUNT CASE A=2; W2F.RCD<18>=W2F.RCD<18>+AMOUNT CASE A=3; W2F.RCD<21>=W2F.RCD<21>+AMOUNT CASE A=4; W2F.RCD<9>=W2F.RCD<9>+AMOUNT CASE A=5; W2F.RCD<11>=W2F.RCD<11>+AMOUNT END CASE A=MAXA END NEXT A NEXT V W2F.RCD<21>=W2F.RCD<21>+0 W2F.RCD<27>=VIF.ID WRITE W2F.RCD ON W2F.FILE,SSN * * Exit * 9999 FILE.STAT=-1; RETURN ~~ BP_W2F601 SUBROUTINE W2F601(TAX.RCD,EDM.ID,TAXES,DEFFERED,FRINGE) *FMS *=======================================================================* * COPYRIGHT 1994 (C) Fast A.C.S. * * * * SUBROUTINE: W2F601 * * AUTHOR : S. E. POLLOM * * WRITTEN : 12 Jan 1998 * * PURPOSE : * * * *=======================================================================* INCLUDE PWBP COMM * DEFFERED=0:AM:0:AM:0:AM:0:AM:0; TX='' FOR A=1 TO 5; TX=TAXES; NEXT A OPEN '','EDM' TO EDM.FILE ELSE GO 9999 MAXV=DCOUNT(TAX.RCD<6>,VM) FOR V=1 TO MAXV AMOUNT=TAX.RCD<6,V> AIF.ID=TAX.RCD<7,V> DEFFERED<10,-1>=AIF.ID LOCATE(AIF.ID,TX;POS) ELSE READ EDM.RCD FROM EDM.FILE,EDM.ID THEN LOCATE(AIF.ID,EDM.RCD,3;POS) THEN FLAGS=EDM.RCD<5,POS> FOR A=1 TO 5 IF FLAGS[A,1]='Y' THEN DEFFERED=DEFFERED+AMOUNT VALUE=DCOUNT(DEFFERED<10>,VM) DEFFERED<11,VALUE,A>=DEFFERED<11,VALUE,A>+AMOUNT END NEXT A END END END NEXT V * FRINGE='' IF TAX.RCD<30> THEN FLAGS=TAX.RCD<31> FOR A=1 TO 5 IF FLAGS[A,1]='Y' THEN FRINGE=TAX.RCD<30> END NEXT A END * * Exit * 9999 RETURN ~~ BP_W2F668 SUBROUTINE W2F668(WRITE.RCD,WRITE.FILE,WRITE.ID,ERROR,FILE.STAT) *FMS *=======================================================================* * COPYRIGHT 1990 (C) Fast A. C. S. * * * * SUBROUTINE: PRB668 * * AUTHOR : S. E. POLLOM * * WRITTEN : 1 APRIL 1988 * * PURPOSE : * * * *=======================================================================* * INCLUDE PWBP COMM * OPEN '','W2F' TO W2F.FILE ELSE STOP 201,'W2F' * * Unreserve printers so any of them can be used to print * PRINT.LINE='' SYSERR='PICK-PRINTER'; CALL SRB325 READV HOLDPOQ FROM SC.FILE,POQ,1 ELSE HOLDPOQ='' READV HOLDCLQ FROM SC.FILE,CLQ,1 ELSE HOLDCLQ='' IF HOLDPOQ#'' THEN DELETE SC.FILE,'POQ' END IF HOLDCLQ#'' THEN DELETE SC.FILE,'CLQ' END CALL SRB317 IF HOLDPOQ#'' THEN WRITEV HOLDPOQ ON SC.FILE,'POQ',1 END IF HOLDCLQ#'' THEN WRITEV HOLDCLQ ON SC.FILE,'CLQ',1 END * * Update defaults in PCM file * PCM.ID='W2F668_PCM' READ PCM.RCD FROM PCM.FILE,PCM.ID THEN FOR P=2 TO 7 PCM.RCD=WRITE.RCD

NEXT P WRITE PCM.RCD ON PCM.FILE,PCM.ID END CALL SRB318(INIT) INCLUDE PWBP SRI374A PRINT INIT: PRINT.LINE='' INCLUDE PWBP SRI374B WRITE WRITE.RCD ON WRITE.FILE,WRITE.ID YEAR=WRITE.RCD<1> COMPANY.NAME=WRITE.RCD<2> COMPANY.ADDRESS=WRITE.RCD<3> ADDRESS.TWO=WRITE.RCD<4> COMPANY.CSZ=WRITE.RCD<5> COMPANY.STATE.ID=WRITE.RCD<7> COMPANY.FED.ID=WRITE.RCD<6> CNTR=0 SIDEBYSIDE=WRITE.RCD<11> ENDOFPAGE=WRITE.RCD<10>+0 FCOUNT=0 TOTAL='' BREAK.AT=9999999 SPACES=WRITE.RCD<13>+0 DOWNSET=WRITE.RCD<12>+0 GAP=WRITE.RCD<14>+0 * EXECUTE 'SSELECT W2F BY NAME' * 100 READNEXT W2F.ID ELSE GOSUB 5000 INCLUDE PWBP SRI374A PRINT FF: INCLUDE PWBP SRI374B GO 9999 END READ W2F.RCD FROM W2F.FILE,W2F.ID ELSE GO 100 * STATUS=''; BOXES='' NAME=W2F.RCD<2> IF DCOUNT(NAME,SPC)=3 THEN FN=OCONV(NAME,'G0 2') LN=FIELD(NAME,SPC,3) NAME=FN 'L#18':' ':LN END ELSE FN=FIELD(NAME,SPC,1) LN=FIELD(NAME,SPC,2) NAME=FN 'L#18':' ':LN END ADDRESS=W2F.RCD<3> ADDRESS<2>=W2F.RCD<4> CSZ=W2F.RCD<5> SSN=OCONV(W2F.RCD<1>,'MCN') '###-##-####' STATE=W2F.RCD<16> WAGES=W2F.RCD<6> SWAGES=W2F.RCD<17> CWAGES=W2F.RCD<20> MWAGES=W2F.RCD<10> FICA.BASE=W2F.RCD<8> FEDERAL.TAX=W2F.RCD<7> MED.TAX=W2F.RCD<11> FICA.TAX=W2F.RCD<9> STATE.TAX=W2F.RCD<18> LOCAL.TAX=W2F.RCD<21> EIC=W2F.RCD<12> DEPCARE=W2F.RCD<15> NQPLANS=W2F.RCD<14> ALLTIPS=W2F.RCD<13> B12=W2F.RCD<23> B13=W2F.RCD<22> IF B13#'' THEN BEGIN CASE CASE B13=1; B13=SPACE(4):'XX' CASE B13=2; B13=SPACE(9):'XX' CASE B13=3; B13=SPACE(13):'XX' CASE 1; B13='' END CASE END B14=W2F.RCD<24> CITY.TAX=0 CITY.LOC=W2F.RCD<19> C=0 FOR Z=1 TO 4 C=C+1 BOXES=SPACE(5):B12<1,C>:OCONV(B12<1,C+1>,'MD2') 'R#12' C=C+1 NEXT Z TOTAL<1>=TOTAL<1>+FEDERAL.TAX * TOTAL<2>=TOTAL<2>+WAGES TOTAL<3>=TOTAL<3>+FICA.TAX TOTAL<4>=TOTAL<4>+FICA.BASE TOTAL<5>=TOTAL<5>+STATE.TAX TOTAL<6>=TOTAL<6>+LOCAL.TAX TOTAL<7>=TOTAL<7>+MED.TAX TOTAL<8>=TOTAL<8>+MWAGES TOTAL<9>=TOTAL<9>+SWAGES TOTAL<10>=TOTAL<10>+CWAGES * FEDERAL.TAX=OCONV(FEDERAL.TAX,'MD2') FICA.TAX=OCONV(FICA.TAX,'MD2') MED.TAX=OCONV(MED.TAX,'MD2') STATE.TAX=OCONV(STATE.TAX,'MD2') LOCAL.TAX=OCONV(LOCAL.TAX,'MD2') WAGES=OCONV(WAGES,'MD2') CWAGES=OCONV(CWAGES,'MD2') SWAGES=OCONV(SWAGES,'MD2') FICA.BASE=OCONV(FICA.BASE,'MD2') MWAGES=OCONV(MWAGES,'MD2') EIC=OCONV(EIC,'MD2') DEPCARE=OCONV(DEPCARE,'MD2') ALLTIPS=OCONV(ALLTIPS,'MD2') NQPLANS=OCONV(NQPLANS,'MD2') * * Begin Print * PRINT.LINE<-1>=SPACE(18):SSN PRINT.LINE<-1>=' ' PRINT.LINE<-1>=COMPANY.FED.ID 'L#38':WAGES 'R#18':FEDERAL.TAX 'R#18' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=COMPANY.NAME 'L#38':FICA.BASE 'R#18':FICA.TAX 'R#18' PRINT.LINE<-1>=COMPANY.ADDRESS 'L#38' PRINT.LINE<-1>=ADDRESS.TWO 'L#38':MWAGES 'R#18':MED.TAX 'R#18' PRINT.LINE<-1>=COMPANY.CSZ 'L#38' PRINT.LINE<-1>=SPACE(38):ALLTIPS 'R#18' PRINT.LINE<-1>=' ' PRINT.LINE<-1>='' 'L#38':EIC 'R#18':DEPCARE 'R#18' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=NAME 'L#38':NQPLANS 'R#18':BOXES<1> PRINT.LINE<-1>=' ' IF ADDRESS<2>='' THEN PRINT.LINE<-1>=ADDRESS<1> 'L#38':B13 'L#18':BOXES<2> PRINT.LINE<-1>=CSZ 'L#38' PRINT.LINE<-1>=' ' 'L#38':BOXES<3> END ELSE PRINT.LINE<-1>=ADDRESS<1> 'L#38':B13 'L#18':BOXES<2> PRINT.LINE<-1>=ADDRESS<2> 'L#38' PRINT.LINE<-1>=CSZ 'L#38':BOXES<3> END PRINT.LINE<-1>=' ' PRINT.LINE<-1>=SPACE(38):BOXES<4> PRINT.LINE<-1>=' ' PRINT.LINE<-1>=' ' PRINT.LINE<-1>=STATE 'L#4':COMPANY.STATE.ID 'L#16':SWAGES 'R#12':STATE.TAX 'R#12':CWAGES 'R#12':LOCAL.TAX 'R#11':' ':CITY.LOC 'L#7' FCOUNT=FCOUNT+1 IF FCOUNT<2 THEN FOR S=1 TO GAP PRINT.LINE<-1>=' ' NEXT S GO 100 END ELSE PRINT.LINE<-1>=FF FCOUNT=0 END * Stop and prompt 150 MAXX=DCOUNT(PRINT.LINE,AM) * PRINT GRAP(66)<1,2>:@(-1) FOR X=1 TO 22 PRINT PRINT.LINE NEXT X PRINT; PRINT 175 PRINT 'Press ENTER to print this information on the W2 Form' PRINT 'Press "S" key to skip' PRINT 'Press "ESC" to quit : ': INPUT RESPONSE,1 RESPONSE=OCONV(RESPONSE,'MCU') BEGIN CASE CASE RESPONSE='' INCLUDE PWBP SRI374A FOR S=1 TO DOWNSET; PRINT; NEXT S FOR X=1 TO MAXX IF SIDEBYSIDE THEN PRINT SPACE(SPACES):PRINT.LINE 'L#64':SPACE(4):PRINT.LINE 'L#64' END ELSE IF TRIM(PRINT.LINE)=FF THEN PRINT FF: END ELSE PRINT SPACE(SPACES):PRINT.LINE END END NEXT X CASE RESPONSE='Q' OR RESPONSE=CHAR(27) OR RESPONSE=CHAR(251); GO 9999 CASE RESPONSE='S'; NULL CASE 1; GO 175 END CASE INCLUDE PWBP SRI374B CNTR=CNTR+1 PRINT.LINE='' IF CNTR=BREAK.AT THEN GOSUB 5000 CNTR=0; TOTAL='' END GO 100 * 5000 INCLUDE PWBP SRI374A FOR S=1 TO DOWNSET; PRINT; NEXT S PRINT SPACE(SPACES):OCONV(TOTAL<2>,'MD2') 'R#38':OCONV(TOTAL<1>,'MD2') 'R#18' PRINT PRINT SPACE(SPACES): OCONV(TOTAL<4>,'MD2') 'R#38':OCONV(TOTAL<3>,'MD2') 'R#18' PRINT PRINT SPACE(SPACES):OCONV(TOTAL<8>,'MD2') 'R#38':OCONV(TOTAL<7>,'MD2') 'R#18' FOR X=1 TO 10; PRINT; NEXT X PRINT SPACE(40+SPACES):'TOTALS PAGE' FOR X=1 TO 3; PRINT; NEXT X PRINT SPACE(34+SPACES):OCONV(TOTAL<5>,'MD2') 'R#11':OCONV(TOTAL<6>,'MD2') 'R#26' PRINT IF NOT(ENDOFPAGE) THEN FOR S=1 TO GAP PRINT NEXT S ENDOFPAGE=1 END ELSE PRINT FF: ENDOFPAGE=0 END TOTAL='' INCLUDE PWBP SRI374B RETURN * 9999 INCLUDE PWBP SRI374B FILE.STAT=-1; RETURN ~~ control_1*W2BX13 Statutory Employee ~~ control_2*W2BX13 Retirement Plan ~~ control_3*W2BX13 Third-party Sick Pay ~~ control_A*BX13CODE UNCOLLECTED SOCIAL SECURITY ~~ control_B*BX13CODE UNCOLLECTED MEDICARE TAX ~~ control_BX13CODE AýBýCýDýEýFýGýHýJýKýLýMýNýPýQýRýSýTýV ~~ control_C*BX13CODE COST OF GROUP-TERM LIFE ~~ control_D*BX13CODE ELECTIVE 401(K) ~~ control_E*BX13CODE ELECTIVE 403(B) ~~ control_F*BX13CODE ELECTIVE 408(K)(6) ~~ control_G*BX13CODE ELECTIVE/NONELECTIVE 457(B) ~~ control_H*BX13CODE ELECTIVE 501(C)(18)(D) ~~ control_J*BX13CODE NONTAXABLE SICK PAY ~~ control_K*BX13CODE 20% EXCISE PARACHUTE PAYMENTS ~~ control_L*BX13CODE NONTAXABLE REIMBURSEMENTS ~~ control_M*BX13CODE UNCOLLECTED SOC SEC TAX ~~ control_N*BX13CODE UNCOLLECTED MEDICARE TAX ~~ control_P*BX13CODE EXCLUDABLE MOVING EXPENSE ~~ control_Q*BX13CODE MILITARY BH & COMBAT ZONE PAY ~~ control_R*BX13CODE EMPLOYER CONTRIBUTIONS TO MSA ~~ control_S*BX13CODE EMPLOYEE SALARY REDUCTION 408(p) ~~ control_T*BX13CODE ADOPTION BENEFITS ~~ control_V*BX13CODE INCOME FROM STOCK OPTIONS ~~ control_W2BX13 1ý2ý3 ~~ PCM_TAX050S_CTL 1 1 CONTROL 80 SYSTEM FILE MAINTENANCE 0 1 0 0 FILE E ~~ PCM_TAX050S_PCM ý19,4ý0N 0N'.'0NýMCUýMCUý1ýL#7ý_ý1ýýEntry Invalid!ýý0ý1ý1ýAIFLOOKUPýý1ýý ý22,10ýýMCUýMCUý1ýL#20ý_ý2ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý35,4ýýMCUýMCUý1ýL#4ý_ý3ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý22,10ýýýý1ýL#34ý_ý4ýýEntry Invalid!ýý0ý1ý1ýýý1ýý YESý22,9ý"Y" "N" "1" "0" "YES" "NO"ýMCU (YN)ý(YN)ý1ýL#3ý_ý5ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ~~ PCM_TAX050S_SCR 1ý2ý3ý4ý7ý5ý8ý6 Fund#ýFund NameýCodeýDescriptionýInc? ~~ PCM_TAX100_CTL 1 1 1099ýVIFýCONTROL 80 Modify 1099 File Information 1 1 0 0 E ~~ PCM_TAX100_PCM ý21,3ýýMCUýMCUý1ýL#12ý_ýýT;1 ;2;1;1ýEntry Invalid!ýý16ý1ý1ýVIFLOOKUPýý1ýýýýý2 \T;1;2;21ý53,3ýýMCUýMCUý0ýL#19ý_ý4ýýEntry Invalid!ýý0ý1ý1ýýý1ýPrints in block [d]ý \T;1;2;1ý21,4ýýMCUýMCUý1ýL#51ý_ý1ýýEntry Invalid!ýý0ý1ý1ýýý1ýý \T;1;2;2ý21,5ýýMCUýMCUý1ýL#51ý_ý2ýýEntry Invalid!ýý0ý1ý1ýýý1ýý \T;1;2;9ý21,6ýýMCUýMCUý1ýL#51ý_ý3ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý21,8ýýMD2ýMD2ý0ýL#19ý_ý5ýýEntry Invalid!ýý0ý1ý1ýýý1ýý 7ý21,9ý1N 2NýMCNýMCNý1ýL#51ý_ý7ýT;7 *TAX100;3;1;1ýEntry Invalid!ýý3ý1ý1ýýý1ýý ~~ PCM_TAX100_SCR 1ý2ý3ý4ý5ý6ý7 00 - Vendor ID# :ý01 -ý02 - Vendor Name:ý03 - Address One:ý04 - City,ST Zip:ý05 - Total Paid :ý06 - Print Block: ~~ PCM_TAX300_CTL 1 1 CONTROL 80 Print 1099 File Proof Report 1 1 0 0 E ~~ PCM_TAX300_PCM 600.00ý28,3ýýMD2ýMD2ý1ýL#14ý_ý1ýýEntry Invalid!ýý0ý1ý1ýýý1ýý Sý28,5ý"S" "P" "A"ýMCUýMCUý1ýL#14ý_ý2ýT;2 *OUTPUT;1;1;1ýEnter "S"Creen, "P"Rinter, Or "A"Ux Printerýý0ý1ý1ýýýýS = View on SCREEN / P = Send to PRINTER ~~ PCM_TAX300_SCR 1ý2 00 - Cutoff Amount :ý01 - Output is for : ~~ PCM_TAX668_CTL 1 1 CONTROL 80 Print the 1099 Forms 1 1*TAX 0 0 E ~~ PCM_TAX668_PCM ý33,3ý4NýMCNýMCNý1ýL#10ý_ý1ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý2 THE NAME OF YOUR TOWNSHIP/COMPANYý33,5ýýMCUýMCUý1ýL#34ý_ý2ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý3 THE NAME OF THE TRUSTEEý33,6ýýMCUýMCUý0ýL#34ý_ý3ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý4 THE ADDRESSý33,7ýýMCUýMCUý0ýL#34ý_ý4ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý5 INDIANAPOLIS, IN 46241ý33,8ýýMCUýMCUý1ýL#34ý_ý5ýýEntry Invalid!ýý0ý1ý1ýýý1ýý 35-00000000ý33,9ýýMCUýMCUý1ýL#19ý_ý6ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý33,10ýýMCUýMCUý0ýL#19ý_ý8ýýEntry Invalid!ýý0ý1ý1ýýý1ýý 600.00ý33,12ýýMD2ýMD2ý1ýL#19ý_ý7ýýEntry Invalid!ýý0ý1ý1ýýý1ýý 2ý33,14ýýMCUýMCUý0ýL#5ý_ý10ýýEntry Invalid!ýý0ý1ý1ýýý1ýý NOý33,15ýýMCU (YN)ý(YN)ý0ýL#5ý_ý11ýýEntry Invalid!ýý0ý1ý1ýýý1ýEnter YES if you are using continous feed side-by-side W2 Formsý 1ý33,16ý1NýMCNýMCNý0ýL#5ý_ý12ýýEntry Invalid!ýý0ý1ý1ýýý1ýAdjust the gap printed at the top of the form (1=1/6")ý 3ý33,17ý1N 2NýMCNýMCNý1ýL#5ý_ý13ýýEntry Invalid!ýý0ý1ý1ýýý1ýAdjust the gap printed at the left of the form (1=1/6")ý 10ý33,18ýýMCUýMCUý0ýL#5ý_ý14ýýEntry Invalid!ýý0ý1ý1ýýý1ýEnter the gap in lines between forms on the same page.ý ~~ PCM_TAX668_SCR 1ý2ý3ý4ý5ý6ý7ý8ý9ý10ý11ý12ý13 00 - Fiscal Year to Process :ý01 - Employer Name :ý02 - Employer Name/Address :ý03 - Employer Address :ý04 - City, STate & Zip Code :ý05 - Federal ID Number :ý06 - State ID Number :ý07 - Cutoff Amount :ý08 - Number of Forms / Page :ý09 - Side by Side Duplicates:ý10 - Top Margin Adjustment :ý11 - Left Margin Adjustment :ý12 - Gap Between Forms : ~~ PCM_W2F100_CTL 1 1 W2FýVIFýCONTROL 80 Modify W2 File Proof Sheets 1 1 0 0 E ~~ PCM_W2F100_PCM \GETý18,3ý{VENDOR.FMT}ýMCUýMCUý1ýL#12ý_ýýT;1 ;2;1;1ýEntry Invalid!ýý16ý1ý1ýVIFLOOKUPýý1ýý \T;1;2;21ý34,3ýýMCNýMCNý1ý###-##-#######ý_ý1ýýEntry Invalid!ýý0ý1ý1ýýý1ýPrints in block [d]ý \T;1;2;1ý18,4ýýMCUýMCUý1ýL#30ý_ý2ýýEntry Invalid!ýý0ý1ý1ýýý1ýý \T;1;2;2ý18,5ýýMCUýMCUý1ýL#30ý_ý3ýýEntry Invalid!ýý0ý1ý1ýýý1ýý \T;1;2;3ý18,6ýýMCUýMCUý0ýL#30ý_ý4ýýEntry Invalid!ýý0ý1ý1ýýý1ýý \T;1;2;9ý18,7ýýMCUýMCUý1ýL#30ý_ý5ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý5,10ýýMD2ýMD2ý0ýR#16ý_ý6ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý8 ý28,10ýýMD2ýMD2ý0ýR#14ý_ý7ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý9 \R;7;;;MD2ý5,12ýýMD2ýMD2ý0ýR#16ý_ý8ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý10 ý28,12ýýMD2ýMD2ý0ýR#14ý_ý9ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý11 \R;7;;;MD2ý5,14ýýMD2ýMD2ý0ýR#16ý_ý10ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý12 ý28,14ýýMD2ýMD2ý0ýR#14ý_ý11ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý13 ý5,16ýýMD2ýMD2ý0ýR#16ý_ý12ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý14 ý28,16ýýMD2ýMD2ý0ýR#14ý_ý13ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý15 ý5,18ýýMD2ýMD2ý0ýR#16ý_ý14ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý16 ý28,18ýýMD2ýMD2ý0ýR#14ý_ý15ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý17 INý5,21ýýMCA MCUýMCUý0ýL#2ý_ý16ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý18 \R;7;;;MD2ý11,21ýýMD2ýMD2ý0ýR#11ý_ý17ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý19 ý26,21ýýMD2ýMD2ý0ýR#7ý_ý18ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý20 ý37,21ýýMD2ýMD2ý0ýR#11ý_ý20ýýEntry Invalid!ýý0ý1ý1ýýý1ýPrints in box [19]ýýýý21 ý52,21ýýMD2ýMD2ý0ýR#8ý_ý21ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý22 ý64,21ýýMCUýMCUý0ýL#10ý_ý19ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý ý52,3ýýMCUýMCUý0ýL#22ý_ý22ýT;23 *W2BX13;3;1;1ýEntry Invalid!ýý3ý1ý1ýýý1ýýýýý ý55,6ýýMCUýMCUý0ýR#2ý_ý23,1ýT;24 *BX13CODE;3;1;1ýEntry Invalid!ýý5ý1ý1ýýý1ýýýýý25 ý60,6ýýMD2ýMD2ý0ýR#14ý_ý23,2ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý26 ý55,7ýýMCUýMCUý0ýR#2ý_ý23,3ýT;26 *BX13CODE;3;1;1ýEntry Invalid!ýý5ý1ý1ýýý1ýýýýý27 ý60,7ýýMD2ýMD2ý0ýR#14ý_ý23,4ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý28 ý55,8ýýMCUýMCUý0ýR#2ý_ý23,5ýT;28 *BX13CODE;3;1;1ýEntry Invalid!ýý5ý1ý1ýýý1ýýýýý29 ý60,8ýýMD2ýMD2ý0ýR#14ý_ý23,6ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý30 ý55,9ýýMCUýMCUý0ýR#2ý_ý23,7ýT;30 *BX13CODE;3;1;1ýEntry Invalid!ýý5ý1ý1ýýý1ýýýýý31 ý60,9ýýMD2ýMD2ý0ýR#14ý_ý23,8ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý52,12ýýMCUýMCUý0ýL#22ý_ý24,1ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý33 ý52,13ýýMCUýMCUý0ýL#22ý_ý24,2ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý34 ý52,14ýýMCUýMCUý0ýL#22ý_ý24,3ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý35 ý52,15ýýMCUýMCUý0ýL#22ý_ý24,4ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý36 ý52,16ýýMCUýMCUý0ýL#22ý_ý24,5ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ~~ PCM_W2F100_SCR 14ý1ý2ý23ý3ý4ý24ý13ý5ý6ý7ý8ý15ý9ý10ý32ý33ý11ý12ý34ý35ý13ý14ý36ý15ý16ý17ý18ý19ý20ý21ý22 01ý22ý03 Address One:ý04 Address Two:ý05 City,ST Zip:ýO bý$ýD cý----Wages & Tips || ---Federal Tax E dý$ý08ý|| 09ý10ý|| 11ýAdvanced EIC Pay || Allocated Tips 34ý12ý|| 13ý35ý14ý|| 15ý16ý17ý02 Full Name :ýC aýýýýýýýý06ý|| 07ý31ý--Medicare Wages || ---Medicre Tax 32ý33 ~~ PCM_W2F600_CTL 1 1 SCýAIFýCONTROL 80 Build the W2 File from Financial Data 1 1 0 0 E ~~ PCM_W2F600_PCM \D;;;;D4Y;-;366ý24,3ý4NýMCNýMCNý1ýL#9ý_ýýýEntry Invalid!ýý0ý1ý1ýýý1ýEnter the year to be processed (you do not have to be logged into that year)ý 9999.xý18,6ý'9999.'0Nýýý0ýL#47ý_ý1ýT;2 ;2;1;1ýEntry Invalid!ýý8ý1ý1ýAIFLOOKUPýý1ýEnter the 9999 fund account number that corresponds to Federal Tax Deductionsý 9999.xý18,7ý'9999.'0Nýýý0ýL#47ý_ý2ýT;3 ;2;1;1ýEntry Invalid!ýý8ý1ý1ýAIFLOOKUPýý1ýEnter the 9999 fund account number that corresponds to State Tax Deductionsý 9999.xý18,8ý'9999.'0Nýýý0ýL#47ý_ý3ýT;4 ;2;1;1ýEntry Invalid!ýý8ý1ý1ýAIFLOOKUPýý1ýEnter the 9999 fund account number that corresponds to County Tax Deductionsý 9999.xý18,9ý'9999.'0Nýýý0ýL#47ý_ý4ýT;5 ;2;1;1ýEntry Invalid!ýý8ý1ý1ýAIFLOOKUPýý1ýEnter the 9999 fund account number that corresponds to FICA Tax Deductionsý 9999.xý18,10ý'9999.'0Nýýý0ýL#47ý_ý5ýT;6 ;2;1;1ýEntry Invalid!ýý8ý1ý1ýAIFLOOKUPýý1ýEnter the 9999 fund account number that corresponds to Medicare Taxý ý14,13ýýMCUýMCUý0ýL#43ý_ý6ýT;7 ;2;1;1ýEntry Invalid!ýý8ý1ý1ýAIFLOOKUPýý1ýBox 12 a through d are for special pre-tax deductionsýýýý8 ý61,13ýýMCUýMCUý0ýL#4ý_ý7ýT;8 *BX13CODE;3;1;1ýEntry Invalid!ýý5ý1ý1ýýý1ýBox 12 a through d are for special pre-tax deductionsý ý14,14ýýMCUýMCUý0ýL#43ý_ý8ýT;9 ;2;1;1ýEntry Invalid!ýý8ý1ý1ýAIFLOOKUPý0ý1ýBox 12 a through d are for special pre-tax deductionsýýýý10 ý61,14ýýMCUýMCUý0ýL#4ý_ý9ýT;10 *BX13CODE;3;1;1ýEntry Invalid!ýý5ý1ý1ýýý1ýBox 12 a through d are for special pre-tax deductionsý ý14,15ýýMCUýMCUý0ýL#43ý_ý10ýT;11 ;2;1;1ýEntry Invalid!ýý8ý1ý1ýAIFLOOKUPýý1ýBox 12 a through d are for special pre-tax deductionsýýýý12 ý61,15ýýMCUýMCUý0ýL#4ý_ý11ýT;12 *BX13CODE;3;1;1ýEntry Invalid!ýý5ý1ý1ýýý1ýBox 12 a through d are for special pre-tax deductionsý ý14,16ýýMCUýMCUý0ýL#43ý_ý12ýT;13 ;2;1;1ýEntry Invalid!ýý8ý1ý1ýAIFLOOKUPý0ý1ýBox 12 a through d are for special pre-tax deductionsýýýý14 ý61,16ýýMCUýMCUý0ýL#4ý_ý13ýT;14 *BX13CODE;3;1;1ýEntry Invalid!ýý5ý1ý1ýýý1ýBox 12 a through d are for special pre-tax deductionsý 80400.00ý24,19ýýMD2ýMD2ý1ýR#10ý_ý14ýýEntry Invalid!ýý0ý1ý1ýýý1ýMaximum allowable amount that is taxed for FICA (refer to Circular E)ýýýý16 999999.00ý47,19ýýMD2ýMD2ý1ýR#10ý_ý15ýýEntry Invalid!ýý0ý1ý1ýýý1ýMaximum allowable amount that is taxed for Medicare (refer to Circular E)ý YESý47,20ýýMCU (YN)ý(YN)ý1ýL#10ý_ý16ýýEntry Invalid!ýý0ý1ý1ýýý1ýý YESý47,21ýýMCU (YN)ý(YN)ý1ýL#10ý_ý17ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ~~ PCM_W2F600_SCR 1ý2ý3ý4ý5ý6ý13ý7ý8ý9ý10ý11ý12ý13ý14ý15ý16ý17ý18 00 - Fiscal Year :ý01 Federal :ý02 State :ý03 County :ý04 FICA :ý05 Medicare:ý07ý08 Fund#ý09ý10 Fund#ý11ý12 Fund#ý13ý14 Social Securityý15 Medicareý16 Combine Same Social Nbrs into one W2 ?ý17 Include Fringe Amounts if Applicable ?ý ~~ PCM_W2F668_CTL 1 1 CONTROL 80 Print W2 Forms 1 1*W2F 0 0 E ~~ PCM_W2F668_PCM ý33,3ý4NýMCNýMCNý1ýL#10ý_ý1ýýEntry Invalid!ýý0ý1ý1ýýý1ýýýýý2 ý33,5ýýMCUýMCUý1ýL#34ý_ý2ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý33,6ýýMCUýMCUý1ýL#34ý_ý3ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý33,7ýýMCUýMCUý0ýL#34ý_ý4ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý33,8ýýMCUýMCUý1ýL#34ý_ý5ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý33,10ýýMCUýMCUý1ýL#17ý_ý6ýýEntry Invalid!ýý0ý1ý1ýýý1ýý ý33,11ýýMCUýMCUý0ýL#17ý_ý7ýýEntry Invalid!ýý0ý1ý1ýýý1ýý 2ý33,13ýýMCUýMCUý0ýL#5ý_ý10ýýEntry Invalid!ýý0ý1ý1ýýý1ýý NOý33,14ýýMCU (YN)ý(YN)ý0ýL#5ý_ý11ýýEntry Invalid!ýý0ý1ý1ýýý1ýEnter YES if you are using continous feed side-by-side W2 Formsý 0ý33,15ý1NýMCNýMCNý0ýL#5ý_ý12ýýEntry Invalid!ýý0ý1ý1ýýý1ýAdjust the gap printed at the top of the form (1=1/6")ý 3ý33,16ý1N 2NýMCNýMCNý1ýL#5ý_ý13ýýEntry Invalid!ýý0ý1ý1ýýý1ýAdjust the gap printed at the left of the form (1=1/6")ý 13ý33,17ýýMCUýMCUý0ýL#5ý_ý14ýýEntry Invalid!ýý0ý1ý1ýýý1ýEnter the gap in lines between forms on the same page.ý ~~ PCM_W2F668_SCR 1ý2ý3ý4ý5ý6ý7ý8ý9ý10ý11ý12 00 - Fiscal Year to Process :ý01 - Employer Name :ý02 - Employer Name/Address :ý03 - Employer Address :ý04 - City, STate & Zip Code :ý05 - Federal ID Number :ý06 - State ID Number :ý07 - Number of Forms / Page :ý08 - Side by Side Duplicates:ý09 - Top Margin Adjustment :ý10 - Left Margin Adjustment :ý11 - Gap Between Forms : ~~ SCF_TAX1000 SUBROUTINE XXXX(SCF.ID,BSCREEN,CSCREEN,PC.MATRIX,FLAG) * (C) Fast-A.C.S. INCLUDE PWBP COMM MO=MASK; MC=UNMASK; VO=DARK; VC=BRITE; PWINDOW=GRAP(66)<1,7> CSCREEN=GRAP(66)<1,9>; FLAG='1,1,74,12,3,0' CALL WINDOW(FLAG); BSCREEN=PWINDOW BSCREEN=BSCREEN:@(3,9):VO:'06':VC:@(6,9):VO:'-':VC:@(8,9):VO:'Print':VC:@(14,9):VO:'Block:':VC;BSCREEN=BSCREEN:@(3,8):VO:'05':VC:@(6,8):VO:'-':VC:@(8,8):VO:'Total':VC:@(14,8):VO:'Paid':VC:@(19,8):VO:':':VC;BSCREEN=BSCREEN:@(3,6):VO:'04':VC:@(6,6):VO:'-':VC:@(8,6):VO:'City,ST':VC:@(16,6):VO:'Zip:':VC;BSCREEN=BSCREEN:@(3,5):VO:'03':VC:@(6,5):VO:'-':VC:@(8,5):VO:'Address':VC:@(16,5):VO:'One:':VC;BSCREEN=BSCREEN:@(3,4):VO:'02':VC:@(6,4):VO:'-':VC:@(8,4):VO:'Vendor':VC:@(15,4):VO:'Name:':VC;BSCREEN=BSCREEN:@(3,3):VO:'00':VC:@(6,3):VO:'-':VC:@(8,3):VO:'Vendor':VC:@(15,3):VO:'ID#':VC:@(19,3):VO:':':VC:@(48,3):VO:'01':VC:@(51,3):VO:'-':VC;BSCREEN=BSCREEN:@(53,2):VO:'Vendor':VC:@(60,2):VO:'Tax':VC:@(64,2):VO:'ID#':VC CSCREEN=CSCREEN:@(21,9):MO:STR('_',51):MC;CSCREEN=CSCREEN:@(21,8):MO:STR('_',19):MC;CSCREEN=CSCREEN:@(21,6):MO:STR('_',51):MC;CSCREEN=CSCREEN:@(21,5):MO:STR('_',51):MC;CSCREEN=CSCREEN:@(21,4):MO:STR('_',51):MC;CSCREEN=CSCREEN:@(21,3):MO:STR('_',12):MC:@(53,3):MO:STR('_',19):MC RETURN ~~ SCF_TAX3000 SUBROUTINE XXXX(SCF.ID,BSCREEN,CSCREEN,PC.MATRIX,FLAG) INCLUDE PWBP COMM MO=MASK; MC=UNMASK; VO=DARK; VC=BRITE; PWINDOW=GRAP(66)<1,7> CSCREEN=GRAP(66)<1,9>; FLAG='1,1,45,8,3,0' CALL WINDOW(FLAG); BSCREEN=PWINDOW BSCREEN=BSCREEN:@(7,5):VO:'01':VC:@(10,5):VO:'-':VC:@(12,5):VO:'Output':VC:@(19,5):VO:'is':VC:@(22,5):VO:'for':VC:@(26,5):VO:':':VC;BSCREEN=BSCREEN:@(7,3):VO:'00':VC:@(10,3):VO:'-':VC:@(12,3):VO:'Cutoff':VC:@(19,3):VO:'Amount':VC:@(26,3):VO:':':VC CSCREEN=CSCREEN:@(28,5):MO:STR('_',14):MC;CSCREEN=CSCREEN:@(28,3):MO:STR('_',14):MC RETURN ~~ SCF_TAX6680 SUBROUTINE XXXX(SCF.ID,BSCREEN,CSCREEN,PC.MATRIX,FLAG) * (C) Fast-A.C.S. INCLUDE PWBP COMM MO=MASK; MC=UNMASK; VO=DARK; VC=BRITE; PWINDOW=GRAP(66)<1,7> CSCREEN=GRAP(66)<1,9>; FLAG='1,1,69,21,3,0' CALL WINDOW(FLAG); BSCREEN=PWINDOW BSCREEN=BSCREEN:@(3,18):VO:'12':VC:@(6,18):VO:'-':VC:@(8,18):VO:'Gap':VC:@(12,18):VO:'Between':VC:@(20,18):VO:'Forms':VC:@(31,18):VO:':':VC;BSCREEN=BSCREEN:@(3,17):VO:'11':VC:@(6,17):VO:'-':VC:@(8,17):VO:'Left':VC:@(13,17):VO:'Margin':VC:@(20,17):VO:'Adjustment':VC:@(31,17):VO:':':VC;BSCREEN=BSCREEN:@(3,16):VO:'10':VC:@(6,16):VO:'-':VC:@(8,16):VO:'Top':VC:@(12,16):VO:'Margin':VC:@(19,16):VO:'Adjustment':VC:@(31,16):VO:':':VC;BSCREEN=BSCREEN:@(3,15):VO:'09':VC:@(6,15):VO:'-':VC:@(8,15):VO:'Side':VC:@(13,15):VO:'by':VC:@(16,15):VO:'Side':VC:@(21,15):VO:'Duplicates:':VC;BSCREEN=BSCREEN:@(3,14):VO:'08':VC:@(6,14):VO:'-':VC:@(8,14):VO:'Number':VC:@(15,14):VO:'of':VC:@(18,14):VO:'Forms':VC:@(24,14):VO:'/':VC:@(26,14):VO:'Page':VC:@(31,14):VO:':':VC;BSCREEN=BSCREEN:@(3,12):VO:'07':VC:@(6,12):VO:'-':VC:@(8,12):VO:'Cutoff':VC:@(15,12):VO:'Amount':VC:@(31,12):VO:':':VC;BSCREEN=BSCREEN:@(3,10):VO:'06':VC:@(6,10):VO:'-':VC:@(8,10):VO:'State':VC:@(14,10):VO:'ID':VC:@(17,10):VO:'Number':VC:@(31,10):VO:':':VC;BSCREEN=BSCREEN:@(3,9):VO:'05':VC:@(6,9):VO:'-':VC:@(8,9):VO:'Federal':VC:@(16,9):VO:'ID':VC:@(19,9):VO:'Number':VC:@(31,9):VO:':':VC;BSCREEN=BSCREEN:@(3,8):VO:'04':VC:@(6,8):VO:'-':VC:@(8,8):VO:'City,':VC:@(14,8):VO:'STate':VC:@(20,8):VO:'&':VC:@(22,8):VO:'Zip':VC:@(26,8):VO:'Code':VC:@(31,8):VO:':':VC;BSCREEN=BSCREEN:@(3,7):VO:'03':VC:@(6,7):VO:'-':VC:@(8,7):VO:'Employer':VC:@(17,7):VO:'Address':VC:@(31,7):VO:':':VC;BSCREEN=BSCREEN:@(3,6):VO:'02':VC:@(6,6):VO:'-':VC:@(8,6):VO:'Employer':VC:@(17,6):VO:'Name/Address':VC:@(31,6):VO:':':VC;BSCREEN=BSCREEN:@(3,5):VO:'01':VC:@(6,5):VO:'-':VC:@(8,5):VO:'Employer':VC:@(17,5):VO:'Name':VC:@(31,5):VO:':':VC;BSCREEN=BSCREEN:@(3,3):VO:'00':VC:@(6,3):VO:'-':VC:@(8,3):VO:'Fiscal':VC:@(15,3):VO:'Year':VC:@(20,3):VO:'to':VC:@(23,3):VO:'Process':VC:@(31,3):VO:':':VC CSCREEN=CSCREEN:@(33,18):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(33,17):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(33,16):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(33,15):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(33,14):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(33,12):MO:STR('_',19):MC;CSCREEN=CSCREEN:@(33,10):MO:STR('_',19):MC;CSCREEN=CSCREEN:@(33,9):MO:STR('_',19):MC;CSCREEN=CSCREEN:@(33,8):MO:STR('_',34):MC;CSCREEN=CSCREEN:@(33,7):MO:STR('_',34):MC;CSCREEN=CSCREEN:@(33,6):MO:STR('_',34):MC;CSCREEN=CSCREEN:@(33,5):MO:STR('_',34):MC;CSCREEN=CSCREEN:@(33,3):MO:STR('_',10):MC RETURN ~~ SCF_W2F1000 SUBROUTINE XXXX(SCF.ID,BSCREEN,CSCREEN,PC.MATRIX,FLAG) * (C) Fast-A.C.S. INCLUDE PWBP COMM MO=MASK; MC=UNMASK; VO=DARK; VC=BRITE; PWINDOW=GRAP(66)<1,7> CSCREEN=GRAP(66)<1,9>; FLAG='1,1,76,23,3,0' CALL WINDOW(FLAG); BSCREEN=PWINDOW BSCREEN=BSCREEN:@(2,21):VO:'16':VC:@(8,21):VO:'17':VC:@(23,21):VO:'18':VC:@(34,21):VO:'19':VC:@(49,21):VO:'20':VC:@(61,21):VO:'21':VC;BSCREEN=BSCREEN:@(5,20):VO:'St':VC:@(11,20):VO:'State':VC:@(17,20):VO:'Wages':VC:@(27,20):VO:'St':VC:@(30,20):VO:'Tax':VC:@(37,20):VO:'Local':VC:@(43,20):VO:'Wages':VC:@(53,20):VO:'Lcl':VC:@(57,20):VO:'Tax':VC:@(64,20):VO:'County':VC;BSCREEN=BSCREEN:@(2,18):VO:'14':VC:@(22,18):VO:'||':VC:@(25,18):VO:'15':VC;BSCREEN=BSCREEN:@(5,17):VO:'------Nonq':VC:@(16,17):VO:'Plans':VC:@(22,17):VO:'||':VC:@(28,17):VO:'Dependant':VC:@(38,17):VO:'Care':VC;BSCREEN=BSCREEN:@(2,16):VO:'12':VC:@(22,16):VO:'||':VC:@(25,16):VO:'13':VC:@(49,16):VO:'35':VC;BSCREEN=BSCREEN:@(5,15):VO:'Advanced':VC:@(14,15):VO:'EIC':VC:@(18,15):VO:'Pay':VC:@(22,15):VO:'||':VC:@(28,15):VO:'Allocated':VC:@(38,15):VO:'Tips':VC:@(49,15):VO:'34':VC;BSCREEN=BSCREEN:@(2,14):VO:'10':VC:@(22,14):VO:'||':VC:@(25,14):VO:'11':VC:@(49,14):VO:'33':VC;BSCREEN=BSCREEN:@(5,13):VO:'--Medicare':VC:@(16,13):VO:'Wages':VC:@(22,13):VO:'||':VC:@(28,13):VO:'---Medicre':VC:@(39,13):VO:'Tax':VC:@(49,13):VO:'32':VC;BSCREEN=BSCREEN:@(2,12):VO:'08':VC:@(22,12):VO:'||':VC:@(25,12):VO:'09':VC:@(49,12):VO:'31':VC;BSCREEN=BSCREEN:@(5,11):VO:'---Soc':VC:@(12,11):VO:'Sec':VC:@(16,11):VO:'Wages':VC:@(22,11):VO:'||':VC:@(28,11):VO:'---Soc':VC:@(35,11):VO:'Sec':VC:@(39,11):VO:'Tax':VC:@(52,11):VO:'Box':VC:@(56,11):VO:'14':VC:@(59,11):VO:'---------------':VC;BSCREEN=BSCREEN:@(2,10):VO:'06':VC:@(22,10):VO:'||':VC:@(25,10):VO:'07':VC;BSCREEN=BSCREEN:@(5,9):VO:'----Wages':VC:@(15,9):VO:'&':VC:@(17,9):VO:'Tips':VC:@(22,9):VO:'||':VC:@(28,9):VO:'---Federal':VC:@(39,9):VO:'Tax':VC:@(50,9):VO:'E':VC:@(52,9):VO:'d':VC;BSCREEN=BSCREEN:@(50,8):VO:'D':VC:@(52,8):VO:'c':VC;BSCREEN=BSCREEN:@(2,7):VO:'05':VC:@(5,7):VO:'City,ST':VC:@(13,7):VO:'Zip:':VC:@(50,7):VO:'O':VC:@(52,7):VO:'b':VC;BSCREEN=BSCREEN:@(2,6):VO:'04':VC:@(5,6):VO:'Address':VC:@(13,6):VO:'Two:':VC:@(50,6):VO:'C':VC:@(52,6):VO:'a':VC;BSCREEN=BSCREEN:@(2,5):VO:'03':VC:@(5,5):VO:'Address':VC:@(13,5):VO:'One:':VC:@(49,5):VO:'23':VC:@(52,5):VO:'Box':VC:@(56,5):VO:'12':VC:@(59,5):VO:'---------------':VC;BSCREEN=BSCREEN:@(2,4):VO:'02':VC:@(5,4):VO:'Full':VC:@(10,4):VO:'Name':VC:@(16,4):VO:':':VC;BSCREEN=BSCREEN:@(2,3):VO:'00':VC:@(5,3):VO:'Vendor':VC:@(12,3):VO:'ID#':VC:@(16,3):VO:':':VC:@(31,3):VO:'01':VC:@(49,3):VO:'22':VC;BSCREEN=BSCREEN:@(34,2):VO:'Social':VC:@(41,2):VO:'Sec#':VC:@(52,2):VO:'Box':VC:@(56,2):VO:'13':VC:@(59,2):VO:'---------------':VC CSCREEN=CSCREEN:@(5,21):MO:STR('_',2):MC:@(11,21):MO:STR('_',11):MC:@(26,21):MO:STR('_',7):MC:@(37,21):MO:STR('_',11):MC:@(52,21):MO:STR('_',8):MC:@(64,21):MO:STR('_',10):MC;CSCREEN=CSCREEN:@(5,18):MO:STR('_',16):MC:@(28,18):MO:STR('_',14):MC;CSCREEN=CSCREEN:@(5,16):MO:STR('_',16):MC:@(28,16):MO:STR('_',14):MC:@(52,16):MO:STR('_',22):MC;CSCREEN=CSCREEN:@(52,15):MO:STR('_',22):MC;CSCREEN=CSCREEN:@(5,14):MO:STR('_',16):MC:@(28,14):MO:STR('_',14):MC:@(52,14):MO:STR('_',22):MC;CSCREEN=CSCREEN:@(52,13):MO:STR('_',22):MC;CSCREEN=CSCREEN:@(5,12):MO:STR('_',16):MC:@(28,12):MO:STR('_',14):MC:@(52,12):MO:STR('_',22):MC;CSCREEN=CSCREEN:@(5,10):MO:STR('_',16):MC:@(28,10):MO:STR('_',14):MC;CSCREEN=CSCREEN:@(55,9):MO:STR('_',2):MC:@(60,9):MO:STR('_',14):MC;CSCREEN=CSCREEN:@(55,8):MO:STR('_',2):MC:@(60,8):MO:STR('_',14):MC;CSCREEN=CSCREEN:@(18,7):MO:STR('_',30):MC:@(55,7):MO:STR('_',2):MC:@(60,7):MO:STR('_',14):MC;CSCREEN=CSCREEN:@(18,6):MO:STR('_',30):MC:@(55,6):MO:STR('_',2):MC:@(60,6):MO:STR('_',14):MC;CSCREEN=CSCREEN:@(18,5):MO:STR('_',30):MC;CSCREEN=CSCREEN:@(18,4):MO:STR('_',30):MC;CSCREEN=CSCREEN:@(18,3):MO:STR('_',12):MC:@(34,3):MO:STR('_',14):MC:@(52,3):MO:STR('_',22):MC RETURN ~~ SCF_W2F3000 SUBROUTINE XXXX(SCF.ID,BSCREEN,CSCREEN,PC.MATRIX,FLAG) INCLUDE PWBP COMM MO=MASK; MC=UNMASK; VO=DARK; VC=BRITE; PWINDOW=GRAP(66)<1,7> CSCREEN=GRAP(66)<1,9>; FLAG='1,1,57,23,3,0' CALL WINDOW(FLAG); BSCREEN=PWINDOW BSCREEN=BSCREEN:@(4,20):VO:'B)':VC:@(7,20):VO:'Screen':VC:@(14,20):VO:'Hardcopy':VC:@(27,20):VO:'05':VC:@(30,20):VO:':':VC;BSCREEN=BSCREEN:@(4,19):VO:'A)':VC:@(7,19):VO:'Columnar':VC:@(16,19):VO:'Report':VC;BSCREEN=BSCREEN:@(4,18):VO:'--':VC:@(7,18):VO:'Output':VC:@(14,18):VO:'Option':VC:@(21,18):VO:'-------':VC;BSCREEN=BSCREEN:@(4,16):VO:'04':VC:@(7,16):VO:'Output':VC:@(14,16):VO:'is':VC:@(17,16):VO:'to':VC:@(30,16):VO:':':VC;BSCREEN=BSCREEN:@(4,14):VO:'03':VC:@(7,14):VO:'Those':VC:@(13,14):VO:'with':VC:@(18,14):VO:'no':VC:@(21,14):VO:'Parcel#':VC:@(30,14):VO:':':VC;BSCREEN=BSCREEN:@(4,13):VO:'02':VC:@(7,13):VO:'Specific':VC:@(16,13):VO:'Status':VC:@(23,13):VO:'Code':VC:@(30,13):VO:':':VC;BSCREEN=BSCREEN:@(4,12):VO:'01':VC:@(7,12):VO:'Specific':VC:@(16,12):VO:'Taxpayer':VC:@(25,12):VO:'Type':VC:@(30,12):VO:':':VC;BSCREEN=BSCREEN:@(4,11):VO:'00':VC:@(7,11):VO:'Select':VC:@(14,11):VO:'A,':VC:@(17,11):VO:'B,':VC:@(20,11):VO:'C,':VC:@(23,11):VO:'D':VC:@(25,11):VO:'or':VC:@(28,11):VO:'E':VC:@(30,11):VO:':':VC;BSCREEN=BSCREEN:@(4,9):VO:'E)':VC:@(7,9):VO:'District':VC:@(16,9):VO:'Code':VC;BSCREEN=BSCREEN:@(4,8):VO:'D)':VC:@(7,8):VO:'Property':VC:@(16,8):VO:'Zip':VC:@(20,8):VO:'Code':VC;BSCREEN=BSCREEN:@(4,7):VO:'C)':VC:@(7,7):VO:'Taxpayer':VC:@(16,7):VO:'Address':VC;BSCREEN=BSCREEN:@(4,6):VO:'B)':VC:@(7,6):VO:'Parcel':VC:@(14,6):VO:'Number':VC;BSCREEN=BSCREEN:@(4,5):VO:'A)':VC:@(7,5):VO:'Taxpayer':VC:@(16,5):VO:'Name':VC;BSCREEN=BSCREEN:@(4,3):VO:'Sort':VC:@(9,3):VO:'By':VC:@(12,3):VO:'----------':VC CSCREEN=CSCREEN:@(32,20):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(32,16):MO:STR('_',23):MC;CSCREEN=CSCREEN:@(32,14):MO:STR('_',6):MC;CSCREEN=CSCREEN:@(32,13):MO:STR('_',23):MC;CSCREEN=CSCREEN:@(32,12):MO:STR('_',23):MC;CSCREEN=CSCREEN:@(32,11):MO:STR('_',6):MC RETURN ~~ SCF_W2F6000 SUBROUTINE XXXX(SCF.ID,BSCREEN,CSCREEN,PC.MATRIX,FLAG) * (C) Fast-A.C.S. INCLUDE PWBP COMM MO=MASK; MC=UNMASK; VO=DARK; VC=BRITE; PWINDOW=GRAP(66)<1,7> CSCREEN=GRAP(66)<1,9>; FLAG='1,1,67,23,3,0' CALL WINDOW(FLAG); BSCREEN=PWINDOW BSCREEN=BSCREEN:@(5,21):VO:'17':VC:@(8,21):VO:'Include':VC:@(16,21):VO:'Fringe':VC:@(23,21):VO:'Amounts':VC:@(31,21):VO:'if':VC:@(34,21):VO:'Applicable':VC:@(45,21):VO:'?':VC;BSCREEN=BSCREEN:@(5,20):VO:'16':VC:@(8,20):VO:'Combine':VC:@(16,20):VO:'Same':VC:@(21,20):VO:'Social':VC:@(28,20):VO:'Nbrs':VC:@(33,20):VO:'into':VC:@(38,20):VO:'one':VC:@(42,20):VO:'W2':VC:@(45,20):VO:'?':VC;BSCREEN=BSCREEN:@(5,19):VO:'14':VC:@(8,19):VO:'Social':VC:@(15,19):VO:'Security':VC:@(35,19):VO:'15':VC:@(38,19):VO:'Medicare':VC;BSCREEN=BSCREEN:@(5,18):VO:'--':VC:@(8,18):VO:'Maximum':VC:@(16,18):VO:'Taxable':VC:@(24,18):VO:'Amounts--------------------------':VC;BSCREEN=BSCREEN:@(5,16):VO:'12':VC:@(8,16):VO:'Fund#':VC:@(58,16):VO:'13':VC;BSCREEN=BSCREEN:@(5,15):VO:'10':VC:@(8,15):VO:'Fund#':VC:@(58,15):VO:'11':VC;BSCREEN=BSCREEN:@(5,14):VO:'08':VC:@(8,14):VO:'Fund#':VC:@(58,14):VO:'09':VC;BSCREEN=BSCREEN:@(5,13):VO:'06':VC:@(8,13):VO:'Fund#':VC:@(58,13):VO:'07':VC;BSCREEN=BSCREEN:@(5,12):VO:'--':VC:@(8,12):VO:'Boxes':VC:@(14,12):VO:'12a-d':VC:@(20,12):VO:'See':VC:@(24,12):VO:'W2':VC:@(27,12):VO:'Instructions':VC:@(40,12):VO:'for':VC:@(44,12):VO:'box':VC:@(48,12):VO:'12':VC:@(51,12):VO:'---------':VC:@(61,12):VO:'Code':VC;BSCREEN=BSCREEN:@(5,10):VO:'05':VC:@(8,10):VO:'Medicare:':VC;BSCREEN=BSCREEN:@(5,9):VO:'04':VC:@(8,9):VO:'FICA':VC:@(16,9):VO:':':VC;BSCREEN=BSCREEN:@(5,8):VO:'03':VC:@(8,8):VO:'County':VC:@(16,8):VO:':':VC;BSCREEN=BSCREEN:@(5,7):VO:'02':VC:@(8,7):VO:'State':VC:@(16,7):VO:':':VC;BSCREEN=BSCREEN:@(5,6):VO:'01':VC:@(8,6):VO:'Federal':VC:@(16,6):VO:':':VC;BSCREEN=BSCREEN:@(5,5):VO:'--':VC:@(8,5):VO:'W2':VC:@(11,5):VO:'Description':VC:@(23,5):VO:'------':VC:@(30,5):VO:'Withholding':VC:@(42,5):VO:'Fund':VC:@(47,5):VO:'Acct#':VC:@(53,5):VO:'------------':VC;BSCREEN=BSCREEN:@(5,3):VO:'00':VC:@(8,3):VO:'-':VC:@(10,3):VO:'Fiscal':VC:@(17,3):VO:'Year':VC:@(22,3):VO:':':VC CSCREEN=CSCREEN:@(47,21):MO:STR('_',10):MC;CSCREEN=CSCREEN:@(47,20):MO:STR('_',10):MC;CSCREEN=CSCREEN:@(24,19):MO:STR('_',10):MC:@(47,19):MO:STR('_',10):MC;CSCREEN=CSCREEN:@(14,16):MO:STR('_',43):MC:@(61,16):MO:STR('_',4):MC;CSCREEN=CSCREEN:@(14,15):MO:STR('_',43):MC:@(61,15):MO:STR('_',4):MC;CSCREEN=CSCREEN:@(14,14):MO:STR('_',43):MC:@(61,14):MO:STR('_',4):MC;CSCREEN=CSCREEN:@(14,13):MO:STR('_',43):MC:@(61,13):MO:STR('_',4):MC;CSCREEN=CSCREEN:@(18,10):MO:STR('_',47):MC;CSCREEN=CSCREEN:@(18,9):MO:STR('_',47):MC;CSCREEN=CSCREEN:@(18,8):MO:STR('_',47):MC;CSCREEN=CSCREEN:@(18,7):MO:STR('_',47):MC;CSCREEN=CSCREEN:@(18,6):MO:STR('_',47):MC;CSCREEN=CSCREEN:@(24,3):MO:STR('_',9):MC RETURN ~~ SCF_W2F6680 SUBROUTINE XXXX(SCF.ID,BSCREEN,CSCREEN,PC.MATRIX,FLAG) * (C) Fast-A.C.S. INCLUDE PWBP COMM MO=MASK; MC=UNMASK; VO=DARK; VC=BRITE; PWINDOW=GRAP(66)<1,7> CSCREEN=GRAP(66)<1,9>; FLAG='1,1,69,20,3,0' CALL WINDOW(FLAG); BSCREEN=PWINDOW BSCREEN=BSCREEN:@(3,17):VO:'11':VC:@(6,17):VO:'-':VC:@(8,17):VO:'Gap':VC:@(12,17):VO:'Between':VC:@(20,17):VO:'Forms':VC:@(31,17):VO:':':VC;BSCREEN=BSCREEN:@(3,16):VO:'10':VC:@(6,16):VO:'-':VC:@(8,16):VO:'Left':VC:@(13,16):VO:'Margin':VC:@(20,16):VO:'Adjustment':VC:@(31,16):VO:':':VC;BSCREEN=BSCREEN:@(3,15):VO:'09':VC:@(6,15):VO:'-':VC:@(8,15):VO:'Top':VC:@(12,15):VO:'Margin':VC:@(19,15):VO:'Adjustment':VC:@(31,15):VO:':':VC;BSCREEN=BSCREEN:@(3,14):VO:'08':VC:@(6,14):VO:'-':VC:@(8,14):VO:'Side':VC:@(13,14):VO:'by':VC:@(16,14):VO:'Side':VC:@(21,14):VO:'Duplicates:':VC;BSCREEN=BSCREEN:@(3,13):VO:'07':VC:@(6,13):VO:'-':VC:@(8,13):VO:'Number':VC:@(15,13):VO:'of':VC:@(18,13):VO:'Forms':VC:@(24,13):VO:'/':VC:@(26,13):VO:'Page':VC:@(31,13):VO:':':VC;BSCREEN=BSCREEN:@(3,11):VO:'06':VC:@(6,11):VO:'-':VC:@(8,11):VO:'State':VC:@(14,11):VO:'ID':VC:@(17,11):VO:'Number':VC:@(31,11):VO:':':VC;BSCREEN=BSCREEN:@(3,10):VO:'05':VC:@(6,10):VO:'-':VC:@(8,10):VO:'Federal':VC:@(16,10):VO:'ID':VC:@(19,10):VO:'Number':VC:@(31,10):VO:':':VC;BSCREEN=BSCREEN:@(3,8):VO:'04':VC:@(6,8):VO:'-':VC:@(8,8):VO:'City,':VC:@(14,8):VO:'STate':VC:@(20,8):VO:'&':VC:@(22,8):VO:'Zip':VC:@(26,8):VO:'Code':VC:@(31,8):VO:':':VC;BSCREEN=BSCREEN:@(3,7):VO:'03':VC:@(6,7):VO:'-':VC:@(8,7):VO:'Employer':VC:@(17,7):VO:'Address':VC:@(31,7):VO:':':VC;BSCREEN=BSCREEN:@(3,6):VO:'02':VC:@(6,6):VO:'-':VC:@(8,6):VO:'Employer':VC:@(17,6):VO:'Name/Address':VC:@(31,6):VO:':':VC;BSCREEN=BSCREEN:@(3,5):VO:'01':VC:@(6,5):VO:'-':VC:@(8,5):VO:'Employer':VC:@(17,5):VO:'Name':VC:@(31,5):VO:':':VC;BSCREEN=BSCREEN:@(3,3):VO:'00':VC:@(6,3):VO:'-':VC:@(8,3):VO:'Fiscal':VC:@(15,3):VO:'Year':VC:@(20,3):VO:'to':VC:@(23,3):VO:'Process':VC:@(31,3):VO:':':VC CSCREEN=CSCREEN:@(33,17):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(33,16):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(33,15):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(33,14):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(33,13):MO:STR('_',5):MC;CSCREEN=CSCREEN:@(33,11):MO:STR('_',17):MC;CSCREEN=CSCREEN:@(33,10):MO:STR('_',17):MC;CSCREEN=CSCREEN:@(33,8):MO:STR('_',34):MC;CSCREEN=CSCREEN:@(33,7):MO:STR('_',34):MC;CSCREEN=CSCREEN:@(33,6):MO:STR('_',34):MC;CSCREEN=CSCREEN:@(33,5):MO:STR('_',34):MC;CSCREEN=CSCREEN:@(33,3):MO:STR('_',10):MC RETURN ~~ SGF_TAX100 Vendor Tax ID# 00 - Vendor ID# : [ ] 01 - [ ] 02 - Vendor Name: [ ] 03 - Address One: [ ] 04 - City,ST Zip: [ ] 05 - Total Paid : [ ] 06 - Print Block: [ ] ~~ SGF_TAX100*NOTES 12433 43125 Stephen E. Pollom Modify 1099 List 1 ~~ SGF_TAX300 00 - Cutoff Amount : [ ] 01 - Output is for : [ ] ~~ SGF_TAX300*NOTES 9886 85965 Stephen E. Pollom 1099 File Proof Listing 1 ~~ SGF_TAX668 00 - Fiscal Year to Process : [ ] 01 - Employer Name : [ ] 02 - Employer Name/Address : [ ] 03 - Employer Address : [ ] 04 - City, STate & Zip Code : [ ] 05 - Federal ID Number : [ ] 06 - State ID Number : [ ] 07 - Cutoff Amount : [ ] 08 - Number of Forms / Page : [ ] 09 - Side by Side Duplicates: [ ] 10 - Top Margin Adjustment : [ ] 11 - Left Margin Adjustment : [ ] 12 - Gap Between Forms : [ ] ~~ SGF_TAX668*NOTES 12433 43188 Stephen E. Pollom Print 1099 Forms 1 ~~ SGF_W2F100 Social Sec# Box 13 --------------- 00 Vendor ID# : [ ] 01 [ ] 22 [ ] 02 Full Name : [ ] 03 Address One: [ ] 23 Box 12 --------------- 04 Address Two: [ ] C a [] $[ ] 05 City,ST Zip: [ ] O b [] $[ ] D c [] $[ ] ----Wages & Tips || ---Federal Tax E d [] $[ ] 06 [ ] || 07 [ ] ---Soc Sec Wages || ---Soc Sec Tax Box 14 --------------- 08 [ ] || 09 [ ] 31 [ ] --Medicare Wages || ---Medicre Tax 32 [ ] 10 [ ] || 11 [ ] 33 [ ] Advanced EIC Pay || Allocated Tips 34 [ ] 12 [ ] || 13 [ ] 35 [ ] ------Nonq Plans || Dependant Care 14 [ ] || 15 [ ] St State Wages St Tax Local Wages Lcl Tax County 16 [] 17 [ ] 18 [ ] 19 [ ] 20 [ ] 21 [ ] ~~ SGF_W2F100*NOTES 12432 65013 Stephen E. Pollom Modify W2 Form File 0 ~~ SGF_W2F600 00 - Fiscal Year : [ ] -- W2 Description ------ Withholding Fund Acct# ------------ 01 Federal : [ ] 02 State : [ ] 03 County : [ ] 04 FICA : [ ] 05 Medicare: [ ] -- Boxes 12a-d See W2 Instructions for box 12 --------- Code 06 Fund# [ ] 07 [ ] 08 Fund# [ ] 09 [ ] 10 Fund# [ ] 11 [ ] 12 Fund# [ ] 13 [ ] -- Maximum Taxable Amounts-------------------------- 14 Social Security [ ] 15 Medicare [ ] 16 Combine Same Social Nbrs into one W2 ? [ ] 17 Include Fringe Amounts if Applicable ? [ ] ~~ SGF_W2F600*NOTES 12432 67544 Stephen E. Pollom Build the W2 File 0 ~~ SGF_W2F668 00 - Fiscal Year to Process : [ ] 01 - Employer Name : [ ] 02 - Employer Name/Address : [ ] 03 - Employer Address : [ ] 04 - City, STate & Zip Code : [ ] 05 - Federal ID Number : [ ] 06 - State ID Number : [ ] 07 - Number of Forms / Page : [ ] 08 - Side by Side Duplicates: [ ] 09 - Top Margin Adjustment : [ ] 10 - Left Margin Adjustment : [ ] 11 - Gap Between Forms : [ ] ~~ SGF_W2F668*NOTES 12433 41010 Stephen E. Pollom Print W2 Forms 1 ~~