66 lines
5.1 KiB
COBOL
66 lines
5.1 KiB
COBOL
00001 ***** 10/25/06
|
|
00002 * DTSIC220
|
|
00003 * DTSIC220 ACTIVITY CODES LV042
|
|
00004 * CL*23
|
|
00005 * CL*20
|
|
00006 * CL*26
|
|
00007 * DTSIC220
|
|
00008 ***** DTSIC220
|
|
00009 10 C220-BUSINESS-AREA PIC X(02). CL*34
|
|
00010 88 C220-BA-STATUS-88 VALUE '01'. CL*34
|
|
00011 88 C220-BA-ACCOUNTING-88 VALUE '02'. CL*34
|
|
00012 88 C220-BA-COLLECTIONS-88 VALUE '03'. CL*34
|
|
00013 88 C220-BA-AUDIT-88 VALUE '04'. CL*34
|
|
00014 88 C220-BA-RATING-88 VALUE '05'. CL*42
|
|
00015 88 C220-BA-GENERAL-88 VALUE '99'. CL*34
|
|
00016 CL*34
|
|
00017 10 C220-ACTIVITY-CODE PIC X(03). CL*34
|
|
00018 88 C220-EMP-REGISTERED-88 VALUE '001'. CL*34
|
|
00019 88 C220-LIAB-DETERM-88 VALUE '002'. CL*34
|
|
00020 88 C220-RELATIONSHIP-88 VALUE '003'. CL*34
|
|
00021 88 C220-ADDRESS-88 VALUE '004'. CL*34
|
|
00022 88 C220-OPO-88 VALUE '005'. CL*34
|
|
00023 88 C220-BLOCKED-CLAIM-88 VALUE '006'. CL*34
|
|
00024 88 C220-SEND-FR500-88 VALUE '007'. CL*37
|
|
00025 88 C220-OTHER-STATUS-88 VALUE '008'. CL*37
|
|
00026 88 C220-REPORT-ADD-88 VALUE '020'. CL*34
|
|
00027 88 C220-REPORT-MOD-88 VALUE '021'. CL*34
|
|
00028 88 C220-PAY-ADD-88 VALUE '022'. CL*34
|
|
00029 88 C220-PAY-MOD-88 VALUE '023'. CL*34
|
|
00030 88 C220-ADJ-ADD-88 VALUE '024'. CL*34
|
|
00031 88 C220-ADJ-MOD-88 VALUE '025'. CL*34
|
|
00032 88 C220-CRED-DEBIT-VERIF-88 VALUE '026'. CL*40
|
|
00033 88 C220-SEND-UC30-88 VALUE '028'. CL*34
|
|
00034 88 C220-FUTA-CERT-88 VALUE '029'. CL*34
|
|
00035 88 C220-MISC-COLL-88 VALUE '040'. CL*36
|
|
00036 88 C220-ASSIGN-COMPLETE-88 VALUE '041'. CL*34
|
|
00037 88 C220-AUDIT-REPORT-88 VALUE '042'. CL*34
|
|
00038 88 C220-AUDIT-COMPLETE-88 VALUE '043'. CL*34
|
|
00039 88 C220-DPC-ADD-88 VALUE '044'. CL*34
|
|
00040 88 C220-DPC-MOD-88 VALUE '045'. CL*34
|
|
00041 88 C220-LIEN-ADD-88 VALUE '046'. CL*34
|
|
00042 88 C220-LIEN-MOD-88 VALUE '047'. CL*34
|
|
00043 88 C220-LEVY-ADD-88 VALUE '048'. CL*34
|
|
00044 88 C220-LEVY-MOD-88 VALUE '049'. CL*34
|
|
00045 88 C220-COMPROMISE-88 VALUE '050'. CL*34
|
|
00046 88 C220-FIELD-VISIT-88 VALUE '052'. CL*38
|
|
00047 88 C220-RATE-ADD-88 VALUE '070'. CL*34
|
|
00048 88 C220-RATE-MOD-88 VALUE '071'. CL*34
|
|
00049 88 C220-RATE-DATA-ADD-88 VALUE '072'. CL*34
|
|
00050 88 C220-RATE-DATA-MOD-88 VALUE '073'. CL*34
|
|
00051 88 C220-PHONE-TO-EMP-88 VALUE '100'. CL*41
|
|
00052 88 C220-LETTER-TO-EMP-88 VALUE '101'. CL*41
|
|
00053 88 C220-PHONE-TO-AGENT-88 VALUE '102'. CL*41
|
|
00054 88 C220-LETTER-TO-AGENT-88 VALUE '103'. CL*41
|
|
00055 88 C220-FIELD-VISIT-88 VALUE '104'. CL*41
|
|
00056 88 C220-SEARCH-DUTAS-88 VALUE '105'. CL*41
|
|
00057 88 C220-SEARCH-EXTERNAL-88 VALUE '106'. CL*41
|
|
00058 88 C220-SEARCH-TAX-FILES-88 VALUE '107'. CL*41
|
|
00059 88 C220-PROCESS-CALL-LTR-88 VALUE '108'. CL*41
|
|
00060 88 C220-SEND-FR500-88 VALUE '109'. CL*41
|
|
00061 88 C220-SEND-UC30-88 VALUE '110'. CL*41
|
|
00062 88 C220-SEND-UC226-88 VALUE '111'. CL*41
|
|
00063 88 C220-RESOLVE-BLK-CLM-88 VALUE '112'. CL*41
|
|
00064 88 C220-PRE-AUDIT-88 VALUE '113'. CL*41
|
|
00065 88 C220-EMPLOYER-VISIT-88 VALUE '114'. CL*41
|