PQ07974: ADD NEW INTRINSIC FUNCTIONS YEAR-TO-YEAR, DAY-TO-YYYYDDD, AND DATE-TO-YYYYMMDD

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• This APAR will add 3 new Intrinsic Functions from the proposed
  9x ANSI Standard, as well as 2 new formats of ACCEPT.  The
  functions are YEAR-TO-YEAR, DAY-TO-YYYYDDD, and DATE-TO-YYYYMMDD
   The new ACCEPT formats are ACCEPT x FROM DATE YYYYMMDD and
  ACCEPT x FROM DAY YYYYDDD.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: COBOL programmers wanting more date/time     *
  *                 language features in COBOL for MVS & VM or   *
  *                 COBOL for OS/390 & VM who have applied the   *
  *                 fix for APAR PQ07975 or PQ07976.             *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: This APAR will add new run-time error   *
  *                      messages to support the 3 new Intrinsic *
  *                      Functions from the proposed 9x ANSI     *
  *                      Standard.                               *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF. This fix is required *
  *                 for anyone using the fix for either APAR     *
  *                 PQ07975 or PQ07976.                          *
  ****************************************************************
  There are new run-time diagnostic messages needed for the
  new Intrinsic Functions.
  

Problem conclusion

• This APAR provides 4 new error messages:
  
  IGZ0215S Argument-1 for function <function-name> in program
           <program-name> at line <line-number> was
           less than 0 or greater than 100.
  
  Explanation: An illegal value was used for Argument-1.
  
  Programmer response: Ensure that argument-1 is greater than
  or equal to 0 and less than 100.
  
  System Action: The application was terminated.
  
  IGZ0216S Argument-1 for function <function-name> in program
           <program-name> at line <line-number> was
           less than 0 or greater than 99366.
  
  Explanation: An illegal value was used for Argument-1.
  
  Programmer response: Ensure that argument-1 is greater than
  or equal to 0 and less than 99367.
  
  System Action: The application was terminated.
  
  IGZ0217S Argument-1 for function <function-name> in program
           <program-name> at line <line-number> was
           less than 0 or greater than 991231.
  
  Explanation: An illegal value was used for Argument-1.
  
  Programmer response: Ensure that argument-1 is greater than
  or equal to 0 and less than 991232.
  
  System Action: The application was terminated.
  
  IGZ0218S The sum of the year at the time of execution and the
           value of argument-2 was less than 1700 or greater than
           10000 for function <function-name> in program
           <program-name> at line <line-number>.
  
  Explanation: An illegal value was used for Argument-2.
  
  Programmer response: Ensure that argument-2 is greater than
  or equal to 0 and less than 991232.
  
  System Action: The application was terminated.
  
  Publication Closing Code: DEVCHNG
  

Temporary fix

Comments

APAR Information

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

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

  UQ09541 UQ09542 UQ09544 UQ09546 UQ09547 UQ09548 UQ09549 UQ09550
  UQ09551 UQ09552 UQ09553 UQ09554 UQ09555 UQ09556 UQ09557 UQ09558
  UQ09559

Modules/Macros

•    IGZCMGEN IGZCMGJA IGZCMGUE
  

Fix information

• Fixed component name

  LE COBOL LIB

• Fixed component ID

  568819802

Applicable component levels

• R82G PSY UQ09554

     UP98/02/06 P 9712

• R82J PSY UQ09555

     UP98/02/06 P 9712

• R82N PSY UQ09553

     UP98/02/06 P 9712

• R71B PSY UQ09542

     UP97/10/14 P F710

• R71D PSY UQ09544

     UP97/10/14 P F710

• R710 PSY UQ09541

     UP97/10/14 P F710

• R81B PSY UQ09547

     UP97/10/14 P F710

• R81D PSY UQ09548

     UP97/10/14 P F710

• R810 PSY UQ09546

     UP97/10/14 P F710

• R52B PSY UQ09556

     UP97/10/14 P F710

• R52D PSY UQ09557

     UP97/10/14 P F710

• R52G PSY UQ09559

     UP97/10/14 P 9710

• R52J PSY UQ09560

     UP97/10/14 P 9710

• R52N PSY UQ09561

     UP97/10/14 P 9710

• R520 PSY UQ09558

     UP97/10/14 P F710

• R62B PSY UQ09550

     UP97/10/14 P F710

• R62D PSY UQ09551

     UP97/10/14 P F710

• R62G PSY UQ09565

     UP97/10/14 P 9710

• R62J PSY UQ09566

     UP97/10/14 P 9710

• R62N PSY UQ09552

     UP97/10/14 P 9710

• R620 PSY UQ09549

     UP97/10/14 P F710

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.