52 lines
4.0 KiB
COBOL
52 lines
4.0 KiB
COBOL
00001 ***** 10/17/24
|
|
00002 * DTSXL775
|
|
00003 * DTSXL775 DTSBX775 PROGRAM LINKAGE LV002
|
|
00004 * ETA581 AUDIT COUNTS DTSXL775
|
|
00005 * DTSXL775
|
|
00006 * INITIAL DEVELOPMENT. 01/13/2003 GD. DTSXL775
|
|
00007 * DTSXL775
|
|
00008 * DTSBX770 READS DTSIY775 ETA581 DATA VALIDATION TRANSACTIONS DTSXL775
|
|
00009 * CREATED BY DTSBE770, AND CALLS DTSBX775 TO BUILD DTSIX775 DTSXL775
|
|
00010 * DATA VALIDATION RECORDS AND ETA581 AUDIT COUNTS. DTSXL775
|
|
00011 * DTSBX775 RETURNS AUDIT DATA TO DTSBX775 THROUGH THIS DTSXL775
|
|
00012 * LINKAGE AREA. DTSXL775
|
|
00013 * DTSXL775
|
|
00014 ***** DTSXL775
|
|
00015 DTSXL775
|
|
00016 10 XL775-CMND-CD PIC X(01). DTSXL775
|
|
00017 88 XL775-CMD-INIT-88 VALUE '0'. DTSXL775
|
|
00018 88 XL775-CMD-PROCESS-88 VALUE '1'. DTSXL775
|
|
00019 88 XL775-CMD-TERMINATE-88 VALUE '2'. DTSXL775
|
|
00020 DTSXL775
|
|
00021 10 XL775-DATA-AREA. DTSXL775
|
|
00022 15 XL775-AUDIT-LARGE-EMP-CNT DTSXL775
|
|
00023 PIC S9(07) COMP-3. DTSXL775
|
|
00024 15 XL775-AUDIT-TOT-EMP-CNT DTSXL775
|
|
00025 PIC S9(07) COMP-3. DTSXL775
|
|
00026 15 XL775-AUDIT-QTR-CNT DTSXL775
|
|
00027 PIC S9(07) COMP-3. DTSXL775
|
|
00028 15 XL775-AUDIT-TOT-WAGES-PRE DTSXL775
|
|
00029 PIC S9(11)V9(02) COMP-3. DTSXL775
|
|
00030 15 XL775-AUDIT-TOT-WAGES-POST DTSXL775
|
|
00031 PIC S9(11)V9(02) COMP-3. DTSXL775
|
|
00032 15 XL775-AUDIT-CHANGE-CNT DTSXL775
|
|
00033 PIC S9(07) COMP-3. DTSXL775
|
|
00034 15 XL775-AUDIT-HOURS-CNT DTSXL775
|
|
00035 PIC S9(08)V9(01) COMP-3. DTSXL775
|
|
00036 15 XL775-AUDIT-UNDERRPT-TOT-WAGES DTSXL775
|
|
00037 PIC S9(11)V9(02) COMP-3. DTSXL775
|
|
00038 15 XL775-AUDIT-UNDERRPT-TAX-WAGES DTSXL775
|
|
00039 PIC S9(11)V9(02) COMP-3. DTSXL775
|
|
00040 15 XL775-AUDIT-UNDERRPT-CONTRIB DTSXL775
|
|
00041 PIC S9(11)V9(02) COMP-3. DTSXL775
|
|
00042 15 XL775-AUDIT-OVERRPT-TOT-WAGES DTSXL775
|
|
00043 PIC S9(11)V9(02) COMP-3. DTSXL775
|
|
00044 15 XL775-AUDIT-OVERRPT-TAX-WAGES DTSXL775
|
|
00045 PIC S9(11)V9(02) COMP-3. DTSXL775
|
|
00046 15 XL775-AUDIT-OVERRPT-CONTRIB DTSXL775
|
|
00047 PIC S9(11)V9(02) COMP-3. DTSXL775
|
|
00048 15 XL775-AUDIT-INDCON-TO-EMPL-CNT DTSXL775
|
|
00049 PIC S9(09) COMP-3. DTSXL775
|
|
00050 15 XL775-AUDIT-NEW-EMPLOYEES-CNT CL**2
|
|
00051 PIC S9(09) COMP-3. CL**2
|