RE: Binding Directory doesn't include all modules?

[jstevens@xxxxxxxxxxxxxx]

That was it!

Thanks Wilt!


Jeff Stevens
Mize, Houser & Co. P.A.
913 451 1882
JStevens@xxxxxxxxxxxxxx





"Wilt, Charles" <CWilt@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/28/2005 12:30 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Binding Directory doesn't include all modules?






> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
> jstevens@xxxxxxxxxxxxxx
> Sent: Tuesday, June 28, 2005 1:10 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Binding Directory doesn't include all modules?
> 
> 
> Wilt,
> 
> Thanks for looking into this!
> 
> Here's the PR for Mod2...
>       // copy to QTEMP of source file
>      D BuildQTEMP      PR                  EXTPGM('FTP01C')
>      D                               10a   CONST
>      D                               10a   CONST
>      D                               10a   CONST
> 

There's your problem... EXTPGM - "External Program"

That means BuildQTEMP is called with a dynamic program call ( ie. the same 
as the old CALL op-code).

You need EXTPROC - "External Procedure"

> 
> 
> Here's how I call it...
> 
>         // Place copy of source file in QTEMP
>         BuildQTEMP(Library:File:Member);
> 

That's fine.

> 
> Mod2  is a CL - Maybe that's my problem?  - Here's the CL...
>              PGM        PARM(&LIBRARY &FILE &MEMBER)
> 
> 
>              DCL        VAR(&LIBRARY) TYPE(*CHAR) LEN(10)
>              DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
>              DCL        VAR(&MEMBER) TYPE(*CHAR) LEN(10)
> 
> 


Assuming Mod2 is of type CLLE and you used the CRTCLMOD command, it will 
work fine.


HTH,

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121