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