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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
!read model/cut.proc
output=wimshome/sessions/$ses/submit2.oef
cnt=!recordcnt $input
all=$parms,$sps,$statementrec
!writefile $output $model_def
!for i=1 to $cnt
!default reply$i=$(val$i)
!if $i notitemof $all
r=!record $i of $input
!appendfile $output :$r\
!goto loopend
!endif
reply$i=!replace internal $\
: by $\
: in $(reply$i)
!if $i isitemof $sps
!appendfile $output :\$(name$i){$(reply$i)}
!goto loopend
!endif
!if $i isitemof $parms
!if $(menu$i)=$empty
!set debut=!char 1..4 of $(reply$i)
!if $(name$i) iswordof $model_asis and $debut notsametext asis
param_value = asis($(reply$i))
!else
param_value = $(reply$i)
!endif
!appendfile $output :$(title$i)\
$(help$i)\
\$(type$i){$(name$i)=$param_value}\
!else
t_=!itemcnt $(menu$i)
!bound reply$i between integer 1 and $t_ default 1
!appendfile $output :$(title$i)\
$(help$i)\
\$(type$i){$(name$i)=item($(reply$i),$(menu$i))}\
!endif
!goto loopend
!endif
!if $i=$statementrec
!appendfile $output :$helpst\
\statement{$statement}\
!goto loopend
!endif
:loopend
!next i
!sh cd $wims_home/sessions/$ses; mv -f submit2.oef submit.oef\
cp -f submit.oef user-deposit
|
