Here is it modified.
This is what you were talking about?

Regards,

Robert

CREATE PROCEDURE PROC_EXT_FIELD3SALESTEST
( ROWS_PROCESSED_SO_FAR INTEGER, ROWS_PERCYCLE INTEGER )
RETURNS
( BATCH_ROWS_PROCESSED INTEGER )
AS
DECLARE VARIABLE THEFIELD1 VARCHAR(10);
DECLARE VARIABLE THEFIELD2 TIMESTAMP;
DECLARE VARIABLE THEFIELD3 VARCHAR(14);
DECLARE VARIABLE THEFIELD4 FLOAT;
DECLARE VARIABLE THEFIELD5 FLOAT;
DECLARE VARIABLE THEFIELD5 FLOAT;
DECLARE VARIABLE THEFIELD6 FLOAT;
DECLARE VARIABLE THEFIELD7 FLOAT;
DECLARE VARIABLE THECOUNT INTEGER;
BEGIN
THECOUNT = 0;
FOR SELECT CAST( RTRIM( FIELD1 ) AS VARCHAR(10) ) AS FIELD1
,CAST( FIELD2 AS TIMESTAMP ) AS FIELD2
,CAST( RTRIM( FIELD3 ) AS VARCHAR(14) ) AS FIELD3
,CAST( FIELD4 AS FLOAT ) AS FIELD4
,CAST( FIELD5 AS FLOAT ) AS FIELD5
,CAST( FIELD5 AS FLOAT ) AS FIELD5
,CAST( FIELD6 AS FLOAT ) AS FIELD6
,CAST( FIELD7 AS FLOAT ) AS FIELD7
FROM EXT_FIELD3SALES
INTO :THEFIELD1
,:THEFIELD2
,:THEFIELD3
,:THEFIELD4
,:THEFIELD5
,:THEFIELD5
,:THEFIELD6
,:THEFIELD7
DO
BEGIN
IF( THECOUNT >= ROWS_PROCESSED_SO_FAR )THEN
BEGIN
INSERT INTO FIELD3SALES
(FIELD1
,FIELD2
,FIELD3
,FIELD4
,FIELD5
,FIELD5
,FIELD6
,FIELD7
)
VALUES
(:THEFIELD1
,:THEFIELD2
,:THEFIELD3
,:THEFIELD4
,:THEFIELD5
,:THEFIELD5
,:THEFIELD6
,:THEFIELD7
);
WHEN SQLCODE -803 DO
BEGIN
UPDATE FIELD3SALES
SET FIELD4 = :THEFIELD4
,FIELD5 = :THEFIELD5
,FIELD5 = :THEFIELD5
,FIELD6 = :THEFIELD6
,FIELD7 = :THEFIELD7
WHERE (FIELD1 = :THEFIELD1 )
AND (FIELD2 = :THEFIELD2 )
AND (FIELD3 = :THEFIELD3 );
END
END
THECOUNT = THECOUNT + 1;
IF(( THECOUNT - ROWS_PROCESSED_SO_FAR ) > ROWS_PERCYCLE )THEN
LEAVE;
END
BATCH_ROWS_PROCESSED = THECOUNT;
END#