00001 ***** 11/19/09 00002 * DTSIMFSL 00003 * DTSIMFSL MASTER FILE 'AUDIT SCHEDULE' LV001 00004 * RECORD DEFINITION. DTSIMFSL 00005 * DTSIMFSL 00006 * DTSIMFSL 00007 * 10/08/2009 INITIAL DEVELOPMENT GD DTSIMFSL 00008 * DTSIMFSL 00009 ***** DTSIMFSL 00010 DTSIMFSL 00011 10 MFSL-KEY-AREA. DTSIMFSL 00012 15 MFSL-EMP-NO PIC S9(07) COMP-3. DTSIMFSL 00013 15 MFSL-REC-TYPE PIC S9(04) COMP. DTSIMFSL 00014 88 MFSL-FSL-88 VALUE +30. DTSIMFSL 00015 15 MFSL-ASSIGN-NO PIC S9(09) COMP-3. DTSIMFSL 00016 15 MFSL-ID-NO PIC S9(03) COMP-3. DTSIMFSL 00017 15 MFSL-KEY-FILLER PIC X(03). DTSIMFSL 00018 DTSIMFSL 00019 DTSIMFSL 00020 10 MFSL-PURGE-DATE PIC S9(09) COMP-3. DTSIMFSL 00021 DTSIMFSL 00022 DTSIMFSL 00023 10 MFSL-DATA-AREA. DTSIMFSL 00024 15 MFSL-STATUS-CD PIC X(01). DTSIMFSL 00025 88 MFSL-STATUS-PENDING-88 VALUE 'P'. DTSIMFSL 00026 88 MFSL-STATUS-COMPLED-88 VALUE 'C'. DTSIMFSL 00027 88 MFSL-STATUS-CANCELED-88 VALUE 'K'. DTSIMFSL 00028 DTSIMFSL 00029 15 MFSL-NAME PIC X(40). DTSIMFSL 00030 DTSIMFSL 00031 15 MFSL-AUDIT-DATE PIC S9(09) COMP-3. DTSIMFSL 00032 DTSIMFSL 00033 15 MFSL-AUDIT-TIME PIC S9(06) COMP-3. DTSIMFSL 00034 DTSIMFSL 00035 15 MFSL-AUDIT-LOCATION. DTSIMFSL 00036 20 MFSL-ATTN-LINE PIC X(40). DTSIMFSL 00037 20 MFSL-DELIV-LINE-1 PIC X(40). DTSIMFSL 00038 20 MFSL-DELIV-LINE-2 PIC X(40). DTSIMFSL 00039 20 MFSL-CITY PIC X(25). DTSIMFSL 00040 20 MFSL-ST PIC X(02). DTSIMFSL 00041 20 MFSL-ZIP PIC X(10). DTSIMFSL 00042 20 MFSL-ADVANCED-BARCODE DTSIMFSL 00043 PIC X(14). DTSIMFSL 00044 DTSIMFSL 00045 15 MFSL-AUDIT-MAIL. DTSIMFSL 00046 20 MFSL-ATTN-MAIL PIC X(40). DTSIMFSL 00047 20 MFSL-DELIV-MAIL-1 PIC X(40). DTSIMFSL 00048 20 MFSL-DELIV-MAIL-2 PIC X(40). DTSIMFSL 00049 20 MFSL-CITY-MAIL PIC X(25). DTSIMFSL 00050 20 MFSL-ST-MAIL PIC X(02). DTSIMFSL 00051 20 MFSL-ZIP-MAIL PIC X(10). DTSIMFSL 00052 20 MFSL-ADVANCED-BARCODE-MAIL DTSIMFSL 00053 PIC X(14). DTSIMFSL 00054 DTSIMFSL 00055 15 MFSL-PHONE-NUMBERS. DTSIMFSL 00056 20 MFSL-VOICE-1. DTSIMFSL 00057 25 MFSL-VOICE-1-AREA-CD PIC X(03). DTSIMFSL 00058 25 MFSL-VOICE-1-PREFIX PIC X(03). DTSIMFSL 00059 25 MFSL-VOICE-1-SUFFIX PIC X(04). DTSIMFSL 00060 25 MFSL-VOICE-1-EXT PIC X(05). DTSIMFSL 00061 20 MFSL-VOICE-2. DTSIMFSL 00062 25 MFSL-VOICE-2-AREA-CD PIC X(03). DTSIMFSL 00063 25 MFSL-VOICE-2-PREFIX PIC X(03). DTSIMFSL 00064 25 MFSL-VOICE-2-SUFFIX PIC X(04). DTSIMFSL 00065 25 MFSL-VOICE-2-EXT PIC X(05). DTSIMFSL 00066 20 MFSL-FAX. DTSIMFSL 00067 25 MFSL-FAX-AREA-CD PIC X(03). DTSIMFSL 00068 25 MFSL-FAX-PREFIX PIC X(03). DTSIMFSL 00069 25 MFSL-FAX-SUFFIX PIC X(04). DTSIMFSL 00070 25 MFSL-FAX-EXT PIC X(05). DTSIMFSL 00071 DTSIMFSL 00072 15 MFSL-EMAIL-ADDRESS PIC X(40). DTSIMFSL 00073 DTSIMFSL 00074 15 MFSL-CREATE-OP-ID PIC X(8). DTSIMFSL 00075 DTSIMFSL 00076 15 MFSL-CHANGE-OP-ID PIC X(8). DTSIMFSL 00077 DTSIMFSL 00078 15 MFSL-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMFSL 00079 DTSIMFSL 00080 DTSIMFSL 00081 15 FILLER PIC X(25). DTSIMFSL 00082 DTSIMFSL 00083 DTSIMFSL 00084 15 MFSL-CONVERTED-IND PIC X(01). DTSIMFSL 00085 88 MFSL-CONVERTED-88 VALUE 'Y'. DTSIMFSL 00086 88 MFSL-NOT-CONVERTED-88 VALUE 'N'. DTSIMFSL 00087 DTSIMFSL 00088 DTSIMFSL 00089 15 MFSL-ESTB-DATE PIC S9(09) COMP-3. DTSIMFSL 00090 DTSIMFSL 00091 15 MFSL-CHNG-DATE PIC S9(09) COMP-3. DTSIMFSL