Re: Pointer manipulation in CLLE.

Rob, I think %OFFSET only changes the offset of the pointer, it doesn't change the entire address.

When you get to the ChgVar %Offset line of code, pJobCount is null. You are telling it "I still want you to point to null, but please change the offset within null to the same offset that's in the pUsrSpc pointer, except, add some to it..."

Which doesn't make any sense. You can't have an offset unless you're pointing to an actual space -- You can't offset null!

So I would say you want to do this:

ChgVar &pJobCount value(&pUsrSpc)
ChgVar %offset(&pJobCount) value(%offset(&pJobCount) + &intWork)

That's untested, off the top of my head...



On 8/14/2013 1:24 PM, rob@xxxxxxxxx wrote:

Ok, what am I doing wrong here? (other than using CL please).

DCL &pJobCount *PTR /* Pointer to &JobCount */
DCL &JobCount *INT BASPTR(&pJobCount) STG(*BASED) +
/* Number of jobs from list job */
...
DCL &pUsrSpc *PTR /* Pointer to physical user space */
...
DCL &BinChar *CHAR 2 /* We can't do %binary(X'000C') so we have
to +
use two steps and a temporary variable.
:-( */
DCL &intWork *INT /* We can't do %binary(X'000C') so we have
to +
use two steps and a temporary variable.
:-( */
...
CALL QUSPTRUS PARM(&UsrSpc &pUsrSpc &ErrCode)
...
CHGVAR &binChar X'0084'
CHGVAR &intWork %binary(&binChar)
CHGVAR %offset(&pJobCount) (%offset(&pUsrSpc) + &intWork)
MCH3601 - Pointer not set for location referenced.

From program . . . . . . . . . : Ex2401PtrDoesNotExist

Instruction . . . . . . . . : 0000C8

To program . . . . . . . . . . : UPSJOB
To library . . . . . . . . . : MAILTWO
To module . . . . . . . . . : UPSJOB
To procedure . . . . . . . . : UPSJOB
To statement . . . . . . . . : 249

&PJOBCOUNT = SPP:*NULL
&PUSRSPC = SPP:100500D605001000


Rob Berendt