Re: Date Variables

[Reinier de Ruiter <Reinier.DeRuiter@APOLLOGRP.EDU>]

Use strtodate for your assignment:

    LET $MAXDATE = strtodate('01-SEP-1999','DD-MON-YYYY')
    LET $MINDATE = strtodate('31-AUG-1999','DD-MON-YYYY')

Reinier de Ruiter
Programmer/Analyst
Apollo Group, University of Phoenix
Phoenix, Arizona
tel:480-557-1158
email: reinier.deruiter@apollogrp.edu



-----Original Message-----
From: Kenny Melton [mailto:KMELTO1@TANDY.COM]
Sent: Tuesday, October 05, 1999 12:59 PM
To: Multiple recipients of list SQR-USERS
Subject: Date Variables


Hello Everyone,

I am using SQR 4.3.4 and am having a strange problem (or a severe brain
burp).  Can anyone tell me why the following works the way it does?:

BEGIN-SETUP
    DECLARE-VARIABLE
        DATE  $MINDATE
        DATE  $MAXDATE
    END-DECLARE
END-SETUP

BEGIN-PROCEDURE COMPARE-DATES
    LET $MAXDATE = '01-SEP-1999'
    LET $MINDATE = '31-AUG-1999'

    SHOW 'MAX DATE = ' $MAXDATE
    SHOW 'MIN DATE = ' $MINDATE

    IF $MAXDATE = $MINDATE
        SHOW 'MAXDATE = MINDATE'
    END-IF

    IF $MAXDATE <> $MINDATE
        SHOW 'MAXDATE <> MINDATE'
    END-IF

    IF $MAXDATE > $MINDATE
        SHOW 'MAXDATE > MINDATE'
    END-IF

    IF $MAXDATE < $MINDATE
        SHOW 'MAXDATE < MINDATE'
    END-IF

END-PROCEDURE

The log file output looks like this:

MAX DATE = 01-SEP-1999
MIN DATE = 31-AUG-1999
MAXDATE = MINDATE

I'm kind of stumped on this one.  I think it has something to do with the
internal "string" representation of the date variables, but all my juggling
with the SQR.INI file settings didn't have any impact.  I have also tried it
with the "MOVE" command in place of the "LET" command above and, again, no
difference.  Oh, one more thing -- this happens consistently when one of the
dates is an end-of-month date, and the other date is the following
first-of-month date.  OK Gurus, what am I missing?

Thanks in advance,
Kenny Melton
Sr. Technical Architect
Tandy Information Services
PeopleSoft Financial Systems
kmelto1@tandy.com