Subversion Repositories wimsdev

!! updatefield of a record
!! wims_read_parm should be by line :
!! file
!! num of field
!! optionword
!! all other lines : new data for the field num
!!
!! option allow :
!! delete : in this case field num will be deleted
!! sort according the line num of each record
!! so the new data will be in this case at the end at the first step

file_=!line 1 of $wims_read_parm
num_=!line 2 of $wims_read_parm
option_=!line 3 of $wims_read_parm
data_=!line 4 to -1 of $wims_read_parm
nbrec_=!recordcnt $file_
newrecord_=$empty
!if $option_=sort
  !!list of items to sort
  !reset tmp_to_sort
  !for k_=1 to $nbrec_
    tmp_=!record $k_ of $file_
    tmp_=!line $num_ of $tmp_
    tmp_to_sort=!append line $tmp_ to $tmp_to_sort
  !next
  tmp_to_sort=!sort line $tmp_to_sort
  !for k_=1 to $nbrec_
    tmp_=!record $(wims_sort_order[$k_]) of $file_
    newrecord_=!append line :$tmp_ to $newrecord_
  !next k_
  !goto end
!endif

!if $num_>1
  !for k_=1 to $num_-1
    tmp_=!record $k_ of $file_
    newrecord_=!append line :$tmp_ to $newrecord_
  !next k_
!endif
!if delete notwordof $option_
  newrecord_=!append line :$data_ to $newrecord_
!endif
!if $num_<$nbrec_
  !for k_=$num_+1 to $nbrec_
    tmp_=!record $k_ of $file_
    newrecord_=!append line :$tmp_ to $newrecord_
  !next k_
!endif
:end
!writefile $file_ $newrecord_