Warehouse Release 6.08.0010

06/22/2021

The improvements in the 6.08.0010 release are:

• Added FA as a date format item in STR2DATE and DATE2STR for ISO 8601 dates. See: https://en.wikipedia.org/wiki/ISO_8601 (W for weeks not supported.)
  Examples:

          print "1.", STR2DATE("2019-02-06T17:40:57-08:00", "FA")
          print "2.", STR2DATE("P1DT2H3M4S", "FA")
          print "3.", STR2DATE("2019-02-06", "FA")
          print "4.", STR2DATE("T17:40:57", "FA")
          print "5.", STR2DATE("T17:40:57-08:00", "FA")
          print "8.", STR2DATE("19951231T235959", "FA")
          print "7.", STR2DATE("T23:59:59.9942", "FA") PIC "HH24:MI:SS.TTTTTT"
          print "8.", STR2DATE("T235959.9942", "FA") PIC "HH24:MI:SS.TTTTTT"
          print "9.", DATE2STR(STR2DATE("P-2DT21H56M56S", "FA"), "FA")
          

  Output:

          1. 06-FEB-2019 09:40:57
          2.      1 02:03:04
          3. 06-FEB-2019
          4. 17:40:57
          5. 09:40:57
          8. 31-DEC-1995 23:59:59
          7. 23:59:59.994200
          8. 23:59:59.994200
          9. P-2DT21H56M56S
          

• Added more date format items for ISO 8601 dates in STR2DATE and DATE2STR for ISO 8601 dates. The full list of F date format items is:

          FA   25 character date and time, e.g. 2019-02-07T22:00:26-08:00
          FD   10 character local date, e.g. 2019-02-05
          FP   17 character period (interval), e.g. P001DT02H14M08S
          FT   8 character local time, e.g. 08:33:55
          FZD  10 character zulu date, e.g. 2019-02-05
          FZT  8 character zulu time, e.g. 18:33:55
          FZZ  6 character timezone, e.g. -08:00
          

• Added unbounded arrays. The syntax of an array declaration in a DEFINE or FORMAT statement has been enhanced to omit the upper array bound, using a dot (.) in its place.
  New Array syntax:

          ARRAY [lo-ix .. hi-ix] OF data-type
            -or-
          ARRAY [lo-ix ... ] OF data-type
          

  Examples:

          DEFINE NUMLIST : ARRAY [1...] OF INT32
          FORMAT ORDREC : RECORD
              ORDER_NO    : CHAR(16)
              ORD_OITMS   : ARRAY [1...] OF CHAR(12)
          END
          DEFINE ORDLIST : ARRAY [1...] OF FORMAT ORDREC
          

• The first and last indexes of the an unbounded array may be determined using the syntax: For the first index, use: array.FIRSTIX For the last index, use : array.LASTIX
  If the array is empty, LASTIX is one less than FIRSTIX
  Examples:

      DEFINE NUMLIST : ARRAY [1...] OF INT32
      PRINT "FIRST INDEX=", NUMLIST.FIRSTIX
      PRINT "LAST INDEX =", NUMLIST.LASTIX
      SETVAR NUMLIST[1] = 1001
      SETVAR NUMLIST[2] = 1002
      SETVAR NUMLIST[3] = 1003
      PRINT "LAST INDEX =", NUMLIST.LASTIX
      SETVAR NUMLIST[NUMLIST.LASTIX + 1] = 1004
      SETVAR NUMLIST[NUMLIST.LASTIX + 1] = 1005
      PRINT "LAST INDEX =", NUMLIST.LASTIX
      PRINT "NUMLIST[5]=", NUMLIST[5]
      PRINT "NUMLIST[NUMLIST.LASTIX]=", NUMLIST[NUMLIST.LASTIX]
      

  Output:

      FIRST INDEX=           1
      LAST INDEX =           0
      LAST INDEX =           3
      LAST INDEX =           5
      NUMLIST[5]=        1005
      NUMLIST[NUMLIST.LASTIX]=        1005
      

Release 6.08.0010 is available now on all supported platforms.