Asking BOB to convert DDS PF to SQL TABLE

*%METADATA *
* %TEXT Auto Bill Release Log File *
*%EMETADATA *
*========================================================================*
* *
* Auto Bill Release Log File *
*========================================================================*
A UNIQUE
A R ABREC
* - -----
A ABORD# 7A COLHDG('Order Number')
A ABPODT 8S 0 COLHDG('Order Date')
*
A ABDATE 8S 0 COLHDG('Release Date')
A ABTIME 6S 0 COLHDG('Release Time')
*
A ABUSER 10A COLHDG('Released by')
A ABPGM 10A COLHDG('Program Name')
*
* - Key Data -- 15 Long
*
A K ABORD#
A K ABPODT
*========================================================================*

-- ----------------------------------------------------------------------------------------------------------
-- Table: ABRLOGFL - Auto Bill Release Log File
-- ----------------------------------------------------------------------------------------------------------
-- Purpose: Stores log entries for automatic bill release processing, tracking when orders are
-- automatically released for billing and by which user/program.
--
-- Key Features:
-- - Tracks order release history
-- - Records release date and time
-- - Identifies releasing user and program
-- - Maintains audit trail for billing automation
--
-- ----------------------------------------------------------------------------------------------------------
-- Change History
-- ----------------------------------------------------------------------------------------------------------
-- Date | Author | Description
-- -----------|---------------------|--------------------------------------------------------------------
-- 2013-10-15 | ABC | Initial creation
-- 2026-04-14 | System | Converted from DDS to SQL format
-- ----------------------------------------------------------------------------------------------------------
SET SCHEMA TITANDTA;


-- Drop existing table if recreating (use with caution in production)
-- DROP TABLE IF EXISTS ABRLOGFL;
CREATE OR REPLACE TABLE
ABRLOGFL (
-- Primary Key Fields
ABORD# FOR COLUMN ABORD# CHAR(7) NOT NULL
WITH
DEFAULT,
ABPODT FOR COLUMN ABPODT DECIMAL(8, 0) NOT NULL
WITH
DEFAULT,
-- Release Information
ABDATE FOR COLUMN ABDATE DECIMAL(8, 0) NOT NULL
WITH
DEFAULT,
ABTIME FOR COLUMN ABTIME DECIMAL(6, 0) NOT NULL
WITH
DEFAULT,
-- Audit Fields
ABUSER FOR COLUMN ABUSER CHAR(10) NOT NULL
WITH
DEFAULT,
ABPGM FOR COLUMN ABPGM CHAR(10) NOT NULL
WITH
DEFAULT,
-- Primary Key Constraint
CONSTRAINT ABRLOGFL_PK PRIMARY KEY (ABORD#, ABPODT)
);


-- Add column labels for documentation
LABEL ON COLUMN ABRLOGFL (
ABORD# IS 'Order Number',
ABPODT IS 'Order Date',
ABDATE IS 'Release Date',
ABTIME IS 'Release Time',
ABUSER IS 'Released by',
ABPGM IS 'Program Name'
);


-- Add table label
LABEL ON TABLE ABRLOGFL IS 'Auto Bill Release Log File';


-- Create indexes for performance
CREATE INDEX ABRLOGFL_IDX1 ON ABRLOGFL (ABDATE, ABTIME);


CREATE INDEX ABRLOGFL_IDX2 ON ABRLOGFL (ABUSER);


-- Grant permissions (adjust based on security requirements)
-- GRANT SELECT, INSERT, UPDATE, DELETE ON ABRLOGFL TO SPECIFIC_USER_GROUP;
-- Add comments for complex business rules
COMMENT ON TABLE ABRLOGFL IS 'Audit trail for automatic bill release processing';