6 FMSFRMFLG200 6-AUG-1990 16:51:23 6-AUG-1990 16:51:23þ   ((Æ & 20T  PP  SD_RENAME  ' @NEWNAME  ' OLDNAME   FUNC < ' !N    * .TYPEARG /OVERLAY/GET=FUNC,#FUNC  .TYPE/HARD='' $ OLDNAME/GET_SAVE=#SD_CURDOC & NEWNAME/PUT_SAVE=#SD_NEWNAME V NEWNAMEF/VALID=<.IF OA$DIR:"SHARED_LIBRARY:*.WPL;".%WHOLE[NEWNAME] EQS "" THEN X NEWNAMEH OA$VAL_SET_VALID ELSE DISPLAY A document with this name already exists @ NEWNAME0/RECOGNITION=OA$DIR:"SHARED_LIBRARY:*.WPL;".NAME      ' a Document  Current Document Name   Document:  New Document Name   New Name: