How eliminate APOS(') in the record.

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi All,

i am having the following file which is having the records like..

record length is 80, Recformat is FB.

Aaru · Posted: Thu May 22, 2008 5:02 pm

rgu,

yogeshwar_ade · Active User Joined: 31 Aug 2006 Posts: 103 Location: INDIA

If its for one time requirment, then you can use ' C ALL OPTION'

Like -

C ALL "'" ''

Include singel apos(') into two double apos (") and after giving one space write two single apos(')

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi Aaru,

i have searched in the forum(DFSORT) and didn't get any exact solution. and also i checked in the "smart tricks in DFSORT" PDF, there aslo explained first squeezing and then add one space. other ex tells just remoce the '!' from the record. but in that records there is no spaces. but in my case i want spaces also after squeezing.. please tell if there is any solution...

Thanks and Regards,
Nath R

Aaru · Posted: Thu May 22, 2008 5:40 pm

rgu,

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi Aaru,

i have checked fully sice 2 hours in the same book, Sorry i didn;t get any thing related to this requirement. please let me know the page number if you know exactly and please help me...

Thanks and Regards,
Nath R.

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

i have one idea to do this....

first we need to insert some special char in to the spaces using ALTSEQ and then after we can remove (') from the records using squeezing and then we can replace the special char with spaces using ALTSEQ.

please correct me if it wrong and please let me know the jcl...

Thanks and Regards,
Nath R

cpuhawg · Posted: Thu May 22, 2008 5:54 pm

The hex representation of an apostrophe is X'7D'.

Why not change X'7D' to X'40'?

X'40' is a blank.

Aaru · Posted: Thu May 22, 2008 6:02 pm

rgu,

Did u check the link in my earlier post?

click this link for the topic

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi cpuhawg,

Thanks!!
i dont want to replace with blank. Totally i want remove (') from the record. i want to know that yours logic is works for getting the result like.

(...adlkdjflsdfa kdsldl) instead of (...adlkdjflsdfa 'kdsldl)

means, is change to 'Blank' will shift to left the record. please let me know that jcl if it works like above result.

Thanks and Regards,
Nath R

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi Aaru,

Sorry... now only i checked your link and i saw the solution which is given by Frank. This logic is what i say in my previous post. i will try with this logic. Any way it is not a healthy logic for data in the records. because might be the special char will be there in the data in future. that time it will show worng report by using this logic. Any way Thanks.

Regards,
Nath R.

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi,

Can any one please let me know the list of ALTSEQ hex representations link?

Thanks and Regards,
Nath R.

dick scherrer · Posted: Fri May 23, 2008 12:52 am

Hello,

Skolusu · Posted: Fri May 23, 2008 5:02 am

rguhanath,

Here is DFSORT JCL which would do what you asked for. Using ALTSEQ we first convert all the spaces (X'40') to a symbol which doesn't exist in the file at all. for ex I used @ symbol (X'7C') and we also convert the apostrophe (X'7D') to spaces (X'40')

rguhanath · New User Joined: 16 Oct 2006 Posts: 81 Location: chennai

Hi Skolusu,

Thanks for your gr8 help.

its work fine now. Even though i want to know there is any simple porcess is there to do like these type of requirement. means any inbuild tool in DFSORT. and also please let me know is there only two ways (PAIR=QUOTE and PAIR=APOST) are available for paring the string. theare is no other customise the characotrs aprt from QUOTE and APOST.

Thanks and Regards,
Nath R.

Frank Yaeger · Posted: Thu Aug 14, 2008 2:22 am

You can now use DFSORT's new FINDREP function available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008) to do this kind of thing quite easily like this: