00001 *****                                                             07/01/08
00002 *                                                                 DTSIX151
00003 *    DTSIX151    T025 REFUND EXTRACT RECORD                          LV001
00004 *                                                                 DTSIX151
00005 *    PASSES REQUEST TO REFUND A CREDIT FROM THE SQL SERVER        DTSIX151
00006 *    DATABASE TO THE MAINFRAME.                                   DTSIX151
00007 *                                                                 DTSIX151
00008 *                                                                 DTSIX151
00009 *****                                                             DTSIX151
00010                                                                   DTSIX151
00011          15  X151-REC-TYPE              PIC  X(03) VALUE '151'.   DTSIX151
00012          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX151
00013          15  X151-EMP-NO                PIC  9(06).               DTSIX151
00014          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX151
00015          15  X151-OPID                  PIC  X(07).               DTSIX151
00016          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX151
00017          15  X151-APP                   PIC  X(02).               DTSIX151
00018          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX151
00019          15  X151-BATCH                 PIC  9(05).               DTSIX151
00020          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX151
00021          15  X151-ITEM                  PIC  9(03).               DTSIX151
00022          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX151
00023          15  X151-AMT                   PIC  --------9.99.        DTSIX151
00024          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX151
00025          15  X151-EXTRACT-DATE          PIC  X(10).               DTSIX151