MQSeries.net :: View topic

gfrench · Posted: Thu Aug 12, 2010 1:57 am Post subject:

I need to write a little procedure to strip namespace declarations, attributes out of some XML before passing it as clob for database (don't ask why, just started on this project!)

I've copied the sample recursive procedure and reworked it as follows

CREATE PROCEDURE navigate (IN inRef REFERENCE,IN outRef REFERENCE)
BEGIN
DECLARE tmpChar CHAR;
DECLARE cursor REFERENCE TO inRef;
MOVE cursor FIRSTCHILD TYPE Name;

IF LASTMOVE(cursor) THEN
CREATE LASTCHILD OF outRef AS outRef NAME FIELDNAME(cursor) VALUE cursor;
END IF;

WHILE LASTMOVE(cursor) DO
CALL navigate(cursor, outRef);
MOVE cursor NEXTSIBLING TYPE Name;
IF LASTMOVE(cursor) THEN
CREATE NEXTSIBLING OF outRef AS outRef NAME FIELDNAME(cursor) VALUE cursor;
END IF;
END WHILE;
END;

but the TYPE Name is not working. I've tried TYPE XMLNSC.Folder adn XMLNSC.Field and various others, and in the end changed it to:-

CREATE PROCEDURE navigate (IN inRef REFERENCE,IN outRef REFERENCE)
BEGIN
DECLARE tmpChar CHAR;
DECLARE cursor REFERENCE TO inRef;
MOVE cursor FIRSTCHILD;

IF LASTMOVE(cursor) AND (FIELDTYPE(cursor) IN (0x01000000, 0x03000000)) THEN
CREATE LASTCHILD OF outRef AS outRef NAME FIELDNAME(cursor) VALUE cursor;
END IF;

WHILE LASTMOVE(cursor) DO
CALL navigate(cursor, outRef);
MOVE cursor NEXTSIBLING;
IF LASTMOVE(cursor) AND (FIELDTYPE(cursor) IN (0x01000000, 0x03000000)) THEN
CREATE NEXTSIBLING OF outRef AS outRef NAME FIELDNAME(cursor) VALUE cursor;
END IF;
END WHILE;
END;

Obviously I prefer not to use the hex stuff. Anyone got any simpel suggetsions. I've exhausted google searches, manual etc and it looks like most other people gave up to!

Cheers for any help

Graham