RE: Service programs, procedures, not sure what to do

That's what I was trying to figure out. Compiling as a service program I get
the same error, return value not allowed for the main procedure



FCodeFF00 if e k disk

d CODE001R PR 1n

d cdGroup_ 3s 0 const

d cdCode_ 50a const

d CODE001R PI 1n

d cdGroup_ 3s 0 const

d cdCode_ 50a const

d exists_ like(*in01)

**



chain (cdGroup_:cdCode_) Codeff00r;

if %found;

exists_ = *on;

else;

exists_ = *off;

endif;



return exists_;





Thanks for quick responses...



-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff
Young
Sent: Tuesday, January 06, 2015 1:47 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Service programs, procedures, not sure what to do



Jack,

A *program* can not return data.

If you need to return data from another program, define the return field a
parameter in the caller and called program.

If you create a service program with your procedure, that can return a
parameter with no problem.



Jeff Young

Sr. Programmer Analyst



On Tue, Jan 6, 2015 at 1:38 PM, Jack Tucky < <mailto:jacktucky@xxxxxxxxx>
jacktucky@xxxxxxxxx> wrote:

If I want to put this code in another program, how would I define the

procedure there?

On Jan 6, 2015, at 1:31 PM, Buck Calabro < <mailto:kc2hiz@xxxxxxxxx>

kc2hiz@xxxxxxxxx> wrote:

On 1/6/2015 12:29 PM, Jack Tucky wrote:

I tried to code the PR/PI in my first RPG and it says I can't

return a value. Do I need something different? Sorry I'm so

vague. I'm still

not

where I need to be on procedures/service programs, etc.

In order to return a value, you need to tell the procedure interface

(and prototype) that. Here is an example of a procedure that takes

a 10 character 'date' and converts it into an 8 digit number. The

place where we define what gets returned is on the PI spec; here it's

'8s 0'.

The actual /value/ that gets returned is in the return statement

(here, unimaginatively called retVal).

* convert 'yyyy-mm-dd' to yyyymmdd

p date10to8 b

d date10to8 pi 8s 0

d date10 10a const

...

d retVal s 8s 0 inz

...

return retVal;

p e

You'd do something similar with your 'return the next number' procedure.

--

--buck

'I had nothing to offer anybody except my own confusion' - Jack

Kerouac

--

This is the RPG programming on the IBM i (AS/400 and iSeries)

(RPG400-L)

mailing list

To post a message email: <mailto:RPG400-L@xxxxxxxxxxxx>

RPG400-L@xxxxxxxxxxxx To subscribe,

unsubscribe, or change list options,

visit: <http://lists.midrange.com/mailman/listinfo/rpg400-l>

http://lists.midrange.com/mailman/listinfo/rpg400-l

or email: <mailto:RPG400-L-request@xxxxxxxxxxxx>

RPG400-L-request@xxxxxxxxxxxx Before posting, please take

a moment to review the archives at

<http://archive.midrange.com/rpg400-l>

http://archive.midrange.com/rpg400-l.

--

This is the RPG programming on the IBM i (AS/400 and iSeries)

(RPG400-L) mailing list To post a message email:

<mailto:RPG400-L@xxxxxxxxxxxx> RPG400-L@xxxxxxxxxxxx

To subscribe, unsubscribe, or change list options,

visit: <http://lists.midrange.com/mailman/listinfo/rpg400-l>

http://lists.midrange.com/mailman/listinfo/rpg400-l

or email: <mailto:RPG400-L-request@xxxxxxxxxxxx>

RPG400-L-request@xxxxxxxxxxxx Before posting, please take a

moment to review the archives at <http://archive.midrange.com/rpg400-l>

http://archive.midrange.com/rpg400-l.

--

This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: <mailto:RPG400-L@xxxxxxxxxxxx>
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,

visit: <http://lists.midrange.com/mailman/listinfo/rpg400-l>
http://lists.midrange.com/mailman/listinfo/rpg400-l

or email: <mailto:RPG400-L-request@xxxxxxxxxxxx>
RPG400-L-request@xxxxxxxxxxxx

Before posting, please take a moment to review the archives at
<http://archive.midrange.com/rpg400-l> http://archive.midrange.com/rpg400-l.