DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
21
Copybook/ES2ETTV1.cpy
Normal file
21
Copybook/ES2ETTV1.cpy
Normal file
@ -0,0 +1,21 @@
|
||||
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
|
||||
Reference in New Issue
Block a user