/usr/share/lifelines/allfam10c.ll is in lifelines-reports 3.0.61-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 | /*
* @progname allfam10c.ll
* @version 1.1
* @author Cliff Manis, Jim Eggert
* @category
* @output Text
* @description
*
* Display all families in the DB, 1 per page.
*
* allfam10c
* by: Cliff Manis <cmanis@csoftec.csf.com>, modified by Jim Eggert
* Family Report for LifeLines
*/
proc main()
{
forfam(fam,fnum) {
call fam10c(fam)
" " /* this is the form-feed character, octal 014 hex 0C*/
/* You may have to change it for your needs */
}
}
proc fam10c (fam)
{
/* getfam(fam) */
dayformat(0)
monthformat(4)
dateformat(0)
set(tday, gettoday())
set (nl,nl())
set(h,husband(fam))
set(w,wife(fam))
col(55) "Date: " stddate(tday) nl
col(0) "Family Report (fam10)"
nl nl
col(0) "HUSBAND: " fullname(h,1,1,50)
col(63) "(RN=" key(h) ")"
nl nl
set(evt, birth(h))
col(0) "Born: " stddate(evt) col(25) "Place: " place(evt)
set(evt, marriage(fam))
col(0) "Marr: " stddate(evt) col (25) "Place: " place(evt)
set(evt, death(h))
col(0) "Died: " stddate(evt) col(25) "Place: " place(evt)
nl nl
col(0) "HUSBAND'S FATHER: " name(father(h))
col(63) "(RN=" key(father(h)) ")"
nl
col(0) "HUSBAND'S MOTHER: " name(mother(h))
col(63) "(RN=" key(mother(h)) ")"
nl nl
col(0) "WIFE: " fullname(w,1,1,50)
col(63) "(RN=" key(w) ")"
nl nl
set(evt, birth(w))
col(0) "Born: " stddate(evt) col(25) "Place: " place(evt)
set(evt, death(w))
col(0) "Died: " stddate(evt) col(25) "Place: " place(evt)
nl nl
col(0) " WIFE'S FATHER: " name(father(w))
col(63) "(RN=" key(father(w)) ")"
col(0) " WIFE'S MOTHER: " name(mother(w))
col(63) "(RN=" key(mother(w)) ")"
nl nl
col(0) "========================================================================"
nl
col(0) "# M/F" col(12) "Childrens Names" col(63) "RECORD NUM"
nl
col(0) "========================================================================"
nl
children(fam, child, num) {
col(0) d(num)
col(4) sex(child)
col(12) name(child) col(63) "(RN=" key(child) ")"
col(4) "Born:" col(13) stddate(birth(child))
col(26) place(birth(child))
nl
col(4) "Died:" col(13) stddate(death(child))
col(26) place(death(child))
nl
families(child, fvar, svar, num) {
if (eq(num,1)) {
col(4) "Marr:" col(13) stddate(marriage(fvar))
col(26) if (svar) { name(svar)
col(63) "(RN=" key(svar) ")" }
else { " " }
nl
}
}
if (eq(nfamilies(child),0)) { " " nl }
col(4) "---------------------------------------------------------"
}
}
/* End of Report */
|