Subversion Repositories wimsdev

!!
!! move a field of a record to another position
!!
!! needed information :
!! target_field : the position where the field be inserted after (next are translated).
!! source_field : the position of the source field
!! wims_read_parm : name of record

ecnt_=!recordcnt $wims_read_parm
!for e_=1 to $ecnt_
  field_$e_=!record $e_ of $wims_read_parm
!next e_
list_=!values v for v=1 to $ecnt_
list_=!replace item number $source_field by $empty in $list_
list_=!replace item $target_field by $target_field,$source_field in $list_
list_=!nonempty item $list_
!writefile $wims_read_parm :$(field_$(list_[1]))
!for e_=2 to $ecnt_
  !appendfile $wims_read_parm :$(field_$(list_[$e_]))
!next e_