Re: Pointer question

[rob@xxxxxxxxx]

These fields were not even contiguous.  Maybe not the way I would have 
done it but it compiles and works.
     FSJL       IF   E             DISK

     D DateDs          ds
     D  Date1
     D  date2
     D  date3
     D  date4
     D  date5
     D  date6
     D pDateDs         s               *   inz(%addr(DateDs))
     D pWhichDate      s               *

     d WhichDate       s              5i 0
     d BeBopDate       s               d   based(pWhichDate)

      /free
       WhichDate=2;
       read sjl;
       *inlr=*on;
       // dsply DateDs;
       pWhichDate=pDateDs + (WhichDate - 1) * %len(Date1);
       dsply BeBopDate;
       return;
      /end-free 

> CREATE TABLE ROB.SJL (DATE1 DATE NOT NULL WITH DEFAULT, DATE2 DATE 
  NOT NULL WITH DEFAULT, YODA CHAR (5 ) NOT NULL WITH DEFAULT, DATE3 
  DATE NOT NULL WITH DEFAULT, DATE4 DATE NOT NULL WITH DEFAULT, DATE5
  DATE NOT NULL WITH DEFAULT, DATE6 DATE NOT NULL WITH DEFAULT) 
  rcdfmt sjlr 
  Table SJL created in ROB. 
> INSERT INTO ROB.SJL VALUES('2003-01-01', '2004-02-02', 'a', 
  '2005-03-03', '2006-04-04', '2007-05-05', '2008-06-06') 

BeBopDate = '2004-02-02'
Rob Berendt