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 field of a record file
 - 
 
5 
slib_parms=1\
 4 
 
6 
,name of the record file in the module
 - 
 
7 
slib_author=Gang Xiao
 5 
slib_author=Gang Xiao
8 
slib_out=the random field (empty if error)
 - 
 
9 
slib_comment=The length of the record file can grow very big.
 - 
 
- 
 
 6 
 
10 
!exit
 7 
!exit
11 
 
 8 
 
12 
:proc
 9 
:proc
13 
!if (...adm/ isin ...$module and / isin $wims_read_parm) \
 10 
!if (...adm/ isin ...$module and / isin $wims_read_parm) \
14 
	or .. isin $wims_read_parm or $wims_read_parm=$empty
 11 
	or .. isin $wims_read_parm or $wims_read_parm=$empty