Overriding copy book variables

nelson.pandian · Posted: Fri Apr 25, 2008 9:24 am

I have a copybook "HELLO"

Which has 01 bcd
05 bcx pic 9(4)
05 bcr pic x(4) ….etc

But I want the copy book to expand as shown when I compile it…..

01 bcd-X
05 bcx-X pic 9(4)
05 bcr-X pic x(4) ….etc
i.e it should be suffixed with ‘-X’

Can anyone help me in this...

Nelson

sri_mf · Active User Joined: 31 Aug 2006 Posts: 218 Location: India

nelson.pandian · Posted: Fri Apr 25, 2008 2:50 pm

I think you didn't get me.
Say for Example:
In ADSO we can Prefix or Suffix a variable which is present a record in IDDM, and we can use those prefixed or suffixed variable in the dialog.

IDDM structure:
Prefix variable: WS01-

01 REF
02 REC1 PIC X(02)
02 REC2 PIC X(02)

While using in a dialog we use to use as WS01-REC1 and WS01-REC2.

In the same way can we use the variables with a prefix or Suffix which is in the Copybook used by a Cobol Program.

nelson.pandian · Posted: Fri Apr 25, 2008 2:54 pm

Is there anyothere way of using the Prefix or Suffix with Replace or Redefine or Renames, something like.

CICS Guy · Posted: Fri Apr 25, 2008 7:25 pm

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi Nelson,

This should work.

In copybook:

01 bcd:suf:.
05 bcx:suf: pic 9(4).
05 bcr:suf: pic x(4).

In pgm:

copy hello replacing ==:suf:== by ==-x==.

If you don't want the -x, code:

copy hello replacing ==:suf:== by ====.