OA24002: IRX0016I EDGRGDAT 'LABEL NOT FOUND' ERROR DURING LEAP YEAR WHEN CALCULATING DATE FOR LAST DAY OF PRIOR YEAR *RETROFIT OA23701*

APAR status

• Closed as program error.

Error description

• During a leap year, EDGRGDAT does not calculate the correct
  date for a prior year.  When the calculated date should
    be the last day of the prior year, MSGIRX0016I 'Label
    not found' error occurs.  Any other prior year date is
    calculated one day too high.  For example, if the job is
    submitted on 01/01/2008 and &TODAY-001D is specified to
    calculate 12/31/2007, the following output is produced:
                                                                 .
  ==> EDGRGDAT. RUNDATE: 1 Jan 2008 TIME: 09:25:00 STARTED
      EDGRGDAT. DATE CALCULATIONS WILL BE DONE WITH THIS DATE
      EDGRGDAT.   FORMAT:
      EDGRGDAT. DATE PATTERN:MM/DD/YYYY
  ==> EDGRGDAT. LINE   6: (220,10,CH,EQ,C'&TODAY-001D'))
         588 +++        do k=1 by 1 while (calddd > accnormyear.k)
         558 +++       call JULIANtoISO
         240 +++    call minuscalcgregor
             +++    "NOVALUE"
  ==> Error running EDGRGDAT, line 588: Label not found
                                                                 .
    If, instead, &TODAY-002D were to be specified to calculate
    12/30/2007, the output produced would look like this:
                                                                 .
  ==> EDGRGDAT. RUNDATE: 1 Jan 2008 TIME: 09:25:00 STARTED
      EDGRGDAT. DATE CALCULATIONS WILL BE DONE WITH THIS DATE
      EDGRGDAT.   FORMAT:
      EDGRGDAT. DATE PATTERN:MM/DD/YYYY
  ==> EDGRGDAT. LINE   1: (853,10,CH,EQ,C'&TODAY-002D')
  ==> EDGRGDAT.    CHNGD: (853,10,CH,EQ,C'12/31/2007')
      EDGRGDAT.   1 CONTROL STATEMENTS CHECKED.   1 WITH &TODAY
      EDGRGDAT.   FOUND.  1 RECORDS MODIFIED.
                                                                 .
  Additional keywords:
    DFSMSrmm DFRMM RMM RMMCJH INCORROUT
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All DFSMSrmm users creating reports using    *
  *                 date calculation functions of the RMM        *
  *                 Report Generator.                            *
  ****************************************************************
  * PROBLEM DESCRIPTION: During a leap year, EDGRGDAT does not   *
  *                      calculate the correct date for a prior  *
  *                      year. When the calculated date should   *
  *                      be the last day of the prior year,      *
  *                      MSGIRX0016I 'Label not found' error     *
  *                      occurs. Any other prior year date       *
  *                      is calculated one day too high. If      *
  *                      EDGRGDAT is used at the beginning       *
  *                      of the year after a leap year then      *
  *                      any prior year date is calculated       *
  *                      one day too low.                        *
  ****************************************************************
  * RECOMMENDATION: Apply the applicable PTF(s).                 *
  ****************************************************************
  The program incorrectly calculates the day of a previous year.
  

Problem conclusion

• The problem has been fixed.
  

Temporary fix

• The ++APAR fix is available upon request.
  

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

  OA23701

• APAR is sysrouted TO one or more of the following:

Modules/Macros

•    EDGRGDAT
  

Fix information

• Fixed component name

  DFSMSRMM

• Fixed component ID

  5695DF186

Applicable component levels