1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
!nocache
!if $status=waiting
!exit
!endif
df_data=!record 0 of Dataindex
df_names=!column 1 of $df_data
df_titles=!column 2 of $df_data
df_auths_firstname=!column 3 of $df_data
df_auths_lastname=!column 4 of $df_data
df_record_cnt=!column -1 of $df_data
df_record_cnt_total=0
df_cnt=!itemcnt $df_names
df_authors=$empty
!for i=1 to $df_cnt
!! df_prompt = !append item $(df_titles[$i]) ($df_record_cnt) to $df_prompt
tmp_author = $(df_auths_firstname[$i]) $(df_auths_lastname[$i])
df_authors = !append item $tmp_author to $df_authors
!if $tmp_author != $empty
tmp_author = ($tmp_author)
!endif
tmp=$(df_titles[$i]) $tmp_author [$(df_record_cnt[$i])]
df_prompt = !append item $tmp to $df_prompt
df_record_cnt_total=!eval $df_record_cnt_total+$(df_record_cnt[$i])
!next i
df_ask=!listintersect $(confparm$wims_read_parm) and $df_names
!default df_ask=$df_names
df_ask=!randitem $df_ask
oefenv_datafile=src/data/$df_ask.data
df_namecnt=!positionof item $df_ask in $df_names
df_title=!item $df_namecnt of $df_titles
|
