move appropriate values into CAF-AREA. CALL 'AACAF' USING CAF-AREA. IF CAF-RETURN NOT = ZERO
THEN process error.