Copy statement for both input and output layout

guruguha · New User Joined: 02 Apr 2007 Posts: 12 Location: Chennai

Hi,
I am coding a program where I have to use the same copybook for both input and output layout.
to avoid ambiguity in variable names I have used the replacing statement .

like
COPY RAPCLODT REPLACING ==RAPCLODT== BY ==RAP-IN==.

The original copybook looks like:
01 RAPCLODT.
05 RAPCLODT-DB-AREA PIC S9(04) COMP.
05 RAPCLODT-DB-RAP PIC X(06).
05 RAPCLODT-ACCT-KEY.
.
.
.

But the replace stament is replacing only the first occurence of the literal.

it looks like

01 RAP-IN.
05 RAPCLODT-DB-AREA PIC S9(04) COMP.
05 RAPCLODT-DB-RAP PIC X(06).
05 RAPCLODT-ACCT-KEY.
.
.
.

Kindly tell me how do i solve this issue.
Reply ASAP.

Thanks in advance,
Karthikeyan.

dbzTHEdinosauer · Posted: Thu Feb 28, 2008 1:21 pm

ASAP? who do you think you are?

use the group reference as a qualifier.

guruguha · New User Joined: 02 Apr 2007 Posts: 12 Location: Chennai

Brenholtz,

I just wanted to make the code delivery as soon as possible.
That is why i wanted the reply as soon as possible.

I am not sure if I am wrong to use ASAP.

Then I was not able to make sense in your reply: use the group reference as a qualifier.

Can u explain a bit?

Thanks,
Karthikeyan.

Marso · Posted: Thu Feb 28, 2008 4:10 pm

The REPLACING should work on the whole copybook.
Maybe there is a misplaced letter somewhere...

dbzTHEdinosauer meant to use "RAPCLODT-DB-AREA OF RAP-IN"
That's the group reference qualifier.

enrico-sorichetti · Posted: Thu Feb 28, 2008 4:21 pm

k.junaid83 · New User Joined: 19 Apr 2006 Posts: 22 Location: bangalore

Hi Karthikeyan,

You would require to change your orignal copy book variables.
For the replacing command to work you would need to prefix and postfix the word u want to replace by :.So your orignal copybook will look like.

01 :RAPCLODT:-RECORD.
05 :RAPCLODT:-DB-AREA PIC S9(04) COMP.
05 :RAPCLODT:-DB-RAP PIC X(06).
05 :RAPCLODT:-ACCT-KEY.

Now your copy statement for Input file will be as follows

COPY RAPCLODT REPLACING ==:RAPCLODT:== BY ==RAPIN==.

And the copy statement for the Output file will be

COPY RAPCLODT REPLACING ==:RAPCLODT:== BY ==RAPOUT==.

Thanks

dbzTHEdinosauer · Posted: Thu Feb 28, 2008 5:00 pm

k.junaid83,

excellent answer.

guruguha · New User Joined: 02 Apr 2007 Posts: 12 Location: Chennai

JK,

I am sorry the copybook cannot be changed by me. It is from production and I have no authority to change it.
Moreover there are other pgms using the same copybook.
Anyway thanks for the reply.

Karthikeyan.

CICS Guy · Posted: Thu Feb 28, 2008 8:22 pm

As stated in the manual, the 'replacing' only replaces full words.....
As mentioned before, change the 01 level and refer to all the lower levels as 'name of 01level'....