home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / demos / commerci / origins.lzh / ARexx / ATest.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-08-17  |  6.3 KB  |  209 lines
  1. /*********************************************/
  2. /* ATest.rexx - test Origins ARexx interface */
  3. /*                                           */
  4. /*        ⌐1992 by The Puzzle Factory        */
  5. /*********************************************/
  6.  
  7. /* Make sure that you change the arguments to the functions to match
  8.    records in YOUR database before trying to use the functions. */
  9.  
  10. /* Tell ARexx we'll be expecting results */
  11. Options Results
  12.  
  13. /* Enable error handling routins for syntax errors and Rexx errors */
  14. Signal On Error
  15. Signal On Syntax
  16. Signal On Halt
  17. Signal On IOErr
  18.  
  19. /* Setup my address */
  20. MyPort = "GENREXX"
  21.  
  22. If (~Show('P',myport)) then do
  23.     Say "Please start the host application first."
  24.     Exit
  25. End
  26.  
  27. Address value MyPort
  28.  
  29. Say "Testing GENSETSEARCH(SNAME,GNAME,YEAR,CITY,COUNTRY,CODE,GENDER)"
  30. Say "==============================================================="
  31. Call GENSETSEARCH('Doe','John',1955,'Toledo','USA',4,'M')
  32. Say "Result:" RESULT
  33. Say ""
  34.  
  35. Say "Testing GENCONVERTSOUNDEX(SNAME)"
  36. Say "================================"
  37. LASTNAME='Smith'
  38. Call GENCONVERTSOUNDEX(LASTNAME)
  39. Say "The Soundex representation of" LASTNAME "is" RESULT
  40. Say ""
  41.  
  42. Say "Testing GENFINDPERSON(SEARCH)"
  43. Say "============================="
  44. Call GENFINDPERSON(SEARCH)
  45.  
  46. Say PERSON.RECORD
  47. Say PERSON.FATHER ||', '|| PERSON.MOTHER
  48. Say PERSON.SURNAME ||', '|| PERSON.GIVNAME
  49. Say PERSON.SEX
  50. Say PERSON.CODE
  51. Say PERSON.BIRTHDATE ||', '|| PERSON.BIRTHCITY ||', '|| PERSON.BIRTHCOUNTY ||', '|| PERSON.BIRTHSTATE ||', '|| PERSON.BIRTHCOUNTRY
  52. Say PERSON.DEATHDATE ||', '|| PERSON.DEATHCITY ||', '|| PERSON.DEATHCOUNTY ||', '|| PERSON.DEATHSTATE ||', '|| PERSON.DEATHCOUNTRY
  53. Say PERSON.BURIALDATE ||', '|| PERSON.BURIALCITY ||', '|| PERSON.BURIALCOUNTY ||', '|| PERSON.BURIALSTATE ||', '|| PERSON.BURIALCOUNTRY
  54. Say ""
  55.  
  56. Say "Testing GENFINDORDINANCE(SEARCH)"
  57. Say "================================"
  58. Call GENFINDORDINANCE(SEARCH)
  59.  
  60. Say ORDINANCE.RECORD
  61. Say ORDINANCE.BAPTISM
  62. Say ORDINANCE.CONFIRMATION
  63. Say ORDINANCE.SPOUSE1 ||', '|| ORDINANCE.SPOUSE2 ||', '|| ORDINANCE.SPOUSE3
  64. Say ORDINANCE.ARRIVED ||', '|| ORDINANCE.ARRDATE
  65. Say ORDINANCE.OCCUPATION
  66. Say ""
  67.  
  68. Say "Testing GENFINDMARRIAGE(SEARCH)"
  69. Say "==============================="
  70. Call GENFINDMARRIAGE(SEARCH)
  71. If Result = 'Found marriage' then do
  72.     Say "Record #:" MARRIAGE.RECORD
  73.     Say "Husband: " MARRIAGE.HUSBAND
  74.     Say "Wife:    " MARRIAGE.WIFE
  75.     Say "Code:    " MARRIAGE.CODE
  76.     Say "Date:    " MARRIAGE.DATE
  77.     Say "City:    " MARRIAGE.CITY ||', County: '|| MARRIAGE.COUNTY || ', State: '|| MARRIAGE.STATE ||',Country: '|| MARRIAGE.COUNTRY
  78.     Say "Comment: " MARRIAGE.COMMENT
  79. end
  80.  
  81. If DataType(word(Result,1))=NUM then do
  82.     Say Result
  83.     do i=1 to (word(Result,1))
  84.     Say "Spouse"i" is" MARRIAGE.SPOUSE.i
  85.     end i
  86. end
  87. Say ""
  88.  
  89. Say "Testing GENFINDMARRIAGE(HNUM,WNUM)"
  90. Say "=================================="
  91. Call GENFINDMARRIAGE(102,103)
  92. Say "Record #:" MARRIAGE.RECORD
  93. Say "Husband: " MARRIAGE.HUSBAND ||', Wife: '|| MARRIAGE.WIFE
  94. Say "Code:    " MARRIAGE.CODE
  95. Say "Date:    " MARRIAGE.DATE
  96. Say "City:    " MARRIAGE.CITY ||', County: '|| MARRIAGE.COUNTY ||', State: '|| MARRIAGE.STATE ||', Country: '|| MARRIAGE.COUNTRY
  97. Say "Comment: " MARRIAGE.COMMENT
  98. Say ""
  99.  
  100. Say "Testing GENFINDCHILDREN(FNUM,MNUM)"
  101. Say "=================================="
  102. Call GENFINDCHILDREN(58,61)
  103. If value(word(Result,1))>0 then do  /* If any children */
  104.     Say Result
  105.     do i=1 to (word(Result,1))
  106.     Say "Child"i" is" CHILD.i
  107.     end i
  108. end
  109. Say ""
  110.  
  111. Say "Testing GENFINDPARENTS(CNUM)"
  112. Say "============================"
  113. Call GENFINDPARENTS(132)
  114. Say "Father is" FATHER
  115. Say "Mother is" MOTHER
  116. Say ""
  117.  
  118. Say "Testing GENADDPERSON(ARGS)"
  119. Say "=========================="
  120. /* Attempt to add new person record to database. */
  121. Call GENADDPERSON(0,0,0,'Squirrel','Rocket J.','M',0,,
  122.                   '03 Mar 1968','Frostbite Falls,,MN,USA','','','','')
  123. Say Result
  124. Say ""
  125.  
  126. /* Index existing parent/child relationships */
  127. Say "Testing GENCREATEINDEX(PC)"
  128. Say "=========================="
  129. Call GENCREATEINDEX(PC)
  130. Say Result
  131. Say ""
  132.  
  133. Say "Testing GENADDORDINANCE(ARGS)"
  134. Say "============================="
  135. /* Attempt to add new ordinance record to database. */
  136. Call GENADDORDINANCE(0,165,'Down by the riverside',,
  137.                      'Our Lady of Perpertual Responsibility',49,2,0,,
  138.                      'Steamship "Hosannah", stearage class','23 Sep 1903',,
  139.                      'Part-time manure salesman')
  140. Say Result
  141. Say ""
  142.  
  143. Say "Testing GENADDMARRIAGE(ARGS)"
  144. Say "============================"
  145. /* Attempt to add new marriage record to database. */
  146. Call GENADDMARRIAGE(0,5,6,14,'01 Jun 1946','Topeka','','Kansas','USA',,
  147.                     'The weather was absolutely perfect for a June wedding')
  148. Say Result
  149. Say ""
  150.  
  151. /* Index existing marriage relationships */
  152. Say "Testing GENCREATEINDEX(MARRIAGE)"
  153. Say "================================"
  154. Call GENCREATEINDEX(MARRIAGE)
  155. Say Result
  156. Say ""
  157.  
  158. Say "Testing GENAPPENDRECORDS(PERSON,1)"
  159. Say "=================================="
  160. /* Attempt to add 1 blank person record */
  161. Call GENAPPENDRECORDS(PERSON,1)
  162. Say RESULT
  163. Say ""
  164.  
  165.  
  166. Say "Testing GENGETNUMBER(PERSON)"
  167. Say "============================"
  168. /* Find out how many person records currently exist */
  169. Call GENGETNUMBER(PERSON)
  170. Say RESULT
  171. Say ""
  172.  
  173. Say "Testing GENGETNUMBER(MARRIAGE,ACTIVE)"
  174. Say "====================================="
  175. /* Find out how many marriage records currently are in use */
  176. Call GENGETNUMBER(MARRIAGE,ACTIVE)
  177. Say RESULT
  178. Say ""
  179.  
  180. Exit
  181.  
  182. /**********************************************************************/
  183. /*                           Error Handling                           */
  184. /**********************************************************************/
  185.  
  186. Error:
  187.     Parse Source Type Num MacroName Script Prog Port
  188.     say 'ERROR: Macro "'MacroName'", Error: #'RC' ("'ErrorText(RC)'") on line 'SIGL' **'
  189.     say '       Error string from Origins = "'GEN.LASTERROR'"'
  190.     exit
  191.  
  192. Syntax:
  193.     Parse Source Type Num MacroName Script Prog Port
  194.     say 'SYNTAX: Macro "'MacroName'", Error: #'RC' ("'ErrorText(RC)'") on line 'SIGL' **'
  195.     say '        Error string from Origins = "'GEN.LASTERROR'"'
  196.     exit
  197.  
  198. Halt:
  199.     Parse Source Type Num MacroName Script Prog Port
  200.     say 'HALT: Macro "'MacroName'", Error: #'RC' on line 'SIGL' **'
  201.     say '      Error string from Origins = "'GEN.LASTERROR'"'
  202.     exit
  203.  
  204. IOErr:
  205.     Parse Source Type Num MacroName Script Prog Port
  206.     say 'IOERR: Macro "'MacroName'", Error: #'RC' on line 'SIGL' **'
  207.     say '       Error string from Origins = "'GEN.LASTERROR'"'
  208.     exit
  209.