Re: Get number of used elements of an internal table

thanx.

exactly what i needed.

On Tue, 22 Jun 2004 07:03:08 -0400
"Bruce Odum" <bodum@xxxxxxxxxxxx> wrote:

> If blanks are not valid in your array you can do what I am doing and
> testing for a blank.  The variable TEST is equal to blanks in this
> example
> 
> x = %lookup(test:A_CC);              
>  For i = 1 to (x-1);                  
>  Type = CC;                           
>  WorkText = A_CC(i);                  
>  Text = newString(%trim(WorkText));   
>  addAddress(mail:Type:Text);          
>  Endfor;                              
> 
> Bruce Odum
> bodum@xxxxxxxxxxxx
> (423) 510-3821
> 
> 4080 Jenkins Rd.
> Chattanooga, TN 37421
> 
> 
> 
> -----Original Message-----
> From: Mihael Knezevic [mailto:m.knezevic@xxxxxxxx] 
> Sent: Tuesday, June 22, 2004 6:21 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Get number of used elements of an internal table
> 
> hi,
> 
> there is probably a way to get the number of used elements in a table
> but i haven't found it. could someone tell me where to look or how to do
> that.
> 
> my code so far:
> <snippet>
> 0023.06
> ************************************************************************
> *                                            040
> 0023.07  *    Dateien
> *                                            040
> 0023.08
> ************************************************************************
> *                                            040
> 0023.09 FBS_MSG_ID IT   F    7        DISK
> 040
> 0023.10  *
> 040
> 0024.00
> ************************************************************************
> *                                            040
> 
> </snippet>
> 
> <snippet>
> 0078.04 D statusArray     S              7A   DIM(100)
> 040
> 0078.05 D                                     PERRCD(1)
> 040
> 0078.06 D                                     FROMFILE(BS_MSG_ID)
> 040
> 
> </snippet>
> 
> 
> the bif %elem seems to return the max number of elements of a table, in
> my case 100.
> 
> thanx in advance for any help
> 
> mihael knezevic
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> 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@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>