DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
49
Copybook/DTSIT011.cpy
Normal file
49
Copybook/DTSIT011.cpy
Normal 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
|
||||
Reference in New Issue
Block a user