如何修复"dont get a clear Array after a Programm Call"

Question

我已经编写了一个程序来编码一些字符串。我写了一个第二个程序来调用这个编码工具。在这里，我创建了一个数组(a_FELDER)，并用一些文本填充它。在下面的Point1中，您可以看到我的编码工具。在Point2中，您可以看到来自我的数组和FOR-LOOP的声明。在Point 3中，调用编码工具。

在调用该工具之前，我的数组有三个数据集。当编码工具成功运行时，我的数组(A_FELDER)为空。

我试图更改*INLR=*ON；返回。但我得到了同样的结果。此外，我创建了第二个数组，并将该数组中的数据写回。结果相同，数组为空。

我将我的编码工具更改为参数后的程序输出。我的数组(A_FELDER)有三个数据集。所以我的猜测是：java调用清除了一些存储，而我的数组找不到他的空间。

点1

D Verschl         S               O   Class(*Java:'eirich.verschl.Verschl')
D $input          S           1024a                                        
D $output         S           1024a     
D new_Verschl     PR              O   EXTPROC(*JAVA:                  
D                                             'eirich.verschl.Verschl'
D                                             :*CONSTRUCTOR)           
D encrypt         PR              O   EXTPROC(*JAVA:                    
D                                             'eirich.verschl.Verschl': 
D                                             'encrypt')                
D                                     CLASS  (*JAVA:'java.lang.String') 
D  arg0                           O   CLASS  (*JAVA:'java.lang.String') 
C     *entry        plist                                     
C                   parm                    $input            
C                   parm                    $output           
/Free
//Generate new Object named Verschl              
Verschl     = new_Verschl();                   
//Trim and create Java String from input Parm    
fldjString  = makestring(%trimr($input));      
// ENCRYPT java String                           
fldjString2 = encrypt(Verschl:fldjString);     
//Convert jString in Alpha                       
fldBty      = cvtToBytes(fldjString2);         
//return value for call pgm                      
$output     = fldBty;

点2

D*                                            
D A_FELDER        S            256A   DIM(20) 
D* 
C                   EVAL      A_FELDER(1) = KOFIRM     
C                   EVAL      A_FELDER(2) = HEAUNR     
C                   EVAL      A_FELDER(3) = KOAUNR 
C*
C                   FOR       COUNT = 1 TO %ELEM(A_FELDER)     
C*                                                             
C                   IF        A_FELDER(COUNT) <> *BLANKS       
C*                                                             
C                   EVAL      I_UNVERSCHL_J = A_FELDER(COUNT)  
C                   EXSR      DATAENCRYPT                      
C                   EVAL      A_FELDER(COUNT) = I_VERSCHL      
C*                                                             
C                   ENDIF                                      
C*                                                             
C                   ENDFOR     

点3

C     DATAENCRYPT   BEGSR                                    
C*                                                           
C                   EVAL      $INPUT_JAVA  = I_UNVERSCHL_J   
C                   EVAL      $OUTPUT_JAVA = ''              
C*                                                           
C                   CALL(E)   'WD20001JR'                    
C                   PARM                    $INPUT_JAVA      
C                   PARM                    $OUTPUT_JAVA     
C*                                                           
C                   EVAL      I_VERSCHL    = $OUTPUT_JAVA  
C*                                                           
C                   ENDSR 

所以我想隐藏我的字符串，然后在这个数组中写回(A_FELDER)。但是在程序调用之后，我有一个空数组。其他字段不为空。是否保存与正常变量不同的AS400数组变量？

我很难描述这个问题，所以我很抱歉我的英语不好。

Answer 1

您有WD20001JR的原型和$INPUT_JAVA和$OUTPUT_JAVA的D规格吗？由于参数是通过引用传递的，如果这些字段的大小与被调用程序WD20001JR所期望的大小不匹配，则可能会无意中覆盖数组字段。