ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG098.ARC/USER0.LBR/SETTREE.CMD

OS/2 REXX Batch file | 1979-12-31 | 2KB | 81 lines

* File:- SETTREE.CMD
* Re-Set/Up-Date Family Tree Address File Print Run
* By, J.L.Read. Merrylands. NSW.
* Modified Version 1.2
* Date:- 29/03/88
ERASE
SET BELL OFF
SET TALK OFF
@ 1,1 SAY"Update/Reset."
SET INTEN ON
@ 4,15 SAY">>> UP-DATE ADDRESS FILE.ADD NEW/EDITED NAMES <<<"
@ 6,15 SAY">>> RE-SET FAMILY TREE ADDRESS FILE PRINT RUN <<<"
SET INTEN OFF
@ 9,37 SAY"-==-"
@ 14,13 SAY"Printer Listing/Address Labels/Mailmerge Address File"
@ 22,1 SAY"Update/Reset Address File. <Y/N>."
SET CONSOLE OFF
WAIT TO COMMAND
SET CONSOLE ON
IF !(COMMAND)= "Y"
 DO B:SELEC
@ 9,28 SAY"&MFAMLY"
@ 12,32 SAY"Loading File."
@ 4,0
@ 6,0
SET INTEN ON
@ 5,15 SAY">>> UP-DATE ADDRESS FILE.ADD NEW/EDITED NAMES <<<"
SET INTEN OFF
USE B:PERSONS INDEX B:REF
SELECT SECONDARY
USE PHONE INDEX PHONIND,NAMEIND,CODEIND
SELECT PRIMARY
@ 12,30
@ 22,0
@ 22,1 SAY"Update Names To Address File. Y/N."
SET CONSOLE OFF
WAIT TO COMMAND
SET CONSOLE ON
IF !(COMMAND) ="Y"
@ 22,0
@ 22,0 SAY"Updating Names To Address File, WAIT."
 DO UPDATE
ENDIF !(COMMAND) ="Y"
@ 5,0
SET INTEN ON
@ 5,15 SAY">>> RE-SET FAMILY TREE ADDRESS FILE PRINT RUN <<<"
SET INTEN OFF
@ 22,0
@ 22,1 SAY"Set Family Tree Control if B:DISK Has been Changed Y/N."
SET CONSOLE OFF
WAIT TO COMMAND
SET CONSOLE ON
IF !(COMMAND) ="Y"
@ 22,0
@ 22,0 SAY"Setting Family Tree Control, WAIT."
GO TOP
DO WHILE .NOT. EOF
STORE REF:NO TO CURPER
STORE CONTROL TO MCONT
SELECT SECONDARY
 FIND &CURPER
 IF #=0
 SELECT PRIMARY
 SKIP
 LOOP
 ENDIF
 REPLACE SELECT WITH MCONT
 SELECT PRIMARY
 SKIP
 ENDDO
 ENDIF
 RELEASE CURPER,MCONT,MFAMLY
  SELECT SECONDARY
   USE
  SELECT PRIMARY
   USE
  ELSE !(COMMAND) <>"Y"
 ENDIF !(COMMAND) ="Y"
 RELEASE COMMAND
RETURN