�STORE/RESTORE-HP/3000.MPEXL  � �������B5152AA  C602403/16/010000���?fS���U� ������OFCHECKM        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS���U� �����
OFCHECKR        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS���U� ���R�|`OFCHECKT        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS���U� ��͏�M�OFCHECKW        QCPUB           AICS            MGR             AICS            MGR     AICS    `P�����?fS���U� �����
�TOFCHEC1        QCPUB           AICS            MGR             AICS            MGR     AICS    `������(���H00000000000000000                            000000STORE  @ofche@;*v
�����������������"@fS���U� ������� ����DISC                             1OFCHECKM        QCPUB           AICS                            MGR     AICS    �fS5�Ȇ�S5�Ȇ�S5�ȇW�5�ȇW��� �����  5�ȇW�AICS            �QCMACRO   OFCHECKM                                                                                                                                                                                                                                                 10  >************************************                                                                                                                                                                                                                      20  >*** PRINT OFFICIAL CHECK REPORTS ***                                                                                                                                                                                                                      30  >************************************                                                                                                                                                                                                                      40  /LOAD OFCHECKW.QCPUB.CU1                                                                                                                                                                                                                                   50  !!A                                                                                                                                                                                                                                                        60  %TEMP=AB29                                                                                                                                                                                                                                                 70  IF %TEMP=6 THEN GOTO EXITOCK                                                                                                                                                                                                                               80  >                                                                                                                                                                                                                                                          90  >***************************                                                                                                                                                                                                                              100  >*** CREATE OFCLCHK-PRDB ***                                                                                                                                                                                                                              110  >***************************                                                                                                                                                                                                                              120  !!B                                                                                                                                                                                                                                                       130  /PRINTDB B OFCLCHK 500                                                                                                                                                                                                                                    140  >                                                                                                                                                                                                                                                         150  >******************************                                                                                                                                                                                                                           160  >*** PRINT HARDCOPY REPORTS ***                                                                                                                                                                                                                           170  >******************************                                                                                                                                                                                                                           180  !!C:D                                                                                                                                                                                                                                                     190  /PRINT C S FORMD                                                                                                                                                                                                                                          200  >                                                                                                                                                                                                                                                         210  >************************************                                                                                                                                                                                                                     220  >*** CREATE THE TRANSMISSION FILE ***                                                                                                                                                                                                                     230  >************************************                                                                                                                                                                                                                     240  /PRINTER LP                                                                                                                                                                                                                                               250  LINES=1                                                                                                                                                                                                                                                   260  RIGHT=80                                                                                                                                                                                                                                                  270  >                                                                                                                                                                                                                                                         280  !!E:G                                                                                                                                                                                                                                                     290  /PRINT E:G D OFCHECKD                                                                                                                                                                                                                                     300  >                                                                                                                                                                                                                                                         310  EXITOCK:                                                                                                                                                                                                                                               "@��������jfS���U� ����

� ����DISC                             1OFCHECKR        QCPUB           AICS                            MGR     AICS    �fS5�Ȣu�5�Ȣu�5�Ȣ�O5�Ȣ�O


@   5�Ȣ�OAICS            

19981119  j��������r`fS���U� ���Rpp� ����DISC                             1OFCHECKT        QCPUB           AICS                            MGR     AICS    �fS5��[�#5��[�#5��a��5��a��|`�����P�     5��a��AICS            |`                 QueryCalc Reports for Credit Unions                                               written by:  Mizzou Credit Union                                                     last update:  01/01/99                                                                                                                                   OFFICIAL CHECK TRANSMISSION REPORT                                             -------------------------------------                                                                                                                                                                                           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                                                               **********************************************************************          This report produces a detail list of all official checks issued, void          or stopped on a date specified by the user.  These checks are written           into a KSAM database.  The database is then read to produce a detail            report for accounting, which is used to balance that day's activity.            A file is also created that is transmitted to Travelers Express in the          format specified by them.                                                                                                                                       This report has been automated to run each night without input or               interference from an operator.  In this way, the report is printed              and waiting on the department printer when employees come in in the             morning.  A template is provided to allow the report to be run after            corrections have been made.                                                                                                                                                                                                                     Files included                                                                  **********************************************************************                                                                                           1)  OfCheckW - QueryCalc worksheet                                              2)  OfCheckM - QueryCalc macro                                                  3)  TOfChec1 - template which runs the macro                                    4)  OfCheckR - ASCII file which stores the date                                 5)  Readme   - this text file of instructions                                                                                                                  Databases accessed                                                              **********************************************************************          This report uses data from the following databases:                                                                                                                     CHECKS          [SPECTRUM IMAGE DATABASE]                                       OFCLCHK-PRDB    [KSAM DATABASE CREATED BY QUERYCALC]                                                                                                                                                                                    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:                                                                                                                                                      TEMPLATES          DATA.CU1                                                     JOBS               QCPUB.CU1                                                    MACROS             QCPUB.CU1                                                    WORKSHEETS         QCPUB.CU1                                                    ASCII READ FILES   QCPUB.CU1                                                                                                                          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 harddrive.                                                                                                                                                                                                        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 (TOFCHEC1).  These steps can be ignored if                  the files were restored to QCPUB.CU1.                                                                                                                           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 6 to logon to the group and account where the                       files were restored.                                                                                                                                        c)  Change line 25 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 (OFCHECKM).  These steps can be ignored if the                 job was stored to QCPUB.CU1.                                                                                                                                    a)  In QueryCalc, type                                                                     /PROG OFCHECKM                                                                                                                                       b)  Change the line that loads the worksheet to reflect the                         group.account where the worksheet was restored.                                                                                                             c)  Save the macro by typing "K"                                                                                                                                d)  Exit the macro by typing "E"                                                                                                                            3)  Modify the WORKSHEET (OFCHECKW).                                                                                                                                a)  Load the worksheet.  In QueryCalc, type                                                /LOAD OFCHECKW                                                                                                                                       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)  Page A:                                                                                                                                                        1)  Update the conversion date to date you began issuing                            official checks with Travelers Express.                                                                                                                     2)  Update the remittance number to the number assigned by                          Travelers Express.                                                                                                                                          3)  Update the institution number to the number assigned by                         Travelers Express.                                                                                                                                       e)  Save the worksheet.                                                                    /SAVE OFCHECKW                                                                                                                                                                                                                  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                                                        ------------------------                                                        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 ar`�fS���U� ���Rp``���� 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.                                                                                                                                         ���������PfS���U� ��͏M�M�� ����DISC                             1OFCHECKW        QCPUB           AICS                            MGR     AICS    �fS5�ȼ�n5�ȼ�n5����N5����NM�P''&M���PP5����NAICS            M�M�- V2.00 7 198  199811221999011906:49  B��N@ � %READ("OFCHECKR",AB2:AB2,C,RTX) �9T � %MIZZOU CREDIT UNION �d ,TF8�� � %19981119 �H T � %Official Check Report/Transmission �d:��$ � %"As Of: "+DAT$6(AB2) �
dAs Of: 11/19/98$�$�"�$�4�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[5�z$ � %E8+" - Page A" �dOFCHECKW.QCACCT.CU1 - Page AC;�u$ � %"RUN TIME: "+HRS$(12) �dZRUN TIME: 10:39 AM-�T � %FILENAME: �6�T � %OFCHECKW.QCPUB.CU1 �0�T � %MACRO NAME: �6�T � %OFCHECKM.QCPUB.CU1 �$�$�$R$�4�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[.�T � %JOB NAME: �5�T � %TOFCHEC1.DATA.CU1 �0"T � %Assumptions: �G#T � %1. Conversion Date is accurate. �H=T � %2. Remittance number is correct. �IWT � %3. Institution number is correct. �$�$�$R$�4�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[.�T � %DATABASES: �*�T � %CHECKS �0�T � %OFCLCHK-PRDB �#*  � �1BT � %SCRATCH DATA �d)tT � %VALUE �b/uT � %DESCRIPTION �2�>$F8�� � %DAT$2(SYSDATE) �19981023$�$�$�"�4�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[1�T � (Today's Date �*/�&N@� � %WEEKDAY(B2) �<�$$F8� � %DAT$2(B2,IF(B29=7,-1,0)) �19981016;�T � (Beginning Report Date �<�
$F8� � %DAT$2(D29,IF(B29=7,1,0)) �199810168�T � (Ending Report Date �,*TF8@ � %19980401 �$�$�$�"�4�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[4+T � (Conversion Date �.DTG��� � %1234567890 �6ET � (Remittance Number �+^TEZ � %1234567 �e7_T � (Institution Number �#x  �B �8#�  �B �g.�T � %PAGE DATA �d %19980401 �$�$�$�"�4�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[(.T � %PAGE �,/T � %CONTENTS �%bT � %A �AcT � 'Scratch: Traveler's Express � %|T � %B �nA}T � 'Detail Report: OFCLCHK-PRDB �#%�T � %C � � %PAGE DATA �d %19980401 �$�$�$�"�4�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[C�T � 'Detail Report: Checks Issued �%�T � %D �9�T � 'Form: Checks Issued �%�T � %E �O�T � 'OFCHECKD: Official Check Detail records �K%T � %F �NT � 'OFCHECKD: Official Check Totals record �$�$�$�"�4�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[%2T � %G �oS3T � 'OFCHECKD: Official Check Termination record ����RA� * �A %USING CHECKS.CHECKS, FIND WHEN ENTRY-DATE IB [{AD29}],[{AD30}] OR ENTRY-DATE>=[{AD32}] AND CLEARED-DATE IB [{AD29}],[{AD30}] >H��QE¿/ * � %REREADING, VAL OF CHECK-NUMBER �
0008748638ck Totals record �$�$�$�"�4�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[B��RD��� * � %REREADING, VAL OF AMOUNT �(6T � %FACE �F��RF8� * � %REREADING, VAL OF ENTRY-DATE �H��R * � %REREADING, VAL OF CLEARED-DATE �A�}Q * � %REREADING, VAL OF PAYEE �MARY L WATKINS)�T � %PAYEE �438ck Totals record �$�$�$I"�4�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[&�NA8 � %30 �B�cR@� * �A %REREADING, VAL OF CENTER �*�T � %CENTER �B�IQ * � %REREADING, VAL OF TELLER �LMV *�T � %TELLER �%�N@� � %4 �7�/$H
��� � %"500"+SUB$(A2,4,11) �
5008748638438ck Totals record �$�$�$�"�4�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[)�T � %CHECK �B&�N@� � %11 �A�$G��� � %RJS$("0000000000000"+AD33,13) �
0001234567890+�T � %ACCOUNT �R&�N@� � %13 �-��$F8� � %DAT$2(A4) � 19981016)T � %ISSUE �,%N@� � %8 �a record �$�$�$�"�4�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[:��$ � %IF$(A5=0,"",DAT$2(A5)) �( T � %PAID �%"N@� � %8 �3P��$ � %IF$(A5=A4,"VOID",IF$(A5>A4,"STOP","ISSUED")) �ISSUED(:T � %TYPE �%<N@� � %6 �)*S$ � %" OC" � OC+TT � %PRODUCT �$�$�$�"�4�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[%VN@` � %3 �"4��$@� � %SUB$({A9},01,01) �54�y$ � %SUB$({A9},02,02) �04�_$ � %SUB$({A9},03,03) �0S4�E$@� � %SUB$({A9},04,04) �8�4�+$@� � %SUB$({A9},05,05) �74�$@� � %SUB$({A9},06,06) �4 � %PRODUCT �$�$�$�"�4�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[4��$@� � %SUB$({A9},07,07) �84��$@� � %SUB$({A9},08,08) �64��$@` � %SUB$({A9},09,09) �34��$@� � %SUB$({A9},10,10) �84��$ � %SUB$({A9},11,11) �0�uNAb � %SUM(A15:A25) �0�[N@������ � %FRC(A26/9)*9 � � %PRODUCT �$�$�$�"�4�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[5�AN@� � %IF(A27=0,0,9-A27) �/�T � %CHECK-DIGIT �#�  � �U#�  � �X��RA� * �A %USING OFCLCHK-PRDB.OFCLCHK, FIND WHEN CHECK>0 �A��QH
��� * � %REREADING, VAL OF CHECK �
5008748638)T � %CHECK �RUCT �$�$�$�"�4�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[&T � %3A �&N@� � %11 �@��Q * � %REREADING, VAL OF TYPE �ISSUED(6T � %TYPE �&7T � %1A �%8N@� � %6 �A@��RD��� * � %REREADING, VAL OF FACE �A��QF8� * � %REREADING, VAL OF ISSUE �$�$�$��4�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[19981016@�}Q * � %REREADING, VAL OF PAID �A�cQ * � %REREADING, VAL OF PAYEE �MARY L WATKINSB�IR@� * �A %REREADING, VAL OF CENTER �(�T � %SORT �&�T � %2A �B�/Q * � %REREADING, VAL OF TELLER �LMVING, VAL OF ISSUE �$�$�$��4�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[/�$ � %A8+": "+A9 �I5: LMV*�T � %CENTER �%�N@� � %8 �-��$ � %DAT$6(A5) � 10/16/98(T � %DATE �%N@� � %8 �V��NC� �A %IF($A3=$"ISSUED",A4/100,IF($A3=$"STOP",-A4/100,0)) �LMVING, VAL OF ISSUE �$�$�$��4�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[* T � %AMOUNT �&"N@� � %11 �,��$ � %NAM$(A7) �Mary L Watkins):T � %PAYEE � <��$ � %IF$($A3=$"ISSUED","",A3) �(TT � %MTHD �%VN@� � %4 �,C��$ � %IF$($A3=$"ISSUED","",DAT$6(A6)) �$�$�$�"�4�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[)nT � %CLEAR �%pN@� � %8 �A�y$ � %"TOTAL ISSUED: "+DAT$6(AB2) �dTOTAL ISSUED: 10/16/98)�T � %TOTAL �9	T � %MIZZOU CREDIT UNION �d7#T � %TRAVELER'S EXPRESS �d;=T � %OFFICIAL CHECK REPORT �d$�$�$�"�4�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[:��$ � %"AS OF: "+DAT$6(AB2) �
dAS OF: 11/19/98A��$ � %"RUN DATE: "+DAT$6(SYSDATE) �	d RUN DATE: 01/19/99;��$ � %"RUN TIME: "+HRS$(12) �	dRUN TIME: 6:49 AM)�T � %CHECK �*�T � (CENTER �)�T � %ISSUE �ECK REPORT �d$�$�$Q"�4�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[)�T � +ISSUE �A)�T � %CLEAR �)�T � %CLEAR �A*�T � %NUMBER �*�T � (TELLER �(�T � %DATE �*�T � )AMOUNT �)�T � *PAYEE �(�T � %DATE �d$�$�$�$�4�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[*�T � %METHOD �X��RAj * �A %USING OFCLCHK-PRDB.OFCLCHK, FIND WHEN CHECK>0 �C��QHL�� * � %REREADING, VAL OF ACCOUNT �
0006059900027+T � %ACCOUNT �&N@� � %13 �A��QF�b� * � %REREADING, VAL OF CHECK �
0214002783 %DATE �d$�$�$R$�4�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[)6T � %CHECK �&8N@� � %11 �I��R * � %REREADING, VAL OF \CHECK-DIGIT\ �)PT � %DIGIT �
A��QF8@ * � %REREADING, VAL OF ISSUE �19980305)jT � %ISSUE �%lN@� � %8 �
0214002783 %DATE �d$�$�$�$�4�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[@�}RD�� * � %REREADING, VAL OF FACE �(�T � %FACE �@�cQ * � %REREADING, VAL OF TYPE �ISSUED(�T � %TYPE �%�N@� � %6 �UC�IQ * � %REREADING, VAL OF PRODUCT �N OC+�T � %PRODUCT �3DATE �d$�$�$�$�4�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[%�N@` � %3 �I8�/ND�� � %IF($A7=$"VOID",0,A6) �*�T � %AMOUNT �W�$ � %IF$($A7=$"STOP","050",IF$($A7=$"VOID","004","000")) �000~��$ � %A2+"0000000"+RJS$(A3,10)+A4+A5+RJS$("000000000000000"+A9,15)+A10+A8+"00000000000000000000" ` � %PRODUCT �3DATE �d$�$�$�$�4�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[Q000605990002700000000214002783019980305000000000295000000 OC00000000000000000000I*T � %RECORD �&NA� � %80 �U��RA� � %USING OFCLCHK-PRDB.OFCLCHK, FIND WHEN CHECK>0 �=��RF1�*� � %REREADING, SUM OF FACE �0'��$HL�� � %EA2 �
0006059900027 �3DATE �d$�$�"�$�4�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[+T � %0000000 �0<��$A� � %RJS$("0000000000"+A1,10) �
0000000114%T � %0 �0,T � %00000000 �A��$F1�*� � %RJS$("000000000000000"+B1,15) �000000029784234D'	TB|� � %999 ��'
T � %000 �2�3DATE �d$�$�$�$�4�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[8T � %00000000000000000000 �&T � %/* �,O 
 ,BXSA2J82dd �,O 
 ,BXSA2OC2dd �-O 
 ,BX C
H$Pd �$-O 
 ,BX A2O	2d
 �3-5O 
 ,BX C
HPd �-8O 
 ,LN C2CC2d �TE �d$�$�$�"�4�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[-OO 
 ,BX C
HPd �0-RO 
 ,LN EECd �-iO 
 ,LN D+H+2d ��-lO 
 ,LN GKGCKd �-�O 
 ,BX C'
H6Pd �-�O 
 ,LN IICd �-�O 
 ,BX C)
H+Pd �-�O 
 ,LN KKCd � �d$�$�$�"�4�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[;�O 
 ,LN DZD$Zd �-�O 
 ,LN M2MC2d �;�O 
 ,LN D+ZD6Zd �;�O 
 ,BX C'
H)Pd �$$$
	$�$�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�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^�@
<<�<CHECKS.DATA.CU1              IM)+*%.(�CHECKS            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[<OFCLCHK.CFS.CU1              KS7<ANCHOFCLCHK-PRDB      QCREPRTB     1  GROUP 1C     2  D,"2",1;AGENT,2;CHECK,8;AMOUNT,19;DATE,30;"000",36;BATCH,39     3  ENDGROUPQCREPRTC    10  GROUP 1    20  H,SKIPTO 9R    30  D,UNIFY 2;CHECK,-13;CENTER,18;DATE,30;AMOUNT,-48;PAYEE,52;CLEAR,84;MTHD,94    40  BREAKON TYPE    50  F,UNIFY 6HECKS.DATA.CU1              IM)+*%.(�CHECKS            $�$�$�$�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[9    60  F,SORT,-36,NUM;AMOUNT,-48,SUM;TYPE,53;"CHECKS",60 	    70  F	    80  FE    90  ENDBREAK   100  F,UNIFY 9,	   110  FH.   120  F,SORT,-36,NUM;AMOUNT,-48,SUM;TOTAL,53   130  ONNEWPAGER   140  H,SKIPTO 9   150  ENDPAGEO   160  ENDGROUPQCREPRTE    10  GROUP 1E    20  D,RECORD,1    30  ENDGROUP
^EODLTMPS^^EOQ$^al%tjbU>P3}/$ :@q|M4LJ]xj$�$�$�$�4�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[d�accounting                                                                                                                                                                                                       316                                          GROUP 1E    20  D,RECORD,1    30  ENDGROUP
^EODLTMPS^^EOQ$^al%tjbU>P3}/$ :@q|M4LJ]xj6�4�$�$�4�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[P�������� fS���U� ����
�
�� ����DISC                             1TOFCHEC1        QCPUB           AICS                            MGR     AICS    �fS5���%u5���%u5���ο5���ο
�,,
�P�  5���οAICS            
�
�`                        TRAVELER'S EXPRESS                                     `                      OFFICIAL CHECKS REPORT                                   `                                                                               ^~Enter Check Issue Date (MMDDYY)       _6 DATE {102698} [STADATE]              `                                                                               !JOB TOFCHEC1,MGR.CU1,QCPUB                                                     !COMMENT                                                                        !COMMENT *********************************                                      !COMMENT ***  FORMAT DATE1 = CCYYMMDD  ***                                      !COMMENT *********************************                                      !COMMENT                                                                        !SETVAR DYEAR RHT('[STADATE]',2)                                                !SETVAR DCENT LFT(RHT(HPDATEF,4),2)                                             !IF !DYEAR = 99                                                                 !   IF !DYEAR <> !HPYEAR                                                        !      SETVAR DCENT DCENT-1                                                     !   ENDIF                                                                       !ENDIF                                                                          !SETVAR DATE1 DCENT+DYEAR+LFT('[STADATE]',4)                                    !COMMENT                                                                        !COMMENT  ************************                                              !COMMENT  *** MODIFY DATE FILE ***                                              !COMMENT  ************************                                              !COMMENT                                                                        !ECHO T OFCHECKR.QCPUB.CU1>CCARDS                                               !ECHO C 1/10 TO '' A>>CCARDS                                                    !ECHO C 1/1 TO '!DATE1' A>>CCARDS                                               !ECHO K>>CCARDS                                                                 !ECHO Y>>CCARDS                                                                 !ECHO E>>CCARDS                                                                 !QUAD<CCARDS                                                                    !COMMENT **********************************************                         !COMMENT ***  CREATE REPORTS AND TRANSMISSION FILE  ***                         !COMMENT ***   FOR TRAVELER'S OFFICIAL CHECKS.      ***                         !COMMENT **********************************************                         !COMMENT                                                                        !FILE QCMACROF=OFCHECKM.QCPUB.CU1                                               !RUN QCX.QCPROGS.AICS                                                           !COMMENT                                                                        !TELLOP   ****************************************************                  !TELLOP   ***> OFFICIAL CHECK REPORT HAS FINISHED FOR CU1 <***                  !TELLOP   ****************************************************                  !SET STDLIST=DELETE                                                             !EOJ                                                                             �����������������������STORE/RESTORE-HP/3000.MPEXL  � �������B5152AA  C602403/16/010000�������������������������