131 lines
10 KiB
COBOL
131 lines
10 KiB
COBOL
00001 ***** 01/29/02
|
|
00002 * DTSIC042
|
|
00003 * DTSIC042 FILING SCHEDULE CODES VALUES AND DESCRIPTIONS. LV001
|
|
00004 * DTSIC042
|
|
00005 ***** DTSIC042
|
|
00006 SKIP1 DTSIC042
|
|
00007 ***** DTSIC042
|
|
00008 * OPTION 01 = MFSC-STATUS-CD DTSIC042
|
|
00009 ***** DTSIC042
|
|
00010 10 C042-01-AREA. DTSIC042
|
|
00011 15 FILLER PIC X(01) VALUE 'P'. DTSIC042
|
|
00012 15 FILLER PIC X(10) VALUE 'PENDING '. DTSIC042
|
|
00013 15 FILLER PIC X(40) DTSIC042
|
|
00014 VALUE 'PENDING - EMP REQUEST OR 1C '. DTSIC042
|
|
00015 15 FILLER PIC X(01) VALUE 'A'. DTSIC042
|
|
00016 15 FILLER PIC X(10) VALUE 'PENDING 1A'. DTSIC042
|
|
00017 15 FILLER PIC X(40) DTSIC042
|
|
00018 VALUE 'PENDING - POTENTIAL HOUSEHOLD '. DTSIC042
|
|
00019 15 FILLER PIC X(01) VALUE 'O'. DTSIC042
|
|
00020 15 FILLER PIC X(10) VALUE 'OPEN '. DTSIC042
|
|
00021 15 FILLER PIC X(40) DTSIC042
|
|
00022 VALUE 'OPEN '. DTSIC042
|
|
00023 15 FILLER PIC X(01) VALUE 'W'. DTSIC042
|
|
00024 15 FILLER PIC X(10) VALUE 'WITHDRAWN '. DTSIC042
|
|
00025 15 FILLER PIC X(40) DTSIC042
|
|
00026 VALUE 'WITHDRAWN '. DTSIC042
|
|
00027 SKIP1 DTSIC042
|
|
00028 10 FILLER REDEFINES C042-01-AREA. DTSIC042
|
|
00029 15 C042-01-ENTRY OCCURS 4 TIMES DTSIC042
|
|
00030 INDEXED BY C042-01-IDX. DTSIC042
|
|
00031 20 C042-01-CD PIC X(01). DTSIC042
|
|
00032 20 C042-01-SHORT-DSCR PIC X(10). DTSIC042
|
|
00033 20 C042-01-LONG-DSCR PIC X(40). DTSIC042
|
|
00034 SKIP3 DTSIC042
|
|
00035 ***** DTSIC042
|
|
00036 * OPTION 02 = MFSC-FILING-SCHEDULE-CD DTSIC042
|
|
00037 ***** DTSIC042
|
|
00038 10 C042-02-AREA. DTSIC042
|
|
00039 15 FILLER PIC X(01) VALUE 'Q'. DTSIC042
|
|
00040 15 FILLER PIC X(10) VALUE 'QUARTERLY '. DTSIC042
|
|
00041 15 FILLER PIC X(40) DTSIC042
|
|
00042 VALUE 'QUARTERLY '. DTSIC042
|
|
00043 15 FILLER PIC X(01) VALUE 'A'. DTSIC042
|
|
00044 15 FILLER PIC X(10) VALUE 'ANNUAL '. DTSIC042
|
|
00045 15 FILLER PIC X(40) DTSIC042
|
|
00046 VALUE 'ANNUAL '. DTSIC042
|
|
00047 SKIP1 DTSIC042
|
|
00048 10 FILLER REDEFINES C042-02-AREA. DTSIC042
|
|
00049 15 C042-02-ENTRY OCCURS 2 TIMES DTSIC042
|
|
00050 INDEXED BY C042-02-IDX. DTSIC042
|
|
00051 20 C042-02-CD PIC X(01). DTSIC042
|
|
00052 20 C042-02-SHORT-DSCR PIC X(10). DTSIC042
|
|
00053 20 C042-02-LONG-DSCR PIC X(40). DTSIC042
|
|
00054 SKIP3 DTSIC042
|
|
00055 ***** DTSIC042
|
|
00056 * OPTION 03 = MFSC-REQUEST-TYPE-CD DTSIC042
|
|
00057 ***** DTSIC042
|
|
00058 10 C042-03-AREA. DTSIC042
|
|
00059 15 FILLER PIC X(02) VALUE '01'. DTSIC042
|
|
00060 15 FILLER PIC X(10) VALUE 'LIAB DETRM'. DTSIC042
|
|
00061 15 FILLER PIC X(40) DTSIC042
|
|
00062 VALUE 'LIABILITY DETERMINATION '. DTSIC042
|
|
00063 15 FILLER PIC X(02) VALUE '02'. DTSIC042
|
|
00064 15 FILLER PIC X(10) VALUE 'EMP REQUST'. DTSIC042
|
|
00065 15 FILLER PIC X(40) DTSIC042
|
|
00066 VALUE 'EMPLOYER REQUEST '. DTSIC042
|
|
00067 15 FILLER PIC X(02) VALUE '03'. DTSIC042
|
|
00068 15 FILLER PIC X(10) VALUE 'ADMIN '. DTSIC042
|
|
00069 15 FILLER PIC X(40) DTSIC042
|
|
00070 VALUE 'ADMINISTRATIVE '. DTSIC042
|
|
00071 15 FILLER PIC X(02) VALUE '04'. DTSIC042
|
|
00072 15 FILLER PIC X(10) VALUE 'ORG TYPE '. DTSIC042
|
|
00073 15 FILLER PIC X(40) DTSIC042
|
|
00074 VALUE 'ORGANIZATION TYPE CHANGE '. DTSIC042
|
|
00075 15 FILLER PIC X(02) VALUE '09'. DTSIC042
|
|
00076 15 FILLER PIC X(10) VALUE 'CONVERSION'. DTSIC042
|
|
00077 15 FILLER PIC X(40) DTSIC042
|
|
00078 VALUE 'CONVERSION '. DTSIC042
|
|
00079 SKIP1 DTSIC042
|
|
00080 10 FILLER REDEFINES C042-03-AREA. DTSIC042
|
|
00081 15 C042-03-ENTRY OCCURS 5 TIMES DTSIC042
|
|
00082 INDEXED BY C042-03-IDX. DTSIC042
|
|
00083 20 C042-03-CD PIC X(02). DTSIC042
|
|
00084 20 C042-03-SHORT-DSCR PIC X(10). DTSIC042
|
|
00085 20 C042-03-LONG-DSCR PIC X(40). DTSIC042
|
|
00086 SKIP1 DTSIC042
|
|
00087 ***** DTSIC042
|
|
00088 * OPTION 05 = MFSC-INIT-NOTICE-TYPE DTSIC042
|
|
00089 ***** DTSIC042
|
|
00090 10 C042-05-AREA. DTSIC042
|
|
00091 15 FILLER PIC X(01) VALUE '0'. DTSIC042
|
|
00092 15 FILLER PIC X(10) VALUE 'POTENTIAL '. DTSIC042
|
|
00093 15 FILLER PIC X(40) DTSIC042
|
|
00094 VALUE 'POTENTIAL HOUSEHOLD EMPLOYER (1A) '. DTSIC042
|
|
00095 15 FILLER PIC X(01) VALUE '1'. DTSIC042
|
|
00096 15 FILLER PIC X(10) VALUE 'REQUEST '. DTSIC042
|
|
00097 15 FILLER PIC X(40) DTSIC042
|
|
00098 VALUE 'EMPLOYER REQUESTED CHANGE '. DTSIC042
|
|
00099 15 FILLER PIC X(01) VALUE '9'. DTSIC042
|
|
00100 15 FILLER PIC X(10) VALUE 'CONVERSION'. DTSIC042
|
|
00101 15 FILLER PIC X(40) DTSIC042
|
|
00102 VALUE 'CONVERSION '. DTSIC042
|
|
00103 SKIP1 DTSIC042
|
|
00104 10 FILLER REDEFINES C042-05-AREA. DTSIC042
|
|
00105 15 C042-05-ENTRY OCCURS 3 TIMES DTSIC042
|
|
00106 INDEXED BY C042-05-IDX. DTSIC042
|
|
00107 20 C042-05-CD PIC X(01). DTSIC042
|
|
00108 20 C042-05-SHORT-DSCR PIC X(10). DTSIC042
|
|
00109 20 C042-05-LONG-DSCR PIC X(40). DTSIC042
|
|
00110 SKIP1 DTSIC042
|
|
00111 ***** DTSIC042
|
|
00112 * OPTION 06 = MFSC-CONF-NOTICE-TYPE DTSIC042
|
|
00113 ***** DTSIC042
|
|
00114 10 C042-06-AREA. DTSIC042
|
|
00115 15 FILLER PIC X(01) VALUE '0'. DTSIC042
|
|
00116 15 FILLER PIC X(10) VALUE 'CONFRM QTR'. DTSIC042
|
|
00117 15 FILLER PIC X(40) DTSIC042
|
|
00118 VALUE 'CONFIRM QUARTERLY FILING '. DTSIC042
|
|
00119 15 FILLER PIC X(01) VALUE '1'. DTSIC042
|
|
00120 15 FILLER PIC X(10) VALUE 'CONFRM ANN'. DTSIC042
|
|
00121 15 FILLER PIC X(40) DTSIC042
|
|
00122 VALUE 'CONFIRM ANNUAL FILING '. DTSIC042
|
|
00123 SKIP1 DTSIC042
|
|
00124 10 FILLER REDEFINES C042-06-AREA. DTSIC042
|
|
00125 15 C042-06-ENTRY OCCURS 2 TIMES DTSIC042
|
|
00126 INDEXED BY C042-06-IDX. DTSIC042
|
|
00127 20 C042-06-CD PIC X(01). DTSIC042
|
|
00128 20 C042-06-SHORT-DSCR PIC X(10). DTSIC042
|
|
00129 20 C042-06-LONG-DSCR PIC X(40). DTSIC042
|
|
00130 SKIP1 DTSIC042
|