sHelp
                                     MIS.GL.BATCH
     i   2
 icta.by.corp
 top
   distribution
     dis.credits
     dis.debits
   gl.by.corp
   transactions
     credits
     debits

 Ì     i   2
icta.by.corp
[icta.corp]
/IBYC[gvCN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 icta.corp                    4 FREE     L  MIS.GL.CORP    gvCN                                                    
 icta.account                25 FREE     L  MIS.GL.ACCOUNT /IBYC[gvCN]                                             
 Ì     i   2
top
[db,urn]
*(G)GB[gn,gb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 db                          12 FREE     L  MIS.APPL.DB    gn                                                      
 urn                          8 URN      L                 gb                                                          
 actual.credits              12 MONEY    R                 *(G)GB[gn,gb]M|20                                           
 actual.debits               12 MONEY    R                 *(G)GB[gn,gb]M|19                                           
 control.amount              12 MONEY    R                 *(G)GB[gn,gb]M|8                                            
 control.count                4 PINT     R                 *(G)GB[gn,gb]M|10                                           
 control.hash                15 PINT     R                 *(G)GB[gn,gb]M|9                                            
 date                         8 DATE     L                 *(G)GB[gn,gb]M|0                                            
 ext.comment                 50 FREE     L                 *(G)GB[gn,gb]M|4                                            
 fac.label                   10 FREE     L  MIS.PUR.FAC    *(G)GB[gn,gb]M|11                                       
 gl.batch.as.is               1 YN       L                 *(G)GB[gn,gb]VG|1                                           
 gl.jn.as.is                  1 YN       L                 *(G)GB[gn,gb]VG|0                                           
 int.comment                 50 FREE     L                 *(G)GB[gn,gb]M|5                                            
 journal                     10 FREE     L  MIS.GL.JOURNAL *(G)GB[gn,gb]M|1                                        
 last.device.to.use          15 FREE     L                 *(G)GB[gn,gb]M|14                                           
 last.user.to.use            10 FREE     L  MIS.USER       *(G)GB[gn,gb]M|13                                       
 number                       3 PINT     R                 *(G)GB[gn,gb]M|2                                            
 post.to.date                 8 DATE     L                 *(G)GB[gn,gb]M|7                                            
 post.to.period              10 FREE     L  MIS.GL.PERIOD  *(G)GB[gn,gb]M|6                                        
 status                      10 CHOICE   L                 *(G)GB[gn,gb]M|3                                            
 Ì   €   i   2
distribution
[db,urn,  dis.acct]
*(G)GB[gn,gb]A[lbA]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 dis.acct                    25 FREE     L  MIS.GL.ACCOUNT lbA                                                     
 dis.corp                     4 FREE     L  MIS.GL.CORP    *(G)GB[gn,gb]A[lbA]|0                                   
 dis.more.than.one.dr.cr                                   VAL=(+@dis.debits[,,,""]'=-@dis.debits[,,,""]!(+@dis.c      
                                                           VAL=redits[,,,""]'=-@dis.credits[,,,""]))                   
 Ì   €   i   2
dis.credits
[db,urn,dis.acct,  dis.cr.txn]
*(G)GB[gn,gb]A[lbA]CR[lbAC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 dis.cr.txn                   4 URN      L                 lbAC                                                        
 dis.cr.amount               12 MONEY    R                 *(G)GB[gn,gb]A[lbA]CR[lbAC]                                 
 Ì   €   i   2
dis.debits
[db,urn,dis.acct,  dis.dr.txn]
*(G)GB[gn,gb]A[lbA]DR[lbAD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 dis.dr.txn                   4 URN      L                 lbAD                                                        
 dis.dr.amount               12 MONEY    R                 *(G)GB[gn,gb]A[lbA]DR[lbAD]                                 
 Ì   €   i   2
gl.by.corp
[db,urn,  gl.urn]
*(G)GB[gn,gb]V[lb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 gl.urn                       8 FREE     L                 lb                                                          
 gl.corp                      4 FREE     L  MIS.GL.CORP    *(G)GB[gn,gb]V[lb]|3                                    
 gl.date                      8 DATE     L                 *(G)GB[gn,gb]V[lb]|0                                        
 gl.header                   26 FREE     L                 VAL=%Z.date.out(@gl.date)_" "_@gl.journal_" #"_@gl.num      
                                                           VAL=ber                                                     
 gl.journal                  10 FREE     L  MIS.GL.JOURNAL *(G)GB[gn,gb]V[lb]|1                                    
 gl.number                    3 PINT     R                 *(G)GB[gn,gb]V[lb]|2                                        
 Ì   €   i   2
transactions
[db,urn,  txn.number]
*(G)GB[gn,gb]T[lbT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 txn.number                   4 URN      R                 lbT                                                         
 txn.active                   1 YN       L                 *(G)GB[gn,gb]T[lbT]|0                                       
 txn.description             50 FREE     L                 *(G)GB[gn,gb]T[lbT]|1                                       
 txn.expand.desc             90 FREE     L                 *(G)GB[gn,gb]T[lbT]|2                                       
 txn.more.than.one.dr.cr                                   VAL=(+@debits[urn,txn.number,""]'=-@debits[urn,txn.num      
                                                           VAL=ber,""]!(+@credits[urn,txn.number,""]'=-@credits[u      
                                                           VAL=rn,txn.number,""]))                                     
 txn.posted                   1 YN       L                 VAL=IF{@status="POSTED" "Y";"N"}                            
 Ì   €   i   2
credits
[db,urn,txn.number,  cr.acct]
*(G)GB[gn,gb]T[lbT]CR[lbCR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cr.acct                     25 FREE     L  MIS.GL.ACCOUNT lbCR                                                    
 cr.acct.desc                40 FREE     L                 VAL=@MIS.GL.ACCOUNT.description[cr.acct]$40                 
 cr.amount                   12 SMONEY   R                 *(G)GB[gn,gb]T[lbT]CR[lbCR]                                 
 Ì   €   i   2
debits
[db,urn,txn.number,  dr.acct]
*(G)GB[gn,gb]T[lbT]DR[lbDR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 dr.acct                     25 FREE     L  MIS.GL.ACCOUNT lbDR                                                    
 dr.acct.desc                40 FREE     L                 VAL=@MIS.GL.ACCOUNT.description[dr.acct]$40                 
 dr.amount                   12 SMONEY   R                 *(G)GB[gn,gb]T[lbT]DR[lbDR]                                 

 Index Files                        Subscripts/Physical Base

 gl.x                               [db,date,journal,number,gl.urn]
                                      ?(G)GBLB[gn,gbD,gj,gbN,lb]

 id.x                               [db,date,journal,number] = urn
                                      ?(G)GBI[gn,gbD,gj,gbN]