/**********************************************************************/
/*                                                                    */
/*   The following FSEDIT SCL program displays a SAS/AF window to     */
/*   confirm the delete request before the observation is actually    */
/*   deleted:                                                         */
/*                                                                    */
/**********************************************************************/

   FSEINIT:
     control always;
   return;

   INIT:
   return;

   MAIN:
     if word(1,'u')=:'DEL' then
       do;
         delflag='N';
         call display('confirm.program',delflag);
         if delflag='Y' then
           call execcmdi('delete','noexec');
       end;
   return;

   TERM:
   return;