/
PROGRAM close
.mcall close$
FUNCTION close[fdb]
LET r0 = fdb
close$ r0
RET f.err(r0)
.end