<>Z@U +3"XOHIMRG"- Merge two XOHIx formated files"7Z $Dx3"Open Necessary Files Here" $$,XOHI۩'CID',! 'DATEMASK1="**SA*HR*PW*OT*SU*AD*VA*HO*SI*NW*WR6& 'DATEMASKz;('ܨF'@!   B   U0$  Merge Time Card History Files L30 - (XOLIST) 899-9502U# 3"all application tables" +U#+U# !"#$%U #&'() U #*+U #,+U#?@ABCDEFGHU#IJKU#LMNOP31000 "DATA ENTRY CONTROL" UD3"Dim all arrays and set all defaults, then display new data screen"$QRU$3"Begin data entry of each variable"$$ST#UVWX$YZ[U \UU$XW ] ]$]$,]X $^File Not foundUU*$S T#UWQ_QU3"DATE - FROM" \UU$Q_*$S T#UWR_RU3" DATE - THRU" \U"$R_hM RQR9$^'Thru Date Cannot Be Less Than From DateU$3"OK and Write Record".U3$\` $`Ua \Ub \PUj R $RȘt$ab3main loop to merge files1]UU6/SF'FTXT Reading ... SB  Q R $bb$ (b000000 LU6/SF'FTXT Merging ... SB U"$c3get last history key $bc8p30 - (GENINPUT) 6000-6190q0U3"03/17/89 - General input routine interface"z d( \P\J$YZ8s GENINPUT.PUBUe\STfUVdg_W`YZ[h#+\D PJCEU$).$< 'VERSWOFF  3"check other commands"&)#+.8830 - (GENIN2) 6200-63909UB d( \P\J$YZ8q GENIN2.PUBUe\STfUVdg_W`YZ[h#"+\ D PJCEU123< 'VERSWOFF  3"check other commands"#8L37500 "Display Screen" V`/SB'FTXTaI/