Ì 2
pp.employee.cobra.file (main)
[number]
*JY.CB[jyCB]
Field Name Len Dat Typ J DPM Offset/Local/VAL
number 42 URN L jyCB
cov.from.date 8 DATE L *JY.CB[jyCB]|6
cov.thru.date 8 DATE L *JY.CB[jyCB]|7
dp.number 2 PINT R *JY.CB[jyCB]|1
employee 42 URN L PP.PER *JY.CB[jyCB]|0
id 42 URN L PP.PER.COBRA VAL=%["PP.PER.COBRA.display.id"](number)
monthly.payment 8 MONEY R *JY.CB[jyCB]|8
name 26 FREE L VAL=IF{@PP.PER.dp.name[@employee,@dp.number];@PP.PER.n
VAL=ame[@employee]}
qual.code 8 FREE L PP.COBRA *JY.CB[jyCB]|5
relationship 30 FREE L VAL=IF{'@dp.number "EMPLOYEE";@MIS.RELAT.DICT.name[@PP
VAL=.PER.dp.relationship[@employee,@dp.number]]}
ss.number 12 FREE L VAL=IF{@PP.PER.dp.ss.number[@employee,@dp.number];@PP.
VAL=PER.ss.number[@employee]}
status 8 CHOICE L *JY.CB[jyCB]|2
status.date 8 DATE L *JY.CB[jyCB]|3
status.reason 10 FREE L PP.REASON *JY.CB[jyCB]|4
text.dimensions 10 FREE L VAL=Q(19,23,84)
text.editor 0 FREE L VAL=IF{@text.dimensions^{T,B,W},%PP.TEXT.editor(^@comm
VAL=ents,T,B,W,0,"D"),""}
text.number 8 PINT R PP.TEXT *JY.CB[jyCB]C
text.view 0 FREE L VAL=@text.dimensions^{T,B,W},%Z.view.text(^@Root(@PP.T
VAL=EXT.lines[@text.number]),T,B-T+1,W,Q(@Z.color.labe
VAL=ls1,@Z.color.data1),"",T-1)&""
Ì € 2
pp.employee.cobra.letters (letters)
[number, letter.q]
*JY.CB[jyCB]L[lQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
letter.q 2 PINT R lQ
letter 10 FREE L PP.LETTER.TEXT *JY.CB[jyCB]L[lQ]|0
letter.id 3 INT R *JY.CB[jyCB]L[lQ]|5
letter.print.date 8 DATE L *JY.CB[jyCB]L[lQ]|4
letter.prt.on.date 8 DATE L *JY.CB[jyCB]L[lQ]|3
letter.status 9 CHOICE L *JY.CB[jyCB]L[lQ]|1
letter.status.date 8 DATE L *JY.CB[jyCB]L[lQ]|2
|
|