Re: API

["Keith Carpenter" <CarpCon@xxxxxxx>]

When I was coding for V3R2,  I used the following MI functions in RPGLE as a
pointer arithmetic work around.

h dftactgrp(*no) bnddir('QC2LE')
 * set space pointer offset
d setsppo         pr              *   extproc('setsppo')
d  Pointer                        *   value
d  Offset                       10i 0 value
 * store space pointer offset
d stsppo          pr            10i 0 extproc('stsppo')
d  Pointer                        *   value
 * add len to buffer pointer
c                   eval      BufrP = setsppo(BufrP:stsppo(BufrP)+len)


Keith



----- Original Message -----
From: <rob@dekko.com>
To: <rpg400-l@midrange.com>
Sent: Thursday, September 26, 2002 11:52 AM
Subject: Re: API


> This is a multipart message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> Ask Konrad.  I consider that an invalid reason  :-)
>
> Rob Berendt
> --
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
>
>
>
>
> Douglas Handy <dhandy1@bellsouth.net>
> Sent by: rpg400-l-admin@midrange.com
> 09/26/2002 10:05 AM
> Please respond to rpg400-l
>
>
>         To:     rpg400-l@midrange.com
>         cc:
>         Fax to:
>         Subject:        Re: API
>
>
> Rob,
>
> >The only invalid uses for QUSRTVUS is for people who are pointer phobic,
> >and those who insist on using RPG/400 instead of RPGILE.
>
> Invalid?
>
> Also add to the list those still on CISC machines.  V3R2 did not include
> pointer
> arithmetic support, which was added in V3R7.
>
> Doug
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>