Ì i 2
index
[sort1,sort2]
*(B)BPUI[bpuA,bpuB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sort1 30 FREE L bpuA
sort2 30 FREE L bpuB
acct.status 2 FREE L *(B)BPUI[bpuA,bpuB]|4
acct.type 8 FREE L *(B)BPUI[bpuA,bpuB]|3
adm.ser.date 8 DATE L *(B)BPUI[bpuA,bpuB]|1
number 20 CHOICE L BAR.PURGE *(B)BPUI[bpuA,bpuB]|0
on.optical.disk 1 YN L *(B)BPUI[bpuA,bpuB]|6
on.tape 1 YN L *(B)BPUI[bpuA,bpuB]|5
urn 20 FREE L *(B)BPUI[bpuA,bpuB]|2
Ì € i 2
logs
[sort1,sort2, log]
*(B)BPUI[bpuA,bpuB]L[blh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log 8 FREE L BAR.LOG.DICT blh
log.fiscal.yr 4 YEAR L *(B)BPUI[bpuA,bpuB]L[blh]|0
log.num 3 PINT R *(B)BPUI[bpuA,bpuB]L[blh]|1
Ì i 2
locks
*(B)BPUL
Field Name Len Dat Typ J DPM Offset/Local/VAL
purge.in.progress 30 FREE L *(B)BPUL
Ì i 2
locks.no.fin.data
*(B)BPULNF
Field Name Len Dat Typ J DPM Offset/Local/VAL
no.fin.data.purge 30 FREE L *(B)BPULNF
Ì i 2
account.list
[account.name,account.number,account]
*(B)BPU["A",bzN,bzR,bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
account.name 30 FREE L bzN
account.number 12 FREE L bzR
account 44 URN L BAR.PAT bz
hold.od.err 60 FREE L *(B)BPU["A",bzN,bzR,bz]|1
hold.od.urn 15 FREE L *(B)BPU["A",bzN,bzR,bz]|0
Ì i 2
retire.list
[retire.name,retire.number,retire.account]
*(B)BPU["R",bzN,bzR,bz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
retire.name 30 FREE L bzN
retire.number 12 FREE L bzR
retire.account 44 URN L bz
Ì i 2
tape.reels
[reel.no]
*(B)BPU["R",bpuR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reel.no 2 PINT R bpuR
from.account 50 FREE L *(B)BPU["R",bpuR]|0
Index Files Subscripts/Physical Base
id.x [sort1,sort2]
?(B)BPUJ[bpuA,bpuB]
|
|
| | | | | |