00001 ******************************************************************03/22/04
00002 *             SEGMENT ONE - WAGE DATA                            *EWGSEG01
00003 ******************************************************************   LV008
00004     05 WGP-SEGMENT-ONE              PIC X(74).                       CL**7
00005     05 FILLER                                                     EWGSEG01
00006           REDEFINES                                               EWGSEG01
00007              WGP-SEGMENT-ONE.                                        CL**5
00008        10 WGP-KEY                   PIC X(12).                       CL**8
00009        10 FILLER                                                  EWGSEG01
00010              REDEFINES                                            EWGSEG01
00011                 WGP-KEY.                                          EWGSEG01
00012           15 WGP-SSN                PIC 9(9).                     EWGSEG01
00013           15 WGP-NAME-CHK           PIC X(3).                        CL**7
00014        10 WGP-SEGMENT-CTRS.                                       EWGSEG01
00015           15 WGP-SG1-CTR            PIC S9(4) COMP.               EWGSEG01
00016           15 WGP-SG1-START          PIC S9(8) COMP.               EWGSEG01
00017           15 WGP-SG2-CTR            PIC S9(4) COMP.               EWGSEG01
00018           15 WGP-SG2-START          PIC S9(8) COMP.               EWGSEG01
00019        10 FILLER REDEFINES WGP-SEGMENT-CTRS OCCURS 2 TIMES.       EWGSEG01
00020           15 WGP-SEG-CTR            PIC S9(4) COMP.               EWGSEG01
00021           15 WGP-SEG-STR            PIC S9(8) COMP.               EWGSEG01
00022        10 FILLER                    PIC X(50).                       CL**3