|
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 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.
midrange.com
