ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG108.ARC/GEN-DSKA.LBR/FRMTSEL.CMD

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

* File:- FRMTSEL.CMD
* Formated Page List Program For Selected Records By Surname.
* By, J.L.Read. Merrylands. NSW.
* Date:- 23/08/87
* Update:-
* Version 1.1
ERASE
SET TALK OFF
 SET INTEN ON
 @ 4,23 SAY">>> FORMATED PRINTER LISTING <<<"
 SET INTEN OFF
 @ 7,37 SAY"-==-"
 USE B:PERSONS
 @ 12,19 SAY"Print All Records By The Same Surname."
 @ 22,1 SAY"Select and Print By Surname,  <Y> or <N> "
 SET CONSOLE OFF
 WAIT TO COMMAND
 SET CONSOLE ON
 IF !(COMMAND)= "Y"
 DO SLECMEN
 ERASE
 SET INTEN ON
 @ 4,23 SAY">>> FORMATED PRINTER LISTING <<<"
 SET INTEN OFF
 USE B:PERSONS INDEX B:NAME
 SELECT SECONDARY
 USE B:STORIES INDEX B:STORYREF
 SELECT PRIMARY
 STORE T TO MCHOICE
 DO WHILE MCHOICE
 STORE "               " TO MLAST
 @ 7,2 SAY"&MFAMLY"
 @ 10,23 SAY"Enter  <CR>  To Return To Menu."
 @ 12,14 SAY"Enter Surname to Search For:- "
 @ 12,44 GET MLAST PICTURE "!!!!!!!!!!!!!!!"
 @ 22,0 SAY"Press  <RETURN>  When Ready."
 SET CONFIRM ON
 READ
 SET CONFIRM OFF
  IF $(MLAST,1,2) = "  "
  CLEAR
  RESTORE FROM MEMRET
  RETURN
  ENDIF $(MLAST,1,2) = "  "
 @ 22,0
 FIND &MLAST
 IF #=0
 @ 14,1 SAY"That Surname Is Not On File."
 @ 15,1 SAY"? &MLAST"
 STORE 1 TO MX
 DO WHILE MX <100
 STORE MX+1 TO MX
 ENDDO WHILE MX <100
 RELEASE MX
 @ 14,0
 @ 15,0
 LOOP
 ENDIF #=0
 @ 10,0
 SET INTEN ON
 @ 22,1 SAY" TURN YOUR PRINTER ON "
 SET INTEN OFF
 @ 22,25 SAY"Press  <RETURN>  When Ready "
 SET CONSOLE OFF
 WAIT
 SET CONSOLE ON
 @ 10,0
 @ 12,0
 @ 16,0 SAY"Search and Print Record By Surname:- &MLAST "
 @ 22,0
 @ 22,1 SAY"Printing All Records By The Same Surname,  PLEASE WAIT "
 SET CONSOLE OFF
 STORE 0 TO XX
 SET PRINT ON
* DO WHILE .NOT. EOF
* IF LAST:NAME='&MLAST'
 DO WHILE LAST:NAME='&MLAST'
?
STORE REF:NO TO CURPER
STORE XX+1 TO XX
STORE STR(XX,4) TO MXX
SET CONSOLE ON
@ 12,1 SAY"Printing File Reference No:- &CURPER "
@ 14,1 SAY"Printing Page Number:- "+MXX+" "
SET CONSOLE OFF
?
?
? "                    &OUT -== GENEALOGY ==- &IN"
?
?
?
?
? "&OUT        &MFAMLY &IN"
? " Date:- "+ DATE()
? "+======================================================================;
=====+"
? "|       Surname :-",LAST:NAME,"   <--- Reference Number:-",REF:NO,"    ;
     |"
IF BIRTH:DATE =0
? "|       First Name :-",FIRST:NAME,"        Date Of Birth:- Not Known   ;
     |"
ELSE BIRTH:DATE >0
 STORE STR(BIRTH:DATE,8) TO MBRTH
 STORE FIRST:NAME TO MFNAM
? "|       First Name :-",MFNAM,"        Date Of Birth:-",$(MBRTH,1,4);
+"."+$(MBRTH,5,2)+"/"+$(MBRTH,7,2),"      |"
ENDIF
IF DEATH:DATE =0
? "|       Second Name:-",MID:NAME,"        Date Deceased:- Not Deceased ;
    |"
ENDIF
IF DEATH:DATE =9
? "|       Second Name:-",MID:NAME,"        Date Deceased:- Not Known    ;
    |"
ENDIF
IF DEATH:DATE >0 .AND. DEATH:DATE <9
? "|       Second Name:-",MID:NAME,"        Date Deceased:-              ;
    |"
ENDIF
IF DEATH:DATE >9
 STORE STR(DEATH:DATE,8) TO MDETH
 STORE MID:NAME TO MMIDN
? "|       Second Name:-",MMIDN,"        Date Deceased:-",$(MDETH,1,4);
+"."+$(MDETH,5,2)+"/"+$(MDETH,7,2),"      |"
ENDIF
? "|       Known As   :-",NICK:NAME,"        Gender Of Person:-",SEX,"   ;
         |"
? "+=====================================+================================;
=====+"
? "|        Fathers Ref No:-",FATHER:REF,"       |        Mothers Ref ;
No:-",MOTHER:REF,"       |"
? "+=====================================+================================;
=====+"
? "|                              ---<SPOUSES>---                         ;
     |"
? "|                             ~~~~~~~~~~~~~~~~~                        ;
     |"
? "|-------<SPOUSE 1>-------+-------<SPOUSE 2>-------+-------<SPOUSE 3>--;
------|"
? "|  Ref.Number:-",SPSE1:REF,"    |  Ref.Number:-",SPSE2:REF,"    |  ;
Ref.Number:-",SPSE3:REF,"     |"
STORE STR(SPSE1:DATE,8) TO MMARG1
STORE STR(SPSE2:DATE,8) TO MMARG2
STORE STR(SPSE3:DATE,8) TO MMARG3
? "|  Year Mrage:-",$(MMARG1,1,4)+" "+$(MMARG1,5,2)," |  Year Mrage;
:-",$(MMARG2,1,4)+" "+$(MMARG2,5,2)," |  Year Mrage:-",$(MMARG3,1,4)+" ";
+$(MMARG3,5,2),"  |"
? "|  No.Of Children:-",SPSE1:CHIL," |  No.Of Children:-",SPSE2:CHIL,";
 |  No.Of Children:-",SPSE3:CHIL,"  |"
? "+========================+========================+====================;
=====+"
?
?
?
?
? "                                     oOo"
?
?
 SELECT SECONDARY
FIND &CURPER
?
?
? "      +================================================================+"
? "      | &CURPER        &OUT -== BIOGRAPHY ==- &IN             |"
? "      +================================================================+"
IF #=0
? "      |                                                                |"
? "      |         No Story On File.                                      |"
? "      |                                                                |"
? "      |                                                                |"
? "      |                                                                |"
? "      |                                                                |"
ELSE
? "      | ",TEXT1," |"
? "      | ",TEXT2," |"
? "      | ",TEXT3," |"
? "      | ",TEXT4," |"
? "      | ",TEXT5," |"
? "      | ",TEXT6," |"
ENDIF
? "      +================================================================+"
?
?
?
? "      Remarks:-"
? "               ---------------------------------------------------------"
?
? "      ------------------------------------------------------------------"
?
? "      ------------------------------------------------------------------"
?
? "      ------------------------------------------------------------------"
?
? "      ------------------------------------------------------------------"
?
? "      ------------------------------------------------------------------"
?
? "                            ",XX
?
?
?
?
?
ENDIF
SELECT PRIMARY
SKIP
ENDDO
SET PRINT OFF
SET CONSOLE ON
@ 12,0
@ 14,0
@ 16,0
@ 22,0
ENDDO
ELSE COMMAND<> "Y"
 RELEASE COMMAND
 USE
 ENDIF
RETURN