nUnit = diagSt_ioUnit(n)
INTEGER diagSt_ioUnit(numlists)
& diagSt_ioUnit,
diagSt_ioUnit(n) = 0
nUnit = diagSt_ioUnit(listId)
diagSt_ioUnit(n) = nUnit