Ì i 2
main
[pp.database,position]
&(HL)HLDPI[pp.db,jdr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pp.database 12 FREE L MIS.APPL.DB pp.db
position 18 FREE L PP.POS jdr
active 1 YN L &(HL)HLDPI[pp.db,jdr]|0
position.title 35 FREE L VAL=@PP.POS.title[@position]
supervisor.pid 4 PINT R &(HL)HLDPI[pp.db,jdr]|3
supervisor.pos 18 FREE L PP.POS &(HL)HLDPI[pp.db,jdr]|2
supervisor.pos.title 35 FREE L VAL=@PP.POS.title[@supervisor.pos]
top.level 1 YN L &(HL)HLDPI[pp.db,jdr]|1
Ì € i 2
ids
[pp.database,position, id]
&(HL)HLDPI[pp.db,jdr]S[hldpid]
Field Name Len Dat Typ J DPM Offset/Local/VAL
id 4 PINT R hldpid
hours 6 DEC3 R &(HL)HLDPI[pp.db,jdr]S[hldpid]|0
id.use 1 YN L &(HL)HLDPI[pp.db,jdr]S[hldpid]|3
supervisor.pid.ovride 4 PINT R &(HL)HLDPI[pp.db,jdr]S[hldpid]|2
supervisor.pos.ovride 18 FREE L PP.POS &(HL)HLDPI[pp.db,jdr]S[hldpid]|1
supervisor.pos.ovride.ttl 35 FREE L VAL=@PP.POS.title[@supervisor.pos.ovride]
supvr.pid 4 PINT R VAL=IF{@supervisor.pid.ovride;@supervisor.pid}
supvr.pos 18 FREE L VAL=IF{@supervisor.pos.ovride;@supervisor.pos}
Index Files Subscripts/Physical Base
active.x [pp.database,position,id]
&(HL)HLDPIA[pp.db,jdr,hldpid]
supervisor.x [pp.database,supervisor.pos,supervisor.pid,position,id]
&(HL)HLDPIS[pp.db,hldpsP,hldpsI,jdr,hldpid]
|
|
|