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