Implemented INDIC03 test case

Author: davidepalladino-apuliasoft

rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/evaluation/InterpreterTest.kt

@@ -2255,6 +2255,15 @@ Test 6
         assertEquals(expected, "INDIC02".outputOf())
     }
 
+    @Test
+    fun executeINDIC03() {
+        val expected = listOf(
+            "*INKA(0) *IN01(1)",
+            "*INKA(1) *IN01(0)"
+        )
+        assertEquals(expected, "INDIC03".outputOf())
+    }
+
     @Test
     fun executeBIFCHECK() {
         assertEquals(listOf("ok"), outputOf("BIFCHECK"))

rpgJavaInterpreter-core/src/test/resources/INDIC03.rpgle

@@ -0,0 +1,18 @@
+     D £DBG_Str        S             50    VARYING
+
+     C                   MOVEL     *ON           *IN01
+     C                   MOVEL     *OFF          *INKA
+      *
+     C                   EVAL      £DBG_Str= '*INKA('+%CHAR(*INKA)+')'
+     C                                     +' *IN01('+%CHAR(*IN01)+')'
+     C     £DBG_Str      DSPLY
+      * result: '*INKA(0) *IN01(1)'
+      *
+     C                   MOVEL     *OFF          *IN01
+     C                   MOVEL     *ON           *INKA
+      *
+     C                   EVAL      £DBG_Str= '*INKA('+%CHAR(*INKA)+')'
+     C                                     +' *IN01('+%CHAR(*IN01)+')'
+     C     £DBG_Str      DSPLY
+      * result: '*INKA(1) *IN01(0)'
+     C                   SETON                                        LR