Parameter passing problems

[SCarter@xxxxxxxxxxx]

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)
d
D getlastblood    pi
d ssnox                               like(ssno)
d best                                like(last)
d prvsupssn                           like(supssn)


 /free
  chain(e) ssnoX pr58mf;
  if %found;
    eval bestblood = lastblood;
    eval prvsupssn = supssn;
  else;
    eval bestblood = 0;
    eval prvsupssn = 0;
  endif;


****************** End of data ***************************

Here is the calling program
D getlast         pr                  extpgm('PRR353')
d ssnox                               like(ssno)
d best                                like(last)
d prvsupssn                           like(supssn)


SSNO                  PACKED(9,0)          000000000.
SSNOX                 PACKED(9,0)           4 5 6 9 .
best                  PACKED(4,1)
PRVSUPSSN             PACKED(9,0)


                                                          RPG programming
on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


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.