36 lines
2.8 KiB
COBOL
36 lines
2.8 KiB
COBOL
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
|