Ì 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"}
|