103 lines
8.1 KiB
COBOL
103 lines
8.1 KiB
COBOL
00001 ***** 05/22/01
|
|
00002 * DTSIC201
|
|
00003 * DTSIC201 ELECTRONIC MEDIA STATUS MESSAGE TABLE. LV001
|
|
00004 * DTSIC201
|
|
00005 * THIS TABLE LISTS ALL SYSTEM-GENERATED STATUS DTSIC201
|
|
00006 * MESSAGES. DTSIC201
|
|
00007 * DTSIC201
|
|
00008 * DTSIC201
|
|
00009 ***** DTSIC201
|
|
00010 DTSIC201
|
|
00011 10 C201-MESSAGE-TABLE. DTSIC201
|
|
00012 ******************************************************** DTSIC201
|
|
00013 * STATUS MESSAGES DTSIC201
|
|
00014 ******************************************************** DTSIC201
|
|
00015 15 SMSG001-RECEIVED-LONG. DTSIC201
|
|
00016 20 FILLER PIC X(09) DTSIC201
|
|
00017 VALUE 'RECEIVED '. DTSIC201
|
|
00018 20 SMSG001-DATE PIC X(08). DTSIC201
|
|
00019 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
|
00020 20 SMSG001-TIME PIC X(08). DTSIC201
|
|
00021 20 FILLER PIC X(33) VALUE SPACES. DTSIC201
|
|
00022 15 SMSG001-RECEIVED-SHORT. DTSIC201
|
|
00023 20 FILLER PIC X(12) DTSIC201
|
|
00024 VALUE 'RECEIVED '. DTSIC201
|
|
00025 DTSIC201
|
|
00026 15 SMSG002-DATA-CNTR-LONG. DTSIC201
|
|
00027 20 FILLER PIC X(20) DTSIC201
|
|
00028 VALUE 'SENT TO DATA CENTER '. DTSIC201
|
|
00029 20 SMSG002-DATE PIC X(08). DTSIC201
|
|
00030 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
|
00031 20 SMSG002-TIME PIC X(08). DTSIC201
|
|
00032 20 FILLER PIC X(22) VALUE SPACES. DTSIC201
|
|
00033 15 SMSG002-DATA-CNTR-SHORT. DTSIC201
|
|
00034 20 FILLER PIC X(12) DTSIC201
|
|
00035 VALUE 'DATA CENTER '. DTSIC201
|
|
00036 DTSIC201
|
|
00037 15 SMSG003-RETURN-DOES-LONG. DTSIC201
|
|
00038 20 FILLER PIC X(15) DTSIC201
|
|
00039 VALUE 'RETURN TO DOES '. DTSIC201
|
|
00040 20 SMSG003-DATE PIC X(08). DTSIC201
|
|
00041 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
|
00042 20 SMSG003-TIME PIC X(08). DTSIC201
|
|
00043 20 FILLER PIC X(27) VALUE SPACES. DTSIC201
|
|
00044 15 SMSG003-RETURN-DOES-SHORT. DTSIC201
|
|
00045 20 FILLER PIC X(12) DTSIC201
|
|
00046 VALUE 'RETURN DOES '. DTSIC201
|
|
00047 DTSIC201
|
|
00048 15 SMSG004-COMPLETE-LONG. DTSIC201
|
|
00049 20 FILLER PIC X(09) DTSIC201
|
|
00050 VALUE 'COMPLETE '. DTSIC201
|
|
00051 20 SMSG004-DATE PIC X(08). DTSIC201
|
|
00052 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
|
00053 20 SMSG004-TIME PIC X(08). DTSIC201
|
|
00054 20 FILLER PIC X(33) VALUE SPACES. DTSIC201
|
|
00055 15 SMSG004-COMPLETE-SHORT. DTSIC201
|
|
00056 20 FILLER PIC X(12) DTSIC201
|
|
00057 VALUE 'COMPLETE '. DTSIC201
|
|
00058 DTSIC201
|
|
00059 15 SMSG005-PROCESS-START-LONG. DTSIC201
|
|
00060 20 FILLER PIC X(19) DTSIC201
|
|
00061 VALUE 'PROCESSING STARTED '. DTSIC201
|
|
00062 20 SMSG005-DATE PIC X(08). DTSIC201
|
|
00063 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
|
00064 20 SMSG005-TIME PIC X(08). DTSIC201
|
|
00065 20 FILLER PIC X(23) VALUE SPACES. DTSIC201
|
|
00066 15 SMSG005-PROCESS-START-SHORT. DTSIC201
|
|
00067 20 FILLER PIC X(12) DTSIC201
|
|
00068 VALUE 'EDIT STARTED'. DTSIC201
|
|
00069 DTSIC201
|
|
00070 15 SMSG006-PROCESS-END-LONG. DTSIC201
|
|
00071 20 FILLER PIC X(30) DTSIC201
|
|
00072 VALUE 'PROCESSING ENDED SUCCESSFULLY '. DTSIC201
|
|
00073 20 SMSG006-DATE PIC X(08). DTSIC201
|
|
00074 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
|
00075 20 SMSG006-TIME PIC X(08). DTSIC201
|
|
00076 20 FILLER PIC X(12) VALUE SPACES. DTSIC201
|
|
00077 15 SMSG006-PROCESS-END-SHORT. DTSIC201
|
|
00078 20 FILLER PIC X(12) DTSIC201
|
|
00079 VALUE 'PROCESS END '. DTSIC201
|
|
00080 DTSIC201
|
|
00081 15 SMSG007-PROCESS-ERRORS-LONG. DTSIC201
|
|
00082 20 FILLER PIC X(29) DTSIC201
|
|
00083 VALUE 'PROCESSING ENDED WITH ERRORS '. DTSIC201
|
|
00084 20 SMSG007-DATE PIC X(08). DTSIC201
|
|
00085 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
|
00086 20 SMSG007-TIME PIC X(08). DTSIC201
|
|
00087 20 FILLER PIC X(13) VALUE SPACES. DTSIC201
|
|
00088 15 SMSG007-PROCESS-ERRORS-SHORT. DTSIC201
|
|
00089 20 FILLER PIC X(12) DTSIC201
|
|
00090 VALUE 'ERRORS FOUND'. DTSIC201
|
|
00091 DTSIC201
|
|
00092 15 SMSG008-PROCESS-FAILED-LONG. DTSIC201
|
|
00093 20 FILLER PIC X(18) DTSIC201
|
|
00094 VALUE 'PROCESSING FAILED '. DTSIC201
|
|
00095 20 SMSG008-DATE PIC X(08). DTSIC201
|
|
00096 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
|
00097 20 SMSG008-TIME PIC X(08). DTSIC201
|
|
00098 20 FILLER PIC X(13) VALUE SPACES. DTSIC201
|
|
00099 15 SMSG008-PROCESS-FAILED-SHORT. DTSIC201
|
|
00100 20 FILLER PIC X(12) DTSIC201
|
|
00101 VALUE 'FAILED '. DTSIC201
|
|
00102 DTSIC201
|