DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
36
Copybook/DTSIWWG3.cpy
Normal file
36
Copybook/DTSIWWG3.cpy
Normal file
@ -0,0 +1,36 @@
|
||||
00001 ***** 06/27/12
|
||||
00002 * DTSIWWG3
|
||||
00003 * DTSIWWG3 EMPLOYER NUMBER CHANGE LV004
|
||||
00004 * RECORD DEFINITION. DTSIWWG3
|
||||
00005 * DTSIWWG3
|
||||
00006 * DTSIWWG3
|
||||
00007 * 09/17/2010 INITIAL DEVELOPMENT. GD DTSIWWG3
|
||||
00008 * DTSIWWG3
|
||||
00009 * 09/28/2010 ADDED CHANGED OPID. ZL1 DTSIWWG3
|
||||
00010 * DTSIWWG3
|
||||
00011 * 06/27/2012 ADDED FIELDS FOR CHANGE OF QUARTER, CL**2
|
||||
00012 * REPORT TYPE, AND FOR REPORT DELETION. G CL**2
|
||||
00013 * CL**2
|
||||
00014 * KEY = 13 LENGTH = 64 CL**3
|
||||
00015 * DTSIWWG3
|
||||
00016 ***** DTSIWWG3
|
||||
00017 DTSIWWG3
|
||||
00018 10 WWG3-KEY-AREA. CL**4
|
||||
00019 15 WWG3-ORIG-EMP-NO PIC S9(07) COMP-3. CL**4
|
||||
00020 15 WWG3-RPT-EMP-NO PIC S9(07) COMP-3. CL**4
|
||||
00021 15 WWG3-BATCH-NO PIC S9(05) COMP-3. CL**4
|
||||
00022 15 WWG3-ITEM-NO PIC S9(03) COMP-3. CL**4
|
||||
00023 DTSIWWG3
|
||||
00024 10 WWG3-DATA-AREA. CL**4
|
||||
00025 15 WWG3-ORIG-YRQ PIC S9(05) COMP-3. CL**4
|
||||
00026 15 WWG3-RPT-YRQ PIC S9(05) COMP-3. CL**4
|
||||
00027 15 WWG3-ORIG-TRAN PIC X(02). CL**4
|
||||
00028 15 WWG3-RPT-TRAN PIC X(02). CL**4
|
||||
00029 15 WWG3-WAGES PIC S9(11)V99 COMP-3. CL**4
|
||||
00030 15 WWG3-DELETED-IND PIC X(01). CL**4
|
||||
00031 88 WWG3-DELETED-YES-88 VALUE 'Y'. CL**4
|
||||
00032 88 WWG3-DELETED-NO-88 VALUE 'N'. CL**4
|
||||
00033 15 WWG3-PROCESS-DT PIC S9(09) COMP-3. CL**4
|
||||
00034 15 WWG3-CHANGE-OPID PIC X(08). CL**4
|
||||
00035 CL**3
|
||||
00036 15 FILLER PIC X(20). CL**3
|
||||
Reference in New Issue
Block a user