DISPLAY(Off!)
CANCEL(OFF!)
FORNEXT(Docnum; 1; 9; 1)
     SwitchDoc(Docnum)
     IF (?DocModified)
          Save
     ENDIF
     Close
ENDFOR
