******************************************************************************* * * New System Admin - This routine will read a unix file into a dynamic * array. * * Module %M% Version %I% Date %H% * * (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved * This is unpublished proprietary source code of Ardent Software Inc. * The copyright notice above does not evidence any actual or intended * publication of such source code. * ******************************************************************************* * * Maintenence log - insert most recent change descriptions at top * * Date.... GTAR# WHO Description......................................... * 10/14/98 23801 SAP Change copyrights. * 11/05/90 7393 DPB Routine first created and admin'd. ******************************************************************************* subroutine rd.unx.fil.b (unix.directory.file.variable,unix.file.name,out.array,out.count) * Reads a Unix file as a record of its parent directory, and coverts * Eg, opens the /etc/passwd record of the /etc file, and converts to a * standard dynamic array. read out.array from unix.directory.file.variable,unix.file.name else out.array = "" convert char(10):":" to @AM:@VM in out.array out.count = count(out.array,@AM) + 1 return