Re: Screen Dates

Hi, 

I made a Calendar file for it. That had some fields below.
Date, Julian date, Nbr of week, Day of week, Holiday, Month end, Open
shop flag, some completion flags and so on.
<------ key ------>
year    month   day     Julian  week#   DoW     holiday mo end   open..
2000    02      29      60      12      TUE     NO      YES      YES
2000    03      01      61      12      WED     NO      NO       YES

The calendar file is so useful and you can use it for a lot of purposes.
I made a user command for retrieving it (like RTVDATATR). Because I want
to use it in a CLP also.

And you can get the from/to date by SETGT and READP operation.

HTH

On Thu, 2 Mar 2000 10:31:18 -0600
Gade_R_Reddy@consecofinance.com wrote in "Screen Dates":

  > 
  > Hey Guys,
  > 
  > I have a screen where i would take the current system date & display from
  > date and to date.
  > 
  > >From date is the first day of the current month (i get this from current
  > system date).
  > To date is current system date.
  > 
  > For example:-
  > 
  > 1.) Lets say System Date = 03/01/00 ( Wednesday) & if user login on the
  > screen i would display From Date: 02/01/00, To Date: 02/29/00.
  > 
  > 2.) Now Lets say if 03/01/00 falls on sunday & the user login on next day
  > 03/02/00 ( monday ), I would have displayed From Date: 03/01/00, To Date:
  > 03/02/00. Since there is no activity on sunday, I want to display From
  > Date: 02/01/00, To Date: 02/29/00 on the screen when user logins on
  > 03/02/00.
  > 
  > Any suggestions how can i do the 2nd scenerio.
  > 
  > Thanks
  > 
  > +---
  > | This is the RPG/400 Mailing List!
  > | To submit a new message, send your mail to RPG400-L@midrange.com.
  > | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
  > | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
  > | Questions should be directed to the list owner/operator: 
david@midrange.com
  > +---
  > 


T.I.A.

Best regards.

/* ---------------------------------------------------------*/
                       Tadashi Kakefuda
 The Internet Mail Address ; tadashii@tk.airnet.ne.jp
   * Official site ; http://www2c.airnet.ne.jp/as400/
 /*----------------------------------------------------------*/
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---