Vielen Dank Birgitta. Die SQL - Lösung klingt sehr gut. Leider kriege ich in meinem CL - Programm die Fehlermeldung "SQL0084". Per STRSQL funktionierte der Aufruf.

Code:
CHGVAR  &SQL   ('SELECT COUNT(OBJEC00001) '                 *CAT +
                'FROM TABLE(IFS_OBJECT_STATISTICS '         *CAT +
                '(''/HOME/'')) '                    *CAT +
                'WHERE OBJEC00001 = ''*STMF''')