|
midrange.com
--
--
[ Picked text/plain from multipart/alternative ]
Hi,
Could anybody see what is wrong with below module? I am getting
*RNF5407 20 1 More parameters were passed in the prototyped call than
are
allowed.
thx in advance,
ali
Module callRtv:
=============
hnomain
*///////////////////////////////////////////////////////////////////////
* Global fields
*///////////////////////////////////////////////////////////////////////
D fAlphaValue S O CLASS(*JAVA:'java.lang.String')
D fError S O CLASS(*JAVA:'java.lang.String')
D fDecValue S 5I 0
*///////////////////////////////////////////////////////////////////////
* Prototyes for native methods
*///////////////////////////////////////////////////////////////////////
D callPgm PR N EXTPROC(*JAVA:
D 'CallRtvInfo':
D 'callPgm')
D pRtvPgm O CLASS(*JAVA:'java.lang.String')
D pPgmName O CLASS(*JAVA:'java.lang.String')
D pPgmType O CLASS(*JAVA:'java.lang.String')
D pInfo O CLASS(*JAVA:'java.lang.String')
D pLoopLevel 5I 0 value
D pLoopIndex O CLASS(*JAVA:'java.lang.String')
D pAlpha N value
D pAlphaValue O CLASS(*JAVA:'java.lang.String')
D pDecValue 5I 0 value
D getError PR O EXTPROC(*JAVA:
D 'CallRtvInfo':
D 'getError')
D CLASS(*JAVA:'java.lang.String')
D getAlphaValue PR O EXTPROC(*JAVA:
D 'CallRtvInfo':
D 'getAlphaValue')
D CLASS(*JAVA:'java.lang.String')
D getDecValue PR 5I 0 EXTPROC(*JAVA:
D 'CallRtvInfo':
D 'getDecValue')
*///////////////////////////////////////////////////////////////////////
* Native methods
*///////////////////////////////////////////////////////////////////////
P callPgm B EXPORT
D callPgm PI N
D pRtvPgm O CLASS(*JAVA:'java.lang.String')
D pPgmName O CLASS(*JAVA:'java.lang.String')
D pPgmType O CLASS(*JAVA:'java.lang.String')
D pInfo O CLASS(*JAVA:'java.lang.String')
D pLoopLevel 5I 0 value
D pLoopIndex O CLASS(*JAVA:'java.lang.String')
D pAlpha N value
D pAlphaValue O CLASS(*JAVA:'java.lang.String')
D pDecValue 5I 0 value
D wRtvPgm S 10A
D wPgmName S 10A
D wPgmType S 10A
D wInfo S 5A
D wLoopLevel S 5S 0
D wLoopIndex S 250A
D wAorD S 1A
D wAlphaValue S 256A
D wDecValue S 5S 0
D wError S 60A
D*
D* Prototypes.
D*
D makeString PR O EXTPROC(*JAVA:
D 'java.lang.String':
D *CONSTRUCTOR)
D CLASS(*JAVA:'java.lang.String')
D wParm 256A const varying
D*
D crtString PR O EXTPROC(*JAVA:
D 'java.lang.String':
D *CONSTRUCTOR)
D CLASS(*JAVA:'java.lang.String')
*
D getBytes PR 256A EXTPROC(*JAVA:
D 'java.lang.String':
D 'getBytes') VARYING
*
D getLength PR 10I 0 EXTPROC(*JAVA:
D 'java.lang.String':
D 'length')
/free
wRtvPgm=getBytes(pRtvPgm);
wPgmName=getBytes(pPgmName);
wPgmType=getBytes(pPgmType);
wInfo=getBytes(pInfo);
wLoopLevel=pLoopLevel;
wLoopIndex=getBytes(pLoopIndex);
wAlphaValue=getBytes(pAlphaValue);
wDecValue=pDecValue;
wError=*blanks;
if (pAlpha=*ON);
wAorD='A';
else;
wAorD='D';
endif;
/end-free
c call wRtvPgm 90
c parm wPgmName
c parm wPgmType
c parm wInfo
c parm wLoopLevel
c parm wLoopIndex
c parm wAorD
c parm wAlphaValue
c parm wDecValue
c parm wError
c if *in90=*on
c eval wError='Program '+wRtvPgm+' has
failed.'
c end
/free
fAlphaValue=makeString(wALphaValue);
fDecValue=wDecValue;
if (wError<>*Blanks);
fError=makeString(wError);
return *ON;
else;
fError=crtString(wError);
return *OFF;
endif;
/end-free
P callPgm E
P getError B EXPORT
D getError PI O CLASS(*JAVA:'java.lang.String')
/free
return fError;
/end-free
P getError E
P getAlphaValue B EXPORT
D getAlphaValue PI O CLASS(*JAVA:'java.lang.String')
/free
return fAlphaValue;
/end-free
P getAlphaValue E
P getDecValue B EXPORT
D getDecValue PI 5I 0
/free
return fDecValue;
/end-free
P getDecValue E
--
hnomain
*///////////////////////////////////////////////////////////////////////
* Global fields
*///////////////////////////////////////////////////////////////////////
D fAlphaValue S O CLASS(*JAVA:'java.lang.String')
D fError S O CLASS(*JAVA:'java.lang.String')
D fDecValue S 5I 0
*///////////////////////////////////////////////////////////////////////
* Prototyes for native methods
*///////////////////////////////////////////////////////////////////////
D callPgm PR N EXTPROC(*JAVA:
D 'CallRtvInfo':
D 'callPgm')
D pRtvPgm O CLASS(*JAVA:'java.lang.String')
D pPgmName O CLASS(*JAVA:'java.lang.String')
D pPgmType O CLASS(*JAVA:'java.lang.String')
D pInfo O CLASS(*JAVA:'java.lang.String')
D pLoopLevel 5I 0 value
D pLoopIndex O CLASS(*JAVA:'java.lang.String')
D pAlpha N value
D pAlphaValue O CLASS(*JAVA:'java.lang.String')
D pDecValue 5I 0 value
D getError PR O EXTPROC(*JAVA:
D 'CallRtvInfo':
D 'getError')
D CLASS(*JAVA:'java.lang.String')
D getAlphaValue PR O EXTPROC(*JAVA:
D 'CallRtvInfo':
D 'getAlphaValue')
D CLASS(*JAVA:'java.lang.String')
D getDecValue PR 5I 0 EXTPROC(*JAVA:
D 'CallRtvInfo':
D 'getDecValue')
*///////////////////////////////////////////////////////////////////////
* Native methods
*///////////////////////////////////////////////////////////////////////
P callPgm B EXPORT
D callPgm PI N
D pRtvPgm O CLASS(*JAVA:'java.lang.String')
D pPgmName O CLASS(*JAVA:'java.lang.String')
D pPgmType O CLASS(*JAVA:'java.lang.String')
D pInfo O CLASS(*JAVA:'java.lang.String')
D pLoopLevel 5I 0 value
D pLoopIndex O CLASS(*JAVA:'java.lang.String')
D pAlpha N value
D pAlphaValue O CLASS(*JAVA:'java.lang.String')
D pDecValue 5I 0 value
D wRtvPgm S 10A
D wPgmName S 10A
D wPgmType S 10A
D wInfo S 5A
D wLoopLevel S 5S 0
D wLoopIndex S 250A
D wAorD S 1A
D wAlphaValue S 256A
D wDecValue S 5S 0
D wError S 60A
D*
D* Prototypes.
D*
D makeString PR O EXTPROC(*JAVA:
D 'java.lang.String':
D *CONSTRUCTOR)
D CLASS(*JAVA:'java.lang.String')
D wParm 256A const varying
D*
D crtString PR O EXTPROC(*JAVA:
D 'java.lang.String':
D *CONSTRUCTOR)
D CLASS(*JAVA:'java.lang.String')
*
D getBytes PR 256A EXTPROC(*JAVA:
D 'java.lang.String':
D 'getBytes') VARYING
*
D getLength PR 10I 0 EXTPROC(*JAVA:
D 'java.lang.String':
D 'length')
/free
wRtvPgm=getBytes(pRtvPgm);
wPgmName=getBytes(pPgmName);
wPgmType=getBytes(pPgmType);
wInfo=getBytes(pInfo);
wLoopLevel=pLoopLevel;
wLoopIndex=getBytes(pLoopIndex);
wAlphaValue=getBytes(pAlphaValue);
wDecValue=pDecValue;
wError=*blanks;
if (pAlpha=*ON);
wAorD='A';
else;
wAorD='D';
endif;
/end-free
c call wRtvPgm 90
c parm wPgmName
c parm wPgmType
c parm wInfo
c parm wLoopLevel
c parm wLoopIndex
c parm wAorD
c parm wAlphaValue
c parm wDecValue
c parm wError
c if *in90=*on
c eval wError='Program '+wRtvPgm+' has failed.'
c end
/free
fAlphaValue=makeString(wALphaValue);
fDecValue=wDecValue;
if (wError<>*Blanks);
fError=makeString(wError);
return *ON;
else;
fError=crtString(wError);
return *OFF;
endif;
/end-free
P callPgm E
P getError B EXPORT
D getError PI O CLASS(*JAVA:'java.lang.String')
/free
return fError;
/end-free
P getError E
P getAlphaValue B EXPORT
D getAlphaValue PI O CLASS(*JAVA:'java.lang.String')
/free
return fAlphaValue;
/end-free
P getAlphaValue E
P getDecValue B EXPORT
D getDecValue PI 5I 0
/free
return fDecValue;
/end-free
P getDecValue E
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
