View Replies (1)
Using ProcedureInTransaction DBParm in transaction.SQLPreview?
  1. Advice
  2.  PowerServer
  3.  RPC
  4.  Stored Procedure
0 Votes
  1. Jim Reese
  2. PowerServer
  3. Thursday, 28 September 2023 04:54 PM UTC

We're attempting to migrate our large 20+ year old application to PowerServer 2022 R2. We have an ORACLE database, and have a number of RPCs as well as a few datawindows using stored procedure updates. Some of the remote procedures have PRAGMA autonomous transactions with their own commit/rollback, some are not autonomous transactions but do have commit/rollback in them, some return values with no DB updates, and some do DB updates and rely on the script calling them to perform the commit/rollback. Autocommit is false.

As a result, some of the RPC calls should start the transaction when they are executed, and some should not.

My question is: Can the transaction object's dbparm value be changed in the sqlpreview event of the transaction object itself, to set the appropriate value of ProcedureInTransaction based on the name of the RPC (which is found in the sqlsyntax argument), or does it need to be set earlier than that?

Here is some of the code in n_tr.sqlpreview event we're hoping to use. It includes some logging to a file, so we can see that the values are getting recognized and set, but we don't know if the changing of ProcedureInTransaction to the desired value of 0 or 1 is actually effective at this point.

IF gb_ispowerserverapp THEN
	integer i, li_FileNum
	String	ls_sqlfunc, ls_syntax
	String	ls_default

	CHOOSE CASE sqlfunc
		CASE SQLDBProcedure!,SQLDBRPC!
			CHOOSE CASE sqlfunc
				CASE SQLDBProcedure!
					ls_sqlfunc = "SQLDBProcedure"
					CHOOSE CASE upper(trim(ls_syntax))
						CASE	"EXECUTE CB_LEASE_PMT"	,&
							"EXECUTE CB6.CB_DATAACCESS.P_CBXML_INSERT"	,&
							"EXECUTE DBMS_SESSION.SET_IDENTIFIER"	
							this.of_set_procedureintransaction(0)
						CASE	"EXECUTE CB6.CB_DATAACCESS.P_CBATTACHMENT_DELETE"	,&
							"EXECUTE CB6.CB_DATAACCESS.P_CBATTACHMENT_INSERT"	,&
							"EXECUTE CB6.CB_DATAACCESS.P_CBATTACHMENT_UPDATE"	
							this.of_set_procedureintransaction(1)
						CASE ELSE
							this.of_set_procedureintransaction(1)
							ls_default = "~tNO MATCH IN CASE, DEFAULT TO 1"
					END CHOOSE //upper(trim(ls_syntax))
				CASE SQLDBRPC!
					ls_sqlfunc = "SQLDBRPC"
					CHOOSE CASE trim(ls_syntax)
						CASE	"RPCEXECUTE CB6.CB_DATAACCESS.F_CBATTACHMENT_BLOB_UPDATE"	,&
							"RPCEXECUTE CB6.CB_DATAACCESS.F_CBERROR_INSERT"	,&
							"RPCEXECUTE CB6.PKG_TERRITORY.VALIDATE_MODEL"
							this.of_set_procedureintransaction(0)
						CASE	"RPCEXECUTE CB6.ARCHIVE_AND_DELETE.CANCEL_BATCH"	,&
							"RPCEXECUTE CB6.ARCHIVE_AND_DELETE.CREATE_BATCH"	,&
							"RPCEXECUTE CB6.PKG_TERRITORY.REFRESH_UPDATED_COMPANY"	
							this.of_set_procedureintransaction(1)
						CASE ELSE
							this.of_set_procedureintransaction(1)
							ls_default = "~tNO MATCH IN CASE, DEFAULT TO 1"
					END CHOOSE //trim(ls_syntax)
			END CHOOSE //sqlfunc inner
			li_FileNum = FileOpen("C:\Temp\RPCCALLS.txt",LineMode!,Write!,LockReadWrite!,Append!,EncodingANSI!)
			FileWrite(li_FileNum, string(today(),"yymmdd hh:mm:ss") + "~t" + ls_sqlfunc + "~t~t" + ls_syntax + ls_default)
			FileClose(li_FileNum)
		CASE else
			this.of_set_procedureintransaction(1) //set back to a 1 ??
			//other sqldb calls, show 1st 240 chars, but change carriage return and linefeed so shows on 1 line in logfile, but can convert back if needed when examining log
			ls_syntax = sqlsyntax
			ls_syntax = f_globalreplace(mid(ls_syntax,1,240),"~r","<CR>",true)
			ls_syntax = f_globalreplace(mid(ls_syntax,1,240),"~n","<LF>",true)
			li_FileNum = FileOpen("C:\Temp\RPCCALLS.txt",LineMode!,Write!,LockReadWrite!,Append!,EncodingANSI!)
			FileWrite(li_FileNum, string(today(),"yymmdd hh:mm:ss") + "~t" + ls_syntax )
			FileClose(li_FileNum)
	END CHOOSE //sqlfunc outer
END IF
PowerServer 2022 R2 Build 2819 Cloud App Launcher Public to ... Powerserver app in IIS
Responses (1)
  1. Likes
  2. Latest
  3. Oldest

Find Questions by Tag

.EXE .NET 6.0 .NET Assembly .NET Core 3.1 .NET Core Framework .NET DataStore .NET Std Framework 32-bit 64-bit ADO.NET AEM AI Algorithm Amazon AWS Android Apache API APK App Store App Store (Apple) Appeon Workspace Appeon Xcelerator Plug-in Architecture Array ASE Asynchronous Methods Authentication AutoBuild AutoCompiler Automated Testing Automation AutoScript Azure Barcode Base64 Batch BigData BLOB Branch & Merge Browser Bug Build Button C# C# Class Importer C# Editor C# Model generator Calendar Camera Certificate Chrome Citrix Class Client Client/Server Cloud Cluster Collection COM Command Line Compiler Compression Computed Field Configuration Controls Cookies Cordova Crash Cross-Platform Crosstab CSharpAssembly CSharpObject CSS CSV Cursor Data Database Database Driver Database Painter Database Profile Database Provider DataObject DataSource DataStore DataStore (C#) DataStore (PS) DataType DataWindow DATE DATETIME DB2 Debug Debugger Debugging Deployment Design DLL DO-WHILE Dockable Docker Documentation DOUBLE Download DragDrop Edge Edit Style Editor Elevate Conference Email Embedded SQL Emulator Encoding Encryption Enhancement Request Entity Entity Framework ERP Error Event Event Handler Event Handling Excel Exception Export Expression External Functions F# Field File File Access Filter Firefox Firewall Font FOR-NEXT Foreground Format Function Garbage Collection GeoLocation Git Graph HANA Hash Header HTML/5 HTTP/S HTTPClient Icon IDE Identity IIS IMAPI Import InfoMaker Inheritance Installation Integer IntelliSense Interface Internet Internet Explorer iOS IPA iPad iPhone IWA J# Java JavaScript JBoss JDBC JOIN JSON JSONGenerator JSONParser Kestrel Label Lambda Large File LDAP Library License LINQ Linux OS Load Balancing Localization Localized PBVM Log In Log Out Logging LONG LONGLONG macOS MAPI Maps MDI Memory Memory Leak Menu Merge MessageBox Messagging Method Migration MIME TYPE Mobile Model ModelStore ModelStore (C#) MSOLEDBSQL Multi Threading MVC MySQL n-Tier Namespace NativePDF NVO OAuth ODATA ODBC Office Offline OLE OLEDB Online Open Source OpenAPI OpenSSL Oracle OrcaScript Other Outlook Output Package Parameter Patch PayPal PB Classic PB Native PB.NET PBC PBD PBDOM PBG PBJVM PBL PBNI PBORCA PBVM PBX PDF Performance Permission PFC Picture Pipeline Play Store (Google) Plugin Popup Port POST PostgreSQL PowerBuilder PowerBuilder (Appeon) PowerBuilder (SAP) PowerBuilder Compiler PowerBuilder Runtime PowerClient PowerScript (PS) PowerScript IDE PowerScript Migrator PowerServer PowerServer Mobile PowerServer Toolkit PowerServer Web PowerServerLabel Print Properties Proxy Publish PULL PUSH Query Regression Release Renew Resize Response REST Retrieve RibbonBar RibbonBar Builder Rich Text Roadmap RPC Runtime Packager SaaS Scaffolding Script SDI SDK Security Server Service Session Single Sign-on Size SMTP SMTPClient SnapDevelop SOAP Sort Source Code Speech Recognition SQL SQL Anywhere SQL Server SqlBuilder SqlExecutor SQLite SqlModelMapper Storage Stored Procedure Subscription SVN Swagger Syntax TabbedBar TabbedView Tablet TabPage Target TE Control Testing Text TFS Theme TIME Timer TLS/SSL Tomcat TortoiseGit TortoiseSVN Transaction Transparency Trial Trigger TRY-CATCH TX Control Type UI ULONG UltraLite Uninstall Unit Test Unit Testing UNIX OS Update Upgrade Upload URL User Center User Object UWP Validation VARCHAR Variable Versioning Visual Studio Visual Studio Code VM Voice Warning WCF Web API Web Extensions Web Service WebBrowser WebForms WebLogic WebSphere WildFly WinAPI Window Windows OS WinForms Wizard Workgroup Workspace WPF XCODE XHTML XML Zoom
✖

Helpful?

If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.