Re: Field value - Pointers

["oludare" <oludare@xxxxxxxxxxxxx>]

The following works without a glitch !!!  Note that FIELD1 becomes FIELD2
after EVAL.


D POINTER1           S                  *     INZ(%ADDR(FIELD1))
D FIELD1                 S              10      INZ('ABCD')
D FIELD2                 S              10      BASED(POINTER2)
D RESULT               S              10

C                             EVAL        POINTER2=%ADDR(FIELD1)
C
C                             IF                FIELD2 = FIELD1
C                             MOVE       'Yes'
RESULT
C                             ELSE
C                             MOVE       'No'
RESULT
C                             ENDIF
C                             DSPLY      '*EXT'
RESULT
C                             MOVE       *ON
*INLR



----- Original Message -----
From: "Rob Berendt" <rob@dekko.com>
To: <RPG400-L@midrange.com>
Sent: Monday, April 17, 2000 12:08 PM
Subject: Re: Field value - Pointers


> In fact I ran the following program.  The divide by zero was
> to create a dump - can't DSPLY pointers.  And in the dump, both
> of the pointers have the same value.
>
> FIIM       IF   E             DISK
> D IDESC           DS
> D  DESC8                         8A
>
> D POINTER         S               *
> D POINTER2        S               *
>
> D X               S              1P 0
> C                   READ      IIM
> C     IDESC         DSPLY
> C     DESC8         DSPLY
> C                   EVAL      POINTER=%ADDR(IDESC)
> C                   EVAL      POINTER2=%ADDR(DESC8)
> C                   EVAL      X=1/X
> C                   EVAL      *INLR=*ON
>
>
>
>
>
>
> Rob Berendt
> 04/17/2000 10:21 AM
> To: RPG400-L@midrange.com@Internet
> cc:
> Fax to:
> Subject: Re: Field value - Pointers
>
> Excellent response.  You're right.  It also shows that you understand what
the pointer is doing.
> Boils down to personal preference.
>
>
>
> joep@beckeringh.myweb.nl on 04/14/2000 07:46:29 PM
> Please respond to RPG400-L@midrange.com@Internet
> To: RPG400-L@midrange.com@Internet
> cc:
> Fax to:
> Subject: Re: Field value - Pointers
>
> Rob,
>
> Nothing wrong with pointers, but you don't need those for what you are
> doing: good old data structures suffice for this.
>
> Joep Beckeringh
>
>
> ----- Original Message -----
> From: "Rob Berendt" <rob@dekko.com>
> To: <RPG400-L@midrange.com>
> Sent: Thursday, April 13, 2000 11:44 PM
> Subject: Re: Field value - Pointers
>
>
> > You're right.  I've sent my apologies.
> >
> > However, this pointer stuff is great.  I am writing a program and found
> another use for it.  Check out:
> >
> >  * DDS only allows us to have 10 character field names.  Therefore
> >  * we will print PRTMSG.  However we want the value of PRTMSG to
> >  * always be the value of ExceptionId.
> > D PrtMsgP         S               *   inz(%addr(ExceptionId))
> > D PrtMsg          S                   like(ExceptionId) based(PrtMsgP)
> >
> >  * We want to print the first 70 characters of ObjectName.  Therefore
> >  * we will print the field Objname which will always contain the first
> >  * 70 characters of ObjectName.  No moves or substrings needed.
> > D ObjnameP        S               *   inz(%addr(ObjectName))
> > D Objname         S             70A   based(ObjnameP)
>
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
>
>
>
>
>
>


----------------------------------------------------------------------------
----


>
>
> <<< Document Link >>>
> Replica ID   = 0x5256525:0x5c934f
> Document ID  = 0xdaba975b:0x9fb113eb-0x852564b5:0x1283ea
> View ID      = 0xda9ea32a:0x3ca20081-0x52568c2:0x427f0
> <<< End >>>
>
>

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---