variable size entry parms -
Post Reply   Forum
Posted by: E. Swistak
Thu, Jan 30, 2003, 16:47:35

Edit
Can anyone help please!!!

I need to pass variable Parms to RPGLE program. Once in program, need to execute CEEDOD API. Then, parse out data as needed.

I can get the following code to compile, but when executed, recieve:

Missing operational descriptor.
Function check. CEE0502 unmonitored by TST05R at statement 0000000031,
instruction X'0000'.

****
H DFTACTGRP(*NO)
* Prototype for procedure
D Tst05r PR OpDesc
D Parm1 72A Const Options(*VarSize)
D Parm2 72A Const Options(*VarSize)
D Parm3 192A Const
D Parm4 192A Const Options(*NoPass)
D Tst05r PI OpDesc
D Parm1 72A Const Options(*VarSize)
D Parm2 72A Const Options(*VarSize)
D Parm3 192A Const
D Parm4 192A Const Options(*NoPass)
D*
* Retrieve Operational Descriptors API
D ParmNum 10I 0 Const
D 10I 0
D 10I 0
D 10I 0
D 10I 0
D 10I 0
D 12A Options(*Omit)
C Eval NoParms = %Parms

blows up here ...
C CallP CEEDOD(1: DescType:
C DataType : DescInfo1:
C DescInfo2 : ParmLen :
C *Omit)
* *Exit the Program
C Eval *InLR = *On
C Return

Here is compile command:
CRTBNDRPG PGM(mylib/TST05R)





Post Reply | Email Friend | Alert   Current page