First day is easy, just change the day
// Split F3413 STRT
FormatUserDate(
B0000078.FormatUserDate)
VA rpt_F553413CalendarMonth_MT [MT] <- mnMonth [DMTM]
VA rpt_BirthdateDay_DOBD [DOBD] <- mnDay [DMTD]
VA rpt_BirthdateYear_DOBY [DOBY] <- mnYear [DMTY]
VA rpt_Century_CTRY [CTRY] <- mnCentury [DMT#]
BC Date - Start (Julian) (F3413.0) [STRT] -> jdReturnDate [DATE01]
"1" -> cProcessingFlag [EV01]
// Make F3460 DRQJ 1st day of month
FormatUserDate(
B0000078.FormatUserDate)
VA rpt_F553413CalendarMonth_MT [MT] -> mnMonth [DMTM]
"1" -> mnDay [DMTD]
VA rpt_BirthdateYear_DOBY [DOBY] -> mnYear [DMTY]
VA rpt_Century_CTRY [CTRY] -> mnCentury [DMT#]
VA rpt_F553413DateStart_STRT [STRT] <- jdReturnDate [DATE01]
<Blank> -> cProcessingFlag [EV01]
Last day I use this
CalculateCalendarMonthDates(
N40R0250.CalculateCalendarMonthDates)
BC Date - Start (Julian) (F3413.0) [STRT] -> jdBaseDate [BASEDJ]
"0" -> cMonthBeginEnd [MTHBGED]
VA rpt_F553413EffectiveThruD_EFFT [EFFT] <- jdEndDate [ENDDJ]
"1" -> cSuppressErrorMessage [SUPPS]