00001 *****                                                             09/21/10
00002 *                                                                 DTSIX149
00003 *    DTSIX149    ACCOUNTING BATCH HEADER RECORD                      LV001
00004 *                                                                 DTSIX149
00005 *    PASSES ACCOUNTING BATCH HEADERS FROM THE SERVER              DTSIX149
00006 *    DATABASE TO THE MAINFRAME.                                   DTSIX149
00007 *                                                                 DTSIX149
00008 *    05/28/2010  INITIAL DEVELOPMENT.                     GD      DTSIX149
00009 *                                                                 DTSIX149
00010 *****                                                             DTSIX149
00011                                                                   DTSIX149
00012          15  X149-REC-TYPE              PIC  X(03) VALUE '149'.   DTSIX149
00013          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00014          15  X149-PSEUDO-BATCH          PIC  9(05).               DTSIX149
00015          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00016          15  X149-PSEUDO-ITEM           PIC  9(03).               DTSIX149
00017          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00018          15  X149-ESTB-OPID             PIC  X(08).               DTSIX149
00019          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00020          15  X149-ESTB-DATE             PIC  X(10).               DTSIX149
00021          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00022          15  X149-DEPOSIT-DATE          PIC  X(10).               DTSIX149
00023          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00024          15  X149-RCVD-DATE             PIC  X(10).               DTSIX149
00025          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00026          15  X149-LAST-ITEM-NBR         PIC  9(03).               DTSIX149
00027          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00028          15  X149-CONTROL-TRAN-CNT      PIC  9(03).               DTSIX149
00029          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00030          15  X149-CONTROL-REMIT-AMT     PIC  --------9.99.        DTSIX149
00031          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00032          15  X149-CONTROL-CHECK-CNT     PIC  9(03).               DTSIX149
00033          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00034          15  X149-CHECK-SCAN-DATE       PIC  X(10).               DTSIX149
00035          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX149
00036          15  X149-ANN-BATCH-IND         PIC  X(01).               DTSIX149
00037              88  X149-ANN-BATCH-YES-88   VALUE 'Y'.               DTSIX149
00038              88  X149-ANN-BATCH-NO-88    VALUE 'N'.               DTSIX149