added sysprog entities

2024-03-25 15:17:34 -07:00
parent 600a8e1f61
commit 3a6a2b6b5b
1028 changed files with 171660 additions and 0 deletions
--- a/SYSPROG/STPROCINS/OIPI_VARIABLE_COMMON.txt
+++ b/SYSPROG/STPROCINS/OIPI_VARIABLE_COMMON.txt
@ -0,0 +1,57 @@
+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@
+