Ì 2
audit
[au.date,au.time,au.q]
?(R)RINA[rinD,rinT,rinQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.date 8 DATE L rinD
au.time 4 HHMM L rinT
au.q 3 PINT R rinQ
au.error.warn 2 CHOICE L ?(R)RINA[rinD,rinT,rinQ]|2
au.import 10 FREE L RAD.IMPORT.DICT?(R)RINA[rinD,rinT,rinQ]|0
au.import.urn 7 PINT R RAD.IMPORT ?(R)RINA[rinD,rinT,rinQ]|1
au.list.ck 1 YN L VAL=IF{c.list="ALL" "Y";c.list="WE" IF{@au.error.warn
VAL="Y";"N"};L(@au.error.warn,"E")<L(@au.error.warn
VAL=) "Y";"N"}
au.requeued.ck 1 YN L VAL=IF{"Y"'=c.omit.req;@requeued[@au.import.urn] "N";"
VAL=Y"}
au.time.ck 1 YN L VAL=IF{IF{b.au.date=e.au.date=au.date au.time'<b.au
VAL=.time'>e.au.time;b.au.date=au.date au.time'<
VAL=b.au.time;e.au.date=au.date au.time'>e.au.time;
VAL=.} "Y";"N"}
Ì 2
main
[urn]
*(R)RIN[rin]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 7 PINT R rin
err.filename 60 FREE L *(R)RIN[rin]|8
error.warn 2 CHOICE L *(R)RIN[rin]|3
filed 9 PINT R *(R)RIN[rin]|4
import 10 FREE L RAD.IMPORT.DICT*(R)RIN[rin]|0
import.filename 60 FREE L *(R)RIN[rin]|1
import.seconds 9 PINT R *(R)RIN[rin]|2
report.urn 10 URN L RAD.RES *(R)RIN[rin]|5
requeued 9 PINT R *(R)RIN[rin]|7
requeued.date 8 DATE L VAL=%Z.date.in.magic(@requeued)
requeued.date.5 5 FREE L VAL=%Z.date.out(%Z.date.in.magic(@requeued),"",5)
requeued.time 4 HHMM L VAL=%Z.time.out(@requeued)
word.mode 2 CHOICE L *(R)RIN[rin]|6
|
|