Subversion Repositories wimsdev

Rev

Rev 20 | Rev 4349 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 4158
Line 2... Line 2...
2 
 !goto proc
 2 
 !goto proc
3 
!endif
 3 
!endif
4 
slib_title=Take a random line of a data file
 - 
 
5 
slib_parms=1\
 4 
 
6 
,name of the data file in the module
 - 
 
7 
slib_author=Gang Xiao
 5 
slib_author=Gang Xiao
8 
slib_out=the random line (empty if error)
 - 
 
9 
slib_comment=The length of the data file is limited.
 - 
 
- 
 
 6 
 
10 
!exit
 7 
!exit
11 
 
 8 
 
12 
:proc
 9 
:proc
13 
!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
 10 
!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
14 
 !exit
 11 
 !exit