This goes in the title of the report on page 1
"_%(PP)PER..zcus.nc.employee.file.to.notes.down.v2.M..empl("")_"
Create a Macro Named M
"Y:\newEMFfile.txt"^Z.c.cust.rw.download.path,"Empl_fle LotusNotes";
here is the code for the whole report. I did not write it, but I handle the Bostons
Workstation. I tell people
what I want and the other staff here are very good at whatthey do.
hope this helps.
Bruce
(See attached file: report.txt)
REPORT LIST
PAGE 1
RUN ON 09/23/03-1426
SOH.LIVE
PP.PER.zcus.nc.employee.file.to.notes.down.v2
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
SCREEN: PP.PER.zcus.nc.employee.file.to.notes.down.v2
LN
+----------1---------2---------3---------4---------5---------6---------7--------+
=???
+-------------------------------------------------------------------------------+
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
REPORT: PP.PER.zcus.nc.employee.file.to.notes.down.v2
CPI=12 CPL=200
LPI=6 LPG=60 PGSZ=66 MARG=0 BAN=NONE
TYPE LN
+----------1---------2---------3---------4---------5---------6---------7---------8---------9---------0---------1---------2---------3---------4---------5---------6---------7---------8---------9---------+
D 1
|number________name______________________dept___________dept's.name___________________job.code__position.number's.t________________status.dstatus_ss.number___payroll_g__xx.term.mmlddlyy
|
D 2
|apprxx.appr.name________sup1xx.supr1.name_______sup2xx.supr2.name_______sup3xx.supr3.name_______saddress1______________________city______________stpostal.codhome.phone________
|
D 3
|xx.emer.contact_____xx.emer.reemergency.phone___s_mstaffissimed.cov___dental.cov_job1__dpt1____job2__dpt2____job3__dpt3____
|
+--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+
LINE ATTRIBUTES
---- ----------
1 NL = N
2 NL = N
FIELDS
------
1 number = number
[EMAIL PROTECTED]@number.x["00"[EMAIL
PROTECTED]"PP EDITOR2"],""]]]
2 name = name
23 sup3 = xx.supr3.id [DAT=FREE, JFY=L, LEN=4, [EMAIL
PROTECTED]"PP EDITOR3"]]
3 dept = dept
24 xx.supr3.name = xx.supr3.name [DAT=FREE, JFY=L, LEN=20,
4 dept's.name = dept's.name
[EMAIL PROTECTED]@number.x["00"[EMAIL
PROTECTED]"PP EDITOR3"],""]]]
5 job.code = job.code
25 s = sex
6 position.number's.t = position.number's.title
26 address1 = address1
7 status.d = status.date
27 city = city
8 status = status
28 st = state
9 ss.number = ss.number
29 postal.cod = postal.code
10 payroll = payroll
30 home.phone = home.phone
11 g = xx.pay.group [DAT=FREE, JFY=L, LEN=3, [EMAIL PROTECTED]"9"
"VNA";"SSH"}] 31 xx.emer.contact = xx.emer.contact [DAT=FREE, JFY=L, LEN=20,
[EMAIL PROTECTED]"PP EMERCON"]]
12 xx.term. = xx.term.date [DAT=DATE, JFY=L, LEN=8, [EMAIL PROTECTED]"TERM"
@status.date}] 32 xx.emer.re = xx.emer.rel [DAT=FREE, JFY=L, LEN=10, [EMAIL
PROTECTED]"PP EMERREL"]]
13 mm = xx.pend.mm [DAT=FREE, JFY=L, LEN=2,
33 emergency.phone = emergency.phone
[EMAIL PROTECTED]"PP PENDTRM"]%3$6]
34 s = shift [LEN=2]
14 l = xx.pend.slash [DAT=FREE, JFY=L, LEN=1,
35 m = xx.meal.wv [DAT=FREE, JFY=L, LEN=1, [EMAIL
PROTECTED]"PP MEAL WV"]]
[EMAIL PROTECTED]"PP PENDTRM"] "/"}]
36 sta = xx.ts.status [DAT=FREE, JFY=L, LEN=3, [EMAIL
PROTECTED]"PP TS STAT"]$3]
15 dd = xx.pend.dd [DAT=FREE, JFY=L, LEN=2, [EMAIL PROTECTED]"PP
PENDTRM"]%5]37 f = fit.tax.status
16 yy = xx.pend.yy [DAT=FREE, JFY=L, LEN=2,
38 fi = fit.exemptions
[EMAIL PROTECTED]"PP PENDTRM"]%1$4]
39 s = sit.tax.status
17 appr = xx.appr.id [DAT=FREE, JFY=L, LEN=4, [EMAIL PROTECTED]"PP
APPRSUP"]] 40 si = sit.exemptions
18 xx.appr.name = xx.appr.name [DAT=FREE, JFY=L, LEN=20,
41 med.cov = xx.med.cov [DAT=FREE, JFY=L, LEN=10,
[EMAIL PROTECTED]@number.x["00"[EMAIL PROTECTED]"PP
APPRSUP"],""]]] [EMAIL PROTECTED]"PP INS
COV"]>0&(@whold.active["030"]="Y") "HP HMO";@cd
19 sup1 = xx.supr1.id [DAT=FREE, JFY=L, LEN=4, [EMAIL PROTECTED]"PP
EDITOR1"]] .response["PP INS
COV"]>0&(@whold.active["040"]="Y") "HP POS"}]
20 xx.supr1.name = xx.supr1.name [DAT=FREE, JFY=L, LEN=20,
42 dental.cov = xx.dental.cov [DAT=FREE, JFY=L, LEN=11,
[EMAIL PROTECTED]@number.x["00"[EMAIL PROTECTED]"PP
EDITOR1"],""]]] [EMAIL PROTECTED]"PP
DENTAL"]>0 "DENTAL"}]
21 sup2 = xx.supr2.id [DAT=FREE, JFY=L, LEN=4, [EMAIL PROTECTED]"PP
EDITOR2"]] 43 job1 = xx.job1 [DAT=FREE, JFY=L, LEN=6, [EMAIL
PROTECTED]@employee,"1"]]
22 xx.supr2.name = xx.supr2.name [DAT=FREE, JFY=L, LEN=20,
44 dpt1 = xx.dept1 [DAT=FREE, JFY=L, LEN=8, [EMAIL
PROTECTED]@employee,"1"]]
(CONTINUED)
REPORT LIST
PAGE 2
RUN ON 09/23/03-1426
SOH.LIVE.Ring
PP.PER.zcus.nc.employee.file.to.notes.down.v2 {continued}
45 job2 = xx.job2 [DAT=FREE, JFY=L, LEN=6, [EMAIL
PROTECTED]@employee,"2"]] 47 job3 = xx.job3 [DAT=FREE,
JFY=L, LEN=6, [EMAIL PROTECTED]@employee,"3"]]
46 dpt2 = xx.dept2 [DAT=FREE, JFY=L, LEN=8, [EMAIL
PROTECTED]@employee,"2"]] 48 dpt3 = xx.dept3 [DAT=FREE, JFY=L,
LEN=8, [EMAIL PROTECTED]@employee,"3"]]
DETAIL SEGMENT: main
INDEX FILE:
SORT FIELDS PRODUCED BY DETAIL SEGMENT/INDEX FILE
1 employee
# SELECT OP PROMPT/VALUE
DEFAULT/KEYWORD
-------- -- ------------
---------------
1 payroll NE "ZZ"
NOTES: PFF NO
EFF NO
SFF NO
RL 600
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
PP..PER..zcus.nc.employee.file.to.notes.down.v2.M..empl
"Y:\newEMFfile.txt"^Z.c.cust.rw.download.path,"Empl_fle LotusNotes";
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
