�STORE/RESTORE-HP/3000.MPEXL  '*� �������B5152AA  C602403/16/010000���?fS��U�$���T�+�RETNDEPM        QCPUB           AICS            MGR             AICS            MGR     AICS    `0�����?fS��U�$2��w���RETNDEPT        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS��U�$��6�I�RETNDEPW        QCPUB           AICS            MGR             AICS            MGR     AICS    `P�����?fS��U�$����
�TRETDEP1        QCPUB           AICS            MGR             AICS            MGR     AICS    `������(���H00000000000000000                            000000STORE  @ret@;*v
�����������������.4fS��U�$���T+�+�� ����DISC                             1RETNDEPM        QCPUB           AICS                            MGR     AICS    �fS5���{75���{75���4^5���4^+�0,,++���  5���4^AICS            +�+�QCMACRO   RETNDEPM                                                                                                                                                                                                                                                 10  >***************************************                                                                                                                                                                                                                   20  >***  PRINT RETURNED DEPOSIT LETTER  ***                                                                                                                                                                                                                   30  >***************************************                                                                                                                                                                                                                   40  /LOAD RETNDEPW.QCPUB.CU1                                                                                                                                                                                                                                   50  !!                                                                                                                                                                                                                                                         60  CALL SETPRINTER                                                                                                                                                                                                                                            70  >                                                                                                                                                                                                                                                          80  >*****************************************                                                                                                                                                                                                                 90  >***  SELECT/PRINT APPROPRIATE LETTER  ***                                                                                                                                                                                                                100  >*****************************************                                                                                                                                                                                                                110  IF BD10>=0 THEN DO                                                                                                                                                                                                                                        120  IF AD32=0 THEN DO                                                                                                                                                                                                                                         130  IF BD10<25 THEN BELOWPAR                                                                                                                                                                                                                                  140  DOEND                                                                                                                                                                                                                                                     150  GOTO POSITIVE                                                                                                                                                                                                                                             160  DOEND                                                                                                                                                                                                                                                     170  IF BD10<0 THEN NEGATIVE                                                                                                                                                                                                                                   180  >                                                                                                                                                                                                                                                         190  BELOWPAR:                                                                                                                                                                                                                                                 200  /PRINT E S                                                                                                                                                                                                                                                210  EXITMACRO                                                                                                                                                                                                                                                 220  >                                                                                                                                                                                                                                                         230  NEGATIVE:                                                                                                                                                                                                                                                 240  /PRINT D S                                                                                                                                                                                                                                                250  EXITMACRO                                                                                                                                                                                                                                                 260  >                                                                                                                                                                                                                                                         270  POSITIVE:                                                                                                                                                                                                                                                 280  /PRINT C S                                                                                                                                                                                                                                                290  >                                                                                                                                                                                                                                                         300  EXITMACRO:                                                                                                                                                                                                                                                310  /SAVE RETNDEPW                                                                                                                                                                                                                                            320  END                                                                                                                                                                                                                                                       330  >                                                                                                                                                                                                                                                         340  >************************                                                                                                                                                                                                                                 350  >***  SELECT PRINTER  ***                                                                                                                                                                                                                                 360  >************************                                                                                                                                                                                                                                 370  SETPRINTER:                                                                                                                                                                                                                                               380  >                                                                                                                                                                                                                                                         390  IF $AD35=$"1" THEN /PRINTER OPERATIONS                                                                                                                                                                                                                    400  IF $AD35=$"2" THEN /PRINTER MEMBER SERVICE                                                                                                                                                                                                                410  IF $AD35=$"3" THEN /PRINTER LOAN                                                                                                                                                                                                                          420  IF $AD35=$"4" THEN /PRINTER ACCOUNTING                                                                                                                                                                                                                    430  RETURN                                                                                                                                                                                                                                                 .4��������r`fS��U�$2��wpp� ����DISC                             1RETNDEPT        QCPUB           AICS                            MGR     AICS    �fS5�ؓ5�5�ؓ5�5�ؙӵ5�ؙӵ��
���P`P�% %  5�ؙӵAICS            ��                 QueryCalc Reports for Credit Unions                                               written by:  Mizzou Credit Union                                                     last update:  01/01/99                                                                                                                                      RETURNED DEPOSIT FORM LETTERS                                               -------------------------------------                                                                                                                                                                                           This file contains important information on the following topics:               **********************************************************************          Report highlights                                                               Files included                                                                  Databases accessed                                                              Download instructions                                                           Restoring files to the HP3000                                                   Customizing the report for the credit union                                     Verifying databases are defined                                                 Updating the database dictionary                                                Troubleshooting common problems                                                 Limited warranty on reports                                                                                                                                                                                                                     Report highlights                                                               **********************************************************************          Not all of the checks deposited by members are paid as expected.  Some          of these deposits are returned.  The impact on the member's account is          twofold.  First, their accounts must be debited for the amount of the           deposit.  Second, their accounts will be debited for any discretionary          fee imposed by the credit union.  (e.g. a fee charged recover the fee           paid to the returning institution.)                                                                                                                             If deposit items are returned against a member's account, we send one           of three letters to the member.                                                   1) The first is sent to a member whose account is in good standing                 after the charges have been posted to the account.  The letter                  and the returned item are mailed to the member.                                                                                                              2) The second letter is sent to a member whose account balance is                  now negative.                                                                                                                                                3) The last letter is sent to a member whose account balance is                    positive, but whose account is now below par.                                                                                                              In the latter two examples, the original item would be retained until           the accounts have been placed in good standing.                                                                                                                 This report uses QueryCalc to write the letters.  All three letters             are prepared at the same time. The macro reads the data from the                worksheet and only prints the "correct" letter to send to the member.           The credit union logo and an authorized signature have been scanned to          reduce processing time. A template is provided to allow user input of relevant information.                                                                                                                                                     AICS will scan signatures provided by you for a very modest fee - $50 at this writing.  Logos can also be installed for a fee.                                                                                                                  
                                                                               Files included                                                                  **********************************************************************                                                                                           1)  RetnDepW - QueryCalc worksheet                                              2)  RetnDepM - QueryCalc macro                                                  3)  TRetDep1 - template which runs the macro                                    4)  Readme   - this text file of instructions                                                                                                                  Databases accessed                                                              **********************************************************************          This report uses data from the following databases:                                                                                                                     MEMBRS          [SPECTRUM IMAGE DATABASE]                                                                                                                                                                                               Download instructions                                                           **********************************************************************          Although downloading reports from the web site is quite simple, you             may wish to print these instructions before proceeding.  The procedure          outlined below requires the use of: (i) a relatively recent version of          the Reflection terminal emulator and (ii) either Netscape Navigator             3.0 (or greater) or Microsoft Internet Explorer 3.0 (or greater),               running on any version of Windows (3.x, 95, or NT). If you're missing           any of these pieces, the downloading procedure unfortunately will not           work.                                                                                                                                                                Step 1.                                                                         -------                                                                         Click on the desired download link. Store the self-extracting                   file anywhere you wish on your PC. Its residency on your PC                     will only be temporary. At the conclusion of the downloading                    process, after the files have been successfully transferred to                  your HP3000, this file will be deleted.                                                                                                                         Step 2.                                                                         -------                                                                         Once the file has been downloaded, double click on the newly                    downloaded file. When you press the UnZip button, the file will                 unzip itself and automatically build an AICS directory (folder)                 on the C: drive, with a subdirectory (subfolder) labeled                        Reports.                                                                                                                                                        Step 3.                                                                         -------                                                                         You will now find files in the Reports subdirectory.  The files                 include a Readme.txt file, the report and any attendant macros,                 jobs and ancillary files (see above).  These files are stored                   in Reflection's WRQ protocol (LABEL mode) and must be                           transferred back onto your HP3000 in that format. The particular                version of Reflection that was used to originally upload these                  files was 5.21. It would probably be best to use a reasonably                   similar version.                                                                                                                                                Step 4.                                                                         -------                                                                         Using Reflection, restore the files to your HP3000 using the                    procedure outlined below.                                                                                                                                       Step 5.                                                                         -------                                                                         Once the transfer is complete, follow the instructions below to                 setup the report for your credit union.                                                                                                                         Step 6.                                                                         -------                                                                         Once you are satisfied that the report is working, you may                      delete the self-extracting download file as well as the Reports                 subdirectory and its files from your PC's file directory.                                                                                                       Step 8.                                                                         -------                                                                         Congratulations on a successful download. We sincerely hope you                 will find your new QueryCalc report useful!                                                                                                                                                                                                Restoring files to the HP3000                                                   **********************************************************************           1)  Using Reflection, sign onto your HP3000 to the group and account                the files are to be stored to.  You may use any group or account                you choose.  However, the assumption is that files will be                      restored as follows:                                                                                                                                                      DATA.CU1 . . . . . . TEMPLATES                                                                                                                                 QCPUB.CU1 . . . . . . JOBS                                                                . . . . . . MACROS                                                              . . . . . . WORKSHEETS                                                          . . . . . . ASCII READ FILES                                                    . . . . . . ASCII OUTPUT FILES                                                                                                                                                                                               NOTES:                                                                          ------                                                                          a)  If this group does not exist, your system administrator can                     create it.  This is a handy way of keeping your QueryCalc                       reports separate from the other files on your system.  The                      capabilities that should be assigned are BA, IA and PH.                         The security should be set to Read/Any, Write/AC, Append/AC,                    Lock/AC, Execute/Any.                                                                                                                                       b)  After due consideration, MCU has adopted the following                          conventions.                                                                                                                                                    1)  We created new groups on the CU1 account for our                                QueryCalc reports.  QCPUB is one such group.  In this                           way, groups are used in the same manner that a                                  subdirectory on a PC is used - to help organize the                             files.  Further, the only thing that is stored in the                           group are QueryCalc reports and their related files.                                                                                                        2)  We have adopted a naming convention in which the last                           letter of the name indicates the type of file (e.g.                             W = Worksheet, M = Macro, J = Job).  The only exception                         to this was that we continued using Summit's convention                         of naming templates with a leading "T".                                                                                                             2)  Using Reflection, transfer the files, using LABEL mode transfer.                                                                                            3)  Once the transfer is complete, you may delete the files and                     directories from your PC hard drive.                                                                                                                                                                                                       Customizing the report for the credit union                                     **********************************************************************          The following steps should be taken to insure the report runs on your           system.                                                                                                                                                          1)  Modify the template (TRETDEP1).                                                                                                                                 a)  Speak to the DP supervisor.  They may need to do this for                       you.  You will require access to an MPE ":" prompt, access                      to the group.account where the files were stored and access                     to an editor such as QUAD.                                                                                                                                  b)  Change line 9 to reflect the postscript printers you want                       your staff to be able to use.  In the example, printer 1 =                      operations department, 2 = member service, 3 = loans.  You                      prompt them for the LDEV number of the device.  The                             information provided by the user from this prompt will be                       stored in cell AD35 in the worksheet and used by the macro                      to determine which printer the output will go to.                                                                                                           c)  Change line 11 to logon to the group and account where the                      files were restored.                                                                                                                                        d)  Change the macro line to read the macro from the group and                      account where the files were restored.                                                                                                                      e)  Add any password formatting your system may require.                                                                                                                                                                                    2)  Modify the MACRO (RETNDEPM).                                                                                                                                    a)  In QueryCalc, type                                                                     /PROG RETNDEPM                                                                                                                                       b)  Change the line that loads the worksheet to reflect the                         group.account where the worksheet was restored.                                                                                                             c)  Change lines 390/420 to reflect the names of the postscript                     printers available.  These names should correspond to the                       choices given to the user in the template above.                                                                                                            d)  Save the macro by typing "K"                                                                                                                                e)  Exit the macro by typing "E"                                                                                                                                                                                                            3)  Modify the WORKSHEET (RETNDEPW).                                                                                                                                a)  Load the worksheet.  In QueryCalc, type                                                /LOAD RETNDEPW                                                                                                                                       b)  Change the credit union name.                                                       /S&R "MIZZOU CREDIT UNION" "MY CREDIT UNION NAME" ALL                                                                                                   c)  Change the printer to the name of your postscript printer                              /PRINTER MYPRINTER                                                                                                                                   d)  MCU has placed its logo on many report pages.  If your logo                     is not stored in your system, stop after deleting the                           reference to the logo.  Otherwise, you may replace the logo                     with your own by following the steps listed below.                                                                                                              On the appropriate pages, the information regarding the                         existing logo will be provided to assist you with answering                     the prompts.                                                                                                                                                       a)  Delete the existing logo.                                                       1)  Place the cursor on the logo.                                               2)  Type /CO to "clear the object".                                                                                                                         b)  Put your logo on the page.                                                      1)  /LOGO                                                                       2)  Press RETURN until your logo is displayed.  Select                              by pressing "=".                                                            3)  Answer the prompts.                                                                                                                                                                                                              e)  Page A:                                                                                                                                                        1)  AD24:  Change the fee to the amount charged to your members.                                                                                                                                                                             f)  Page C:  Positive Balance Letter                                                                                                                               1) Update the LOGO. The MCU logo was stored at A1 (25,25)                          at 50%.                                                                                                                                                      2) Update the SCANNED SIGNATURE. The SIGNATURE was stored at                       E37 (0,50) at 75%.  Use the same procedures as used to                          update the logo.                                                                                                                                             3) Update the letter.  There are several parts of the letter                       which must be updated.  You may also wish to reword parts or                    all of it.                                                                                                                                                      a)  CB26:  Change the reference to MCU.                                         b)  CB32:  Change the phone number.                                                                                                                                                                                                       g)  Page D:  Negative Balance Letter                                                                                                                               1) Update the LOGO. The MCU logo was stored at A1 (25,25)                          at 50%.                                                                                                                                                      2) Update the SCANNED SIGNATURE. The SIGNATURE was stored at                       E42 (0,50) at 75%.  Use the same procedures as used to                          update the logo.                                                                                                                                             3) Update the letter.  There are several parts of the letter                       which must be updated.  You may also wish to reword parts or                    all of it.                                                                                                                                                      a)  DB26:  Change the reference to MCU.                                         b)  DB31:  Change the date calculation to reflect your                                     institution's deadline.                                              c)  DB37:  Change the phone number.                                                                                                                                                                                                       h)  Page E:  Below Par Letter                                                                                                                                      1) Update the LOGO. The MCU logo was stored at A1 (25,25)                          at 50%.                                                                                                                                                      2) Update the SCANNED SIGNATURE. The SIGNATURE was stored at                       E42 (0,50) at 75%.  Use the same procedures as used to                          update the logo.                                                                                                                                             3) Update the letter.  There are several parts of the letter                       which must be updated.  You may also wish to reword parts or                    all of it.                                                                                                                                                      a)  EB26:  Change the reference to MCU.                                         b)  EB32:  Change the par value of membership shares.                           c)  EB32:  Change the date calculation to reflect your                                     institution's deadline.                                              d)  EB33:  Change "Mizzou Credit" to your credit union.                         e)  EB34:  Change "Union" if necessary.                                         d)  EB37:  Change the phone number.                                                                                                                                                                                                       i)  Save the worksheet.                                                                    /SAVE RETNDEPW                                                                                                                                                                                                                  Verifying the databases are defined                                             **********************************************************************          Unless you have used the database(s) above in other reports, it would           be prudent to verify they have been defined in your QueryCalc                   dictionary.  The process only takes a few minutes and could save you            some trouble-shooting later.  You can verify the databases are                  defined by attempting to open each of them from within QueryCalc.                                                                                                1)  Get into QueryCalc.  From a MPE prompt, type:                                             RUN QCX.QCPROGS.AICS                                                                                                                              2)  Once a blank worksheet has been loaded, type:                                             @OPENDB databasename/password.                                                                                                                        NOTE:  Most SPECTRUM image databases use "LOOKUP" as the                               password, while HP, QueryCalc and CFO module databases                          use "READER" as the password.  Pseudodatabases can use                          any password assigned by the creator.  Try "LOOKUP" and                         "READER" if you receive a password error.                                                                                                            3)  If the database exists, it will be opened.  If it does not exist,               you will receive the following error message, in which case you                 will need to add the database to your QueryCalc dictionary.                                                                                                     The database DATABASENAME isn't registered in QueryCalc's                       dictionary.                                                                                                                                                                                                                                Updating the database dictionary                                                **********************************************************************          If a needed database does not exist, you will need to add it to the             QueryCalc database dictionary.  The procedure varies only slightly,             depending on the type of database to be added.                                                                                                                                                                                                  Adding an IMAGE database        r`,0fS��U�$2��wp+�+�����                                                ------------------------                                                        Most SPECTRUM databases and CFO module databases are IMAGE databases.                                                                                            1)  From a MPE prompt, type:  RUN ADDIMAGE.AICS.QCPROGS;PARM=1234               2)  Type:  A   (to add)                                                         3)  Enter the fully qualified database name.  (e.g. MEMBRS.DATA.CU1)            4)  Enter the password.  (e.g. LOOKUP)                                          5)  Type:  E   (to exit)                                                        6)  Verify the database has been added to your dictionary by                        following the steps above.                                                                                                                                                                                                                 Adding a copy of an IMAGE database                                              ----------------------------------                                              You may want to run reports against a copy of a database.  The most             common example is a copy of the MEMBRS database, created at month-end           after dividends are posted.  This database is typically stored on               REPORT.CU1.                                                                                                                                                      1)  From a MPE prompt, type:  RUN ADDIMAGE.AICS.QCPROGS;PARM=1234               2)  Type:  A   (to add)                                                         3)  Enter the fully qualified database name. (e.g. MEMBRS.REPORT.CU1)           4)  Enter the password.  (e.g. LOOKUP)                                          5)  Enter the database synonym (1-16 chars):  (e.g. REPORT)                     6)  Type:  E   (to exit)                                                        7)  Verify the database has been added to your dictionary by                        following the steps above.                                                                                                                                                                                                                 Adding a QueryCalc KSAM database                                                --------------------------------                                                A database denoted above with [KSAM database created by QueryCalc] was          created and opened by QueryCalc.  These databases are created by                simply calculating a report and printing the results of a detail list           report or a storelist into a database via the /PRINTDB command.  You            do not need to do anything, since the macro which automatically                 calculates this report will build the database(s) for you.  For more            information on these databases, see QUERYCALC, ADDITIONAL DOCUMENTS.                                                                                                                                                                            Adding a pseudodatabase                                                         -----------------------                                                         A database denoted above as [Pseudodatabase . . .] allows you to                "read" a file on the HP3000 as if it were a database.  Many times,              this is simply a flat, ASCII file.  Two files are required in order             to define a pseudodatabase of this type.  The first, is the file to             be read.  The second, is a schema file that "maps" the file for the             dictionary.  For example, it might indicate that the first 20                   characters are for the name, the second 20 for the address, etc.  If            a pseudodatabase is required for this report, both of the required              files have been included in the files downloaded.                                                                                                               The process for adding the database to your dictionary is, once again,          straightforward and simple.                                                                                                                                      1)  From a MPE prompt, type:  RUN ADDKSAM.AICS.QCPROGS;PARM=1234                2)  Type:  A   (to add)                                                         3)  Database schema file:  (e.g. DEFTSTDB.QCPUB.CU1)                            4)  Enter the password.  (e.g. LOOKUP)                                          5)  Type:  E   (to exit)                                                        6)  Verify the database has been added to your dictionary by                        following the steps above.                                                                                                                                 For additional information on creating and using pseudodatabases, see           QUERYCALC, ADDITIONAL DOCUMENTS.                                                                                                                                                                                                                Troubleshooting Common Problems                                                 **********************************************************************          Q: "When I try to modify the macro, I receive an error message stating              that the macro does not exist."                                             ----------------------------------------------------------------------          A:  You must be signed on to the group and account where the macro was              stored.  Some logon scripts sign you on to specific groups and                  accounts.  If this is not the same group and account where the                  macro was stored, you won't be able to modify it.  You will need                to sign off and then sign back on to the correct group and account                                                                                              Be careful qualifying the macro and then modifying it.  For                     example, you could be logged on to DATA.CU1 and type                              /PROG MYMACRO.QCPUB.CU1                                                                                                                                       The macro would be displayed.  You could make changes to it.                    However, the macro would be saved back to the group and account                 where you are signed on, not the original group and account.  In                the above example, the changed macro would be saved to DATA.CU1.                                                                                                                                                                            Q: "I receive an error message stating that a dataset does not exist                in a database.  However, I am sure the dataset does exist in this               database."                                                                  ----------------------------------------------------------------------          A:  First, verify the database exists in your database dictionary.                  You can do this quickly by closing the database and then                        re-opening it.  If you receive an error telling you that the                    database isn't registered in QueryCalc's dictionary, follow the                 steps listed above to add this database to your dictionary.                                                                                                     If the database is in your dictionary, it may be that the                       database has been modified since the dictionary was last updated.               This typically occurs when a SPECTRUM release is loaded to your                 system. In this case, delete the database from your dictionary                  and then add it back in, following the steps listed above.                                                                                                                                                                                  Q: "I have transferred all of the files to the HP3000.  However, when               I look in the QueryCalc catalog, the report does not show up."              ----------------------------------------------------------------------          A:  Relax.  The file is on your HP3000.  It will not show in the                    QueryCalc catalog until you retrieve and save the file.  To                     retrieve the file, type                                                                /LOAD filename                                                                                                                                           To save the file, type                                                                 /SAVE                                                                                                                                                    Now use the /CAT command and your report will be listed.                                                                                                                                                                                        For macros, type                                                                       /PROG filename                                                                                                                                           To save the file, type                                                                 K filename                                                                                                                                               Now use the /CAT command and your macro will be listed.                                                                                                                                                                                                                                                                     Limited Warranty on Reports                                                     **********************************************************************          *  The reports are distributed "AS IS".  No warranties are made or                 provided by any parties.                                                                                                                                     *  The reports are copyrighted.  Sale or redistribution of the                     reports is strictly prohibited.                                                                                                                              *  The download and/or use of these reports indicates acceptance of                the terms set forth.                                                                                                                                         ,0��������LfS��U�$��6I�I�� ����DISC                             1RETNDEPW        QCPUB           AICS                            MGR     AICS    �fS5���x5���x5���W5���WI�P%%$I���LL5���WAICS            I�I�- V2.00 5 135  199812291999012319:05 29T � %MIZZOU CREDIT UNION �d< T � %Return Deposit Letters �d>��$ � %"As Of: "+DAT$6(SYSDATE) �
dAs Of: 01/23/9995�z$ � %E8+" - Page A" �dRETNDEPW.QCPUB.CU1 - Page A;�u$ � %"RUN TIME: "+HRS$(12) �dd               $�$��                                     "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�RUN TIME: 11:44 AM -�T � %FILENAME: �d6�T � %RETNDEPW.QCPUB.CU1 �d0�T � %MACRO NAME: �d6�T � %RETNDEPM.QCPUB.CU1 �d.�T � %JOB NAME: �d5�T � %TRETDEP1.DATA.CU1 �d;0"T � %ASSUMPTIONS: �ddd               $�$�$�                                     "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�F#T � %Fee amount entered is correct. �dM=T � %RETNDEPR read file has been created. �d.pT � %DATABASES: �d*qT � %MEMBRS �d#�  � �d1�T � %SCRATCH DATA �d)�T � %VALUE �dN �ddd               $�$�$�                                     "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�/�T � %DESCRIPTION �dd2��$ � %DAT$6(SYSDATE) �d11/22/98/AT � (Today's Date � %ZN@@ �� %2 �d-[T � (Fee Amount � D�>N� �B %READ("RETNDEPR",AD29:AD35,C,RTX) �dE�T � (RETNDEPR data input by employee � dd               $�$�$�                                     "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�)�TC�E � %54410 �d1�T � *Account Number � �&�T � %00 �d(�T � *Suffix � (T � %PAUL �d.T � *Member Name � 2*T � %PAUL RINEHART �d8+T � *Name on Check/Sender � e � dd               $�$�$�"                                     "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�3DT � %ACCOUNT CLOSED �d5ET � *Reason for Return � '^T � %DRL �d*_T � *Employee � %xT@� � %4 �d)yT � *Printer � #�  �B �d#�  �B �d.T � %PAGE DATA �d  $�$�$�$�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�(HT � %PAGE �d,IT � %CONTENTS �d#|T � %A � )}T � (Scratch � #�T � %B � B�T � (Scratch - Current Information � #�T � %C � S�T � (Letter - Positive Balance - Return Deposits � �d  $�$�$�"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�#�T � %D � S�T � (Letter - Negative Balance - Return Deposits � #�T � %E � aL�T � (Letter - Below Par - Return Deposits � 57T � %MEMBER-FILE DATA �
d+jT � %PRIMARY �d� (Letter - Positive Balance - Return Deposits � �d  $�$�$R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�c��Q � %USING MEMBRS.MEMBER-FILE, VAL OF NAME WHEN ACCOUNT=[AD29] �d RINEHART JR/PAUL A+�T � %ADDRESS �dLK�zQ � %REREADING, VAL OF \ADDRESS-LINES(1)\ �d54719 W KNOX DR(�T � %CITY �d=�`Q � %rereading, val of city �d COLUMBIA- Return Deposits � �d  $�$�R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�)�T � %STATE �d.>�FQ � %rereading, val of STATE �dMO<�,RGM��� � %rereading, val of ZIP �d}�RA�Q��R �@ %USING MEMBRS.SHARE-FILE, VAL OF BALANCE/100 WHEN ACCOUNT=[AD29] AND SUFFIX=[AD30] id�'T � %ZIP �ddC��$ � %SUB$(BD9,1,5)+"-"+SUB$(BD9,6,9) �d  $�$�"R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�
65203-7229+ T � %BALANCE �d,��NA�Q��R �@ %ABS(D10) �d2��$ � %DAT$3(SYSDATE) �
dJanuary 23, 1999m�x$ � %NAM$(SUB$({BD5},POS({BD5},"/")+1,30)+" "+SUB$({BD5},1,POS({BD5},"/")-1)) r
d[Paul A Rinehart Jr/�^$ � %NAM$({BD6}) �
d4719 W Knox Dr$(BD9,1,5)+"-"+SUB$(BD9,6,9) �d  $�$�"R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�G�D$ � %NAM$({BD7}+", "+{BD8}+" "+{BD11}) �
dColumbia, Mo 65203-7229g�$ � %"Re: Returned check deposited to account: "+{AD29}+"-"+{AD30} v
d7Re: Returned check deposited to account: 54410-00P;��$ � %NAM$("Payor: "+{AD32}) �
dPayor: Paul Rinehart=��$ � %NAM$("Dear "+{AD31}+":") �
dd  $�$R"R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�Dear Paul:vrT � %Mizzou Credit Union received back a check presented by you for cash or t
dh�t$ � %"deposit. It was sent back to MCU due to "+DNS$({AD33})+"." ~
dAdeposit. It was sent back to MCU due to account closed."+{AD32}) �
dPayor: Paul Rinehart=��$ � %NAM$("Dear "+{AD31}+":") �
dd  $�R"R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�v�T � %This check has been deducted from your account, along with the fee for t
dp�&$ � %"returned deposits of "+{AD24}+", leaving a balance of $"+{BD12}+"." v
dAreturned deposits of $2.00, leaving a balance of $110.32.losed."+{AD32}) �
dPayor: Paul Rinehart=��$ � %NAM$("Dear "+{AD31}+":") �
dd  $�R"R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�{T � %If you have any questions, please do not hesitate to call a member service p
d�H(T � %representative at (573) 874-1477. �
dF\T � %Thank you for your membership. �
d.�T � %Sincerely, �
d@�T � %Member Services Department �
d{AD31}+":") �
dd  $�$�R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�9T � %Mizzou Credit Union �
d,-FT � %enclosure �
d0��$ � %DNS$({AD34}) �
ddrla2��$ � %DAT$3(SYSDATE) �
dJanuary 23, 1999m�x$ � %NAM$(SUB$({BD5},POS({BD5},"/")+1,30)+" "+SUB$({BD5},1,POS({BD5},"/")-1)) r
dPaul A Rinehart JrDepartment �
d{AD31}+":") �
dd  $�$�R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�/�^$ � %NAM$({BD6}) �
do4719 W Knox DrG�D$ � %NAM$({BD7}+", "+{BD8}+" "+{BD11}) �
dNColumbia, Mo 65203-7229�g�$ � %"Re: Returned check deposited to account: "+{AD29}+"-"+{AD30} v
dB7Re: Returned check deposited to account: 54410-00";��$ � %NAM$("Payor: "+{AD32}) �
dAPayor: Paul Rinehart  $�$�R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�=��$ � %NAM$("Dear "+{AD31}+":") �
doDear Paul:vrT � %Mizzou Credit Union received back a check presented by you for cash or t
dh�t$ � %"deposit. It was sent back to MCU due to "+DNS$({AD33})+"." ~
dAdeposit. It was sent back to MCU due to account closed.ayor: "+{AD32}) �
dAPayor: Paul Rinehart  $�"�R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�v�T � %This check has been deducted from your account, along with the fee for t
dr�&$ � %"returned deposits of "+{AD24}+", leaving a balance of $ "+{BD10}+"." u
dCreturned deposits of $2.00, leaving a balance of $ 110.32.Adeposit. It was sent back to MCU due to account closed.ayor: "+{AD32}) �
dAPayor: Paul Rinehart  $�"�R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�x��$ � %"Please make a deposit to cover this negtive balance by "+DAT$3(SYSDATE,7) p
dTPlease make a deposit to cover this negtive balance by November 29, 1998v(T � %or contact a member service representative immediately. When your account p
dt back to MCU due to account closed.ayor: "+{AD32}) �
dAPayor: Paul Rinehart  $�"�R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�wBT � %has been brought to a positive balance, Mizzou Credit Union will forward r
ddB\T � %the original check to you. �
d{�T � %If you have any questions, please do not hesitate to call a member service p
dtH�T � %representative at (573) 874-1477. �
dPayor: Paul Rinehart  $�$�R"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�F�T � %Thank you for your membership. �
d.T � %Sincerely, �
d@}T � %Member Services Department �
d9�T � %Mizzou Credit Union �
dn-�T � %enclosure �
dr0�$ � %DNS$({AD34}) �
ddrln2��$ � %DAT$3(SYSDATE) �
d Rinehart  $�$�$�"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�January 23, 1999m�x$ � %NAM$(SUB$({BD5},POS({BD5},"/")+1,30)+" "+SUB$({BD5},1,POS({BD5},"/")-1)) r
dPaul A Rinehart Jre/�^$ � %NAM$({BD6}) �
d4719 W Knox DrzG�D$ � %NAM$({BD7}+", "+{BD8}+" "+{BD11}) �
dColumbia, Mo 65203-7229 � %DNS$({AD34}) �
ddrln2��$ � %DAT$3(SYSDATE) �
d Rinehart  $�$R$�"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�g�$ � %"Re: Returned check deposited to account: "+{AD29}+"-"+{AD30} v
dP7Re: Returned check deposited to account: 54410-00;��$ � %NAM$("Payor: "+{AD32}) �
dzPayor: Paul Rinehart=��$ � %NAM$("Dear "+{AD31}+":") �
dMDear Paul: � %DNS$({AD34}) �
ddrln2��$ � %DAT$3(SYSDATE) �
d Rinehart  $�"R$�"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�vrT � %Mizzou Credit Union received back a check presented by you for cash or t
dh�t$ � %"deposit. It was sent back to MCU due to "+DNS$({AD33})+"." ~
dAdeposit. It was sent back to MCU due to account closed.Av�T � %This check has been deducted from your account, along with the fee for t
dhart  $�"R$�"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�r�&$ � %"returned deposits of "+{AD24}+", leaving a balance of $ "+{BD10}+"." u
dCreturned deposits of $2.00, leaving a balance of $ 110.32.oxT � %Please make a deposit to bring your savings account to the mandatory par r
d � %This check has been deducted from your account, along with the fee for t
dhart  $�"R$�"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2����$ � %"value of $25.00 by "+DAT$3(SYSDATE,7)+" or contact a member service representative" f
d[value of $25.00 by November 29, 1998 or contact a member service representativea}BT � %immediately. When your account has been brought to this balance, Mizzou Credit k
dued from your account, along with the fee for t
dhart  $�"R$�"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�X\T � %Union will forward the original check to you. �
d{�T � %If you have any questions, please do not hesitate to call a member service p
deH�T � %representative at (573) 874-1477. �
dF�T � %Thank you for your membership. �
d.T � %Sincerely, �
drt  $�$��"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�@}T � %Member Services Department �
d9�T � %Mizzou Credit Union �
do-�T � %enclosure �
dt0�$ � %DNS$({AD34}) �
ddrl,O 
 ,BXSA2J52dd �;O 
 ,LN BDdd �u;O 
 ,XD AB
ad
Kd2� �,
drt  $�$�$�"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�;O 
 ,XD AB
ad
Kd2� �
;O 
 ,XD AB
ad
Kd2� �-O 
 ,BX C
H%Pd �;O 
 ,XI E%2F(TKddK�, �;O 
 ,XI E*2F-TKddK�, �N;O 
 ,XI E*2F-TKddK�, �D-5O 
 ,BX C
HPd �drt  $�$�$�"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�-OO 
 ,BX C
HPd �-iO 
 ,LN D,H,2d �d-�O 
 ,BX C(
H3Pd �X-�O 
 ,BX C*
H,Pd �I;�O 
 ,LN DZD%Zd �I;�O 
 ,LN D,ZD3Zd �I;�O 
 ,BX C(
H*Pd �XC
HPd �drt  $�$�$�"�                                    "$�$�$�$�$�$�$�$�6�6�4[6�6�6�2�6�6�6�6�2�;O 
 ,LN C
HPd �N$�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6��2�6�6�6�6�2�		6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[	^EOUDQFS^�B6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�2�6[<;
K<MEMBRS.DATA.CU1              IM)+*%.(�MEMBRS            
^EODLTMPS^^EOQ$^n<4M83r(yt..L@K&S*i7ad6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�$�$�6�6�6�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�2�6[�accounting                                                                                                                                                                                                       316                                         
^EODLTMPS^^EOQ$^n<4M83r(yt..L@K&S*i7ad"6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�$�$�6�6�6�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�2�6[L�������� fS��U�$���
�
�� ����DISC                             1TRETDEP1        QCPUB           AICS                            MGR     AICS    �fS5����d5����d5���LG5���LG
�-,P�  5���LGAICS            
�`                   Returned Deposit Letters                    Rel 25.3        `                                                                               ^~Enter Member Account Number           _6 INT   {0}      [ACCOUNT]             ^~Enter Suffix                          _2 INT   {0}      [SUFFIX]              ^~Enter Member's First Name             _30 CHAR {}       [NAME]                ^~Enter Name of Person Writing Check    _30 CHAR {}       [SENDER]              ^~Enter Reason Check was Returned       _30 CHAR {}       [REASON]              ^~Enter Your Initials                   _3  CHAR {}       [TELLER]              ~~Printer (1=op.,2=mem,3=loan,4=acct)   _1 INT (1/4)  {4} [PRINTER]             `                                                                               !JOB TRETDEP1,MGR.CU1,QCPUB                                                     !COMMENT                                                                        !COMMENT  **************************************************                    !COMMENT  *** THIS SECTION MODIFIES READ FILE - RETNDEPR ***                    !COMMENT  **************************************************                    !COMMENT                                                                        !PURGE RETNDEPR                                                                 !QUAD                                                                           A                                                                               [ACCOUNT]                                                                       [SUFFIX]                                                                        [NAME]                                                                          [SENDER]                                                                        [REASON]                                                                        [TELLER]                                                                        [PRINTER]                                                                       //                                                                              K RETNDEPR:U                                                                    E                                                                               !COMMENT                                                                        !COMMENT ***************************************                                !COMMENT ***  PRINT RETURNED DEPOSIT LETTER  ***                                !COMMENT ***************************************                                !COMMENT                                                                        !FILE QCMACROF=RETNDEPM.QCPUB.CU1                                               !RUN QCX.QCPROGS.AICS                                                           !PURGE RETNDEPR                                                                 !COMMENT                                                                        !COMMENT  ********************************************                          !COMMENT  ***> RETURNED DEPOSIT LETTER IS PRINTED <***                          !COMMENT  ********************************************                          !COMMENT                                                                        !SET STDLIST=DELETE                                                             !EOJ                                                                             �����������������������STORE/RESTORE-HP/3000.MPEXL  '*� �������B5152AA  C602403/16/010000�������������������������