$PBExportHeader$im.sra forward global type im from application end type global n_transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global variables end variables global type im from application string appname = "im" end type global im im on im.create appname="im" message=create message sqlca=create n_transaction sqlda=create dynamicdescriptionarea sqlsa=create dynamicstagingarea error=create error end on on im.destroy destroy(sqlca) destroy(sqlda) destroy(sqlsa) destroy(error) destroy(message) end on
File: im.sra
Size: 639
Date: Tue, 22 Jan 2008 23:40:27 +0100
Size: 639
Date: Tue, 22 Jan 2008 23:40:27 +0100
- application im(sra)