Ì 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.logs (logs)
[sort1,sort2, log]
?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 ?BPUI[bpuA,bpuB]L[blh]|0
log.num 3 PINT R ?BPUI[bpuA,bpuB]L[blh]|1
Ì 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" @main^/.SM,@Mo
VAL=ve(@Root(@selects[num]),/SELS),num;-@main[""]+1^nu
VAL=m,@.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.selects (selects)
[num, selection]
?BPU[bpu]S[bh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
selection 8 FREE L BAR.SELECT bh
Ì € 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
Ì i 2
purge.acct.mam.archive.main (mam.main)
[mam.archive.acct.urn]
?BPUMAM[auMAM]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mam.archive.acct.urn 44 URN L auMAM
mam.account 44 URN L ?BPUMAM[auMAM]|0
mam.addr1 30 FREE L ?BPUMAM[auMAM]|3
mam.addr2 30 FREE L ?BPUMAM[auMAM]|4
mam.adm.ser.date 8 DATE L ?BPUMAM[auMAM]|10
mam.city 20 FREE L ?BPUMAM[auMAM]|5
mam.master.pt.urn 20 FREE L ?BPUMAM[auMAM]|9
mam.name 35 FREE L ?BPUMAM[auMAM]|1
mam.number 12 FREE L ?BPUMAM[auMAM]|2
mam.pt.status 8 FREE L ?BPUMAM[auMAM]|11
mam.soc.sec 15 FREE L ?BPUMAM[auMAM]|8
mam.state 2 FREE L ?BPUMAM[auMAM]|6
mam.zip 10 FREE L ?BPUMAM[auMAM]|7
Ì € i 2
purge.acct.mam.archive.reports (mam.reports)
[mam.archive.acct.urn, mam.rep,mam.rep.urn]
?BPUMAM[auMAM]REP[rpMAM,ha]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mam.rep 10 FREE L rpMAM
mam.rep.urn 10 URN L MAM.ARCHIVE ha
mam.rep.archive.date 8 DATE L ?BPUMAM[auMAM]REP[rpMAM,ha]|0
mam.rep.pgm 50 FREE L ?BPUMAM[auMAM]REP[rpMAM,ha]|1
Ì i 2
bar.purge.od.locals (od.locals)
[od.file,od.letters,od.mnemonic]
Field Name Len Dat Typ J DPM Offset/Local/VAL
od.file 10 FREE L
od.letters 10 FREE L
od.mnemonic 10 FREE L
od.pfxletters 10 FREE L
od.prefix 10 FREE L
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
bar.purge.accounts.index [sort1,sort2]
id.x ?BPUJ[bpuA,bpuB]
purge.acct.mam.archive.urn.id [BAR.PAT.account,mam.archive.acct.urn]
mam.account.x ?BPUMAMBZ[bz,auMAM]
purge.acct.mam.archive.name.id [mam.name,mam.archive.acct.urn]
mam.name.x ?BPUMAMNM[bzN,auMAM]
purge.acct.mam.archive.num.id [mam.number,mam.archive.acct.urn]
mam.num.x ?BPUMAMNU[bzR,auMAM]
purge.acct.mam.archive.soc.id [mam.soc.sec,mam.archive.acct.urn]
mam.ss.x ?BPUMAMSS[bzSSN,auMAM]
purge.acct.mam.archive.index [MAM.ARCHIVE.urn] = mam.archive.acct.urn
mam.x ?BPUMAMX[ha]
|
|
| | | | | | | |