View previous topic :: View next topic
|
Author |
Message |
umeshkmrsh
New User
Joined: 21 Sep 2005 Posts: 79 Location: India
|
|
|
|
Hi,
Is there a way to MOVE the value of Index Variable (on used in index by clause) to a working storage variable having PIC S9(4) COMP? |
|
Back to top |
|
|
umeshkmrsh
New User
Joined: 21 Sep 2005 Posts: 79 Location: India
|
|
|
|
Hey guys.
One way is:
Code: |
01 A OCCURS 10 TIMES INDEXED BY IDX-A
05 AA PIC X(10).
01 WS-AREA.
05 WS-IDX-GRP-1.
10 WS-IDX-TEMP PIC INDEX
05 WS-IDX-GRP-2.
10 WS-IDX PIC S9(06) COMP.
----
PROCEDURE DIVISION.
SET WS-IDX-TEMP TO IDX-A.
MOVE WS-IDX-GRP-1 TO WS-IDX-GRP-2.
DISPLAY WS-IDX. |
OR
Code: |
01 A OCCURS 10 TIMES INDEXED BY IDX-A
05 AA PIC X(10).
01 WS-AREA.
05 WS-IDX-GRP-1.
10 WS-IDX-TEMP PIC INDEX
05 WS-IDX-GRP-2 REDEFINES WS-IDX-GRP-1.
10 WS-IDX PIC S9(06) COMP.
----
PROCEDURE DIVISION.
SET WS-IDX-TEMP TO IDX-A.
DISPLAY WS-IDX. |
OR
Code: |
01 A OCCURS 10 TIMES INDEXED BY IDX-A
05 AA PIC X(10).
01 WS-AREA.
05 WS-IDX-GRP-2.
10 WS-IDX PIC S9(06) COMP.
----
PROCEDURE DIVISION.
SET WS-IDX TO IDX-A.
DISPLAY WS-IDX. |
Corrections welcome. |
|
Back to top |
|
|
|