Re: Pointer manipulation in CLLE. -- MIDRANGE-L

Rob,

You'll find the generic header decimal and hex offsets at
http://pic.dhe.ibm.com/infocenter/iseries/v7r1m0/topic/apiref/usfcommonstructure.htm
Just remember to add 1 as CL definition support is base-1 while the API
documentation is base-0 (like how I used 133 on the DefVar though
x'00000084' is 132).

For processing of the entries just use another pointer with *Based and
*Defined support for the entry definition. Initially set this second
pointer to &pUsrSpc + offset to first entry, then just add length of each
entry to this second pointer's offset to step through each entry (through
&JobCount entries).
On Wed, Aug 14, 2013 at 2:33 PM, <rob@xxxxxxxxx> wrote:

Bruce,
That would have cut down one of my pointer usages. I had a few others for
processing each list entry. I may do that though. I will sheepishly
admit that one thing is I hate doing the hex to decimal conversion and was
really hoping that I could use a constant in %binary.
The infocenter lists offsets in hex, not decimal.

Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1
Group Dekko
Dept 1600
Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

From: Bruce Vining <bvining@xxxxxxxxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>,
Date: 08/14/2013 03:24 PM
Subject: Re: Pointer manipulation in CLLE.
Sent by: midrange-l-bounces@xxxxxxxxxxxx

Rob,

If what you're after is the number of list entries returned from say
QUSLJOB, then the following should work quite nicely:

Pgm

Dcl Var(&pUsrSpc) Type(*Ptr)
Dcl Var(&LstHdr) Type(*Char) Len(191) Stg(*Based) +
BasPtr(&pUsrSpc)
Dcl Var(&JobCount) Type(*Int) Stg(*Defined) +
DefVar(&LstHdr 133)

Call Pgm(QUSPTRUS) Parm('PLAYSPACE QTEMP' +
&pUsrSpc 0)

EndPgm

After the call to QUSPTRUS &JobCount will be set.

Bruce

On Wed, Aug 14, 2013 at 1:55 PM, <rob@xxxxxxxxx> wrote:

I'll try that. If that works my "initialization" section is going to

full

of comments about this crap.
Sort of like my existing one 'geez, why can't I use a constant in

%binary

like
chgvar &mydec (%binary(X'0012')
so why must I use a variable?

Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1
Group Dekko
Dept 1600
Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

From: Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>,
Date: 08/14/2013 02:49 PM
Subject: Re: Pointer manipulation in CLLE.
Sent by: midrange-l-bounces@xxxxxxxxxxxx

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

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
Regards,
Bruce
www.brucevining.com
www.powercl.com
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.