!,**G P_b P9 dPJno COPYRIGHT 1986 Digital Equipment Corp. ,hOPYXf|gXggYtY g4gXX\fO(YhONYfOO1mhO|iYhlfll gXglplil|ggTl4GMAIN_TASKPI dG RALLY_USE_COMMAND_TASK G4RALLY_USE_MACRO_TASK@0MFMAIN_MENU@NK4BROWSE_UPDATE_PKTSYS$LIBRARY:RALLY$HELP.RGHlU%OSYS$LIBRARY:RALLY$ERRORS.RGElU5O.XSYS$LIBRARY:RALLY_PRINTER.RGPRALLY$PRINTFILEuptop$ ZEROOVERFLOWN/AXg)ff,Ee%. + --*Z*N4g  / 29 hZbZ*ZZ h,b,*,, $ F$M FM+ F+- F-. V % F%B FB\ F\pl$ChSB C Type the number of the application command you want to use:=V *@ AT V 0 VPOPM` 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;(f 03 G WP3 =A  o Xk@ P  NQ0@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;f 03 8 c { 5 Type the number of the macro you want to use:/,W *@ EW pW 0 WPOPM`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;\f 03 gHWP3 /3  zXk@ P  OQ0@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;f 03Cnl3G P`````````````````M8 S-M S-M8$M8 S-M S-M8$M8 M8 |g-03 Null Date99(9)a.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;tentwentythirtyfortyfiftysixtyseventyeightyninetythiethl,J",--* uV<@Tl6                           !!"#$%&'()*+,-./0123456789:;<=>?@BRTXZdfhjtvxz|AAQBSCWDYEcFeGgHiIsJuKwLyM{NOPQRSTUVWXYZ       FDHLJNPV^\`bnlpr ~ ECGKIMOU][_amkoq } I No records where found. Press ENTER to try again...  +PPg55P<j 9You must enter either the Id Number or the Last Name.5U *@ cMOk@cNNQ@ j RThis form is currently READ-ONLY. Press SELECT to change mode to UPDATE.( U *@ bL0Ok@cN NQ@ j Database Error...V *@ cNOk@cN@NQ@ pj  MValue not found in the List-of-Values. Try again or press LOV key.;  V *@ bH?Xk@cN`NQ@ Tj LOV g5P5LO8j 4You must enter a Last Name for a SOUNDEX search.0@V *@ cL  Xk@cNGNQ@ Yi vHelp for the Master Record.`V *@ cN@Xk@cNNQ@ j dHelp for the Detail record.V *@ cN`Xk@cN-NQ@ ?j e\mw '6rc Records 4GL Problem Solution Use UP/DOWN Arrow to browse though records. $P *@ ]0 Donation Date Fund Amount   T *@ .IT *@ ;AMOUNT_OF_DONATION\3 ,\ 8W    FUND_CODE\3 [ 80  DATE_OF_DONATION\3# \ 80   5C ID_NUMBERt\3^ [ 80   Jm{`i 8&b&p&LAST_NAME_SOUNDEX`3& ^ 80  w&&&TOTAL_DONATIONS_3&KA field set equal to the total of all donations in matching detail records.^ 8W0   &&& ID_NUMBER_3X' _ 80   B'g'u'h|'h3$' DETAIL JDETAILFIDATE_OF_DONATIONNVC$V1.0: All Records From DETAIL Which Is DETAIL Such That There Are No Restrictions Sorted By Descending DETAIL.DATE_OF_DONATION Using Only DETAIL.ID_NUMBER, DETAIL.DATE_OF_DONATION, DETAIL.FUND_CODE, DETAIL.AMOUNT_OF_DONATION . LV4GLX\2+S̐' '('(Y & E(|i & ('0  : Id Number: Last Name: Soundex Search? (Y/N)  First Name: Middle: Address: Seniority: City: Title: State: Zip: Number of Donations: Total Dollar Value:=00:/Q *D  P)4QD0E | -70dQT0E | -l 8|'l 83&f*k 83w&w*k 83>&*k 83&*k 83%*lk 83%*Pk 83J%*4k 83%*k 83$*j 83$+i 83B'"+@PT040 D|5+ -C C RT0|w*- MASTERFJMASTERFH LAST_NAMEH FIRST_NAMEHMIDDLE_INITIALH ID_NUMBERNVC$V1.0: All Records From MASTER Which Is MASTER Such That There Are No Restrictions Sorted By Ascending MASTER.LAST_NAME, Ascending MASTER.FIRST_NAME, Ascending MASTER.MIDDLE_INITIAL, Ascending MASTER.ID_NUMBER Using Only MASTER.ID_NUMBER, MASTER.LAST_NAME_SOUNDEX, MASTER.LAST_NAME, MASTER.FIRST_NAME, MASTER.MIDDLE_INITIAL, MASTER.TITLE_OF_ADDRESS, MASTER.SENIORITY, MASTER.ADDR, MASTER.CITY, MASTER.STATE, MASTER.ZIP_CODE . LV4GL_2+S̐+ <+-+-PY & |'-8l & -5+RkD P70-0) *9*H+70y+/ 0//8/c/ /...\.TkD  P+$)-+$W$#C PTA0 0;Ad|\."+-PTA0 014d|.+-d|.* -UTA0 01Ad|.*-PTA0 0d| /*-QTA0 0d|8/*-QTA0 0d|c/*-lTTA0 0d|/* -PT0 670|/-STA0 0$dd/*-`STA 0d| 0f* -lP@0E |07070hOk@ y-;a0O#-lhP?hS0 SOUNDEX_DESCLV4GL_RALLY_LIBf @ 00"i+ 003000 00y+HhP P0/Y0P00 P00  Q0F1 P0Q00  P1:Q007\ 1 1:0070+y00000 0/]{procedure CHECK_QUERY} begin { if (BROWSE_UPDATE_FRM.ID_NUMBER = NULL_NUM) and (BROWSE_UPDATE_FRM.LAST_NAME = NULL_CHAR) then begin error(3); set_failure(); return; end; } if (BROWSE_UPDATE_FRM.SOUNDEX_FLAG = 'Y') then begin if (BROWSE_UPDATE_FRM.LAST_NAME = NULL_CHAR) then begin error(8); set_failure(); return; end; EXTERNAL_ERROR := -1; call SOUNDEX_EXT (EXTERNAL_ERROR, BROWSE_UPDATE_FRM.LAST_NAME, BROWSE_UPDATE_FRM.LAST_NAME_SOUNDEX); BROWSE_UPDATE_FRM.LAST_NAME := NULL_CHAR; BROWSE_UPDATE_FRM.ID_NUMBER := NULL_NUM; end; end; {CHECK_QUERY} Y 03C111T2Q04 Top 100 Donors" Page #KW *@ L4PZP0 EKO|DD1  Rank Name% Donation Total%[ *@ gD5Z *@ h5TOTAL_DONATIONSpd35KA field set equal to the total of all donations in matching detail records.8L8 LAST_NAMETc3h8% ,b 80  S8w88LAST_NAME_SOUNDEX8c38 b 80  888 ID_NUMBERc38 Pb 80   888ZP0|9 Cd[P0E |C99ZP038|7CtZP0%'|8C,ZP0(-|7CZP0|8C@[P0#|S8 CPPD9tP03MISS3+SIR3+P PPD9P03P PPD9PPD9 temp_senior= P03P P  temp_senior= P00 (PD:QDA%( PD: QDAP000(PDA    QDA5(PDA      QDA\ ,.  PPPPHD:DAD9D9D90D9tCONST period = '.'; comma = ','; space = ' '; VAR temp_middle : CHAR; temp_title : CHAR; temp_senior : CHAR; temp_last : CHAR; begin temp_title := REPORT_FRM.TITLE_OF_ADDRESS; if (temp_title <> NULL_CHAR) and (temp_title <> 'MISS') and (temp_title <> 'SIR') then begin temp_title := temp_title||period; end; temp_middle := REPORT_FRM.MIDDLE_INITIAL; if temp_middle <> NULL_CHAR then temp_middle := temp_middle||period; temp_senior := REPORT_FRM.SENIORITY; temp_last := REPORT_FRM.LAST_NAME; debug_log('temp_senior='||temp_senior); if temp_senior <> NULL_CHAR then begin temp_senior := temp_senior||period; temp_last := temp_last||comma; end; debug_log('temp_senior='||temp_senior); if temp_title = NULL_CHAR then REPORT_FRM.COMPUTED_NAME := REPORT_FRM.FIRST_NAME; else REPORT_FRM.COMPUTED_NAME := temp_title||space|| REPORT_FRM.FIRST_NAME; if temp_middle = NULL_CHAR then REPORT_FRM.COMPUTED_NAME := REPORT_FRM.COMPUTED_NAME||space|| temp_last||space|| temp_senior; else REPORT_FRM.COMPUTED_NAME := REPORT_FRM.COMPUTED_NAME||space|| temp_middle||space|| temp_last||space|| temp_senior; end;Y 03=:&>&*w&w&*&&w*B'B'5+|'|'-f*'')()\.---70w*y+* 0*/*/*8/*c/* /*.+."+.5+-H+-4 1----0070 0///c/8/ /...\.y+H+9* *.-W$+$#C .-.- /-8/-c/-/-/-/-4 0-4 170-4a0-- *04444 1 14a0-O#*GDEoA4*G4 14 14*GDE44FDDCC6A666666-7-7a7a777977t9889S8S8:8898899C9CH9CCCoACoACoACoACoAACoACCCDDAA:999t9H998DCoAoAoAoAoAoA55FFG5U*9(CK5INFAMU*'$ NHEREP3@NHEREP4`N$H EREP5N4HEREP6NLHvEREP8N\HHREP100NlH\HREP101OG RALLY_USE_COMMAND_PACKETDOGNRALLY_USE_MACRO_PACKET@(MN8DREPORT_PKTI@ OKUN0BROWSE_UPDATE_FRMMOHU NEGRP3OHU@NEGRP4X HV`NEGRP5(KhO.ZIP_CODE* xHhOP;TXTJhO$PH+TOTAL_OF_DONATIONScKhO@Pa0TOTAL_MASTER_RECORDS8KhOlP8/TITLE_OF_ADDRESS KhOP.STATEXKhOP/SOUNDEX_FLAGU@KhOPc/SENIORITY0JhOQ *RUNNING_RECORD_COUNT4JhO4Q9*NUMBER_OF_DONATIONSHKhOdQ/MIDDLE_INITIAL ,JhOQ)MASTER_GROUP_TXTPMRJhOQ-MASTER_GROUPGYXIhOR#LOV_FUND_NAME,IhO(R!LOV_FUND_CODE`IhOPR#LOV_FUND_ABBREV &FIRST_NAME8 IPY4_%CITY IPYX_J%ADDR3IPYx_&2JPY_-3JPY_g' 3IPY_&3IPY`b&3IPY`)&3IPY8`%3IPYT`%3IPYp`n%3IPY`5%*3IPY`%3IPY`$3IPY`$ LtY6ZIP_CODE LtYa6TOTAL_DONATIONS DLtY83LLtYpc8)3@LtYc734LtYc7GY3,LtYcL73$LtYc73LtYd6RT3LtYd63 LtY8d=63LtYTd5GYC8 **GYC8AEART **`   GYC8 @(f,MNDEINIT_GLOBALS \f|Go RALLY_SET_COMMAND_NUMBERfG(fzRALLY_SET_MACRO_NUMBERfGYG RALLY_USE_COMMAND_ADLGfPRALLY_USE_MACRO_ADL@K`X0SOUNDEX_EXT@4gHdDEF_MONEYFMTLGfDEF_NUMFMT@GDEF_CHARSGY-G XDATE_DEF5@gGLREP25@