MQSeries.net :: View topic - Array Subscript Error

LH33 · Posted: Tue Apr 08, 2003 9:30 am Post subject:

I have a message flow where I am getting an Array Subscript Error. I have included the Exception list and the code. Can someone help me determine why I am getting the error? Thanks!! LisaB

Exceptionlist
(
(0x1000000)RecoverableException = (
(0x3000000)File = 'F:\build\S210_P\src\DataFlowEngine\ImbComputeNode.cpp'
(0x3000000)Line = 453
(0x3000000)Function = 'ImbComputeNode::evaluate'
(0x3000000)Type = 'ComIbmComputeNode'
(0x3000000)Name = '87bc79d8-f300-0000-0080-ef329b6d9c2f'
(0x3000000)Label = 'ODLJobUpdateXY.FormatXYUpdate'
(0x3000000)Text = 'Caught exception and rethrowing'
(0x3000000)Catalog = 'WMQIv210'
(0x3000000)Severity = 3
(0x3000000)Number = 2230
(0x1000000)RecoverableException = (
(0x3000000)File = 'F:\build\S210_P\src\DataFlowEngine\ImbRdl\ImbRdlFieldRef.cpp'
(0x3000000)Line = 628
(0x3000000)Function = 'PathElement::navigateCursorFirst'
(0x3000000)Type = ''
(0x3000000)Name = ''
(0x3000000)Label = ''
(0x3000000)Text = 'array subscript error'
(0x3000000)Catalog = 'WMQIv210'
(0x3000000)Severity = 3
(0x3000000)Number = 2436
(0x1000000)Insert = (
(0x3000000)Type = 2
(0x3000000)Text = '46'
)
(0x1000000)Insert = (
(0x3000000)Type = 2
(0x3000000)Text = '60'
)
(0x1000000)Insert = (
(0x3000000)Type = 5
(0x3000000)Text = 'ExternalNumber'
)
(0x1000000)Insert = (
(0x3000000)Type = 2
(0x3000000)Text = '2'

Code:

SET OutputRoot = InputRoot;
-- Enter SQL below this line. SQL above this line might be regenerated, causing any modifications to be lost.
IF InputRoot.XML.ATLAS_XY_QUERY.DataArea.STATUS = 'SUCCESSFUL' THEN
CREATE FIELD OutputRoot.XML.ChangeJob;
CREATE FIELD OutputRoot.XML.ChangeJob.ApplicationArea;
CREATE FIELD OutputRoot.XML.ChangeJob.ApplicationArea.Sender;
CREATE FIELD OutputRoot.XML.ChangeJob.ApplicationArea.Sender.Component;
CREATE FIELD OutputRoot.XML.ChangeJob.ApplicationArea.Sender.Confirmation;
CREATE FIELD OutputRoot.XML.ChangeJob.ApplicationArea.Sender.AuthorizationId;
CREATE FIELD OutputRoot.XML.ChangeJob.ApplicationArea.CreationDateTime;
CREATE FIELD OutputRoot.XML.ChangeJob.ApplicationArea.BODId;
CREATE FIELD OutputRoot.XML.ChangeJob.DataArea;
CREATE FIELD OutputRoot.XML.ChangeJob.DataArea.Change;
CREATE FIELD OutputRoot.XML.ChangeJob.DataArea.Job;
CREATE FIELD OutputRoot.XML.ChangeJob.DataArea.Job.ExternalNumbers;
CREATE FIELD OutputRoot.XML.ChangeJob.DataArea.Job.Location;
CREATE FIELD OutputRoot.XML.ChangeJob.DataArea.Job.Location.GeobaseConverter;
CREATE FIELD OutputRoot.XML.ChangeJob.DataArea.Job.Location.Latitude;
CREATE FIELD OutputRoot.XML.ChangeJob.DataArea.Job.Location.Longitude;

DECLARE TmpEnvironment Char;

SET TmpEnvironment = THE (SELECT ITEM L.ENVIRONMENT
from Database.BGE_BROKER_ENV_VARS as L
Where L.MSG_FLOW_ID = 'ODLJobUpdateXY');

DECLARE TmpTimeStamp TIMESTAMP;
DECLARE TmpDate Date;
DECLARE TmpTime Time;
DECLARE TmpDate2 Char;
DECLARE TmpTime2 Char;
SET TmpTime = current_time;
SET TmpDate = current_date;
SET TmpDate2 = CAST(TmpDate as CHAR);
SET TmpTime2 = CAST(TmpTime as CHAR);
SET OutputRoot.XML.ChangeJob.ApplicationArea.CreationDateTime = SUBSTRING(TmpDate2 FROM 7 FOR 10)
||'T'|| SUBSTRING(TmpTime2 FROM 7 FOR

;
SET OutputRoot.XML.ChangeJob.ApplicationArea.Sender.Component = 'Broker XY';
SET OutputRoot.XML.ChangeJob.ApplicationArea.Sender.Confirmation = 'OnError';
SET OutputRoot.XML.ChangeJob.ApplicationArea.Sender.AuthorizationId = 'ODLJobUpdateXY Message Flow';
SET OutputRoot.XML.ChangeJob.ApplicationArea.BODId = UUIDASBLOB;
Set OutputRoot.XML.ChangeJob.DataArea.Change.(XML.Attribute)confirm = 'Always';
Set OutputRoot.XML.ChangeJob.DataArea.Change.(XML.Attribute)fieldid = '3';
Set OutputRoot.XML.ChangeJob.(XML.Attribute)revision = '1.0.0';
Set OutputRoot.XML.ChangeJob.(XML.Attribute)environment = TmpEnvironment;
DECLARE TmpEXT2 char;
SET OutputRoot.XML.ChangeJob.DataArea.Job.ExternalNumbers.ExternalNumber[2] =
InputRoot.XML.ATLAS_XY_QUERY.DataArea.RECORD_DATA.EXTERNAL_TWO;
SET OutputRoot.XML.ChangeJob.DataArea.Job.ExternalNumbers.ExternalNumber[2].
(XML.Attribute)index=2;
SET OutputRoot.XML.ChangeJob.DataArea.Job.Location.GeobaseConverter = 'BALTCM';
SET OutputRoot.XML.ChangeJob.DataArea.Job.Location.Latitude =
InputRoot.XML.ATLAS_XY_QUERY.DataArea.Y_COORDINATE;
SET OutputRoot.XML.ChangeJob.DataArea.Job.Location.Longitude =
InputRoot.XML.ATLAS_XY_QUERY.DataArea.X_COORDINATE;
SET OutputRoot.XML.ATLAS_XY_QUERY = NULL;
ELSE
Throw user exception message 2593 values ('Unsuccessful XY Retrieval from Atlas');

END IF;