MVSFORUMS.com

sunnys_day · Beginner Joined: 17 Feb 2003 Posts: 1 Topics: 1

Consider the following array.

01 working-storage.
03 array1 occurs 10 .
05 ele1 pic 9.
05 ele2 pic x.

03 other-element pic 9(2).

Now, suppose that I want to initialise only array1, how do i got about it?
Pls note that I do not want to initialise other-element.

I tried
INITIALIZE array1.
However, this gives an error on the lines of "Trying to access an array without mentioning the subscript."

A work around would be as following:-

Perform varying ws-no 1 by 1 until ws-no>10
Initialize array1(ws-no)
End-Perform.

However, I do not want to use this.
Could you pls suggest an alternative.

satjag · Beginner Joined: 19 Dec 2002 Posts: 19 Topics: 2

Hello,

It is not possible to access an array or its element without using the subscript.The method you have suggested is the usual method used for initialising the array elements.
_________________
Regards,
satjag

Tophe · Posted: Wed Jun 11, 2003 12:58 am Post subject:

You can also rewrite your WSS like this :

01 working-storage.
03 table.
05 array1 occurs 10 .
07 ele1 pic 9.
07 ele2 pic x.

05 other-element pic 9(2).

and you can use INITIALIZE TABLE.

HTH

Chris

vp · Beginner Joined: 30 Jun 2003 Posts: 9 Topics: 0

If you don't want your other-element to be initialized make it a 03 level (same as table).

CaptBill · Posted: Mon Jun 30, 2003 2:43 pm Post subject:

Or you could say

slade · Posted: Mon Jun 30, 2003 6:06 pm Post subject:

Or you could code:

Meera · Beginner Joined: 27 Jun 2003 Posts: 7 Topics: 0

Why bother? rewrite your fields:
01 working-storage.
02 init-array.
03 num-1 pic 9.
03 alpha-1 pic x.
03 num-2 pic 9.
03 alpha-2 pic x.
03 num-3 pic 9.
03 alpha-3 pic x.
03 num-4 pic 9.
03 alpha-4 pic x.
03 num-5 pic 9.
03 alpha-5 pic x.
03 num-6 pic 9.
03 alpha-6 pic x.
03 num-7 pic 9.
03 alpha-7 pic x.
03 num-8 pic 9.
03 alpha-8 pic x.
03 num-9 pic 9.
03 alpha-9 pic x.
03 num-10 pic 9.
03 alpha-10 pic x.
02 filler redefines init-array.
03 array1 occurs 10 .
05 ele1 pic 9.
05 ele2 pic x.

02 other-element pic 9(2).

and write

initialize init-array replacing numeric by zero alphanumeric by spaces.

Bithead · Posted: Tue Jul 01, 2003 1:41 pm Post subject:

Here is a bithead way to do it.

03 table.
05 array1 occurs 10 .
07 ele1 pic 9.
07 ele2 pic x.
03 r-1 redefines table.
07 r-1-a pic x(18).
07 filler pic x(2).
03 r-2 redefines table.
07 filler pic x(2).
07 r-2-a pic x(18).

move 0 to ele1 (1).
move ' ' to ele2 (1).
move r-1-a to r-2-a.

slade · Posted: Tue Jul 01, 2003 3:41 pm Post subject:

Meera,

Why bother what?

Bithead,

What's so cool about r-1-a and r-2-a? Smile

Regards, Jack.

Bithead · Posted: Tue Jul 01, 2003 3:58 pm Post subject:

3 lines of executable code - high performance. Try defining a variable with all the initial values for element 1 then this is reduced to 2 lines of executable code.

03 init-values.
07 filler pic 9 value 0.
07 filler pic x value ' '.

move init-values to array1 (1).
move r-1-a to r-2-a.

Any table, any size. Can't get any faster.