------------------------------------------------------------------------------------------ -- 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 INVDETF ( "Customer_Number" FOR CUSTNO INTEGER NOT NULL DEFAULT 0 , "Invoice_Number" FOR INVNO INTEGER NOT NULL DEFAULT 0 , "Invoice_Line_Number" FOR LINENO SMALLINT NOT NULL DEFAULT 0 , "Record_Status" FOR RECSTS CHAR(2) CCSID 37 NOT NULL DEFAULT ' ' , "Product_Code" FOR PRDCDE CHAR(10) CCSID 37 NOT NULL DEFAULT '' , "Item_Quantity" FOR ITMQTY DECIMAL(5,0) NOT NULL DEFAULT 0 , "Product_Price" FOR PRDPRICE DECIMAL(7,2) NOT NULL DEFAULT 0 , "Invoice_Line_Total_Value" FOR LINETOT DECIMAL(11,2) NOT NULL DEFAULT 0 , CONSTRAINT INVDETF_P PRIMARY KEY( CUSTNO,INVNO,LINENO)) RCDFMT INVDETFR; LABEL ON TABLE INVDETF IS 'Invoice Line Details File'; LABEL ON COLUMN INVDETF ( CUSTNO IS 'Cust. No.' , INVNO IS 'Invoice Number' , LINENO IS 'Line No.' , RECSTS IS 'R/S' , PRDCDE IS 'Product Code' , ITMQTY IS 'Item Quantity' , PRDPRICE IS 'Product Price' , LINETOT IS 'Inv. Line Total Val.' ); LABEL ON COLUMN INVDETF ( CUSTNO TEXT IS 'Customer Number' , INVNO TEXT IS 'Invoice Number' , LINENO TEXT IS 'Invoice Line Number' , RECSTS TEXT IS 'Record Status' , PRDCDE TEXT IS 'Product Code' , ITMQTY TEXT IS 'Item Quantity' , PRDPRICE TEXT IS 'Product Price' , LINETOT TEXT IS 'Invoice Line Total Value' );