diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00135.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00135.rpgle index efce38330..5da211d2f 100644 --- a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00135.rpgle +++ b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00135.rpgle @@ -1,5 +1,6 @@ V* ============================================================== V* 24/10/2024 APU001 Creation + V* 29/10/2024 APU001 Improvements V* ============================================================== O * PROGRAM GOAL O * MOVEL an integer array to another. The size of first is lower @@ -14,19 +15,16 @@ D TMP S 2 D COUNT S 2 0 INZ(1) - C COUNT DOUEQ 4 + C FOR COUNT=1 TO %ELEM(ARR_1) C EVAL TMP=%CHAR(ARR_1(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement - C EVAL COUNT=1 - C COUNT DOUEQ 6 + C FOR COUNT=1 TO %ELEM(ARR_2) C EVAL TMP=%CHAR(ARR_2(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C SETON LR \ No newline at end of file diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00136.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00136.rpgle index 46bf9d3f4..216a117b2 100644 --- a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00136.rpgle +++ b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00136.rpgle @@ -14,19 +14,16 @@ D TMP S 2 D COUNT S 2 0 INZ(1) - C COUNT DOUEQ 6 + C FOR COUNT=1 TO %ELEM(ARR_1) C EVAL TMP=%CHAR(ARR_1(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement - C EVAL COUNT=1 - C COUNT DOUEQ 4 + C FOR COUNT=1 TO %ELEM(ARR_2) C EVAL TMP=%CHAR(ARR_2(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C SETON LR \ No newline at end of file diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00137.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00137.rpgle index 4311df590..8343f5af3 100644 --- a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00137.rpgle +++ b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00137.rpgle @@ -13,19 +13,16 @@ D TMP S 5 D COUNT S 2 0 INZ(1) - C COUNT DOUEQ 4 + C FOR COUNT=1 TO %ELEM(ARR_1) C EVAL TMP=%CHAR(ARR_1(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement - C EVAL COUNT=1 - C COUNT DOUEQ 6 + C FOR COUNT=1 TO %ELEM(ARR_2) C EVAL TMP=%CHAR(ARR_2(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C SETON LR \ No newline at end of file diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00138.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00138.rpgle index 188f5fa4c..833a617c6 100644 --- a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00138.rpgle +++ b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00138.rpgle @@ -13,19 +13,16 @@ D TMP S 5 D COUNT S 2 0 INZ(1) - C COUNT DOUEQ 4 + C FOR COUNT=1 TO %ELEM(ARR_1) C EVAL TMP=%CHAR(ARR_1(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement - C EVAL COUNT=1 - C COUNT DOUEQ 6 + C FOR COUNT=1 TO %ELEM(ARR_2) C EVAL TMP=%CHAR(ARR_2(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C SETON LR \ No newline at end of file diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00139.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00139.rpgle index e0fbff183..132e2a757 100644 --- a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00139.rpgle +++ b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00139.rpgle @@ -14,19 +14,16 @@ D TMP S 7 D COUNT S 2 0 INZ(1) - C COUNT DOUEQ 4 + C FOR COUNT=1 TO %ELEM(ARR_1) C EVAL TMP=%CHAR(ARR_1(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement - C EVAL COUNT=1 - C COUNT DOUEQ 6 + C FOR COUNT=1 TO %ELEM(ARR_2) C EVAL TMP=%CHAR(ARR_2(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C SETON LR \ No newline at end of file diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00140.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00140.rpgle index aa30577b9..8be07c1c2 100644 --- a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00140.rpgle +++ b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00140.rpgle @@ -14,19 +14,16 @@ D TMP S 7 D COUNT S 2 0 INZ(1) - C COUNT DOUEQ 4 + C FOR COUNT=1 TO %ELEM(ARR_1) C EVAL TMP=%CHAR(ARR_1(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement - C EVAL COUNT=1 - C COUNT DOUEQ 6 + C FOR COUNT=1 TO %ELEM(ARR_2) C EVAL TMP=%CHAR(ARR_2(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C SETON LR \ No newline at end of file diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00147.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00147.rpgle index 0d5aeccf1..24210b8df 100644 --- a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00147.rpgle +++ b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00147.rpgle @@ -12,23 +12,19 @@ D ARR_1 S 1 0 DIM(3) INZ(1) D DS_1 DS D DS_ARR_1 1 0 DIM(5) INZ(2) - D TMP S 7 D COUNT S 2 0 INZ(1) - C COUNT DOUEQ 4 + C FOR COUNT=1 TO %ELEM(ARR_1) C EVAL TMP=%CHAR(ARR_1(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C MOVEL ARR_1 DS_ARR_1 - C EVAL COUNT=1 - C COUNT DOUEQ 6 + C FOR COUNT=1 TO %ELEM(DS_ARR_1) C EVAL TMP=%CHAR(DS_ARR_1(COUNT)) C TMP DSPLY - C EVAL COUNT=COUNT+1 - C ENDDO + C ENDFOR C SETON LR \ No newline at end of file