$PBExportHeader$wpfapp01.sra forward global type wpfapp01 from Application end type global Transaction sqlca global DynamicDescriptionArea sqlda global DynamicStagingArea sqlsa global Error error global Message message end forward global type wpfapp01 from Application string AppName = "wpfapp01" end type global wpfapp01 wpfapp01 on wpfapp01.create sqlca=create Transaction sqlda=create DynamicDescriptionArea sqlsa=create DynamicStagingArea error=create Error message=create Message end on on wpfapp01.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on event Open;// Profile EAS Demo DB V125 SQLCA.DBMS = "ODBC" SQLCA.AutoCommit = False SQLCA.DBParm = "ConnectString='DSN=EAS Demo DB V125;UID=dba;PWD=sql" connect using sqlca; open (w_window) end event
- Sources
- PB125_Starter
- wpfapp01.pbl
- wpfapp01.sra
File: wpfapp01.sra
Size: 1688
Date: Sun, 25 Sep 2011 20:51:01 +0200
Size: 1688
Date: Sun, 25 Sep 2011 20:51:01 +0200
- Application wpfapp01(sra)