00001 *****                                                             08/17/04
00002 *                                                                 DTSIR204
00003 *   DTSIR204   ACCOUNT NUMBER CHANGE REPORT RECORD.                  LV005
00004 *                                                                 DTSIR204
00005 *              SCREEN 24 GENERATES AN R204 REPORT RECORD          DTSIR204
00006 *              WHENEVER THE ACCOUNT NUMBER IS MODIFIED.           DTSIR204
00007 *              THE REPORT IS USED TO MOVE WAGE ITEMS FROM         DTSIR204
00008 *              THE OLD ACCOUNT NUMBER TO THE NEW ACCOUNT.         DTSIR204
00009 *****                                                             DTSIR204
00010      SKIP1                                                        DTSIR204
00011          10  R204-LENGTH         PIC S9(04)  COMP.                DTSIR204
00012      SKIP1                                                        DTSIR204
00013          10  R204-SORT-AREA.                                      DTSIR204
00014              15  R204-REC-TYPE           PIC  X(03)  VALUE '204'. DTSIR204
00015              15  R204-NEW-EMP-NO         PIC S9(07)  COMP-3.      DTSIR204
00016              15  R204-CHANGE-DATE        PIC S9(09)  COMP-3.      DTSIR204
00017      SKIP1                                                        DTSIR204
00018          10  R204-DATA-AREA.                                      DTSIR204
00019              15  R204-YRQ                PIC S9(05)  COMP-3.      DTSIR204
00020              15  R204-BATCH-NO           PIC S9(05)  COMP-3.      DTSIR204
00021              15  R204-ITEM-NO            PIC S9(03)  COMP-3.      DTSIR204
00022              15  R204-ORIG-EMP-NO        PIC S9(07)  COMP-3.      DTSIR204
00023              15  R204-TOT-WAGE           PIC S9(11)V99  COMP-3.   DTSIR204
00024              15  R204-OP-ID              PIC  X(08).              DTSIR204
00025                                                                   DTSIR204