PM76255: NO ERROR FROM PICK OF P12 FILE WHEN INDEX OUT OF RANGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Accessing a Processor 12 file using the pick primitive should
  cause an INDEX ERROR if the index used is beyond the range of
  the number of records in the file.  Instead it returns a null
  result.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of the APL2 "Files as Variables"       *
  *                 facility, Processor 12.                      *
  ****************************************************************
  * PROBLEM DESCRIPTION: When accessing a Processor 12 file      *
  *                      using the "pick" primitive, indexes     *
  *                      out of range of the file's records      *
  *                      resulted in a null data item when       *
  *                      they should have received an            *
  *                      INDEX ERROR.                            *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  When support was added to Processor 12 for returning null
  prototypes from the take, drop, replicate and expand
  primitives, index range checks were removed from the
  Processor 12 low-level routines. The pick primitive did
  not do range checks. It relied on the low-level routines
  to fail if the index was out of range.
  Note: this problem also affects the index primitive (squad)
  when the left argument is a positive scalar.
  

Problem conclusion

• Range checks are added to the pick primitive and to the
  special scalar case of the squad primitive.  In addition,
  the special scalar case of the squad primitive is corrected
  to accept a 1-element array of any rank, for compatibility
  with non-P12 accesses to regular arrays.
  

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:

  UK83566 UK83567

Modules/Macros

•    AP2IIDX
  

Fix information

• Fixed component name

  APL2

• Fixed component ID

  566889901

Applicable component levels

• R222 PSY UK83566

     UP12/11/17 P F211

• R225 PSY UK83567

     UP12/11/16 P 1211

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.