Previous Topic: Secondary ModeNext Topic: Secondary Mode Example 2


Secondary Mode Example 1

CA                                        16:28:10  24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS  VERSION nn.n                                  PAGE      1    ┌───────────────────────────────────────────────────┐    │ 1           OPTION  LIST ON MAP SORT=NONE         │ ◄  Enter Secondary mode explicitly     └───────────────────────────────────────────────────┘ 2            USER    CA      4            NOTE   ****************************************      5            NOTE   *                                      *      6            NOTE   *  THIS REPORTING FACILITY PROGRAM     *      7            NOTE   *  PRODUCES A SINGLE REPORT SHOWING A  *      8            NOTE   *  DETAIL LISTING OF THE TRANSACTION   *      9            NOTE   *  INPUT.  THE INPUT IS ASSUMED TO BE  *     10            NOTE   *  IN THE PROPER SEQUENCE, HENCE NO    *     11            NOTE   *  SORT IS NECESSARY.                  *     12            NOTE   *                                      *     13            NOTE   ****************************************     14            TRANSF:   INPUT CARD   ┌───────────────────────────────────────—─────────────────────────────────────┐   │ 16            DEF    TRANSACTION-CODE      1-2  X                           │   │ 17            DEF    ID-NUMBER             3-6  X                           │   │ 18            DEF    AMOUNT               7-13  N2  'TRANSACTION' 'AMOUNT ' │   │ 19            DEF    ACTIVITY-DATE       14-21  X  'DATE  OF'    'ACTIVITY' │ ◄  Single input card file    │ 20            DEF    CLEARED                22  X                           │   │ 21            DEF    PAYEE               23-42  X                           │   │ 22            DEF    REASON              44-75  X                           │   └─────────────────────────────────────────────────────────────────────────────┘   ┌──────────────────────────────—————————──────────────┐   │ 24            GET    TRANS                          │   │                                                     │ ◄  Could be omitted for primary file    │ 25            GOTO   EOJ WHEN TRANS EQ END-OF-FILE  │   └─────────────────────────────────────────────────────┘   ┌─────────────────────────────────────────────────────┐   │ 26            DECODE TRANSACTION-CODE INTO TYPE     │ ◄  Date translation    └─────────────────────────────────────────────────────┘     27                             'BF' = 'BALANCE BROUGHT FORWARD'     28                             'CK' = 'CHECK WRITTEN'     29                             'DP' = 'DEPOSIT'     30                             'NS' = 'NON-SUFFICIENT FUNDS'     31                             'SC' = 'SERVICE CHARGE'     32                              ELSE  'UNKNOWN TRANSACTION TYPE'     33                                    ' ' 'TYPE OF TRANSACTION'   ┌─────────────────────────────────────────────────────┐   │ 35            REPORT 'TRANSACTION DETAIL LISTING'   │   │ 36            SELECT ALL                            │ ◄ Single report definition group   │ 37            PRINT QSEQ TYPE ACTIVITY-DATE PAYEE   │ (Highlighted words in lines 37 and 38 are   │ 38                   REASON AMOUNT CURRENT-TIME     │ predefined field names/reserved words.)   │ 39   END                                            │   └─────────────────────────────────────────────────────┘          COMPILE PHASE COMPLETED - NO ERRORS FOUND                                    NO WARNINGS ISSUED          START 13:58:00 - STOP 13:58:00

CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 2 COMPILE DIAGNOSTICS I/P 00001 X 00080 = 00080 TRANS GSA 00000001059 (00000000070 ENTRIES) GSA 1 = 00000000001 NUMERIC CONSTANT ...... CON GSA 2 = 00000000021 QUOTED LITERAL ........ LIT GSA 3 = 00000000001 INTERMEDIATE RESULT ... RES GSA 4 = 00000000045 UNQUOTED LITERAL ...... INT GSA 5 = 00000000000 ACCUMULATOR ........... ACC GSA 6 = 00000000001 VALUE ................. VAL GSA 7 = 00000000000 STRING ................ STR GSA 8 = 00000000001 HEX LITERAL ........... HEX FNT 00000000646 (00000000038 ENTRIES) FNT 0 = 00000000005 LABELS ................ 01 FNT 1 = 00000000032 SCALAR VARIABLES ...... 01 FNT 2 = 00000000001 FILE DESC. BLOCKS ..... 02 FNT 3 = 00000000000 ARRAYS ................ 03 FST 00000003416 (00000000122 ENTRIES) FST 0 = 00000000004 INTERNAL ONLY ......... -02 FST 1 = 00000000002 USER/REPORT ........... 01 FST 2 = 00000000007 INPUT AREA VARIABLE ... 02 FST 3 = 00000000076 GSA VARIABLE .......... 03 FST 4 = 00000000002 DATA MOVEMENT ......... 04 FST 5 = 00000000006 DECODE ................ 05 FST 6 = 00000000001 SEQUENCE AND CONTROL .. 06 FST 7 = 00000000005 CONDITION TEST ........ 07 FST 8 = 00000000002 SELECTION ............. 08 FST 9 = 00000000008 PRINT LAYOUT .......... 09 FST A = 00000000007 HIT RECORD EXTENSION .. 0A FST B = 00000000002 GET RECORD ............ 0B FST C = 00000000000 CONTROL BREAK CALC .... 0C FST D = 00000000000 UNDEFINED ............. 0D FST E = 00000000000 ARRAY DEF/REL. INDEX .. 0E FST F = 00000000000 DUMMY ................. 0F GETMAIN REQUIREMENT FOR GSA/FNT/FST ... APPROX. 006K

CA                                        16:28:10  24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS  VERSION nn.n                                 PAGE      3      ------ FIELD NAME ------ ORIGIN  QUAL  HIT ARY  ----------------------------------- REPORTS ------------------------------      ABORT:                   *LABEL*      ACTIVITY-DATE            TRANS   (01)   X         1      AMOUNT                   TRANS   (01)   X         1      BLANK                    * GSA * (00)      CLEARED                  TRANS   (01)      CURRDATE                 * GSA * (00)      CURRENT-DATE             * GSA * (00)      CURRENT-TIME             * GSA * (00)   X         1      CURRTIME                 * GSA * (00)      DD                       * GSA * (00)      END-OF-FILE              * GSA * (00)      EOJ:                     *LABEL*      HR                       * GSA * (00)      ID-NUMBER                TRANS   (01)      MM                       * GSA * (00)      MN                       * GSA * (00)      NO-RECORD-FOUND          * GSA * (00)      PAYEE                    TRANS   (01)   X         1      QSEQ                     * GSA * (00)   X         1      REASON                   TRANS   (01)   X         1      RECORD-FOUND             * GSA * (00)      SPACE                    * GSA * (00)      SPACES                   * GSA * (00)      SS                       * GSA * (00)      START:                   *LABEL*      TAG                      * GSA * (00)      TEST:                    *LABEL*      TRANS                    * GSA * (00)      TRANS:                   *LABEL*      TRANSACTION-CODE         TRANS   (01)      TYPE                     * GSA * (00)   X         1      XD                       * GSA * (00)      XM                       * GSA * (00)      XY                       * GSA * (00)      YY                       * GSA * (00)      ZERO                     * GSA * (00)      ZEROS                    * GSA * (00)

CA                                        16:28:10  24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS  VERSION nn.n                                 PAGE      4                                                    (3350   ) ......H I T   F I L E   L A Y O U T......  FD  DROUT                                   DROUT:  FILE DISK SEQUENTIAL VARIABLE RECORD=         119 BLOCK=        4604        BLOCK CONTAINS        4604 CHARACTERS        RECORD CONTAINS         119 CHARACTERS        RECORDING MODE V        DATA RECORD IS HITFILE.  01  HITFILE.        02 RDW                             PICTURE X(4)                 DEFINE RDW                             1 -    4 X        02 TAG-CHARACTER                   PICTURE X                    DEFINE TAG-CHARACTER                   5 -    5 X        02 SORT-KEY.           03 REPORT-NUMBER                PICTURE B                    DEFINE REPORT-NUMBER                   6 -    6 B           03 USER-SORT-KEY                PICTURE X(9)                 DEFINE USER-SORT-KEY                   7 -   15 X        02 REPORT-01.                      TRANSACTION DETAIL LISTING           03 00.QSEQ                      PICTURE S9(9)        COMP-3  DEFINE 00.QSEQ                        16 -   20 P           03 00.TYPE                      PICTURE X(24)                DEFINE 00.TYPE                        21 -   44 X           03 01.ACTIVITY-DATE             PICTURE X(8)                 DEFINE 01.ACTIVITY-DATE               45 -   52 X           03 01.PAYEE                     PICTURE X(20)                DEFINE 01.PAYEE                       53 -   72 X           03 01.REASON                    PICTURE X(32)                DEFINE 01.REASON                      73 -  104 X           03 01.AMOUNT                    PICTURE 9(5)V99              DEFINE 01.AMOUNT                     105 -  111 N2           03 00.CURRENT-TIME              PICTURE X(8)                 DEFINE 00.CURRENT-TIME               112 -  119 X

CA                                        16:28:10  24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS  VERSION nn.n                                 PAGE      5   REPORT   01 FIELD NAME                  HDR1  HDR2  DTL   ACC   TOTAL       PICTURE            TAG   FROM   TO   LINE   01   00.QSEQ                        4          10            10         999999999-                1    10               00.TYPE                             19    24            24                                  13    36               01.ACTIVITY-DATE               8     8     8             8                                  39    46               01.PAYEE                       5          20            20                                  49    68               01.REASON                      6          32            32                                  72   103               01.AMOUNT                     11     8     9            11          99999.99-              107   117               00.CURRENT-TIME               12           8            12                                 121   132

CA 24 JUN 2010                                          TRANSACTION DETAIL LISTING                                    PAGE     1 --------------------------------------------------------------------------------------------------------------------------------    QSEQ                            DATE  OF  PAYEE                  REASON                             TRANSACTION  CURRENT-TIME          TYPE OF TRANSACTION       ACTIVITY                                                               AMOUNT --------------------------------------------------------------------------------------------------------------------------------      1   BALANCE BROUGHT FORWARD   01/01/10/* *                       BALANCE BROUGHT FORWARD    000       109.12    13:58:03      2   DEPOSIT                   01/01/10/* *                                                  000       500.00    13:58:03      3   CHECK WRITTEN             01/01/10  ABC NATIONAL BANK      CASH                         000        50.00    13:58:03      4   CHECK WRITTEN             01/01/10  ACME NATIONAL LIFE     JANUARY INS. PREMIUM         000        37.02    13:58:03      5   CHECK WRITTEN             01/01/10  SOUTHWEST TITLE CO.    JANUARY MORTGAGE PAYMENT     000       433.00    13:58:03      6   CHECK WRITTEN             01/03/10  TEXAS POWER & LIGHT    UTILITY BILL FOR DEC'07      000        62.15    13:58:03      7   CHECK WRITTEN             01/10/10  FOOD MART              GROCERIES                    000        22.87    13:58:03      8   DEPOSIT                   01/15/10                                                      000       824.07    13:58:03      9   CHECK WRITTEN             01/15/10  RICHBURG INS. AGENCY   CAR INSURANCE                000       412.89    13:58:03     10   CHECK WRITTEN             01/22/10  ABC NATIONAL BANK      CASH                         000       100.00    13:58:03     11   CHECK WRITTEN             01/22/10  SOUTHWESTERN BELL      PHONE BILL                   000        22.03    13:58:03     12   CHECK WRITTEN             01/23/10  ACME HAIR DESIGN       HAIRCUT                      000        17.00    13:58:03     13   CHECK WRITTEN             01/25/10  SEARS ROEBUCK          DRYER                        000       213.56    13:58:03     14   CHECK WRITTEN             01/27/10  ALL-NITE BOWLING       BOWLING BAG                  000        16.75    13:58:03     15   CHECK WRITTEN             01/30/10  ACME FINANCE           LOAN PAYMENT 1               000        89.98    13:58:03     16   NON-SUFFICIENT FUNDS      01/31/10                                                      000         6.00    13:58:03     17   SERVICE CHARGE            01/31/10                                                      000         4.00    13:58:03     18   DEPOSIT                   02/01/10                                                      000       922.00    13:58:03     19   CHECK WRITTEN             02/01/10  JOHN DOE               RETURN OF CASH ADVANCE       000       150.00    13:58:03     20   CHECK WRITTEN             02/03/10  SOUTHWEST TITLE CO.    FEBRUARY MORTGAGE PAYMENT    000       433.00    13:58:03     21   CHECK WRITTEN             02/05/10  TEXAS POWER & LIGHT    UTILITY BILL FOR JAN'08      000        59.11    13:58:03     22   CHECK WRITTEN             02/09/10  ACME NATIONAL LIFE     FEBRUARY INS. PREMIUM        000        37.02    13:58:03     23   CHECK WRITTEN             02/11/10  FOOD MART              GROCERIES                    000        68.29    13:58:03     24   CHECK WRITTEN             02/11/10  ABC NATIONAL BANK      CASH                         000        25.00    13:58:03     25   DEPOSIT                   02/17/10                         2007 INCOME TAX REFUND       000      1538.00    13:58:03     26   CHECK WRITTEN             02/20/10  ABC NATIONAL BANK      CASH                         000        50.00    13:58:03     27   CHECK WRITTEN             02/21/10  ACME FINANCE           LOAN PAYMENTS 2 AND 3        000       179.96    13:58:03     28   CHECK WRITTEN             02/27/10  SOUTHWEST TITLE CO.    MARCH/APRIL MORTGAGE PAYMENT 000       866.00    13:58:03     29   CHECK WRITTEN             02/28/10  COMPANY XYZ            SUIT                         000       120.42    13:58:03     30   CHECK WRITTEN             03/02/10  TEXAS POWER & LIGHT    UTILITY BILL FOR FEB'08      000        62.11    13:58:03     31   CHECK WRITTEN             03/02/10  ABC NATIONAL BANK      CASH                         000        25.00    13:58:03     32   SERVICE CHARGE            03/03/10                                                      000         4.00    13:58:03     33   CHECK WRITTEN             03/09/10  FOOD MART              GROCERIES                    000        72.80    13:58:03     34   CHECK WRITTEN             03/12/10  SOUTHERN AIRWAYS       TICKET TO LUBBOCK            000       227.89    13:58:03     35   DEPOSIT                   03/15/10                                                      000       922.00    13:58:03     36   CHECK WRITTEN             03/16/10  ABC NATIONAL BANK      CASH                         000       250.00    13:58:03     37   CHECK WRITTEN             03/27/10  ACME NATIONAL LIFE     MARCH/APRIL INS. PREMIUMS    000        74.04    13:58:03     38   CHECK WRITTEN             03/30/10  DISCOUNT AUTO STORE    BATTERY                      000        35.70    13:58:03     39   DEPOSIT                   04/01/10                                                      000       922.00    13:58:03     40   CHECK WRITTEN             04/02/10  V.O.I.D.                                            000         0.00    13:58:03     41   CHECK WRITTEN             04/02/10  TEXAS POWER & LIGHT    UTILITY BILL FOR MAR'08      000        47.18    13:58:03     42   CHECK WRITTEN             04/02/10  FOOD MART              GROCERIES                    000        25.90    13:58:03     43   CHECK WRITTEN             04/02/10  ABC NATIONAL BANK      CASH                         000       100.00    13:58:03     44   CHECK WRITTEN             04/10/10  ACME FINANCE           LOAN PAYMENT 4               000        89.98    13:58:03     45   CHECK WRITTEN             04/10/10  SOUTHWESTERN BELL      PHONE BILLS                  000        79.82    13:58:03     46   SERVICE CHARGE            04/10/10                                                      000         4.00    13:58:03     47   CHECK WRITTEN             04/10/10  ABC NATIONAL BANK      CASH                         000        50.00    13:58:03     48   CHECK WRITTEN             04/11/10  DISCOUNT AUTO STORE    TUNE-UP KIT                  000        21.60    13:58:03     49   CHECK WRITTEN             04/15/10  BERNY'S CHEVROLET      DOWN PAYMENT ON CORVETTE     000      1000.00    13:58:03     50   DEPOSIT                   04/15/10                         PARTIAL SAVINGS WITHDRAWAL   000      2922.00    13:58:03     51   CHECK WRITTEN             04/15/10  ABC NATIONAL BANK      CASH                         000        75.00    13:58:03

CA 24 JUN 2010                                            TRANSACTION DETAIL LISTING                                  PAGE     2 --------------------------------------------------------------------------------------------------------------------------------    QSEQ                            DATE  OF  PAYEE                  REASON                             TRANSACTION  CURRENT-TIME          TYPE OF TRANSACTION       ACTIVITY                                                               AMOUNT --------------------------------------------------------------------------------------------------------------------------------     52   CHECK WRITTEN             04/20/10  CITY OF DALLAS         PARKING TICKET               000         5.00    13:58:03     53   CHECK WRITTEN             04/20/10  ALL-NITE BOWLING       ENTERTAINMENT                000        11.55    13:58:03     54   CHECK WRITTEN             04/22/10  MODERNAGE TV           REPAIRS                      000        75.22    13:58:03     55   CHECK WRITTEN             04/25/10  BERNY'S CHEVROLET      CAR PAYMENT 1                000       179.00    13:58:03     56   CHECK WRITTEN             04/26/10  ABC NATIONAL BANK      CASH                         000        25.00    13:58:03     57   CHECK WRITTEN             04/26/10  ACME FINANCE           LOAN PAYMENT 5               000        89.98    13:58:03     58   CHECK WRITTEN             04/29/10  SOUTHWEST TITLE CO.    MAY MORTGAGE PAYMENT         000       433.00    13:58:03     59   DEPOSIT                   05/01/10                                                      000       922.00    13:58:03     60   CHECK WRITTEN             05/01/10  ABC NATIONAL BANK      CASH                         000        50.00    13:58:03     61   CHECK WRITTEN             05/01/10  ACME NATIONAL LIFE     MAY INS. PREMIUM             000        37.02    13:58:03     62   CHECK WRITTEN             05/01/10  TEXAS POWER & LIGHT    UTILITY BILL FOR APR'08      000        55.98    13:58:03     63   CHECK WRITTEN             05/01/10  BERNY'S CHEVROLET      CAR PAYMENT 2                000       179.00    13:58:03     64   CHECK WRITTEN             05/02/10  COMPANY XYZ            BRIEFCASE                    000        47.56    13:58:03     65   SERVICE CHARGE            05/02/10                                                      000         4.00    13:58:03     66   CHECK WRITTEN             05/05/10  ALL-NITE BOWLING       ENTERTAINMENT                000        21.60    13:58:03     67   CHECK WRITTEN             05/06/10  ABC NATIONAL BANK      CASH                         000        50.00    13:58:03     68   CHECK WRITTEN             05/10/10  SEARS ROEBUCK          WASHER                       000       256.75    13:58:03     69   CHECK WRITTEN             05/11/10  FOOD MART              GROCERIES                    000        53.89    13:58:03     70   CHECK WRITTEN             05/15/10  DISCOUNT AUTO STORE    MISC. AUTO PARTS             000        42.04    13:58:03     71   DEPOSIT                   05/15/10                                                      000       962.00    13:58:03     72   CHECK WRITTEN             05/15/10  BERNY'S CHEVROLET      CAR PAYMENT 3                000       179.00    13:58:03     73   CHECK WRITTEN             05/15/10  H & L FLORISTS         ROSES                        000        44.01    13:58:03     74   CHECK WRITTEN             05/15/10  COMPZNY XYZ            MISC.                        000        27.89    13:58:03     75   CHECK WRITTEN             05/16/10  ABC NATIONAL BANK      CASH                         000        50.00    13:58:03     76   CHECK WRITTEN             05/17/10  MODERNAGE TV           TV                           000       272.50    13:58:03     77   CHECK WRITTEN             05/17/10  RX DRUGS               PRESCRIPTION                 000        14.80    13:58:03     78   CHECK WRITTEN             05/17/10  ACME HAIR DESIGN       HAIRCUT                      000        17.00    13:58:03     79   CHECK WRITTEN             05/18/10  SOUTHWESTERN BELL      PHONE BILL                   000        55.39    13:58:03     80   CHECK WRITTEN             05/18/10  ALL-NITE BOWLING       ENTERTAINMENT                000        22.50    13:58:03     81   CHECK WRITTEN             05/18/10  JOHN DOE               RETURN CASH ADVANCE          000        01.00    13:58:03     82   CHECK WRITTEN             05/18/10  ABC NATIONAL BANK      CASH                         000        25.00    13:58:03     83   CHECK WRITTEN             05/20/10  ACME NATIONAL LIFE     JUNE INS. PREMIUM            000        37.02    13:58:03     84   CHECK WRITTEN             05/21/10  SOUTHWEST TITLE CO.    JUNE MORTGAGE PAYMENT        000       433.00    13:58:03     85   CHECK WRITTEN             05/21/10  ABC NATIONAL BANK      CASH                         000        25.00    13:58:03     86   DEPOSIT                   06/01/10                                                      000       962.00    13:58:03     87   CHECK WRITTEN             06/01/10  TEXAS POWER & LIGHT    UTILITY BILL FOR MAY'08      000        53.21    13:58:03     88   CHECK WRITTEN             06/02/10  ABC NATIONAL BANK      CASH                         000        50.00    13:58:03     89   CHECK WRITTEN             06/02/10  FOOD MART              GROCERIES                    000        82.40    13:58:03     90   CHECK WRITTEN             06/02/10  ALL-NITE BOWLING       ENTERTAINMENT                000        11.00    13:58:03     91   CHECK WRITTEN             06/05/10  V.O.I.D.                                            000         0.00    13:58:03     92   CHECK WRITTEN             06/05/10  ABC NATIONAL BANK      CASH                         000       150.00    13:58:03     93   DEPOSIT                   06/15/10                                                      000       962.00    13:58:03 END OF REPORT

RUN DIAGNOSTICS INDEX VIOLATIONS       00000000000 PROGRAM CHECKS         00000000000 HITS FOR REPORT   1  - 00000000093 TOTAL RECORDS SELECTED 00000000093