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

SearchDataCenter

Close