23 lines
1.7 KiB
COBOL
23 lines
1.7 KiB
COBOL
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
|