CREATE PROCEDURE InsertMak_sl
(IN pMSG_ID SMALLINT, IN pID_DPL CHAR( 3 ), IN pDDMM CHAR( 4 ), OUT pMAK_ID INTEGER)
LANGUAGE SQL
BEGIN
DECLARE id INTEGER;
DECLARE col INTEGER;
DECLARE record CHAR( 3 );
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 = CAST(col +  1  as CHAR( 3 ));
INSERT INTO DOCS.MAKETS(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@

call AddMakets_sl( 916 , '50', '6000');