71 lines
5.5 KiB
COBOL
71 lines
5.5 KiB
COBOL
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
|