Re: RPG Program as a Stored Procedure

[Peter Dow <petercdow@xxxxxxxxx>]

Did you try it with the parenthesis around the IN parms?  Like this:

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 @pLogicalDate varchar(10),
IN @pStartDate varchar(10),
IN @pStartTime varchar(8),
IN @pStopDate varchar(10),
IN @pStopTime varchar(8),
IN @pHours float,
IN @pOrderNum float,
IN @pOrderStep float,
IN @pQtyGood dec(9.3),
IN @pQtyScrap dec(9.3),
IN @pScrapCode varchar(10),
IN @pCompltCode varchar(1),
IN @pReworkCode varchar(10),
IN @pDept varchar(4),
IN @pWorkCenter varchar(6),
IN @pMach varchar(10),
IN @pDownCode varchar(10),
IN @pNLaborType varchar(1),
IN @pShift varchar(3),
IN @pIndirect varchar(6),
IN p@Lot varchar(12),
IN @pAttrib1 varchar(15),
IN @pAttrib2 varchar(15),
IN @pAttrib3 varchar(15),
IN @pAttrib4 float,
IN @pAttrib5 float,
IN @pIsBckOt float,
IN @pDownNote varchar(255)
)
language RPGLE
specific V64BPCSUSR/SVLBRTEST
not deterministic
modifies SQL data
external name V64BPCSUSR/SVLBRTEST
parameter style general

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx>

/
On 8/7/2019 2:04 PM, THarteau@xxxxxxxxxxxxxxxxxx wrote:
> Hi,
>          Originally, I sent my Create Procedure command, but I did not send
> all the parameters, just to save on space. Here is the complete command,
> if it helps.
>
> 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 @pLogicalDate varchar(10),
> IN @pStartDate varchar(10),
> IN @pStartTime varchar(8),
> IN @pStopDate varchar(10),
> IN @pStopTime varchar(8),
> IN @pHours float,
> IN @pOrderNum float,
> IN @pOrderStep float,
> IN @pQtyGood dec(9.3),
> IN @pQtyScrap dec(9.3),
> IN @pScrapCode varchar(10),
> IN @pCompltCode varchar(1),
> IN @pReworkCode varchar(10),
> IN @pDept varchar(4),
> IN @pWorkCenter varchar(6),
> IN @pMach varchar(10),
> IN @pDownCode varchar(10),
> IN @pNLaborType varchar(1),
> IN @pShift varchar(3),
> IN @pIndirect varchar(6),
> IN p@Lot varchar(12),
> IN @pAttrib1 varchar(15),
> IN @pAttrib2 varchar(15),
> IN @pAttrib3 varchar(15),
> IN @pAttrib4 float,
> IN @pAttrib5 float,
> IN @pIsBckOt float,
> IN @pDownNote varchar(255)
> language RPGLE
> specific V64BPCSUSR/SVLBRTEST
> not deterministic
> modifies SQL data
> external name V64BPCSUSR/SVLBRTEST
> parameter style general
>
> <===================================================>
>
> Terri Harteau
> Felker Brothers Corporation
> ****************
> Practice random acts of kindness and senseless acts of beauty
> -Anonymous
> ****************



---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus