RE: Parameter passing problems

["Chevalier, Rick" <Rick.Chevalier@xxxxxxxxxxxxxxx>]

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.