ROUTINE  X
PRINTSTRING("Deletion of users not allowed during archive compaction")
NEWLINE
PRINTSTRING("Please see Bob Eager")
NEWLINE
END 
EXTERNALROUTINE  DELETEUSER(STRING (255) S)
X
END 
EXTERNALROUTINE  DELETECLASS(STRING (255) S)
X
END 
ENDOFFILE