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_