sHelp
                                     GL.PURGE
     i   2
   gl.purge.file
     gl.purge.periods
       gl.purge.accounts


 Ì     i   2
gl.purge.file    (main) 
[number]
:LP[lp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 number                       4 PINT     R                 lp                                                          
 abort.user                  10 FREE     L  MIS.USER       :LP[lp]|9                                               
 last.od.account             25 FREE     L  MIS.GL.ACCOUNT :LP[lp]|11                                              
 last.od.date                 8 DATE     L                 :LP[lp]|10                                                  
 od.status                   11 CHOICE   L                 :LP[lp]|12                                                  
 start.date                   8 DATE     L                 :LP[lp]|5                                                   
 start.time                   4 TIME     L                 :LP[lp]|6                                                   
 status                      11 CHOICE   L                 :LP[lp]|3                                                   
 status.display              18 FREE     L                 VAL=IF{@od.status="COMPLETE";@od.status_" (ARCH)"'=" (      
                                                           VAL=ARCH)";@status}                                         
 stop.date                    8 DATE     L                 :LP[lp]|7                                                   
 stop.time                    4 TIME     L                 :LP[lp]|8                                                   
 storage.display              7 FREE     L                 VAL=IF{@storage.type="OD" "ARCHIVE";"NONE"}                 
 storage.type                 4 CHOICE   L                 :LP[lp]|0                                                   
 structure.number             2 PINT     R                 :LP[lp]|1                                                   
 thru.date                   10 GLPERIOD L                 :LP[lp]|2                                                   
 user                        10 FREE     L  MIS.USER       :LP[lp]|4                                               

 Ì   €   i   2
gl.purge.periods    (periods) 
[number, date]
:LP[lp]P[lpD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 date                        10 GLPERIOD L                 lpD                                                         
 date.header                 22 FREE     L                 VAL=@MIS.GL.PERIOD.date.x[c.od.ret.date]^MIS.GL.PERIOD      
                                                           VAL=.period_"  (FY: "_@MIS.GL.PERIOD.fiscal.year_")"        

 Ì   €   i   2
gl.purge.accounts    (accounts) 
[number,date, account]
:LP[lp]P[lpD]A[ga]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 account                     25 FREE     L  MIS.GL.ACCOUNT ga                                                      
 acct.type                    1 FREE     L                 :LP[lp]P[lpD]A[ga]|1                                        
 num.txns.posted              5 PINT     R                 :LP[lp]P[lpD]A[ga]|5                                        
 num.txns.summarized          5 PINT     R                 :LP[lp]P[lpD]A[ga]|6                                        
 od.urn                      10 FREE     L                 :LP[lp]P[lpD]A[ga]|0                                        
 tot.activity                12 SDEC2    R                 :LP[lp]P[lpD]A[ga]|4                                        
 tot.credits                 12 SMONEY   R                 :LP[lp]P[lpD]A[ga]|3                                        
 tot.debits                  12 SMONEY   R                 :LP[lp]P[lpD]A[ga]|2                                        

 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 gl.purge.money.x                   [date,account,number]
   money.x                            :LPMX[lpD,ga,lp]

 gl.purge.stats.x                   [date,account,number]
   stats.x                            :LPSX[lpD,ga,lp]