File: fam10c.ll

package info (click to toggle)
lifelines 3.0.50-2
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 11,140 kB
  • ctags: 6,517
  • sloc: ansic: 57,468; xml: 8,014; sh: 4,255; makefile: 848; yacc: 601; perl: 170; sed: 16
file content (103 lines) | stat: -rw-r--r-- 3,455 bytes parent folder | download | duplicates (5)
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
100
101
102
103
/*
 * @progname       fam10c.ll
 * @version        1.0
 * @author         Manis
 * @category       
 * @output         Text
 * @description    
 *
 * Generates a Family Report for one family.
 *
 *   fam10c
 *   by:  Cliff Manis  <cmanis@csoftec.csf.com>
 *   Family Report for LifeLines
 */

proc main ()
{
        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:   "  
	if (w) { 
	    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 */
/*
--
Cliff Manis            K4ZTF           Manis/Manes Family History
Researching: MANIS MANES MANESS MANAS WHITEHORN CANTER BIRD CORBETT NEWMAN
    USMAIL:   P. O. Box 33937, San Antonio, Texas  78265-3937
               INTERNET: cmanis@csoftec.csf.com
-=> Don't waste time learning the tricks of the trade, learn the trade  !
 Standard Disclaimer:      We are not associated with anyone. (PERIOD). (.)
--
*/