DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
65
Copybook/DTSIC220.cpy
Normal file
65
Copybook/DTSIC220.cpy
Normal file
@ -0,0 +1,65 @@
|
||||
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
|
||||
Reference in New Issue
Block a user