Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Is reference modification possible in Easytrieve

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
cvasu03

New User


Joined: 23 Mar 2007
Posts: 9
Location: USA

PostPosted: Thu May 31, 2007 9:29 pm    Post subject: Is reference modification possible in Easytrieve
Reply with quote

Is reference modification possible in Easytrieve? If possible please let me know how?

Thanks,
Vas
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu May 31, 2007 10:15 pm    Post subject:
Reply with quote

Hello,

Not the same way cobol provides.

To displace/modify use something like:

DATE-OF-HIRE 136 6 N
HIRE-MM DATE-OF-HIRE 2 N
HIRE-DD DATE-OF-HIRE +2 2 N
HIRE-YY DATE-OF-HIRE +4 2 N

If you describe what you want to accomplish, someone may have suggestions.
Back to top
View user's profile Send private message
cvasu03

New User


Joined: 23 Mar 2007
Posts: 9
Location: USA

PostPosted: Thu May 31, 2007 10:29 pm    Post subject: Re: Is reference modification possible in Easytrieve
Reply with quote

Thank you. My requirement is I am reading input file which is 80 byte long.
the key is first 5 bytes. I have two records with the same key.

I want to move the remaining 75 bytes data into another working storage field which is 150 bytes long.

Read two records from input file and populate the working storage field.
i.e. 75 + 75 = 150

Earlier I use to this kind of thing using reference modification in cobol. Now I want do this in Easytrieve.

Please help.

Thanks,
Vasu
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu May 31, 2007 11:42 pm    Post subject:
Reply with quote

Hello,

If you change the names & lengths on the example i used, you can have your working storage field with 2 "sub-fields" of 75 each - just make sure the second field has the +75 displacement.

If you are more comfortable with cobol terminology, think of it as a "redefines" of a larger field - like the date example above.
Back to top
View user's profile Send private message
cvasu03

New User


Joined: 23 Mar 2007
Posts: 9
Location: USA

PostPosted: Fri Jun 01, 2007 6:43 am    Post subject: Re: Is reference modification possible in Easytrieve
Reply with quote

thank you
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jun 01, 2007 7:01 am    Post subject:
Reply with quote

You're welcome icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm
No new posts StreamWeaver language reference chetanambi Compuware & Other Tools 1 Wed Jul 05, 2017 12:50 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Easytrieve report shalem CA Products 4 Sun Feb 26, 2017 9:08 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us