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



Rick,
This was just a prototyped *entry not a procedure and I had the file on the
F spec....


J. Scott Carter
Programmer/Analyst
e-mail: Mailto:scarter@xxxxxxxxxxx
Phone: 214.583.0348

It's not the destination that counts in life it's the journey. The journey
with the people we love is all that really matters. Such a simple truth so
easily forgotten.


|---------+-------------------------------->
|         |           "Chevalier, Rick"    |
|         |           <Rick.Chevalier@xxxxx|
|         |           credit.com>          |
|         |           Sent by:             |
|         |           rpg400-l-bounces@xxxx|
|         |           ange.com             |
|         |                                |
|         |                                |
|         |           03/21/2003 11:34 AM  |
|         |           Please respond to RPG|
|         |           programming on the   |
|         |           AS400 / iSeries      |
|         |                                |
|---------+-------------------------------->
  
>--------------------------------------------------------------------------------------------------------------|
  |                                                                             
                                 |
  |       To:       "'RPG programming on the AS400 / iSeries'" 
<rpg400-l@xxxxxxxxxxxx>                           |
  |       cc:                                                                   
                                 |
  |       Subject:  RE: Parameter passing problems                              
                                 |
  
>--------------------------------------------------------------------------------------------------------------|




Scott,

Don't forget that data elements defined in a procedure are defined only to
that procedure by default.  I believe this may be behind why you can't use
a
file outside the procedure to define the interface fields.

Rick

-----Original Message-----
From: SCarter@xxxxxxxxxxx [mailto:SCarter@xxxxxxxxxxx]
Sent: Friday, March 21, 2003 10:30 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Parameter passing problems


Barbara,
No I do not have an externally defined DS for the like fields they were
both referencing the same file ( different logicals)

What I wound up doing is explicitly defining the fields 9s 0 and that fixed
the problem. I just could not understand why with the fields both
referencing the same file I had this problem....


J. Scott Carter
Programmer/Analyst
e-mail: Mailto:scarter@xxxxxxxxxxx
Phone: 214.583.0348

It's not the destination that counts in life it's the journey. The journey
with the people we love is all that really matters. Such a simple truth so
easily forgotten.


|---------+----------------------------->
|         |           Barbara Morris    |
|         |           <bmorris@xxxxxxxxx|
|         |           m>                |
|         |           Sent by:          |
|         |           rpg400-l-bounces@x|
|         |           idrange.com       |
|         |                             |
|         |                             |
|         |           03/20/2003 07:51  |
|         |           PM                |
|         |           Please respond to |
|         |           RPG programming on|
|         |           the AS400 /       |
|         |           iSeries           |
|         |                             |
|---------+----------------------------->

>
---------------------------------------------------------------------------
-----------------------------------|
  |
|
  |       To:       rpg400-l@xxxxxxxxxxxx
|
  |       cc:
|
  |       Subject:  Re: Parameter passing problems
|

>
---------------------------------------------------------------------------
-----------------------------------|





Scott, do you have an externally-described DS for your LIKE fields in
one program and not the other?  That could cause a field that is zoned
in your file to be zoned in one program and not the other.  (See here
for the reason why this happens
http://faq.midrange.com/data/cache/56.html)

The way I would fix this is I would add a qualified or prefixed
externally-described DS in the /copy file with the prototype, and code
my parameters LIKE the ext-ds subfields.

   * prototype /copy file
  D myfile_types       e ds            extname(myfile) qualified
  D                                    based(type_dummy)
  D getlast              pr            extpgm('PRR353')
  d  ssnox                             like(myfile_types.ssno)
  d  best                              like(myfile_types.last)
  d  prvsupssn                         like(myfile_types.supssn)
or
   * prototype /copy file
  D                    e ds            extname(myfile)
  D
prefix(myfile_types_)
  D                                    based(type_dummy)
  D getlast              pr            extpgm('PRR353')
  d  ssnox                             like(myfile_types_ssno)
  d  best                              like(myfile_types_last)
  d  prvsupssn                         like(myfile_types_supssn)

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


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.