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)
|