Assume that you have an exit called NUMVALF as shown in Figure 1. Its purpose is to validate that a numeric field value is valid. After your exit completes, CICS® VT has to build the remaining fields before the call is complete.
------------------- CICS VT: List of fields for ITEMFL Row 1 to 10 of 10
Command ===> ________________________________________________ Scroll ===> CSR
VSAM file type : KSDS Creator : CICSVT +
Data set length: 00080 Table name: HLL_ITEM +
Actions: S Display, U Update, I Insert, D Delete
A Field Bytes Start Type DB2 column name Exit Pic Par
- -------- ----- ----- ---- ------------------------------ -------- --- ---
_ F01 00006 00001 C ITEM_NUMBER +
_ F02 00012 00007 C ITEM_NAME +
_ F03 00006 00019 C ITEM_COLOUR +
_ F04 00004 00025 C ITEM_WEIGHT +
_ F05 00004 00029 P ITEM_COST + NUMVALF
_ F06 00003 00033 C ITEM_REORDER_NO +
_ F07 00003 00036 C ITEM_SUPP_CODE +
_ F08 00005 00039 P ITEM_DATE_FSHIP + Y
_ F09 00002 00044 C ITEM_SHELF_LIFE +
_ F10 00035 00046 C ITEM_DESCRIPTION +
******************************* Bottom of data *******************************
On invocation of an FBE, the parameter field EXRET always is set to SPACE and the field can ignored if the exit is successful. Any value in EXSQLCA is ignored if EXRET is SPACE.