PQ19069: FCLOSE() MAY LOOP OR FAIL, WHEN USING FGETPOS() AND FSETPOS() FOR RECFM VB DATA SETS.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• After using fgetpos() and fsetpos() to reposition a RECFM VB
  data set into the current block, a subsequent fclose() may loop
  or fail.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users who reposition within variable blocked *
  *                 files using fsetpos() and fgetpos().         *
  ****************************************************************
  * PROBLEM DESCRIPTION: Intermixed calls to fgetpos() and       *
  *                      fsetpos() within the last block of a    *
  *                      variable blocked file cause an          *
  *                      infinite loop in fclose().              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  While in the last block of a variable blocked file, a call to
  fsetpos() requesting a reposition within the same block may
  mistakenly be perceived as a request to reposition to a
  previous block.
  
  The logic that follows leaves the I/O buffers and physical file
  in an inconsistant and unstable state which results in incorrect
  file contents or causes fclose() to enter an infinite loop.
  

Problem conclusion

• The fsetpos() function was updated to correctly determine if
  repositioning to the requested location will require a block
  change.
  

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:

  UQ22363 UQ22364 UQ22365 UQ22366 PQ20526

Modules/Macros

• EDCBP054 EDCBP056 EDC4004A EDC40049
  

Fix information

• Fixed component name

  LE C LIBRARY

• Fixed component ID

  568819805

Applicable component levels

• R710 PSY UQ22363

     UP98/10/13 P F810

• R81N PSY UQ22366

     UP98/10/12 P 9807

• R810 PSY UQ22364

     UP98/10/13 P F810

• R910 PSY UQ22365

     UP98/10/13 P F810

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.