Topspeed_JPI/TS-V3/MODBASE/PMI.LST

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