Successful completion and continue processing the call

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.

Figure 1. Error processing in an FBE
 ------------------- 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.


Concept Concept

Feedback


Timestamp icon Last updated: Monday, 10 February 2014


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic/com.ibm.cics.vt.doc//topics/cvtdecsuccess.html