DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
31
Copybook/DTSIR305.cpy
Normal file
31
Copybook/DTSIR305.cpy
Normal file
@ -0,0 +1,31 @@
|
||||
00001 ***** 01/05/99
|
||||
00002 * DTSIR305
|
||||
00003 * DTSIR305 TRIAL BALANCE REPORT RECORD. LV004
|
||||
00004 * DTSIR305
|
||||
00005 * NOTE: R305-ACCT-SUB SIMPLY FORCES THE REPORT RECORDS DTSIR305
|
||||
00006 * INTO THE SAME SEQUENCE AS THE REPORT LINES. DTSIR305
|
||||
00007 * DTSIR305
|
||||
00008 ***** DTSIR305
|
||||
00009 SKIP1 DTSIR305
|
||||
00010 10 R305-LENGTH PIC S9(04) COMP. CL**4
|
||||
00011 SKIP1 DTSIR305
|
||||
00012 10 R305-SORT-AREA. DTSIR305
|
||||
00013 15 R305-REC-TYPE PIC X(03). CL**4
|
||||
00014 15 R305-EMP-CLASS PIC X(01). DTSIR305
|
||||
00015 88 R305-CLASS-CHG-ONLY-88 VALUE 'C'. CL**3
|
||||
00016 88 R305-CLASS-RATED-88 VALUE 'R'. CL**3
|
||||
00017 88 R305-CLASS-SELF-INS-88 VALUE 'S'. CL**3
|
||||
00018 88 R305-CLASS-UNK-88 VALUE 'U'. CL**3
|
||||
00019 88 R305-CLASS-SUB-88 VALUE 'R' 'S'. CL**3
|
||||
00020 15 R305-ACCT-SUB PIC S9(04) COMP. DTSIR305
|
||||
00021 15 R305-ACCT-IND PIC X(02). DTSIR305
|
||||
00022 SKIP1 DTSIR305
|
||||
00023 10 R305-DATA-AREA. DTSIR305
|
||||
00024 15 R305-LAST-ACCT-UPDATE-DATE DTSIR305
|
||||
00025 PIC S9(09) COMP-3. DTSIR305
|
||||
00026 15 R305-CHARGED-AMT PIC S9(11)V9(02) COMP-3. DTSIR305
|
||||
00027 15 R305-PAID-AMT PIC S9(11)V9(02) COMP-3. DTSIR305
|
||||
00028 15 R305-WAIVED-AMT PIC S9(11)V9(02) COMP-3. CL**3
|
||||
00029 15 R305-WRITTEN-OFF-AMT PIC S9(11)V9(02) COMP-3. CL**3
|
||||
00030 15 R305-TOLER-AMT PIC S9(11)V9(02) COMP-3. DTSIR305
|
||||
00031 15 R305-BALANCE-AMT PIC S9(11)V9(02) COMP-3. DTSIR305
|
||||
Reference in New Issue
Block a user