61 lines
4.7 KiB
COBOL
61 lines
4.7 KiB
COBOL
00001 ***** 07/28/99
|
|
00002 * MODIFIED 11/20/98 D.SHEPPERSON DTSIR606
|
|
00003 * LV008
|
|
00004 * DTSIR606 ASSIGNMENT SUMMARY EXPORT REPORT RECORD. CL**5
|
|
00005 * DTSIR606
|
|
00006 * NOTE: THERE IS EXACTLY ONE REPORT RECORD FOR EVERY DTSIR606
|
|
00007 * FIELD ASSIGNMENT COUNTED ON THE REPORT. THE DTSIR606
|
|
00008 * EXTRACT MODULE WILL NEED TO SCAN ALL MAUY DTSIR606
|
|
00009 * RECORDS FOR A GIVEN ASSIGNMENT TO DETERMINE: DTSIR606
|
|
00010 * DTSIR606
|
|
00011 * R606-CHANGE-AUDIT-IND DTSIR606
|
|
00012 * R606-CATEGORY DTSIR606
|
|
00013 * R606-TOT-GROSS-PAYROLL DTSIR606
|
|
00014 * R606-TOT-WAGE-CHANGE DTSIR606
|
|
00015 * R606-TAX-WAGE-CHANGE DTSIR606
|
|
00016 * R606-CONTRIB-CHANGE DTSIR606
|
|
00017 * DTSIR606
|
|
00018 ***** DTSIR606
|
|
00019 SKIP1 DTSIR606
|
|
00020 10 R606-LENGTH PIC S9(04) COMP. CL**2
|
|
00021 SKIP1 DTSIR606
|
|
00022 10 R606-SORT-AREA. DTSIR606
|
|
00023 15 R606-REC-TYPE PIC X(03). CL**2
|
|
00024 15 R606-FIELD-REP-ID PIC X(02). DTSIR606
|
|
00025 15 R606-ASSIGN-NO PIC S9(09) COMP-3. DTSIR606
|
|
00026 SKIP1 DTSIR606
|
|
00027 10 R606-DATA-AREA. DTSIR606
|
|
00028 15 R606-PARM-AREA. DTSIR606
|
|
00029 20 R606-PARM-COMPL-START PIC S9(09) COMP-3. DTSIR606
|
|
00030 20 R606-PARM-COMPL-END PIC S9(09) COMP-3. DTSIR606
|
|
00031 20 R606-PARM-PROCESS-START PIC S9(09) COMP-3. DTSIR606
|
|
00032 20 R606-PARM-PROCESS-END PIC S9(09) COMP-3. DTSIR606
|
|
00033 20 R606-PARM-ASSIGN-CNT PIC S9(04) COMP. DTSIR606
|
|
00034 20 R606-PARM-ASSIGN-TYPE OCCURS 5 DTSIR606
|
|
00035 INDEXED BY R606-PARM-ASSIGN-IDX DTSIR606
|
|
00036 PIC X(02). DTSIR606
|
|
00037 15 R606-EMP-SIZE-IND PIC X(01). DTSIR606
|
|
00038 15 R606-MONEY-DUE-AMT PIC S9(09)V99 COMP-3. DTSIR606
|
|
00039 15 R606-MONEY-COLLECT-AMT PIC S9(09)V99 COMP-3. DTSIR606
|
|
00040 15 R606-CHANGE-AUDIT-IND PIC X(01). DTSIR606
|
|
00041 88 R606-CHANGE-AUDIT-YES-88 VALUE 'R' 'V'. CL**8
|
|
00042 88 R606-CHANGE-AUDIT-VERIF-88 VALUE 'V'. CL**4
|
|
00043 88 R606-CHANGE-AUDIT-NO-88 VALUE 'N'. DTSIR606
|
|
00044 15 R606-PEN-WAIVE-IND PIC X(01). CL**6
|
|
00045 15 R606-INT-WAIVE-IND PIC X(01). CL**6
|
|
00046 15 R606-CATEGORY PIC X(01). DTSIR606
|
|
00047 88 R606-CATEGORY-INCREASE-88 VALUE '1'. DTSIR606
|
|
00048 88 R606-CATEGORY-DECREASE-88 VALUE '2'. DTSIR606
|
|
00049 88 R606-CATEGORY-NOCHANGE-88 VALUE '3'. DTSIR606
|
|
00050 15 R606-CATEGORY-9 REDEFINES R606-CATEGORY DTSIR606
|
|
00051 PIC 9(01). DTSIR606
|
|
00052 15 R606-QTRS-AUDITED-CNT PIC S9(03) COMP-3. DTSIR606
|
|
00053 15 R606-AUDIT-HRS PIC S9(04)V9 COMP-3. DTSIR606
|
|
00054 15 R606-START-DATE PIC S9(09) COMP-3. DTSIR606
|
|
00055 15 R606-COMPLETED-DATE PIC S9(09) COMP-3. DTSIR606
|
|
00056 15 R606-TOT-GROSS-PAYROLL PIC S9(11)V99 COMP-3. DTSIR606
|
|
00057 15 R606-TOT-WAGE-CHANGE PIC S9(11)V99 COMP-3. DTSIR606
|
|
00058 15 R606-TAX-WAGE-CHANGE PIC S9(11)V99 COMP-3. DTSIR606
|
|
00059 15 R606-CONTRIB-CHANGE PIC S9(09)V99 COMP-3. DTSIR606
|
|
00060 15 R606-NEW-EMPLOYEE-CNT PIC S9(05) COMP-3. DTSIR606
|