College Student needs a little help 2

[Guest_imported]

In an assingment I need to retrieve the system date in the initialize section. Any help would be appreciated.

I am a student at Washington State U.

 

[tupendo]

1.- declare in working ws-date pic 9(6)

2.- anywhere in procedure

" accept ws-date from date"

and you'll get the date as 'yymmdd' [sig][/sig]

 

[Guest_imported]

THANKS FOR THE HELP MUCH APPRECIATED

 

[Turin]

If accepting the system date as-is is OK for you, a simple statement in your "INIT" will do as tupendo noted. If, however, you are printing the date for a report and want something more like MMDDYY, you need to do the following:
Working Storage Section.
01 ws-date.
05 year-in pic 99.
05 month-in pic 99.
05 day-in pic 99.

01 report-hdr
05 pic x.
05 date-out.
10 month-out pic 99.
10 pic x value '/'.
10 day-out pic 99.
10 pic x value '/'.
10 year-out pic 99.
10 pic x value '/'.


100-INIT.
Accept ws-date from date
move month-in to month-out
move day-in to day-out
move year-in to year-out.
Turin
mailto:turin_2000@hotmail.com