quote:
Originally posted by BabakNYC:
You'll have to show us what your report looks like. Can you give us an example of what you're doing in the FOCUS code?
If you're in InfoAssist, click the magnifying glass on the top to see the actual code, copy and paste it here so we can see what's happening.
This is the .Fex I am using
-* Fetch the record from the QAD_VD_MSTR
TABLE FILE QAD_JFRA_VD_MSTR
PRINT VD_ADDR VD_CR_TERMS VD_CURR VD__LOG01 VD_TYPE
ON TABLE SAVE AS QAD_JFRA_VD_MSTR_INFO
END
-RUN
-* Assign the variable values
-SET &VD_MSTR_NO_RECS = &RECORDS;
-SET &DATA_ROW_VD_MSTR = '';
-* Change the File attribute from Overwrite to Append
FILEDEF FILE_VD_MSTR DISK /ETL/app/dm/dev/ibi/apps/vedw_test/smtp_test/vd_mstr.ftm (APPEND
-RUN
-* Make the Loop to get all the records from the table
-REPEAT VD_MSTR_ROWS &VD_MSTR_NO_RECS TIMES
-READ QAD_JFRA_VD_MSTR_INFO &VD_ADDR.A80 &VD_CR_TERMS.A80 &VD_CURR.A30 &VD__LOG01.I11 &VD_TYPE.A30
-SET &VDADDR = TRUNCATE(&VD_ADDR);
-SET &VDCRTERMS = TRUNCATE(&VD_CR_TERMS);
-SET &VDCURR = TRUNCATE(&VD_CURR);
-SET &VDLOG01 = &VD__LOG01;
-SET &VDTYPE = TRUNCATE(&VD_TYPE);
-*-TYPE &VDADDR &VDCRTERMS &VDCURR &VDLOG01 &VDTYPE
-* Concatenate all the column values and write the file
-SET &DATA_ROW_VD_MSTR = &VDADDR || &DELIMIT || &VDCRTERMS || &DELIMIT || &VDCURR || &DELIMIT || &VDLOG01 || &DELIMIT || &VDTYPE;
-WRITE FILE_VD_MSTR &DATA_ROW_VD_MSTR
WebFOCUS 8
Windows, All Outputs