123 lines
9.7 KiB
COBOL
123 lines
9.7 KiB
COBOL
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
|