Unstring and String in Cobol

kovur · New User Joined: 15 Nov 2007 Posts: 36 Location: India

I have the following code in my programme.

MOVE WS-ADDR1 TO ADDR-1

In ws-addr1 record we have symbols like '@', ',', '&'.
I want to replace the '&' symbol in the ws-addr1 with the '&amp'.
After replacing only I want to move it to addr-1.
How can I achieve this?

Thanks in advance.

kovur · New User Joined: 15 Nov 2007 Posts: 36 Location: India

I ahve tried this with the INSPECT verb. But this verb will replace the the characters which have the same length.
In my case I want to replace '&' with '&amp'

Thanks

murmohk1 · Posted: Wed Nov 21, 2007 4:14 pm

Kovur,

Please show your var declaration along with examples. If you expect your i/p and o/p should be of same length, there is a possiblility you may loose some data because of change from '&' to '&amp'.

kovur · New User Joined: 15 Nov 2007 Posts: 36 Location: India

My variable declarations are like this.
01 ws-addr1 pic x(75)

01 addr1 pic x(75)

But in the DB2 table we don't have address lines greater than 30 bytes.

murmohk1 · Posted: Wed Nov 21, 2007 4:26 pm

Kovur,

Im confused.

How 30 bytes are related to 75 bytes?

kovur · New User Joined: 15 Nov 2007 Posts: 36 Location: India

In the DB2 table we don't have address greater than 30 bytes. Therefore I think If we change the '&' as '&amp' nothing will be truncated.

kovur · New User Joined: 15 Nov 2007 Posts: 36 Location: India

we are fetching the data from a DB2 table to ws-addr1 and moving it to addr1. Addr-1 is the field in output file.

CICS Guy · Posted: Wed Nov 21, 2007 6:32 pm

kovur · New User Joined: 15 Nov 2007 Posts: 36 Location: India

we don't know exactly. We need to change every '&' into '&amp'.

Thanks

shankar.v · Posted: Wed Nov 21, 2007 6:50 pm

kovur,

Whether the address column data type in your DB2 is CHAR or VARCHAR and what is its length?.

While getting value from DB2 column into cobol variable, we have to use proper variables with proper length suitable to DB2 column datatypes.

Let us assume your DB2 address column data type is CHAR(75).

In this case, suppose if all the 75 bytes are filled with '&' then we need a 75 + (75 X 3) = 300 (75 '&' and 75 'AMP') PIC X(300) so that it will accomodate all '&' to be replace with '&AMP'.

Please check with the following sample cobol code for your requirement.

kovur · New User Joined: 15 Nov 2007 Posts: 36 Location: India

In my case the address line is like this:

Delhi&Mumbai&Kolkata&Chennai.

In some cases there is a space before and after the '&'.

In the output file the address should be

Delhi&ampMumbai&ampKolkata&ampChennai

stodolas · Posted: Wed Nov 21, 2007 7:31 pm

Are you converting this to XML and that is why you need the &amp?

I have used the following code after using the XML GENERATE in Cobol. This is just a snip of the code I found at IBM.com and modified for my needs.

shankar.v · Posted: Wed Nov 21, 2007 7:42 pm

kovur · New User Joined: 15 Nov 2007 Posts: 36 Location: India

If my address line is like this

Delhi & Kolkata & Mumbai & Chennai

then also I need to change the & into &amp.

After changing it, the data will not be truncated.

stodolas · Posted: Wed Nov 21, 2007 7:59 pm

Have you tried shankar.v's solution? It appears that it has a high likelihood of working.

shankar.v · Posted: Wed Nov 21, 2007 8:10 pm

kovur,

murmohk1 · Posted: Thu Nov 22, 2007 11:12 am

To all who provided solution,

kovur · New User Joined: 15 Nov 2007 Posts: 36 Location: India

Hi Friends,

My problem was resolved.
Thank you very much for your suggestions.