- Suprtool's if command did not abort when doing a compare against a date
beyond 1999 when being entered interactively.
The following task will cause an error message (correctly caused by the new
set date cutoff 10 default value), but it does not reset the IF command.
The error will cause a job to abort but it does not stop interactive tasks
from completing.
>in data
>def a,1,6
>item a,date,yymmdd
>if a <= $date(09/12/31)
Error: Cannot use a date beyond 1999 for this date format
>o*
>x
051231
IN=3, OUT=1. CPU-Sec=1. Wall-Sec=1.
- Suprtool's if command did not produce an error if a relative $date or
$today function was specified beyond 1999 for yymmdd or yymm dates.
Relative dates that resolve to values that are into the next century
did not cause an error message when compared against dates without
centuries.
>item deliv-date,date,yymmdd
>if deliv-date > $date(*+5/*/*)
or
>if deliv-date > $today(+1500)
- Suprtool's if command did not abort when doing a compare against a date
with a two digit year and Set Date ForceCentury was on.
The error was generated but it was ignored when run interactively.
>item deliv-date,date,yymmdd
>set date forcecentury on
>if deliv-date < $date(99/01/01)
Error: You must specify the century or Set Date ForceCentury off
>v if
IF deliv-date < $date(99/01/01)
- Suprtool's extract command did not stop the extract when extracting a
date with a two digit year and Set Date ForceCentury was on.
The Extract command produces a nice error message when Set Date
Forcecentury On and you only specify a two-digit year. Unfortunately,
the extract is still accepted, despite the error. Reproduced as
follows:
>input file1sd.suprtest
>item dbl-field,date,ccyymmdd
>set date forcecentury on
>extract dbl-field = $date(97/01/01)
Error: You must specify the century or Set Date ForceCentury off
>verify extract
Extract (extracted record size is 4 bytes)
Byte Source/ Len Type Itemname Type
Offset Constant
1 19970101 C DBL-FIELD INTEGER