× 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.



Duane,
MODULEs should not be called, and can not be called using the dynamic call.
The program "source#1" is trying to do a dynamic call to the "source#2"
program. Since you have not creating a program named "source#2" it is not
found and you're getting the error you're getting.


Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Duane Kehoe
Sent: Tuesday, December 09, 2003 3:43 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Procedure Question

   Scott,

   My prototype in source#1 is:

                     ****************************
   0012.02       * Procedure Prototypes
   *                                                                       
   0012.03       ****************************
                                                                      
   0012.04      d ediprseg        pr                 
   extpgm('EDIPRSEG')                                  
   0012.05      d                             
   135a                                                            
   0012.06      d                                  3p
   0                                                           
   0012.07      d                               
   25a                                                            
   0012.08      d                                 
   1a                                                         
   0012.09      d                                 
   1a                                                            
   0012.10      d                                 
   1a                                                            
   0012.11      d                                  1a                       

   And the call used is:

   CALLP EDIPRSEG(indta:reqfld:field:found:segterm:elemsep:subelemsep);

   I am doing this in free format in case that matters.  Thanks again for
the
   help so far.

   Scott Mildenberger wrote:

 >From source #1 can we see the call and the prototype used?  As
 for this being your proof of concept, you will want to
 investigate putting any reusable procedures such as source #2
 into a service program.

 Scott Mildenberger
 --- Duane Kehoe <dkehoe@xxxxxxxxxxxxxx> wrote:
  

    I have left all activation groups to there defaults(because
 I really don't
    know what they are :-[ )  Also, I tried Bob's suggestion to
 reclaim
    activation groups without success.  The programs are
 parsing routines and
    reports.  What happens(in a nutshell) is source#1 reads a
 file containing
    EDI segments, source#2 is called to parse said EDI
 segments(which are
    passed into source#2 via parameters) and return the data
 contained in the
    requested element.  The reason I have 2 source files is I
 want to have
    source#2 be used by a number of other programs as the
 parsing logic is
    exactly the same regardless of what the caller / requester
 is doing with
    the data.  The current code base is being used as a proof
 of concept for
    procedures as our shop does not currently utilize them.  I
 do have the
    CALLP coded in source#1 as well, however it is my
 understanding that callp
    is inferred here, I may be wrong though.
    



 __________________________________
 Do you Yahoo!?
 New Yahoo! Photos - easier uploading and sharing.
 http://photos.yahoo.com/
 _______________________________________________
 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.


  

   --

   Weyco Group -             
                             
       Florsheim, Brass Boot, Nunn Bush, Stacy Adams
   Duane Kehoe                       Phone # 414.908.1814 
   EC / Programmer / Analyst           Fax # 414.908.1601 
                             Email: dkehoe@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.




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.