<>T@U .3"XOPOSTFX"- PUT HISTORY BACK IN ACCRUAL FILE"Z $Dd:$) Put History Totals Back In Accrual File Lx3"Open Necessary Files Here"-$XOTBU#$XOEM۩'CIDU#$ XOPE۩'CIDU#$ XOPA۩'CIDU#$ XOHI۩'CIDU,! 'DATEMASK1="**SA*HR*PW*OT*SU*AD*VA*HO*SI*NW*WR6& 'DATEMASKz;('ܨF'@!    B   1 PERIODU30 - (XOLIST) 899-9502U#3"all application tables" +U#+U # !"#$%&'U #()*+ U #,-U #. ?@+U#ABCDEFGHIJU#KLMU#NOPQR31000 "DATA ENTRY CONTROL" UD3"Dim all arrays and set all defaults, then display new data screen".$STUBVCW3"Display data"U$3"Begin data entry of each variable",$XY.Z[\W]U$W\$3"OK and Write Record".U3 WYES$^UU` $^Ub _PU'3"Loop through accrual file for export"U1U 9/ SB'FTXTLooking for Emp ID SF/!    )1 /U 3load accrual file$./3set incase not found 1 /۩2U /U$`  $ ` `  $ ` ` (0a$aa *a2U<PUZL .U dU3finished with itUDUd1 Ue"$b 3save current keyf b/8g B C8l B$b(Bq C $b}v1 bdU{8Up30 - (GENINPUT) 6000-6190q0U3"03/17/89 - General input routine interface"z c( _P_J$de8s GENINPUT.PUBUf_XYgZ[c]h\^dei#+_D PJCEU$).$< 'VERSWOFF  3"check other commands"&)#+.8830 - (GENIN2) 6200-63909UB c( _P_J$de8q GENIN2.PUBUf_XYgZ[c]h\^dei#"+_ D PJCEU123< 'VERSWOFF  3"check other commands"#8L37500 "Display Screen" V`/SB'FTXTaF/9This program will put accruals back into the accrual filebL/?by reading the history file. Reset accruals before doing this.e"/Pay Period Begin Datej"/Pay Period End Dateo,/Are you ready to begin accrual:837700 "DISPLAY DATA" /CFSF'FTXT#/+B(/+Cn837900 "Display Boxes"3/BACKGR'FBKG'FBXDEFAULTCSSB/BOXPGS3/6BOXNO7GE//SB'FTTLӨPݨ8 l30 - (GENOPEN) 8300-8380 m(U3"04/27/90 General file OPEN routine" vJ 2$j k E jӨ/jk  8 ө j k   k  $$ ,U  'U $ 8 30 - (GENERROR) 8400-8452 &U3"02/21/89 - GENERAL ERROR ROUTINE" # ^lm$^ V GENERROR.PUBlm "^_" ]i# )+_XMSLR!!'!!*!3!8!7@U! _XU! _SU! ,3"8470=BR ON X, 8480=BR ON S, 8490=L PRINT" !#1!3"clear record lock"!! +n!F!*30 - (GENERROR2) 8490-8499!+ GENPSCR.PUB!/8!39#39200 "Delete Routine# $^U$ _D8$$4o$$"U$18'U';p' YDISABLETITLE TITLFLAGF0FDDZ P_TAX_WAGEP_PAYP_HOURSEMHRHI1HI1FILET0T1T1T2T3COMPID COMPNAME COMPADDR1 COMPADDR2 COMPCITY COMPSTATECOMPZIP COMPCTRY COMPPHONE COMPDATEOP1OP2OP3OP4OP5OP6OP7OP1OP2OP3WO1WO2WO1WO2PG1PG2P_EMPEM1EM2EM3EM4EM5EM6EM7EM1EM2EM3EM4EM5EM6TR1TR1OR1OR1OR2PERIOD PERIOD_B PERIOD_E PERIOD_MIN PERIOD_SUM1 PERIOD_SUM2 PERIOD_SUB PERIOD_HOL PERIOD_OVTPERIOD_OFFSETPW1PW2PW1MP1MP1MP2MP3MP4N1N2N1N2READYX0X1X3X4XX1O7YPT1JKX9WINDIDSELVALZ9X2XPROGIDFIDFINX9X8P0D0O1 GENERRORGENOPENAPTDR4UPXOPEXXXTBOSCOMPXOOPXXOWOXXODPXXOPAXXOEMXXOTRXXOHIXXOORXXOPWXXOMPXABANDONSTART GENINPUTPROCEED NEXT_EMP WRITE_EMP READ_HISQUITGENIN2