<>#!&d 53OEFCHKNON FILE INTEGRITY CHECKER - NON OSAS VERSION(+$@#BBX File Checker (non-OSAS version)-E$ XXXXXX ZZZZZZ 3FILES TO EXCLUDE- PUT SPACE ON START AND ENDP'$\3FOR DOS Z MSDOS $/d$nSCR۩xnUU3" 3.............................COMP ID" / ALL  /RB/  $"  $/  8" 3................................DIRECTORY M& $$"2 Ө/Ө\6, $/6@% /$J*T/  ^ ,SUh|r U/RB|/  U:"ACL 3............................APPLICATION" /9ALLU   /RB/9  8"ACL 3........................... FILE NAME U,XU  'XU&X0U:UD0 &/ Error: No such fileN2 (/ Error: File is in useX2/CS Error number  occurred opening b" lUvC"GCLA 3...................IGNORE BEFORE MMDDYY   v  v?v* 01 12v* 01 31v$  2 50$ 19 $ 20 8"A 3...............................FLD 1 ONLY$   $ N YES $ Y NO $ N  YN31000,103B" Printer? S for Screen only F3.............PRINTER$ FS,$,F$U$$:.>/Checking file: Total Files Checked:8$B $ UL8U 3......................................READ NEXT FILEV 1SU ` U j% SCRU t ~$Ө$. $ U  U   U U,QU $AZ$Q F QU  'QU U U %$DIR  > SCR۩$ U,XUSCR۩ >1XU  %$X(( 50$19<2$20<(  $U $FQ >/ SKIPPED... OLD DATE$ UPB/ CLFILE  SKIPPED... OLD DATERBQU ZUd QXnU xU  $& $ UX ?/ IS IN USE... SKIPPED$ UR H/ CLFILE  IS IN USE... SKIPPEDRBKQU //CSRBERROR  OPENING FILE ":U 3........................................GET FILE SPECS $Q$M$ $!G 1$"3MUST BE SINGLE KEY FILEU$#$! $!$ U"6U3..................................BEGIN FILE CHECK, $6/ @7$%#&(Ө%00:۩(Ө %<00JJ/2 # of keys:!#0 # records: T"/CL*^ !h"/KEY :r*| '!$()*UU/ +A"1Q($))$ +D1Q(U$,QUU! # 1QU-1QU $)) #,- $** # $** (,-U (@ ./0,,-U/()U&U0,3 IF POS(" "+FILNAM$+" "=EXC$)>0 THEN RETURN:) 8320 IS ENUF ERRORS TO REPORTD 1"8N/$2,3- 3<$33<X $b3 2$2Ө2*bl3 3$3Ө3*lvG$KEY : 2< DOESNT MATCHFLD 1: 3<8U $+A8  # $($+4U*3SHD NEVER HAPPENU8 U$AU32000,10AU3.........................................DONE WITH FILE CHECK7$5#6(Ө500:۩(Ө 5<00#$75% 7 $77$77<ܨ 7<4$8(Ө7<##0:۩(Ө 7<00 $'() $(( AU + Y43!!!!!!!!!!!!!!!!!!!!!!!!* (!$)$*U4 !)*U>" !)*$9CMUH $9CMUR !\ Yzf# ')$9CCUp*zUU 3/&6 8(OK$ UU32300,10 :U3.....................................FILE ERRORS FOUND  $::  U $< 1/ $KEY AND FLD 1 MATCH ERROR - FIX FILE %7 A,/ ERROR 7 - FILE REQUIRES REBUILD .8" RB%PROBLEM FOUND. NOTE IT AND CONTINUE: 8/CLCL BU LQ V U `U jU tH A=/&6 8( ERRORS FOUND uO AD/&6 8(ERROR 7 ENCOUNTERED ~$ U   $ $; &/;$ U   $  $ T )*H/5COUNTS IN ALL KEYS DONT MATCH... RUN FILE REBUILD ON  $ U U34000,10/U3......................... CALC MKEYED SPECS$<V$<$   $ T- $ . / 0 4 =$13USE THIS FOR CK IF FLD1 = KEY TO SKIP KEYMATCH LOGIC  $<$$$.$/"$0,< ./01$1/061$4A $4D@*J $"0T8^3.... CALC KNUM =0 FOR REMOVINGh$=r  | $,$==>./0*835000,10U  "/LF*** End of Report ***_ L/ CL All done... :& Errors Encountered... Press :  U"CIUU  /FF $??U 6/  E(FILE CHECK AUDIT REPORT / P/ FILE NAMESTARTSTOP ELAPSED(STATUS$(82U<0/CSBACKGRBLUEWHITEDEFAULT@F0/ Company Id- ApplicationP/ DirectoryZ/- File Named(/-Ignore Files Before MMDDYYn%/-Check field 1 only? x8"`U"e$#$B$Cam"j B $Cpm"o B $BB "t B$B "y$D $DD<"~2 D<'$D;3CAUSE SOMETIMES ROUNDS TO 60 ")$E(B00:۩(D00C"8&39900,2&U& / DONE& ;MENU&&LSLASHWAITTIMEXCCOMPDIRXXIAPPFILDTSKIPSKIPSFPG_LENFCNTFSKPFILNAMLASTDIGXDOT LASTDIGDOTKEYERRKEYMTCHFIDZRDTGDOLDLFINNUMRECSSEGSKEYSKEYSIZRECSIZKEYNUMSTIMSTIMCNTKCNTMTCHAORDKAFLDNUMOFSTLENGMAXFLD1KXAXORDETIMETIMELAPELAPERRTYP FILE_ERRSKERRMKDKEYFLDP0TITLEERR7HSFXMTLPDISPASKCOMPDIRERRASKAPP LASTPROMPTNOFILQUITHEADER OPENFILEGETFILEDONEFILERRCKDATE GETFILESPECSCKPROB CALCKEYSCHECKITKEYLOOP CHECK_AORD READLOOPEOF KEYMATCH AORD_DONEFILEOKPROBCLOSEIT PROB_PRTBAD1 GET_TIMEڶp