| midrange.com code scratchpad |
|
Name:
RPGIV Java interface V6.1
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
06/10/2009 08:32:28 pm
|
IP:
Logged
|
|
|
Description:
Can not determine the reason(s) for the RNF errors on the compile
|
|
Code:
-
- D testaccc...
- D PR ExtPgm('TESTACCC')
-
- D setAcctCodesInRevChain...
- D PR N ExtProc(*JAVA :
- D 'com.paetec.oss.accm.+
- D AcctCodeChangesInterface' :
- D 'setAcctCodesInRevChain')
- D O Class(*JAVA : 'java.lang.String')
- D Const
- D 10I 0 Value
- D 20I 0 Dim(132000)
- D Options(*VARSIZE)
- D Const
- D O Class(*JAVA : 'java.lang.String')
- D Dim(132000)
- D Options(*VARSIZE)
- D Const
- D O Class(*JAVA : 'java.lang.String')
- D Dim(132000)
- D Options(*VARSIZE)
- D Const
- D O Class(*JAVA : 'java.lang.String')
- D Dim(132000)
- D Options(*VARSIZE)
- D Const
-
- D constructJString... Java String
- D PR O ExtProc(*JAVA : Constructor
- D 'java.lang.String' :
- D *CONSTRUCTOR)
- D 1048576A Const Varying
-
- D jStringToRString...
- D PR 1048576A ExtProc(*JAVA :
- D 'java.lang.String' :
- D 'getBytes')
- D Varying
-
- D custAcctNum S O Class(*JAVA : 'java.lang.String')
- D acctCodeLength S 10I 0
- D acctCodes S 20I 0 Dim(132000)
- D acctCodeNames S O Class(*JAVA : 'java.lang.String')
- D Dim(132000)
- D acctCodeDepts S O Class(*JAVA : 'java.lang.String')
- D Dim(132000)
- D acctCodeRegions...
- D S O Class(*JAVA : 'java.lang.String')
- D Dim(132000)
- D Response S N
-
- D x S 10I 0
-
- D testaccc...
- D PI
-
- /Free
- custAcctNum = constructJString('1234567');
-
- acctCodeLength = 11;
-
- //load the arrays.
- For x = 1 to 3;
- acctCodes(x) = x;
-
- acctCodeNames(x) = constructJString('Tim ' + %char(x));
-
- acctCodeDepts(x) = constructJString(%char(x));
-
- acctCodeRegions(x) = constructJString(%char(x));
- EndFor;
-
- Response = setAcctCodesInRevChain(custAcctNum :
- RNF5406 The call passed fewer parameters than the prototype indicates are required.
- acctCodeLength :
- RNF7536 The type of parameter 2 specified for the call does not match the prototype.
- acctCodes :
- RNF5343 Array has too many omitted indexes; specification is ignored.
- acctCodeNames :
- RNF7536 The type of parameter 4 specified for the call does not match the prototype.
- acctCodeDepts :
- acctCodeRegions);
-
-
- *INLR = *ON;
- Return;
-
- /End-Free
-
- /*=============================================================================================
|
|
|
|