pointer based arrays

["Dan Belu" <danbelu@xxxxxxxxxxx>]

Here is the situation:

        I want to convert filea with a format like:
flda1 flda2 flda101 flda102 ... flda124 flda201 flda202 ... flda224

        to fileb that looks like:
fldb1 fldb2 fldb11 fldb21
fldb1 fldb2 fldb11 fldb21
.
.
.
fldb1 fldb2 fldb11 fldb21 (times 24)

The fields flda101, flda102, ..., flda124 have the same size and map all to 
fldb11 and
	   flda201, flda202, ..., flda224 are alike and map to fldb21

I tried to use pointer based arrays to load the data in an elegant way.
But is not working although is suppose to.
The problem is that RPG does not load the data into the fields that aren't 
directly used in the program.

This is the code I use:

*
* C_Template convert filea - horizontal to fileb - vertical
*
*----------------------------------------------------------------
ffilea     if   e           k disk
ffileb     uf a e           k disk

darra1            s              3  0 dim(24) based(ptr1)
darra2            s              8  0 dim(24) based(ptr2)
dptr1             s               *   inz(*null)
dptr2             s               *   inz(*null)

c                   dou       %eof(filea)
c                   clear                   ptr1
c                   clear                   ptr2
c                   read(e)   filea
c                   if        %eof(filea)
c                   leave
c                   endif
c                   clear                   c_rec
* set pointer1 and pointer2
c                   eval      ptr1 = %addr(flda101)
c                   eval      ptr2 = %addr(flda201)
* at this point arra1 and arra2 should have all the data loaded.
c                   z-add     0             i                 2 0
* requirements and their dates
c     1             do        24            i
c                   if        ptr1 <> *null
c                   eval      fldb1 = arra1(i)
c                   endif
c                   if        ptr2 <> *null
c                   eval      fldb2 = arra2(i)
c                   endif
c                   write     c_rec
c                   enddo

c                   enddo

c                   seton                                        lr

The fileds flda102, flda103 and so on and the corresponding array elements 
will have zero values even if the input file has data in these fileds.
The same with flda202, flda203 ... The only ones that get the data are 
flda101 and flda201 because I specifically use it in the code.

Any help would be greatly appreciated.

Dan

_________________________________________________________________
The new MSN 8: smart spam protection and 2 months FREE*  
http://join.msn.com/?page=features/junkmail  
http://join.msn.com/?page=dept/bcomm&pgmarket=en-ca&RU=http%3a%2f%2fjoin.msn.com%2f%3fpage%3dmisc%2fspecialoffers%26pgmarket%3den-ca