Re: SQL statements for physical and logical files

I think I disagree with most of what Dieter says here.
First, when anyone calls Birgitta a fool...

But it is perfectly acceptable to access a DDS table with SQL and it is
perfectly acceptable to access a DDL table with RLA. And, it is perfectly
acceptable to access many DDL indexes with RLA.

CREATE TABLE ROB.DS (
MYKEY INT NOT NULL,
MYROWID CHAR (1 ) NOT NULL WITH DEFAULT 'A',
MYDATA CHAR (5 ), CHECK (myrowid in('A', 'Z') ),
PRIMARY KEY (MYKEY))
RCDFMT RDS

CREATE UNIQUE INDEX ROB.dsl01 ON ROB.DS (MYKEY)
WHERE MYROWID='A'
RCDFMT DSL01R
ADD MYDATA

DSPFFD ROB/DSL01
Data Field Buffer Buffer Field Column
Field Type Length Length Position Usage Heading
MYKEY BINARY 9 0 4 1 Both MYKEY
MYDATA CHAR 5 5 5 Both MYDATA

And this RPG compiles just fine.
FDS IF E K DISK
FDSL01 IF E K DISK
/free
chain (1) rds;
dsply mydata;
chain (2) dsl01r;
dsply mydata;
*inlr=*on;
return;

True, there are some things that DDS cannot do, such as multiformat
logical files. Although occasionally still used they are pretty rare and
it's not sacriligious to use both DDS and DDL so, if you just have to have
a multiformat logical file, then create it with DDS.
Granted, I would think it nice if a join logical file could be created
with DDL but I suppose that would have a SQL purist in spasms.


Rob Berendt