50 lines
3.9 KiB
COBOL
50 lines
3.9 KiB
COBOL
00001 ***** 01/23/01
|
|
00002 * DTSICECD
|
|
00003 * DTSICECD ERROR MESSAGE IDENTIFIERS. LV005
|
|
00004 * EMSG-C-* (E05*) REPRESENT "CONSTRUCTABLE" ERROR DTSICECD
|
|
00005 * MESSAGES. SEE MACCU805. DTSICECD
|
|
00006 * DTSICECD
|
|
00007 * REVIEWED AND MODIFIED FROM DC. 08/11/1998 EHH DTSICECD
|
|
00008 * DTSICECD
|
|
00009 ***** DTSICECD
|
|
00010 DTSICECD
|
|
00011 10 EMSG-RECORD-EXISTS PIC X(04) VALUE 'E001'.DTSICECD
|
|
00012 10 EMSG-NO-RECORD PIC X(04) VALUE 'E002'.DTSICECD
|
|
00013 10 EMSG-FIELD-NOT-ALLOWED PIC X(04) VALUE 'E003'.DTSICECD
|
|
00014 10 EMSG-BANKRUPT PIC X(04) VALUE 'E004'.DTSICECD
|
|
00015 10 EMSG-INVALID-TRANS-ID PIC X(04) VALUE 'E005'.DTSICECD
|
|
00016 10 EMSG-SEARCH-CRITERIA PIC X(04) VALUE 'E006'.DTSICECD
|
|
00017 10 EMSG-FIELD-NOT-VALID PIC X(04) VALUE 'E011'.DTSICECD
|
|
00018 10 EMSG-FIELD-REQUIRED PIC X(04) VALUE 'E012'.DTSICECD
|
|
00019 10 EMSG-INVALID-NEGATIVE PIC X(04) VALUE 'E013'.DTSICECD
|
|
00020 10 EMSG-EXCEEDS-MIN-MAX PIC X(04) VALUE 'E014'.DTSICECD
|
|
00021 10 EMSG-CROSS-EDIT PIC X(04) VALUE 'E015'.DTSICECD
|
|
00022 10 EMSG-NO-EMPLOYER PIC X(04) VALUE 'E021'.DTSICECD
|
|
00023 10 EMSG-NO-ASSIGNMENT PIC X(04) VALUE 'E022'.DTSICECD
|
|
00024 10 EMSG-NO-BATCH PIC X(04) VALUE 'E023'.DTSICECD
|
|
00025 10 EMSG-NO-DOC PIC X(04) VALUE 'E024'.DTSICECD
|
|
00026 10 EMSG-ADD-PRECEDED PIC X(04) VALUE 'E025'.DTSICECD
|
|
00027 10 EMSG-MOD-PRECEDED PIC X(04) VALUE 'E026'.DTSICECD
|
|
00028 10 EMSG-DEL-PRECEDED PIC X(04) VALUE 'E027'.DTSICECD
|
|
00029 10 EMSG-PRINT-PRECEDED PIC X(04) VALUE 'E028'.DTSICECD
|
|
00030 10 EMSG-EMP-LOCKED PIC X(04) VALUE 'E029'.DTSICECD
|
|
00031 10 EMSG-EMP-MARKED-FOR-PURGE PIC X(04) VALUE 'E030'.DTSICECD
|
|
00032 10 EMSG-NOT-CURRENT-UPDATE PIC X(04) VALUE 'E031'.DTSICECD
|
|
00033 10 EMSG-NOT-CURRENT-PRINT PIC X(04) VALUE 'E032'.DTSICECD
|
|
00034 10 EMSG-NO-EMP-NO-CHANGE PIC X(04) VALUE 'E033'.DTSICECD
|
|
00035 10 EMSG-NO-BATCH-NO-CHANGE PIC X(04) VALUE 'E034'.DTSICECD
|
|
00036 10 EMSG-NO-ASSIGN-NO-CHANGE PIC X(04) VALUE 'E035'.DTSICECD
|
|
00037 10 EMSG-NO-ITEM-NO-CHANGE PIC X(04) VALUE 'E036'.DTSICECD
|
|
00038 10 EMSG-NO-FIELD-CHANGE-UPDATE PIC X(04) VALUE 'E037'.DTSICECD
|
|
00039 10 EMSG-NO-FIELD-CHANGE-PRINT PIC X(04) VALUE 'E038'.DTSICECD
|
|
00040 10 EMSG-EMP-WRITTEN-OFF PIC X(04) VALUE 'E039'.DTSICECD
|
|
00041 *********10 EMSG-DUPLICATE-LEGAL-NAME PIC X(04) VALUE 'E041'.DTSICECD
|
|
00042 10 EMSG-DUPLICATE-FEIN PIC X(04) VALUE 'E042'.DTSICECD
|
|
00043 10 EMSG-PRINTER-NOT-VALID PIC X(04) VALUE 'E043'.DTSICECD
|
|
00044 10 EMSG-NO-ADDRESS PIC X(04) VALUE 'E044'.DTSICECD
|
|
00045 10 EMSG-NO-AHDR-RECORD PIC X(04) VALUE 'E045'.DTSICECD
|
|
00046 10 EMSG-BATCH-FULL PIC X(04) VALUE 'E046'.DTSICECD
|
|
00047 *********10 EMSG-BATCH-RELEASED PIC X(04) VALUE 'E047'.DTSICECD
|
|
00048 10 EMSG-OLD-RCVD-DATE PIC X(04) VALUE 'E048'.DTSICECD
|
|
00049 10 EMSG-C-VALIDATE PIC X(04) VALUE 'E051'.DTSICECD
|