WEBFOCUS 对TABLE FILE的操作

TABLE FILE CUSTOMER_TEST
PRINT
FIELD_NAME/A30
FIELD_DESC/A30
WHERE CUSTOMER_KEY EQ &CUSTKEY
ON TABLE HOLD AS CUSTUDFSETUP FORMAT ALPHA
END
-RUN
 读取CUSTOMER_TEST ，PRINT FIELD_NAME 和 FIELD_DESC ，条件是CUSTOMER_KEY 等于PARAMETER (&CUSTKEY)
TABLE HOLD为CUSTUPFSETUP FORMAT 成ALPHA

DEFINE FILE CUSTUDFSETUP
SUMMARYFLD/A1 = 'T';
FIELD_DESC1/A41 = '*' || FIELD_DESC;
FIELD_DESC/A40 = UPCASE(40, FIELD_DESC1, 'A40');
FIELD_DESC1/A40 = UPCASE(40, FIELD_DESC, 'A40');
END
DEFINE FILE相当于在CUSTUDFSETUP上加工字段，可以在此添加新字段
设置SUMMARYFLD的值等于T，定义FIELD_DESC和FIELD_DESC1 并且赋值。

TABLE FILE CUSTUDFSETUP
PRINT
FIELD_NAME/A50
FIELD_DESC/A40
SUMMARYFLD
ON TABLE HOLD AS LISTTEST
END
-RUN
最后PRINT所有下面需要用的字段，HOLD为LISTTEST