COPY with REPLACING Option to replace partial Text

Manojtyagi1979 · New User Joined: 25 Jan 2010 Posts: 11 Location: Noida

I have a Copybook

Copybook AHD-REC containing fields

05 AHD-ID
05 AHD-POL-NUM
05 AHD-DATE
etc ...

I want the partial Text "AHD" to be replaced by "HLD" in entire Copybook during my program RUN.

I have tried following , but they are not working.

a) 01 HOLD-REC COPY AHD-REC
replacing ==AHD== by ==HLD==

b) 01 HOLD-REC COPY AHD-REC
replacing :AHD: by :HLD:

c) 01 HOLD-REC COPY AHD-REC
replacing (AHD) by (HLD).

Please help me

thanks & regards
Manoj

Anuj Dhawan · Posted: Mon Mar 29, 2010 3:56 pm

You might like to review this thread and the fine manual.

CICS Guy · Posted: Mon Mar 29, 2010 3:56 pm

Whole words only or partial words with delimiters only....

The COPY statement with REPLACING phrase can be used to replace parts of words. By inserting a dummy operand delimited by colons into the program text, the compiler will replace the dummy operand with the desired text.

Replacing function in cobol