Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 16087 | guerimand | 1 | !! |
| 2 | !! delete a field of a record |
||
| 3 | !! should be replace by a c instruction |
||
| 4 | !! needed information in wims_read_parm |
||
| 5 | !! word1 : field to be deleted |
||
| 6 | !! word2 : name of file |
||
| 7 | |||
| 8 | !distribute word $wims_read_parm into number_,file_ |
||
| 9 | ecnt_=!recordcnt $file_ |
||
| 10 | !for e_=1 to $ecnt_ |
||
| 11 | field_$e_=!record $e_ of $file_ |
||
| 12 | !next e_ |
||
| 13 | !writefile $file_ $empty |
||
| 14 | !for e_=1 to $ecnt_ |
||
| 15 | !if $number_!=$e_ |
||
| 16 | !appendfile $file_ :$(field_$e_) |
||
| 17 | !endif |
||
| 18 | !next e_ |