00001 *****                                                             07/27/98
00002 *                                                                 DTSIR203
00003 *   MACIR203   LIST OF CHECKS REPORT RECORD.                         LV001
00004 *                                                                 DTSIR203
00005 *****                                                             DTSIR203
00006      SKIP1                                                        DTSIR203
00007          10  R203-LENGTH         PIC S9(04)  COMP    VALUE +060.  DTSIR203
00008      SKIP1                                                        DTSIR203
00009          10  R203-SORT-AREA.                                      DTSIR203
00010              15  R203-REC-TYPE           PIC  X(03)  VALUE '203'. DTSIR203
00011              15  R203-CHECK-AMT          PIC S9(09)V99            DTSIR203
00012                                                      COMP-3.      DTSIR203
00013              15  R203-EMP-NO             PIC S9(07)  COMP-3.      DTSIR203
00014              15  R203-BATCH-NO           PIC S9(05)  COMP-3.      DTSIR203
00015              15  R203-ITEM-NO            PIC S9(03)  COMP-3.      DTSIR203
00016      SKIP1                                                        DTSIR203
00017          10  R203-DATA-AREA.                                      DTSIR203
00018              15  R203-BUSINESS-NAME      PIC  X(40).              DTSIR203