------------------------------------------------------------------------------------------ -- MIT License -- Copyright (c) 2016 TEMBO Technology Labs (Pty) Ltd. -- Author: Tommy Atkins - Chief Development Officer -- -- Permission is hereby granted, free of charge, to any person obtaining a copy of this -- software and associated documentation files (the "Software"), to deal in the Software -- without restriction, including without limitation the rights to use, copy, modify, -- merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit -- persons to whom the Software is furnished to do so, subject to the following conditions: -- -- The above copyright notice and this permission notice shall be included in all copies -- or substantial portions of the Software. -- ================================================================================== -- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, -- INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR -- PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE -- FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR -- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER -- DEALINGS IN THE SOFTWARE. -- ================================================================================== CREATE TABLE ERRLOGF ( FILENM CHAR(10) NOT NULL DEFAULT, EVENTI CHAR(1) NOT NULL DEFAULT, PROGNM CHAR(10) NOT NULL DEFAULT, LOGDTS TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP, ERRMSG CHAR(7) NOT NULL DEFAULT, ERRTXT CHAR(132) NOT NULL DEFAULT, BEFORE VARCHAR(2048) NOT NULL DEFAULT, AFTER VARCHAR(2048) NOT NULL DEFAULT) RCDFMT ERRLOGFR; --------------------------------------------------------------- LABEL ON TABLE ERRLOGF IS 'Legacy App. Error Log File' ; --------------------------------------------------------------- LABEL ON COLUMN ERRLOGF ( FILENM IS 'File Name ' , EVENTI IS 'Event Ind.' , PROGNM IS 'Program Name' , LOGDTS IS 'Log Entry Timestamp' , ERRMSG IS 'Error Message' , ERRTXT IS 'Error Text ' , BEFORE IS 'Before Image ' , AFTER IS 'After Image '); --------------------------------------------------------------- LABEL ON COLUMN ERRLOGF ( FILENM TEXT IS 'File Name' , EVENTI TEXT IS 'Event Ind.' , PROGNM TEXT IS 'Program Name' , LOGDTS TEXT IS 'Log Entry Timestamp' , ERRMSG TEXT IS 'Error Message' , ERRTXT TEXT IS 'Error Text' , BEFORE TEXT IS 'Before Image' , AFTER TEXT IS 'After Image'); ----------------------------------------------------------------------