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