====== InMat function  ======

 


 
==== Description ====
 
Returns the number of elements read into a dimensioned array after a [[matread|MatRead]] statement has successfully executed.
 
==== Syntax ====
 
//retval// =**  InMat**()
 
==== Parameters ====
 
None.
 

 
==== Returns ====
 
In retval, the number of elements read into a dimensioned array after a [[matread|MatRead]].
 
==== See Also ====
 
[[matread|MatRead statement]]
 
==== Example ====
 
<code>
*This code fragment reads row '1' from the CUSTOMERS table into a dimensioned array called CUST.
*The values in the columns that have been read in are displayed.

 

declare subroutine fsmsg

declare function msg

 

Open "CUSTOMERS" To CUST_FILE Else

  fsmsg()

  Return 2

End

 

* read row with key '1' into CUST array.

KEY = '1'

Dim CUST(30)

MatRead CUST From CUST_FILE, KEY Else

   fsmsg()

   return 2

End

 

* display the value in each column.

num_elements = inMat()

for i = 1 to num_elements

  retval = msg (@window , 'Element number ' : i : ' = ' : CUST(i))

next i
 
 
</code>