How to truncate leading zeros in EZEETRIEVE

sandip_mainframe · New User Joined: 20 Sep 2006 Posts: 63 Location: pune

Hi All,

I have one number variable cobol declaration for this is below -
01 WS-NO PIC S9(09) COMP.

probable values are only two digits like - 15,27,30 etc.

I am converting this Binary value in displayble format by using EZEETRIEVE but is' taking leading zeros like - 000000015, 000000027 etc.

I want to truncate these leading zeros in Ezzetrive -

I have tried by providing MASK in output file variable as below -

I-NO 001 004 B 0
O-NO 038 009 N MASK 'ZZZZZZZ99'

but this is not working -

I know by Display option if we display the values it truncates leading zeros but that will come in SYSPRINT, I want to write it to output file directly.

Please provide your suggestions.

Thanks,
Sandip Walsinge

PeterHolland · Posted: Mon Mar 04, 2013 1:21 pm

Ask at your company. And also which program this is : EZEETRIEVE ?

sandip_mainframe · New User Joined: 20 Sep 2006 Posts: 63 Location: pune

Hi Peter,

yes it is Ezeetrieve. In Ezeetrieve I want to trunacte leading zeros.

(Ezeetrive version - EASYTRIEVE PLUS 11.5-C )

enrico-sorichetti · Posted: Mon Mar 04, 2013 1:36 pm

if You had taken an holistic approach to EZEETRIEVE You would not have had the need to ask

but why not ask one of the trainers in Your company ???

from the walsinge page

Bill Woodger · Posted: Mon Mar 04, 2013 1:48 pm

Also, a minimal amount of searching/browsing will come up with replies to several questions which are the same.

PeterHolland · Posted: Mon Mar 04, 2013 1:53 pm

Come on Bill, the TS is too busy to run his company.

Bill Woodger · Posted: Mon Mar 04, 2013 2:41 pm

Well, I'm feeling sorry for the people in the class, hanging on the answer to a question...

PeterHolland · Posted: Mon Mar 04, 2013 2:46 pm

Well as for me the TS is a f.. disgrace for the ICT profession.

sandip_mainframe · New User Joined: 20 Sep 2006 Posts: 63 Location: pune

Hi enrico/Peter/Bill,

Thanks for your support guys, I have been member of IBMMAINFRAMES.COM since last 6 years but I never got such reply from you. I really respect u all guys for your technical knowledge.

I don't want to say anymore.

Thanks for your relplies.

PeterHolland · Posted: Mon Mar 04, 2013 3:05 pm

Hey, the TS stripped his profile.

enrico-sorichetti · Posted: Mon Mar 04, 2013 3:09 pm

let' s put things in a clear perspective ...

You say in Your profile that You are a
Director of "Walsinge technologies" ...
nobody asked You to do that

from Your company homepage Your "communication experts" incense/praise/<***lick> your company for quality, expertise, holistic vision of mainframe technologies and ... ... ...

Your course catalog provides EZEETRIEVE training

and You wonder why we are pissed ...
when we see such a poor approach to a serious profession as IT

meditate a bit, please, meditate

Bill Woodger · Posted: Mon Mar 04, 2013 3:13 pm

Well then, you should

Know how to use the Code tags/Preview button
Know how to spell the product you are using: EZEETRIEVE, Ezzetrive, which you clung to even when posting the real name, "EASYTRIEVE PLUS 11.5-C"
Know to search/browse for similar questions
Know to read the manual
Know to search the internet
Know not to define Cobol fields as COMP S9(9) or 9(9)
Know not to define 9-digit fields which only need to hold two digits
Know how people are going to react after you don't take notice of the above and post in such a manner after being on the site for six years
etc

Sharpen-up next time, or it'll be more of the same.

sandip_mainframe · New User Joined: 20 Sep 2006 Posts: 63 Location: pune

Hi Enrico,

I understood your guys concern, but it was not for my classes it was for my personal understaing.
It was my mistake that I it put in my signature, I appologize for that. I love mainframe and this site, I love to try things which are new to me in mainframe, it is not just for teaching, it is my personal interest.

Thanks once again.

sandip_mainframe · New User Joined: 20 Sep 2006 Posts: 63 Location: pune

Hi Bill,

Thanks for your suggestions, going forward I will take of these things.

chandan.inst · Posted: Mon Mar 04, 2013 3:52 pm

Hi Sandip,

With littile search and trial-error its easily doable
Try belwo code

Declarations

Bill Woodger · Posted: Mon Mar 04, 2013 4:10 pm

Remember to set I-NO-ALPHA to space before the loop.

No need for 16 digits, as field only has nine.

You could just "redefine" the 16 N 0 as 16 x 1 A and clobber leading zeros to space, rather than move non-leading-zero digits individually.

Gets trickier with "other editing" required, rather than just the suppression of leading zeros.

If I write an entire Cobol sub-program for this, can you test it, chandan-inst?

chandan.inst · Posted: Mon Mar 04, 2013 4:35 pm

oops my bad.. I missed to mention regarding initializing I-NO-ALPHA

Agree with you Bill.. No need of 16 bytes there

It was a ready code available with me and thats the reason I missed to change the 16 to 9/

I did it with trial and error which is the only thing probably TS missed else he could have get his done esily.

Yes Bill I can test this Out.

Writing a cobol sub program is much easier option just we need to call that program for every conversion.

Regards,
Chandan