DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
70
Copybook/DTSXL774.cpy
Normal file
70
Copybook/DTSXL774.cpy
Normal file
@ -0,0 +1,70 @@
|
||||
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
|
||||
Reference in New Issue
Block a user