Rev 20 | Rev 12733 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | !if $wims_read_parm=$empty or \ |
| 2 | $wims_read_parm isitemof $gotblock,$waitblock,$(waitblock_$block) |
||
| 3 | !exit |
||
| 4 | !endif |
||
| 5 | |||
| 6 | !reset titb,upbl,prev,next,dat1,dat2,datm |
||
| 7 | !readproc $docdir/$doc/$wims_read_parm.def |
||
| 8 | !default dat1=19000101 |
||
| 9 | !default dat2=24000101 |
||
| 10 | !if $titb=$empty or $today<$dat1 or $today>$dat2 or $upbl!=$block |
||
| 11 | !exit |
||
| 12 | !endif |
||
| 13 | !if $datm!=$empty and $datm>$Datm |
||
| 14 | Datm=$datm |
||
| 15 | !endif |
||
| 16 | |||
| 17 | waitblock_$block=!append item $wims_read_parm to $(waitblock_$block) |