sHelp
                                     AP.CHECK
     i   2
 main
   activity
   credits
   invoices
 total.sch.bank.acc
   total.sch.vendor
   total.sch.vendor.ranges

 Ì   €   i   2
main
[urn]
*(K)KY[ky]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 urn                         20 URN      L                 ky                                                          
 address.override             1 YN       L                 *(K)KY[ky]|11                                               
 address.override.disp        0 FREE     L                 VAL=IF{"Y"=@address.override %AP.CHECK.label.display("      
                                                           VAL=(Override)");%AP.CHECK.label.display("          ")      
                                                           VAL=}                                                       
 amount                      11 MONEY    R                 *(K)KY[ky]|5                                                
 bank.acc                    10 FREE     L  MIS.BANK       *(K)KY[ky]|0                                            
 check.number                10 PINT     L                 *(K)KY[ky]|1                                                
 date                         8 DATE     L                 *(K)KY[ky]|4                                                
 ep.compile.date              8 DATE     L                 *(K)KY[ky]E|3                                               
 ep.number                   10 FREE     L                 *(K)KY[ky]E|2                                               
 facility                    10 FREE     L  MIS.PUR.FAC    *(K)KY[ky]|15                                           
 include.for.eft              1 YN       L                 *(K)KY[ky]E|0                                               
 last.outbox.msg.num          8 PINT     R  MIS.XO.MSG     *(K)KY[ky]E|1                                           
 name.override                1 YN       L                 *(K)KY[ky]|10                                               
 name.override.disp           0 FREE     L                 VAL=IF{"Y"=@name.override %AP.CHECK.label.display("(Ov      
                                                           VAL=erride)");%AP.CHECK.label.display("          ")}        
 new.payment                  1 YN       L                 *(K)KY[ky]|12                                               
 no.of.invoices               3 INT      R                 *(K)KY[ky]|9                                                
 payment.number               3 FREE     L                 *(K)KY[ky]|8                                                
 recon.by.inbox               1 FREE     L                 *(K)KY[ky]|14                                               
 reg.date.subtitle           26 FREE     C                 VAL="FROM "_IF{b.date'=@Z.del %Z.date.out(b.date);"BEG      
                                                           VAL=INNING"}_" TO "_IF{e.date'=@Z.del %Z.date.out(e.da      
                                                           VAL=te);"END"}                                              
 reg.num.subtitle            29 FREE     C                 VAL="FROM "_IF{b.check.number'=@Z.del;"BEGINNING"}_" T      
                                                           VAL=O "_IF{e.check.number'=@Z.del;"END"}                    
 remit.addr.1                35 FREE     L                 *(K)KY[ky]R|2                                               
 remit.addr.2                35 FREE     L                 *(K)KY[ky]R|3                                               
 remit.addr.3                35 FREE     L                 *(K)KY[ky]R|4                                               
 remit.addr.alt              35 FREE     L                 *(K)KY[ky]R["ALT"]|0                                        
 remit.name                  35 FREE     L                 *(K)KY[ky]R|0                                               
 remit.name.2                35 FREE     L                 *(K)KY[ky]R|1                                               
 repl.user                   10 FREE     L  MIS.USER       *(K)KY[ky]|16                                           
 status                       9 CHOICE   L                 *(K)KY[ky]|2                                                
 status.comment              65 FREE     L                 *(K)KY[ky]|7                                                
 status.date                  8 DATE     L                 *(K)KY[ky]|6                                                
 system.flag                  1 FREE     L                 *(K)KY[ky]|13                                               
 vendor                      11 FREE     L  MIS.VEN        *(K)KY[ky]|3                                            
 Ì   €   i   2
activity
[urn,  activity.date,activity.number]
*(K)KY[ky]A[kyAD,kyAN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 activity.date                8 DATE     L                 kyAD                                                        
 activity.number              5 PINT     R                 kyAN                                                        
 activity.status              9 CHOICE   L                 *(K)KY[ky]A[kyAD,kyAN]|0                                    
 Ì   €   i   2
credits
[urn,  cr.inv.num]
*(K)KY[ky]C[kzN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cr.inv.num                  30 FREE     L                 kzN                                                         
 cr.inv.address.override      1 FREE     L                 *(K)KY[ky]C[kzN]|12                                         
 cr.inv.balance              11 SMONEY   R                 *(K)KY[ky]C[kzN]|2                                          
 cr.inv.balance.scheduled    11 SMONEY   R                 *(K)KY[ky]C[kzN]|7                                          
 cr.inv.cancel.flag           1 YN       L                 *(K)KY[ky]C[kzN]|10                                         
 cr.inv.date                  8 DATE     L                 *(K)KY[ky]C[kzN]|1                                          
 cr.inv.discount             10 MONEY    R                 *(K)KY[ky]C[kzN]|3                                          
 cr.inv.discount.claimed      1 YN       L                 *(K)KY[ky]C[kzN]|6                                          
 cr.inv.last.txn              3 PINT     R                 *(K)KY[ky]C[kzN]|8                                          
 cr.inv.name.override         1 FREE     L                 *(K)KY[ky]C[kzN]|11                                         
 cr.inv.override.disp         3 FREE     C                 VAL=IF{@cr.inv.name.override&@cr.inv.address.override       
                                                           VAL="B";@cr.inv.name.override "N";@cr.inv.address.over      
                                                           VAL=ride "A";""}                                            
 cr.inv.payment              11 PMONEY   R                 *(K)KY[ky]C[kzN]|4                                          
 cr.inv.remaining.balance    11 SMONEY   R                 VAL=(@cr.inv.balance-@cr.inv.discount-@cr.inv.payment:      
                                                           VAL=2D'=".00")                                              
 cr.inv.thru.txn.urn          3 PINT     R                 *(K)KY[ky]C[kzN]|9                                          
 cr.inv.txn.urn               3 PINT     R                 *(K)KY[ky]C[kzN]|5                                          
 cr.inv.urn                  11 FREE     L  AP.INV         *(K)KY[ky]C[kzN]|0                                      
 Ì   €   i   2
invoices
[urn,  inv.num]
*(K)KY[ky]I[kzN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 inv.num                     30 FREE     L                 kzN                                                         
 inv.address.override         1 FREE     L                 *(K)KY[ky]I[kzN]|12                                         
 inv.balance                 11 SMONEY   R                 *(K)KY[ky]I[kzN]|2                                          
 inv.balance.scheduled       11 SMONEY   R                 *(K)KY[ky]I[kzN]|7                                          
 inv.cancel.flag              1 YN       L                 *(K)KY[ky]I[kzN]|10                                         
 inv.date                     8 DATE     L                 *(K)KY[ky]I[kzN]|1                                          
 inv.discount                10 MONEY    R                 *(K)KY[ky]I[kzN]|3                                          
 inv.discount.claimed         1 YN       L                 *(K)KY[ky]I[kzN]|6                                          
 inv.last.txn                 3 PINT     R                 *(K)KY[ky]I[kzN]|8                                          
 inv.name.override            1 FREE     L                 *(K)KY[ky]I[kzN]|11                                         
 inv.override.disp            3 FREE     C                 VAL=IF{@inv.name.override&@inv.address.override "B";@i      
                                                           VAL=nv.name.override "N";@inv.address.override "A";""}      
 inv.payment                 11 PMONEY   R                 *(K)KY[ky]I[kzN]|4                                          
 inv.remaining.balance       11 SMONEY   R                 VAL=(@inv.balance-@inv.discount-@inv.payment:2D'=".00"      
                                                           VAL=)                                                       
 inv.thru.txn.urn             3 PINT     R                 *(K)KY[ky]I[kzN]|9                                          
 inv.txn.urn                  3 PINT     R                 *(K)KY[ky]I[kzN]|5                                          
 inv.type                     3 CHOICE   L                                                                             
 inv.urn                     11 FREE     L  AP.INV         *(K)KY[ky]I[kzN]|0                                      
 Ì     i   2
total.sch.bank.acc
[sch.urn]
*(K)KYSB[kys]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 sch.urn                     10 PINT     R                 kys                                                         
 approval.started             1 YN       L                 *(K)KYSB[kys]|1                                             
 begin.vendor.name           35 FREE     L                 *(K)KYSB[kys]|4                                             
 discount.due.date            8 DATE     L                 *(K)KYSB[kys]|3                                             
 end.vendor.name             35 FREE     L                 *(K)KYSB[kys]|5                                             
 last.check.number           10 PINT     R                 VAL=@Last(check.number,check.x)                             
 last.user                   10 FREE     L  MIS.USER       *(K)KYSB[kys]|13                                        
 last.xo.msg.num              8 PINT     R  MIS.XO.MSG     *(K)KYSB[kys]|17                                        
 payment.due.date             8 DATE     L                 *(K)KYSB[kys]|2                                             
 sch.bank.acc                10 FREE     L  MIS.BANK       *(K)KYSB[kys]|9                                         
 sch.comment                 45 FREE     L                 *(K)KYSB[kys]|12                                            
 sch.created.for              1 CHOICE   L                 *(K)KYSB[kys]|16                                            
 sch.date                     8 DATE     L                 *(K)KYSB[kys]|10                                            
 sch.facility                10 FREE     L  MIS.PUR.FAC    *(K)KYSB[kys]|8                                         
 sch.num                      4 PINT     R                 *(K)KYSB[kys]|11                                            
 sch.status                  10 CHOICE   L                 *(K)KYSB[kys]|7                                             
 sch.status.date              8 DATE     L                 *(K)KYSB[kys]|15                                            
 sch.type                     4 CHOICE   L                 VAL=IF{@Not(@type^T) "";T="REPLACE" "REPL";T="SCH PAY"      
                                                           VAL= "SCH";"DEM"}                                           
 total.sch.for.bank.acc      14 SMONEY   R                 *(K)KYSB[kys]|0                                             
 type                        10 CHOICE   L                 *(K)KYSB[kys]|14                                            
 ven.with.disc.only           1 YN       L                 *(K)KYSB[kys]|6                                             
 Ì   €   i   2
total.sch.vendor
[sch.urn,  sch.vendor]
*(K)KYSB[kys]V[gr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 sch.vendor                  11 FREE     L  MIS.VEN        gr                                                      
 no.of.payments               3 INT      R                 *(K)KYSB[kys]V[gr]|1                                        
 total.sch.for.vendor        14 SMONEY   R                 *(K)KYSB[kys]V[gr]|0                                        
 Ì   €   i   2
total.sch.vendor.ranges
[sch.urn,  vendor.range.begin]
*(K)KYSB[kys]VR[grA]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 vendor.range.begin          35 FREE     L                 grA                                                         
 vendor.range.begin.ext      35 FREE     L                 VAL=IF{" "=@vendor.range.begin "BEGINNING";@vendor.ran      
                                                           VAL=ge.begin}                                               
 vendor.range.end            35 FREE     L                 *(K)KYSB[kys]VR[grA]|0                                      
 vendor.range.end.ext        35 FREE     L                 VAL=IF{@Z.del=@vendor.range.end "END";@vendor.range.en      
                                                           VAL=d}                                                      

 Index Files                        Subscripts/Physical Base

 activity.x                         [bank.acc,activity.date,urn]
                                      ?(K)KYA[gbk,kyAD,ky]

 check.approv.x                     [bank.acc,sch.urn,MIS.VEN.ap.name,vendor,urn]
                                      ?(K)KYCA[gbk,kys,grA,gr,ky]

 check.date.x                       [bank.acc,date,check.number] = urn
                                      ?(K)KYD[gbk,kyD,kyCN]

 check.unclaim.x                    [bank.acc,check.number] = urn
                                      ?(K)KYUC[gbk,kyCN]

 check.unrec.x                      [bank.acc,check.number] = urn
                                      ?(K)KYU[gbk,kyCN]

 check.x                            [bank.acc,check.number] = urn
                                      ?(K)KYC[gbk,kyCN]

 ep.date.x                          [bank.acc,date,ep.number] = urn
                                      ?(K)KYED[gbk,kyD,kyEN]

 ep.number.x                        [bank.acc,ep.number] = urn
                                      ?(K)KYEN[gbk,kyEN]

 pending.invoice.x                  [facility,bank.acc,sch.urn,vendor,inv.num] = urn
                                      ?(K)KYPVI[mw,gbk,kys,gr,kzN]

 pending.payment.x                  [facility,bank.acc,sch.urn,MIS.VEN.ap.name,vendor,payment.number] = urn
                                      ?(K)KYPVP[mw,gbk,kys,grA,gr,kyPN]

 sch.pay.id.x                       [sch.facility,sch.bank.acc,sch.date,sch.num] = sch.urn
                                      ?(K)KYSBI[mw,gbk,kyD,kyN]

 xo.number.x                        [last.xo.msg.num,sch.urn]
                                      ?(K)KYXOO[gwd,kys]

 xo.pmt.x                           [last.outbox.msg.num,ct.q] = urn
                                      ?(K)KYXOP[gwd,kyCE]

 xo.report.x                        [last.xo.msg.num,sch.urn,urn]
                                      /KYXOR[gwd,kys,ky]

 xo.sch.batch.x                     [sch.urn,last.xo.msg.num]
                                      ?(K)KYXOS[kys,gwd]