00001      05  WRK-COMPARE-DATE             PIC 9(9).                   08/02/02
00002      05  FILLER REDEFINES WRK-COMPARE-DATE.                       OJRIPARM
00003          10  FILLER                PIC X.                            LV001
00004          10  WRK-COMPARE-CC        PIC 9(2).                      OJRIPARM
00005          10  WRK-COMPARE-YY        PIC 9(2).                      OJRIPARM
00006          10  WRK-COMPARE-MO        PIC 9(2).                      OJRIPARM
00007          10  WRK-COMPARE-DA        PIC 9(2).                      OJRIPARM
00008      SKIP3                                                        OJRIPARM
00009      05  WRK-DISPLAY                  PIC 9(9).                   OJRIPARM
00010      05  FILLER REDEFINES WRK-DISPLAY.                            OJRIPARM
00011          10  FILLER                PIC X.                         OJRIPARM
00012          10  WRK-DISPLAY-C         PIC X(2).                      OJRIPARM
00013          10  WRK-DISPLAY-Y         PIC X(2).                      OJRIPARM
00014          10  WRK-DISPLAY-M         PIC X(2).                      OJRIPARM
00015          10  WRK-DISPLAY-D         PIC X(2).                      OJRIPARM
00016                                                                   OJRIPARM
00017      05  FILLER REDEFINES WRK-DISPLAY.                            OJRIPARM
00018          10  FILLER                PIC X(6).                      OJRIPARM
00019          10  WRK-DISPLAY-3         PIC X(3).                      OJRIPARM
00020                                                                   OJRIPARM
00021      05  FILLER REDEFINES WRK-DISPLAY.                            OJRIPARM
00022          10  FILLER                PIC X(3).                      OJRIPARM
00023          10  WRK-DISPLAY-EMP-1     PIC X(3).                      OJRIPARM
00024          10  WRK-DISPLAY-EMP-2     PIC X(3).                      OJRIPARM
00025                                                                   OJRIPARM
00026      05  FILLER REDEFINES WRK-DISPLAY.                            OJRIPARM
00027          10  FILLER                PIC X(2).                      OJRIPARM
00028          10  WRK-DISPLAY-ASSIGN-1  PIC X(2).                      OJRIPARM
00029          10  WRK-DISPLAY-ASSIGN-2  PIC X(5).                      OJRIPARM
00030                                                                   OJRIPARM
00031      05  FILLER REDEFINES WRK-DISPLAY.                            OJRIPARM
00032          10  FILLER                PIC X(3).                      OJRIPARM
00033          10  WRK-DISPLAY-LEVY-1    PIC X(2).                      OJRIPARM
00034          10  WRK-DISPLAY-LEVY-2    PIC X(4).                      OJRIPARM
00035                                                                   OJRIPARM
00036      05  FILLER REDEFINES WRK-DISPLAY.                            OJRIPARM
00037          10  FILLER                PIC X(3).                      OJRIPARM
00038          10  WRK-DISPLAY-LIEN-1    PIC X(2).                      OJRIPARM
00039          10  WRK-DISPLAY-LIEN-2    PIC X(4).                      OJRIPARM
00040                                                                   OJRIPARM
00041      05  FILLER REDEFINES WRK-DISPLAY.                            OJRIPARM
00042          10  FILLER                PIC X(3).                      OJRIPARM
00043          10  WRK-DISPLAY-REFUND-1  PIC X(2).                      OJRIPARM
00044          10  WRK-DISPLAY-REFUND-2  PIC X(4).                      OJRIPARM
00045                                                                   OJRIPARM
00046      05  FILLER REDEFINES WRK-DISPLAY.                            OJRIPARM
00047          10  FILLER                PIC X(4).                      OJRIPARM
00048          10  WRK-DISPLAY-QTR-C     PIC X(2).                      OJRIPARM
00049          10  WRK-DISPLAY-QTR-Y     PIC X(2).                      OJRIPARM
00050          10  WRK-DISPLAY-QTR-Q     PIC X(1).                      OJRIPARM
00051                                                                   OJRIPARM
00052 *    MOVE  MHDR-CMPL-WEEK-END-DATE TO WRK-DISPLAY.                OJRIPARM
00053 *    MOVE  WRK-DISPLAY-M TO MAP-CMPL-WEEK-END-MO.                 OJRIPARM
00054 *    MOVE  WRK-DISPLAY-D TO MAP-CMPL-WEEK-END-DA.                 OJRIPARM
00055 *    MOVE  WRK-DISPLAY-Y TO MAP-CMPL-WEEK-END-YR.                 OJRIPARM
00056                                                                   OJRIPARM