sHelp
                                     BAR.CASH
     i   2
 receipt.x
 void.x

 Ì     i   2
receipt.x
[rcp.date,rcp.num]
*(B)BWRI[cbd,rcp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 rcp.date                     8 DATE     L                 cbd                                                         
 rcp.num                     10 PINT     R                 rcp                                                         
 rcp.account                 12 URN      L                 *(B)BWRI[cbd,rcp]|0                                         
 rcp.amount                   9 SMONEY   R                 *(B)BWRI[cbd,rcp]|2                                         
 rcp.bill.no                  3 PINT     R                 *(B)BWRI[cbd,rcp]|4                                         
 rcp.comment                 35 FREE     L                 *(B)BWRI[cbd,rcp]|3                                         
 rcp.name                    30 FREE     L                 *(B)BWRI[cbd,rcp]|6                                         
 rcp.num.disp                11 FREE     L                 VAL=@rcp.num+10000000000%0^RCP$9_"-"_(RCP#9)                
 rcp.number                  12 FREE     L                 *(B)BWRI[cbd,rcp]|7                                         
 rcp.proc                    10 FREE     L  BAR.PROC       *(B)BWRI[cbd,rcp]|1                                     
 rcp.txn.ser.date             8 DATE     L                 *(B)BWRI[cbd,rcp]|10                                        
 rcp.user                    10 FREE     L  MIS.USER       *(B)BWRI[cbd,rcp]|5                                     
 rcp.void.date                8 DATE     L                 *(B)BWRI[cbd,rcp]|9                                         
 rcp.void.user               10 FREE     L                 *(B)BWRI[cbd,rcp]|8                                         
 Ì     i   2
void.x
[void.date,void.num]
*(B)BWVI[vd,vn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 void.date                    8 DATE     L                 vd                                                          
 void.num                    10 PINT     R                 vn                                                          
 void.account                44 URN      L                 *(B)BWVI[vd,vn]|0                                           
 void.amount                  9 SMONEY   R                 *(B)BWVI[vd,vn]|2                                           
 void.bill.no                 3 PINT     R                 *(B)BWVI[vd,vn]|4                                           
 void.comment                35 FREE     L                 *(B)BWVI[vd,vn]|3                                           
 void.name                   30 FREE     L                 *(B)BWVI[vd,vn]|6                                           
 void.num.disp               11 FREE     L                 VAL=@void.num+10000000000%0^RCP$9_"-"_(RCP#9)               
 void.number                 12 FREE     L                 *(B)BWVI[vd,vn]|7                                           
 void.orig.date               8 DATE     L                 *(B)BWVI[vd,vn]|8                                           
 void.orig.user              10 FREE     L                 *(B)BWVI[vd,vn]|9                                           
 void.proc                   10 FREE     L                 *(B)BWVI[vd,vn]|1                                           
 void.user                   10 FREE     L                 *(B)BWVI[vd,vn]|5                                           

 Index Files                        Subscripts/Physical Base

 rcp.x                              [rcp.date,rcp.num]
                                      ?(B)BWRIX[cbd,rcp]