HP3000-L Archives

June 1997, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Tony Knowles <[log in to unmask]>
Reply To:
Tony Knowles <[log in to unmask]>
Date:
Wed, 18 Jun 1997 12:05:07 +1200
Content-Type:
text/plain
Parts/Attachments:
text/plain (19 lines)
Paul

If you include the 'addcentury' function to the define for today-less-30
you get the desired result.

DEFINE TODAYS-DATE DATE CENTURY INCLUDED = &
    ADDCENTURY (SYSDATE,19)
DEFINE TODAY-LESS-30 DATE CENTURY INCLUDED = &
    addcentury(DATE (DAYS (TODAYS-DATE) - 30),19)
DEFINE X8-DATE CHAR*8 = ASCII (TODAY-LESS-30,8)
REPORT TODAY-LESS-30 FORMAT MMDDYYYY X8-DATE
GO

Also, you probably know this, you don't need to access a file to run a QUIZ
report you can just define and go as above.

Tony Knowles     [log in to unmask]
                           [log in to unmask]

ATOM RSS1 RSS2