EXTERNALROUTINE CHKNNT(STRING (255)S) EXTERNALINTEGERFNSPEC GETUSNAMES2(RECORDARRAYNAME R, C INTEGERNAME N, INTEGER FSYS) EXTERNALROUTINESPEC GETAVFSYS(INTEGERNAME N, INTEGERARRAYNAME F) EXTERNALINTEGERFNSPEC DFSYS(STRING (6)USER, INTEGERNAME FSYS) ! ! ! INTEGER I, J, K, FSYS, NF, NU, UF INTEGERARRAY F(0:99) RECORDFORMAT RF(STRING (6)USER, BYTEINTEGER KB, INTEGER IND) RECORDARRAY R(0:340)(RF) ! ! ! GETAVFSYS(NF, F) RETURN UNLESS NF > 0 ! CYCLE I = 0, 1, NF-1 FSYS = F(I) J = GETUSNAMES2(R, NU, FSYS) PRINTSTRING("GETUSNS") WRITE(FSYS, 1) WRITE(J, 1) NEWLINE IF J = 0 START CYCLE K = 0, 1, NU-1 UF = FSYS J = DFSYS(R(K)_USER, UF) UNLESS J = 0 START PRINTSTRING(" ".R(K)_USER) WRITE(J, 1) NEWLINE FINISH REPEAT FINISH REPEAT END ENDOFFILE