PDQ: assignment to allocated space ending in MCH0601 error

[David Gibbs <david@xxxxxxxxxxxx>]

(PDQ = Possibly Dumb Question)

Ok, maybe I'm doing something completely wrong here ... but I'm not seeing it.

I'm trying to dynamically allocate space for a work buffer in a procedure.

Here is a fragment of the code that's encountering the error ...

PwordwrapText     B
D                 PI
D input                      32767    value
D linelength                     5  0 value
D lineCount                      5  0 value
D output                     32767

D workBuffer      S          32767    based(workBufferP)
D workBufferP     S               *

 /free
  inputLength = %len(%trim(input));
  workBufferP = %alloc(inputLength + lineLength);
  workBuffer = %trim(input);

When I assign workBuffer to the trimmed value of input, I'm getting a MCH0601 (Space offset X'00008FFE' or X'0000000000000000' is outside current limit for object DGIBBSC1  DEVDMG    773502.)  The space class is x'04'.

This is for a word wrapping routine ... the reason I allocate the input Length + the line length is because I might end up processing off the end of the input.

In this particular case, inputLength is 89 and lineLength is 50.

I also tried assigning the workBuffer to %subst(input:1:inputLength), but got the same error.

I don't claim to be an expert in pointers ... but I thought that assigning a value to a based variable will simply copy the contents into the previously allocated space.

Any idea why I'm getting the MCH0601 error?

Thanks!

david