Re: RPG Program as a Stored Procedure

Hi,
I tried prompting it first, but I did not see a place to enter the
parameters (IN), so I just typed it all in. Is there a way to enter a list
of parameters?

<===================================================>

Terri Harteau
Felker Brothers Corporation
****************
Practice random acts of kindness and senseless acts of beauty
-Anonymous
****************



From: Alan Campin <alan0307d@xxxxxxxxx>
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Date: 08/07/2019 02:56 PM
Subject: Re: RPG Program as a Stored Procedure
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>



As an aside, do you know that you can do a STRSQL, type CREATE and F4 and
you can select option 4 and it will give a fill in the blanks for building
a stored procedure call? I always use the system tools when I can.

Also as an aside, you can create stored procedures as a service program.
You can export one or more procedures from a service program and then each
can be made into a external stored procedures. Don't hold me but about 20%
faster.

Also, if you are going to create the stored procedure as a program create
it as a Main program (No RPG Cycle). Again makes it run quicker. Normally
you want a stored procedure to run as quick as possible.

On Wed, Aug 7, 2019 at 12:34 PM <THarteau@xxxxxxxxxxxxxxxxxx> wrote:

Hi,
I did this back in 2005 and it has been working fine ever since.

I

need to set up a similar RPGLE program and create an external stored
procedure, and I keep getting a token error. All the IN and INOUT are
defined as input parameters in my program, and it compiled successfully.
CREATE PROCEDURE V64BPCSUSR/SVLBRTEST
IN @pTransactionNum float,
IN @pRevisionDate varchar(25),
IN @pNRBDX float,
INOUT @pIsOK float,
INOUT @pErrorMessage varchar(255),
IN @pEmployeeId varchar(8),
IN @pDownNote varchar(255)
language RPGLE
specific V64BPCSUSR/SVLBRTEST
not deterministic
modifies SQL
external name V64BPCSUSR/SVLBRTEST
parameter style general

The error I am getting is
Token @PTRANSACTIONNUM was not valid. Valid tokens: :.

Can anyone tell me what I am missing? Thanks!

<===================================================>

Terri Harteau
Felker Brothers Corporation
****************
Practice random acts of kindness and senseless acts of beauty
-Anonymous
****************
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com