INMAT ( [matriz] )
Utilice la función INMAT para devolver el número de elementos de matriz que se han cargado después de la ejecución de una sentencia MATREAD, MATREADL, MATREADU o MATPARSE, o para devolver el módulo de un archivo tras la ejecución de una sentencia OPEN. También puede utilizar la función INMAT después de una sentencia DIM para determinar si la sentencia DIM ha fallado debido a la falta de memoria disponible. Si una sentencia DIM precedente falla, INMAT devuelve el valor 1.
Si la asignación de matriz excede el número de elementos especificado en su sentencia de dimensión, la sentencia MATREAD, MATREADL, MATREADU o MATPARSE carga el elemento cero. Si las dimensiones de la matriz son demasiado pequeñas y se ha cargado el elemento cero, la función INMAT devuelve el valor 0.
Si se especifica matriz, la función INMAT devuelve las dimensiones actuales de la matriz. Si matriz es el valor nulo, la función INMAT falla y el programa termina con un mensaje de error de tiempo de ejecución.
DIM X(6)
D='123456'
MATPARSE X FROM D,''
Y=INMAT()
PRINT 'Y= ':Y
*
DIM X(5)
A='CBDGFH'
MATPARSE X FROM A,''
C=INMAT()
PRINT 'C= ':C
*
OPEN '','VOC' TO FILE ELSE STOP
T=INMAT()
PRINT 'T= ':T
Esta es la salida del programa:
Y= 6
C= 0
T= 23