Feature/ls24003656/error data reference when is used api directive

rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/compile_time_interpreter.kt

@@ -205,13 +205,14 @@ open class BaseCompileTimeInterpreter(
                         if (it.directive().dir_api() != null) {
                             val apiDirective = it.directive().dir_api()
                             val apiId = apiDirective.toApiId(conf)
-                            return apiId.loadAndUse { api ->
+                            val size = apiId.loadAndUse { api ->
                                 api.let {
                                     it.compilationUnit.dataDefinitions.firstOrNull { def ->
                                         def.name.equals(declName, ignoreCase = true)
                                     }
-                                }?.let { it.type.size }
+                                }?.type?.size
                             }
+                            if (size != null) return size
                         }
                     }
                 }

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

@@ -208,6 +208,16 @@ open class MULANGT02ConstAndDSpecTest : MULANGTTest() {
         }
     }
 
+    /**
+     * Resolves problem od Data Reference with LIKE when in the RPG source is used an API directive.
+     * @see LS24003656
+     */
+    @Test
+    fun executeMUDRNRAPU00102() {
+        val expected = listOf("HELLO THERE")
+        assertEquals(expected, "smeup/MUDRNRAPU00102".outputOf(configuration = smeupConfig))
+    }
+
     /**
      * Data definition not resolved for patterns containing the ':' in XLate factor 1
      * @see #LS24002758

rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00102.rpgle

@@ -0,0 +1,23 @@
+     D $FOO            S                   LIKE(£FOO)
+     D STR             S             15    INZ('HELLO THERE')
+
+     C                   EXSR      SUB01
+
+     C     *INZSR        BEGSR
+     C                   EXSR      £INIZI
+     C                   ENDSR
+
+
+     C     £INIZI        BEGSR
+     C     *ENTRY        PLIST
+     C     $FOO          PARM                    £FOO             10
+     C                   ENDSR
+
+
+     C     SUB01         BEGSR
+     C                   IF        $FOO <> 'BAR'
+     C     STR           DSPLY
+     C                   ENDIF
+     C                   ENDSR
+
+      /API QILEGEN,£OAV