MQSeries.net :: View topic - how to call database,names,tables in IIB plz suggest me

sathishkotturi · Posted: Sun Jan 08, 2017 6:13 am Post subject:

DECLARE InRef INTEGER InputRoot.XMLNSC.root;

DECLARE I INTEGER 1;
DECLARE J INTEGER;
SET J = CARDINALITY(InputRoot.XMLNSC.root.sport[]);
WHILE I < J DO
INSERT INTO Database.AYYAPPA.SPORT(TYPES,NAME,RANK,STATE,MATCHES) values(InRef.sport[I].type,InRef.sport[I].name,InRef.sport[I].rank,InRef.sport[I].state,InRef.sport[I].matches);
SET I = I + 1;
END WHILE;

DECLARE RowRef ROW;
SET RowRef.a[] = PASSTHRU('SELECT * FROM AYYAPPA.SPORT ORDER BY TYPES,NAME ASC');

--SET OutputRoot.Properties.MessageFormat = 'MRM';
--SET OutputRoot.Properties.MessageSet = 'H931GJS002001';
--SET OutputRoot.Properties.MessageType = 'Root';

CREATE FIELD OutputRoot.XMLNSC.Main;
DECLARE OutputRef REFERENCE TO OutputRoot.XMLNSC.Main;

DECLARE L INTEGER 1;
FOR InputRef AS RowRef.a[] DO
SET OutputRef.Root[L].a = InputRef.NAME;
SET OutputRef.Root[L].b = InputRef.RANK;
SET OutputRef.Root[L].c = InputRef.STATE;
SET OutputRef.Root[L].d = InputRef.MATCHES;
SET OutputRef.Root[L].e = InputRef.TYPES;
SET L = L+1;
END FOR;

RETURN TRUE;
END;