00001 *****                                                             01/11/13
00002 *                                                                 DTSIX156
00003 *    DTSIX156    PAYMENT DISTRIBUTION EXTRACT RECORD:                LV007
00004 *                                                                    CL**4
00005 *                                                                 DTSIX156
00006 *    PASSES DAILY PAYMENT DISTRIBUTION DATA FROM THE                 CL**4
00007 *    MAINFRAME TO THE SERVER DATABASE.                               CL**4
00008 *                                                                 DTSIX156
00009 *    01/08/2013  INITIAL DEVELOPMENT                       GD        CL**4
00010 *                                                                 DTSIX156
00011 *****                                                             DTSIX156
00012                                                                   DTSIX156
00013          15  X156-REC-TYPE              PIC  X(03) VALUE '156'.      CL**4
00014          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX156
00015          15  X156-EMP-NO                PIC  9(06).                  CL**4
00016          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX156
00017          15  X156-QUARTER               PIC  X(06).                  CL**4
00018          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX156
00019          15  X156-SRC-BATCH-NO          PIC  9(05).                  CL**6
00020          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX156
00021          15  X156-SRC-ITEM-NO           PIC  9(03).                  CL**6
00022          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX156
00023          15  X156-DST-BATCH-NO          PIC  9(05).                  CL**5
00024          15  FILLER                     PIC  X(01) VALUE ','.        CL**5
00025          15  X156-DST-ITEM-NO           PIC  9(03).                  CL**5
00026          15  FILLER                     PIC  X(01) VALUE ','.        CL**5
00027          15  X156-ACCOUNT               PIC  X(02).                  CL**4
00028          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX156
00029          15  X156-AMOUNT                PIC  ----------9.99.         CL**4
00030          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX156
00031          15  X156-MDST-DATE             PIC  X(10).                  CL**4
00032          15  FILLER                     PIC  X(01) VALUE ','.        CL**4
00033          15  X156-CURR-DATE             PIC  X(10).                  CL**4
00034          15  FILLER                     PIC  X(01) VALUE ','.        CL**4
00035          15  X156-SEQUENCE              PIC  9(07).                  CL**4
00036          15  FILLER                     PIC  X(01) VALUE ','.        CL**7
00037          15  X156-CALLED-BY             PIC  X(08).                  CL**7