CREATE PROCEDURE InsertMak
(IN pMSG_ID SMALLINT, IN pID_DPL INTEGER, IN pDDMM CHAR( 4 ), OUT pMAK_ID INTEGER)
LANGUAGE SQL
BEGIN
DECLARE id INTEGER;
DECLARE col INTEGER;
DECLARE record INTEGER;
SET col = select max(a.NUM_MAK) from (select integer(NUM_MAK) as NUM_MAK from DOCS.MAKETS where DDMM = pDDMM and MSG_ID = pMSG_ID and ID_DPL = pID_DPL) as a;
SET record = col +  1 ;
INSERT INTO ADM.OPILUSERS(MSG_ID, ID_DPL, DDMM, NUM_MAK)
VALUES (pMSG_ID, pID_DPL, pDDMM, record);
SET id = select MAK_ID from DOCS.MAKETS where DDMM=pDDMM and MSG_ID=pMSG_ID and ID_DPL=pID_DPL and NUM_MAK=record;
SET pMAK_ID = id;
END
@