× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Here is a source member for a SQL table but the easier way to do all this is
to use Ops Nav, Database, schema and right click on Schema and select new
table.

You can then build the table in GUI with long and short name and everything
else. Makes life so easy and once you have it created right mouse on the
table and do a generate SQL and it will extract the SQL into the Run SQL
Scripts. I then take that source and put it into source member and add the
renames for long name and short names.

If you don't have database on your Ops Nav just install additional
components. I which IBM would add a prompt to the install scripts for Client
Access and ask if the person the software is being installed for is a
programmer and automatically install all the additional components.

Other than the headers and the renames this is all generated by SQL.

/* *_> CNLLSTSPLF SRCFILE(@2/@1) SRCMBR(@3)
*/
/* *_> DLTF FILE(@5/@4)
*/
/* *_> RUNSQLSTM SRCFILE(@2/@1) SRCMBR(@3) +
*/
/* *_> DFTRDBCOL(@5) CLOSQLCSR(*ENDMOD) ERRLVL(20)
*/
/*
*----------------------------------------------------------------------*/
/* * SQL File: DWTRACMANF Project.....:
*/
/* * Author..: A. Campin Date written: 09/30/2008
*/
/* * Purpose.: Data Warehouse-Tractor Manufacturer. One record for each
*/
/* * tractor Manufacturer.
*/
/* * --------------------------------------------------------------------
*/
/* * Revision history:
*/
/* * Proj# Pgmr Date Desc
*/
/* *
*/
/* * End Revision History
*/
/* *---------------------------------------------------------------------
*/
CREATE TABLE DWTRACMANF (
MANUFACTURER_INDEX FOR TMINDEX INTEGER GENERATED ALWAYS AS IDENTITY
(START WITH 1, INCREMENT BY 1, NO ORDER, NO CYCLE, NO MINVALUE,
NO MAXVALUE, CACHE 20),
MANUFACTURER_NAME FOR COLUMN TMNAME VARCHAR(50)
ALLOCATE(15) CCSID 37 NOT NULL,
CONSTRAINT PRI_TRACT00001_TMINDEX_00001 PRIMARY KEY(MANUFACTURER_INDEX))
RCDFMT RTRACMANF;

RENAME DWTRACMANF TO TRACTOR_MANUFACTURER;

RENAME TRACTOR_MANUFACTURER TO SYSTEM NAME DWTRACMANF;

ALTER TABLE TRACTOR_MANUFACTURER
ADD CONSTRAINT CON_TRACT00001_TMNAME_00001
CHECK( MANUFACTURER_NAME <> ' ');

LABEL ON TABLE TRACTOR_MANUFACTURER
IS 'Data Warehouse-Tractor Manufacturer';

LABEL ON COLUMN TRACTOR_MANUFACTURER (
MANUFACTURER_INDEX IS 'Tractor Manuf Index',
MANUFACTURER_NAME IS 'Manufacturer Name');

LABEL ON COLUMN TRACTOR_MANUFACTURER (
MANUFACTURER_INDEX TEXT IS 'Tractor Manufacturer Index',
MANUFACTURER_NAME TEXT IS 'Manufacturer Name');


On Fri, Mar 27, 2009 at 3:24 PM, RWMunday <RWMunday@xxxxxxxxxxxxx> wrote:

Greetings from the rainy First Coast.


I have been assigned to create some files, but instead of going native we
are to create them as SQL tables. I am trying to imitate what I can of the
DDS TEXT and COLHDG which I put in every DDS for a PF I create. Query is
much easier to use as a tool when those two elements are defined.

I looked on the IBM site for SQL tables and the LABEL ON option looked
good.
However, my system didn't like it.

Do you have an example of an SQL table create using labels or whatever I
need to use to replicate what I can do in DDS?

Thanks,



Robert Munday
Munday Software Consultants
Montgomery, AL
on assignment in Jacksonville, FL

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.