add executeT02_A50_P03

smeup · Jan 17, 2024 · b7746d9 · b7746d9
1 parent bd61bad
commit b7746d9
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 0 deletions.
diff --git a/...vaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/evaluation/SmeupInterpreterTest.kt b/...vaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/evaluation/SmeupInterpreterTest.kt
@@ -193,4 +193,10 @@ open class SmeupInterpreterTest : AbstractTest() {
         )
         assertEquals(expected, "smeup/T40_A10_P03D".outputOf())
     }
+
+    @Test
+    fun executeT02_A50_P03() {
+        val expected = listOf("A50_AR1(10) A50_AR2(40)")
+        assertEquals(expected, "smeup/T02_A50_P03".outputOf())
+    }
 }
diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/T02_A50_P03.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/T02_A50_P03.rpgle
@@ -0,0 +1,17 @@
+     D £DBG_Pas        S              3
+     D £DBG_Str        S            100
+      *
+     D A50_AR1         S             10    DIM(10)
+     D A50_AR2         S                   LIKE(A50_AR1) DIM(40)
+     D A50_N3          S              2  0
+      *
+     C                   EVAL      A50_N3 = %ELEM(A50_AR1)
+     C                   EVAL      £DBG_Str='A50_AR1('+%CHAR(A50_N3)+')'
+     C                   EVAL      A50_N3 = %ELEM(A50_AR2)
+     C                   EVAL      £DBG_Str=%TRIMR(£DBG_Str)
+     C                                      +' A50_AR2('+%CHAR(A50_N3)+')'
+      * Expected:
+      * 'A50_AR1(10) A50_AR2(40)'
+      *
+     C     £DBG_Str      DSPLY
+     C                   SETON                                        LR