Application Engine Example
In tools 8.4x and beyond, any files opened using the GetFile will actually be automatically transfered to the Report Repository.
Local File &f;
&f = GetFile("summary_log.txt", "w", %FilePath_Relative);
&f.WriteLine("Hello World");
&f.close()
The key thing about this code is the %FilePath_Relative parameter.
SQR Example
Here is a procedure that you can put in an SQC. A variable named $weboutputdir will be populated with the director where you want to open the file.
begin-procedure get-web-outdir
if $sqr-platform = 'WINDOWS-NT'
let $dirSep = '\'
else
let $dirSep = '/'
end-if
begin-select
CDM.PRCSOUTPUTDIR
let $weboutputdir = rtrim(&CDM.PRCSOUTPUTDIR, ' ') || $dirSep
FROM PS_CDM_LIST CDM WHERE CDM.PRCSINSTANCE = #prcs_process_instance
end-select
end-procedure
No comments:
Post a Comment