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
industrynews@winwholesale.com
Date: Wed Nov 11 2009 - 12:28:02 EST 

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 - 01:20:06 EST