Re: Need help with RPGIII function

[John Rusling <jrusling@xxxxxxxxxxxxxxxxxxx>]

In a service program -

getStatus(parmsStatus); (returns status code)
modifyStatus(parmdates:parmcontractinfo);  (returns indicator)


An RPGIV program that calls/uses the service program -
It returns a 1 character code that could be status or an indicator. (0,1)

*entry
parmsStatus (*omit)
parmdates (*omit)
parmcontractinfo (*omit)
returnvalue

What gets passed to RPGIV pgm determines whether it returns status or indicator.

scStatus = getStatus(parmsStatus);
protStatus = modifyStatus(parmdates:parmcontractinfo);



RPGIII program calls the RPGIV program that calls the functions in the above service program.

First draft, for what it's worth :--)

John B

> I think it really needs two functions : one for establishing the value of the status, so that function could eventually be > > shared by other programs, and another to let the RPGIII know if the field should be protected or not.
>
> How would you tackle this, especially the second function?