RE: CICS VSAM File Access Techniques

New Message Reply Date view Thread view Subject view Author view Other groups

Subject: RE: CICS VSAM File Access Techniques
From: Kevin Corkery (kcorkery@live.com)
Date: Wed Nov 11 2009 - 12:32:45 EST 

Yep.  I wrote a generalized CICS file handler that had to deal with this
situation.  It wasn't as bad as the logic I need to code to handle
maintaining position on an AIX with duplicates across transaction boundries
:-)

  _____  

From: owner-vse-l@Lehigh.EDU [mailto:owner-vse-l@Lehigh.EDU] On Behalf Of
industrynews@winwholesale.com
Sent: Wednesday, November 11, 2009 12:28 PM
To: VSE Discussion List
Subject: Re: CICS VSAM File Access Techniques


OK, thanks.  It just seems a bit much to have to go through this rigmarole: 

     PERFORM Q20-INITKEY-SYHELPS. 
     IF  HELP-SAVEPTOT NOT > ZERO 
       MOVE 1                    TO HELP-SAVEPTOT 
       IF  HELP-SAVENAME <= SPACES 
         MOVE SPACES             TO HELP-SAVENAME 
         MOVE ZEROES             TO HELP-SAVEPAGE 
       ELSE 
         MOVE 1                  TO HELP-SAVEPAGE 
* find last record in the current range 
         MOVE HIGH-VALUES        TO HELP-KEY 
         MOVE HELP-SAVETRAN      TO HELP-TRAN 
         MOVE HELP-SAVENAME      TO HELP-NAME 
         PERFORM Q21-STARTBR-SYHELPS 
         IF  EIBRESP = DFHRESP(NOTFND) 
* ... end-of-file encountered, re-position to end of file 
             MOVE HIGH-VALUES    TO HELP-KEY 
             PERFORM Q22-STARTEQ-SYHELPS 
         ELSE 
* ... at end-of-range, position to read the previous record 
             PERFORM Q23-READNEXT-SYHELPS 
             PERFORM Q24-READPREV-SYHELPS 
         END-IF 
         PERFORM Q24-READPREV-SYHELPS 
* if the desired record successfully retrieved ... 
         IF  EIBRESP = DFHRESP(NORMAL) 
         AND HELP-TRAN = HELP-SAVETRAN 
         AND HELP-NAME = HELP-SAVENAME 
* ... save the sequence number of the last page in the range 
             MOVE HELP-PAGE      TO HELP-SAVEPTOT 
         END-IF 
         PERFORM Q25-ENDBR-SYHELPS 
       END-IF 
     END-IF. 

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.

New Message Reply Date view Thread view Subject view Author view Other groups

This archive was generated by hypermail 2b25 : Sun Nov 22 2009 - 02:20:07 EST