Ì € i 2
pp.purge.applicants (applicants)
[applicant.purge.number, applicant]
:JP.X.JAM[jpxan]JA[jay]
Field Name Len Dat Typ J DPM Offset/Local/VAL
applicant 42 URN L jay
appl.empl.number 42 URN L PP.PER :JP.X.JAM[jpxan]JA[jay]|2
appl.mam.date 8 DATE L :JP.X.JAM[jpxan]JA[jay]|4
appl.mam.urn 10 FREE L :JP.X.JAM[jpxan]JA[jay]|3
appl.name 42 FREE L :JP.X.JAM[jpxan]JA[jay]|1
appl.number 8 PINT R :JP.X.JAM[jpxan]JA[jay]|0
Ì 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"!"MAM" "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.att.mam.date 8 DATE L :JP.X[jpx]JY[jy]|11
empl.att.mam.urn 10 FREE L :JP.X[jpx]JY[jy]|10
empl.audit.mam.date 8 DATE L :JP.X[jpx]JY[jy]|9
empl.audit.mam.urn 10 FREE L :JP.X[jpx]JY[jy]|8
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.mam.date 8 DATE L :JP.X[jpx]JY[jy]|7
empl.mam.urn 10 FREE L :JP.X[jpx]JY[jy]|6
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.mam.date 8 DATE L :JP.X[jpx]JY[jy]JZ[jz]|7
tc.mam.urn 10 FREE L :JP.X[jpx]JY[jy]JZ[jz]|6
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
Ì € i 2
pp.purge.statistics (stats)
[number, stats.purge.num]
:JP.X[jpx]ST[jpxs]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stats.purge.num 4 PINT R jpxs
fiscal.year 4 PINT R PP.STATS :JP.X[jpx]ST[jpxs]|0
stats.mam.date 8 DATE L :JP.X[jpx]ST[jpxs]|3
stats.mam.urn 10 FREE L :JP.X[jpx]ST[jpxs]|2
stats.payroll 8 FREE L PP.PAYROLL :JP.X[jpx]ST[jpxs]|1
stats.rep.title 40 FREE L :JP.X[jpx]ST[jpxs]|4
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
pp.purge.applicant.x [PP.APPL.per.sort.name,applicant.purge.number,applicant]
appl.purge.x ?JP.X.JAMJAX[jySN,jpxan,jay]
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.record.type [record.type,number]
record.type.x ?JP.XR[jpxT,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]
|
|
| | | | |