sHelp
                                     BAR.PURGE
       2
 account.list
 tape.reels

 Ì       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                                   
 Ì       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