Merge pull request #615 from smeup/bugfix/LS24004104/error-movel-for-…

…input-string Bugfix/LS24004104/error-movel-for-input-string
smeup · Sep 26, 2024 · 2a858da · 2a858da
2 parents af9c863 + 968242b
commit 2a858da
Show file tree

Hide file tree

Showing 3 changed files with 33 additions and 0 deletions.
diff --git a/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/movel.kt b/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/movel.kt
@@ -147,6 +147,8 @@ private fun movel(
 ): String {
     return if (valueToApplyMoveType is UnlimitedStringType) {
         valueToMove
+    } else if (valueToMove.isBlank() && valueToApplyMoveType.isNumeric()) {
+        "0"
     } else if (valueToMove.length <= valueToApplyMove.length) {
         var result: String = valueToApplyMove
         if (withClear) {

diff --git a/...aInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT02ConstAndDSpecTest.kt b/...aInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT02ConstAndDSpecTest.kt
@@ -604,4 +604,10 @@ open class MULANGT02ConstAndDSpecTest : MULANGTTest() {
         val expected = listOf("test", "te", "st")
         assertEquals(expected, "smeup/MUDRNRAPU01102".outputOf(configuration = smeupConfig))
     }
+
+    @Test
+    fun executeMUDRNRAPU01103() {
+        val expected = listOf("1", "0")
+        assertEquals(expected, "smeup/MUDRNRAPU01103".outputOf(configuration = smeupConfig))
+    }
 }
diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU01103.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU01103.rpgle
@@ -0,0 +1,25 @@
+     V* ==============================================================
+     V* 19/09/2024 APU011 Creation
+     V* 25/09/2024 APU011 Edit
+     V* ==============================================================
+    O * PROGRAM GOAL
+    O * Verifies the conversion of values to a numeric data structure
+    O * when using a blank string and displays the results.
+     V* ==============================================================
+    O * JARIKO ANOMALY
+    O * Before the fix, the error occurred was:
+    O *   Issue executing MoveLStmt at line 22. For
+    O *   input string: "        "
+     V* ==============================================================
+     D PER$DS          DS           100
+     D  T$PERI                19     26
+
+     DK§CF             DS
+     D K$DE                           8  0
+
+     C                   EVAL      K$DE=1
+     C     K$DE          DSPLY
+     C                   MOVEL(P)  T$PERI        K$DE                           #MoveLStmt at line 22. For input string: "        "
+     C     K$DE          DSPLY
+
+     C                   SETON                                          LR