Here a work around until someone comes up with something better.
Convert your Date field to alpha using HCNVRT.
Next extract out the time with the EDIT function.
Then compare the times with an IF statement.
Example:
DEFINE FILE CAR
TODAY/YYMD = &YYMD;
C_DATE_TIME/HYYMDm = HGETC(10, 'HYYMDm');
A_DATE_TIME/A30 = HCNVRT(C_DATE_TIME, '(HYYMDm)', 30, 'A30');
A_TIME/A8 = EDIT(A_DATE_TIME, '$$$$$$$$$$$99999999');
TIMETYPE/A9 = IF A_TIME GE '17:00:00' AND A_TIME LE '24:00:00' THEN 'non prime' ELSE 'prime';
END
TABLE FILE CAR
PRINT
C_DATE_TIME
A_DATE_TIME
A_TIME
TIMETYPE
COUNTRY
CAR
MODEL
ON TABLE PCHOLD FORMAT EXL2K
END
-EXIT
Glenda
Glenda
In FOCUS Since 1990
Production 8.2 Windows