COPY...REPLACING...

Forum|Forum|9 years ago
March 30, 2016
1 reply
0 views

Dominique Sacre
Rocketeer

Trying to copy a copybook and replace the field prefixes when compiling using the following command:

COPY "drmfil.cfd" REPLACING ==DRM-== BY ==DR2-==.

FD DRM-FIL

LABEL RECORDS ARE STANDARD
DATA RECORD IS DRM-REC.

01 DRM-REC.
03 DRM-KEY.
05 DRM-CC-NO PIC X(16).
05 DRM-CC REDEFINES DRM-CC-NO.
07 DRM-CC-BIN-NO PIC X(6).
07 DRM-CC-AGENT-NO PIC XX.
07 DRM-CC-SUFFIX.
10 FILLER PIC XX.
10 DRM-CC-LAST6 PIC X(6).
03 DRM-ID-NO PIC 9(9).

Can copy replacing field prefixes be done in rm cobol? please advise.

Thomas Morrison
Participating Frequently
Forum|Forum|9 years ago
March 30, 2016

Trying to copy a copybook and replace the field prefixes when compiling using the following command:

COPY "drmfil.cfd" REPLACING ==DRM-== BY ==DR2-==.

FD DRM-FIL

LABEL RECORDS ARE STANDARD
DATA RECORD IS DRM-REC.

01 DRM-REC.
03 DRM-KEY.
05 DRM-CC-NO PIC X(16).
05 DRM-CC REDEFINES DRM-CC-NO.
07 DRM-CC-BIN-NO PIC X(6).
07 DRM-CC-AGENT-NO PIC XX.
07 DRM-CC-SUFFIX.
10 FILLER PIC XX.
10 DRM-CC-LAST6 PIC X(6).
03 DRM-ID-NO PIC 9(9).

Can copy replacing field prefixes be done in rm cobol? please advise.

Yes this can be done, but you have to use a technique that is also used on mainframes and other ANSI compliant compilers.

Modify your copy file as follows:

FD (PREFIX)-FIL
LABEL RECORDS ARE STANDARD
DATA RECORD IS (PREFIX)-REC.

01 (PREFIX)-REC.
03 (PREFIX)-KEY.
05 (PREFIX)-CC-NO PIC X(16).
05 (PREFIX)-CC REDEFINES (PREFIX)-CC-NO.
07 (PREFIX)-CC-BIN-NO PIC X(6).
07 (PREFIX)-CC-AGENT-NO PIC XX.
07 (PREFIX)-CC-SUFFIX.
10 FILLER PIC XX.
10 (PREFIX)-CC-LAST6 PIC X(6).
03 (PREFIX)-ID-NO PIC 9(9).

Then, use the following COPY statement;

COPY "drmfil.cfd" REPLACING ==(PREFIX)== BY ==DR2==

Of course the down side for this is that all COPY of this particular file must now use this technique.

Tom Morrison, Consultant, South Carolina, USA

Like