RE: Convert C-Prototype to RPG (V5R2)

["Bob Cozzi" <cozzi@xxxxxxxxx>]

All "int*" should be defined as 10i0 values, all "char*" are either pointer
variables with the OPTIONS(*STRING) keyword or declared a specific lengths,
probably using LIKEDS based on a data structure format.


-Bob Cozzi
www.RPGxTools.com
If everything is under control, you are going too slow.
- Mario Andretti

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of B.Quindt@xxxxxxxxxxxx
Sent: Thursday, May 12, 2005 1:29 PM
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;                                             
 
-- 
This is the RPG programming on the AS400 / 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.