MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Help with EZTREVE

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
vijay
Beginner


Joined: 09 May 2003
Posts: 131
Topics: 64
PostPosted: Thu Feb 26, 2004 9:34 am    Post subject: Help with EZTREVE Reply with quote
Hi ,
I need a small help in EZT.I've a huge vsam file.I've 25 records with key 071000.
I've to create another 25 records with the key changed to '006278'.That means I'm creating a copy
of the old records with a new key.I'm using the following programs.It does the job,but it takes
a long time,bcos I'm trying to delete and add in the same file ,in the same program.
when I use add record the pointer is going to 006278 and trying to read the next record and is
therefore taking a long time.COuld you please help me with this one ?

Thanks,
Vijay
Code:
 

   POINT FILEA GE FILEA-KEY STATUS         
   IF FILEA:FILE-STATUS NOT ZERO             
      DISPLAY 'POINT ERROR: ' FILEA-KEY       
      STOP                                     
   END-IF                                     
   GET FILEA                                 
   IF FILEA:FILE-STATUS NOT ZERO             
      DISPLAY 'POINT ERROR: ' FILEA-KEY       
      STOP                                     
   END-IF                                     
   DO WHILE NOT EOF FILEA                   
    IF CNTL-A = '071000'                       
      WRITE FILEA DELETE                     
      COUNT = COUNT + 1                       
      CNTL-A = '006278'                       
      WRITE FILEA ADD STATUS                 
    END-IF                                     
    IF CNTL-A > '071000'                       
      STOP                                     
    END-IF                                     
     GET FILEA                                 
   END-DO
Back to top
View user's profile Send private message
vijay
Beginner


Joined: 09 May 2003
Posts: 131
Topics: 64
PostPosted: Thu Feb 26, 2004 1:03 pm    Post subject: Reply with quote
I figured out the problem.I just had to use another point statement and it works fine.

Thanks,
Vijay
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group