38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
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
|