32 lines
2.5 KiB
COBOL
32 lines
2.5 KiB
COBOL
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
|