91 lines
7.1 KiB
COBOL
91 lines
7.1 KiB
COBOL
00001 ***** 01/29/02
|
|
00002 * DTSIMFSC
|
|
00003 * DTSIMFSC MASTER FILE 'FILING SCHEDULE' RECORD DEFINITION. LV001
|
|
00004 * DTSIMFSC
|
|
00005 * DTSIMFSC
|
|
00006 * 10/02/2001 INITIAL DEVELOPMENT. GD DTSIMFSC
|
|
00007 * DTSIMFSC
|
|
00008 ***** DTSIMFSC
|
|
00009 DTSIMFSC
|
|
00010 10 MFSC-KEY-AREA. DTSIMFSC
|
|
00011 15 MFSC-EMP-NO PIC S9(07) COMP-3. DTSIMFSC
|
|
00012 15 MFSC-REC-TYPE PIC S9(04) COMP. DTSIMFSC
|
|
00013 88 MFSC-FSC-88 VALUE +07. DTSIMFSC
|
|
00014 15 MFSC-ABS-QTR PIC S9(04) COMP. DTSIMFSC
|
|
00015 15 MFSC-ABSTIME PIC S9(15) COMP-3. DTSIMFSC
|
|
00016 DTSIMFSC
|
|
00017 DTSIMFSC
|
|
00018 10 MFSC-PURGE-DATE PIC S9(09) COMP-3. DTSIMFSC
|
|
00019 DTSIMFSC
|
|
00020 DTSIMFSC
|
|
00021 10 MFSC-DATA-AREA. DTSIMFSC
|
|
00022 15 MFSC-STATUS-CD PIC X(01). DTSIMFSC
|
|
00023 88 MFSC-STATUS-PENDING-88 VALUE 'P'. DTSIMFSC
|
|
00024 88 MFSC-STATUS-OPEN-88 VALUE 'O'. DTSIMFSC
|
|
00025 88 MFSC-STATUS-WITHDRAWN-88 VALUE 'W'. DTSIMFSC
|
|
00026 DTSIMFSC
|
|
00027 88 MFSC-STATUS-VALID-88 VALUE 'P' 'O' DTSIMFSC
|
|
00028 'W'. DTSIMFSC
|
|
00029 DTSIMFSC
|
|
00030 15 MFSC-START-YRQ PIC S9(05) COMP-3. DTSIMFSC
|
|
00031 DTSIMFSC
|
|
00032 15 MFSC-END-YRQ PIC S9(05) COMP-3. DTSIMFSC
|
|
00033 DTSIMFSC
|
|
00034 15 MFSC-FILING-SCHEDULE-CD PIC X(01). DTSIMFSC
|
|
00035 88 MFSC-FILING-SCHED-QTR-88 VALUE 'Q'. DTSIMFSC
|
|
00036 88 MFSC-FILING-SCHED-ANN-88 VALUE 'A'. DTSIMFSC
|
|
00037 DTSIMFSC
|
|
00038 15 MFSC-REQUEST-TYPE-CD PIC X(02). DTSIMFSC
|
|
00039 88 MFSC-REQ-LIAB-DETERM-88 VALUE '01'. DTSIMFSC
|
|
00040 88 MFSC-REQ-EMP-88 VALUE '02'. DTSIMFSC
|
|
00041 88 MFSC-REQ-ADMIN-88 VALUE '03'. DTSIMFSC
|
|
00042 88 MFSC-REQ-ORG-TYPE-88 VALUE '04'. DTSIMFSC
|
|
00043 88 MFSC-REQ-CONV-88 VALUE '09'. DTSIMFSC
|
|
00044 DTSIMFSC
|
|
00045 ******* THE FOLLOWING FIELD NOT USED. GENERAL COUNSEL DECIDED DTSIMFSC
|
|
00046 ******* THAT ANNUAL FILING CANNOT BE DENIED BECAUSE OF DTSIMFSC
|
|
00047 ******* DELINQUENCY. 1/17/2002 - GD DTSIMFSC
|
|
00048 15 MFSC-CHANGE-REASON-CD PIC X(02). DTSIMFSC
|
|
00049 88 MFSC-REASN-DELINQ-88 VALUE '01'. DTSIMFSC
|
|
00050 88 MFSC-REASN-ADMIN-88 VALUE '02'. DTSIMFSC
|
|
00051 DTSIMFSC
|
|
00052 15 MFSC-INITIAL-MAIL-DATE PIC S9(09) COMP-3.DTSIMFSC
|
|
00053 DTSIMFSC
|
|
00054 15 MFSC-INIT-NOTICE-TYPE PIC X(01). DTSIMFSC
|
|
00055 88 MFSC-INIT-1A-88 VALUE '0'. DTSIMFSC
|
|
00056 88 MFSC-INIT-REQUEST-88 VALUE '1'. DTSIMFSC
|
|
00057 88 MFSC-INIT-CONV-88 VALUE '9'. DTSIMFSC
|
|
00058 DTSIMFSC
|
|
00059 15 MFSC-CONFIRM-MAIL-DATE PIC S9(09) COMP-3.DTSIMFSC
|
|
00060 DTSIMFSC
|
|
00061 15 MFSC-CONFIRM-NOTICE-TYPE PIC X(01). DTSIMFSC
|
|
00062 88 MFSC-CONFIRM-QTR-88 VALUE '0'. DTSIMFSC
|
|
00063 88 MFSC-CONFIRM-ANN-88 VALUE '1'. DTSIMFSC
|
|
00064 DTSIMFSC
|
|
00065 ******* THE FOLLOWING 2 FIELDS NOT USED. GENERAL COUNSEL DECIDED DTSIMFSC
|
|
00066 ******* THAT ANNUAL FILING CANNOT BE DENIED BECAUSE OF DTSIMFSC
|
|
00067 ******* DELINQUENCY. 1/17/2002 - GD DTSIMFSC
|
|
00068 15 MFSC-DENIAL-MAIL-DATE PIC S9(09) COMP-3.DTSIMFSC
|
|
00069 DTSIMFSC
|
|
00070 15 MFSC-DENIAL-NOTICE-TYPE PIC X(01). DTSIMFSC
|
|
00071 88 MFSC-DENY-REACTIVATE-88 VALUE '0'. DTSIMFSC
|
|
00072 88 MFSC-DENY-DELINQUENT-88 VALUE '1'. DTSIMFSC
|
|
00073 DTSIMFSC
|
|
00074 15 MFSC-CHNG-OP-ID PIC X(08). DTSIMFSC
|
|
00075 88 MFSC-CHNG-SYSTEM-88 VALUE 'SYSTEM'. DTSIMFSC
|
|
00076 DTSIMFSC
|
|
00077 DTSIMFSC
|
|
00078 15 FILLER PIC X(126). DTSIMFSC
|
|
00079 DTSIMFSC
|
|
00080 DTSIMFSC
|
|
00081 15 MFSC-ESTB-DATE PIC S9(09) COMP-3. DTSIMFSC
|
|
00082 DTSIMFSC
|
|
00083 15 MFSC-CHNG-DATE PIC S9(09) COMP-3. DTSIMFSC
|
|
00084 DTSIMFSC
|
|
00085 15 MFSC-NOTE-CNT PIC S9(04) COMP. DTSIMFSC
|
|
00086 DTSIMFSC
|
|
00087 15 MFSC-NOTE-AREA DTSIMFSC
|
|
00088 OCCURS 4 TIMES DTSIMFSC
|
|
00089 INDEXED BY MFSC-NOTE-IDX. DTSIMFSC
|
|
00090 20 MFSC-NOTE PIC X(72). DTSIMFSC
|