DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

49
Copybook/DTSIT011.cpy Normal file
View File

@ -0,0 +1,49 @@
00001 ***** 09/14/05
00002 * DTSIT011
00003 * DTSIT011 COLLECTIONS TRANSACTION RECORD. LV008
00004 * DTSIT011
00005 * DTSIT011
00006 * 09/23/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIT011
00007 * 04/29/2004 ADDED T011-CMP-PKG FOR COMPROMISE DTSIT011
00008 * SETTLEMENTS GD DTSIT011
00009 * 09/01/2005 ADDED T011-STMT-OF-ACCT, AND START DTSIT011
00010 * AND END QUARTERS FOR PRINTING OF DTSIT011
00011 * STATEMENTS OF ACCOUNT GD DTSIT011
00012 * 09/08/2005 ADDED BATCH AND ITEM NUMBERS FOR DTSIT011
00013 * ONLINE STATEMENTS OF ACCOUNT GD DTSIT011
00014 * DTSIT011
00015 ***** DTSIT011
00016 DTSIT011
00017 10 T011-LENGTH PIC S9(04) COMP. DTSIT011
00018 DTSIT011
00019 10 T011-COMMON-AREA. DTSIT011
00020 15 T011-REC-TYPE PIC X(03) VALUE '011'. DTSIT011
00021 15 T011-EMP-NO PIC S9(07) COMP-3. DTSIT011
00022 15 T011-ORIGIN PIC X(10). DTSIT011
00023 15 FILLER REDEFINES T011-ORIGIN. DTSIT011
00024 20 T011-OP-ID PIC X(08). DTSIT011
00025 20 T011-SCR-ID PIC X(02). DTSIT011
00026 15 T011-SYS-DATE PIC S9(09) COMP-3. DTSIT011
00027 15 T011-SYS-TIME PIC S9(07) COMP-3. DTSIT011
00028 DTSIT011
00029 10 T011-DATA-AREA. DTSIT011
00030 15 T011-TRN-CD PIC X(02). DTSIT011
00031 88 T011-LIN-PKG VALUE '01'. DTSIT011
00032 88 T011-LIN-TCK VALUE '02'. DTSIT011
00033 88 T011-DPC-PKG VALUE '03'. DTSIT011
00034 88 T011-DPC-TCK VALUE '04'. DTSIT011
00035 88 T011-CMP-PKG VALUE '05'. DTSIT011
00036 88 T011-CMP-TCK VALUE '06'. DTSIT011
00037 88 T011-CMP-WD VALUE '07'. DTSIT011
00038 88 T011-STMT-OF-ACCT VALUE '08'. DTSIT011
00039 DTSIT011
00040 15 T011-RESP-OP-ID PIC X(08). DTSIT011
00041 DTSIT011
00042 15 T011-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIT011
00043 DTSIT011
00044 15 T011-START-YRQ PIC S9(05) COMP-3. DTSIT011
00045 15 T011-END-YRQ PIC S9(05) COMP-3. DTSIT011
00046 15 T011-BATCH-NO PIC S9(05) COMP-3. DTSIT011
00047 15 T011-ITEM-NO PIC S9(03) COMP-3. DTSIT011
00048 DTSIT011
00049 15 FILLER PIC X(07). DTSIT011