|
View previous topic :: View next topic
|
| Author |
Message |
shreevamsi
Active User
Joined: 23 Feb 2006
Posts: 305
Location: Hyderabad,India
|
|
|
|
Hi,
Could anyone explain me what is the following..
Initialize the Large array in Cobol.
05 WS-TEMP.
07 A OCCURS 10 TIMES
INITIALIZE A (1)
MOVE WS-TEMP TO WS-TEMP (LENGTH OF A (1) + 1 : )
Thanks,
~Vamsi |
|
| Back to top |
|
 |
sri_mf
Active User
Joined: 31 Aug 2006
Posts: 218
Location: India
|
|
|
|
| shreevamsi wrote: |
Hi,
Could anyone explain me what is the following..
Initialize the Large array in Cobol.
05 WS-TEMP.
07 A OCCURS 10 TIMES
INITIALIZE A (1)
MOVE WS-TEMP TO WS-TEMP (LENGTH OF A (1) + 1 : )
Thanks,
~Vamsi |
I have executed a sample code.
| Code: |
01 WS-OCCURS.
10 WS-A1 OCCURS 3 TIMES
INDEXED BY I.
20 WS-A1-1 PIC 9(9).
20 WS-A1-2 PIC X(9).
01 WS-TEMP PIC 9(01) VALUE 1.
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 3
MOVE WS-TEMP TO WS-A1-1(I)
MOVE WS-TEMP TO WS-A1-2(I)
ADD 1 TO WS-TEMP
END-PERFORM.
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 3
DISPLAY WS-A1-1(I)
DISPLAY WS-A1-2(I)
END-PERFORM.
INITIALIZE WS-A1-1(1)
MOVE WS-OCCURS TO
WS-OCCURS (LENGTH OF WS-A1-1(1) + 1 : )
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 3
DISPLAY WS-A1-1(I)
DISPLAY WS-A1-2(I)
END-PERFORM.
And the results are
000000001
1
000000002
2
000000003
3
000000000
000000000
000000000
000000000
000000000
000000000
|
Finally what i have observed is : It moved zeros to all array variables.
Seniors and Moderators correct me if i am wrong. |
|
| Back to top |
|
|
|
|
