32 lines
2.5 KiB
COBOL
32 lines
2.5 KiB
COBOL
00001 ***** 02/01/04
|
|
00002 * DTSXL773
|
|
00003 * DTSXL773 DTSBX773 PROGRAM LINKAGE LV001
|
|
00004 * ETA581 ACTIVE EMPLOYER COUNTS DTSXL773
|
|
00005 * DTSXL773
|
|
00006 * INITIAL DEVELOPMENT. 11/28/2002 GD. DTSXL773
|
|
00007 * DTSXL773
|
|
00008 * DTSBX770 READS ETA581 DATA VALIDATION TRANSACTION RECORDS DTSXL773
|
|
00009 * CREATED BY DTSBE770, AND CALLS DTSBX773 TO BUILD DTSIX773 DTSXL773
|
|
00010 * DATA VALIDATION RECORDS AND BUILD ETA581 STATUS DTSXL773
|
|
00011 * DETERMINATION COUNTS. DTSXL773
|
|
00012 * DTSXL773
|
|
00013 ***** DTSXL773
|
|
00014 DTSXL773
|
|
00015 10 XL773-CMND-CD PIC X(01). DTSXL773
|
|
00016 88 XL773-CMD-INIT-88 VALUE '0'. DTSXL773
|
|
00017 88 XL773-CMD-PROCESS-88 VALUE '1'. DTSXL773
|
|
00018 88 XL773-CMD-TERMINATE-88 VALUE '2'. DTSXL773
|
|
00019 DTSXL773
|
|
00020 10 XL773-DATA-AREA. DTSXL773
|
|
00021 15 XL773-NEW-DETERM-CNT PIC S9(07) COMP-3. DTSXL773
|
|
00022 15 XL773-NEW-DETERM-T90-CNT PIC S9(07) COMP-3. DTSXL773
|
|
00023 15 XL773-NEW-DETERM-T180-CNT PIC S9(07) COMP-3. DTSXL773
|
|
00024 15 XL773-SUC-DETERM-CNT PIC S9(07) COMP-3. DTSXL773
|
|
00025 15 XL773-SUC-DETERM-T90-CNT PIC S9(07) COMP-3. DTSXL773
|
|
00026 15 XL773-SUC-DETERM-T180-CNT PIC S9(07) COMP-3. DTSXL773
|
|
00027 15 XL773-TERMINATION-CNT PIC S9(07) COMP-3. DTSXL773
|
|
00028 DTSXL773
|
|
00029 10 XL773-RESULT-IND PIC X(01). DTSXL773
|
|
00030 88 XL773-OK-88 VALUE '0'. DTSXL773
|
|
00031 88 XL773-ERROR-88 VALUE '1'. DTSXL773
|