I figured it out from Brian's notes

SUBROUTINE TEST_HARNESS4
$INCLUDE LF_FINS LF_MASTER_INCLUDE
VERS='4.000'

DIM ARRAY(23)
CALL CALLED(MAT ARRAY)

RETURN

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

SUBROUTINE CALLED(MAT ARRAY)
VERS='4.000'
PRINT INMAT(ARRAY)
RETURN

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

returns:

23²1


> From: cjausti...@hotmail.com
> To: u2-users@listserver.u2ug.org
> Date: Thu, 18 Aug 2011 12:57:06 -0500
> Subject: Re: [U2] easy way to get count of a DIM()?
> 
> 
> We're trying to create the dimensioned array at run time with a size based on 
> a variable, which works in UniVerse
> when using the -STATIC.DIM option. We need to know (in another program), what 
> the size of that dimensioned array is.
> 
> Chris
> 
> 
> > From: ggal...@wyanokegroup.com
> > To: u2-users@listserver.u2ug.org
> > Date: Thu, 18 Aug 2011 12:48:53 -0500
> > Subject: Re: [U2] easy way to get count of a DIM()?
> > 
> > Dimensioned arrays do not change their sizes.
> > 
> > If you DIM x(25), the size of x is 25
> > 
> > It's not like a dynamic array
> > 
> > However, when you MATWRITE the array to disk, it will only write out
> >     up to the last physical data in the array, and ignore the trailing
> >     blank slots.
> > 
> > George
> > 
> > > -----Original Message-----
> > > From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-
> > > boun...@listserver.u2ug.org] On Behalf Of Chris Austin
> > > Sent: Thursday, August 18, 2011 1:44 PM
> > > To: u2-users@listserver.u2ug.org
> > > Subject: Re: [U2] easy way to get count of a DIM()?
> > > 
> > > 
> > > Yes,
> > > 
> > > That is correct DIM X(25) to initialize X, how do we then get the size
> > > of X?
> > > 
> > > Thanks,
> > > 
> > > Chris
> > > 
> > > 
> > > > From: gglorfi...@vertisinc.com
> > > > To: u2-users@listserver.u2ug.org
> > > > Date: Thu, 18 Aug 2011 13:41:17 -0400
> > > > Subject: Re: [U2] easy way to get count of a DIM()?
> > > >
> > > > First off, I've never seen that syntax before.  Do you mean:
> > > >
> > > > DIM X(25)
> > > >
> > > > or do you mean you are setting X to the 25th value in a dimensioned
> > > variable?  And I don't understand what you mean when you say "some
> > > records get taken out".  How are they taken out?
> > > >
> > > > I'm a little confused by your question.
> > > >
> > > > -----Original Message-----
> > > > From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-
> > > boun...@listserver.u2ug.org] On Behalf Of Chris Austin
> > > > Sent: Thursday, August 18, 2011 1:30 PM
> > > > To: u2-users@listserver.u2ug.org
> > > > Subject: [U2] easy way to get count of a DIM()?
> > > >
> > > >
> > > > I'm trying to get the count of a dimensioned array DIM() in UniVerse
> > > 10.x
> > > >
> > > > Let's say we have a variable that's set to an array:
> > > >
> > > > X = DIM(25)
> > > >
> > > > if I wanted to find out the count of X later on in the program (let's
> > > say some records get taken out and we need the count), how would
> > > > you do this?
> > > >
> > > > Thanks,
> > > >
> > > > Chris
> > > >
> > > >
> > > > _______________________________________________
> > > > U2-Users mailing list
> > > > U2-Users@listserver.u2ug.org
> > > > http://listserver.u2ug.org/mailman/listinfo/u2-users
> > > > _______________________________________________
> > > > U2-Users mailing list
> > > > U2-Users@listserver.u2ug.org
> > > > http://listserver.u2ug.org/mailman/listinfo/u2-users
> > > 
> > > _______________________________________________
> > > U2-Users mailing list
> > > U2-Users@listserver.u2ug.org
> > > http://listserver.u2ug.org/mailman/listinfo/u2-users
> > _______________________________________________
> > U2-Users mailing list
> > U2-Users@listserver.u2ug.org
> > http://listserver.u2ug.org/mailman/listinfo/u2-users
>                                         
> _______________________________________________
> U2-Users mailing list
> U2-Users@listserver.u2ug.org
> http://listserver.u2ug.org/mailman/listinfo/u2-users
                                          
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to