Subject: Re: CICS VSAM File Access Techniques
rbotsis@aol.com
Date: Wed Nov 11 2009 - 13:12:19 EST
Have your tried GTEQ with low-values in the seq field? -----Original Message----- From: industrynews@winwholesale.com To: VSE Discussion List <vse-l@Lehigh.EDU> Sent: Wed, Nov 11, 2009 12:06 pm Subject: CICS VSAM File Access Techniques When you have a multi-part key, where the last part of the key is some kind of sequence field, I've found that I can easily go directly to the last record in the file but I cannot (so easily) go directly to the last record in a given sequence of records. Is this at all possible? Meaning... To go directly to the last record in the file requires a completely high-value key and a STARTBR EQUAL (which results in EIBRESP=0) followed by a READPREV which succeeds in retrieving the last record in the file. To go directly to the last record in a given sequence of records, I tried setting the first part of the key to the value for the desired group of records and setting the sequence field to high-values. However, in this case, the STARTBR EQUAL results in NOTFND (EIBRESP=13) and the READPREV, of course, then results in INVREQ (EIBRESP=16). Am I forced, in this case, to set the first part of the key to the value for the desired group of records, set the sequence field to all 9's, and then use STARTBR GTEQ followed by READNEXT and two READPREV? ...and, then, have to have a special case if I hit the end of file on the READNEXT? Anybody follow all that? Sincerely, Dave Clark WinWholesale Group Services 3110 Kettering Boulevard Dayton, Ohio 45439 USA (937) 294-5331 This email message and any attachments is for use only by the named addressee(s) and may contain confidential, privileged and/or proprietary information. If you have received this message in error, please immediately notify the sender and delete and destroy the message and all copies. All unauthorized direct or indirect use or disclosure of this message is strictly prohibited. No right to confidentiality or privilege is waived or lost by any error in transmission.
This archive was generated by hypermail 2b25 : Tue Nov 24 2009 - 16:05:07 EST