RE: Prototyped Call to 3rd party software

   This looks okay to me; I suspect the problem is somewhere else.  Start by
   commenting this code out to check the other stuff.  

   Make sure your job log is set to (4 0 *seclvl) logclpgm(*yes) and review
   it after a failed compile.

   Some commands have a "listing detail" option.  Set it to the next level
   and normally you'll find the problem in the resulting output.

   -irg

    

   >From: "Malchow, Grizzly" <GMalchow@xxxxxxxxxxxxxxxxxxxxx>

   >Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
   >To: <rpg400-l@xxxxxxxxxxxx>
   >Subject: Prototyped Call to 3rd party software
   >Date: Sat, 8 May 2004 10:31:31 -0500
   >
   >I'm in trying to call 3rd party program with CALLP. When I compile the
   >program I get errors stating that errors were found during the binding
   >step. I'm already binding to the QC2LE directory for other prototypes
   >I'm using so that might be the problem.
   >
   >I'll most the prototype definition and the callp statement that I think
   >is causing the binding errors. I can't /COPY the source member for PROG1
   >and it is an OPM program.
   >
   >
   >
   >H dftactgrp(*no) bnddir('QC2LE')
   >
   >
   >
   >D Call3rdPty       PR                  EXTPGM('PROG1')
   >
   >D Parm1                        8
   >
   >D Parm2                        2P 0
   >
   >D Parm3                       10
   >
   >/free
   >
   >  callp Call3rdPty(val1:val2:val3);
   >
   >/End-free
   >
   >
   >
   >Can anyone see what I am missing?  Should I use QCMDEXC or SYSTEM
   >prototype instead?
   >
   >
   >
   >_______________________________________________
   >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.
   >

     ----------------------------------------------------------------------

   Express yourself with the new version of MSN Messenger! Download today -
   it's FREE!