× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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



Here's how I call it...

        // Place copy of source file in QTEMP
        BuildQTEMP(Library:File:Member);


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)



Thanks


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:01 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?






Are you sure about that?

The CRTPGM should have failed if Mod2 was needed and wasn't being bound 
in.

What does you prototype in Mod1 look like for the procedure you think you 
are calling in Mod2?

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

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
> jstevens@xxxxxxxxxxxxxx
> Sent: Tuesday, June 28, 2005 12:56 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Binding Directory doesn't include all modules?
> 
> 
> Makeing a call from Mod1 to Mod2.  Not making any calls from Mod2.
> 
> 
> 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 11:53 AM
> 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?
> 
> 
> 
> 
> 
> 
> Jeff,
> 
> Are you actually calling any procedures in Mod2?
> 
> It won't be bound into the program unless it is being used.
> 
> Charles Wilt
> --
> iSeries Systems Administrator / Developer
> Mitsubishi Electric Automotive America
> ph: 513-573-4343
> fax: 513-398-1121
> 
> 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
> > jstevens@xxxxxxxxxxxxxx
> > Sent: Tuesday, June 28, 2005 12:23 PM
> > To: rpg400-l@xxxxxxxxxxxx
> > Subject: Binding Directory doesn't include all modules?
> > 
> > 
> > I've just read through the 2001 thread "Binding Directories", 
> > and I think 
> > I understand how binding directories should work. 
> > 
> > Here's my issue,
> > 
> > I have 2 modules, Mod1, Mod2 and want to bind them together using a 
> > binding directory.  Mod1 has the BNDDIR(Library/Pgm1) in the 
> > H spec.  Then 
> > I've created a binding directory called Pgm1, and added 
> > entries of Mod1 
> > and Mod2.
> > 
> > When I do a CRTPGM PGM(LIB/Pgm1)        MODULE(LIB/Mod1), I 
> > get a program 
> > with just Mod1 in it.  However, I was thinking that because 
> > of my H spec 
> > with the binding directory, I would get a program with Mod1 & 
> > Mod2 in it.
> > 
> > Of, course, I could do a CRTPGM PGM(LIB/Pgm1) MODULE(lib/Mod1 
> > lib/Mod2), 
> > and get a program with both modules in it, but I wanted to 
> > use the BNDDIR 
> > H spec keyword.
> > 
> > There are no service programs involved here.  Am I missing 
> something?
> > 
> > Thanks
> > 
> > Jeff Stevens
> > Mize, Houser & Co. P.A.
> > 913 451 1882
> > JStevens@xxxxxxxxxxxxxx
> > 
> > -- 
> > 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.
> > 
> > 
> 
> -- 
> 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.
> 
> 
> -- 
> 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.
> 
> 


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.