-* 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
-* 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);
-* 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
Please help me....
WebFOCUS 8 Windows, All Outputs
April 06, 2017, 05:53 AM
Kalai
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
-* 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);
-* 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
April 06, 2017, 09:04 AM
BabakNYC
Could you also explain what you're attempting to do? I have a feeling you're using Dialogue Manager when you should actually use TABLE which might be much easier.
WebFOCUS 8206, Unix, Windows
April 06, 2017, 09:50 AM
Tom Flynn
The leading six digits is the actual length of the data: VARCHAR
So, for 1105, with VARCHAR ON, the value is 0000041105 For 123456789, its 000009123456789.
To fix, TURN VARCHAR OFF, or, DEFINE FILE TABLENAME NEW_COL/A9 = varchar_9_column END
then TABLE FILE out NEW_COL.
You can try ON TABLE HOLD AS QAD_JFRA_VD_MSTR_INFO FORMAT ALPHA