Re: Help consume Web Service

[Thomas Raddatz <thomas.raddatz@xxxxxxxxxxx>]

You are welcome. Thanks to your patience another bug has been eliminated.

Thomas.

Alvaro Orlando Salazar Martinez schrieb:
> Excellent Thomas, everything works Ok. Thousand and thousand thanks for your help.
> 
> Saludos, 
>  
> Alvaro Orlando Salazar Martínez  
> Ingeniero Sistemas de Información
> Unidad de Tecnología Informática COOMEVA
> Certificados ISO 9001 - Valorados CMMI Nivel 3
> www.coomeva.com.co 
> Teléfono: (57) 2- 333 0000 Ext. 1293
> Dirección: Calle 13 No. 57 - 50 
> Cali - Valle 
> Colombia 
> 
> Unidad de Tecnología Informática Coomeva
> **************************************************
> Comprometidos con el mejoramiento de la productividad, con soluciones informáticas fiables, prácticas e innovadoras.
> 
> Favor piense en el medioambiente, antes de imprimir este mensaje
> 
> -----Mensaje original-----
> De: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] En nombre de thomas.raddatz@xxxxxx
> Enviado el: 2009-06-22 02:06
> Para: ftpapi@xxxxxxxxxxxxxxxxxxxxxx
> Asunto: [!! SPAM] Re: Help consume Web Service
> 
> 
> 
> Alvaro,
> 
> It seems as if we had located the '#' literal in WSDL2R94 as the root of
> the problem. Please replace source member WSDL2R94 with the one attached to
> this e-mail and compile it. Then recreate service program WSDL2RPGRT or
> rerun the installer of WSDL2RPG (A_INSTALL).
> 
> I changed the following lines and hope that it will work for you:
> 
> Added:
> 
>     *
>     * ------------------------------------
>     *  Constants
>     * ------------------------------------
>    D cNUMBER_SIGN    C                   const(u'0023')
> 
> Changed (MultiRef_isReference):
> 
>    hRef = XMLSAXParser_getAttributeValueByQName(i_attrs: cATTR_HREF);
>    if (%len(hRef) > 1 and %ucs2(%subst(hRef: 1: 1)) = cNUMBER_SIGN);
>       return cTrue;
>    else;
>       return cFalse;
>    endif;
> 
> Changed ():
> 
>    hRef = XMLSAXParser_getAttributeValueByQName(i_attrs: cATTR_HREF);
>    if (%len(hRef) > 1 and %ucs2(%subst(hRef: 1: 1)) = cNUMBER_SIGN);
>       hRef = %subst(hRef: 2);
>    endif;
> 
> 
> Thomas.
> 

-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------