View previous topic :: View next topic
|
Author |
Message |
tarunflash
New User
Joined: 15 Oct 2005 Posts: 25
|
|
|
|
can i use redefine clause in occurs? if yes please explain with example? |
|
Back to top |
|
|
smiley Warnings : 1 New User
Joined: 08 Feb 2006 Posts: 27
|
|
|
|
Quote: |
can i use redefine clause in occurs? if yes please explain with example? |
Yes,we can..
eg:-
Quote: |
01 DATA-REC.
05 STRING-1 PIC X(04) VALUE ?TEST?.
05 TEST-REC REDEFINES STRING-1 OCCURS 12 TIMES PICXXX.
|
|
|
Back to top |
|
|
smiley Warnings : 1 New User
Joined: 08 Feb 2006 Posts: 27
|
|
|
|
sorry..it is like this..
Quote: |
01 DATA-REC.
05 STRING-1 PIC X(100).
05 STRING-2 REDEFINES STRING-1 OCCURS 10 TIMES PIC X(10).
|
|
|
Back to top |
|
|
umeshkmrsh
New User
Joined: 21 Sep 2005 Posts: 79 Location: India
|
|
|
|
Quote: |
Hi smiley,
You gave a example of REDEFINE with occurs clause. Where as Tarun asked example of REDEFINE within OCCURS clause. |
We can use REDEFINE within OCCURS clause, as shown below:
Code: |
01 A.
05 B1 OCCURS 10 TIMES.
10 C1 PIC X(1).
10 C2 PIC X(5).
10 C3 REDEFINES C2.
15 D1 PIC X(2).
15 D2 PIC X(2).
10 C4 PIC X(5). |
|
|
Back to top |
|
|
fixdoubts
New User
Joined: 21 Oct 2005 Posts: 54
|
|
|
|
Hi,
Code: |
01 A.
05 B1 OCCURS 10 TIMES.
10 C1 PIC X(1).
10 C2 PIC X(5).
10 C3 REDEFINES C2.
15 D1 PIC X(2).
15 D2 PIC X(2).
10 C4 PIC X(5).
|
works fine but some thing like
Code: |
01 A.
05 B1 OCCURS 10 TIMES.
10 C1 PIC X(1).
10 C2 PIC X(5).
10 C3 REDEFINES C2.
15 D1 PIC X(2).
15 D2 PIC X(2).
10 C4 PIC X(5).
05 B2 REDEFINES B1
|
will give error.
We cant redefine a table. |
|
Back to top |
|
|
small_world
New User
Joined: 22 Jul 2005 Posts: 24 Location: pune
|
|
|
|
05 TIBECAAP-WORK-REC.
10 FILLER PIC X(22) VALUE 'AC AC '.
10 FILLER PIC X(22) VALUE 'AT AT '.
10 FILLER PIC X(22) VALUE 'MR PS '.
10 FILLER PIC X(22) VALUE 'PS PS '.
05 TIBECAAP-TAB-R REDEFINES TIBECAAP-WORK-REC.
10 TIBECAAP-ENT OCCURS 22 TIMES.
15 TIBECAAP-SRV PIC X(04).
15 TIBECAAP-SUB-SRV PIC X(04).
15 TIBECAAP-DFLT-IDC PIC X(01).
|
|
Back to top |
|
|
umeshkmrsh
New User
Joined: 21 Sep 2005 Posts: 79 Location: India
|
|
|
|
Yes you are right fixdoubts.
Thanks. |
|
Back to top |
|
|
umeshkmrsh
New User
Joined: 21 Sep 2005 Posts: 79 Location: India
|
|
|
|
small_world wrote: |
05 TIBECAAP-WORK-REC.
10 FILLER PIC X(22) VALUE 'AC AC '.
10 FILLER PIC X(22) VALUE 'AT AT '.
10 FILLER PIC X(22) VALUE 'MR PS '.
10 FILLER PIC X(22) VALUE 'PS PS '.
05 TIBECAAP-TAB-R REDEFINES TIBECAAP-WORK-REC.
10 TIBECAAP-ENT OCCURS 22 TIMES.
15 TIBECAAP-SRV PIC X(04).
15 TIBECAAP-SUB-SRV PIC X(04).
15 TIBECAAP-DFLT-IDC PIC X(01).
|
Boss this will give a compilation error. |
|
Back to top |
|
|
|