Added funcConcatenate in CobolIntrinsic.java (#212)

Author: kio-watanabe

libcobj/src/jp/osscons/opensourcecobol/libcobj/common/CobolIntrinsic.java

@@ -1690,6 +1690,13 @@ public static AbstractCobolField funcNational(AbstractCobolField srcfield) {
     return currField;
   }
 
+  /**
+   * cob_intr_combined_datetimeの実装
+   *
+   * @param srcdays
+   * @param srctime
+   * @return
+   */
   public static AbstractCobolField funcCombinedDatetime(
       AbstractCobolField srcdays, AbstractCobolField srctime) {
     int srdays;
@@ -1724,4 +1731,43 @@ public static AbstractCobolField funcCombinedDatetime(
     currField.getDataStorage().memcpy(buff);
     return currField;
   }
+
+  /**
+   * cob_intr_concatenateの実装
+   *
+   * @param offset
+   * @param length
+   * @param params
+   * @param fields
+   * @return
+   */
+  public static AbstractCobolField funcConcatenate(
+      int offset, int length, int params, AbstractCobolField... fields) {
+    int calcsize = 0;
+    int i;
+    int index = 0;
+    int size;
+    byte[] data;
+
+    for (i = 0; i < params; i++) {
+      calcsize += fields[i].getSize();
+    }
+    CobolFieldAttribute attr =
+        new CobolFieldAttribute(CobolFieldAttribute.COB_TYPE_ALPHANUMERIC, 0, 0, 0, null);
+    AbstractCobolField field =
+        CobolFieldFactory.makeCobolField(calcsize, (CobolDataStorage) null, attr);
+    makeFieldEntry(field);
+    data = new byte[calcsize];
+    for (i = 0; i < params; i++) {
+      size = fields[i].getSize();
+      System.arraycopy(
+          fields[i].getDataStorage().getByteBuffer(size).array(), 0, data, index, size);
+      index += size;
+    }
+    currField.setDataStorage(new CobolDataStorage(data));
+    if (offset > 0) {
+      calcRefMod(currField, offset, length);
+    }
+    return currField;
+  }
 }

tests/run.src/functions.at

@@ -200,7 +200,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([FUNCTION CONCATENATE])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -223,7 +222,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([FUNCTION CONCATENATE with reference modding])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.