! ,*" P!_b P9 VP5[ lCOPYRIGHT 1986 Digital Equipment Corp. lT(L@ p @TlPp4AN4MAIN_TASKM. d RALLY_USE_COMMAND_TASK; >4RALLY_USE_MACRO_TASK@ZvMAIN_MENU@ 0'ERROR_PKTq@]FREE_PKTSYS$LIBRARY:RALLY$HELP.RGHlU%OSYS$LIBRARY:RALLY$ERRORS.RGEPU5O.XSYS$LIBRARY:RALLY_PRINTER.RGPRALLY$PRINTFILEuptop$ ZEROOVERFLOWN/A)ff,Ee%. + --*Z*Np l / 29 hZbZ*ZZ h,b,*,, $ F$M FM+ F+- F-. V % F%B FB\ F\$te<SB C Type the number of the application command you want to use:= &@ AT  0 HPOPM` YP 0Q J,P Q JA &  J BEGIN IF RALLY_USE_COMMAND_FORM . COMMAND_NUMBER = 0 THEN RALLY_COMMAND_CODE := IGNORE; ELSE RALLY_COMMAND_CODE := RALLY_USE_COMMAND_FORM.COMMAND_NUMBER + TASK + 19; CALL_CMD(EXITTASK); END; 03 E hP3 =A  m W@ P  @C0@q 4M P>Q JF0 P JQ J)& JVAR COMMAND_CODE : NUMBER(5); BEGIN RALLY_COMMAND_CODE := IGNORE; FORK RALLY_USE_COMMAND_TASK; COMMAND_CODE := RALLY_COMMAND_CODE; RALLY_COMMAND_CODE := IGNORE; EXECUTE_CMD(COMMAND_CODE); END; 03 1 \ t 5 Type the number of the macro you want to use:/ &@ EP ( 0 PPOPM`P0Q J\P 1$PQ J!PQ JW 2 3 & JVAR NULL_VALUE : NUMBER(1); BEGIN MAKE_NULL(NULL_VALUE); IF RALLY_USE_MACRO_FORM . MACRO_NUMBER = NULL_VALUE THEN RALLY_COMMAND_CODE := IGNORE; ELSE IF RALLY_USE_MACRO_FORM . MACRO_NUMBER < 10 THEN RALLY_COMMAND_CODE := RALLY_USE_MACRO_FORM.MACRO_NUMBER + EXEMAC0; ELSE RALLY_COMMAND_CODE := RALLY_USE_MACRO_FORM.MACRO_NUMBER + EXEMAC1; CALL_CMD(EXITTASK); END; 03 ^P3 /3  qW@ P  tC0@rdMP>Q JF0P JQ J)& JVAR COMMAND_CODE : NUMBER(5); BEGIN RALLY_COMMAND_CODE := IGNORE; FORK RALLY_USE_MACRO_TASK; COMMAND_CODE := RALLY_COMMAND_CODE; RALLY_COMMAND_CODE := IGNORE; EXECUTE_CMD(COMMAND_CODE); END;@ 035`x43@ B`````````````````M8 S-M S-M8$M8 S-M S-M8$M8 M8 -03z Null Datea.m.a.d.amadb.c.bcccddd daydy dd d fm hh12hh24hhjmonthmonmmmip.m.pmqsy,yyysyyyysyearssssssccssww w!y,yyy"yyyy$year#yyy%yy&y'zonespthspthspth thstndrd:sundaymondaytuesdaywednesdaythursdayfridaysaturdaysunmontuewedthufrisatWjanuaryfebruarymarchaprilmayjunejulyaugustseptemberoctobernovemberdecember1janfebmaraprmayjunjulaugsepoctnovdecminus sparehundredthousandmillionzeroonetwothreefourfivesixseveneightnineteneleventwelvethirteenfourteenfifteensixteenseventeeneighteennineteenzeroethfirstsecondthirdfourthfifthsixthseventheighthninthtentheleventhtwelfththirteenthfourteenthfifteenthsixteenthseventeentheighteenthnineteenth;tentwentythirtyfortyfiftysixtyseventyeightyninetythieth,J",--* `A'+6                           !!"#$%&'()*+,-./0123456789:;<=>?@BRTXZdfhjtvxz|AAQBSCWDYEcFeGgHiIsJuKwLyM{NOPQRSTUVWXYZ       FDHLJNPV^\`bnlpr ~ ECGKIMOU][_amkoq } j While RALLY allows you to use MANY commands this application  uses only a small subset of them. The following is a list  of the valid commands. NOTE: Every Attempt has been made  to insure that only the following commands are available,  however some commands may have been missed. Also note  that the commands listed below may not always be valid for  every given screen. ENJOY!!  QUIT ACTION GOLD-Q, GOLD-K  FINISH ACTION GOLD-F, CTRL-Z, ENTER  LAST FIELD GOLD-Right Arrow  NEXT FIELD RETURN  FIRST FIELD GOLD-Left-Arrow  PREVIOUS FIELD BACKSPACE  NEXT RECORD Down-Arrow  PREVIOUS RECORD Up-Arrow  NEXT PAGE NEXT SCREEN  PREVIOUS PAGE PREV SCREEN  SELECT KeyPad . 1BAA>B$            &@ `K'|W@cNC@  A%IB J To search by Last Name enter , J J to search by ID Number enter the J J number and FINISH ACTION or use J J GOLD-SELECT to display an LOV, then J J SELECT the ID to view. J C%ID'         'For ID Number Prompt\5S5 0 A%IB J To search by ID Number leave Name J J blank and . Enter the name to J J search for and FINISH ACTION to J J perform an EXACT search, enter J J to do a partial or soundex search. J C%ID'       %'|5P5 0. F7 Use QUIT ACTION to return to Previous Screen ?55P_ Y Use SELECT to view Data Record, QUIT ACTION to return to previous screen  #55P  ;Enter Partial or Soundex and FINISH ACTION:   5P52+ p l Enter S for Soundex:5P5$8 @  Return to Restart Query5P54 $  e Enter ID Number or GOLD-SELECT for a LOV and SELECT the ID Number.   5P51   a!<5P4  ~!w %V" | q!!P $P S "PS,"PlPNPHSe"PɐP hPcP;<PaPvP lhP `C333333333!""#"4"B"O"\"m"{"""""""""J Q"#Q"Q"BQ!Q"{Q" Q" Q"R""""{!"B""#begin make_null(id_gv); make_null(lname_gv); make_null(zip_gv); make_null(soundex_gv); make_null(state_gv); make_null(addr_gv); make_null(fname_gv); make_null(city_gv); end; 03(###,$~ Query People using Id Number or Name GOLD-H for HELP  Id Number:  Last Name: $  2 &@ P$NP"O24NERROR NOT DEFINED - ERROR_PKTQ"O "O{ERROR_PRE_FR_ADL is called as a before form action site from ERROR_PKT.} begin if length(error_gv) <= 0 then error_gv := 'ERROR NOT DEFINED - ERROR_PKT'; end; 03%%% &+ANIB JN J JN J CNIDPNNP &@ P&T0O|NO"^'<T0L`|^'WD P4'& '4'C&^'0uSOUNDX3' 2W  'ZIP_CODE3'@ 2W0  '' ID_NUMBER3'@ 20  ' ( STATE31( 20  (<(CITY3c(  2W0  N(m(ADDRp3( 2W0  (( SENIORITYT3( i 20  (((TITLE_OF_ADDRESS83 )d 20  ()MIDDLE_INITIAL3E) 20  1)Y) FIRST_NAME3) d 20  k)) LAST_NAME3) 20 )) NAME_RDRJNAME_RDRFH ID_NUMBERiNVC$V1.0: All Records From NAME_RDR Which Is NAME_RDR Such That There Are No Restrictions Sorted By Ascending NAME_RDR.ID_NUMBER Using Only NAME_RDR.LAST_NAME, NAME_RDR.FIRST_NAME, NAME_RDR.MIDDLE_INITIAL, NAME_RDR.TITLE_OF_ADDRESS, NAME_RDR.SENIORITY, NAME_RDR.ADDR, NAME_RDR.CITY, NAME_RDR.STATE, NAME_RDR.SOUNDX, NAME_RDR.ID_NUMBER, NAME_RDR.ZIP_CODE . DECUS2'S̐) *+)+ & @)+6+Q"4P"43Q"4P"43P"#4 P"#Q+(P"4 P"Q+)P"4 P"Q+(P"{4 P"{Q+(NP"B4 P"BQ+'P"4P"Q+)P!40Q" P!Q+'Q"4P"43Q"Q"4P"43SP"43ANInternal RDB ERROR P"4 Q"OF'P"#0P"40+(P+(Q"#P"Q"Q"4P"40;Q"#P"Q"P"40Q"4P"43ANInternal RDB ERROR P"4 Q"OF'AX'"O"+'!+)"+'"B+(N"{+("+)"+("#"4+x{FIND_ADL - finds records in the name relation based on the non-blank values in the various global variables. It sets STAT_CODE_GV to zero if the record was found else STAT_CODE_GV is set to the returned error.} var code : number; funit : number; begin db_open (name_dsd, funit, stat_code_gv); if(stat_code_gv <> 0) then return; db_reset(funit, stat_code_gv); if(stat_code_gv <> 0) then return; if length(id_gv) > 0 then name_dsd.id_number := id_gv; if length(fname_gv) > 0 then name_dsd.first_name := fname_gv; if length(city_gv) > 0 then name_dsd.city := city_gv; if length(state_gv) > 0 then name_dsd.state := state_gv; if length(zip_gv) > 0 then name_dsd.zip_code := zip_gv; if length(lname_gv) > 0 then name_dsd.last_name := lname_gv; if length(soundex_gv) > 0 then BEGIN make_null(lname_gv); name_dsd.soundx := soundex_gv; end; db_query(funit, stat_code_gv); if(stat_code_gv <> 0) then return; rec_cnt_gv := 0; db_get_first(funit, stat_code_gv); if stat_code_gv <> 0 then begin if stat_code_gv <> db_eos then begin ERROR_GV := 'Internal RDB ERROR ' || to_char(stat_code_gv); call error_pkt; end; end; { If ID_GV is NULL then we must be doing a name search so see if there is more than one matching name } if (length(id_gv) = 0) and (stat_code_gv = 0) then begin id_gv := name_dsd.id_number; rec_cnt_gv := rec_cnt_gv + 1; db_get_next(funit, stat_code_gv); if stat_code_gv = 0 then begin make_null(id_gv); rec_cnt_gv := rec_cnt_gv + 1; end; if stat_code_gv = db_eos then stat_code_gv := 0; if stat_code_gv <> 0 then begin ERROR_GV := 'Internal RDB ERROR ' || to_char(stat_code_gv); call error_pkt; end; end; db_rollback(code); db_close(funit, code); end;  03+/00 View by ID Number $ &@ ^8  Id Number: Title:  Last Name:  First Name: Middle:  Seniority: Street: City: State: Zip Code: Soundx: &@  87            &@ S9W00*0*0*0*0 *0 ignore}   =( =)=*=+  var cmd : number; begin cmd := get_cmd(); if (cmd = fnext) or (cmd = abortaction) or (cmd = exitaction) or (cmd = fprev) or (cmd = fhome) or (cmd = flast) then execute_cmd(cmd); if cmd = khelp then call_cmd(cmd); call_cmd('ignore'); set_failure(); return; end;P 0099u:Q00*0*0*00 ignorep   =(=*=+  var cmd : number; begin cmd := get_cmd(); if (cmd = fprev) or (cmd = abortaction) or (cmd = exitaction) or (cmd = fhome) then execute_cmd(cmd); if cmd = fnext then execute_cmd(fhome); if cmd = khelp then call_cmd(cmd); call_cmd('ignore'); set_failure(); return; end;( 00;;d<D0 ͈=|' CD 0 ͑;|=' C STATE_NAME3=t 2 =X State State Name  &@ ) >STATE3> 20 >>J STATE_RDRFH STATE_NAMENVC$V1.0: All Records From STATE_RDR Which Is STATE_RDR Such That There Are No Restrictions Sorted By Ascending STATE_RDR.STATE_NAME Using Only STATE_RDR.STATE, STATE_RDR.STATE_NAME . DECUS2'S>>??L & D>?dW@P?WP %PH@H@"@P0% )|>?P 0%|"@>?D 0% ͑;|=N( H@CD 0 ͑;|p@( C D 0 ͑;|@( CD 0%͑;|@( C`D 05͑;|@k) CD 0% ͑;|#A) CD 0͑;|PA)CG00*0*0*0ignorec   =)=* var cmd : number; begin cmd := get_cmd(); if (cmd = fnext) or (cmd = abortaction) or (cmd = exitaction) or (cmd = flast) then execute_cmd(cmd); if cmd = khelp then call_cmd(cmd); call_cmd('ignore'); set_failure(); return; end; 00AAQB@D 0%KC||A1) ClT0  %|"@CD0%͑;|( C@WD  P]C+DE99|APA#A]C@@@p@CC===W@ PC8C/ P"#QDC execute query"#DCKbegin long_one_fr.id_number := id_gv; call_cmd('execute query'); end;l 039DjDDDQ"# "#make_null(id_gv);D 03DE#E1E CDHED0u 033+ignoreignoreQ"Pk0PN3To search by ID number you MUST enter the ID NUMBERQ"OF'10Q"#4>P"#0 Q"#P"# Q"#P"#QkQ"#F8NP"43GNP"# Not found, Please Re-enter Q"OF'FE\\  =*<RE\"48N"#'"Ok"{post_id_adl is called as an after field action site from name_driver_fr.id-number} var cmd : number; id : char(7); len : number; begin cmd := get_cmd(); if cmd = fnext then execute_cmd(cmd); if (cmd <> exitaction) and (cmd <> fpickval) then begin call_cmd('ignore'); set_failure(); return; end; call_cmd('ignore'); make_null(lname_gv); ID := name_driver_fr.id_num; len := length(id); if len = 0 then begin error_gv := 'To search by ID number you MUST enter the ID NUMBER'; call error_pkt; set_failure(); end; if len < 7 then begin id_gv := '0'; len := 6 - len; while len > 0 do begin; len := len - 1; id_gv := id_gv || '0'; end; id_gv := id_gv || id; name_driver_fr.id_num := id_gv; end; else id_gv := id; call FIND_ADL; if stat_code_gv <> 0 then begin error_gv := ID_gv || ' Not found, Please Re-enter'; call error_pkt; set_failure(); return; end; { call show_one_pkt;} call long_one_pkt; set_failure(); return; end; 03uEGG5H4 Record(s) found Matching your Search Criteria=lA@ =L~AP0 |Z9  ID Last Name First Name Init Title CityAA@ ADM dA@ MMZIP_CODE3M  2 m0M ID_NUMBER3MN  20 =MMSOUNDX3N  2W0 NN$NSTATEp3JN  2W0  6NUNCITYT3{N   2W0  gNNADDR83N<  2W0  NN SENIORITY3N@  20  NNTITLE_OF_ADDRESS3O  20  N&OMIDDLE_INITIAL 3LOd  20  8O`O FIRST_NAME 3O   20  rOO LAST_NAME 3O  20 OO8 2O 23OO 23rOP 238OP 23N*P 23N=Px 23NPP$BP0% |cP LZDP0E|ZLZvPvPjP"NAVI000*NAVIQ"00*0*9PZPP"m1P"m 4 +0 0 *0 * PZPP"m10 0*0*0*0*0*PZP40PZPvQ"# Q"ignore   =* =+<=== =!= = == 4ZPv"#"mZP"b var cmd : number; begin if addr_gv = 'NAVI' then return; cmd := get_cmd(); if (cmd = exitaction) or (cmd = abortaction) then return; addr_gv := 'NAVI'; if (cmd = pnext) or (cmd = prnext) or (cmd = downpage) then begin if (multi_partial_fr.rec_cnt < field_gv) and (field_gv > 20) then call_cmd(cmd); end; if (cmd = fnext) or (cmd = rnext) or (cmd = rlast) then begin if (multi_partial_fr.rec_cnt < field_gv) then call_cmd(cmd); end; if (cmd = fprev) or (cmd = rprev) or (cmd = rhome) or (cmd = pprev) or (cmd = uppage) or (cmd = prprev) then begin if multi_partial_fr.rec_cnt > 1 then call_cmd(cmd); end; if cmd = frfunction then begin id_gv := multi_partial_fr.id_number; call_cmd(cmd); end; addr_gv := ' '; call_cmd('ignore'); set_failure(); end;xQx3P5R"SXS BP 0VOLZH4BP0%",|P LZZBP0501|P LZBP0%=A|*P LZ BP0%6:|=P LZlBP0=I|PP LZMJNAME_RDRG7 LAST_NAMEFH LAST_NAMEH FIRST_NAMEHMIDDLE_INITIALNVC$V1.0: All Records From NAME_RDR Which Is NAME_RDR Such That NAME_RDR.LAST_NAME STARTS_WITH LNAME_GV Sorted By Ascending NAME_RDR.LAST_NAME, Ascending NAME_RDR.FIRST_NAME, Ascending NAME_RDR.MIDDLE_INITIAL Using Only NAME_RDR.LAST_NAME, NAME_RDR.FIRST_NAME, NAME_RDR.MIDDLE_INITIAL, NAME_RDR.TITLE_OF_ADDRESS, NAME_RDR.SENIORITY, NAME_RDR.ADDR, NAME_RDR.CITY, NAME_RDR.STATE, NAME_RDR.SOUNDX, NAME_RDR.ID_NUMBER, NAME_RDR.ZIP_CODE . DECUSx 2'SW/ XYY\ 3 % R0 Yp  & @OYZ\R00"ZT & ZcP*ZCD $PV9ZZMMPVV%WNWvWWvPvPPC@ PLZM!MLZ A9IB J Id Number:. J J9 J J Name:. J J Soundx:. J J9 J J Address:. J J9 J J Street:. J J City: State: Zip Code: J J9 J C9ID; .9 . .9 .9 .   9;l &@ 0 then begin addr_gv := 'NAVI'; CALL_CMD(rLAST); FIELD_GV := MULTI_PARTIAL_FR.REC_CNT; call_cmd(rhome); addr_gv := ' '; tot := field_gv; multi_partial_fr.totrec := field_gv; { tot := MULTI_PARTIAL_FR.TOTAL_REC;} if tot = 1 then begin id_gv := id; call show_one_pkt; execute_cmd(abortaction); end; end; if tot = 0 then begin error_gv := 'No Records Found Matching Your Criteria'; call error_pkt; execute_cmd(abortaction); end; end;3I3zjkkLltC`nZdj0uϐQ!P"0P"P"MAC0GMCC C  2P"E0I0*O0*U0*Y0*AZ0SN0MG0K0*C,0l 4Z1+3+J4    0^Q! W  "!var loop : number; len : number; s : char(3); tlen : number; temp : char(8); last : char(1); begin make_null(soundex_gv); len := length(lname_gv); if len = 0 then return; loop := 1; last := substr(lname_gv, 0, 1); tlen := 0; len := len - 1; s := substr(lname_gv, 0, 3); if s = 'MAC' then begin tlen := 3; loop := 3; temp := 'MCC'; last := 'C'; end; else temp := last; while (loop <= len) do begin s := substr(lname_gv, loop, 1); if (s = 'E') or (s = 'I') or (s = 'O') or (s = 'U') or (s = 'Y') then s := 'A'; if s = 'Z' then s := 'S'; if s = 'N' then s := 'M'; if (s = 'G') or (s = 'K') then s := 'C'; if s = ',' then loop := len + 1; else begin if (s > ' ') and (s < 'Z') and (last <> s) then begin last := s; tlen := tlen + 1; if loop > 0 then temp := temp || s; else temp := s; end; end; if tlen = 8 then loop := len + 1; loop := loop + 1; end; soundex_gv := temp; end; L 03&oqPrhr4 Record(s) found Matching your Search Criteria=p &@ =w9  ID Last Name First Name Init Title CityA &@ A\w \ &@ MwjP"NAVI000*NAVIQ"00*0*9PovP"m1P"m 4 +0 0 *0 * PovP"m10 0*0*0*0*0*Pov40PoLQ"# Q"ignore   =* =+<=== =!= = == 4oL"#"mov"b var cmd : number; begin if addr_gv = 'NAVI' then return; cmd := get_cmd(); if (cmd = exitaction) or (cmd = abortaction) then return; addr_gv := 'NAVI'; if (cmd = pnext) or (cmd = prnext) or (cmd = downpage) then begin if (multi_display_fr.rec_cnt < field_gv) and (field_gv > 20) then call_cmd(cmd); end; if (cmd = fnext) or (cmd = rnext) or (cmd = rlast) then begin if (multi_display_fr.rec_cnt < field_gv) then call_cmd(cmd); end; if (cmd = fprev) or (cmd = rprev) or (cmd = rhome) or (cmd = pprev) or (cmd = uppage) or (cmd = prprev) then begin if multi_display_fr.rec_cnt > 1 then call_cmd(cmd); end; if cmd = frfunction then begin id_gv := multi_display_fr.id_number; call_cmd(cmd); end; addr_gv := ' '; call_cmd('ignore'); set_failure(); end;~3w/yzRzSOUNDXT 3}  2W  }ZIP_CODE8 3} 2W0  }~ ID_NUMBER 3.~  20  ~=~ STATE 3d~ 20  O~o~CITY 3~   2W0  ~~ADDR 3~  2W0  ~~ SENIORITY 3~T (  20  ~TITLE_OF_ADDRESS 3< 20  &RMIDDLE_INITIALt 3xL  20  d FIRST_NAMEX 3   20   LAST_NAME< 3t  20 P 0ͺ} $P 0% |#O~ <P0E|oLLHP0%",| P0501| P0%=A|d P0%6:|& lP0=I|~ @00|}@00|~L@00|~;JNAME_RDRFH LAST_NAMEH FIRST_NAMEHMIDDLE_INITIALNVC$V1.0: All Records From NAME_RDR Which Is NAME_RDR Such That There Are No Restrictions Sorted By Ascending NAME_RDR.LAST_NAME, Ascending NAME_RDR.FIRST_NAME, Ascending NAME_RDR.MIDDLE_INITIAL Using Only NAME_RDR.LAST_NAME, NAME_RDR.FIRST_NAME, NAME_RDR.MIDDLE_INITIAL, NAME_RDR.TITLE_OF_ADDRESS, NAME_RDR.SENIORITY, NAME_RDR.ADDR, NAME_RDR.CITY, NAME_RDR.STATE, NAME_RDR.SOUNDX, NAME_RDR.ID_NUMBER, NAME_RDR.ZIP_CODE . DECUS 2'S /̃Ӄp & @ ك WD $PLowwv#̀FLnP0 |o W@ POwHP"4P"Qo#P"4 P"QoP"4 P"QoFP"{4P"{QoP"B4P"BQoP!40P!QonQo# execute queryNAVIQ"PovQ"m Q"P"mQoH4==oHov"m"on!o"Bo"{oF"o"o#"Q{PRE_MULTI_FR_ADL is called as a before form action site from MULTI_DISPLAY_PKT. Its purpose is to set up the form with all of the global variables that have a value.} begin if length(lname_gv) > 0 then multi_display_fr.last_name := lname_gv; if length(fname_gv) > 0 then multi_display_fr.first_name := fname_gv; if length(city_gv) > 0 then multi_display_fr.city := city_gv; if length(state_gv) > 0 then multi_display_fr.state := state_gv; if length(zip_gv) > 0 then multi_display_fr.zip_code := zip_gv; if length(soundex_gv) > 0 then begin multi_display_fr.soundex := soundex_gv; make_null(multi_display_fr.last_name); end; call_cmd('execute query'); addr_gv := 'NAVI'; CALL_CMD(rLAST); FIELD_GV := MULTI_display_FR.REC_CNT; call_cmd(rhome); addr_gv := ' '; multi_display_fr.totrec := field_gv; end;W3c=HC`odj0u  Q"PP00*3ignoreignorePQ"P0P"1XN9Enter at Least three characters for a partial name searchQ"OF'Fo S0WFwF8NP"435P"Q!Q"F8N 0F8NP"43?N!Record Not found, Please Re-enterQ"OF'P"0FjdP"4F QQ"Q"#Q!P0S0* 0*0 Qk QNEnter P, S or BlankQ"OF'S =*=+Pk"#jd"!"48Nwo '"O"" var type : char; len : number; begin first_gv := ' '; type := name_driver_fr.search; len := get_cmd(); if(len = fnext) or (len = fprev) then execute_cmd(fprev); if len <> exitaction then begin call_cmd('ignore'); set_failure(); end; call_cmd('ignore'); lname_gv := name_driver_fr.last_name; if type = 'P' then begin len := length(lname_gv); if len < 3 then begin error_gv := 'Enter at Least three characters for a partial name search'; call error_pkt; end; else call multi_partial_pkt; call_cmd(fprev); set_failure(); return; end; if type = 'S' then begin CALL SOUNDEX_ADL; call find_adl; if stat_code_gv <> 0 then begin soundex_gv := lname_gv; make_null(lname_gv); call find_adl; end; end; if type = ' ' then begin call FIND_ADL; end; if stat_code_gv <> 0 then begin error_gv := 'Record Not found, Please Re-enter'; call error_pkt; set_failure(); return; end; if rec_cnt_gv = 1 then call show_one_pkt; if rec_cnt_gv > 1 then call multi_display_pkt; name_driver_fr.search := ' '; make_null(lname_gv); make_null(id_gv); make_null(soundex_gv); if(type = 'P') or (type = 'S') or (type = ' ') then begin name_driver_fr.id_num := ' '; name_driver_fr.last_name := ' '; execute_cmd(fprev); end; error_gv := 'Enter P, S or Blank'; call error_pkt; set_failure(); end;lSj3T$-`|T0 24|Ԕ Q name_driver_fr.search := ' '; 03&?TbxPQ"0!P"03ignoreignoreQ"#P"0CN&You MUST at least Enter a parital nameQ"OF'F8NP"43?N!No records found, Please Re-enterQ"OF'P"0FE\P"4FJ =*=+f E\""48N'"O"#"{post_name_adl is called as an after field action site from name_driver_fr.last_name} var cmd : number; begin cmd := get_cmd(); lname_GV := name_driver_fr.last_name; if cmd = fnext then BEGIN if length(lname_gv) = 0 then execute_cmd(fprev); execute_cmd(fnext); end; if cmd <> exitaction then begin call_cmd('ignore'); set_failure(); return; end; call_cmd('ignore'); make_null(id_gv); if length(lname_gv) = 0 then begin error_gv := 'You MUST at least Enter a parital name'; call error_pkt; set_failure(); end; call FIND_ADL; if stat_code_gv <> 0 then begin error_gv := 'No records found, Please Re-enter'; call error_pkt; set_failure(); return; end; { if rec_cnt_gv = 1 then call show_one_pkt;} if rec_cnt_gv = 1 then call long_one_pkt; if rec_cnt_gv > 1 then call multi_display_pkt; set_failure(); return; end;  03[×T !8| LAST_NAME03ʛ 2W 6ٛ Id Number Last Name &@  d &@  - ID_NUMBER3F 20 UJNAME_RDRFH ID_NUMBERiNVC$V1.0: All Records From NAME_RDR Which Is NAME_RDR Such That There Are No Restrictions Sorted By Ascending NAME_RDR.ID_NUMBER Using Only NAME_RDR.LAST_NAME, NAME_RDR.FIRST_NAME, NAME_RDR.MIDDLE_INITIAL, NAME_RDR.TITLE_OF_ADDRESS, NAME_RDR.SENIORITY, NAME_RDR.ADDR, NAME_RDR.CITY, NAME_RDR.STATE, NAME_RDR.SOUNDX, NAME_RDR.ID_NUMBER, NAME_RDR.ZIP_CODE . DECUS2'Sz   & Dg_J J J J J J J J J J J J J J J J J J J J J J J J &@ :@W@P͞WP01WP 1PD<)|͞9DP0 |6@P 0 |g4T0 (L|DW@ Pk%kԔC$0u Free Form Query Last Name: Enter S for SOUNDEX:  First Name:  City: State:  Zip: AMIB J Using this form you may query the database by entering one or all of the J J fields and Entering FINISH ACTION. You MUST enter the Last Name or the J J SOUNDEX. You also have the option to SOUNDEX the entered name. Partial J J name searches are not allowed.- J CMID      OM ( MMO &@ O֟~P"NAVI000*0ignore0F ignore Q"V  =*=+ "*var cmd : number; begin if addr_gv = 'NAVI' then return; cmd := get_cmd(); if (cmd = fnext) or (cmd = abortaction) then return; if (cmd = fprev) then return; call_cmd('ignore'); if cmd = exitaction then call free_find_adl; call_cmd('ignore'); set_failure(); addr_gv := ' '; end;0 03ԡTĢT0  ;"@/P"NAVI000P/4+GP/4N Invalid StateQ"OF'000*ignore0 F ignorej    =,=*=+> '"O//"var cmd : number; begin if addr_gv = 'NAVI' then return; cmd := get_cmd(); if (cmd = abortaction) then return; if (cmd = fnext) and (length(free_fr.state) > 0) then begin if (length(free_fr.state_name) > 0) then return; error_gv := 'Invalid State'; call error_pkt; set_failure(); return; end; if cmd = fnext then return; if (cmd = fprev) or (cmd = flistval) then return; call_cmd('ignore'); if cmd = exitaction then call free_find_adl; call_cmd('ignore'); set_failure(); end; 03,sP"NAVI005NAVIQ" Q"00ignore0F ignorec   =(=*=+ " var cmd : number; begin if addr_gv = 'NAVI' then return; cmd := get_cmd(); if (cmd = fnext) then begin addr_gv := 'NAVI'; call_cmd (fhome); set_failure(); addr_gv := ' '; return; end; if (cmd = abortaction) then return; if (cmd = fprev) then return; call_cmd('ignore'); if cmd = exitaction then call free_find_adl; call_cmd('ignore'); set_failure(); end; 0#槃訩|T0   /T0L   ֧H@/\T0  ߪ /<T0   /T0 ;=|6/ P"Q"P/4P/Q" Q"P/64 P/6Q" Q"P/ 4 P/ Q"Q"{P/4P/Q"{Q"BP/4P/Q"BQ!P/`S0FwQ"F8NP"43P/`S35P"Q!Q"F8NP"43\NAVIQ"N'No Records Found Matching your CriteriaQ"OF'P"0FE\P"4FP"4tQ/ Q/6 Q/ Q/Q/Q/`NAVIQ" FIRST3FIRSTQ"0=( E\"'"O"48Nw/`!/"B/"{/ "/6"/""var navi : char(10); code : number; begin navi := addr_gv; make_null(lname_gv); if length(free_fr.lname) > 0 then lname_gv := free_fr.lname; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; call find_adl; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := lname_gv; make_null(lname_gv); call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> ' FIRST' then call_cmd(fhome); addr_gv := 'FIRST'; end;TG33e;P"NAVI0P"FIRST0 Q"P/0CN%Please Enter The Last Name or SoundexQ"OF'00*0-ignoreFIRSTQ"F ignoreI  =*4 '"O/"Fvar cmd : number; begin if addr_gv = 'NAVI' then return; if addr_gv = 'FIRST' then begin addr_gv := ' '; set_failure(); return; end; if length(free_fr.lname) = 0 then begin error_gv := 'Please Enter The Last Name or Soundex'; call error_pkt; set_failure(); return; end; cmd := get_cmd(); if (cmd = fnext) or (cmd = abortaction) then return; if cmd = exitaction then begin call_cmd('ignore'); addr_gv := 'FIRST'; call free_find_adl; end; call_cmd('ignore'); set_failure(); end;| 03$oT0 #`/\W@ Pǡ`6 ߪC/0u$ Generic Query by ID Number &@ "q  Id Number: Title:  Last Name:  First Name: Middle:  Seniority: Street: City: State: Zip Code: Soundx: &@    &@ &oDD0 |' xD 0 |' $D 0% |N( H@D 0 |( D 0 | ( dD 0%|7( D 05|ak) dD 0% |) D 0|)D 0%u`|1) T0  %|"@@D 0%w`e ( D WD  P`+ҽa}༶ a7 7`TW@ PCҽ0u Generic Query by Name $ &@  Title:  Last Name:  First Name: Middle:  Seniority: Street: City: State: Zip Code: Soundx:  Id Number:  Enter all fiel  Name is a Requ  After a record  PREVIOUS RECOR &@ 7 ds you wish to search on and FINISH ACTION. The Last ired field. To Re-start the query enter GOLD-, (comma). has been found you may use NEXT RECORD (Down Arrow) and D (Up Arrow) to browse through all matching records.5884 &@ 8ZA 0_ ]P.0CNYou Must Enter a Last NameQ"OF'ignore '"O.begin if(length(query_name_fr.last_name) = 0) then begin error_gv := 'You Must Enter a Last Name'; call error_pkt; call_cmd('ignore'); set_failure(); end; end;T 03o D0 |~ D0 0% |~ H@D0 0 |²~  D0 0|=~ `D0 05|hž D0 0% | D3 0fl @D00%ld D00%|& lT0  %|"@D0% w`eO~ D D0 |} @WD  P.LR¿“Dh=mÖW@ PÔ*C.0u" Generic Query by SOUNDEX |(@ !b Title:  Last Name:  First Name: Middle:  Seniority: Street: City: State: Zip Code: Soundx:  Id Number:  Enter all fiel  that the Last  After a record  PREVIOUS RECOR)@   Soundex?: ds you wish to search on and FINISH ACTION. It is suggested Name be enterd. Re-start the query enter GOLD-, (comma). has been found you may use NEXT RECORD (Down Arrow) and D (Up Arrow) to browse through all matching records. <:84|*@ <,D0 } }PS0PY0*PP Q"Fw P!QQ !>!w "begin { if(length(query_name_fr.last_name) = 0) then begin error_gv := 'You Must Enter a Last Name'; call error_pkt; call_cmd('ignore'); set_failure(); end;} if (query_sndx_fr.sndx = 'S') or (query_sndx_fr.sndx = 'Y') then begin lname_gv := query_sndx_fr.last_name; call soundex_adl; query_sndx_fr.soundx := soundex_gv; make_null(query_sndx_fr.last_name); end; end; 03ǂǥh,D 0 ͚~ ,D0 0% |Ɂ~ H@+D0 0 |ɲ~ +D0 0|~ X+D0 0%|2& N+D0 05|]ʞ p%+D0 0% | 8*T0 ɴ(*D0 0| x+D0 0%l d H,T0  %|"@Lo,D0% w`eO~ D ,D  P3˫ ʴʈ3]2^ˇˮ@,-@ P˔ĵC0uB Query Menu" GOLD-H for HELP  1. Query by ID or Name  2. Free Query  3. Query by ID Number  4. Query by Name  5. Query by Soundex  6. Exit Enter choice:  " P < < 2 3 3PPPP 7PPPPPPPPPPPP"U0$TUʐPU*CBUeIP-  .I&]FD%MN S(M`E T vPe6+Q"4P"43Q"4P"43Q"4P"43Q"Q"4P"40EP+)Q"Fw P!Q+'3%N DB_UPDATEQ"OF'Q"4P"40(P"Q"P"43P"43+BNInternal RDB ERROR P"4 Q"OF'N total records P" Q"OF'CXf '"O!+'w+)"""4+ var code : number; funit : number; cnt : number; begin cnt := 0; db_open (name_dsd, funit, stat_code_gv); if(stat_code_gv <> 0) then return; db_reset(funit, stat_code_gv); if(stat_code_gv <> 0) then return; db_query(funit, stat_code_gv); if(stat_code_gv <> 0) then return; rec_cnt_gv := 0; db_get_first(funit, stat_code_gv); while (stat_code_gv = 0) do begin lname_gv := name_dsd.last_name; call soundex_adl; name_dsd.soundx := soundex_gv; cnt := cnt + 1; db_update (funit, code); if code <> 0 then begin ERROR_GV := 'DB_UPDATE'; call error_pkt; end; db_get_next(funit, stat_code_gv); if stat_code_gv = 0 then rec_cnt_gv := rec_cnt_gv + 1; if (stat_code_gv <> 0) and (stat_code_gv <> db_eos) then begin ERROR_GV := 'Internal RDB ERROR ' || to_char(stat_code_gv); call error_pkt; return; end; end; db_commit(code); db_close(funit, code); error_gv := ' total records ' || to_char(rec_cnt_gv); call error_pkt; end;( 03]Т JP"4P"QZV execute queryZV"^{PRE_MULTI_FR_ADL is called as a before form action site from MULTI_DISPLAY_PKT. Its purpose is to set up the form with all of the global variables that have a value.} begin if length(lname_gv) > 0 then multi_partial_fr.last_name := lname_gv; { if length(sndx_gv) > 0 then multi_partial_fr.soundx := sndx_gv;} call_cmd('execute query'); end;, 03*"Bq@ m m m @ Vqq BV!%!V!!" !| ! ! !q!!!! wN8$"" N8"}niVLHEDN8$" LN8" N8$" ֧nLN8 '&""}nV" N8$" N8$" ֧}nV$"""" N8$" w*ZLN8$""'^'^'^'^''4' ' ֧nLN8'=N8''=N8((`CN8N(N(p@N8(( @N8((7@(((a@1)1) ]Ck)k)#A))PAN8))|AN8++CN8N8N8N8N8N8N8N8 LDCCC=p@@@@#APA|A=C=Cp@>>"@?>H@????H@"@?^m7gCH@?ߪcp@??C@C@C@C#ACPAC|A]CC]CCCCDCDDCC]C|APA#A@@@p@==\EDC\Edj\E LkZnZLZLZMNN6NcP6NgNgNNNNPPNNN8O=P8OrO*PrOOPOOPOZOVPVP%W*PNW=PvWPPWcP9ZvPnLZVPnVLZVLZLZLZLZLZLZLZZZ*ZZ9Z9ZLZZZWvWNW%WVVPvP onnnLZVVP!Mjd+ecd2dsdddc``d``acaCa{cCatahctaaUcaaBcaa&b/c&b`bc`bb cbbbbibdb+e cdcdg/cdBc2dUcdhcc{cgc`dcjcjdj2djsdisdjdjddjj+edgjgdgjjjjiiiiiijEjEjggdg+edddsd2ddccdjj on o o#}n~~O~O~L~~~~=F~~2h&&&]Ddd3̀ #Lv}}oonF̀vL#oHv}} kggD))͞͞D͞D`kLkԔLv/` 6/֧ߪ/ ߪ/ ֧/ 6/ `/ ֧// ] `6 ߪ֧֧vҽ 7a `ҽҽ`7 a7 v.=h..mDh=Mv2]^3 ]2v3 RALLY_USE_COMMAND_FORM  TX P P FR_FIELDVAL0 l CONFIRM COMMAND_NUMBER-x RALLY_USE_MACRO_FORM  TX! MACRO_NUMBER ( FR_FIELDVAL0P CONFIRM@DEjSHOW_ONE_FR)cZIP_CODEy:6tEcyxxy ^HREP1 @H \ELONG_ONE_PKTthi@tMULTI_DISPLAY_PKTe @=H oMULTI_PARTIAL_PKT@2NAME_DRIVER_PKT@QUERY_ID_PKT@MQUERY_NAME_PKT@@QUERY_SNDX_PKTtd RALLY_USE_COMMAND_PACKET}:@RALLY_USE_MACRO_PACKET @F djSHOW_ONE_PKTINS@\n<^'ERROR_FRecify projections ^&TXTb 'MESS cof4'DUMMYin@|\/FREE_FR\\ZIP 6\|ǡTXTF\STATE_NAMEE\ߪSTATE n\`SEARCH_TYPE\LNAMEnut\6FNAME \< CITY<ZHGRP1ue V|HTXT1OL@@ DLONG_ONE_FRprevious # menu h5u<=ZIP_CODEacr 8TXT$]CTITLE_OF_ADDRESSr @CSTATE_NAMEzlp@STATE=SOUNDXe@SENIORITYet 9NAME_GP_TXT0 of E9NAME_GP_TXTCNAME_GP@#AMIDDLE_INITIALt`|ALAST_NAMEe CID_NUMBER sPAFIRST_NAME. ADL compil@CITY @ADDR@@d@LOV_NAME_FR @9NAME_LOV_TXT0H @dNAME_LOV_TXTrom@NAME_LOV Th @LOV_FR_TXTd@͞LOV_FRR@LAST_NAMEAM@DID_NUMBERIN@ *@?LOV_STATE_FRE_R:d"@STATE_NAMED d~>STATE_LOV_TXTX,.d?STATE_LOVCODE .ZdH@STATE; @ oltoMULTI_DISPLAY_FR thO ZIP_CODE'No  LOwTXTM pHTOTREC  TITLE_OF_ADDRESSd; !P STATEl O nSOUNDEX SENIORITYre p vREC_CNT  <wNAME_GP_TXT0; e  \wNAME_GP_TXT NAME_GP ̀MIDDLE_INITIALW 6ٛ P #LAST_NAME o LID_NUMBERJ P $FIRST_NAMEeP HFCITY@vl ZMULTI_PARTIAL_FR@ *MTXTRG!MTOTRECNWTITLE_OF_ADDRESS"vWSENIORITYw PREC_CNT :DMNAME_GP_TXT0| 6dMNAME_GP_TXT FLZNAME_GP%WMIDDLE_INITIALme: Ent VLAST_NAMEDDvvPID_NUMBERAT$VFIRST_NAMET&HWCITYOUN@ T9>4|NAME_DRIVER_FRr V%TXTbԔTESTje>SEARCH=LAST_NAME<kID_NUM@ҽQUERY_ID_FRTZIP_CODE TxTXTVT TITLE_OF_ADDRESSLOV_NAME_DSD{H{^T7STATE_NAME TSTATE T$SOUNDX6TDaSENIORITY  Td}NAME_GP_TXT00 TaNAME_GP_TXTjTNAME_GP>TMIDDLE_INITIALhNTLAST_NAMEorbT`ID_NUMBERAMFT@FIRST_NAMEE&Td CITY.T7ADDR@@J T.QUERY_NAME_FRWP ZIP_CODE *TXT$TITLE_OF_ADDRESSin @mSTATE_NAMExlSTATEcmSOUNDXfDSENIORITYcm RNAME_GP_TXT0cmd LNAME_GP_TXTNAME_GP@MIDDLE_INITIAL`LAST_NAMEC ID_NUMBER|FIRST_NAMEP]C+DE99=CITYhADDR=+ @QUERY_SNDX_FRvaj@ZIP_CODEet_ ^@hTXT@3TITLE_OF_ADDRESS) o@^STATE_NAMEmr@STATEex@SOUNDXe&@SNDX_cm@8]SENIORITYtu f@XNAME_GP_TXT0 b@|NAME_GP_TXT@NAME_GPC STATE_NAME@3@MIDDLE_INITIAL=@ LAST_NAME@(ID_NUMBER@LFIRST_NAMEmz@pCITYnex@2ADDR(cmht RALLY_USE_COMMAND_FORM  TXn ( FR_FIELDVAL0hen CONFIRMH COMMAND_NUMBERp*PRALLY_USE_MACRO_FORM*  TXignorep MACRO_NUMBERL p  FR_FIELDVAL0e( CONFIRM@RhdEjSHOW_ONE_FRpcZIP_CODE 'pdgTITLE_OF_ADDRESSte pgSTATE_NAMENpcSTATEn psdSOUNDXp(dSENIORITY pH[NAME_GV_TXTpljNAME_GVpdMIDDLE_INITIAL&pdLAST_NAMEPPpgID_NUMBER p+eFIRST_NAME<p$dCITY<pH2dADDR< @L0p)LOV_NAME_DSDq LAST_NAME" gID_NUMBER23Ur3ٛto @&?LOV_STATE_DSD  L>STATE_NAME3 Lt>STATE2"L?8r3L>/Report J < J N3L=ati @ ~+NAME_DSD 'ZIP_CODE 2@1)TITLE_OF_ADDRESS  dN(STATE0 'SOUNDX "(SENIORITYM Bk)MIDDLE_INITIALt f)LAST_NAMED- (ID_NUMBERio R@)FIRST_NAME d(CITYnam (ADDRrou2z+ ma3b)ld 3N)_FI3>Y)CAL3.)38(un3 T( De3pm(ata3<(s 3 ( 43'lan3'on @pTiNAME_PARAM_DSD `ZIP_CODE @&bTITLE_OF_ADDRESSP dCaSTATEP `SOUNDX aSENIORITY1^ &`bMIDDLE_INITIAL >bLAST_NAMEca (aID_NUMBER^RLiID_GV_$P 2pbFIRST_NAME; taCITY_TO aADDRe^3iica2ilit3:bin 3.0bo e3"LNb 3hbicu3a ve3a me3bation.* J < J 31at i3a 3` yo38`< @p T NAME_SORT_DSD< p~ZIP_CODE< "pdTITLE_OF_ADDRESS< p~STATE p}SOUNDX< p &SENIORITY0 6p( MIDDLE_INITIAL ^pL  LAST_NAME pt O~ID_NUMBERli Jp FIRST_NAME p ~CITY p ~ADDRgno2p ك 3Zp 3Fp< 32pX 3pt R3p  3p ~*3p ~3p o~ow_3p =~he 3p ~r 3p8 }md @:ZPARTIAL_NAME_DSD= f Bp MZIP_CODE= e p  8OTITLE_OF_ADDRESSf(cmd = abortaction) or ^p  gNSTATEd Vp  6NSOUNDXE zp  NSENIORITY p @ rOMIDDLE_INITIAL(R2p d ZLNAME_GV_$P p  OLAST_NAMEr Jp  NID_NUMBER(c p  OFIRST_NAMEc fp  NCITYore rp  NADDRUe3.p < Y2*p \ Y3p x O|3p  O0%3p  `O-JNAME_RDRG/ ID_NUMBER3p  &Ost 3vp N: 3np Nthi3bp 8Ndat3Zp TUNall3Rp p$N En3Fp Mu M3>p Mr t@ Z&ERROR_PRE_FR_ADLion@0pN8FIND_ADLrti@T:\FREE_ADLllo@|0 FREE_FIND_ADLTFREE_FIRST_ADL@R|FREE_LAST_ADLN֧FREE_STATE_ADL0@(LKCLONG_FIRST_ADL@P=LONG_LAST_ADLM x(;LONG_OTHER_ADL@VMULTI_PART_POST_ADL@x}MULTI_POST_ADL @jnMULTI_PRE_FR_ADL_p{&LPOST_ID_ADLD~POST_NAME_ADL @lHEPOST_SHOW_ADL@DPRE_LONG_FR_ADLNlPRE_MULTI_FR_ADLzPRE_NAME_ADL ss#  # @,R$PRE_NAME_DRIVER_ADL@TPRE_PART_FR_ADL@DQN_POST_NAME_ADLr 8@QS_POST_NAME_ADLPm RALLY_SET_COMMAND_NUMBER>DqRALLY_SET_MACRO_NUMBERo@@ RALLY_USE_COMMAND_ADLlBBRALLY_USE_MACRO_ADL^SEARCH_TYPE_ADL@P8^SHOW_ADL $@RgSHOW_FIRST_ADLber formatting must be a printabl(`SHOW_LAST_ADL@LSNDX_ADLERR,wSOUNDEX_ADLDEF_NUMFMTIpDEF_CHARSN-JDATE_DEF5@ LREP105@ LREP11F5@<a!LREP125@\~!LREP13P5@|f<LREP25@n\FLREP3ne5@v|LREP4 E5@~ LREP6di5@l LREP7L withh B"ZIP_GV "TITLE_GV<J <"SYSTEM_DATE` `4"STAT_CODE_GV ( {"STATE_GV   !SOUNDEX_GV  "SENIOR_GV J "REC_CNT_GV  J RALLY_COMMAND_CODEJ < <"LNAME_GV<h h"INIT_GV  #"ID_GV \"GROUP_GV@=˚ "FNAME_GV0fu> "FIRST_GV1 $Fv $m"FIELD_GVY a HX HO"ERROR_GVionl  l"CITY_GV L "ADDR_GV T fD M  !OAD  q!DEF    $ 9R> @*Z  \cPP  xPP  =P$  *P40U pU︪WUw\U  P  P  O= 8B 89Z&  T|   p"  b  z R i  `dU  c$A  {c ~ 4hc v PUcl n lBcY f /c5 ^ cYt V  cY N b F b"  i p 8  Ta r pV I j %'   (6R l$ 9  ,N 5F V 4P P N l"/ !: number; begin if addr_gv = 'NAVI' then return; cmd := get_c4TU0$TUʐPU*KBUP-  .I&]FD%S(M`E4TU0$TUʐPU*KBUP-  .I&]FD%S(M`E4TU0$TUʐPU*KBUP-  .I&]FD%S(M`E: Query Menu" GOLD-H for HELP  1. Query by ID or Name  2. Free Query  3. Query by ID Number  4. Query by Soundex and Other Field  5. Exit Enter choice:  " P < < 2 3PPPP 7PPPPPPPPPPPPP4TU0$TUʐPU*KBUP-  ,I&]FD%S(M`E4TU0$TUʐPU*KBUP-  ,I&]FD%S4M`E4TU0$TUʐPU*KBUP-  ,I&]FD%S5M`E; Query Menu" GOLD-H for HELP  1. Query by ID or Name  2. Free Query  3. Query by ID Number  4. Query by Soundex and Other Fields  5. Exit Enter choice:  " P < < 2 3PPPP 7PPPPPPPPPPPPP4TU0$TUʐPU*KBUP-  !I&]FD%S5M`E" Generic Query by SOUNDEX &@!9# Title:  Last Name:  First Name: Middle:  Seniority: Street: City: State: Zip Code: Soundx:  Id Number:  Enter all fiel  that the Last  After a record  PREVIOUS RECOR &@o#  Soundex?: ds you wish to search on and FINISH ACTION. It is suggested Name be enterd. Re-start the query enter GOLD-, (comma). has been found you may use NEXT RECORD (Down Arrow) and D (Up Arrow) to browse through all matching records. <:84| &@<$(D0 0| 8T0 ɴpD0 0% | D0 05|]ʞ ˨D0 0%l d XD0 0%|2& ˴D0 0|~ ˔D0 0 |ɲ~ D0 0% |Ɂ~ H@T0  %|"@LD0% w`eO~ D hD 0 ͚~ D0 } WD  P3˫ ʴʈ3]2^ˇˮ@W@ P˔ĵ8T0  ɴ" Generic Query by SOUNDEX &@!T( Title:  Last Name:  First Name: Middle:  Seniority: Street: City: State: Zip Code: Soundx:  Id Number:  Enter all fiel  that the Last  After a record  PREVIOUS RECOR &@(  Soundex?: ds you wish to search on and FINISH ACTION. It is suggested Name be enterd. Re-start the query enter GOLD-, (comma). has been found you may use NEXT RECORD (Down Arrow) and D (Up Arrow) to browse through all matching records. <:84| &@<)(D0 0| 8T0  ɴpD0 0% | D0 05|]ʞ ˨D0 0%l d XD0 0%|2& ˴D0 0|~ ˔D0 0 |ɲ~ D0 0% |Ɂ~ H@T0  %|"@LD0% w`eO~ D hD 0 ͚~ D0 } WD  P3˫ ʴʈ3]2^ˇˮ@W@ P˔ĵ, var type : char; len : number; begin first_gv := ' '; type := name_driver_fr.search; len := get_cmd(); if(len = fnext) or (len = fprev) then execute_cmd(fprev); if len <> exitaction then begin call_cmd('ignore'); set_failure(); end; call_cmd('ignore'); lname_gv := name_driver_fr.last_name; if type = 'P' then begin len := length(lname_gv); { if len < 3 then begin error_gv := 'Enter at Least three characters for a partial name search'; call error_pkt; end;} else call multi_partial_pkt; call_cmd(fprev); set_failure(); return; end; if type = 'S' then begin make_null(lname_gv); CALL SOUNDEX_ADL; call find_adl; if stat_code_gv <> 0 then begin soundex_gv := lname_gv; make_null(lname_gv); call find_adl; end; end; if type = ' ' then begin call FIND_ADL; end; if stat_code_gv <> 0 then begin error_gv := 'Record Not found, Please Re-enter'; call error_pkt; set_failure(); return; end; if rec_cnt_gv = 1 then call show_one_pkt; if rec_cnt_gv > 1 then call multi_display_pkt; name_driver_fr.search := ' '; make_null(lname_gv); make_null(id_gv); make_null(soundex_gv); if(type = 'P') or (type = 'S') or (type = ' ') then begin name_driver_fr.id_num := ' '; name_driver_fr.last_name := ' '; execute_cmd(fprev); end; error_gv := 'Enter P, S or Blank'; call error_pkt; set_failure(); end;l 0sG- 0sG-J var type : char; len : number; begin first_gv := ' '; type := name_driver_fr.search; len := get_cmd(); if(len = fnext) or (len = fprev) then execute_cmd(fprev); if len <> exitaction then begin call_cmd('ignore'); set_failure(); end; call_cmd('ignore'); lname_gv := name_driver_fr.last_name; if type = 'P' then begin len := length(lname_gv); { if len < 3 then begin error_gv := 'Enter at Least three characters for a partial name search'; call error_pkt; end; else call multi_partial_pkt;} call multi_partial_pkt; call_cmd(fprev); set_failure(); return; end; if type = 'S' then begin make_null(lname_gv); CALL SOUNDEX_ADL; call find_adl; if stat_code_gv <> 0 then begin soundex_gv := lname_gv; make_null(lname_gv); call find_adl; end; end; if type = ' ' then begin call FIND_ADL; end; if stat_code_gv <> 0 then begin error_gv := 'Record Not found, Please Re-enter'; call error_pkt; set_failure(); return; end; if rec_cnt_gv = 1 then call show_one_pkt; if rec_cnt_gv > 1 then call multi_display_pkt; name_driver_fr.search := ' '; make_null(lname_gv); make_null(id_gv); make_null(soundex_gv); if(type = 'P') or (type = 'S') or (type = ' ') then begin name_driver_fr.id_num := ' '; name_driver_fr.last_name := ' '; execute_cmd(fprev); end; error_gv := 'Enter P, S or Blank'; call error_pkt; set_failure(); end;l 0s3  0s3k"#jd"'"O!"48Nwo ""kԔLL}niVLHEDN8$" on N8" wN8$" LN8" L ֧nLN8 ֧nLN8 '&"kԔLk w*ZLN8$"kԔL"kԔLL}niVLHEDN8$" on N8" ֧nLN8 ֧nLN8 '&" wN8$" LN8" L kԔLk w*ZLN8$"kԔL"  Q"PP00*3ignoreignorePQ"P0"P"Fo S0jQ"FwF8NP"435P"Q!Q"F8N 0F8NP"43?N!Record Not found, Please Re-enterQ"OF'P"0FjdP"4F QQ"Q"#Q!P0S0* 0*0 Qk QNEnter P, S or BlankQ"OF'l pw}>:34 Record(s) found Matching your Search Criteria7 &@72AP0 |Z9  ID Last Name First Name Init Title CityA &@AA d &@MAP 0VOLZHP0%",|P LZP0501|P LZP0%=A|*P LZ P0%6:|=P LZlP0=I|PP LZ$P0% |cP LZ WD $PV9ZZMMPVV%WNWvWWvPW@ PLZM!MLZvar tot : number; id : char(7); begin id := multi_partial_fr.id_number; tot := length(id); if tot > 0 then begin { addr_gv := 'NAVI'; CALL_CMD(rLAST); FIELD_GV := MULTI_PARTIAL_FR.REC_CNT; call_cmd(rhome);} addr_gv := ' '; { tot := field_gv; multi_partial_fr.totrec := field_gv; tot := MULTI_PARTIAL_FR.TOTAL_REC;} { if tot = 1 then begin id_gv := id; call show_one_pkt; execute_cmd(abortaction); end;} end; if tot = 0 then begin error_gv := 'No Records Found Matching Your Criteria'; call error_pkt; execute_cmd(abortaction); end; end; 0szjkknC  0szjkknC*'"O"ZPv1  ֧LN8 ֧LN8 '&" o}iVLHEDN8$" onnLZVVP!MZ onLZVVP!MVLZ}V" ֧}V$" oLZVVP!MLZVP ֧LN8n ֧LN8 '&"n ֧}V$"n oLZVVP!MnLZVPnPZPv4 Q"0EN'No Records Found Matching Your CriteriaQ"OF' pwHoFCFnCR{PRE_MULTI_FR_ADL is called as a before form action site from MULTI_DISPLAY_PKT. Its purpose is to set up the form with all of the global variables that have a value.} begin if length(lname_gv) > 0 then multi_display_fr.last_name := lname_gv; if length(fname_gv) > 0 then multi_display_fr.first_name := fname_gv; if length(city_gv) > 0 then multi_display_fr.city := city_gv; if length(state_gv) > 0 then multi_display_fr.state := state_gv; if length(zip_gv) > 0 then multi_display_fr.zip_code := zip_gv; if length(soundex_gv) > 0 then begin multi_display_fr.soundex := soundex_gv; make_null(multi_display_fr.last_name); end; { call_cmd('execute query'); addr_gv := 'NAVI'; CALL_CMD(rLAST); FIELD_GV := MULTI_display_FR.REC_CNT; call_cmd(rhome); addr_gv := ' '; multi_display_fr.totrec := field_gv;} end; 0scGI  0scGIz on!o"Bo"{oF"o"o#"Hv}}oHv}}}}V" ֧}V$"nHv}} wN8$"Hv}} N8$"Hv}} N8$"Hv}} N8$"Hv}} N8$"Hv}}L w*ZLN8$"Hv}} wN8$"Hv}} N8$"Hv}} N8$"Hv}} N8$"Hv}} N8$"Hv}}L w*ZLN8$"XP"4P"Qo#P"4 P"QoP"4 P"QoFP"{4P"{QoP"B4P"BQoP!40P!QonQo# pw9QAMLGIR{PRE_MULTI_FR_ADL is called as a before form action site from MULTI_DISPLAY_PKT. Its purpose is to set up the form with all of the global variables that have a value.} begin if length(lname_gv) > 0 then multi_display_fr.last_name := lname_gv; if length(fname_gv) > 0 then multi_display_fr.first_name := fname_gv; if length(city_gv) > 0 then multi_display_fr.city := city_gv; if length(state_gv) > 0 then multi_display_fr.state := state_gv; if length(zip_gv) > 0 then multi_display_fr.zip_code := zip_gv; if length(soundex_gv) > 0 then begin multi_display_fr.soundex := soundex_gv; make_null(multi_display_fr.last_name); end; call_cmd('execute query'); { addr_gv := 'NAVI'; CALL_CMD(rLAST); FIELD_GV := MULTI_display_FR.REC_CNT; call_cmd(rhome); addr_gv := ' '; multi_display_fr.totrec := field_gv;} end;  pw9QAMLR  pw9QAMLRkP"4P"Qo#P"4 P"QoP"4 P"QoFP"{4P"{QoP"B4P"BQoP!40P!QonQo# execute query pw0VAMLRJ var type : char; len : number; begin first_gv := ' '; type := name_driver_fr.search; len := get_cmd(); if(len = fnext) or (len = fprev) then execute_cmd(fprev); if len <> exitaction then begin call_cmd('ignore'); set_failure(); end; call_cmd('ignore'); lname_gv := name_driver_fr.last_name; if type = 'P' then begin len := length(lname_gv); { if len < 3 then begin error_gv := 'Enter at Least three characters for a partial name search'; call error_pkt; end; else call multi_partial_pkt;} call multi_partial_pkt; call_cmd(fprev); set_failure(); return; end; if type = 'S' then begin { make_null(lname_gv);} CALL SOUNDEX_ADL; call find_adl; if stat_code_gv <> 0 then begin soundex_gv := lname_gv; make_null(lname_gv); call find_adl; end; end; if type = ' ' then begin call FIND_ADL; end; if stat_code_gv <> 0 then begin error_gv := 'Record Not found, Please Re-enter'; call error_pkt; set_failure(); return; end; if rec_cnt_gv = 1 then call show_one_pkt; if rec_cnt_gv > 1 then call multi_display_pkt; name_driver_fr.search := ' '; make_null(lname_gv); make_null(id_gv); make_null(soundex_gv); if(type = 'P') or (type = 'S') or (type = ' ') then begin name_driver_fr.id_num := ' '; name_driver_fr.last_name := ' '; execute_cmd(fprev); end; error_gv := 'Enter P, S or Blank'; call error_pkt; set_failure(); end;l pw}>:W  pw}>:W  Q"PP00*3ignoreignorePQ"P0"P"Fo S0WFwF8NP"435P"Q!Q"F8N 0F8NP"43?N!Record Not found, Please Re-enterQ"OF'P"0FjdP"4F QQ"Q"#Q!P0S0* 0*0 Qk QNEnter P, S or BlankQ"OF'l pw/^:W[ var type : char; len : number; name : char (30); begin first_gv := ' '; type := name_driver_fr.search; len := get_cmd(); if(len = fnext) or (len = fprev) then execute_cmd(fprev); if len <> exitaction then begin call_cmd('ignore'); set_failure(); end; call_cmd('ignore'); lname_gv := name_driver_fr.last_name; if type = 'P' then begin len := length(lname_gv); { if len < 3 then begin error_gv := 'Enter at Least three characters for a partial name search'; call error_pkt; end; else call multi_partial_pkt;} call multi_partial_pkt; call_cmd(fprev); set_failure(); return; end; if type = 'S' then begin name := lname_gv; CALL SOUNDEX_ADL; make_null(lname_gv); call find_adl; if stat_code_gv <> 0 then begin soundex_gv := name; call find_adl; end; end; if type = ' ' then begin call FIND_ADL; end; if stat_code_gv <> 0 then begin error_gv := 'Record Not found, Please Re-enter'; call error_pkt; set_failure(); return; end; if rec_cnt_gv = 1 then call show_one_pkt; if rec_cnt_gv > 1 then call multi_display_pkt; name_driver_fr.search := ' '; make_null(lname_gv); make_null(id_gv); make_null(soundex_gv); if(type = 'P') or (type = 'S') or (type = ' ') then begin name_driver_fr.id_num := ' '; name_driver_fr.last_name := ' '; execute_cmd(fprev); end; error_gv := 'Enter P, S or Blank'; call error_pkt; set_failure(); end;l pw/^:` des pw/^:`\  =*=+P  Q"PP00*3ignoreignorePQ"P0"P"Fo S0aP"FwQ"F8NP"43Q!F8N 0F8NP"43?N!Record Not found, Please Re-enterQ"OF'P"0FjdP"4F QQ"Q"#Q!P0S0* 0*0 Qk QNEnter P, S or BlankQ"OF'l pwg\g:`d var cmd : number; begin if addr_gv = 'NAVI' then return; cmd := get_cmd(); if (cmd = exitaction) or (cmd = abortaction) then return; addr_gv := 'NAVI'; { if (cmd = pnext) or (cmd = prnext) or (cmd = downpage) then begin if (multi_display_fr.rec_cnt < field_gv) and (field_gv > 20) then call_cmd(cmd); end; if (cmd = fnext) or (cmd = rnext) or (cmd = rlast) then begin if (multi_display_fr.rec_cnt < field_gv) then call_cmd(cmd); end;} if (cmd = fprev) or (cmd = rprev) or (cmd = rhome) or (cmd = pprev) or (cmd = uppage) or (cmd = prprev) then begin if multi_display_fr.rec_cnt > 1 then call_cmd(cmd); end; if cmd = frfunction then begin id_gv := multi_display_fr.id_number; call_cmd(cmd); end; addr_gv := ' '; call_cmd('ignore'); set_failure(); end; 0sw/yzgjrect 0sw/yzgj*oL"#ov"   =+ < = =!== Hv}viVLHEDN8$"V"Hv ֧V$"nHv}v}iVLHEDN8$"}Hv}}} ֧V$"n}P"NAVI000*NAVIQ"00*0*0 *0 *0 *Pov40 PoLQ"# Q"ignore pw 20) then call_cmd(cmd);} call_cmd(cmd); end; if (cmd = fnext) or (cmd = rnext) or (cmd = rlast) then begin { if (multi_partial_fr.rec_cnt < field_gv) then} call_cmd(cmd); end; if (cmd = fprev) or (cmd = rprev) or (cmd = rhome) or (cmd = pprev) or (cmd = uppage) or (cmd = prprev) then begin if multi_partial_fr.rec_cnt > 1 then call_cmd(cmd); end; if cmd = frfunction then begin id_gv := multi_partial_fr.id_number; call_cmd(cmd); end; addr_gv := ' '; call_cmd('ignore'); set_failure(); end;x 0sP5R"S;q 000 0sP5R"S;q*ZPv"#ZP"   =* =+<=== =!= = = = oLZVP!MnLZPniLHEDN8$"}" oLZP!MnLZ ֧$"n} oLZP!MnVLZPnViLHEDN8$"}V oLZP!MnVVLZV ֧$"n}VP"NAVI000*NAVIQ"00*0*0 0 *0 *0 0 *0*0*0*0*PZP40PZPvQ"# Q"ignorex pw2wut;q} var cmd : number; begin if addr_gv = 'NAVI' then return; cmd := get_cmd(); if (cmd = exitaction) or (cmd = abortaction) then return; addr_gv := 'NAVI'; if (cmd = pnext) or (cmd = prnext) or (cmd = downpage) then begin { if (multi_display_fr.rec_cnt < field_gv) and (field_gv > 20) then call_cmd(cmd);} call_cmd(cmd); end; if (cmd = fnext) or (cmd = rnext) or (cmd = rlast) then begin { if (multi_display_fr.rec_cnt < field_gv) then} call_cmd(cmd); end; if (cmd = fprev) or (cmd = rprev) or (cmd = rhome) or (cmd = pprev) or (cmd = uppage) or (cmd = prprev) then begin if multi_display_fr.rec_cnt > 1 then call_cmd(cmd); end; if cmd = frfunction then begin id_gv := multi_display_fr.id_number; call_cmd(cmd); end; addr_gv := ' '; call_cmd('ignore'); set_failure(); end; pw 0 then lname_gv := free_fr.lname; name := lname_gv; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; call find_adl; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := name; call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> ' FIRST' then call_cmd(fhome); addr_gv := 'FIRST'; end;T 0s3e1~  0s3e1~9=(  P"Q"P/4P/Q"P" Q"P/64 P/6Q" Q"P/ 4 P/ Q"Q"{P/4P/Q"{Q"BP/4P/Q"BQ!P/`S0FwQ"F8NP"43P/`S3Q!F8NP"43\NAVIQ"N'No Records Found Matching your CriteriaQ"OF'P"0FE\P"4FP"4tQ/ Q/6 Q/ Q/Q/Q/`NAVIQ" FIRST3FIRSTQ"T psg,e1~var navi : char(10); code : number; NAME : CHAR(30); begin adl_name_gv := 'FREE_FIND_ADL'; navi := addr_gv; db_error_gv := navi; call adl_dml_error_pkt; make_null(lname_gv); if length(free_fr.lname) > 0 then lname_gv := free_fr.lname; name := lname_gv; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; call find_adl; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := name; call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> ' FIRST' then call_cmd(fhome); addr_gv := 'FIRST'; end;T psg,e!  psg,e!var navi : char(10); code : number; NAME : CHAR(30); begin navi := addr_gv; error_gv := 'free_find_adl ' || navi; call error_pkt; make_null(lname_gv); if length(free_fr.lname) > 0 then lname_gv := free_fr.lname; name := lname_gv; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; call find_adl; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := name; call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> ' FIRST' then call_cmd(fhome); addr_gv := 'FIRST'; end;T psg,em  psg,emE\""48Nw/`!/"B/"{/ "/6"/"'"O"LN8"֧LN8n֧LN8 '&"nLN8"L] `6 ߪ֧֧/wN8$"] `6 ߪ֧֧/ߪN8$"] `6 ߪ֧֧/ ֧N8$"] `6 ߪ֧֧/6N8$"] `6 ߪ֧֧/`N8$"]`6 ߪ֧֧//w*ZLN8$"֧$"n}V L N8" LN8" L ]`6 ߪ֧֧ / wN8$" ]`6 ߪ֧֧ /ߪ N8$" ]`6 ߪ֧֧ / ֧ N8$" ]`6 ߪ֧֧ /6 N8$" ]`6 ߪ֧֧ /` N8$" ]`6 ߪ֧֧ // w*ZLN8$" ֧LN8n ֧LN8 '&"n ֧$"n}V  P"Nfree_find_adl  Q"OF'Q"P/4P/Q"P" Q"P/64 P/6Q" Q"P/ 4 P/ Q"Q"{P/4P/Q"{Q"BP/4P/Q"BQ!P/`S0FwQ"F8NP"43P/`S3Q!F8NP"43\NAVIQ"N'No Records Found Matching your CriteriaQ"OF'P"0FE\P"4FP"4tQ/ Q/6 Q/ Q/Q/Q/`NAVIQ" FIRST3FIRSTQ"T pw,mvar navi : char(10); code : number; NAME : CHAR(30); begin navi := addr_gv; error_gv := 'free_find_adl ' || navi; call error_pkt; make_null(lname_gv); if length(free_fr.lname) > 0 then lname_gv := free_fr.lname; name := lname_gv; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; call find_adl; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := name; call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> 'FIRST' then call_cmd(fhome); set_failure(); { addr_gv := 'FIRST';} end;T pw,{ pw,{ P"Nfree_find_adl  Q"OF'Q"P/4P/Q"P" Q"P/64 P/6Q" Q"P/ 4 P/ Q"Q"{P/4P/Q"{Q"BP/4P/Q"BQ!P/`S0FwQ"F8NP"43P/`S3Q!F8NP"43\NAVIQ"N'No Records Found Matching your CriteriaQ"OF'P"0FE\P"4FP"4tQ/ Q/6 Q/ Q/Q/Q/`NAVIQ"FIRST3T pwť,{var navi : char(10); code : number; NAME : CHAR(30); begin navi := addr_gv; error_gv := 'free_find_adl ' || navi; call error_pkt; make_null(lname_gv); if length(free_fr.lname) > 0 then lname_gv := free_fr.lname; name := lname_gv; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; call find_adl; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := name; call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> 'FIRST' then call_cmd(fhome); set_failure(); addr_gv := 'FIRST'; end;T pwť,  pwť, P"Nfree_find_adl  Q"OF'Q"P/4P/Q"P" Q"P/64 P/6Q" Q"P/ 4 P/ Q"Q"{P/4P/Q"{Q"BP/4P/Q"BQ!P/`S0FwQ"F8NP"43P/`S3Q!F8NP"43\NAVIQ"N'No Records Found Matching your CriteriaQ"OF'P"0FE\P"4FP"4tQ/ Q/6 Q/ Q/Q/Q/`NAVIQ"FIRST3FIRSTQ"T pwگ,var navi : char(10); code : number; NAME : CHAR(30); begin navi := addr_gv; make_null(lname_gv); if length(free_fr.lname) > 0 then lname_gv := free_fr.lname; name := lname_gv; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; error_gv := lname_gv; call error_pkt; call find_adl; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := name; call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> 'FIRST' then call_cmd(fhome); set_failure(); addr_gv := 'FIRST'; end;T pwگ, pwگ,E\""48N'"Ow/`!/"B/"{/ "/6"/""LN8"LN8"L]`6 ߪ֧֧ /wN8$"]`6 ߪ֧֧ /ߪN8$"]`6 ߪ֧֧ / ֧N8$"]`6 ߪ֧֧ /6N8$"]`6 ߪ֧֧ /`N8$"]`6 ߪ֧֧//w*ZLN8$"֧LN8n֧LN8 '&"n֧$"n}V L N8" LN8" L ֧LN8n ֧LN8 '&"n ]`6 ߪ֧֧ / wN8$" ]`6 ߪ֧֧ /ߪ N8$" ]`6 ߪ֧֧ / ֧ N8$" ]`6 ߪ֧֧ /6 N8$" ]`6 ߪ֧֧ /` N8$" ]`6 ߪ֧֧ // w*ZLN8$" ֧$"n}V  P"Q"P/4P/Q"P" Q"P/64 P/6Q" Q"P/ 4 P/ Q"Q"{P/4P/Q"{Q"BP/4P/Q"BQ!P/`S0FwQ"NP"Q"OF'F8NP"43P/`S3Q!F8NP"43\NAVIQ"N'No Records Found Matching your CriteriaQ"OF'P"0FE\P"4FP"4tQ/ Q/6 Q/ Q/Q/Q/`NAVIQ"FIRST3FIRSTQ"T pw,var navi : char(10); code : number; NAME : CHAR(30); begin navi := addr_gv; make_null(lname_gv); if length(free_fr.lname) > 0 then lname_gv := free_fr.lname; name := lname_gv; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; call find_adl; error_gv := to_char(stat_code_gv); call error_pkt; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := name; call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> 'FIRST' then call_cmd(fhome); set_failure(); addr_gv := 'FIRST'; end;T pw,TEl pw,E\"'"4"O8Nw/`!/"B/"{/ "/6"/""LN8"LN8"L֧LN8n֧LN8 '&"n]`6 ߪ֧֧ /wN8$"]`6 ߪ֧֧ /ߪN8$"]`6 ߪ֧֧ / ֧N8$"]`6 ߪ֧֧ /6N8$"]`6 ߪ֧֧ /`N8$"]`6 ߪ֧֧//w*ZLN8$"֧$"n}V L N8" ֧LN8n LN8" ֧LN8 '&"n L ]`6 ߪ֧֧ / wN8$" ]`6 ߪ֧֧ /ߪ N8$" ]`6 ߪ֧֧ / ֧ N8$" ]`6 ߪ֧֧ /6 N8$" ]`6 ߪ֧֧ /` N8$" ]`6 ߪ֧֧ // w*ZLN8$" ֧$"n}V  P"Q"P/4P/Q"P" Q"P/64 P/6Q" Q"P/ 4 P/ Q"Q"{P/4P/Q"{Q"BP/4P/Q"BQ!P/`S0FwQ"F8NNP"4Q"OF'P"43P/`S3Q!F8NP"43\NAVIQ"N'No Records Found Matching your CriteriaQ"OF'P"0FE\P"4FP"4tQ/ Q/6 Q/ Q/Q/Q/`NAVIQ"FIRST3FIRSTQ"T pw, var navi : char(10); code : number; NAME : CHAR(30); begin navi := addr_gv; make_null(lname_gv); if length(free_fr.lname) > 0 then lname_gv := free_fr.lname; name := lname_gv; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; call find_adl; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := name; call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; error_gv := to_char(rec_cnt_gv); call error_pkt; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> 'FIRST' then call_cmd(fhome); set_failure(); addr_gv := 'FIRST'; end;T pw,   pw, E\"'"O"48Nw/`!/"B/"{/ "/6"/""LN8"֧LN8nLN8"֧LN8 '&"nL]`6 ߪ֧֧ /wN8$"]`6 ߪ֧֧ /ߪN8$"]`6 ߪ֧֧ / ֧N8$"]`6 ߪ֧֧ /6N8$"]`6 ߪ֧֧ /`N8$"]`6 ߪ֧֧//w*ZLN8$"֧$"n}V L N8" ֧LN8n ֧LN8 '&"n LN8" L ]`6 ߪ֧֧ / wN8$" ]`6 ߪ֧֧ /ߪ N8$" ]`6 ߪ֧֧ / ֧ N8$" ]`6 ߪ֧֧ /6 N8$" ]`6 ߪ֧֧ /` N8$" ]`6 ߪ֧֧ // w*ZLN8$" ֧$"n}V  P"Q"P/4P/Q"P" Q"P/64 P/6Q" Q"P/ 4 P/ Q"Q"{P/4P/Q"{Q"BP/4P/Q"BQ!P/`S0FwQ"F8NP"43P/`S3Q!F8NP"43\NAVIQ"N'No Records Found Matching your CriteriaQ"OF'NP"Q"OF'P"0FE\P"4FP"4tQ/ Q/6 Q/ Q/Q/Q/`NAVIQ"FIRST3FIRSTQ"T pw,&var navi : char(10); code : number; NAME : CHAR(30); begin navi := addr_gv; make_null(id_gv); make_null(lname_gv); if length(free_fr.lname) > 0 then lname_gv := free_fr.lname; name := lname_gv; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; call find_adl; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := name; call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; error_gv := to_char(rec_cnt_gv); call error_pkt; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> 'FIRST' then call_cmd(fhome); set_failure(); addr_gv := 'FIRST'; end;T pw, pw,E\"'"O"48Nw/`!/"B/"{/ "/6"/""#"LN8"֧LN8n֧LN8 '&"nLN8"L]`6 ߪ֧֧ /wN8$"]`6 ߪ֧֧ /ߪN8$"]`6 ߪ֧֧ / ֧N8$"]`6 ߪ֧֧ /6N8$"]`6 ߪ֧֧ /`N8$"]`6 ߪ֧֧//w*ZLN8$"֧$"n}V L N8" ֧LN8n ֧LN8 '&"n LN8" L ]`6 ߪ֧֧ / wN8$" ]`6 ߪ֧֧ /ߪ N8$" ]`6 ߪ֧֧ / ֧ N8$" ]`6 ߪ֧֧ /6 N8$" ]`6 ߪ֧֧ /` N8$" ]`6 ߪ֧֧ // w*ZLN8$" iLHEDN8$"}V ֧$"n}V  P"Q"#Q"P/4P/Q"P" Q"P/64 P/6Q" Q"P/ 4 P/ Q"Q"{P/4P/Q"{Q"BP/4P/Q"BQ!P/`S0FwQ"F8NP"43P/`S3Q!F8NP"43\NAVIQ"N'No Records Found Matching your CriteriaQ"OF'NP"Q"OF'P"0FE\P"4FP"4tQ/ Q/6 Q/ Q/Q/Q/`NAVIQ"FIRST3FIRSTQ"T pwt,Hvar navi : char(10); code : number; NAME : CHAR(30); begin navi := addr_gv; make_null(id_gv); make_null(lname_gv); if length(free_fr.lname) > 0 then lname_gv := free_fr.lname; name := lname_gv; make_null(fname_gv); if length(free_fr.fname) > 0 then fname_gv := free_fr.fname; make_null(city_gv); if length(free_fr.city) > 0 then city_gv := free_fr.city; make_null(state_gv); if length(free_fr.STATe) > 0 then state_gv := free_fr.STATE; make_null(zip_gv); if length(free_fr.zip) > 0 then zip_gv := free_fr.zip; make_null(soundex_gv); if free_fr.search_type = 'S' then begin call soundex_adl; make_null(lname_gv); end; call find_adl; if stat_code_gv <> 0 then begin if free_fr.search_type <> 'S' then begin soundex_gv := name; call find_adl; end; if stat_code_gv <> 0 then begin addr_gv := 'NAVI'; error_gv := 'No Records Found Matching your Criteria'; call error_pkt; end; end; if REC_CNT_GV = 1 then call long_one_pkt; if REC_CNT_GV > 1 then call multi_display_pkt; if rec_cnt_gv > 0 then begin make_null(free_fr.lname); make_null(free_fr.fname); make_null(free_fr.city); make_null(free_fr.STATE); make_null(free_fr.zip); make_null(free_fr.search_type); end; addr_gv := 'NAVI'; if navi <> 'FIRST' then call_cmd(fhome); set_failure(); addr_gv := 'FIRST'; end;T pwt,Hf  pwt,Hf P"Q"#Q"P/4P/Q"P" Q"P/64 P/6Q" Q"P/ 4 P/ Q"Q"{P/4P/Q"{Q"BP/4P/Q"BQ!P/`S0FwQ"F8NP"43P/`S3Q!F8NP"43\NAVIQ"N'No Records Found Matching your CriteriaQ"OF'P"0FE\P"4FP"4tQ/ Q/6 Q/ Q/Q/Q/`NAVIQ"FIRST3FIRSTQ"T pw,Hf