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