55 lines
4.3 KiB
COBOL
55 lines
4.3 KiB
COBOL
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
|