DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
35
Copybook/DTSIL422.cpy
Normal file
35
Copybook/DTSIL422.cpy
Normal file
@ -0,0 +1,35 @@
|
||||
00001 ***** 02/26/04
|
||||
00002 * DTSIL422
|
||||
00003 * DTSIL422 FIND CURRENT EMPLOYEES AND WAGES LV003
|
||||
00004 * FOR A GIVEN EMPLOYER DTSIL422
|
||||
00005 * DTSIL422
|
||||
00006 * *** ANNUAL VERSION *** DTSIL422
|
||||
00007 * DTSIL422
|
||||
00008 * DTSIL422
|
||||
00009 * 02/18/2002 INITIAL DEVELOPMENT. GD DTSIL422
|
||||
00010 * DTSIL422
|
||||
00011 * DTSIL422
|
||||
00012 ***** DTSIL422
|
||||
00013 DTSIL422
|
||||
00014 10 L422-INPUT-AREA. DTSIL422
|
||||
00015 15 L422-RPT-TYPE PIC X(01). DTSIL422
|
||||
00016 88 L422-RPT-TYPE-ORIG-88 VALUE '0'. DTSIL422
|
||||
00017 88 L422-RPT-TYPE-SUPPL-88 VALUE '1'. DTSIL422
|
||||
00018 88 L422-RPT-TYPE-WD-88 VALUE '2'. DTSIL422
|
||||
00019 15 L422-EMP-NO PIC S9(07) COMP-3. DTSIL422
|
||||
00020 15 L422-QTR1 PIC S9(05) COMP-3. DTSIL422
|
||||
00021 15 L422-QTR2 PIC S9(05) COMP-3. DTSIL422
|
||||
00022 15 L422-QTR3 PIC S9(05) COMP-3. DTSIL422
|
||||
00023 15 L422-QTR4 PIC S9(05) COMP-3. DTSIL422
|
||||
00024 15 L422-TS-NAME-PREFIX PIC X(07). DTSIL422
|
||||
00025 DTSIL422
|
||||
00026 DTSIL422
|
||||
00027 10 L422-RETURN-AREA. DTSIL422
|
||||
00028 15 L422-WAGE-TBL-CNT PIC S9(04) COMP. DTSIL422
|
||||
00029 15 L422-TS-CNT PIC S9(04) COMP. DTSIL422
|
||||
00030 15 L422-LAST-DUMMY-SSN PIC S9(09) COMP-3. DTSIL422
|
||||
00031 15 L422-ERR-IND PIC X(02). DTSIL422
|
||||
00032 88 L422-ERR-NO-88 VALUE '00'. DTSIL422
|
||||
00033 88 L422-ERR-OVER-250-88 VALUE '01'. DTSIL422
|
||||
00034 DTSIL422
|
||||
00035 10 FILLER PIC X(28). DTSIL422
|
||||
Reference in New Issue
Block a user