Re: Multiple occurrence Data Structure

Mike Silvers wrote:

Hans,

I am trying to make this sort of dynamic :)  I am trying the following:

D size            S              5P 0
 *
 * Load the DS
 *
C                   Eval      size = %Size(Structure)* 3
C                   Eval      StructurePoint = %Alloc(size)

The number 3 will be softcoded in the program, but I am getting a numeric
error when allocating the size.  (The error is The target for a numeric
operation is too small to hold the result).  I don't understand why I am
getting the error.  If I hard code the size as the number 60, there are no
problems and everything works well.

Well, I'm not sure why you're getting the abend.  (You're probably
just missing a PTF.)  But a decimal numeric variable isn't really
the best choice for this type of thing.  Change the definition of
"size" to 10I0, and see what happens.  Integer and unsigned numeric
types are always better for numeric values with zero decimal places.

Alternatively, if you don't need variable "size" for any other
purpose, just code: "eval sp = %alloc(%size(Structure)*3);".

Cheers!  Hans