Subversion Repositories wimsdev

Rev

Blame | Last modification | View Log | RSS feed

!!
!! delete a field of a record 
!! should be replace by a c instruction
!! needed information in wims_read_parm
!! word1 : field to be deleted
!! word2 : name of file 

!distribute word $wims_read_parm into number_,file_
ecnt_=!recordcnt $file_
!for e_=1 to $ecnt_
  field_$e_=!record $e_ of $file_
!next e_
!writefile $file_ $empty
!for e_=1 to $ecnt_
  !if $number_!=$e_
    !appendfile $file_ :$(field_$e_)
  !endif
!next e_