$PBExportHeader$ftpclient.sra $PBExportComments$Generated Application Object forward global type ftpclient from application end type global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global variables n_application gn_app n_wininet gn_ftp w_main gw_frame end variables global type ftpclient from application string appname = "ftpclient" end type global ftpclient ftpclient type prototypes end prototypes on ftpclient.create appname="ftpclient" message=create message sqlca=create transaction sqlda=create dynamicdescriptionarea sqlsa=create dynamicstagingarea error=create error end on on ftpclient.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on event open;Open(w_main) end event
File: ftpclient.sra
Size: 878
Date: Sat, 09 Feb 2019 03:10:22 +0100
Size: 878
Date: Sat, 09 Feb 2019 03:10:22 +0100
- application ftpclient(sra)