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 

Defining and accessing arrays in easytrive

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


Joined: 28 Jul 2006
Posts: 17
Topics: 9

PostPosted: Sun Aug 03, 2008 3:52 am    Post subject: Defining and accessing arrays in easytrive Reply with quote

Hi,
I have the following record structure for input file in Easytreive

IN-FEE-CD -Fee code values are SF, CF, RF, PF,AF, etc.,

I need to search the fee code values for SF, RF and PF and
move the corresponding amount IN-FEE-AMT to output file
Code:

10 IN-FEE-GROUP                PIC X(480) VALUE SPACE.     
   10 IN-FEE-X REDEFINES                                       
          IN-FEE-GROUP OCCURS 32 TIMES                             
      15 IN-FEE-CD                PIC X(02).                   
      15 IN-FEE-AMT               PIC S9(5)V9(2) COMP-3.       
      15 FILLER                      PIC X(09).                   
   10 POLICY                       PIC X(12).                   
--------------------------------------------------------------------------

Output file format:
Code:

policy  ---- SF-amount ---RF-amount  ---- PF-amount

A1234  ----  100.00  -----  122.50  --------  500.00

--------------------------------------------------------------------------             

I have the following doubts,
1) How the above 'occurs' can be defined in easytrieve
2)How to search the feecodes and populate the amount in the
output file..

Could you please help me as i am new to easytrieve...

Thanks
Vijay
Back to top
View user's profile Send private message Send e-mail
jsharon1248
Intermediate


Joined: 08 Aug 2007
Posts: 291
Topics: 2
Location: Chicago

PostPosted: Sun Aug 03, 2008 7:20 pm    Post subject: Reply with quote

Follow the Quick Manuals link at the top of the page. Open the Easytrieve manual. Chapter 9 is all about table handling.
Back to top
View user's profile Send private message
vijayakumar
Beginner


Joined: 28 Jul 2006
Posts: 17
Topics: 9

PostPosted: Mon Aug 04, 2008 4:28 am    Post subject: Reply with quote

Hi
I could not find more information about the occurs in the Quick manuals..
Could you please help me..

Vijay
Back to top
View user's profile Send private message Send e-mail
jsharon1248
Intermediate


Joined: 08 Aug 2007
Posts: 291
Topics: 2
Location: Chicago

PostPosted: Mon Aug 04, 2008 7:57 am    Post subject: Reply with quote

OCCURS is a COBOL reserved word. It is meaningless in Easytrieve, so stop looking for it. The chapter on tables is pretty well written. There are even examples. What part are you having trouble with? Show us what you've tried so far.
Back to top
View user's profile Send private message
jsharon1248
Intermediate


Joined: 08 Aug 2007
Posts: 291
Topics: 2
Location: Chicago

PostPosted: Thu Aug 07, 2008 7:49 am    Post subject: Reply with quote

Embarassed It's time for me to eat some crow. I've been informed that OCCURS is a reserved word in Easytrieve. Check out the DEFINE syntax in Chapter 5 of Easytrieve manual. My apologies.
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