Re: RPG400-L Digest, Vol 6, Issue 435

rpg400-l-request@xxxxxxxxxxxx wrote:

1. Stored Procedure on iSeries. (Misty Thornton)

DB21034E The command was processed as an SQL statement because it was not a

valid Command Line Processor command. During SQL processing it returned:
SQL0104N An unexpected token ";" was found following "E WHERE EMAIL_ID =
em".
Expected tokens may include: "<space>". LINE NUMBER=7. SQLSTATE=42601

***********

CREATE PROCEDURE MYDB.MANAGE_EMAILS

( IN em VARCHAR(10))
SPECIFIC MYDB.MANAGE_EMAILS

DYNAMIC RESULT SETS 1

P1: BEGIN
IF EXISTS (SELECT * FROM MYDB.EMAIL WHERE EMAIL_ID = em;)
THEN
UPDATE MYDB.EMAIL
SET EMAIL_DESC= 'YYY'
WHERE EMAIL_ID = em;
ELSE
INSERT INTO MYDB.EMAIL(EMAIL_ID, EMAIL_DESC)
VALUES (em, 'YYY')
END IF;
ELSE
UPDATE MYDB.EMAIL

SET EMAIL_DESC = 'YYY'
WHERE EMAIL_ID = em;
END IF
END P1

Try this:

P1: BEGIN
IF EXISTS (SELECT * FROM MYDB.EMAIL WHERE EMAIL_ID = em) <---- Removed semi-colon
THEN
UPDATE MYDB.EMAIL
SET EMAIL_DESC= 'YYY'
WHERE EMAIL_ID = em; <---- Keep semi-colon
ELSE
INSERT INTO MYDB.EMAIL(EMAIL_ID, EMAIL_DESC)
VALUES (em, 'YYY') ; <---- New semi-colon
END IF; <---- Keep semi-colon
-- ELSE <-- Commented
-- UPDATE MYDB.EMAIL <-- Commented
-- SET EMAIL_DESC = 'YYY' <-- Commented
-- WHERE EMAIL_ID = em; <-- Commented
-- END IF <-- Commented
END P1 ; <---- New semi-colon

Tom Liotta