Ì € i 2
main
[route]
&(S)SRR[srr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
route 10 FREE L srr
active 1 YN L &(S)SRR[srr]|0
branch 0 FREE L VAL=IF{@Z.lastkey'=@Z.special.fcn;@.new 99;%Z.branch(@
VAL=Pgm.trans("%LAB.C.ROUTE.ee.S"),@Pgm.trans("%LAB.C.
VAL=ROUTE.ee"))^@.new^@.new.ext ""^@.old^@.old.ext,@Z.
VAL=enter;99}^@Z.lastkey
group 1 YN L &(S)SRR[srr]|2
last.update 20 FREE L &(S)SRR[srr]UPD
name 30 FREE L &(S)SRR[srr]|1
urn 10 FREE L
Ì € i 2
stops
[route, stop]
&(S)SRR[srr]ST[srrST]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stop 6 FREE L srrST
stop.active 1 YN L &(S)SRR[srr]ST[srrST]|0
stop.name 30 FREE L &(S)SRR[srr]ST[srrST]|1
Ì € i 2
clients
[route,stop, client.q]
&(S)SRR[srr]ST[srrST]A[srrCQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
client.q 3 PINT R srrCQ
client 10 FREE L MIS.DOC &(S)SRR[srr]ST[srrST]A[srrCQ]|0
client.num.of.copies 1 PINT R &(S)SRR[srr]ST[srrST]A[srrCQ]|1
Ì € i 2
client.comments
[route,stop,client.q, client.comment.q]
&(S)SRR[srr]ST[srrST]A[srrCQ]CC[srrCC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
client.comment.q 2 PINT R srrCC
any.client.comment.flag 1 FREE L VAL=@Color.use(@Z.color.labels)_IF{@client.comment[1]
VAL=@Z.check.mark.data;" "}_@Color.use(@Z.color.data)
any.client.comments 1 YN L VAL=IF{@LAB.C.ROUTE.client.comment[1] "Y";"N"}
client.comment 40 TEXT L &(S)SRR[srr]ST[srrST]A[srrCQ]CC[srrCC]
edit.client.comment 1 YN L &(S)SRR[srr]ST[srrST]A[srrCQ]CC[srrCC]CC
view.client.comment 1 YN L &(S)SRR[srr]ST[srrST]A[srrCQ]CC[srrCC]CC
Ì € i 2
stop.comments
[route,stop, stop.comment.q]
&(S)SRR[srr]ST[srrST]SC[ssrSC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stop.comment.q 2 PINT R ssrSC
any.stop.comment.flag 1 FREE L VAL=@Color.use(@Z.color.labels)_IF{@stop.comment[1] @Z
VAL=.check.mark.data;" "}_@Color.use(@Z.color.data)
any.stop.comments 1 YN L VAL=IF{@LAB.C.ROUTE.stop.comment[1] "Y";"N"}
edit.stop.comment 1 YN L &(S)SRR[srr]ST[srrST]SC[ssrSC]C
stop.comment 40 TEXT L &(S)SRR[srr]ST[srrST]SC[ssrSC]
view.stop.comment 1 YN L &(S)SRR[srr]ST[srrST]SC[ssrSC]C
Ì € i 2
view.clients
[route,stop, client.view.q]
&(S)SRR[srr]ST[srrST]A[srrCQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
client.view.q 3 PINT R srrCQ
client.view 10 FREE L MIS.DOC &(S)SRR[srr]ST[srrST]A[srrCQ]|0
Ì € i 2
sub.routes
[route, sub.route]
&(S)SRR[srr]SR[srrSR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sub.route 10 FREE L LAB.C.ROUTE srrSR
Index Files Subscripts/Physical Base
client.x [client,route,stop]
&(S)SRRC[ggg,srr,srrST]
sub.route.x [sub.route,route]
&(S)SRRS[srrSR,srr]
|
|
| | | | | |