Select fixed number of characters - Easytrieve

technut · New User Joined: 27 Dec 2007 Posts: 73 Location: India

Hi All,

Is there any option available in Easytrieve to select fixed number of characters from a field. For eg, if I have the field defined like below..

FLD 1 80 A
WS-FLD W 20 A

Is there any option available wherein I could move only the last 20 charactes of FLD to WS-FLD..

Something like this in cobol, MOVE FLD(61:20) TO WS-FLD.. Something similar available in easytrieve..?

dick scherrer · Posted: Fri Jan 23, 2009 11:09 am

Hello,

You could define the last 20 bytes of fld as a different name (i.e. fld-last-20).

I am not aware of reference modification in Easytrieve.

technut · New User Joined: 27 Dec 2007 Posts: 73 Location: India

Yes.. that could be the only option then..

Dick - Do you know if we have an Unstring option in eztrieve..? I mean Unstring delimited by space, comma, special characters of that sort..

Thanks for your help as always!

dick scherrer · Posted: Fri Jan 23, 2009 11:29 am

Hello,

The way i've seen this done is treat the string as an array of 1-byte entries and manually unstring the data by looping. If this were my requirement, i might consider calling a cobol subprogram to do the unstring. . . This might be quicker to develop and would surely perform better if there was a high volume of data to be unstrung.

technut · New User Joined: 27 Dec 2007 Posts: 73 Location: India

That's a nice idea.... Yeah as you said cobol is much better in this case!
Thanks a lot..

ameenansari · New User Joined: 18 Sep 2006 Posts: 11 Location: chennai

Technut,

Redifines concept in easytrieve will meet your requirement. Try the following

WS-FLD W 80 A
WS-FLD-FRST-60 FLD 60 A
WS-FLD-LAST-20 FLD +60 20 A

WS-FLD = FLD

DISPLAY WS-FLD-LAST-20

dick scherrer · Posted: Fri Jan 23, 2009 9:49 pm

Hello,