View previous topic :: View next topic |
Author |
Message |
pgorthi Beginner
Joined: 13 Sep 2004 Posts: 33 Topics: 16
|
Posted: Wed Nov 17, 2004 9:16 am Post subject: Reference modification is there in Easytrieve? |
|
|
Hi,
Reference modification is there in Easytrieve?. if possible give me one example. bye,..
Regards,
Pgorthi |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
|
Posted: Wed Nov 17, 2004 9:32 am Post subject: |
|
|
Pgorthi,
Reference modification exists in easytrieve but it works using substrings. check out this example.
Code: |
DEFINE WS-MESG W 50 A
DEFINE WS-BYTE WS-MESG 1 A OCCURS 50
DEFINE WS-RESULT W 10 A
JOB INPUT NULL
WS-MESG = 'KOLUSU@MVSFORUMS.COM'
MOVE WS-BYTE(8) 10 TO WS-RESULT
DISPLAY WS-RESULT
STOP
|
WS-RESULT will now have MVSFORUMS.
Hope this helps...
Cheers
Kolusu _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
|
Phantom Data Mgmt Moderator
Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Wed Nov 17, 2004 9:52 am Post subject: |
|
|
pgorthi,
If your input file is huge then the above code will take some time to complete.
Check the following link for a more optimized solution (by none other than Kolusu) - It uses Index in the OCCURS class. It has been proved it could reduce the run time by more than 50%.
http://www.mvsforums.com/helpboards/viewtopic.php?p=12940#12940
Thanks,
Phantom |
|
Back to top |
|
|
|
|