�STORE/RESTORE-HP/3000.MPEXL  *	� �������B5152AA  C602403/16/010000���?fS�E�U�(����
�VISAPMTD        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS�B�U�$���:��VISAPMTJ        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS�?�U�$�����6�VISAPMTM        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS�<�U�$�����VISAPMTR        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS�N�U�()������VISAPMTT        QCPUB           AICS            MGR             AICS            MGR     AICS    `�����?fS�9�U�$��z���*VISAPMTW        QCPUB           AICS            MGR             AICS            MGR     AICS    `������?fS�K�U�(����0TVISAPM1        QCPUB           AICS            MGR             AICS            MGR     AICS    ` �����?fS�H�U�(����PTVSAXMT1        QCPUB           AICS            MGR             AICS            MGR     AICS    `������(���H00000000000000000                            000000STORE  vis@,tv@;*v
�����������������
PfS�E�U�(���
�
�� ����DISC                             1VISAPMTD        QCPUB           AICS                            MGR     AICS    �fS5��k]c5��k]c5��l#
5��l#

�##
�P
   5��l#
AICS            
�
�$IDENT00281580417F991111                                                        B9911110123456789K5991110 0025123R 555555555                                    M123456789       K50003140025123R00000000000000 111199                          D  1234568901853019009614P111099     K50290627500                               D  1234568901858935000300}111099     K50273277500                               D  1234568901800127001000}111099     K50274957500                               D  1234568901859792000072}111099     K50316347500                               D  1234568901859867002300}111099     K50285627500                               D  1234568901800101000250}111099     K50286587500                               D  1234568901849843000691P111099     K50279267500                               D  1234568901844273001000}111099     K50283127500                               D  1234568901810803001750}111099     K50298167500                               D  1234568901857689003000}111099     K50302887500                               D  1234568901811009002000}111099     K50278437500                               D  1234568901846666000500}111099     K50298667500                               D  1234568901846807001000}111099     K50291037500                               D  1234568901826387000400}111099     K50279837500                               D  1234568901858927000300}111099     K50304687500                               D  1234568901848381000300}111099     K50295267500                               D  1234568901860063000645N111099     K50320587500                               T                000020                                                         B9911110987654321K5991110 0022570} 555555555                                    M123456789       K50003140022570}00000000000000 111199                          D  0987654321803489001000}111099     K50323007500                               D  0987654321805914001000}111099     K50318017500                               D  0987654321806813002320}111099     K50297647500                               D  0987654321803752001500}111099     K50305247500                               D  0987654321800386007500}111099     K50281177500                               D  0987654321802408004000}111099     K50311537500                               D  0987654321803786001000}111099     K50314307500                               D  0987654321805377001500}111099     K50280107500                               D  0987654321805245000750}111099     K50275047500                               D  0987654321803802002000}111099     K50323667500                               T                000013                                                         $ENDFILE00000033                                                                
P�������� fS�B�U�$���:��� ����DISC                             1VISAPMTJ        QCPUB           AICS                            MGR     AICS    �fS5��U+�5��U+�5��U�$5��U�$��P�  5��U�$AICS            ��!JOB VISAPMTJ,MGR.CU1,QCPUB                                                     !COMMENT                                                                        !COMMENT  ***********************************************                       !COMMENT  ***  CREATE VISA PAYMENT TRANSMISSION FILE  ***                       !COMMENT  ***********************************************                       !COMMENT                                                                        !SHOWTIME                                                                       !FILE QCMACROF=VISAPMTM.QCPUB.CU1                                               !RUN QCX.QCPROGS.AICS                                                           !SHOWTIME                                                                       !COMMENT SET STDLIST=DELETE                                                     !EOJ                                                                             ��������9)fS�?�U�$����6�6�� ����DISC                             1VISAPMTM        QCPUB           AICS                            MGR     AICS    �fS5��?��5��?��5��@�P5��@�P6��76�����  5��@�PAICS            6�QCMACRO   VISAPMTM                                                                                                                                                                                                                                                 10  >******************************************************                                                                                                                                                                                                    20  >***  VISA PAYMENT/ADVANCE TRANSMISSION AND REPORT  ***                                                                                                                                                                                                    30  >******************************************************                                                                                                                                                                                                    40  /LOAD VISAPMTW                                                                                                                                                                                                                                             50  !!A:C                                                                                                                                                                                                                                                      60  >                                                                                                                                                                                                                                                          70  >*************************************                                                                                                                                                                                                                     80  >***  CREATE TRANSACTION DATABASE  ***                                                                                                                                                                                                                     90  >*************************************                                                                                                                                                                                                                    100  IF BA1=0 THEN DO                                                                                                                                                                                                                                          110  IF CA1=0 THEN DO                                                                                                                                                                                                                                          120  GOTO EXITPMT                                                                                                                                                                                                                                              130  DOEND                                                                                                                                                                                                                                                     140  /PRINTDB C VISAPMT                                                                                                                                                                                                                                        150  DOEND                                                                                                                                                                                                                                                     160  >                                                                                                                                                                                                                                                         170  IF BA1>0 THEN DO                                                                                                                                                                                                                                          180  /PRINTDB B VISAPMT                                                                                                                                                                                                                                        190  IF CA1>0 THEN DO                                                                                                                                                                                                                                          200  /PRINTDB C VISAPMT APPEND                                                                                                                                                                                                                                 210  DOEND                                                                                                                                                                                                                                                     220  DOEND                                                                                                                                                                                                                                                     230  >                                                                                                                                                                                                                                                         240  >***********************************                                                                                                                                                                                                                      250  >***  PRINT TRANSACTION REPORTS  ***                                                                                                                                                                                                                      260  >***********************************                                                                                                                                                                                                                      270  !!D:G                                                                                                                                                                                                                                                     280  /PRINTER SD 3001                                                                                                                                                                                                                                          290  /PRINT E S FORMD                                                                                                                                                                                                                                          300  /PRINT F:G S 2                                                                                                                                                                                                                                            310  >                                                                                                                                                                                                                                                         320  >**********************************                                                                                                                                                                                                                       330  >***  CREATE TRANSMISSION FILE  ***                                                                                                                                                                                                                       340  >**********************************                                                                                                                                                                                                                       350  /PRINTER LP                                                                                                                                                                                                                                               360  LINES=1                                                                                                                                                                                                                                                   370  RIGHT=80                                                                                                                                                                                                                                                  380  !!HA1:HZ20                                                                                                                                                                                                                                                390  !!I                                                                                                                                                                                                                                                       400  /PRINT I D VISAPMTD                                                                                                                                                                                                                                       410  >                                                                                                                                                                                                                                                         420  LISTFILE #1=!P                                                                                                                                                                                                                                            430  ON END OF LIST #1 EXITPMTLOOP                                                                                                                                                                                                                             440  PMTLOOP:                                                                                                                                                                                                                                                  450  READ LISTFILE #1                                                                                                                                                                                                                                          460  HD20:$"%LISTITEM1"                                                                                                                                                                                                                                        470  !!HA21:HZ90                                                                                                                                                                                                                                               480  !!I:Z                                                                                                                                                                                                                                                     490  /PRINT J:M D VISAPMTD                                                                                                                                                                                                                                     500  GOTO PMTLOOP                                                                                                                                                                                                                                              510  EXITPMTLOOP:                                                                                                                                                                                                                                              520  /PRINT N D VISAPMTD                                                                                                                                                                                                                                       530  EXITPMT:                                                                                                                                                                                                                                                  540  /SAVE VISAPMTW                                                                                                                                                                                                                                         9)��������8fS�<�U�$������ ����DISC                             1VISAPMTR        QCPUB           AICS                            MGR     AICS    �fS5��%�%5��%�%5��&4�5��&4���H�  5��&4�AICS            ��0                                                                       19991018                                                                19991019                                                                8��������r`fS�N�U�()���pp� ����DISC                             1VISAPMTT        QCPUB           AICS                            MGR     AICS    �fS5����5����5��J�5��J����%��P�( (  5��J�AICS            ��                 QueryCalc Reports for Credit Unions                                               written by:  Mizzou Credit Union                                                     last update:  11/12/99                                                                                                                                VISA PAYMENTS TRANSMISSION FOR CDS/EQUIFAX                                  --------------------------------------------------                                                                                                                                                                                    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 gathers VISA payment/advance information from the HISTRY            database(s) for a specified range of dates.  This information is                written into a KSAM database.  The database is then read to produce a           detail report of VISA transactions and formats an output file which             can be transmitted to Connect One for Equifax.                                                                                                                  This report has been automated to run each night without input or               interference from an operator.  A template is also provided which               allows the report to be run for operator determined date ranges.                                                                                                This model assumes 1) that your VISA program is offline, with Equifax           2) that the VISA command is used to record payments/advances, 3) that           that ATCH records are maintained for all VISA cards with a type code            of "V".                                                                                                                                                         Additionally, MCU uses multiple history databases, with                         HISTRY including the most recent quarter, and HISTRE containing the             previous quarter.  MCU is also open on Saturday, and closed on                  Sunday.  If either of these assumptions is not true for your credit             union, see the information below for procedures on how to change                this report.                                                                                                                                                                                                                                                                                                                    Files included                                                                  **********************************************************************                                                                                           1)  VISAPmtW  - QueryCalc worksheet                                             2)  VISAPmtM  - QueryCalc macro                                                 3)  VISAPmtR  - ASCII file which stores the dates                               4)  VISAPmtD  - sample ASCII file which is transmitted to Connect One           5)  VISAPmtJ  - job which runs the macro                                        6)  TVISAPm1  - template which runs the macro                                   7)  TVSAXmt1  - template which transmits the data to Connect One                8)  Readme   - this text file of instructions                                                                                                                  Databases accessed                                                              **********************************************************************          This report uses data from the following databases:                                                                                                                     HISTRE          [SPECTRUM IMAGE DATABASE]                                       HISTRY          [SPECTRUM IMAGE DATABASE]                                       MEMBRS          [SPECTRUM IMAGE DATABASE]                                       MEMBR2          [SPECTRUM IMAGE DATABASE]                                       VISAPMT-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:                                                                                                                                                 MDBO.SPECTRUM . . . . . . TRANSMISSION TEMPLATE                                      DATA.CU1 . . . . . . TEMPLATES                                                 QCPUB.CU1 . . . . . . JOBS                                                                . . . . . . MACROS                                                              . . . . . . WORKSHEETS                                                          . . . . . . ASCII READ FILES                                                    . . . . . . ASCII OUTPUT FILES                                                                                                               NOTES:                                                                          ------                                                                          a)  If this group does not exist, your system administrator can                     create it.  This is a handy way of keeping your QueryCalc                       reports separate from the other files on your system.  The                      capabilities that should be assigned are BA, IA and PH.                         The security should be set to Read/Any, Write/AC, Append/AC,                    Lock/AC, Execute/Any.                                                                                                                                       b)  After due consideration, MCU has adopted the following                          conventions.                                                                                                                                                    1)  We created new groups on the CU1 account for our                                QueryCalc reports.  QCPUB is one such group.  In this                           way, groups are used in the same manner that a                                  subdirectory on a PC is used - to help organize the                             files.  Further, the only thing that is stored in the                           group are QueryCalc reports and their related files.                                                                                                        2)  We have adopted a naming convention in which the last                           letter of the name indicates the type of file (e.g.                             W = Worksheet, M = Macro, J = Job).  The only exception                         to this was that we continued using Summit's convention                         of naming templates with a leading "T".                                                                                                             2)  Using Reflection, transfer the files, using LABEL mode transfer.                                                                                            3)  Once the transfer is complete, you may delete the files and                     directories from your PC hard drive.                                                                                                                                                                                                       Customizing the report for the credit union                                     **********************************************************************          The following steps should be taken to insure the report runs on your           system.                                                                                                                                                          1)  Modify the template (TVSAXMT1).  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 7 to the phone number appropriate to your                           credit union.                                                                                                                                               c)  Change line 9 to read from the group and account where the                      files were restored.                                                                                                                                        d)  Add any password formatting your system may require.                                                                                                    2)  Modify the template (TVISAPM1).  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 the macro line to read the macro from the group and                      account where the files were restored.                                                                                                                      d)  Add any password formatting your system may require.                                                                                                    3)  Modify the job (VISAPMTJ).  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 1 to logon to the group and account where the                       files were restored.                                                                                                                                        c)  Change the macro line to read the macro from the group and                      account where the files were restored.                                                                                                                      d)  Add any password formatting your system may require.                                                                                                        e)  Add this job to your end-of-day schedule.                                                                                                               4)  Modify the MACRO (VISAPMTM).                                                                                                                                    a)  In QueryCalc, type                                                                     /PROG VISAPMTM                                                                                                                                       b)  Change line 280 to a postscript printer defined by your                         credit union.                                                                                                                                               c)  Save the macro by typing "K"                                                                                                                                d)  Exit the macro by typing "E"                                                                                                                            5)  Modify the WORKSHEET (VISAPMTW).                                                                                                                                a)  Load the worksheet.  In QueryCalc, type                                                /LOAD VISAPMTW                                                                                                                                       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)  This worksheet assumes that multiple history databases                          are used.  HISTRY contains the most recent information,                         and HISTRE contains the next most recent.                                                                                                                       a) If you use a database other than HISTRE for the next                            most recent history records, then close HISTRE                                         @CLOSEDB HISTRE                                                          and open the correct database                                                          @OPENDB HISTRx                                                           and change the references to the correct database                                      /S&R "HISTRE" "HISTRx" ALL                                                                                                                            b) If you do not use multiple history databases, you                               should close HISTRE                                                                    @CLOSEDB HISTRE                                                          and clear the page which reads this information                                        /CLR C                                                                   and modify the macro                                                                   /PROG VISAPMTM                                                                  D 100/170                                                                       D 190/220                                                                       K                                                                               E                                                                                                                                                 2)  This worksheet assumes that it is calculated on the day                         following the activity and that the credit union is                             typically open Monday - Saturday and closed on Sunday.                          Consequently, the date range that is automatically                              calculated is the previous day, except on Monday when it                        is Friday and Saturday.  If this does not reflect your                          schedule, you should modify AB24 and AB25.  Note:                               Sunday=1, Monday=2, etc.                                                                                                                                        a) AB24:  This formula subtracts 3 from from the beginning                         date range if the current date is Monday (2). Otherwise                         it subtracts 1.  Adjust this formula as needed.                                                                                                              b) AB25:  This formula subtracts 2 from from the ending                            date range if the current date is Monday (2). Otherwise                         it subtracts 1.  Adjust this formula as needed.                                                                                                          3)  AD35:  Change the merchant number to your own.                                                                                                              4)  AD36:  Change the history account number for your F&T code                      VP to your own.                                                                                                                                             5)  AD37:  Change the history account number for your F&T code                      VA to your own.                                                                                                                                             6)  AD39:  Change the prefix for your VISA classic program to                       your own.  This should be the first 10 digits.                                                                                                              7)  AD40:  Change the check digit offset for your VISA classic                      prefix to the check digit that is calculated using the mod                      10 - double add double routine, on the prefix you entered                       into AD39.  (Multiply the first digit by 2, the second                          digit by 1, the third by 2, the fourth by 1, etc.)  Then                        sum the results and put the calculation here.                                                                                                                   Eg:  Prefix = 5128341234                                                             Check digit = 5x2 = 10                                                                        1x1 =  1                                                                        2x2 =  4                                                                        8x1 =  8                                                                        3x2 =  6                                                                        4x1 =  4                                                                        1x2 =  2                                                                        2x1 =  2                                                                        3x2 =  6                                                                        4x1 =  4                                                                             -----                                                                 ---->>>>   47                                                                                                                                 8)  AD42:  Change the prefix for your VISA gold program to                          your own.  This should be the first 10 digits.                                                                                                              9)  AD43:  Change the check digit offset for your VISA gold                         prefix to the check digit that is calculated using the mod                      10 - double add double routine, on the prefix you entered                       into AD42.  (See above)                                                                                                                                  e)  Page B:                                                                                                                                                        1)  BA14:  Change the formula to the first 7 digits of the                          classic and gold prefix.                                                                                                                                 f)  Page C:                                                                                                                                                        1)  CA14:  Change the formula to the first 7 digits of the                          classic and gold prefix.                                                                                                                                 g)  Page F:  Batch Control Summary Report for Classic VISA                                                                                                         1)  FJ9:  Input your Corporate ID number.                                                                                                                       2)  FC58:  Enter the name of the person this report will be                         faxed to.                                                                                                                                                   3)  FC59:  Enter the location of the person this report will                        be faxed to.                                                                                                                                             h)  Page G:  Batch Control r`;�fS�N�U�()���p;�;�����Summary Report for Gold VISA                                                                                                            1)  GJ9:  Input your Corporate ID number.                                                                                                                       2)  GC58:  Enter the name of the person this report will be                         faxed to.                                                                                                                                                   3)  GC59:  Enter the location of the person this report will                        be faxed to.                                                                                                                                             i)  Save the worksheet.                                                                    /SAVE VISAPMTW                                                                                                                                                                                                                                                                                                  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 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.                                                                                                                                         ;���������r`fS�9�U�$��z�pp� ����DISC                             1VISAPMTW        QCPUB           AICS                            MGR     AICS    �fS5���5���5���T5���T�*�kkj�*��ll5���TAICS            �*�*- V2.00 14561  199911121999111211:30  2��$FB� � %DAT$2(SYSDATE) �199911129T � %MIZZOU CREDIT UNION �d E T � %VISA Payment Transmission File �d;��$ � %"As Of: "+DAT$6(AD28) �
dNAs Of: 11/11/995�z$ � %E8+" - Page A" �d VISAPMTW.QCPUB.CU1 - Page A$�$�"�6�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`;�u$ � %"RUN TIME: "+HRS$(12) �dRUN TIME: 1:10 AMA�HN@` �A %READ("VISAPMTR",B9:B11,C,RTX) �D-�T � %FILENAME: �%6�T � %VISAPMTW.QCPUB.CU1 �%�T � %0 �0�T � %MACRO NAME: �6�T � %VISAPMTM.QCPUB.CU1 �A$�$�$�6�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`,�TFBz� � %19991018 �.�T � %JOB NAME: �H�T � %TVISAPM1.DATA/TVSAXMT1.MDBO.SPECTRUM �,TFBz� � %19991019 �/T � %DISK FILE: �6	T � %VISAPMTD.QCPUB.CU1 �0<T � %ASSUMPTIONS: � %VISAPMTM.QCPUB.CU1 �A$�$�$�6�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %VISAPMTR.QCPUB exists �.�T � %DATABASES: �*�T � %HISTRY �*�T � %HISTRE �*�T � %MEMBRS �*�T � %MEMBR2 �0�T � %VISAPMT-PRDB �2��$FB� � %DAT$2(SYSDATE) �19991112A$�$�$�"�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`#*  � �R0��N@� � %WEEKDAY(B22) �1BT � %SCRATCH DATA �dI3��N� � %IF(B23=2,-3,-1) �3��N� � %IF(B23=2,-2,-1) �T)tT � %VALUE �T/uT � %DESCRIPTION �$2�X$ � %DAT$6(SYSDATE) �11/12/99$�$�$�"�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 �G�>$FB�� � %IF$(B9=1,DAT$2(B10),DAT$2(B22,B24)) �C19991111;�T � 'Beginning Report Date �G�$$FB�� � %IF$(B9=1,DAT$2(B11),DAT$2(B22,B25)) �199911118�T � 'Ending Report Date �3�NB�� � %YEAR(SYSDATE)-1 �)11/12/99$�$�$R"�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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�
$D��@ � %DAT$1(SYSDATE) �991112;�T � 'Date of Dep (YYMMDD) �.��$F8�� � %B30+"1231" �19981231M��$D,�� � %SUB$(D30,3,4)+SUB$(D30,5,6)+SUB$(D30,1,2) �,111299>T � 'Deposit Transaction Date �+��NCƟ� � %JD(B31) �SDATE)-1 �)11/12/99$�$�$R"�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`/��NB� � %JD(D28)-B32 �=+T � 'Julian Date of Deposit �-^NF���P � %123456789 ��?_T � 'Routing & Transit Number �0-xTF���P � %123456789 �4yT � 'Merchant Number �-�NGw5�J � %999999141 �-�)11/12/99$�$�$�"�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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�T � 'F&T Code for VISA Payments �-�NGw5�� � %999999211 �B�T � 'F&T Code for VISA Advances �.�TF���P � %0123456789 �G�T � 'VISA Classic Prefix Plan Number �&�NAf � %51 �?�T � 'VISA Classic Check Digit �$�$�$�"�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`..TF���P � %0123456789 �D/T � 'VISA GOLD Prefix Plan Number �&HNAJ � %37 �<IT � 'VISA Gold Check Digit �.�T � %PAGE DATA �d(�T � %PAGE �,�T � %CONTENTS �%2T � %A �it �$�$�$�$[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`+3T � 'Scratch �%LT � %B �9MT � 'HISTRY: VISAPMT-PRDB �%fT � %C �9gT � 'HISTRE: VISAPMT-PRDB �%�T � %D �9�T � 'Form: VISA Payments �T%�T � %E �A �it �$�$�$�"[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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: VISA Payments �%�T � %F �E�T � 'Batch Control Summary: Classic �%�T � %G �TB�T � 'Batch Control Summary: Gold �%T � %H � /T � 'Scratch II � A �it �$�$�$�"[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %I �e@T � 'Identification File Header �%6T � %J � ;7T � 'Deposit Header Record �%PT � %K �<QT � 'Merchant Header Record �%jT � %L � � 'Scratch II � A �it �$�$�$�"[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`DkT � 'Cardholder Transaction Records �%�T � %M �%<�T � 'Deposit Trailer Record �%�T � %N �%A�T � 'Identification File Trailer �'rchant Header Record �%jT � %L � � 'Scratch II � A �it �$�$��"[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`���R * � %USING HISTRY.SH-HISTORY, FIND WHEN ENTRY-DATE IB [AD28],[AD29] AND COMMAND=13 AND TYPE=100 `C��RGw5�J * � %REREADING, VAL OF ACCOUNT �&T � %FT �F��RC�  * � %REREADING, VAL OF AMOUNT-SH �D��RC�n * � %REREADING, VAL OF SEQUENCE ��it �$�$��"[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`,PT � %SEQUENCE �G��Q� * � %REREADING, VAL OF DESCRIPTION �N4414420009803802*jT � %NUMBER �G�}Q * � %REREADING, VAL OF TELLER-INTL �FMCT*�T � %TELLER �F�cRFB�� * � %REREADING, VAL OF ENTRY-DATE �SEQUENCE ��it �$�$�$Q"[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %ENTRY �J�IRFB�� * � %REREADING, VAL OF EFFECTIVE-DATE �(�T � %DATE �F�/$� � %RJS$("00000000000000000000"+A5,20) ���RCȴ � %USING MEMBR2.ATM-FILE, VAL OF ACCOUNT WHEN TYPE-CODE="V" AND ATM-CARD-ACCT=[$A9];LIMIT=1 b+�T � %ACCOUNT �$�$�"Q"[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`@��Q * � %REREADING, VAL OF NAME �TUNCAN/ERDAL UI(T � %NAME �*��NÎ  � %A3*-1 �* T � %AMOUNT �0��$� � %SUB$(A5,1,7) �Y��$� � %IF$(A13=1234567,"CLASSIC",IF$(A13=7654321,"GOLD","")) �T(TT � %TYPE �UNT �$�$�$�[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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$($A14=$"CLASSIC",{AD39},IF$($A14=$"GOLD",{AD42},"")) �*nT � %PREFIX �4�y$@� � %SUB$({A5},11,11) �84�_$ � %SUB$({A5},12,12) �0A4�E$@` � %SUB$({A5},13,13) �344�+$@� � %SUB$({A5},14,14) �8T � %TYPE �UNT �$�$�$R[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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$({A5},15,15) �0I)��NA � %A16*2 �T)��N � %A17*1 �$)��N@� � %A18*2 �)��N@� � %A19*1 �,)��N � %A20*2 �H�uN@� � %INT(A21/10)+INT((FRC(A21/10)*10)+.5) �8T � %TYPE �UNT �$�$�$�[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`H�[N � %INT(A22/10)+INT((FRC(A22/10)*10)+.5) �H�AN@� � %INT(A23/10)+INT((FRC(A23/10)*10)+.5) �H�'N@� � %INT(A24/10)+INT((FRC(A24/10)*10)+.5) �H�
N � %INT(A25/10)+INT((FRC(A25/10)*10)+.5) �@��NAJ � %IF(A15={AD39},{AD40},{AD43}) �0��NAt � %SUM(A26:A31) �$�$�$Q[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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@� � %INT(FRC(A32/10)*10+.5) �6��N@@ � %IF(A33=0,0,10-A33) �)\T � %CKDIG �2��$@@ � %SUB$(A5,16,16) �2?�q$ � %IF$($A34=$A35,"OK","ERROR") �1OK+�T � %FLAGDIG �A={AD39},{AD40},{AD43}) �0��NAt � %SUM(A26:A31) �$�$�$Q[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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�W$C50 � %IF$(A2=AD36,IF$(A12<0,"7500","8000"),IF$(A12<0,"2700","0700")) |7500*�T � %REASON �%�N@� � %4 ����R * � %USING HISTRE.SH-HISTORY, FIND WHEN ENTRY-DATE IB [AD28],[AD29] AND COMMAND=13 AND TYPE=100 `C��RGw5�J * � %REREADING, VAL OF ACCOUNT �2A31) �$�$�Q[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %FT �E��RC�� * � %REREADING, VAL OF AMOUNT-SH �D��RC�B * � %REREADING, VAL OF SEQUENCE �,PT � %SEQUENCE �G��Q� * � %REREADING, VAL OF DESCRIPTION �=4238970019851591*jT � %NUMBER �EADING, VAL OF ACCOUNT �2A31) �$�$�$Q[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`G�}Q * � %REREADING, VAL OF TELLER-INTL � KAGA*�T � %TELLER �F�cRFBd� * � %REREADING, VAL OF ENTRY-DATE �)�T � %ENTRY ��J�IRFBd� * � %REREADING, VAL OF EFFECTIVE-DATE �(�T � %DATE �EADING, VAL OF ACCOUNT �2A31) �$�$�$Q[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`F�/$� � %RJS$("00000000000000000000"+A5,20) ���RC܏ � %USING MEMBR2.ATM-FILE, VAL OF ACCOUNT WHEN TYPE-CODE="V" AND ATM-CARD-ACCT=[$A9];LIMIT=1 b+�T � %ACCOUNT �@��Q * � %REREADING, VAL OF NAME �EAVES/CARL JASON(T � %NAME �OF ACCOUNT �2A31) �$�$�Q[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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Ç� � %A3*-1 �0* T � %AMOUNT �0��$� � %SUB$(A5,1,7) �Y��$� � %IF$(A13=1234567,"CLASSIC",IF$(A13=7654321,"GOLD","")) �(TT � %TYPE �[��$� � %IF$($A14=$"CLASSIC",{AD39},IF$($A14=$"GOLD",{AD42},"")) �A*nT � %PREFIX �$�$�$�[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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�y$@� � %SUB$({A5},11,11) �84�_$@� � %SUB$({A5},12,12) �54�E$@ � %SUB$({A5},13,13) �1%4�+$@� � %SUB$({A5},14,14) �54�$@� � %SUB$({A5},15,15) �9�)��NA � %A16*2 �A)��N@� � %A17*1 �*nT � %PREFIX �$�$�$�[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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@@ � %A18*2 �1)��N@� � %A19*1 �U)��NA � %A20*2 �H�uN@� � %INT(A21/10)+INT((FRC(A21/10)*10)+.5) �H�[N@� � %INT(A22/10)+INT((FRC(A22/10)*10)+.5) �H�AN@@ � %INT(A23/10)+INT((FRC(A23/10)*10)+.5) �A17*1 �*nT � %PREFIX �$�$�$Q[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`H�'N@� � %INT(A24/10)+INT((FRC(A24/10)*10)+.5) �H�
N@� � %INT(A25/10)+INT((FRC(A25/10)*10)+.5) �@��NAf � %IF(A15={AD39},{AD40},{AD43}) �0��NA� � %SUM(A26:A31) �:��N@� � %INT(FRC(A32/10)*10+.5) �6��N@ � %IF(A33=0,0,10-A33) � � %PREFIX �$�$�$Q[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %CKDIG �N2��$@ � %SUB$(A5,16,16) �1?�q$ � %IF$($A34=$A35,"OK","ERROR") �OK+�T � %FLAGDIG �b�W$C50 � %IF$(A2=AD36,IF$(A12<0,"7500","8000"),IF$(A12<0,"2700","0700")) |7500*�T � %REASON �%�N@� � %4 �F �$�$�$�[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`9T � %MIZZOU CREDIT UNION �d: T � %VISA Payments Report �dL��$ � %"For: "+DAT$3(AD28)+" - "+DAT$3(AD29) �1For: November 10, 1999 - November 10, 1999(;��$ � %"RUN TIME: "+HRS$(12) �RUN TIME: 1:25 AMA�{$ � %"RUN DATE: "+DAT$3(SYSDATE) �F �$�$�$�[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`RUN DATE: November 11, 1999Z'�u$ � %AE8 �VISAPMTW.QCPUB.CU1+�T � %Savings �
d(�T � %VISA �
d*�T � %Verify �
d(�T � %TYPE �
d'�T � %TLR �
dU(�T � )NAME �
d+�T � %Account �
dF �$�$�$�$[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 �
d.�T � %Account # �
d(�T � %Card �
dZ��R� * �A %USING VISAPMT-PRDB.VISAPMT, FIND WHEN FT=[AD36] �A��RFB�� * � %REREADING, VAL OF ENTRY �)T � %SORT1 �&T � %1A �� %Account �
dF �$�$�$�$[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`@��Q * � %REREADING, VAL OF TYPE �GOLD(6T � %TYPE �B��Q� * � %REREADING, VAL OF PREFIX �
0441442200*PT � %PREFIX �B��Q * � %REREADING, VAL OF TELLER �MCT*jT � %TELLER � � %1A �� %Account �
dF �$�$�$Q$[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`@�}Q * � %REREADING, VAL OF NAME �TUNCAN/ERDAL U)�T � %SORT2 �&�T � %2A �C�cRCȴ * � %REREADING, VAL OF ACCOUNT �+�T � %ACCOUNT �LC�IRÎ  * �A %REREADING, VAL OF AMOUNT � � %1A �� %Account �
dF �$�$�$Q$[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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�/Q� * � %REREADING, VAL OF NUMBER �4414420009803802)�T � %SORT3 �&�T � %3A �D�RC�n * � %REREADING, VAL OF SEQUENCE �'�T � %SEQ �C��Q * � %REREADING, VAL OF FLAGDIG �OK � %1A �� %Account �
dF �$�$�$Q$[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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$($A11=$"ERROR","4","") �)d* T � %VERIFY �b��$ � %NAM$(SUB$(A6,1,POS(A6,"/")-1)+", "+SUB$(A6,POS(A6,"/")+1,30)) }Tuncan, Erdal UU(:T � %NAME �E��$ � %SUB$(A9,11,13)+"-"+SUB$(A9,14,16) �G803-802*TT � %NUMBER ��
dF �$�$�$Q$[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`+��NA� �A %A8/-100 �R*nT � %AMOUNT �-�y$ � %DAT$6(A2) �%11/10/99)�T � %ENTRY �"2�_$ � %DAT$6(SYSDATE) �11/11/99)�T � %TODAY �D�E$� � %SUB$(A9,1,10)+"-"+SUB$(A9,11,16) �(�T � %CARD �$�$�$�"[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %BATCH CONTROL SUMMARY �d1�T � %Credit Union �9�T � %Mizzou Credit Union �
d-�T � %Corp. ID �%*�TD8� � %123456 �
d(T � %Date �/T � %Prefix/Plan ��(��$F���P � %AD39 �
d$�$�$�[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`
0123456789+T � %CLASSIC �
d, T � %Mo/Dy/Yr �2��$ � %DAT$6(SYSDATE) �d11/11/99#@  � �,tT � %Payments �d.�T � %Superbatch �#�  � �.�T � %Superbatch �� %AD39 �
d$�$�$�$[6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Date �#�  � �(�T � %Sent �#�  � �(�T � %Post �*�T � %Number �#�  � ��*�T � %Amount �#�  � �$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Sent �#�  � �&�T � %By �#�  � �(�T � %Date ���RB΃�Q� �r %USING VISAPMT-PRDB.VISAPMT, SUM OF AMOUNT/-100 WHEN PREFIX=[$J11] AND REASON="7500" g
d*2��$ � %DAT$6(SYSDATE) �
d11/11/99 � �$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %MSH �
d2��$ � %DAT$6(SYSDATE) �
d11/11/998�T � %Payment Adjustments �d.�T � %Superbatch �#�  � �T.�T � %Superbatch �#�  � �2(�T � %Date �d11/11/99 � �$�$�$�"��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Sent �#�  � �(�T � %Post �*�T � %Number �#�  � �*�T � %Amount �#�  � �(�T � %Sent �#�  � �$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %By �#�  � �(�T � %Date �~��R �r %USING VISAPMT-PRDB.VISAPMT, SUM OF AMOUNT/100 WHEN PREFIX=[$J11] AND REASON="8000" h
d@��$ � %IF$(J32=0,"",DAT$6(SYSDATE)) �
d7��$ � %IF$(J32=0,"","MSH") �
d#�  � �$�$�$R$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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$(J32=0,"",DAT$6(SYSDATE)) �
d2�T � %Cash Advances �d.�T � %Superbatch �#�  � �E.�T � %Superbatch �#�  � �D(�T � %Date �#�  � ��  � �$�$�$�"��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Sent �#�  � �(�T � %Post �*�T � %Number �#�  � �*T � %Amount �#  � �(T � %Sent �#  � �&T � %By �$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Date �~��R �r %USING VISAPMT-PRDB.VISAPMT, SUM OF AMOUNT/100 WHEN PREFIX=[$J11] AND REASON="0700" h
d@��$ � %IF$(J43=0,"",DAT$6(SYSDATE)) �
d7��$ � %IF$(J43=0,"","MSH") �
d@��$ � %IF$(J43=0,"",DAT$6(SYSDATE)) �
d %By �$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Cash Advance Adjustments �d.T � %Superbatch �#  � � .T � %Superbatch �#  � �(T � %Date �#  � �"(T � %Sent �#	  � �By �$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Post �*T � %Number �#  � �*T � %Amount �#  � �( T � %Sent �#!  � �&"T � %By �##  � � ($T � %Date �$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`��R �r %USING VISAPMT-PRDB.VISAPMT, SUM OF AMOUNT/-100 WHEN PREFIX=[$J11] AND REASON="2700" g
d*@��$ � %IF$(J54=0,"",DAT$6(SYSDATE)) �
d7��$ � %IF$(J54=0,"","MSH") �
d@��$ � %IF$(J54=0,"",DAT$6(SYSDATE)) �
d'�T � %To: �#d )�T � %Angie �#d�$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %LCS �#dS;�T � %BATCH CONTROL SUMMARY �dA1�T � %Credit Union �9�T � %Mizzou Credit Union �
d-�T � %Corp. ID �*�TD8� � %123456 �
d(T � %Date �/T � %Prefix/Plan �d�$�$�$�"��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`(��$F���P � %AD42 �
d
0123456789(T � %GOLD �
d, T � %Mo/Dy/Yr �2��$ � %DAT$6(SYSDATE) �d11/11/99#@  � �,tT � %Payments �d.�T � %Superbatch �#�  � � � %Prefix/Plan �d�$�$�$�"��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Superbatch �#�  � �D(�T � %Date �#�  � �(�T � %Sent �#�  � �(�T � %Post �*�T � %Number �#�  � � � %Prefix/Plan �d�$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 �#�  � �(�T � %Sent �#�  � �&�T � %By �#�  � �(�T � %Date �*�T � %Number �#�  � � � %Prefix/Plan �d�$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`��RBƈ �r %USING VISAPMT-PRDB.VISAPMT, SUM OF AMOUNT/-100 WHEN PREFIX=[$J11] AND REASr`ejfS�9�U�$��z�pe*e*����ON="7500" g
d2��$ � %DAT$6(SYSDATE) �
d11/11/99'T � %MSH �
d2��$ � %DAT$6(SYSDATE) �
d11/11/99/�T � %Adjustments �d#.�T � %Superbatch �lan �d�$�$�$Q$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`#�  � �V.�T � %Superbatch �#�  � �(�T � %Date �#�  � �(�T � %Sent �#�  � �1(�T � %Post �*�T � %Number �atch �lan �d�$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`#�  � �V*�T � %Amount �#�  � �(�T � %Sent �#�  � �&�T � %By �#�  � �(�T � %Date �*�T � %Number �atch �lan �d�$�$�$�"��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`~��R �r %USING VISAPMT-PRDB.VISAPMT, SUM OF AMOUNT/100 WHEN PREFIX=[$J11] AND REASON="8000" h
d@��$ � %IF$(J32=0,"",DAT$6(SYSDATE)) �
d7��$ � %IF$(J32=0,"","MSH") �
d@��$ � %IF$(J32=0,"",DAT$6(SYSDATE)) �
d2�T � %Cash Advances �datch �lan �d�$�$��"��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Superbatch �#�  � �P.�T � %Superbatch �#�  � �6(�T � %Date �#�  � ��(�T � %Sent �#�  � �(�T � %Post � �lan �d�$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Number �#�  � �*T � %Amount �#  � � (T � %Sent �#  � � &T � %By �#  � ��(T � %Date � � �lan �d�$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`~��R �r %USING VISAPMT-PRDB.VISAPMT, SUM OF AMOUNT/100 WHEN PREFIX=[$J11] AND REASON="0700" h
d@��$ � %IF$(J43=0,"",DAT$6(SYSDATE)) �
d7��$ � %IF$(J43=0,"","MSH") �
d@��$ � %IF$(J43=0,"",DAT$6(SYSDATE)) �
d>�T � %Cash Advance Adjustments �d �lan �d�$�$��$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Superbatch �#  � �P.T � %Superbatch �#  � �6(T � %Date �#  � ��(T � %Sent �#	  � �(
T � %Post � �lan �d�$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %Number �#  � �*T � %Amount �#  � � ( T � %Sent �#!  � � &"T � %By �##  � ��($T � %Date � � �lan �d�$�$�$�$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`��R �r %USING VISAPMT-PRDB.VISAPMT, SUM OF AMOUNT/-100 WHEN PREFIX=[$J11] AND REASON="2700" g
d@��$ � %IF$(J54=0,"",DAT$6(SYSDATE)) �
d7��$ � %IF$(J54=0,"","MSH") �
d&@��$ � %IF$(J54=0,"",DAT$6(SYSDATE)) �
d'�T � %To: �#da)�T � %Angie �#d$�$�$R$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %LCS �#dP(T � %HIDE �9T � %MIZZOU CREDIT UNION �dE T � %VISA Payment Transmission File �d;��$ � %"As Of: "+DAT$6(AD28) �
dAs Of: 11/10/99T5�z$ � %E8+" - Page F" �d VISAPMTW.QCPUB.CU1 - Page F � %Angie �#d$�$�$R$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`;�u$ � %"RUN TIME: "+HRS$(12) �dRUN TIME: 1:25 AM-�T � %FILENAME: �T6�T � %VISAPMTW.QCPUB.CU1 �0�T � %MACRO NAME: �6�T � %VISAPMTM.QCPUB.CU1 �.�T � %JOB NAME: �" �d VISAPMTW.QCPUB.CU1 - Page F � %Angie �#d$�$�$R$��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`H�T � %TVISAPM1.DATA/TVSAXMT1.MDBO.SPECTRUM �/T � %DISK FILE: �6	T � %VISAPMTD.QCPUB.CU1 �#@  � �A1XT � %SCRATCH DATA �dA)�T � %VALUE �/�T � %DESCRIPTION �P(�B$FB�� � %AD28 �$�$�$���6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`199911100�T � 'Report Date �i�(R@@ � %USING VISAPMT-PRDB.VISAPMT, STORE IN !P PREFIX WHEN PREFIX<>"" |PJ�T � '!P = Prefix with Payments/Advances �0�$F���P � %"0123456789" �
0123456789*�T � 'Prefix �SCRIPTION �P(�B$FB�� � %AD28 �$�$�"���6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`f��R�n4� � %USING VISAPMT-PRDB.VISAPMT, SUM OF AMOUNT WHEN PREFIX=[$D20] ~-��R@� � %UCS, NUM �E6'T � 'Transaction Count �,��NDn4� � %ABS(B22) �+��N�ƈ �B %B22/100 �58AT � 'Net Deposit Amount �P(�B$FB�� � %AD28 �$�$�$R��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`:��$Dn4� � %RJS$("00000000"+B23,8) �002257001��$ � %SUB$(B24,8,8) �03[T � 'Trailing digit ����$ � %IF$(D24=0,"{",IF$(D24=1,"A",IF$(D24=2,"B",IF$(D24=3,"C",IF$(D24=4,"D",IF$(D24=5,"E",IF$(D24=6,"F",IF$(D24=7,"G",IF$(D24=8,"H","I"))))))))) 0{�7uT � 'Positive Overpunch �$�$�R��6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`��r$ � %IF$(D24=0,"}",IF$(D24=1,"J",IF$(D24=2,"K",IF$(D24=3,"L",IF$(D24=4,"M",IF$(D24=5,"N",IF$(D24=6,"O",IF$(D24=7,"P",IF$(D24=8,"Q","R"))))))))) 0}7�T � 'Negative Overpunch �AD�X$ � %SUB$(B24,1,7)+IF$(B22<0,D26,D25) �0022570};�T � 'Signed Deposit Amount � � 'Positive Overpunch �$�$�R��6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %$IDENT00 �(	��$G"N � %AD34 �	281580417F%	T � %F �,(	��$D��8 � %AD30 �991111%
T � %B �(
��$D��8 � %AD30 �991111(
��$� � %HD20 �&
T � %K5 �2
��$D��0 � %SUB$(HD18,3,8) �$�$�$�$I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`991110(
��$ � %HD27 �0022570}-
	TGB:5� � %555555555 �T%T � %M �$(��$� � %AD35 �&T � %K5 �9��$B� � %RJS$("000000"+AD32,6) �000314(��$ � %HD27 �0022570}2T � %00000000000000 �3,8) �$�$�$�$I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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,�� � %AD31 �111199_��R@� * �A %USING VISAPMT-PRDB.VISAPMT, FIND WHEN PREFIX=[$HD20] �@��Q * � %REREADING, VAL OF NAME �TUNCAN/ERDAL U&T � %1A �B��Q� * � %REREADING, VAL OF NUMBER �4414420009803802*6T � %NUMBER �3,8) �$�$�$R$I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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��RÎ  * � %REREADING, VAL OF AMOUNT �@��RFB�� * � %REREADING, VAL OF DATE �D�}RC�n * � %REREADING, VAL OF SEQUENCE �>�cRGw5�J * � %REREADING, VAL OF FT �B�IQC50 * � %REREADING, VAL OF REASON �7500*�T � %REASON � �3,8) �$�$�$R$I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`,�/NC�  � %ABS(A4) �:�$C�  � %RJS$("00000000"+A9,7) �0020000V1��$ � %SUB$(A10,7,7) ��0R���$ � %IF$(A11=0,"{",IF$(A11=1,"A",IF$(A11=2,"B",IF$(A11=3,"C",IF$(A11=4,"D",IF$(A11=5,"E",IF$(A11=6,"F",IF$(A11=7,"G",IF$(A11=8,"H","I"))))))))) 0{*�T � %REASON � �3,8) �$�$�$R$I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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$(A11=0,"}",IF$(A11=1,"J",IF$(A11=2,"K",IF$(A11=3,"L",IF$(A11=4,"M",IF$(A11=5,"N",IF$(A11=6,"O",IF$(A11=7,"P",IF$(A11=8,"Q","R"))))))))) 0}$C��$ � %SUB$(A10,1,6)+IF$(A4<0,A13,A12) �(002000},*TT � %AMOUNT �=��$D,~� � %SUB$(A5,5,8)+SUB$(A5,3,4) �111099(nT � %DATE �$�$�R$I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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" �}DF(�T � %TYPE �(�$ � %"K5" �K5(�T � %FILE �7�E$C�n � %RJS$("000000"+A6,6) �A032366'�T � %REF �=�+$ � %IF$($A8=$"0700","CHA","") �((�T � %AUTH � � %DATE �$�$�$�"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 � %T �*
��N@� � %HD22+3 �7
��$@� � %RJS$("000000"+E1,6) �000013(
ST � %HIDE �,T � %$ENDFILE �X��RA, � %USING VISAPMT-PRDB.VISAPMT, FIND WHEN PREFIX<>"" �/��NAB � %B1+(3*HD19) �U � � %DATE �$�$�$�"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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��$AB � %RJS$("00000000"+C1,8) �00000033(6T � %HIDE �(7T � %HIDE �,O 
 ,BXSA2JF2dd �,O 
 ,BXSB2J>2dd �,O 
 ,BXSA
2E
2dd �,O 
 ,BXSA
2E
2dd �,O 
 ,BXSA2J!2dd � � %DATE �$�$�$�"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 
 ,BX C
H,Pd �1-O 
 ,BX D
D>dd �; O 
 ,LN C
2C
2d �;!O 
 ,LN C
2C
2d �X-"O 
 ,BX C
HPd �A-5O 
 ,BX C
HPd �2-8O 
 ,BX F
F>dd �Jdd � � %DATE �$�$�$�"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 
 ,BXSG2Q
2dd �:;O 
 ,BXSG2Q
2dd �-<O 
 ,BX C
HPd �
-OO 
 ,BX C
HPd �-RO 
 ,BX H
H>dd �;TO 
 ,BX G2Q2d �
;UO 
 ,BX G2Q2d � � %DATE �$�$�$�"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`-VO 
 ,BX C
HPd �-iO 
 ,LN D3H32d �-lO 
 ,LN B;2J;2d �
;nO 
 ,LN G2Q2d �;oO 
 ,LN G2Q2d �;;pO 
 ,LN DZDZd �;-�O 
 ,BX C/
HDPd � � � %DATE �$�$�$�"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 
 ,BX B2J
2d
 �;�O 
 ,LN I2I2d �;�O 
 ,LN I2I2d �;�O 
 ,LN C
HPd �-�O 
 ,BX C1
H3Pd �;�O 
 ,LN K2K2d �;�O 
 ,LN K2K2d �$�$�$�"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 M2M2d �;�O 
 ,LN M2M2d �;�O 
 ,LN D3ZDDZd �;�O 
 ,LN O2O2d �;�O 
 ,LN O2O2d �2d �$�$�$Q"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 
 ,BX C/
H1Pd �;�O 
 ,LN JZL2Zd �;�O 
 ,LN JZL2Zd �;O 
 ,LN C!
H!Pd �;
O 
 ,LN J
ZJ
<Zd �;O 
 ,LN J
ZJ
<Zd �2d �$�$�$Q"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 C&
H&Pd �;$O 
 ,LN JZJZZd �;%O 
 ,LN JZJZZd �;9O 
 ,LN C)
H)Pd �;>O 
 ,BX G2Q"2d �;?O 
 ,BX G2Q"2d �2d �$�$�$Q"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`;XO 
 ,LN G2Q2d �;YO 
 ,LN G2Q2d �;rO 
 ,LN I2I"2d �;sO 
 ,LN I2I"2d �;�O 
 ,LN K2K"2d �;�O 
 ,LN K2K"2d �2d �$�$�$Q"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 M2M"2d �;�O 
 ,LN M2M"2d �;�O 
 ,LN O2O"2d �;�O 
 ,LN O2O"2d �;�O 
 ,BX G&2Q-2d �;�O 
 ,BX G&2Q-2d �2d �$�$�$Q"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 
 ,BX G12Q82d �;�O 
 ,BX G12Q82d �;O 
 ,LN G)2Q)2d �;O 
 ,LN G)2Q)2d �;(O 
 ,LN G42Q42d �;)O 
 ,LN G42Q42d �2d �$�$�$Q"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`;BO 
 ,LN I&2I-2d �;CO 
 ,LN I&2I-2d �;\O 
 ,LN K&2K-2d �;]O 
 ,LN K&2K-2d �;vO 
 ,LN M&2M-2d �;wO 
 ,LN M&2M-2d �2d �$�$�$Q"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 O&2O-2d �;�O 
 ,LN O&2O-2d �;�O 
 ,LN O12O82d �;�O 
 ,LN O12O82d �;�O 
 ,LN M12M82d �;�O 
 ,LN M12M82d �2d �$�$�$Q"I�6�6�"�6�6�6�6�6�6�6�6�6�6�6�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 K12K82d �;�O 
 ,LN K12K82d �;�O 
 ,LN I12I82d �;�O 
 ,LN I12I82d �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�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6`

6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6`6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�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^�
P6�6�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�6�6�6`<HISTRE.DATA.CU1              IM)+*%.(�HISTRE            <MEMBRS.DATA.CU1              IM)+*%.(�MEMBRS            <HISTRY.DATA.CU1              IM)+*%.(�HISTRY            <MEMBR2.DATA.CU1              IM)+*%.(�MEMBR2            <VISAPMT.QCDP.CU1             KS'G;8MVISAPMT-PRDB      QCREPRTB10      GROUP 1	20      HP$�$�$�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`�30      H,"FT",-8;"SEQUENCE",-18;"DESC",21;"TELLER",59;"ACCOUNT",-104;"MEMO",107;"NAME",145;"AMOUNT",-190;"FLAGNUM",193;"TYPE",231;"MERCHANT",-276;"NUMBER",279;"CKDIG",-324;"FLAGDIG",327	40      HT�50      D,FT,-8;SEQUENCE,-18;DESC,21;TELLER,59;ACCOUNT,-104;MEMO,107;NAME,145;AMOUNT,-190;FLAGNUM,193;TYPE,231;MERCHANT,-276;NUMBER,279;CKDIG,-324;FLAGDIG,327P$�$�$�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`l60      F,"---------",-8;"---------",-18;"---------",-104;"---------",-190;"---------",-276;"---------",-324f70      F,FT,-8,SUM;SEQUENCE,-18,SUM;ACCOUNT,-104,SUM;AMOUNT,-190,SUM;MERCHANT,-276,SUM;CKDIG,-324,SUM	80      FE90      ENDGROUPQCREPRTC10      GROUP 1N	20      HUNT,-190;FLAGNUM,193;TYPE,231;MERCHANT,-276;NUMBER,279;CKDIG,-324;FLAGDIG,327P$�$R$�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`�30      H,"FT",-8;"SEQUENCE",-18;"DESC",21;"TELLER",59;"ACCOUNT",-104;"MEMO",107;"NAME",145;"AMOUNT",-190;"FLAGNUM",193;"TYPE",231;"MERCHANT",-276;"NUMBER",279;"CKDIG",-324;"FLAGDIG",327	40      H;�50      D,FT,-8;SEQUENCE,-18;DESC,21;TELLER,59;ACCOUNT,-104;MEMO,107;NAME,145;AMOUNT,-190;FLAGNUM,193;TYPE,231;MERCHANT,-276;NUMBER,279;CKDIG,-324;FLAGDIG,327P$�$R$�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`l60      F,"---------",-8;"---------",-18;"---------",-104;"---------",-190;"---------",-276;"---------",-324f70      F,FT,-8,SUM;SEQUENCE,-18,SUM;ACCOUNT,-104,SUM;AMOUNT,-190,SUM;MERCHANT,-276,SUM;CKDIG,-324,SUM	80      FE90      ENDGROUPQCREPRTE    10  GROUP 1N    20  H,SKIPTO 10LS    30  D,UNIFY 5;TYPE,7;TELLER,17;NAME,25;ACCOUNT,-53;AMOUNT,-63;CARD,69;VERIFY,90    40  BREAKON ENTRY$�$�$�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`0    50  F,"----------",-54;"---------------",-64N    60  F,"TOTAL VISA PAYMENTS ON:",13;ENTRY,39;ACCOUNT,-53,NUM;AMOUNT,-63,SUM	    70  F-	    80  FU    90  ENDBREAK[   100  F,SKIPTO 61;"TOTAL PAYMENTS TRANSMITTED:",7;TODAY,40;ACCOUNT,-53,NUM;AMOUNT,-63,SUMR   110  ONNEWPAGEK   120  H,SKIPTO 10N   130  ENDPAGEE   140  ENDGROUPQCREPRTL    10  GROUP 1ERIFY,90    40  BREAKON ENTRY$�$�$K6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`L    20  D,TYPE,1;NUMBER,4;AMOUNT,20;DATE,27;FILE,38;REF,40;REASON,46;AUTH,52    30  ENDGROUP
^EODLTMPS^^EOQ$^(^qE;%q@|HX5dn6Bf-*"sdITTED:",7;TODAY,40;ACCOUNT,-53,NUM;AMOUNT,-63,SUMR   110  ONNEWPAGEK   120  H,SKIPTO 10N   130  ENDPAGEE   140  ENDGROUPQCREPRTL    10  GROUP 1ERIFY,90    40  BREAKON ENTRY$�6�6�6�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`�sd 3001 acct br01                                                                                                                                                                                                3001                                        ,-63,SUMR   110  ONNEWPAGEK   120  H,SKIPTO 10N   130  ENDPAGEE   140  ENDGROUPQCREPRTL    10  GROUP 1ERIFY,90    40  BREAKON ENTRY"6�6�6�6�6�6�"�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6�6[6�6�6�6�6�6`ej���������fS�K�U�(���00� ����DISC                             1TVISAPM1        QCPUB           AICS                            MGR     AICS    �fS5�ۚE+5�ۚE+5�ۛ/`5�ۛ/`0 GG0P�  5�ۛ/`AICS            00`                  VISA PAYMENTS AND TRANSMISSION                               `                                                                               ^~Enter Beginning VISA Payment Date (MMDDYY)  _6 DATE {020599} [STADATE]        ^~Enter Ending VISA Payment Date (MMDDYY)     _6 DATE {020599} [ENDDATE]        `                                                                               !JOB TVISAPM1,MGR.CU1,QCPUB;OUTCLASS=LP,1,1                                     !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 ***  FORMAT DATE2 = CCYYMMDD  ***                                      !COMMENT *********************************                                      !COMMENT                                                                        !SETVAR DYEAR RHT('[ENDDATE]',2)                                                !SETVAR DCENT LFT(RHT(HPDATEF,4),2)                                             !IF !DYEAR = 99                                                                 !   IF !DYEAR <> !HPYEAR                                                        !      SETVAR DCENT DCENT-1                                                     !   ENDIF                                                                       !ENDIF                                                                          !SETVAR DATE2 DCENT+DYEAR+LFT('[ENDDATE]',4)                                    !SHOWVAR                                                                        !COMMENT                                                                        !COMMENT  ************************                                              !COMMENT  *** MODIFY DATE FILE ***                                              !COMMENT  ************************                                              !COMMENT                                                                        !ECHO T VISAPMTR>CCARDS                                                         !ECHO C 1/10 TO '' A>>CCARDS                                                    !ECHO C 1/1 TO '1' 1/1>>CCARDS                                                  !ECHO C 1/1 TO '!DATE1' 2/2>>CCARDS                                             !ECHO C 1/1 TO '!DATE2' 3/3>>CCARDS                                             !ECHO K>>CCARDS                                                                 !ECHO Y>>CCARDS                                                                 !ECHO E>>CCARDS                                                                 !QUAD<CCARDS                                                                    !COMMENT                                                                        !COMMENT ************************************                                   !COMMENT ***  PRINT VISA PAYMENT REPORTS  ***                                   !COMMENT ************************************                                   !COMMENT                                                                        !FILE QCMACROF=VISAPMTM.QCPUB.CU1                                               !RUN QCX.QCPROGS.AICS                                                           !COMMENT                                                                        !COMMENT  ************************                                              !COMMENT  *** MODIFY DATE FILE ***                                              !COMMENT  ************************                                              !COMMENT                                                                        !ECHO T VISAPMTR>CCARDS                                                         !ECHO C 1/10 TO '0' 1/1>>CCARDS                                                 !ECHO K>>CCARDS                                                                 !ECHO Y>>CCARDS                                                                 !ECHO E>>CCARDS                                                                 !QUAD<CCARDS                                                                    !COMMENT                                                                        !TELLOP   **************************************************                    !TELLOP   ***> VISA PAYMENT REPORT HAS FINISHED FOR CU1 <***                    !TELLOP   **************************************************                    !COMMENT SET STDLIST=DELETE                                                     !EOJ                                                                            ����������fS�H�U�(���PP� ����DISC                             1TVSAXMT1        QCPUB           AICS                            MGR     AICS    �fS5�ہl�5�ہl�5�ہ�85�ہ�8PPP�  5�ہ�8AICS            PP!JOB TVSAXMT1,MGR.CU1,DATA;OUTCLASS=LP,1,1                                      !COMMENT                                                                        !COMMENT  This jobstream is used to transmit Visa payments data                 !COMMENT  to Connect1 for Equifax using TELAMON/TELEXFER.                       !COMMENT                                                                        !RUN TELEXFER.PUB.SYS                                                           #RJLINE 3780;LINECODE=EBCDIC;MAXRPB=3;CONNECT=DIAL,"1-608-245-6920";&           #            PRI=HIGH;DEV=110,960                                               #RJIN VISAPMTD.QCPUB.CU1;INCODE=ASCII;TRUNCATE=NO;MAXSIZE=-80,3;WAIT=15         #RJSTAT                                                                         #RJEND                                                                          !EOD                                                                            !TELLOP  *************************************                                  !TELLOP  *** TVSAXMT1 HAS FINISHED FOR CU1 ***                                  !TELLOP  *************************************                                  !COMMENT SET STDLIST=DELETE                                                     !EOJ                                                                            ������������������������STORE/RESTORE-HP/3000.MPEXL  *	� �������B5152AA  C602403/16/010000�������������������������