RE: Convert C-Prototype to RPG (V5R2)

[Alan Campin <Alan.Campin@xxxxxxx>]

I found this online in manual SC271130.pdf. Sound like someone has already done 
it for you. 


Server Versions of the Content Manager for iSeries Client APIs The Content 
Manager for iSeries client APIs are also available as equivalent server APIs 
for the Content Manager for iSeries. Sample programs using some of these APIs 
are available in COBOL, RPG and C. For information, refer to the sample 
programs in the QSMPSRC source file in your QVI library. Also provided are 
sample data structures in the following source files: QVIRPGCPY, QVICBLCPY and 
H. Create your custom modules using ILE C/400R, ILE COBOL/400R, ILE RPG/400R, 
or VisualAge/400. Then create a program binding your new modules with service 
program QVIAPI. The Content Manager for iSeries Application Programming Guide & 
Reference (SC23-4586) may be used as a reference, noting these differences: v 
Pointers are 16 bytes on the Content Manager for iSeries, so all pointers 
returned in the RCSTRUCT are accessed through pParam2 instead of ulParam1 and 
ulParam2. v When running the APIs on the Content Manager for iSeries, the 
server code is run in the same job space as the application calling the APIs - 
a separate job is not started. v Only image data accessible on the Content 
Manager for iSeries can be opened through SimLibOpenObject. v Two workstation 
APIs do not have equivalent server versions. Sim400SendReceive and 
Sim400ConvertCodepage are available on the workstation only. v The VI400TST 
program is available to run on either the Content Manager for

-----Original Message-----
From: B.Quindt@xxxxxxxxxxxx [mailto:B.Quindt@xxxxxxxxxxxx]
Sent: Thursday, May 12, 2005 11:29 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Convert C-Prototype to RPG (V5R2)


Can anybody help me to convert the following C-Prototype / Procedure
to RPG ?

Thanks
Burkhard

int QVISNDRCV
    ( int  * pCommunication_Type,
      char * Partner_Address,
      char * Partner_TPName,
      char * Partner_Mode,
      int  * TCP_PortNumber,
      char * communication_handle,
 
      char * dllname,
      int  * phost_code_page,
      int  * pbuffer_size,
 
      char * buffer,
      int  * debug);


void main (void)
{
   char Partner_Addr[40]  = " ";
   char APPC_TPName[20]   = "EKDVICLA ";
   char APPC_ModeName[20] = " ";
   int  TCP_Port          = 31015;
   int  comm_type         = 0;
   int  code_page         = 0;
   char dllname[13]       = "            ";
   int  debug             = 1;
   int rc;
   int buf_size;
   char buffer[32768];
   char comm_handle[20] = " ";
   while (rc == 0)
   {           /* All parameters are passed by reference, not value */

      rc = QVISNDRCV (&comm_type,
                     Partner_Addr,
                     APPC_TPName,
                     APPC_ModeName,
                     &TCP_Port,
                     comm_handle,
                     dllname,
                     &code_page,
                     &buf_size,
                     buffer,
                     &debug);

      if (rc) return;