Rev 5267 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5267 | Rev 12490 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | !read scripts/edfile.proc |
2 | !read scripts/edfile.proc |
3 | !if $error!=$empty |
3 | !if $error!=$empty |
4 | !exit |
4 | !exit |
5 | !endif |
5 | !endif |
6 | 6 | ||
7 | !for v in Prev, Next, Upbl |
7 | !for v in Prev, Next, Upbl |
8 | v_=!word 1 of $($v) |
8 | v_=!word 1 of $($v) |
9 | v_=!text select $namechars in $v_ |
9 | v_=!text select $namechars in $v_ |
10 | $v=!char 1 to $namelim of $v_ |
10 | $v=!char 1 to $namelim of $v_ |
11 | !endif |
11 | !endif |
12 | 12 | ||
13 | Dat1=!text select 0123456789 in $Dat1 |
13 | Dat1=!text select 0123456789 in $Dat1 |
14 | Dat2=!text select 0123456789 in $Dat2 |
14 | Dat2=!text select 0123456789 in $Dat2 |
15 | !bound Dat1 between integer 19000101 and 24000101 default 19000101 |
15 | !bound Dat1 between integer 19000101 and 24000101 default 19000101 |
Line 19... | Line 19... | ||
19 | Keyw=!translate internal !$$ to $ $ in $Keyw |
19 | Keyw=!translate internal !$$ to $ $ in $Keyw |
20 | Titb=!singlespace $Titb |
20 | Titb=!singlespace $Titb |
21 | Keyw=!singlespace $Keyw |
21 | Keyw=!singlespace $Keyw |
22 | t_=!charcnt $Titb |
22 | t_=!charcnt $Titb |
23 | !if $t_>$titlim |
23 | !if $t_>$titlim |
24 | Titb=!detag $Titb |
24 | Titb=!detag $Titb |
25 | Titb=!trim $Titb |
25 | Titb=!trim $Titb |
26 | Titb=!char 1 to $titlim of $Titb |
26 | Titb=!char 1 to $titlim of $Titb |
27 | !endif |
27 | !endif |
28 | !default Titb=?? |
28 | !default Titb=?? |
29 | Keyw=!detag $Keyw |
29 | Keyw=!detag $Keyw |
30 | Keyw=!char 1 to $titlim of $Keyw |
30 | Keyw=!char 1 to $titlim of $Keyw |
31 | 31 | ||
Line 39... | Line 39... | ||
39 | !set upbl=$Upbl\ |
39 | !set upbl=$Upbl\ |
40 | !set dat1=$Dat1\ |
40 | !set dat1=$Dat1\ |
41 | !set dat2=$Dat2\ |
41 | !set dat2=$Dat2\ |
42 | \ |
42 | \ |
43 | !if $$wims_read_parm!=$$empty\ |
43 | !if $$wims_read_parm!=$$empty\ |
44 | !goto $$wims_read_parm\ |
44 | !goto $$wims_read_parm\ |
45 | !endif\ |
45 | !endif\ |
46 | \ |
46 | \ |
47 | !exit\ |
47 | !exit\ |
48 | \ |
48 | \ |
49 | :content |
49 | :content |