00001 ***** 02/01/04 00002 * DTSXL771 00003 * DTSXL771 DTSBX771 PROGRAM LINKAGE LV001 00004 * ETA581 ACTIVE EMPLOYER COUNTS DTSXL771 00005 * DTSXL771 00006 * INITIAL DEVELOPMENT. 11/28/2002 GD. DTSXL771 00007 * DTSXL771 00008 * DTSBX770 READS ETA581 DATA VALIDATION TRANSACTION RECORDS DTSXL771 00009 * CREATED BY DTSBE770, AND CALLS DTSBX771 TO BUILD DTSIX771 DTSXL771 00010 * DATA VALIDATION RECORDS AND BUILD ETA581 ACTIVE EMPLOYER DTSXL771 00011 * COUNTS. DTSXL771 00012 * DTSXL771 00013 ***** DTSXL771 00014 DTSXL771 00015 10 XL771-CMND-CD PIC X(01). DTSXL771 00016 88 XL771-CMD-INIT-88 VALUE '0'. DTSXL771 00017 88 XL771-CMD-PROCESS-88 VALUE '1'. DTSXL771 00018 88 XL771-CMD-TERMINATE-88 VALUE '2'. DTSXL771 00019 DTSXL771 00020 10 XL771-DATA-AREA. DTSXL771 00021 15 XL771-CON-EMP-CNT PIC S9(07) COMP-3. DTSXL771 00022 15 XL771-REIMB-EMP-CNT PIC S9(07) COMP-3. DTSXL771 00023 15 XL771-TOT-EMP-CNT PIC S9(07) COMP-3. DTSXL771 00024 DTSXL771 00025 10 XL771-RESULT-IND PIC X(01). DTSXL771 00026 88 XL771-OK-88 VALUE '0'. DTSXL771 00027 88 XL771-ERROR-88 VALUE '1'. DTSXL771