00001 *****                                                             10/24/05
00002 *                                                                 DTSIX150
00003 *    DTSIX150    T011 PRINT DEBIT MEMO EXTRACT RECORD                LV003
00004 *                                                                 DTSIX150
00005 *    PASSES REQUEST TO PRINT A DEBIT MEMO FROM THE SQL SERVER     DTSIX150
00006 *    DATABASE TO THE MAINFRAME.                                   DTSIX150
00007 *                                                                 DTSIX150
00008 *                                                                 DTSIX150
00009 *****                                                             DTSIX150
00010                                                                   DTSIX150
00011          15  X150-REC-TYPE              PIC  X(03) VALUE '150'.   DTSIX150
00012          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX150
00013          15  X150-EMP-NO                PIC  9(06).               DTSIX150
00014          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX150
00015          15  X150-OPID                  PIC  X(07).               DTSIX150
00016          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX150
00017          15  X150-APP                   PIC  X(02).               DTSIX150
00018          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX150
00019          15  X150-TRAN-CD               PIC  X(02).               DTSIX150
00020          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX150
00021          15  X150-START-YRQ             PIC  X(06).               DTSIX150
00022          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX150
00023          15  X150-END-YRQ               PIC  X(06).               DTSIX150
00024          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX150
00025          15  X150-BATCH                 PIC  9(05).               DTSIX150
00026          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX150
00027          15  X150-ITEM                  PIC  9(03).               DTSIX150
00028          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX150
00029          15  X150-ENTER-DATE            PIC  X(10).               DTSIX150