00001 ***** 12/10/98 00002 * DTSICACT 00003 * DTSICACT ACCOUNTING LITERALS. LV003 00004 * DTSICACT 00005 * CL**3 00006 * 12/10/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**3 00007 * CL**3 00008 ***** DTSICACT 00009 CL**2 00010 05 CACT-ACCT-IND-LITERALS. DTSICACT 00011 10 CACT-ACCT-UI PIC X(02) VALUE 'UI'. DTSICACT 00012 10 CACT-ACCT-SUR PIC X(02) VALUE 'SU'. DTSICACT 00013 10 CACT-ACCT-INT PIC X(02) VALUE 'I '. DTSICACT 00014 10 CACT-ACCT-LATE-PEN PIC X(02) VALUE 'LP'. CL**2 00015 10 CACT-ACCT-NSF-PEN PIC X(02) VALUE 'NP'. CL**2 00016 10 CACT-ACCT-MISC-PEN PIC X(02) VALUE 'MP'. CL**2 00017 10 CACT-ACCT-CREDIT PIC X(02) VALUE 'CR'. DTSICACT 00018 CL**2 00019 05 FILLER REDEFINES CACT-ACCT-IND-LITERALS. DTSICACT 00020 10 CACT-ACCT-LIT OCCURS 7 TIMES CL**2 00021 INDEXED BY CACT-ACCT-IDX DTSICACT 00022 PIC X(02). DTSICACT 00023 CL**2 00024 CL**2 00025 05 CACT-APPLIC-IND-LITERALS. DTSICACT 00026 10 CACT-APPLIC-UI PIC X(02) VALUE 'UI'. DTSICACT 00027 10 CACT-APPLIC-SUR PIC X(02) VALUE 'SU'. DTSICACT 00028 10 CACT-APPLIC-INT PIC X(02) VALUE 'I '. DTSICACT 00029 10 CACT-APPLIC-LATE-PEN PIC X(02) VALUE 'LP'. CL**2 00030 10 CACT-APPLIC-NSF-PEN PIC X(02) VALUE 'NP'. CL**2 00031 10 CACT-APPLIC-MISC-PEN PIC X(02) VALUE 'MP'. CL**2 00032 10 CACT-APPLIC-CREDIT PIC X(02) VALUE 'CR'. DTSICACT 00033 CL**2 00034 05 CACT-CATEGORY-LITERALS. DTSICACT 00035 10 CACT-CAT-CHARGED PIC X(02) VALUE 'CH'. CL**2 00036 10 CACT-CAT-PAID PIC X(02) VALUE 'PD'. CL**2 00037 10 CACT-CAT-WAIVED PIC X(02) VALUE 'WV'. CL**2 00038 10 CACT-CAT-WRITTEN-OFF PIC X(02) VALUE 'WO'. CL**2 00039 10 CACT-CAT-TOLER PIC X(02) VALUE 'TL'. CL**2 00040 CL**2 00041 05 FILLER REDEFINES CACT-CATEGORY-LITERALS. DTSICACT 00042 10 CACT-CAT-LIT OCCURS 5 TIMES DTSICACT 00043 INDEXED BY CACT-CAT-IDX DTSICACT 00044 PIC X(02). CL**2 00045 SKIP2 DTSICACT 00046 05 CACT-MISCELLANEOUS-LITERALS. DTSICACT 00047 10 CACT-CR-AVAIL PIC X(02) VALUE 'CA'. DTSICACT 00048 10 CACT-CR-WRITE-OFF PIC X(02) VALUE 'CW'. CL**2 00049 10 CACT-CR-TOLER PIC X(02) VALUE 'CT'. DTSICACT 00050 10 CACT-ACCT-WAGE PIC X(02) VALUE 'WG'. DTSICACT 00051 10 CACT-CAT-TOT-WAGE PIC X(02) VALUE 'TW'. CL**2 00052 10 CACT-CAT-TAX-WAGE PIC X(02) VALUE 'XW'. CL**2 00053 10 CACT-CREDIT-YRQ PIC S9(05) COMP-3 DTSICACT 00054 VALUE +99999.DTSICACT