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
Dig Deeper on iSeries application development tools
Related Q&A from John Blenkinsop
When an error occurs on an IBM command, the diagnostic messages are sent first, then an escape message, which you can monitor. On AS/400 you see the ... Continue Reading
Learn how to 'append data to the file' with the FTP DIR command, and eliminate the hassle of having to end the FTP session and restart to view ... Continue Reading
RPGIV will 'think of' incoming integer fields as binary, and then will redefine them in the program structures as PACKED. So, when you chain a record... Continue Reading