Added funcCombinedDatetime() in CobolIntrinsic.java (#207)

Author: kio-watanabe

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

@@ -1689,4 +1689,39 @@ public static AbstractCobolField funcNational(AbstractCobolField srcfield) {
     currField.getDataStorage().memcpy(pdata, ndata);
     return currField;
   }
+
+  public static AbstractCobolField funcCombinedDatetime(
+      AbstractCobolField srcdays, AbstractCobolField srctime) {
+    int srdays;
+    int srtime;
+    String str;
+    byte[] buff = new byte[12];
+
+    CobolFieldAttribute attr =
+        new CobolFieldAttribute(CobolFieldAttribute.COB_TYPE_NUMERIC_DISPLAY, 12, 5, 0, null);
+    AbstractCobolField field = CobolFieldFactory.makeCobolField(12, (CobolDataStorage) null, attr);
+    makeFieldEntry(field);
+    CobolRuntimeException.setException(0);
+    srdays = srcdays.getInt();
+    if (srdays < 1 || srdays > 3067671) {
+      CobolRuntimeException.setException(CobolExceptionId.COB_EC_ARGUMENT_FUNCTION);
+      currField.getDataStorage().memset(0, 12);
+      return currField;
+    }
+    srtime = srctime.getInt();
+    if (srtime < 1 || srtime > 86400) {
+      CobolRuntimeException.setException(CobolExceptionId.COB_EC_ARGUMENT_FUNCTION);
+      currField.getDataStorage().memset(0, 12);
+      return currField;
+    }
+    str = String.format("%7d%5d", srdays, srtime);
+    buff = str.getBytes();
+    for (int i = 0; i < 12; i++) {
+      if (buff[i] == 32) {
+        buff[i] = 48;
+      }
+    }
+    currField.getDataStorage().memcpy(buff);
+    return currField;
+  }
 }

tests/run.src/functions.at

@@ -180,7 +180,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([FUNCTION COMBINED-DATETIME])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.