$PBExportHeader$amyuni.sra $PBExportComments$Generated Application Object forward global type amyuni from application end type global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global type amyuni from application string appname = "amyuni" end type global amyuni amyuni on amyuni.create appname="amyuni" message=create message sqlca=create transaction sqlda=create dynamicdescriptionarea sqlsa=create dynamicstagingarea error=create error end on on amyuni.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on event open;// Profile EAS Demo DB V10 SQLCA.DBMS = "ODBC" SQLCA.AutoCommit = False SQLCA.DBParm = "ConnectString='DSN=EAS Demo DB V10;UID=dba;PWD=sql'" CONNECT; If sqlca.SQLCode = 0 Then Open(w_main) Else MessageBox("Connect Error " + & String(sqlca.SQLDBCode), sqlca.SQLErrText, StopSign!) End If end event event close;DISCONNECT; end event
File: amyuni.sra
Size: 1056
Date: Mon, 31 Dec 2018 21:14:38 +0100
Size: 1056
Date: Mon, 31 Dec 2018 21:14:38 +0100
- application amyuni(sra)