Rev 7680 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7680 | Rev 10894 | ||
---|---|---|---|
Line 5... | Line 5... | ||
5 | !endif |
5 | !endif |
6 | 6 | ||
7 | df_data=!record 0 of Dataindex |
7 | df_data=!record 0 of Dataindex |
8 | df_names=!column 1 of $df_data |
8 | df_names=!column 1 of $df_data |
9 | df_titles=!column 2 of $df_data |
9 | df_titles=!column 2 of $df_data |
- | 10 | df_record_cnt=!column -1 of $df_data |
|
- | 11 | ||
- | 12 | df_record_cnt_total=0 |
|
- | 13 | df_cnt=!itemcnt $df_names |
|
- | 14 | !for i=1 to $df_cnt |
|
- | 15 | !! df_prompt = !append item $(df_titles[$i]) ($df_record_cnt) to $df_prompt |
|
- | 16 | tmp=$(df_titles[$i]) [$(df_record_cnt[$i])] |
|
- | 17 | df_prompt = !append item $tmp to $df_prompt |
|
- | 18 | df_record_cnt_total=!eval $df_record_cnt_total+$(df_record_cnt[$i]) |
|
- | 19 | !next i |
|
10 | 20 | ||
11 | df_ask=!listintersect $(confparm$wims_read_parm) and $df_names |
21 | df_ask=!listintersect $(confparm$wims_read_parm) and $df_names |
12 | !default df_ask=$df_names |
22 | !default df_ask=$df_names |
13 | df_ask=!randitem $df_ask |
23 | df_ask=!randitem $df_ask |
14 | oefenv_datafile=src/data/$df_ask.data |
24 | oefenv_datafile=src/data/$df_ask.data |