22 lines
1.7 KiB
COBOL
22 lines
1.7 KiB
COBOL
00001 ***** 01/21/05
|
|
00002 * ES2ETTV1
|
|
00003 * ES2ETTV1: EMPLOYEE TRANSACTION TRANSFER RECORD LV001
|
|
00004 * FOR ES202 EXTRACT. ES2ETTV1
|
|
00005 * THIS RECORD TRACKS THE MOVEMENT OF WORKERS FROM ONE ES2ETTV1
|
|
00006 * EMPLOYER TO ANOTHER DURING TWO CONSECUTIVE QUARTERS. ES2ETTV1
|
|
00007 * ES2ETTV1
|
|
00008 * 6/23/2004 INITIAL DEVELOPMENT. GD ES2ETTV1
|
|
00009 * ES2ETTV1
|
|
00010 ***** ES2ETTV1
|
|
00011 SKIP1 ES2ETTV1
|
|
00012 10 ETT-DATA-AREA PIC X(20). ES2ETTV1
|
|
00013 10 ETT-ACCT-REC REDEFINES ETT-DATA-AREA. ES2ETTV1
|
|
00014 15 ETT-PRED-ACCT PIC X(10). ES2ETTV1
|
|
00015 88 ETT-PRED-NEW-HIRE-88 VALUE 'XXXXXXXXXX'. ES2ETTV1
|
|
00016 15 ETT-SUCC-ACCT PIC X(10). ES2ETTV1
|
|
00017 10 ETT-HDR-REC REDEFINES ETT-DATA-AREA. ES2ETTV1
|
|
00018 15 ETT-HEADER-ACCT PIC X(10). ES2ETTV1
|
|
00019 88 ETT-HEADER-88 VALUE SPACES. ES2ETTV1
|
|
00020 15 ETT-OLD-YRQ PIC 9(05). ES2ETTV1
|
|
00021 15 ETT-NEW-YRQ PIC 9(05). ES2ETTV1
|