View previous topic :: View next topic |
Author |
Message |
vice_versa Beginner
Joined: 04 Nov 2005 Posts: 14 Topics: 10
|
Posted: Wed Aug 23, 2006 12:45 pm Post subject: Question:Use the replace by |
|
|
Hi everybody,
I want to replace
01 R111111-F.
10 R111111-F1 PIC X(07).
10 R111111-F2 PIC 9(05).
10 R111111-F3 PIC 9(05).
10 R111111-F4 PIC X(08).
10 R111111-F5 PIC X(05).
10 R111111-F6 PIC X(05).
10 R111111-F7 PIC X(20).
10 R111111-F8 PIC X(30).
By
01 R222222-F.
10 R222222-F1 PIC X(07).
10 R222222-F2 PIC 9(05).
10 R222222-F3 PIC 9(05).
10 R222222-F4 PIC X(08).
10 R222222-F5 PIC X(05).
10 R222222-F6 PIC X(05).
10 R222222-F7 PIC X(20).
10 R222222-F8 PIC X(30).
I use
REPLACE ==R111111== BY ==R222222==.
COPY RXXXXXX.
REPLACE OFF.
In fact, they didn't be replaced.
why.
thanks in advance. |
|
Back to top |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
|
Back to top |
|
 |
shekar123 Advanced
Joined: 22 Jul 2005 Posts: 528 Topics: 90 Location: Bangalore India
|
Posted: Wed Aug 23, 2006 3:04 pm Post subject: |
|
|
vice_versa,
In your case you need to define your copybook contents as :
Code: |
01 :R111111:-F.
10 :R111111:-F1 PIC X(07).
10 :R111111:-F2 PIC 9(05).
10 :R111111:-F3 PIC 9(05).
10 :R111111:-F4 PIC X(08).
10 :R111111:-F5 PIC X(05).
10 :R111111:-F6 PIC X(05).
10 :R111111:-F7 PIC X(20).
10 :R111111:-F8 PIC X(30).
|
PROGRAM
Code: |
COPY R REPLACING ==:R111111:== BY ==R222222==.
|
COMPILED OUTPUT
Code: |
COPY R REPLACING ==:R111111:== BY ==R222222==.
01 R222222-F.
10 R222222-F1 PIC X(07).
10 R222222-F2 PIC 9(05).
10 R222222-F3 PIC 9(05).
10 R222222-F4 PIC X(08).
10 R222222-F5 PIC X(05).
10 R222222-F6 PIC X(05).
10 R222222-F7 PIC X(20).
10 R222222-F8 PIC X(30).
|
_________________ Shekar
Grow Technically |
|
Back to top |
|
 |
vice_versa Beginner
Joined: 04 Nov 2005 Posts: 14 Topics: 10
|
Posted: Thu Aug 24, 2006 8:21 am Post subject: |
|
|
Thanks
My question is the original copybook have no sign :. |
|
Back to top |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Thu Aug 24, 2006 8:24 am Post subject: |
|
|
Quote: |
My question is the original copybook have no sign :.
|
vice_versa,
You canNOT use replace command without changing the copybook.
Kolusu _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
 |
|
|