PM33729: Incorrect record returned on VSAM GET NEXT during debug after 'converse'

APAR status

• Closed as program error.

Error description

• User has set up the remote VSAM debugger on CICS, and debugging
  an application.
  It is found that in both segmented and non-segmented mode there
  are situations where
  the incorrect record is returned.
  
  The sample EGL statements:
  
          while(1 == 1);
              ....
              converse DEOFORM1;
              GET NEXT ...
              ....
          end
  
  
  1. segmented=yes the data returned as 1, 1, 2, 3, 4 after
  CONVERSE \ GET NEXT.
  a) 1, 1 ... is correct.
  b) 2, 3, 4 ... is wrong.
  
  2. segmented=no the data returned as 1, 2, 3, 4 after CONVERSE \
  GET NEXT.
  a) 1, 2, 3, 4 ... is correct.
  b) There is a new error.
  
  After GET NEXT and endOfFile on key = 4, if I set position on
  key = 4 and GET NEXT, returned endOfFile
  and again set position on key = 4 and GET NEXT, returned
  endOfFile ... again again
  
  but if set position on key = 1 and GET NEXT, returned record ok
  !
  
  There are two error on 1-b and 2-b.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  In Segmented = yes programs a GET NEXT after 'converse' must
  always return first record.  However the GET NEXT returned
  first, second, third and ... after a 'converse'.
  

Problem conclusion

• The opened VSAM files by the program were lost and therefore
  they were not closed properly. The Run unit has been
  modified to keep track of the opened files. Therefore an
  implicit 'close' executes for each opened file.
  

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

  RATL BUS DEV

• Fixed component ID

  5724S5000

Applicable component levels

• R801 PSN

     UP