00001 ***** 11/04/98 00002 * DTSIC037 00003 * DTSIC037 MISCELLANEOULS CODES VALUES AND DESCRIPTIONS. LV003 00004 * DTSIC037 00005 ***** DTSIC037 00006 SKIP1 DTSIC037 00007 ***** DTSIC037 00008 * OPTION 01 = MTCK-TYPE DTSIC037 00009 ***** DTSIC037 00010 10 C037-01-AREA. DTSIC037 00011 15 FILLER PIC X(03) VALUE 'MAN'. DTSIC037 00012 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC037 00013 15 FILLER PIC X(40) DTSIC037 00014 VALUE 'MANUAL'. DTSIC037 00015 15 FILLER PIC X(03) VALUE 'ERA'. DTSIC037 00016 15 FILLER PIC X(10) VALUE 'CYCLE A'. DTSIC037 00017 15 FILLER PIC X(40) DTSIC037 00018 VALUE 'EMPLOYER REGISTRATION CYCLE A'. DTSIC037 00019 15 FILLER PIC X(03) VALUE 'L01'. DTSIC037 00020 15 FILLER PIC X(10) VALUE 'LIEN FILE'. DTSIC037 00021 15 FILLER PIC X(40) DTSIC037 00022 VALUE 'LIEN FILING INFORMATION'. DTSIC037 00023 15 FILLER PIC X(03) VALUE 'LTE'. DTSIC037 00024 15 FILLER PIC X(10) VALUE 'LATE RPT'. DTSIC037 00025 15 FILLER PIC X(40) DTSIC037 00026 VALUE 'LATE REPORT ANALYSIS'. DTSIC037 00027 15 FILLER PIC X(03) VALUE 'DPC'. DTSIC037 00028 15 FILLER PIC X(10) VALUE 'PEND DPC'. DTSIC037 00029 15 FILLER PIC X(40) DTSIC037 00030 VALUE 'PENDING DEFERRED PAYMENT CONTRACT'. DTSIC037 00031 SKIP1 DTSIC037 00032 10 FILLER REDEFINES C037-01-AREA. DTSIC037 00033 15 C037-01-ENTRY OCCURS 5 TIMES CL**3 00034 INDEXED BY C037-01-IDX. DTSIC037 00035 20 C037-01-CD PIC X(03). DTSIC037 00036 20 C037-01-SHORT-DSCR PIC X(10). DTSIC037 00037 20 C037-01-LONG-DSCR PIC X(40). DTSIC037