File: hasnotes1.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 (55 lines) | stat: -rw-r--r-- 1,216 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
/*
 * @progname       hasnotes1.ll
 * @version        1.1
 * @author         Wetmore, Manis
 * @category       
 * @output         Text
 * @description    
 *
 *   It will produce a report of all the numbers and names (INDI's)
 *   in the database which have a "NOTE" line at level 1 in the record.
 *   It is designed for 10 or 12 pitch, HP laserjet III, or any
 *   other printer (ASCII output).

 *   hasnotes1
 *
 *   Code by Tom Wetmore, ttw@cbnewsl.att.com
 *   Modifications by Cliff Manis
 *
 *   This report works only with the LifeLines Genealogy program
 *
 *   version one of this report was written by Tom Wetmore, in Sep 1992,
 *
 */

proc main ()
{
	"PERSONS IN THE DATABASE WITH NOTES" nl() nl()
	forindi (i, n) {
		set(r, inode(i))
		set(notfound, 1)
		fornodes (r, n) {
			if (and(notfound, eq(0, strcmp("NOTE", tag(n))))) {
				set(notfound, 0)
				key(i) col(8) name(i) nl()
			}
		}
	}
}

/*  Sample output of report.  

PERSONS IN THE DATABASE WITH NOTES

I1     Alda Clifford MANIS
I2     Fuller Ruben MANES
I3     Edith Alberta MANIS
I4     William Bowers MANES
I5     Cordelia "Corda" F. CANTER
I6     William Loyd MANIS
    (all these INDI's did have a NOTE line)

*/

/* End of Report */