Return to %urdel.m CVS log

Up to [Coherent Logic Development] / freem / contrib

FreeM

    1: %urdel ; FreeM Routine Delete - version 0.5.0.1
    2:  ; Jon Diamond - 1999-3-31
    3:  ; 
    4:  N rtn,error
    5:  ; 
    6:  s error=$$init^%uxxxx
    7:  s error=$$writen^%uxxxx($t(+1)_"  "_$$^%uxdat)
    8:  ; 
    9: %query s rtn=$$rsel^%urxxx(%uwork) q:error<0
   10:  i $o(@%uwork@(""))="" s error=$$writep^%uxxxx("No routines selected") q
   11:  s error=$$rseldisp^%urxxx(%uwork)
   12:  s error=$$go(%uwork)
   13:  q
   14:   
   15: go(select)
   16:  n a,error,cnt
   17:  s a="",cnt=0
   18:  f  s a=$o(@select@(a)) q:a=""  d  q:error<0
   19:  . s error=$$delete^%urxxx(a)
   20:  . i error<0 s error=$$writep^%uxxxx("Routine not deleted - "_a) q
   21:  . s error=$$writep^%uxxxx("Routine deleted - "_a)
   22:  . s cnt=cnt+1
   23:  i error<0 q error
   24:  s error=$$writep^%uxxxx("Total number of routines deleted - "_cnt)
   25:  q error
   26: