Re: Convert C Prototype to RPG

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

Not personally  - but it is usually not that difficult as long as they have not used too many unusual parameter types.

Scott Klement has a copy of IBM's document on his web site (http://www.scottklement.com/rpg/callc.html) which includes examples for common situations.

There are also many of us on this list who can help if you get stuck on a specific API.


On 2013-09-16, at 3:20 PM, Larry Moore <moolar@xxxxxxxxxxxxxxxxxxxxx> wrote:

> I need to interface our payroll program with Vertex Q Series payroll tax
> software. The Vertex functions are written in C and our payroll programs
> are in RPG. I am not proficient in the C language and Vertex support
> doesn't know RPG so I'm struggling to prototype their functions in my
> program.  Has anyone integrated with Vertex using their Enhance
> Integration XML api's?
>
>
>
> Here's the definition of one of their functions:
>
>
>
>   Parameter                            Use            Description
>
>
>        ----------                             ----
> -----------------------------------------                     
>
>        lConnHdl                              I     The connection
> handle returned from VprtOpenPRT               
>
>        Session                              I/O   Pointer to the
> session handle, which will  hold the context for this session. Should be
> initialized to NULL before the first call. 
>
>        XmlBuf                                  I     Character string
> containing XML request                       
>
>        XmlResult                           O     Pointer to character
> string where the result  will be stored
>
>
>        pResultSize                         I     On input, the size of
> the XmlResult buffer                    
>
>
> PREFIX int POSTFIX VprtXML(tVprtConn lConnHdl, void **pSession, char
> *XmlBuf, char *XmlResult, long *pResultSize);
>
>
>
>
> Here's an example of what I tried but it doesn't appear to be correct
> because nothing happens when I execute.  Any suggestions?  I am able to
> open a connection to the database and create the connection handle using
> another api.    
>
>
>
>     D VprtXML         PR                  EXTPROC(*CWIDEN: 'VprtXML')
>
>     D  pConn                          *   value options(*string)
>
>     D  pSession                       *   value options(*string)
>
>     D  pXmlBuf                        *   value options(*string)
>
>     D  pXmlResult                     *   value options(*string)
>
>     D  pResultSize                  10I 0
>
>
>
>           xml = '<QUERY> ' +
>
>                 '<PAYDATE>20130901</PAYDATE> ' +
>
>                 '<GEOSTATE>39</GEOSTATE> ' +
>
>                 '<GEOCNTY>129</GEOCNTY> ' +
>
>                 '<GEOCITY>2560</GEOCITY> ' +
>
>                 '<TAXID>537</TAXID> ' +
>
>                 '<GET> ' +
>
>                 '<TAXNAMES/> ' +
>
>                 '</GET> ' +
>
>                 '</QUERY>' + NULL;
>
>
>
>           xml         = cvtCCSID( xml: 819: NULL);
>
>           pConnection = %addr(lConHnd);
>
>           pSession    = %addr(session);
>
>           pXmlBuf     = %addr(xml);
>
>
>
>
>
>           VprtXML(pConnection: pSession: pXmlBuf: pXmlResult:
> pResultSize);
>
>
>
> Thanks,                                               
>
>
>
> Larry Moore * Covenant Transportation Group *  Systems Analyst *
> 423.463.3374
>
>
>
>
> ______________________________________________________________________
> This communication and the information transmitted is intended solely for the individual or entity to which it is addressed and may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of or taking action in reliance upon this information by persons or entities other than the intended recipient is prohibited. If you have received this email in error please contact the sender immediately and delete the material from any computer. As a recipient of this email, you are responsible for screening its contents and the contents of any attachments for the presence of viruses. Covenant Transportation Group, Inc. and it's subsidiary Covenant Transport, Inc. accept no liability for any damages caused by any virus transmitted by this email.
> -- 
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com