PP.PURGE Data Definition 04.07.2003 (4.8/8009)


 sHelp
                                     PP.PURGE
     i   2
   pp.purge.file
     pp.purge.employees
       pp.purge.timecards
         pp.purge.checks

 ╠     i   2
pp.purge.file    (main) 
[number]
:JP.X[jpx]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 number                       4 PINT     R                 jpx                                                         
 abort.user                  10 FREE     L  MIS.USER       :JP.X[jpx]|8                                            
 employee.purge               2 CHOICE   L                 :JP.X[jpx]|13                                               
 employee.seq.number          4 INT      R                 VAL=IF{@PP.PURGE.record.type="PERSONNEL" @PP.PURGE.seq      
                                                           VAL=uence.number}                                           
 employee.status.date         8 DATE     L                 :JP.X[jpx]|12                                               
 payroll                      8 FREE     L  PP.PAYROLL     :JP.X[jpx]|11                                           
 purge.att.data               1 YN       L                 :JP.X[jpx]OTH|0                                             
 purge.aud.data               1 YN       L                 :JP.X[jpx]OTH|1                                             
 purge.stat.data              1 YN       L                 :JP.X[jpx]OTH|2                                             
 record.type                  9 CHOICE   L                 :JP.X[jpx]|10                                               
 sequence.number              4 INT      R                 :JP.X[jpx]|15                                               
 start.date                   8 DATE     L                 :JP.X[jpx]|4                                                
 start.time                   4 TIME     L                 :JP.X[jpx]|5                                                
 status                      11 CHOICE   L                 :JP.X[jpx]|2                                                
 status.display              18 FREE     L                 VAL=IF{@status="COMPLETE";@status_" (ARCH)"'=" (ARCH)"      
                                                           VAL=;@status}                                               
 stop.date                    8 DATE     L                 :JP.X[jpx]|6                                                
 stop.time                    4 TIME     L                 :JP.X[jpx]|7                                                
 storage.display              7 FREE     L                 VAL=IF{@storage.type="OD" "ARCHIVE";"NONE"}                 
 storage.type                 4 CHOICE   L                 :JP.X[jpx]|0                                                
 structure.number             2 PINT     R                 :JP.X[jpx]|1                                                
 timecard.seq.number          4 INT      R                 VAL=IF{@PP.PURGE.record.type="TIMECARD" @PP.PURGE.sequ      
                                                           VAL=ence.number}                                            
 timecard.year                4 YEAR     L                 :JP.X[jpx]|14                                               
 user                        10 FREE     L  MIS.USER       :JP.X[jpx]|3

 ╠   АБ   i   2
pp.purge.employees    (employees) 
[number, employee]
:JP.X[jpx]JY[jy]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 employee                    42 URN      L  PP.PER         jy                                                      
 empl.dept                   15 FREE     L                 :JP.X[jpx]JY[jy]|5                                          
 empl.display.id             42 FREE     L                 VAL=@empl.number_"  "_@empl.name                            
 empl.ft.name                26 FREE     L                                                                             
 empl.id                     42 FREE     L                 VAL=@PP.PURGE.empl.number_"  "_@PP.PURGE.empl.name'="       
                                                           VAL= "                                                      
 empl.name                   26 NAME     L                 :JP.X[jpx]JY[jy]|2                                          
 empl.number                 14 FREE     L                 :JP.X[jpx]JY[jy]|4                                          
 empl.od.id                  42 FREE     L                 VAL=@PP.PURGE.empl.number_"  "_@PP.PURGE.empl.name'="       
                                                           VAL= "                                                      
 empl.od.urn                 10 FREE     L                 :JP.X[jpx]JY[jy]|0                                          
 empl.si.number              12 FREE     L                 :JP.X[jpx]JY[jy]|1                                          
 empl.sort.name              26 NAME     L                 :JP.X[jpx]JY[jy]|3                                          
 empl.ss.number              12 FREE     L                 :JP.X[jpx]JY[jy]|1

 ╠   АБ   i   2
pp.purge.timecards    (timecards) 
[number,employee, timecard]
:JP.X[jpx]JY[jy]JZ[jz]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 timecard                     8 URN      L  PP.PAY         jz                                                      
 tc.date                      8 DATE     L                 :JP.X[jpx]JY[jy]JZ[jz]|1                                    
 tc.dept                     15 FREE     L                 :JP.X[jpx]JY[jy]JZ[jz]|5                                    
 tc.od.urn                   10 FREE     L                 :JP.X[jpx]JY[jy]JZ[jz]|0                                    
 tc.pay.date                  8 DATE     L                 :JP.X[jpx]JY[jy]JZ[jz]|3                                    
 tc.pay.status                8 FREE     L                 :JP.X[jpx]JY[jy]JZ[jz]|4                                    
 tc.status                    7 FREE     L                 :JP.X[jpx]JY[jy]JZ[jz]|2

 ╠   АБ   i   2
pp.purge.checks    (checks) 
[number,employee,timecard, ck.q]
:JP.X[jpx]JY[jy]JZ[jz]C[jzCQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ck.q                         2 INT      R                 jzCQ                                                        
 ck.master                    8 FREE     L                 :JP.X[jpx]JY[jy]JZ[jz]C[jzCQ]|2                             
 ck.number                   10 INT      L                 :JP.X[jpx]JY[jy]JZ[jz]C[jzCQ]|0                             
 ck.slave                     8 FREE     L                 :JP.X[jpx]JY[jy]JZ[jz]C[jzCQ]|1

 ╠       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 pp.purge.check.x                   [payroll,ck.number] = timecard
   check.x                            ?JP.XJZC[ja,jzCN]

 pp.purge.comb.tc.empl.id.x         [empl.id,employee,number]
   comb.tc.empl.id.x                  ?JP.XCI[jyI,jy,jpx]

 pp.purge.comb.tc.empl.name.x       [empl.sort.name,employee,number]
   comb.tc.empl.name.x                ?JP.XCN[jySN,jy,jpx]

 pp.purge.comb.tc.empl.number.x     [empl.number,employee,number]
   comb.tc.empl.number.x              ?JP.XCR[jyN,jy,jpx]

 pp.purge.tc.empl.ss.index          [empl.ss.number,employee,number]
   comb.tc.empl.ss.x                  ?JP.XCS[jySS,jy,jpx]

 pp.purge.comb.tc.empl.x            [employee,number] = record.type
   comb.tc.empl.x                     ?JP.XC[jy,jpx]

 pp.purge.employee.x                [employee,number]
   employee.x                         ?JP.XJY[jy,jpx]

 pp.purge.timecard.pay.x            [employee,tc.pay.date,timecard] = number
   timecard.pay.x                     ?JP.XJZPT[jy,jzPD,jz]

 pp.purge.timecard.pd.pay.x         [payroll,PP.PAY.tcc.dept,tc.pay.date,employee,timecard] = number
   timecard.pd.pay.x                  ?JP.XJZPDP[ja,gd,jzPD,jy,jz]

 pp.purge.timecard.x                [timecard] = timecard.loc
   timecard.x                         ?JP.XJZ[jz]