[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: R: Base64



Hello,

If this GetInnerDoc is supposed to be called by HTTPAPI's XML parser, 
then Element_Val_t is defined wrong.  It should be defined like this:

    D Element_Val_t   ds                  qualified
    D   buf                           *
    D   len                         10i 0



On 6/8/2011 9:26 AM, Bing@xxxxxxxxxx wrote:
>
>     Hi Luciano
>     I get a new problem now. I try to make as descripted in Parse innerxml
>     in base64 format.
>     >  P GetInnerDoc     B                   export
>     >  D GetInnerDoc     PI
>     >  D   filename                    50a   varying
>     >  D   depth                       10I 0 value
>     >  D   name                      1024A   varying const
>     >  D   path                     24576A   varying const
>     >  D   value                             likeds(Element_Val_t)
>     >  D   Attrs                         *   dim(32767)
>     >  D                                     const options(*varsize)
>     >  D fd              s             10i 0
>     >  D fd3             s             10I 0
>     >  D len             s             10I 0
>     >  D buf             s          32768A
>     >  D outbuf          S          24576A
>     >  D outlen          S             10I 0
>     >
>     >   /free
>     >
>     >     if path = '/soapenv:Envelope/soapenv:Body/'
>     >             + 'rs:getContentResponse';
>     >       if (name = 'content:content');
>     >         fd = open( filename
>     >                   : O_CREAT + O_TRUNC + O_WRONLY + O_CCSID
>     >                     + O_TEXTDATA + O_TEXT_CREAT
>     >                   : S_IRUSR + S_IWUSR
>     >                   : 819
>     >                   : 0 );
>     >         // FIXME: Add error handling.
>     >
>     >         outlen = base64_decode( value.buf
>     >                   : value.len
>     >                   : %addr(outbuf)
>     >                   : %size(outbuf) );
>     >
>     >         callp write(fd: %addr(outbuf): outlen);
>     >
>     >         callp close(fd);
>     >       endif;
>     >     endif;
>     >   /end-free
>     >  P                 E
>     Element_Val_t is not defined. I defined this on top of my program.
>     D Element_Val_t   ds                  qualified
>     D   data                          *
>     D   buf                      32768A
>     D   len                         10i 0
>     When I compile my program, I get error message.
>     *RNF7536 30   3125 028300  The type of parameter 1 specified for the
>     call does not
>                                match the prototype.
>
>     Parameter 1 is value.buf.
>     Can you help me with this?
>     Best regards
>     Y. B. Chang
-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------