37 lines
2.8 KiB
COBOL
37 lines
2.8 KiB
COBOL
00001 ***** 02/01/04
|
|
00002 * DTSIY771
|
|
00003 * DTSIY771 ETA581 POPULATION 1 - ACTIVE EMPLOYERS LV001
|
|
00004 * DTSIY771
|
|
00005 * DTSBE770 EXTRACTS RECONSTRUCTION FILE DATA FOR THE COUNT OF DTSIY771
|
|
00006 * ACTIVE EMPLOYERS FOR THE ETA581 REPORT. THE RECORDS ARE DTSIY771
|
|
00007 * SORTED AND PASSED TO DTSBD771 WHICH BUILDS RECONSTRUCTION DTSIY771
|
|
00008 * FILE RECORDS (DTSIX771). DTSIY771
|
|
00009 * DTSIY771
|
|
00010 ***** DTSIY771
|
|
00011 10 Y771-LENGTH PIC S9(04) COMP. DTSIY771
|
|
00012 DTSIY771
|
|
00013 10 Y771-SORT-AREA. DTSIY771
|
|
00014 15 Y771-REC-TYPE PIC X(03). DTSIY771
|
|
00015 88 Y771-REC-TYPE-771-88 VALUE '771'. DTSIY771
|
|
00016 15 Y771-EMP-NO PIC S9(07) COMP-3. DTSIY771
|
|
00017 DTSIY771
|
|
00018 10 Y771-DATA-AREA. DTSIY771
|
|
00019 15 Y771-EMP-STATUS PIC X(01). DTSIY771
|
|
00020 88 Y771-STATUS-ACTIVE-88 VALUE 'A'. DTSIY771
|
|
00021 15 Y771-EMP-CLASS PIC X(01). DTSIY771
|
|
00022 88 Y771-CLASS-RATED-88 VALUE 'R'. DTSIY771
|
|
00023 88 Y771-CLASS-SELF-INS-88 VALUE 'S'. DTSIY771
|
|
00024 15 Y771-LIAB-DATE PIC S9(09) COMP-3. DTSIY771
|
|
00025 15 Y771-REOPEN-PROCESS-DATE PIC S9(09) COMP-3. DTSIY771
|
|
00026 15 Y771-PROCESS-DATE PIC S9(09) COMP-3. DTSIY771
|
|
00027 15 Y771-INACTIVE-DATE PIC S9(09) COMP-3. DTSIY771
|
|
00028 15 Y771-LIAB-QTR-CNT PIC 9(02). DTSIY771
|
|
00029 15 Y771-QTR1-WAGES PIC S9(11)V99 COMP-3. DTSIY771
|
|
00030 15 Y771-QTR2-WAGES PIC S9(11)V99 COMP-3. DTSIY771
|
|
00031 15 Y771-QTR3-WAGES PIC S9(11)V99 COMP-3. DTSIY771
|
|
00032 15 Y771-QTR4-WAGES PIC S9(11)V99 COMP-3. DTSIY771
|
|
00033 15 Y771-QTR5-WAGES PIC S9(11)V99 COMP-3. DTSIY771
|
|
00034 15 Y771-QTR6-WAGES PIC S9(11)V99 COMP-3. DTSIY771
|
|
00035 15 Y771-QTR7-WAGES PIC S9(11)V99 COMP-3. DTSIY771
|
|
00036 15 Y771-QTR8-WAGES PIC S9(11)V99 COMP-3. DTSIY771
|