connect to opil user db2admin using iom@

CREATE PROCEDURE InsertMakets
(IN pMAK_ID INTEGER, IN pMSG_ID SMALLINT, IN pID_DPL INTEGER, IN pDDMM CHAR( 4 ), IN pMAK_REC Array)
LANGUAGE SQL
BEGIN
DECLARE col CHAR( 3 );
DECLARE record INTEGER;
SET col = select max(a.NUM_MAK) from (select integer(NUM_MAK) from ADM.OPILUSERS where DDMM = pDDMM and MSG_ID = pMSG_ID and ID_DPL = pID_DPL) as a;
SET record = char(col +  1 );
INSERT INTO ADM.OPILUSERS(MAK_ID, MSG_ID, ID_DPL, DDMM, NUM_MAK)
VALUES (pMAK_ID, pMSG_ID, pID_DPL, pDDMM, record);
FOR (int i= 0 , i< pMAK_REC.count, i++)
DECLARE col1 integer;
DECLARE col2 integer;
SET col1 =pMAK_REC(i, 1 );
SET col2 =pMAK_REC(i, 2 );
INSERT INTO ADM.OPIL(MAK_ID, MSG_ID)
VALUES (col1, col2);
NEXT i;
END@

connect reset@