compile insert OIPI_VARIABLE_COMMON

* Rjc 02-09-21
Declare Function retstack
     common /oipi_whichversion/whichroutine@,do_debug@,vsprinter_Version@
     Common /oipi_whichversion_override/ override_vsprinter_value@

     If vsprinter_Version@ == "" Then
          call set_vsprinter()
     End
     
     currstack = retstack()
     Begin Case
          Case override_vsprinter_value@ = "VSPRINTER1"
               * explicit override (added 072823)
               whichOne = 1
          Case override_vsprinter_value@ = "VSPRINTER2"
               * explicit override (added 072823)
               whichOne = 2
          Case inlist(currstack,'SET_PRINTER1',@fm) Or inlist(currstack,'GET_PRINTER1',@fm) Or inlist(currstack, 'VSPRINTER_EVENTS',@FM)
               whichOne = 1
          Case inlist(currstack,'SET_PRINTER2',@fm) Or inlist(currstack,'GET_PRINTER2',@fm) Or inlist(currstack,'VSPRINTER2_EVENTS',@FM)
               whichOne = 2
          Case vsprinter_version@ == "VSPRINTER1" Or vsprinter_version@ == "SET_PRINTER1"
               whichOne = 1
          Case vsprinter_version@ == "VSPRINTER2" Or vsprinter_version@ == "SET_PRINTER2"
               whichOne = 2
          Case 1
               * default to 2
               whichOne = 2
     End case
     
          
     If whichOne = 1 then
          * Rjc 02-09-21
          OIPI_WIN_COMMON_NAME = "%OIPI_WIN_COMMON%"
          OIPI_COMMON_NAME = "%OIPI_VARIABLES%"
          OIPI_TEXTINFO_NAME = "textinfo"
          frmOIPI = "RTI_VSPRINTER_CLASSIC"
     End Else
          OIPI_WIN_COMMON_NAME = "%OIPI_WIN_COMMON2%"
          OIPI_COMMON_NAME = "%OIPI_VARIABLES2%"
          OIPI_TEXTINFO_NAME = "textinfo2"
          frmOIPI = "RTI_VSPRINTER"
     end


COMMON //OIPI_WIN_COMMON_NAME// hWnd%, shell%, oipi_started%, WM_OIPI_SET%, WM_OIPI_GET%, OIPI_TABLE%, OIPI32%,locale,parent%,cancelproc%,handle%,init% 
COMMON //OIPI_COMMON_NAME// bPrinting,IntStartMode,bExporting,stroipi_charmap_display,stroipi_charmap_save,strPdfExportfile,IntRepeatCnt,Repeatgraphic,Twips_To_Units,bTerm,bPrintPages,bWMFFix   
COMMON //OIPI_TEXTINFO_NAME// alignInfo%, textInfo%, widenMargins%,env%,uom%,userpath%,oipiarchive
* rjc  01-21-21  Added stringbuilder handle
COMMON /OIPI_STRINGBULDER/hCsvSb%
* bzs 041422 added bPutOnTaskbar
Common /OIPI_TASKBAR/ bPutOnTaskbar@
* bzs 051122 added other options
Common /OIPI_OPTIONS/ bKeepOnTop@, exportFormatList@, EXTRA2@, EXTRA3@, EXTRA4@, EXTRA5@