00001 *****                                                             02/01/04
00002 *                                                                 DTSXL774
00003 *    DTSXL774    DTSBX774 PROGRAM LINKAGE                            LV001
00004 *                ETA581 ACTIVE EMPLOYER COUNTS                    DTSXL774
00005 *                                                                 DTSXL774
00006 *                INITIAL DEVELOPMENT.  11/28/2002  GD.            DTSXL774
00007 *                                                                 DTSXL774
00008 *    DTSBX770 READS DTSIY774 ETA581 DATA VALIDATION TRANSACTIONS  DTSXL774
00009 *    CREATED BY DTSBE770, AND CALLS DTSBX774 TO BUILD DTSIX774    DTSXL774
00010 *    DATA VALIDATION RECORDS AND ETA581 ACCOUNTS RECEIVABLE       DTSXL774
00011 *    COUNTS.  DTSBX774 RETURNS ACCOUNTS RECEIVABLE DATA TO        DTSXL774
00012 *    TO BTSBX770 THROUGH THIS LINKAGE AREA.                       DTSXL774
00013 *                                                                 DTSXL774
00014 *****                                                             DTSXL774
00015                                                                   DTSXL774
00016          10  XL774-CMND-CD               PIC  X(01).              DTSXL774
00017              88  XL774-CMD-INIT-88               VALUE '0'.       DTSXL774
00018              88  XL774-CMD-PROCESS-88            VALUE '1'.       DTSXL774
00019              88  XL774-CMD-TERMINATE-88          VALUE '2'.       DTSXL774
00020                                                                   DTSXL774
00021          10  XL774-DATA-AREA.                                     DTSXL774
00022              15  XL774-CON-RECVBL-BEG-PERIOD                      DTSXL774
00023                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00024              15  XL774-CON-RECVBL-DETERM                          DTSXL774
00025                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00026              15  XL774-CON-RECVBL-LIQUID                          DTSXL774
00027                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00028              15  XL774-CON-RECVBL-UNCOLLECT                       DTSXL774
00029                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00030              15  XL774-CON-RECVBL-REMOVED                         DTSXL774
00031                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00032              15  XL774-CON-RECVBL-END-PERIOD                      DTSXL774
00033                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00034              15  XL774-CON-RECVBL-EMP-CNT                         DTSXL774
00035                                      PIC S9(07)       COMP-3.     DTSXL774
00036              15  XL774-CON-RECVBL-6-MOS                           DTSXL774
00037                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00038              15  XL774-CON-RECVBL-9-MOS                           DTSXL774
00039                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00040              15  XL774-CON-RECVBL-12-MOS                          DTSXL774
00041                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00042              15  XL774-CON-RECVBL-15-MOS                          DTSXL774
00043                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00044              15  XL774-CON-RECVBL-OVER15-MOS                      DTSXL774
00045                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00046                                                                   DTSXL774
00047              15  XL774-REIMB-RECVBL-BEG-PERIOD                    DTSXL774
00048                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00049              15  XL774-REIMB-RECVBL-DETERM                        DTSXL774
00050                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00051              15  XL774-REIMB-RECVBL-LIQUID                        DTSXL774
00052                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00053              15  XL774-REIMB-RECVBL-UNCOLLECT                     DTSXL774
00054                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00055              15  XL774-REIMB-RECVBL-REMOVED                       DTSXL774
00056                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00057              15  XL774-REIMB-RECVBL-END-PERIOD                    DTSXL774
00058                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00059              15  XL774-REIMB-RECVBL-EMP-CNT                       DTSXL774
00060                                      PIC S9(07)       COMP-3.     DTSXL774
00061              15  XL774-REIMB-RECVBL-6-MOS                         DTSXL774
00062                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00063              15  XL774-REIMB-RECVBL-9-MOS                         DTSXL774
00064                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00065              15  XL774-REIMB-RECVBL-12-MOS                        DTSXL774
00066                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00067              15  XL774-REIMB-RECVBL-15-MOS                        DTSXL774
00068                                      PIC S9(11)V9(02) COMP-3.     DTSXL774
00069              15  XL774-REIMB-RECVBL-OVER15-MOS                    DTSXL774
00070                                      PIC S9(11)V9(02) COMP-3.     DTSXL774