Supongo que por "número de lineas ocupadas", te refieres al total de lineas de una tabla y no a la cantidad de lineas con "algo" en ellas.
Para el primer caso, sí, sí se puede con la propiedad
RowCount de la tabla
Código COBOL:
WORKING-STORAGE SECTION.
01 LIN PIC 9(5) COMP-5.
PROCEDURE DIVISION.
.
.
.
.
MOVE "RowCount" OF TABLA TO LIN.
LIN, contiene el número total de lineas, (que nunca será mayor de 2000).
para el segundo caso, la única manera de hacerlo es con un bucle.
Un salu2.-