|
SCarter@xxxxxxxxxxx wrote: > > I am getting bad data being from a called program. Causing decimal data > errors when sending data back to the calling program,. > I have a created a small program to get information from a file and pass it > back to a calling program. This program is compiled with crtbndRPG and is > not a real Proc > > getinfo program > D getlast pr extpgm('PRR353') > d ssnox like(ssno) > d best like(last) > d prvsupssn like(supssn) > ... 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)
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.