[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Using an array DS in callback of http_url_post_xml
Hi Mike,
It appears you've forgotten to code the DIM keyword on the PR/PI for
getResponse(). You probably want something like this:
D getResponse PR
D response_arr likeds(getCoverOptionResponse)
D dim(%elem(getCoverOptionResponse))
D depth 10I 0 value
D name 1024A varying const
D path 24576A varying const
D value 32767A varying const
D attrs * dim(32767)
D const options(*varsize)
(you need that on both the PI and the PR)
Good luck
Eftimios Pantzopoulos wrote:
> D getResponse PR
>
> D response_arr likeds(getCoverOptionResponse)
>
> D depth 10I 0 value
>
> D name 1024A varying const
>
> D path 24576A varying const
>
> D value 32767A varying const
>
> D attrs * dim(32767)
>
> D const options(*varsize)
>
>
>
> And here is the PI in the procedure:
>
>
>
> p getResponse B
>
> d getResponse PI
>
> d response_arr likeds(getCoverOptionResponse)
>
> d depth 10I 0 value
>
> d name 1024A varying const
>
> d path 24576A varying const
>
> d value 32767A varying const
>
> d attrs * dim(32767)
>
> d const options(*varsize)
>
>
>
> Here is the code failing compilation:
>
> Select;
>
> When name = 'ns1:CoverOptionCode';
>
> Index += 1;
>
>
>
> When name = 'ns1:BuildingsFlag';
>
> response_arr(index).BuildingsFlag= value;
>
>
>
> When name = 'ns1:ContentsFlag';
>
> response_arr(index).ContentsFlag= value;
>
>
>
> When name = 'ns1:CoverLevel';
>
> response_arr(index).CoverLevel= value;
>
>
>
> When name = 'ns1:CoverOption';
>
> response_arr(index).CoverOption= value;
>
>
>
> When name = 'ns1:ProductFilter';
>
> response_arr(index).ProductFilter= value;
>
>
>
> EndSl;
>
>
>
> I am getting:
>
>
>
> *RNF7030 30 5 The name or indicator is not defined.
>
> *RNF0528 20 5 Index is not allowed for name that is not an array;
>
>
>
> On the lines referencing response_arr.
>
>
>
> Appreciate your time Scott.
>
>
>
>
>
>
>
>
>
>
> _________________________________________________________________
>
> The information transmitted in this message and its attachments (if
> any) is intended only for the person or entity to which it is
> addressed.
>
> The message may contain confidential and/or privileged material. Any
> review, retransmission, dissemination or other use of, or taking of
> any action in reliance upon this information, by persons or entities
> other than the intended recipient is prohibited.
>
> If you have received this in error, please contact the sender and
> delete this e-mail and associated material from any computer.
>
> The intended recipient of this e-mail may only use, reproduce,
> disclose or distribute the information contained in this e-mail and
> any attached files, with the permission of the sender.
>
> This message has been scanned for viruses.
> _________________________________________________________________
>
>
>
> ------------------------------------------------------------------------
>
> -----------------------------------------------------------------------
> This is the FTPAPI mailing list. To unsubscribe, please go to:
> http://www.scottklement.com/mailman/listinfo/ftpapi
> -----------------------------------------------------------------------
-----------------------------------------------------------------------
This is the FTPAPI mailing list. To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------