$PBExportHeader$emailpop3.sra $PBExportComments$Generated Application Object forward global type emailpop3 from application end type global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global variables n_pop3 gn_pop3 end variables global type emailpop3 from application string appname = "emailpop3" end type global emailpop3 emailpop3 on emailpop3.create appname="emailpop3" message=create message sqlca=create transaction sqlda=create dynamicdescriptionarea sqlsa=create dynamicstagingarea error=create error end on on emailpop3.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on event open;Environment le_env GetEnvironment(le_env) If le_env.ProcessBitness = 64 Then gn_pop3 = Create n_pop364 Else gn_pop3 = Create n_pop3 End If Open(w_main) end event
File: emailpop3.sra
Size: 954
Date: Tue, 02 Jan 2018 00:27:06 +0100
Size: 954
Date: Tue, 02 Jan 2018 00:27:06 +0100
- application emailpop3(sra)