Here is how to bypass the stupid new LIVING policy:

1. Go to http://www.rootsweb.com/~gumby/ged.html and download a copy of GEDLiving.exe

2. Run GEDLiving against your gedcom to create a cleansed version. ie. to remove Notes etc. that you don't want displayed for living people.

3. Run the following Basic program against the cleansed file. It will add a dummy death entry to every living person. You can change the death entry data to anything you like.

4. Upload the file to Worldconnect.


'***************************************************************
' ADD DUMMY DEATH ENTRY TO EVERY LIVING PERSON IN A GEDCOM FILE
' SO THEY WILL NOT BE CHANGED TO "LIVING" ON WORLDCONNECT
'***************************************************************

CLS 'CLEAR SCREEN
GOSUB INIT 'GET FILE NAMES ETC.
GOSUB PROCESS 'READ AND PROCESS FILE
END 'END PROGRAM


'---------------------------------------------------------------
' ASK USER FOR INPUT/OUTPUT FILENAMES AND TEXT FOR DEATH ENTRIES
'---------------------------------------------------------------
INIT:

ON ERROR GOTO INFILERR
GOTO INFIL

INFILERR:
PRINT
PRINT "Invalid file name " A$ "Must be DOS format."
PRINT "ie. The xxx must be 8 chars or less with no blanks."

INFIL:
INPUT "Enter input filename xxx.ged or just press Enter to exit";A$
IF A$ = "" then END
OPEN A$ FOR INPUT AS #1 ' open input file
ON ERROR GOTO 0

INPUT "Enter output filename. eg. output.ged";A$
OPEN A$ FOR OUTPUT AS #2 'output file

INPUT "Enter default death date or just press Enter for 'Unknown'";DAT$
IF DAT$ = "" THEN DAT$ = "Unknown"

INPUT "Enter death location or just press Enter for 'Unknown. Maybe still alive'";PLAC$
IF PLAC$ = "" THEN PLAC$ = "Unknown. Maybe still alive"

RETURN


'---------------------------------------------------------------
' PROCESS INPUT FILE AND CREATE OUTPUT FILE
'---------------------------------------------------------------
PROCESS:

LINE INPUT #1, X$
DEATH = 1
WHILE NOT EOF(1) 'UNTIL END OF FILE
A$ = LEFT$(X$,1) '1ST CHAR OF GEDCOM LINE
B$ = LEFT$(X$,4) '1ST 4 CHARS OF GEDCOM LINE
C$ = LEFT$(X$,6) '1ST 6 CHARS OF GEDCOM LINE
IF A$ = "0" THEN ' 0 LEVEL GEDCOM TAG?
' IF LAST 0 LEVEL WAS AN INDIVIDUAL BUT NO DEATH RECORDED THEN MAKE DEAD
IF INDI = 1 AND DEATH = 0 THEN GOSUB MAKEDEAD 'ADD DEATH DETAILS
IF B$ = "0 @I" THEN 'NEW INDIVIDUAL
INDI = 1 'INDICATE INDIVIDUAL
DEATH = 0 'NO DEATH ENTRY FOUND YET
ELSE
INDI = 0 'NOT INDIVIDUAL
END IF
ELSEIF C$ = "1 DEAT" THEN
DEATH = 1 'DEATH ENTRY FOUND
END IF

PRINT #2,X$ 'WRITE DATA TO OUTPUT FILE
LINE INPUT #1, X$
WEND


'---------------------------------------------------------------
' ADD DEATH ENTRY FOR PREVIOUS PERSON
'---------------------------------------------------------------
MAKEDEAD:

Y$ = "1 DEAT"
PRINT #2,Y$ 'WRITE TO OUTPUT FILE
Y$ = "2 DATE " + DAT$
PRINT #2,Y$ 'WRITE TO OUTPUT FILE
Y$ = "2 PLAC " + PLAC$
PRINT #2,Y$ 'WRITE TO OUTPUT FILE

RETURN