IBM Mainframe Forum

error changeman for code block in RED

CREATE OR replace PROCEDURE test_not_found
(OUT O_TIPO_ERRORE CHAR(3),
OUT O_CODICE_ERRORE SMALLINT,
OUT O_MESSAGGIO_ERRORE VARCHAR(2000))
BEGIN
DECLARE SQLCODE INTEGER DEFAULT 0;
DECLARE L_MSG_STMT VARCHAR(600) DEFAULT NULL;
DECLARE NOTE_LOG VARCHAR(600) DEFAULT NULL;

DECLARE CONTINUE HANDLER FOR SQLEXCEPTION
BEGIN
GET DIAGNOSTICS EXCEPTION 1 L_MSG_STMT = MESSAGE_TEXT;
SET O_CODICE_ERRORE = SQLCODE;
END IF;

SET O_CODICE_ERRORE = 0;
SET O_TIPO_ERRORE = 'DB2';
SET O_MESSAGGIO_ERRORE = NULL;
-- Legge il messaggio di errore
SELECT MESSAGGIO_ERRORE
INTO O_MESSAGGIO_ERRORE
FROM TBARTE_MESSAGGI_ERRORE
WHERE 1='aaa';

SET NOTE_LOG='SP:Test - '||L_MSG_STMT;
CALL SPARTE_P_INS_LOG('A'
,null
,O_TIPO_ERRORE
,O_CODICE_ERRORE
,NOTE_LOG);

END;

thanks

Is there a question in there somewhere??

Or any red stuff?

And what is that code meant to represent? What language is it written in? And what has it to do with Changeman?

Thanks
The question has been solved

Except the question of 'what is your question?'

I don't think there's any problem with deleting this whole topic in its present state.