Re: Convert C Prototype to RPG

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