Q
Evaluate Weigh the pros and cons of technologies, products and projects you are considering.

RPG-free routine to calculate dates

One user writes, "I thought that I saw somewhere an RPG-free routine using %DATE (bif) to calculate the day of the week. For example, MON, TUE, etc.? I need to place the day on a screen." Development expert John Blenkinsop responds.

John Blenkinsop
By
Published: 15 Aug 2005

I thought that I saw somewhere an RPG-free routine using %DATE (bif) to calculate the day of the week. For example, MON, TUE, etc.? I need to place the day on a screen.

Try this from Midrange.com.

 
*// Procedure:  DayOfWeek                                           //
*// Purpose:  Determine the day of week for a particular date       //
*// Parameters:                                                     //
*//    I: dt   -- date                                              //
*// Returns:                                                        //
*//    0..6    -- 0=Sunday, 1=Monday, 2=Tuesday, etc.               //
*// Notes:                                                          //
*//    January 5, 1800 is a Sunday.  This procedure only works for  //
*//    dates later than 1800-01-05.                                 //
*////////////////////////////////////
P DayOfWeek       b
D DayOfWeek       pi            10i 0
D   dt                            d   value datfmt(*iso)
/free
   return %rem (%diff (dt: d'1800-01-05': *days): 7);
/end-free
P DayOfWeek       e

More on this topic

The Best Web Links: tips, tutorials and more.

Visit the ITKnowledge Exchange and get answers to your developing questions fast.

Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.

 

Dig Deeper on iSeries application development tools

Start the conversation

Send me notifications when other members comment.

Register

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close