DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
122
Copybook/DTSIMFAS.cpy
Normal file
122
Copybook/DTSIMFAS.cpy
Normal file
@ -0,0 +1,122 @@
|
||||
00001 ***** 02/07/12
|
||||
00002 * DTSIMFAS
|
||||
00003 * DTSIMFAS MASTER FILE 'FIELD ASSIGNMENT' RECORD DEFINITION LV005
|
||||
00004 * DTSIMFAS
|
||||
00005 * DTSIMFAS
|
||||
00006 * 08/28/1998 REVIEWED AND MODIFED FOR DC. EHH DTSIMFAS
|
||||
00007 * DTSIMFAS
|
||||
00008 ***** DTSIMFAS
|
||||
00009 DTSIMFAS
|
||||
00010 10 MFAS-KEY-AREA. DTSIMFAS
|
||||
00011 15 MFAS-EMP-NO PIC S9(07) COMP-3. DTSIMFAS
|
||||
00012 15 MFAS-REC-TYPE PIC S9(04) COMP. DTSIMFAS
|
||||
00013 88 MFAS-FAS-88 VALUE +26. DTSIMFAS
|
||||
00014 15 MFAS-ASSIGN-NO PIC S9(09) COMP-3. DTSIMFAS
|
||||
00015 15 MFAS-KEY-FILLER PIC X(05). DTSIMFAS
|
||||
00016 DTSIMFAS
|
||||
00017 DTSIMFAS
|
||||
00018 10 MFAS-PURGE-DATE PIC S9(09) COMP-3. DTSIMFAS
|
||||
00019 DTSIMFAS
|
||||
00020 DTSIMFAS
|
||||
00021 10 MFAS-DATA-AREA. DTSIMFAS
|
||||
00022 15 MFAS-STATUS-CD PIC X(01). DTSIMFAS
|
||||
00023 88 MFAS-STATUS-ACTIVE-88 VALUE 'A'. DTSIMFAS
|
||||
00024 88 MFAS-STATUS-COMPLETE-88 VALUE 'C'. DTSIMFAS
|
||||
00025 88 MFAS-STATUS-PROCESSED-88 VALUE 'P'. DTSIMFAS
|
||||
00026 88 MFAS-STATUS-HELD-88 VALUE 'H'. DTSIMFAS
|
||||
00027 88 MFAS-STATUS-KILLED-88 VALUE 'K'. DTSIMFAS
|
||||
00028 DTSIMFAS
|
||||
00029 15 MFAS-FLD-REP-ID PIC X(02). DTSIMFAS
|
||||
00030 88 MFAS-FLD-REP-FIELD-DESK-88 VALUE 'FD'. DTSIMFAS
|
||||
00031 88 MFAS-FLD-REP-ACCTNG-DESK-88 VALUE 'AD'. DTSIMFAS
|
||||
00032 DTSIMFAS
|
||||
00033 15 MFAS-ASSIGN-TYPE PIC X(02). DTSIMFAS
|
||||
00034 DTSIMFAS
|
||||
00035 15 MFAS-ATTACHMENTS-IND PIC X(01). DTSIMFAS
|
||||
00036 88 MFAS-ATTACHMENTS-NO-88 VALUE 'N'. DTSIMFAS
|
||||
00037 88 MFAS-ATTACHMENTS-YES-88 VALUE 'Y'. DTSIMFAS
|
||||
00038 DTSIMFAS
|
||||
00039 15 MFAS-AUDIT-IND PIC X(01). DTSIMFAS
|
||||
00040 88 MFAS-TARGET-AUDIT-88 VALUE 'T'. DTSIMFAS
|
||||
00041 88 MFAS-REQUEST-AUDIT-88 VALUE 'R'. DTSIMFAS
|
||||
00042 88 MFAS-VERIF-AUDIT-88 VALUE 'V'. DTSIMFAS
|
||||
00043 88 MFAS-AUDIT-88 VALUE 'R' 'V' 'T'. DTSIMFAS
|
||||
00044 88 MFAS-NON-AUDIT-88 VALUE 'N'. DTSIMFAS
|
||||
00045 DTSIMFAS
|
||||
00046 15 MFAS-ACCOUNTING-DESK-IND PIC X(01). DTSIMFAS
|
||||
00047 88 MFAS-ACCOUNTING-DESK-NO-88 VALUE 'N'. DTSIMFAS
|
||||
00048 88 MFAS-ACCOUNTING-DESK-YES-88 VALUE 'Y'. DTSIMFAS
|
||||
00049 DTSIMFAS
|
||||
00050 DTSIMFAS
|
||||
00051 15 MFAS-START-DATE PIC S9(09) COMP-3. DTSIMFAS
|
||||
00052 DTSIMFAS
|
||||
00053 15 MFAS-DUE-DATE PIC S9(09) COMP-3. DTSIMFAS
|
||||
00054 DTSIMFAS
|
||||
00055 15 MFAS-COMPLETED-DATE PIC S9(09) COMP-3. DTSIMFAS
|
||||
00056 DTSIMFAS
|
||||
00057 15 MFAS-PROCESSED-DATE PIC S9(09) COMP-3. DTSIMFAS
|
||||
00058 DTSIMFAS
|
||||
00059 15 MFAS-TAX-DOWNLOAD-DATE PIC S9(09) COMP-3. DTSIMFAS
|
||||
00060 DTSIMFAS
|
||||
00061 15 MFAS-WAGE-DOWNLOAD-DATE PIC S9(09) COMP-3. DTSIMFAS
|
||||
00062 DTSIMFAS
|
||||
00063 DTSIMFAS
|
||||
00064 15 MFAS-SOURCE-OP-ID PIC X(08). DTSIMFAS
|
||||
00065 DTSIMFAS
|
||||
00066 DTSIMFAS
|
||||
00067 15 MFAS-CLAIMANT-SSN PIC S9(09) COMP-3. DTSIMFAS
|
||||
00068 DTSIMFAS
|
||||
00069 15 MFAS-CLAIMANT-NAME PIC X(32). DTSIMFAS
|
||||
00070 DTSIMFAS
|
||||
00071 15 MFAS-RELATED-EMP-NO PIC S9(07) COMP-3. DTSIMFAS
|
||||
00072 DTSIMFAS
|
||||
00073 DTSIMFAS
|
||||
00074 15 MFAS-START-YRQ PIC S9(05) COMP-3. DTSIMFAS
|
||||
00075 DTSIMFAS
|
||||
00076 15 MFAS-END-YRQ PIC S9(05) COMP-3. DTSIMFAS
|
||||
00077 DTSIMFAS
|
||||
00078 DTSIMFAS
|
||||
00079 15 MFAS-SIC-CD PIC X(04). DTSIMFAS
|
||||
00080 DTSIMFAS
|
||||
00081 15 MFAS-NAICS-CD PIC X(06). DTSIMFAS
|
||||
00082 DTSIMFAS
|
||||
00083 15 MFAS-OWN-CD PIC X(02). DTSIMFAS
|
||||
00084 DTSIMFAS
|
||||
00085 DTSIMFAS
|
||||
00086 15 MFAS-EMP-SIZE-IND PIC X(01). DTSIMFAS
|
||||
00087 88 MFAS-EMP-LARGE-88 VALUE 'L'. DTSIMFAS
|
||||
00088 88 MFAS-EMP-SMALL-88 VALUE 'S'. DTSIMFAS
|
||||
00089 88 MFAS-EMP-NON-AUDIT-88 VALUE ' '. DTSIMFAS
|
||||
00090 DTSIMFAS
|
||||
00091 DTSIMFAS
|
||||
00092 15 MFAS-SEL-CNT PIC S9(04) COMP. DTSIMFAS
|
||||
00093 DTSIMFAS
|
||||
00094 15 MFAS-AUDIT-SEL-AREA. DTSIMFAS
|
||||
00095 20 MFAS-AUDIT-SEL-REASON DTSIMFAS
|
||||
00096 OCCURS 5 TIMES DTSIMFAS
|
||||
00097 INDEXED BY MFAS-SEL-IDX DTSIMFAS
|
||||
00098 PIC X(02). DTSIMFAS
|
||||
00099 88 MFAS-AUDIT-SEL-RANDOM-88 VALUE '01'. DTSIMFAS
|
||||
00100 88 MFAS-AUDIT-SEL-LARGE-EMP-88 VALUE '02'. DTSIMFAS
|
||||
00101 88 MFAS-AUDIT-SEL-REQUEST-88 VALUE '03'. DTSIMFAS
|
||||
00102 DTSIMFAS
|
||||
00103 DTSIMFAS
|
||||
00104 15 FILLER PIC X(48). DTSIMFAS
|
||||
00105 DTSIMFAS
|
||||
00106 DTSIMFAS
|
||||
00107 15 MFAS-CONVERTED-IND PIC X(01). DTSIMFAS
|
||||
00108 88 MFAS-CONVERTED-88 VALUE 'Y'. DTSIMFAS
|
||||
00109 88 MFAS-NOT-CONVERTED-88 VALUE 'N'. DTSIMFAS
|
||||
00110 DTSIMFAS
|
||||
00111 DTSIMFAS
|
||||
00112 15 MFAS-ESTB-DATE PIC S9(09) COMP-3. DTSIMFAS
|
||||
00113 DTSIMFAS
|
||||
00114 15 MFAS-CHNG-DATE PIC S9(09) COMP-3. DTSIMFAS
|
||||
00115 DTSIMFAS
|
||||
00116 DTSIMFAS
|
||||
00117 15 MFAS-TEXT-CNT PIC S9(04) COMP. DTSIMFAS
|
||||
00118 DTSIMFAS
|
||||
00119 15 MFAS-TEXT-AREA. DTSIMFAS
|
||||
00120 20 MFAS-TEXT OCCURS 12 TIMES DTSIMFAS
|
||||
00121 INDEXED BY MFAS-TEXT-IDX DTSIMFAS
|
||||
00122 PIC X(72). DTSIMFAS
|
||||
Reference in New Issue
Block a user