105 lines
8.2 KiB
COBOL
105 lines
8.2 KiB
COBOL
00001 ***** 08/28/98
|
|
00002 * DTSIMELF
|
|
00003 * DTSIMELF MASTER 'ELECTRONIC FILER ' RECORD DEFINITION LV003
|
|
00004 * DTSIMELF
|
|
00005 * CL**2
|
|
00006 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * DTSIMELF
|
|
00008 ***** DTSIMELF
|
|
00009 CL**2
|
|
00010 10 MELF-KEY-AREA. DTSIMELF
|
|
00011 15 MELF-EMP-NO PIC S9(07) COMP-3. DTSIMELF
|
|
00012 15 MELF-REC-TYPE PIC S9(04) COMP. DTSIMELF
|
|
00013 88 MELF-ELF-88 VALUE +24. DTSIMELF
|
|
00014 15 MELF-KEY-FILLER PIC X(10). DTSIMELF
|
|
00015 CL**2
|
|
00016 CL**2
|
|
00017 10 MELF-PURGE-DATE PIC S9(09) COMP-3. DTSIMELF
|
|
00018 CL**2
|
|
00019 CL**2
|
|
00020 10 MELF-DATA-AREA. DTSIMELF
|
|
00021 15 MELF-WAGES-IND PIC X(01). DTSIMELF
|
|
00022 88 MELF-WAGES-YES-88 VALUE 'Y'. CL**2
|
|
00023 88 MELF-WAGES-NO-88 VALUE 'N'. DTSIMELF
|
|
00024 CL**2
|
|
00025 15 MELF-TAX-RPT-IND PIC X(01). DTSIMELF
|
|
00026 88 MELF-TAX-RPT-YES-88 VALUE 'Y'. DTSIMELF
|
|
00027 88 MELF-TAX-RPT-NO-88 VALUE 'N'. DTSIMELF
|
|
00028 CL**2
|
|
00029 15 MELF-WAGE-BEGIN-YRQ PIC S9(05) COMP-3. DTSIMELF
|
|
00030 CL**2
|
|
00031 15 MELF-REPORT-BEGIN-YRQ PIC S9(05) COMP-3. DTSIMELF
|
|
00032 CL**2
|
|
00033 15 MELF-MEDIA-TYPE-CD PIC X(01). DTSIMELF
|
|
00034 88 MELF-MEDIA-CART-TAPE-88 VALUE 'C'. CL**2
|
|
00035 88 MELF-MEDIA-DISKETTE-88 VALUE 'D'. DTSIMELF
|
|
00036 88 MELF-MEDIA-INTERNET-88 VALUE 'I'. CL**2
|
|
00037 88 MELF-MEDIA-REEL-TAPE-88 VALUE 'R'. CL**2
|
|
00038 88 MELF-MEDIA-CART-REEL-88 VALUE 'C' 'R'. CL**2
|
|
00039 88 MELF-MEDIA-VALID-88 VALUE 'C' 'D' 'I' CL**2
|
|
00040 'R'. CL**2
|
|
00041 CL**2
|
|
00042 15 MELF-DISK-SIZE PIC X(05). DTSIMELF
|
|
00043 88 MELF-DISK-3-HALF-88 VALUE '3 1/2'. DTSIMELF
|
|
00044 88 MELF-DISK-5-QTR-88 VALUE '5 1/4'. DTSIMELF
|
|
00045 88 MELF-DISK-BOTH-88 VALUE 'BOTH '. DTSIMELF
|
|
00046 88 MELF-DISK-NONE-88 VALUE ' '. DTSIMELF
|
|
00047 88 MELF-DISK-YES-88 VALUE '3 1/2' DTSIMELF
|
|
00048 '5 1/4' 'BOTH '. DTSIMELF
|
|
00049 CL**2
|
|
00050 15 MELF-MEDIA-CHANGE-DATE PIC S9(09) COMP-3. DTSIMELF
|
|
00051 CL**2
|
|
00052 15 MELF-FORMAT-BOOK-IND PIC X(01). CL**2
|
|
00053 88 MELF-FORMAT-BOOK-NO-88 VALUE 'N'. CL**2
|
|
00054 88 MELF-FORMAT-BOOK-YES-88 VALUE 'Y'. CL**2
|
|
00055 88 MELF-FORMAT-BOOK-VALID-88 VALUE 'Y' 'N'. CL**2
|
|
00056 CL**2
|
|
00057 CL**2
|
|
00058 15 MELF-PAYROLL-CONTACT-NAME PIC X(32). DTSIMELF
|
|
00059 CL**2
|
|
00060 15 MELF-PYRLL-CONTACT-EMAIL-ADDR PIC X(40). CL**2
|
|
00061 CL**2
|
|
00062 15 MELF-PAYROLL-CONTACT-PHONE. DTSIMELF
|
|
00063 20 MELF-PAYROLL-VOICE-AREA-CD PIC X(03). DTSIMELF
|
|
00064 20 MELF-PAYROLL-VOICE-PREFIX PIC X(03). DTSIMELF
|
|
00065 20 MELF-PAYROLL-VOICE-SUFFIX PIC X(04). DTSIMELF
|
|
00066 20 MELF-PAYROLL-VOICE-EXT PIC X(05). CL**2
|
|
00067 CL**2
|
|
00068 CL**2
|
|
00069 15 MELF-MEDIA-CONTACT-NAME PIC X(32). DTSIMELF
|
|
00070 CL**2
|
|
00071 15 MELF-MEDIA-CONTACT-EMAIL-ADDR PIC X(40). CL**2
|
|
00072 CL**2
|
|
00073 15 MELF-MEDIA-CONTACT-PHONE. DTSIMELF
|
|
00074 20 MELF-MEDIA-VOICE-AREA-CD PIC X(03). DTSIMELF
|
|
00075 20 MELF-MEDIA-VOICE-PREFIX PIC X(03). DTSIMELF
|
|
00076 20 MELF-MEDIA-VOICE-SUFFIX PIC X(04). DTSIMELF
|
|
00077 20 MELF-MEDIA-VOICE-EXT PIC X(05). CL**2
|
|
00078 CL**2
|
|
00079 CL**2
|
|
00080 15 MELF-ADDRESS. DTSIMELF
|
|
00081 20 MELF-ATTN-LINE PIC X(40). DTSIMELF
|
|
00082 20 MELF-DELIV-LINE-1 PIC X(40). CL**2
|
|
00083 20 MELF-DELIV-LINE-2 PIC X(40). CL**2
|
|
00084 20 MELF-CITY PIC X(25). DTSIMELF
|
|
00085 20 MELF-ST PIC X(02). DTSIMELF
|
|
00086 20 MELF-ZIP PIC X(10). DTSIMELF
|
|
00087 20 MELF-ADVANCED-BARCODE CL**2
|
|
00088 PIC X(14). CL**2
|
|
00089 CL**2
|
|
00090 CL**2
|
|
00091 15 MELF-CHNG-OP-ID PIC X(08). CL**2
|
|
00092 CL**2
|
|
00093 CL**3
|
|
00094 15 FILLER PIC X(64). CL**3
|
|
00095 CL**3
|
|
00096 CL**2
|
|
00097 15 MELF-CONVERTED-IND PIC X(01). DTSIMELF
|
|
00098 88 MELF-CONVERTED-88 VALUE 'Y'. DTSIMELF
|
|
00099 88 MELF-NOT-CONVERTED-88 VALUE 'N'. DTSIMELF
|
|
00100 CL**2
|
|
00101 CL**2
|
|
00102 15 MELF-ESTB-DATE PIC S9(09) COMP-3. DTSIMELF
|
|
00103 CL**2
|
|
00104 15 MELF-CHNG-DATE PIC S9(09) COMP-3. DTSIMELF
|