<>& #4m 3OEFCHKC3 IF L$="OEFCHK" THEN LET L$=""; GOTO 1040;REM ACTIVATE FOR VER 2,3('$IBBX File Checker (OSAS version)-E$ XXXXXX ZZZZZZ 3FILES TO EXCLUDE- PUT SPACE ON START AND END2$ө'CNAME<#  FAIRCHILD$F9 1$ EDAR1 EDDC1 3PUT 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|/  $ 'MENUVERUUU$ 'CNAME!$ 'CNAME COMPANY NAME $ YU:"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"GCLA3...................IGNORE BEFORE MMDDYY  v v?v* 0112v* 0131v$2 50$19$208"A3...............................FLD 1 ONLY$  $N YES $Y NO $N YN31000,10I3FOR old ver 2,3... L$="OEFCHK",L1=1,L2=0,L3=0,F=14; RUN "OSLNK",ERR=1011 GENSCROL.PUBB$EƄ GENOUT.PUB U$U$$:.>/Checking file: Total Files Checked:8$B $ U L8U 3......................................READ NEXT FILEV 1SU ` U j% SCRU t ~$Ө$. $ U  U   U U ,QU $JZ$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 ":U3........................................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/ 0A"1Q-$..$ 0D1Q-U$1QUU! ( 1QU21QU $.. (12 $// ( $// %-12U -@ %345112U/-.U&U0,3 IF POS(" "+FILNAM$+" "=EXC$)>0 THEN RETURN:) 8320 IS ENUF ERRORS TO REPORTD 6'8N/$7182 8<$88<X $b3 7$7Ө7*bl3 8$8Ө8*lvG$KEY : 7< DOESNT MATCHFLD 1: 8<8U % $0A8  %# ) -$09 U* 3SHD NEVER HAPPENU8 U$JU32000,10AU3.........................................DONE WITH FILE CHECK7$:#;(Ө:00:۩(Ө :<00#$<:* < $<<$<<<ܨ <<4$=(Ө<<##0:۩(Ө <<00 $,-. $-- JU + Y43!!!!!!!!!!!!!!!!!!!!!!!!* -&$.$/U4 &./U>" &./$>CMUH $>CMUR  &\ Yzf# , .$>CCUp* zUU 3/+; =(OK$"" "UU32300,10 :U3.....................................FILE ERRORS FOUND  $??  U $< 1/ $KEY AND FLD 1 MATCH ERROR - FIX FILE %7 J,/ ERROR 7 - FILE REQUIRES REBUILD .8" RB%PROBLEM FOUND. NOTE IT AND CONTINUE: 8/CLCL BU LQ V U `U jU tH J=/+; =( ERRORS FOUND uO JD/+; =(ERROR 7 ENCOUNTERED ~$"" "U   $ $@ &/@$"" "U   $  $ T ./H/5COUNTS IN ALL KEYS DONT MATCH... RUN FILE REBUILD ON  $"" "U U34000,10/U3......................... CALC MKEYED SPECS$A#V$A$%  $%T- )%3%4%5%9%=$63USE THIS FOR CK IF FLD1 = KEY TO SKIP KEYMATCH LOGIC  %$ A $)  $3  $4  "$5  ,< 3 4 5 6$64 5 61$9 A $9 D@* J $'5T8^3.... CALC KNUM =0 FOR REMOVINGh$Br  %| ) ,$BBC3 4 5 * 835000,10U  "/LF*** End of Report ***C 0" CLAll done... Press : UU  Y/FFA D+$EF GENSCROL.PUBEF,  /FF D /FF$GGD3"PAGE #" d YW/Өݨө'CNAME'CNAME Page (G###0U 6/  N(FILE CHECK AUDIT REPORT / P/ FILE NAMESTARTSTOP ELAPSED(STATUS$"(82U<0/CSBACKGRBLUEWHITEDEFAULTIF0/ Company Id- ApplicationP/ DirectoryZ/- File Named(/-Ignore Files Before MMDDYYn%/-Check field 1 only? x8"`U"e$#$K$Lam"j K $Lpm"o K $KK "t K$K "y$M $MM<"~2 M<'$M;3CAUSE SOMETIMES ROUNDS TO 60 ")$N(K00:۩(M00L"8&39900,2&U;SFP&& ;OSASM&&;H&&;'MENUPROG&&LSLASHWAITTIMCNAMEFAIREXCCOMPDIRXXIOLDVERAPPFILDTSKIPSKIPSFDEVICEOUTCOLSPG_LENFCNTFSKPFILNAMLASTDIGXDOT LASTDIGDOTKEYERRKEYMTCHFIDZRDTGDOLDLFINNUMRECSSEGSKEYSKEYSIZRECSIZKEYNUMSTIMSTIMCNTKCNTMTCHAORDKAFLDNUMOFSTLENGMAXFLD1KXAXORDETIMETIMELAPELAPERRTYP FILE_ERRSKERRMKDKEYFLDDELAYWINDROWEFLAGP0O1TITLEERR7HSFXMTDISPASKCOMPDIRERROLDVERASKAPP LASTPROMPTNOFILQUITHEADER OPENFILEGETFILEDONEFILERRCKDATE GETFILESPECSCKPROB CALCKEYSCHECKITKEYLOOP CHECK_AORD READLOOPEOF KEYMATCH AORD_DONEFILEOKPROBCLOSEIT PROB_PRTBAD1 GET_TIME