OUTPUT
rv = chgreel(OUTPUT);
ioerror(OUTPUT);
if ((close(Archive) != 0) && (dir == OUTPUT))
(void) chgreel(&Out, OUTPUT);
(void) chgreel(&Out, OUTPUT);
case OUTPUT:
Otape = tapeck(&Out, OUTPUT);
(void) chgreel(&Out, OUTPUT);
(void) chgreel(&Out, OUTPUT);
OUTPUT(ent);
OUTPUT(ent);
OUTPUT(CLEAR); /* do not count the CLEAR */