Listing: 1 MODULE PMI; 2 FROM Drectory IMPORT SetDefaultDrive,GetCurrentDir; 3 FROM EnvironUtils IMPORT ReadEnvironment; 4 FROM ModBase3 IMPORT UpdateDBFile,WriteDBRec,DeleteRecord,ReadDBRec, 5 AppendBlank; 6 7 (*FROM Dos IMPORT SetMaxFH;(* for os2 Dos< jpi DosCalls< Stn*)*) 8 FROM StrEdit IMPORT CrunchBlanks,CAPstr,DeleteRightJustified; 9 FROM StringIO IMPORT PrintMessage; 10 FROM M2Strings IMPORT Length; 11 FROM Scrn2DBF IMPORT FrameToDBF, DBFToFrame; 12 FROM PosUtils IMPORT Equal; 13 FROM PMIGlobals IMPORT PMIScreens,GlobalInit,EditConfig; 14 FROM SmartScreen IMPORT ClearScreen; 15 FROM VWindows IMPORT ClearPart, CurrentWindow, SetCursorHeight; 16 FROM ScrnTypes IMPORT DisplayFrame,InitDisplayFrame,AFrameName; 17 FROM FramePainter IMPORT ShowDisplayFrame; 18 FROM InputManager IMPORT ControlFrame; 19 FROM FrameManager IMPORT EraseFrame; 20 FROM Prompts IMPORT Prompt,PromptStr; 21 FROM PMIRpt IMPORT ControlReports; 22 FROM DBStuff IMPORT MakeKey; 23 FROM SYSTEM IMPORT ADR,SIZE; 24 FROM ControlUtils IMPORT ControlSeparately, LoadFrameList,Control; 25 FROM DspFiles IMPORT OpenDisplayFile,ReadDisplayFrame; 26 FROM HandleIO IMPORT FileExists; 27 FROM Prompts IMPORT Prompt; ***** ^ duplicate identifier ***** ^ duplicate identifier 28 FROM LowLevel IMPORT Fill; 29 FROM GenLists IMPORT GenList, NewList,ListLength,GetElmt; 30 FROM ScrnTypes IMPORT AFrameName, InitDisplayFrame,DisplayFile; ***** ^ duplicate identifier ***** ^ duplicate identifier ***** ^ duplicate identifier 31 FROM DBFCustomer IMPORT CustomerDBF, OpenCustomerDBF, 32 CloseCustomerDBF,FindCustomerByCin,FindCustomerByName, 33 NextCustomer,PrevCustomer,FirstCustomer,LastCustomer; 34 FROM DBFInvtry IMPORT OpenInvtryDBF,CloseInvtryDBF; 35 FROM Invtry IMPORT ControlInvtry; 36 FROM Customer IMPORT ControlCustomer; 37 FROM PriceTable IMPORT InitializePrice,DefinePriceTbl; 38 FROM PMIMaint IMPORT Maintain; 39 IMPORT InitCompilerMods; 40 IMPORT Locks; 41 VAR 42 Status : INTEGER; 43 J : CARDINAL; 44 Environ : ARRAY[0..80] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 45 TopMenu : GenList; 46 FirstTime: BOOLEAN; 47 NextFrame,EndingFrame : AFrameName; 48 SelChar : CHAR; 49 NoData : BOOLEAN; (* true when no data is on the screen *) 50 CustomerDF : DisplayFrame; 51 DSPFile : DisplayFile; 52 PullDnMenu : GenList; 53 54 55 56 57 58 BEGIN 59 60 ReadEnvironment('M2TEST', Environ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 61 (*Locks.ExclusiveOnly:=TRUE; (* jpi's extenders api does not lock properly*)*) 62 CrunchBlanks(Environ); ***** ^ not supported yet ***** ^ not supported yet 63 GlobalInit(); ***** ^ not supported yet ***** ^ not supported yet 64 IF NOT OpenDisplayFile(PMIScreens,'PMI.DSP') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 65 THEN 66 Prompt('Could not open PMI Display file'); ***** ^ not supported yet ***** ^ not supported yet 67 HALT; ***** ^ undeclared identifier 68 END; 69 (* J := SetMaxFH(30); (*os2 only *)*) 70 71 InitDisplayFrame(CustomerDF,CurrentWindow); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 72 NewList(PullDnMenu); ***** ^ not supported yet ***** ^ not supported yet 73 NoData := TRUE; 74 75 InitializePrice(); ***** ^ not supported yet ***** ^ not supported yet 76 REPEAT 77 ClearScreen(); ***** ^ not supported yet ***** ^ not supported yet 78 ReadDisplayFrame(PMIScreens,CustomerDF,'MainMenu'); (*Clear out any of the fields *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 79 ShowDisplayFrame(CustomerDF,0,0,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 80 ControlFrame(CustomerDF,1,'',FALSE,NextFrame); (* alow user input *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 81 OpenCustomerDBF(TRUE); ***** ^ not supported yet ***** ^ not supported yet 82 OpenInvtryDBF(TRUE); ***** ^ not supported yet ***** ^ not supported yet 83 IF Equal(NextFrame,'Customer') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 84 THEN ControlCustomer();; ***** ^ not supported yet ***** ^ not supported yet 85 ELSIF Equal(NextFrame,'Inventory') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 86 THEN ControlInvtry(); ***** ^ not supported yet ***** ^ not supported yet 87 ELSIF Equal(NextFrame,'Reports') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 88 THEN ControlReports(); ***** ^ not supported yet ***** ^ not supported yet 89 ELSIF Equal(NextFrame,'Maint') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 90 THEN Maintain(); ***** ^ not supported yet ***** ^ not supported yet 91 ELSIF Equal(NextFrame,'PriceTable') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 92 THEN DefinePriceTbl(); ***** ^ not supported yet ***** ^ not supported yet 93 ELSIF Equal(NextFrame,'EditConfig') ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 94 THEN EditConfig(); ***** ^ not supported yet ***** ^ not supported yet 95 END; 96 CloseInvtryDBF(); ***** ^ not supported yet ***** ^ not supported yet 97 CloseCustomerDBF(); ***** ^ not supported yet ***** ^ not supported yet 98 ClearScreen(); ***** ^ not supported yet ***** ^ not supported yet 99 UNTIL Equal(NextFrame,'Exit'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 100 101 102 103 104 END PMI. 82 errors