Hi John,

I have found problems with the first 50 bytes of an ILOB. For some reason IceBreak seems to overwrite the information with its own data.

Can I suggest that you offset you ILOB working area by 50 bytes and see if this helps.

Incidently - If this helps - I usually use the following approach ( note the column positioning is not accurate!!):

 
D H                   S                *                                Pointer to ILOB header
D D                   S                *                                Pointer to ILOB detail record

D pH                 DS                   BASED(H) 
D  reserved                       50A 
D  numrcds                        10I 0                            Num rcds in ILOB                           

D pD                 DS                   BASED(D)              Example data record        
D  fld1                               50A VARYING 
D  fld2                             128A VARYING  
D  fld3                                   Z 
D  fld4                               10I 0

The pointer D is a function of pointer H and can therefore can be calculated from H if the value of H is a known variable. Let us suppose we have data in the ILOB and that we have the pointer to H, then to process the data in the ILOB record by record, then we must use something like:

 
  FOR i = 1 TO numrcds;

   pD = pH + %LEN(H) + (%LEN(D) * (i -1));    // Gives us the next D record

   ------  Process D record

 ENDFOR; 

A similar process can be used to add data to the ILOB - don't forget to increment the record count in H

It is also worth noting that if you don't need to store information in the session you can perform a similar process using the RPG %ALLOC and %REALLOC BIFs and the DEALLOC op code.

Hope this helps
Syd

Gents;

When you are receiving the pointer to the ILOB - then it is a handle. so you have to retrive the data pointer from the handle. the workaround that Syd i sugesting actually work ... but use the real poiner please...

 
<% 
*' --------------------------------------------------------------------------------
*' Use ilob with datastructures: Get/Set data in persistant ILOB
*' --------------------------------------------------------------------------------

/include qasphdr,ilob

D*Name++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++ 
d  AppLib         s             10 
d  MyIlob         s               *  
d  MyIlobDta      s               *   

d  MyDs           ds                  based(MyIlobdta) 
d    Used                         N 
d    Counter                    10i 0  
d    Name                       50  
*' --------------------------------------------------------------------  
*' Main logic  
*' --------------------------------------------------------------------

C/free    
   *inlr = *on;
   MyIlob = SesGetILOB('MyIlob'); 
   MyIlobDta = ILOB_GetDataPtr(MyIlob);   //' Get the data pointer to the ILOB 

   if (not used);                         //' Initialize contents if it's the first time 
     Counter = 0; 
     Used = *ON; 
   endif; 

   Counter = Counter + 1;       

   %><% = %char(Counter) %>  

Ah - So - we have a new function:

"MyIlobDta = ILOB_GetDataPtr(MyIlob); //' Get the data pointer to the ILOB"
 
Thanks Niels - I didn't know about this.

Regards
Syd