PI21691: (COB V5.1) READ OF INDEXED FILE DEFINED AS DD DUMMY IN JCL YIELDS INCORRECT FILE STATUS 10.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Under V4.2, a read of an indexed file defined as DD DUMMY in
  the JCL yields a file status = 23.
  
  Under V5.1, a read of an indexed file defined as DD DUMMY in
  the JCL yields a file status = 10.
  
  The expected file status is 23.
  
  *************************************************************
  
  Sample Execution JCL:
  //STEP01 EXEC ...
  //SYS013 DD DUMMY
  
  Sample Code:
  
  FILE-CONTROL.
       SELECT  EDAT21 ASSIGN   DA-SYS013
       ORGANIZATION INDEXED
       ACCESS       DYNAMIC
       RECORD       FD-E21KY
       FILE STATUS  STA-06.
  
  DATA DIVISION.
  FILE SECTION.
  FD  EDAT21.
  01  FD-E21KY.
       05 FILLER PIC X.
  
  WORKING-STORAGE SECTION.
  77  IND1         PIC 999999.
  77  IND2         PIC 999999 VALUE 1.
  77  IND3         PIC 9999.
  77  STA-06       PIC XX.
  77  ESATZ21      PIC X.
  
  PROCEDURE DIVISION.
  MAINLINE SECTION.
  
       OPEN INPUT EDAT21.
       DISPLAY STA-06.
       READ EDAT21 INTO ESATZ21.
       DISPLAY STA-06.
  
       STOP RUN.
  
  
  Results for STA-06 under V4.2:
  0
  23
  
  Results for STA-06 under V5.1:
  0
  10
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of COBOL V5 running programs that use  *
  *                 VSAM KSDS or RRDS files, that are OPENed for *
  *                 INPUT or IO and are allocated to DD DUMMY.   *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect FILE STATUS 10 returned for   *
  *                      READ instead of the correct FILE STATUS *
  *                      23.  (Record not found).                *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The runtime READ library routine logic that processes the READ
  status returned by DFSMS did return the correct COBOL FILE
  STATUS code.
  

Problem conclusion

• Apply provided service.
  

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:

Modules/Macros

• IGZXLPKA
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R780 PSY UI19787

     UP14/07/30 P F407

• R790 PSY UI19788

     UP14/07/30 P F407

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.