PI87911: FS=30 WHEN READING EMPTY VSAM FILE

COBOL for AIX, V5.1.0.3 Fix Pack (October 2017 PTF)
COBOL Runtime for AIX, V5.1.0.3 Fix Pack (October 2017 PTF)
COBOL for AIX, V5.1.0.4 Fix Pack (January 2018 PTF)
COBOL Runtime for AIX, V5.1.0.4 Fix Pack (January 2018 PTF)
COBOL for AIX, V5.1.0.5 Fix Pack (May 2018 PTF)
COBOL Runtime for AIX, V5.1.0.5 Fix Pack (May 2018 PTF)
COBOL for AIX, V5.1.0.6 Fix Pack (October 2018 PTF)
COBOL Runtime for AIX, V5.1.0.6 Fix Pack (October 2018 PTF)
COBOL for AIX, V5.1.0.7 Fix Pack (December 2018 PTF)
COBOL Runtime for AIX, V5.1.0.7 Fix Pack (December 2018 PTF)

APAR status

• Closed as program error.

Error description

• When trying to read an empty VSAM file, the COBOL V5.1 runtime
  issues a FS=30 error.
  
  Symptoms of the error look like the following:
  $ ./TESTVSAM
  ** ACFEE020 - MSG DISPLAY DATE  170605
  ** ACFEE020 - MSG DISPLAY TIME  235603
  OPEN I-O :00**000000
  **
  REC-XCFEE050 :    9999999999999999999999999999999999999999999
  **
  FD-CHIAVE :9999999999999999999999999999999999999999999**
  readkey failed 1997905939 SFS_CURRENT_UNDEFINED
  READ  :30**000019,SFS_CURRENT_UNDEFINED
  **
  ** ACFEE020 - MSG002-ERROR ACCESS VSAM FILE         READ ALL
  -9-30
  <Thread 1>
  <Thread 1>  Traceback:
  <Thread 1>    Offset 0x00000628 in procedure writeERRmsg
  <Thread 1>    Offset 0x00000044 in procedure iwzWriteERRmsg
  <Thread 1>    Offset 0x00000160 in procedure _iwzcBCD_ADD_Pckd
  <Thread 1>    Offset 0x000010b4 in procedure TESTVSAM, near line
  154 in file TESTVSAM.cbl
  <Thread 1>    --- End of call chain ---
  IWZ903S  The system detected a data exception.
  IWZ901S  Program exits due to severe or critical error.
  

Local fix

• N/A
  

Problem summary

• USERS AFFECTED:
  Clients who are trying to read an empty VSAM file via COBOL
  might experience an FS=30 error.
  
  PROBLEM DESCRIPTION:
  The COBOL for AIX, V5.1 runtime was not expecting a
  "SFS_CURRENT_UNDEFINED" to occur on a READ.
  So it was not equipped to handle such an error. Hence, it issued
  a general FS=30 error.
  

Problem conclusion

• The fix is now to properly handle a "SFS_CURRENT_UNDEFINED" for
  a READ
  

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:

Fix information

• Fixed component name

  COBOL FOR AIX

• Fixed component ID

  5724Z8700

Applicable component levels

• R510 PSY

     UP