92 lines
7.2 KiB
COBOL
92 lines
7.2 KiB
COBOL
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
|