�STORE/RESTORE-HP/3000.MPEXL  "	� �������B5152AA  C602403/16/010000���?fS���U� w��=��LN2OFFCM        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS���U� d��m���LN2OFFCT        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS���U� v����/�LN2OFFCW        QCPUB           AICS            MGR             AICS            MGR     AICS    `0�����?fS���U� �����/�TCALLRP1        QCPUB           AICS            MGR             AICS            MGR     AICS    `@������(���H00000000000000000                            000000STORE  ln2@,tc@;*v
�����������������WfS���U� w��=��� ����DISC                             1LN2OFFCM        QCPUB           AICS                            MGR     AICS    �fS5�����5�����5���_U5���_U��	�����  5���_UAICS            �QCMACRO   LN2OFFCM                                                                                                                                                                                                                                                 10  >**********************************************                                                                                                                                                                                                            20  >***  NCUA LOANS TO CREDIT UNION OFFICIALS  ***                                                                                                                                                                                                            30  >**********************************************                                                                                                                                                                                                            40  >                                                                                                                                                                                                                                                          50  /LOAD LN2OFFCW.QCPUB.CU1                                                                                                                                                                                                                                   60  !!                                                                                                                                                                                                                                                         70  /PRINT B S FORMC                                                                                                                                                                                                                                           80  /SAVE LN2OFFCW.QCPUB                                                                                                                                                                                                                                   W��������r`fS���U� d��mpp� ����DISC                             1LN2OFFCT        QCPUB           AICS                            MGR     AICS    �fS5��D?�5��D?�5��J�z5��J�z��
U��*�P�$ $  5��J�zAICS            ��                 QueryCalc Reports for Credit Unions                                               written by:  Mizzou Credit Union                                                     last update:  01/31/00                                                                                                                                  LOANS TO CREDIT UNION OFFICIALS 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                                                               **********************************************************************          Credit Unions are required to provide a report of loans to credit               union officials whenever submitting their call reports.  The most               common method is to gather the information, either manually or with a           report, and type it onto the form.  This method often allows                    unintentional typographical errors and can take an extended period of           time to complete.                                                                                                                                               This report uses QueryCalc's postscript capabilities to recreate the            form used by the State of Missouri.  The form can be changed to                 duplicate the form needed by your credit union.  A list of credit               union officials maintained by the credit union is read and used as              the source of accounts to be reported.                                                                                                                          A template allows front line staff to launch the report.  In addition           to printing the report, it also prints a balance sheet and an income            statement.  The call report can be created and added at the bottom.                                                                                             In order to run this report, you will also need to download the                 database provided in Miscellaneous Files/Reports.                                                                                                                                                                                               Files included                                                                  **********************************************************************                                                                                           1)  Ln2OffcW - QueryCalc worksheet                                              2)  Ln2OffcM - QueryCalc macro                                                  3)  TCallRp1 - template which runs the macro                                    4)  Readme   - this text file of instructions                                                                                                                  Databases accessed                                                              **********************************************************************          This report uses data from the following databases:                                                                                                                     REPORT         [SPECTRUM IMAGE DATABASE] (copy of MEMBRS)                       MCUDB          [PSEUDODATABASE CREATED BY MIZZOU CREDIT UNION]                                                                                                                                                                          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                                                                                                                      QCDICT.AICS . . . . . . QCPFILE                                                                                                                          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 (TCALLRP1).  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 77 to reflect the overlay you use when printing                     the Statement of Financial Condition for your examiners.                                                                                                    c)  Change line 97 to reflect the overlay you use when printing                     the Statement of Income for your examiners.                                                                                                                 d)  Change line 121 to reflect the device number of the laser                       printer where you want the report to print.                                                                                                                 e)  Change line 133 to the group where the files were restored.                                                                                                 f)  Change the macro line to read the macro from the group and                      account where the files were restored.                                                                                                                      g)  Add any password formatting your system may require.                                                                                                                                                                                    2)  Update the database of credit union officials.  These steps can                 also be found in the readme.txt file when you download the MCU                  database.                                                                                                                                                       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)  Use Quad to text up the file CUOFFICL.QCPUB.CU1. (or the                        group.account where the file was restored.)                                                                                                                 c)  Change the account number in columns 1-10 to the credit                         union official's account number.                                                                                                                            d)  Change the name in columns 11-30 to the credit union                            official's name.                                                                                                                                            e)  Change the title in columns 31-37 to the credit union                           official's salutory title.                                                                                                                                  f)  Place a Y/N under each heading to indicate whether this                         official is or is not a member of the Board of Directors,                       Supervisory Committee, Asset-Liability Committee, or                            Finance Committee.  If you do not have some of these                            committees, put an N in the column.  You may also redefine                      what these committees are by modifying the database                             definition file.                                                                                                                                        3)  Modify the MACRO (LN2OFFCM).  These steps can be ignored if                     the files were restored to QCPUB.CU1.                                                                                                                           a)  In QueryCalc, type                                                                     /PROG LN2OFFCM                                                                                                                                       b)  Change the line that loads the worksheet to reflect the                         group.account where the worksheet was restored.                                                                                                             c)  Change the line that saves the worksheet to reflect the                         group.account where the worksheet was restored.                                                                                                             d)  Save the macro by typing "K"                                                                                                                                e)  Exit the macro by typing "E"                                                                                                                                                                                                            4)  Modify the WORKSHEET (LN2OFFCW).                                                                                                                                a)  Load the worksheet.  In QueryCalc, type                                                /LOAD LN2OFFCW                                                  
                                                                                    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 B - If you have offline VISA cards, you will either need                   to add additional finds to retrieve the information from                        DFILES or include it as a separate report.                                                                                                                  f)  Page C:                                                                                                                                                         1)  Change the form to reflect the form needed by your credit                       union.                                                                                                                                                      2)  If any columns are changed, the layout of page B may need                       to be changed to line the data up correctly.                                                                                                            g)  Save the worksheet.                                                                    /SAVE LN2OFFCW                                                                                                                                                                                                                  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 [Kr`"0fS���U� d��mp!�!�����SAM 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��������20fS���U� v���/�/�� ����DISC                             1LN2OFFCW        QCPUB           AICS                            MGR     AICS    �fS5�����5�����5����(5����(/�0/���225����(AICS            /�/�- V2.00 3 88   200001282000013110:07  2��$FK[� � %DAT$2(SYSDATE) �200001109T � %MIZZOU CREDIT UNION �d A��$FK[� � %DAT$2(B1,IF(DAY(B1)<15,0,20)) � 20000110G!T � %Loans to Credit Union Officials �d 6��$FB�� � %DAT$2(B2,-DAY(B2)) �19991231                                $�$�"                                       "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�<��$ � %"As Of: "+DAT$6({AB3}) �
dAs Of: 12/31/99$5�z$ � %E8+" - Page A" �dLN2OFFCW.QCPUB.CU1 - Page A;�u$ � %"RUN TIME: "+HRS$(12) �d RUN TIME: 3:11 PM-�T � %FILENAME: �di6�T � %LN2OFFCW.QCPUB.CU1 �d0�T � %MACRO NAME: �d          $�$�$`                                      "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�6�T � %LN2OFFCM.QCPUB.CU1 �d.�T � %JOB NAME: �d5�T � %TCALLRP1.DATA.CU1 �dP0!T � %ASSUMPTIONS: �d>#T � %Report Date is correct. �dc=T � %C.U. Officials' Account list is accurate (CUOFFICL.QCPUB) �d� %MACRO NAME: �d          $�$�$`                                      "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�.�T � %DATABASES: �d2�T � %MCUDB-BOARDSET �d*�T � %REPORT �d1T � %SCRATCH DATA �dP)@T � %VALUE �d%/AT � %DESCRIPTION �d2�r$ � %DAT$6(SYSDATE) �d01/10/001�T � %Today's Date �d       $�$�$�"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�-�X$ � %DAT$6(B3) �dd12/31/990�T � %Report Date �d.FT � %PAGE DATA �d(xT � %PAGE �d+yT � %CONTENT �d%�T � %A �d 1�T � %Scratch Page �d)%�T � %B �d� %Today's Date �d       $�$�$�"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�Q�T � %Detail Report - Loans to C.U. Officials �d%�T � %C �dG�T � %Form - Loans to C.U. Officials �ddi��R� * �A %USING MCUDB.BOARDSET, FIND WHEN BOARD="Y" OR SUPERVISORY="Y" ~C��Q� * � %REREADING, VAL OF ACCOUNT �55163 %Today's Date �d       $�$��"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�+T � %ACCOUNT �&T � %2A �@��Q� * � %REREADING, VAL OF NAME �Kurzejeski/Paul J(6T � %SORT �&7T � %1A �A��Q * � %REREADING, VAL OF TITLE �Mr.)PT � %TITLE �55163 %Today's Date �d       $�$�$�"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�A��Q * � %REREADING, VAL OF BOARD �YG�}Q * � %REREADING, VAL OF SUPERVISORY �AN�c�c$� � %A4+" "+SUB$(A3,POS(A3,"/")+1,30)+" "+SUB$(A3,1,POS(A3,"/")-1) }A(�T � %NAME �d�I$ � %IF$($A5=$"Y","Director",IF$($A6=$"Y","Supervisory Comm."," ")) |Directord       $�$��"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�,�T � %POSITION �m�/R * �E %USING REPORT.LOAN-FILE, FIND WHEN ACCOUNT=[A2] AND BALANCE > 0 |B�RA� * �E %REREADING, VAL OF SUFFIX �*�T � %SUFFIX �&�T � %3A �G��Q * � %REREADING, VAL OF DESCRIPTION �|
SIGNATURE/LOCrd       $�$�$Q"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�C��RDg� * �E %REREADING, VAL OF BALANCE �F��RF�#@ * � %REREADING, VAL OF ENTRY-DATE �-��$ � %NAM$(A11) � 
Signature/LocL(TT � %DESC �+��NB�qG�z� �A %A12/100 �+nT � %BALANCE � .�y$ � %DAT$6(A13) �03/17/89Crd       $�$�$�"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�(�T � %DATE �ST � %MISSOURI DEPARTMENT OF ECONOMIC DEVELOPMENT �dR@7T � %DIVISION OF CREDIT UNIONS �dTkT � %LOANS TO CREDIT UNION OFFICIALS (370.310-4) �d1�T � %CREDIT UNION �d (�T � -DATE �dA13) �03/17/89Crd       $�$�$Q"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�9�T � %MIZZOU CREDIT UNION �d/�&$ � %DAT$3(AD27) �dEDecember 31, 1999@qTT � 'List all loans made to the officers during the quarter just ended. vdU�XT � .Please list only those loans made during the quarter and the total indebtedness for the Zd�03/17/89Crd       $�$�$Q"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�r�T � 'officer. Per RSMo 370.310(4) each credit union is required to report sd��T � 5this information quarterly to the Director, Division of Credit Unions. Please enclose TdW�T � 'a copy of your quarterly financial statement. �d(T � 2DATE �dd�03/17/89Crd       $�$�$Q"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�*T � .AMOUNT �d)T � 5TOTAL �de3$T � %ACCOUNT NUMBER �d(&T � %NAME �d,(T � 0POSITION �d.+T � +COLLATERAL �d,CT � .OF LOAN �d,DT � .OF LOAN �ddd�03/17/89Crd       $�$�$�"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�0FT � -INDEBTEDNESS �d9�T � %MO 419-0072 (10-92) �d+�T � %DCU-112 �d,O 
 ,BXSA2J.2dd �-O 
 ,BX A
dK2d �;O 
 ,BX C
HPd �F-O 
 ,BX A
PKL2d �AN �ddd�03/17/89Crd       $�$�$�"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�;5O 
 ,BX C
HPd �-7O 
 ,LN J
dJ
d �;OO 
 ,BX C
HPd �-QO 
 ,BX A
PK2Pd �;iO 
 ,LN DZDZd �-kO 
 ,LN J
PJL
d �<�O 
 ,BX C 
H*Pd �89Crd       $�$�$�"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�-�O 
 ,LN I
PIL
d �<�O 
 ,BX C 
H"Pd �-�O 
 ,LN H
PHL
d �;�O 
 ,BX C"
H$Pd �-�O 
 ,LN G
PGL
d �;�O 
 ,LN D"ZD*Zd �-�O 
 ,LN F
PFL
d � �89Crd       $�$�$�"                                     "$�$�$�$�$�$�$�$�6�6�6�6�6�6�6�6�6�6�6�2�-�O 
 ,LN D
PDL
d �O$$�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�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�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�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^�D6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�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[	((
<<�<MEMBRS.REPORT.CU1            IM)+*%.(�REPORT            <NUMBERS.REPORT.AICS          MP@I;E&9MCUDB             QCREPRTB    10  GROUP 1    20  H,SKIPTO 25    30  GROUP 26�6�6�6�6�6�6�6�6�6�6�6�6�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[d    40  D,UNIFY 5;ACCOUNT,-19;"-",-20;SUFFIX,-23;NAME,40;POSITION,85;DATE,-124;BALANCE,-150;DESC,157	    50  D    60  ENDGROUP    70  ONNEWPAGE    80  H,SKIPTO 25    90  ENDPAGE    100  ENDGROUP
^EODLTMPS^^EOQ$^6bL?]\)VQVB#LEG
7)Hl|${S
dGROUP 1    20  H,SKIPTO 25    30  GROUP 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�2�6[�sd 3006 acct br01                                                                                                                                                                                                3006                                        EG
7)Hl|${S
dGROUP 1    20  H,SKIPTO 25    30  GROUP 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�2�6[20��������1�fS���U� ����/�/�� ����DISC                             1TCALLRP1        QCPUB           AICS                            MGR     AICS    �fS5���:�5���:�5����75����7/�@��22P�77  5����7AICS            /�2`                       PRINT THE CALL REPORTS                   Ver: 21.00     `               AND/OR LOANS TO CREDIT UNION OFFICIALS                          `                                                                               `       NOTE:  This report should be run AFTER the GL has been                  `              closed by DP.                                                    `                                                                               `              If the Call Reports are to be printed, the Manual                `              Input Page should be completed on CALLRPTW.QCPUB.CU1                                                                                             ^~PRINT CALL REPORTS? (Y/N)  _1 CHAR Y,N                {N}    [CALLRPT]        ~|ENTER PRIMARY SORT OPTION  _6 CHAR BRANCH,REGION,NONE {NONE} [SORTO]          ~|ENTER SELECT OPTION        _6 CHAR BRANCH,REGION,NONE {NONE} [SELECTO]        ~|ENTER SELECTIONS           _4 LINES                   {END}  [SELECTS]        !JOB TCALLRP1,[MGRUSER].[ACCNT][PWD],[DATAGRP][JOBPRI]                          !COMMENT ***********************************************************            !COMMENT ***  THIS TEMPLATE AFFECTS THE FOLLOWING JOBS:          ***            !COMMENT ***********************************************************            !COMMENT  PROGRAM     TEMPLATE    DESCRIPTION                                   !COMMENT                                                                        !COMMENT  QCX         LN2OFFCM    LOANS TO CREDIT UNION OFFICIALS               !COMMENT  PGLSTMFC    TMGLSTC1    STATEMENT OF FINANCIAL CONDITION              !COMMENT                           - CONDENSED: NO COMPARISON                   !COMMENT  PGLSTMIN    TMGLSTI1    STATEMENT OF INCOME                           !COMMENT                           - CONDENSED: NO COMPARISON                   !COMMENT  QCX         CALLRPTM    CALL REPORT                                   !COMMENT                                                                        !COMMENT ***********************************************************            !COMMENT                                                                        !COMMENT ***********************************************************            !COMMENT ***              SET DATE & TIME VARIABLES              ***            !COMMENT ***********************************************************            !SETVAR GLDATE 31                                                               !SETVAR GLYEAR RHT(HPDATEF,4)                                                   !IF !HPMONTH=1                                                                  !   SETVAR GLMONTH 12                                                           !   SETVAR GLYEAR !GLYEAR-1                                                     !ELSE                                                                           !   SETVAR GLMONTH !HPMONTH-1                                                   !ENDIF                                                                          !IF (!GLYEAR MOD 4)=0                                                           !   SETVAR FEBDAYS 29                                                           !ELSE                                                                           !   SETVAR FEBDAYS 28                                                           !ENDIF                                                                          !IF GLMONTH=4 OR GLMONTH=6 OR GLMONTH=9 OR GLMONTH=11                           !   SETVAR GLDATE 30                                                            !ELSEIF GLMONTH=2                                                               !   SETVAR GLDATE !FEBDAYS                                                      !ENDIF                                                                          !COMMENT *****************************************************                  !COMMENT ***   CURRENT GL MONTH:   DATE1 = MMDDYY          ***                  !COMMENT *****************************************************                  !SETVAR DATE1 RHT('00'+'!GLMONTH',2)+'!GLDATE'+RHT('!GLYEAR',2)                 !SHOWVAR                                                                        !COMMENT  &dC************************************&d@                          !COMMENT  &dC***                              ***&d@                          !COMMENT  &dC***  BEGIN FINANCIAL STATEMENTS  ***&d@                          !COMMENT  &dC***                              ***&d@                          !COMMENT  &dC************************************&d@                          !COMMENT                                                                        !COMMENT ***********************************                                    !COMMENT ***  BUILD A BLANK REPORT FILE  ***                                    !COMMENT ***********************************                                    !PURGE RRBALSHT                                                                 !BUILD RRBALSHT;DEV=DISC;DISC=30000,32,1;REC=-136,20,F,ASCII;CCTL               !COMMENT *************************************                                  !COMMENT ***  COPY IN ESCAPE SEQUENCE FOR  ***                                  !COMMENT ***    LJ LANDSCAPE CONDENSED     ***                                  !COMMENT *************************************                                  !FILE WORK=RRBALSHT,OLD;ACC=APPEND                                              !FCOPY FROM=ESCSPECT.DATA.CU1;TO=*WORK;CCTL                                     !COMMENT *******************************************                            !COMMENT ***       BEGIN PRODUCING REPORTS       ***                            !COMMENT *******************************************                            !FILE FTN10=RRBALSHT,OLD;ACC=APPEND;CCTL                                        !PURGE DGLSTMF1                                                                 !COPY DGLSTMF2,DGLSTMF1                                                         !ECHO !DATE1>CCARDS                                                             !ECHO POST>>CCARDS                                                              !ECHO 700000.00>>CCARDS                                                         !ECHO ASSETS>>CCARDS                                                            !ECHO BY ACCOUNT>>CCARDS                                                        !ECHO "    TOTALS">>CCARDS                                                      !ECHO LIABILITIES AND EQUITY>>CCARDS                                            !ECHO BY ACCOUNT>>CCARDS                                                        !ECHO "    TOTALS">>CCARDS                                                      !ECHO ENTRY>>CCARDS                                                             !ECHO [SORTO]>>CCARDS                                                           !ECHO [SELECTO]>>CCARDS                                                         !ECHO [SELECTS]>>CCARDS                                                         !RUN PGLSTMFC.[PGMSGROUP];LIB=P;STDIN=CCARDS                                    !COMMENT *******************************                                        !COMMENT *** CONDENSED BALANCE SHEET ***                                        !COMMENT ***     NO COMPARISON       ***                                        !COMMENT *******************************                                        !PURGE DGLSTMI1                                                                 !COPY DGLSTMI2,DGLSTMI1                                                         !ECHO !DATE1>CCARDS                                                             !ECHO INCOME>>CCARDS                                                            !ECHO 960200.00>>CCARDS                                                         !ECHO 100000.00>>CCARDS                                                         !ECHO YES>>CCARDS                                                               !ECHO ENTRY>>CCARDS                                                             !ECHO [SORTO]>>CCARDS                                                           !ECHO [SELECTO]>>CCARDS                                                         !ECHO [SELECTS]>>CCARDS                                                         !RUN PGLSTMIN.[PGMSGROUP];LIB=P;STDIN=CCARDS                                    !COMMENT **********************************                                     !COMMENT *** CONDENSED INCOME STATEMENT ***                                     !COMMENT ***       NO COMPARISON        ***                                     !COMMENT **********************************                                     !COMMENT                                                                        !COMMENT *************************************                                  !COMMENT ***  COPY IN ESCAPE SEQUENCE FOR  ***                                  !COMMENT ***           LJ RESET            ***                                  !COMMENT *************************************                                  !FCOPY FROM=LLJRESET.DATA.CU1;TO=*WORK                                          !COMMENT *****************************************************                  !COMMENT ***  COPY WORKFILE TO ACCOUNTING's LASER PRINTER  ***                  !COMMENT *****************************************************                  !FILE LASER;DEV=3006,,1;REC=-136,20,F,ASCII;CCTL                                !FCOPY FROM=RRBALSHT;TO=*LASER;CCTL                                             !PURGE RRBALSHT                                                                 !COMMENT                                                                        !COMMENT                                                                        !COMMENT  &dC***************************************&d@                       !COMMENT  &dC***                                 ***&d@                       !COMMENT  &dC***  BEGIN LOANS TO C.U. OFFICIALS  ***&d@                       !COMMENT  &dC***                                 ***&d@                       !COMMENT  &dC***************************************&d@                       !COMMENT                                                                        !COMMENT                                                                        !CHGROUP QCPUB                                                                  !FILE QCMACROF=LN2OFFCM.QCPUB.CU1                                               !RUN QCX.QCPROGS.AICS                                                           !COMMENT                                                                        !IF "[CALLRPT]"="Y"                                                             !   COMMENT                                                                     !   COMMENT  &dC*********************************&d@                          !   COMMENT  &dC***                           ***&d@                          !   COMMENT  &dC***     BEGIN CALL REPORT     ***&d@                          !   COMMENT  &dC***                           ***&d@                          !   COMMENT  &dC*********************************&d@                          !   COMMENT                                                                     !   COMMENT                                                                     !COMMENT FILE QCMACROF=CALLRPTM.QCPUB.CU1                                       !COMMENT RUN QCX.QCPROGS.AICS                                                   !   COMMENT                                                                     !   COMMENT                                                                     !ENDIF                                                                          !SET STDLIST=DELETE                                                             !EOJ                                                                            1������������������������STORE/RESTORE-HP/3000.MPEXL  "	� �������B5152AA  C602403/16/010000�������������������������