File: emailpop3.sra
Size: 954
Date: Mon, 15 Jul 2019 12:10:11 +0200
$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

  • application emailpop3(sra)