Merge pull request #30 from tom-writes-code/full-timestamps

Allow parameterised timestamps
tom-writes-code · Apr 26, 2022 · 5aab5ff · 5aab5ff
2 parents 0aa8996 + 1f659cc
commit 5aab5ff
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/rpgle/REPL_VARS.SQLRPGLE b/rpgle/REPL_VARS.SQLRPGLE
@@ -297,8 +297,9 @@ dcl-proc fetchVariableDefinitionFromCode export;
       return 'IND';
     when %scan('DATE;': code) > 0;
       return 'DATE';
-    when %scan('TIMESTAMP;': code) > 0;
-      return 'TIMESTAMP';
+    when %scan('TIMESTAMP;': code) > 0
+    or %scan('TIMESTAMP(': code) > 0;
+      return 'TIMESTAMP(12)';
     when %scan('TIME;': code) > 0;
       return 'TIME';
     other;
@@ -551,7 +552,8 @@ dcl-proc fetchVariableTypeFromCode export;
       return 'indicator';
     when %scan('DATE;': %scanrpl(' ': '': code)) > 0;
       return 'date';
-    when %scan('TIMESTAMP;': %scanrpl(' ': '': code)) > 0;
+    when %scan('TIMESTAMP;': %scanrpl(' ': '': code)) > 0
+    or %scan('TIMESTAMP(': %scanrpl(' ': '': code)) > 0;
       return 'timestamp';
     when %scan('TIME;': %scanrpl(' ': '': code)) > 0;
       return 'time';