Ì i 2
bar.purge.index (index)
[sort1,sort2]
?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 ?BPUI[bpuA,bpuB]|4
acct.type 8 FREE L ?BPUI[bpuA,bpuB]|3
adm.ser.date 8 DATE L ?BPUI[bpuA,bpuB]|1
number 4 PINT R BAR.PURGE ?BPUI[bpuA,bpuB]|0
od.urn 20 FREE L ?BPUI[bpuA,bpuB]|7
on.optical.disk 1 YN L ?BPUI[bpuA,bpuB]|6
on.tape 1 YN L ?BPUI[bpuA,bpuB]|5
urn 20 FREE L ?BPUI[bpuA,bpuB]|2
Ì i 2
bar.purge (main)
[num]
?BPU[bpu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
num 4 PINT R bpu
compile.num 4 PINT R VAL=IF{-@main[""]^num,@status'="PURGED" num;-@main[""]
VAL=+1^num,@.today^@date,"NEW"^@status,num}
count 6 PINT L ?BPU[bpu]|2
current.num 4 PINT R VAL=-*BPU[""]^num
date 8 DATE L ?BPU[bpu]|1
in.out.all 10 CHOICE L ?BPU[bpu]|4
purge.delay 10 GLPERIOD L ?BPU[bpu]|3
purged.date 8 DATE L ?BPU[bpu]|5
purged.to.od 1 YN L ?BPU[bpu]|7
purged.to.tape 1 YN L ?BPU[bpu]|6
status 20 CHOICE L ?BPU[bpu]|0
Ì € i 2
bar.purge.accounts (account.list)
[num, account.name,account.number,account]
?BPU[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 ?BPU[bpu]A[bzN,bzR,bz]|1
hold.od.urn 15 FREE L ?BPU[bpu]A[bzN,bzR,bz]|0
Ì € i 2
bar.purge.tape.reels (tape.reels)
[num, reel.no]
?BPU[bpu]R[bpuR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
reel.no 2 PINT R bpuR
from.account 50 FREE L ?BPU[bpu]R[bpuR]|0
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
bar.purge.accounts.index [sort1,sort2]
id.x ?BPUJ[bpuA,bpuB]
|
|
| | |