Re: Format command for externally-described

I use this SQL in ACS-RSS
just change 'myLibrary' and 'myTable' with what you need.
obviously you can change what is returned.

-- Show all columns in a table with keys
SELECT col.system_table_name || ' > ' || col.table_name AS Tbl_Name1030
,col.system_column_name || ' > ' || col.column_name AS
Column_Name1030
,TRIM(CAST(col.data_type AS CHAR(20))) || '(' ||
CASE
WHEN datetime_precision IS NOT NULL
THEN TRIM(CAST(datetime_precision AS CHAR(7))) || ')'
WHEN character_maximum_length IS NULL
THEN TRIM(CAST(Numeric_precision AS CHAR(7))) || ',' ||
TRIM(CAST(numeric_scale AS CHAR)) || ')'
ELSE TRIM(CAST(character_maximum_length AS CHAR(7))) || ')'
END AS Data_type2
,COALESCE((SELECT SUM(col2.storage) + 1
FROM qsys2.syscolumns col2
WHERE col2.ordinal_position < col.ordinal_position
AND col2.system_table_name = col.system_table_name
AND col2.system_table_schema = col.system_table_schema
GROUP BY col2.system_table_schema ,
col2.system_table_name) ,1) AS start_Pos
,col.ordinal_position AS Col_Pos
,kfld.dbkpos AS Key_Pos
,kfld.dbkord AS Key_order
,column_text
,column_heading
,long_comment
,col.system_table_schema || ' > ' || col.table_schema AS
Tbl_Schema1030
,col.system_table_name
,col.system_column_name
,TRIM(CAST(col.data_type AS CHAR(20))) || '(' ||
CASE
WHEN datetime_precision IS NOT NULL
THEN TRIM(CAST(datetime_precision AS CHAR(7))) || ')'
WHEN character_maximum_length IS NULL
THEN TRIM(CAST(Numeric_precision AS CHAR(7))) || ',' ||
TRIM(CAST(numeric_scale AS CHAR)) || ')'
ELSE TRIM(CAST(character_maximum_length AS CHAR(7))) || ')'
END AS Data_type2
,column_text
FROM qsys2.syscolumns col LEFT OUTER
JOIN qsys.qadbkfld kfld
ON kfld.dbklib = col.table_schema
AND kfld.dbkfil = col.table_name
AND kfld.dbkfld = col.system_column_name
WHERE table_schema = 'myLibrary'
AND
table_name = 'myTable'
ORDER BY table_schema
,TABLE_NAME
,ordinal_position -- comment this out if you want in key order
,kfld.dbkpos

On Thu, Jan 19, 2023 at 10:58 AM Jack Woehr via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

On Thu, Jan 19, 2023 at 9:55 AM Mark Waterbury <
mark.s.waterbury@xxxxxxxxxxxxx> wrote:

That was deliberate, by IBM, to push people to license (pay for) RDi ...
There is no technical reason why SEU could not be enhanced ... perhaps we
need to lobby IBM to release the SEU source code as "open source"?

https://www.youtube.com/watch?v=JizzeERcZjg

--

*JACK WOEHR, IBM Champion 2021-2023
<https://www.credly.com/users/jack-woehr/badges>*

*SENIOR IBM i ENGINEER*

303.847.8442
jwoehr@xxxxxxxxxxxxxxxxxxxxxxxx
stay connected
<https://www.linkedin.com/company/absolute-performance-inc./>

<https://www.absolute-performance.com/>
www.absolute-performance.com

NON-DISCLOSURE NOTICE: This communication including any and all
attachments is for the intended recipient(s) only and may contain

confidential and privileged information. If you are not the intended
recipient of this communication, any disclosure, copying further

distribution or use of this communication is prohibited. If you received
this communication in error, please contact the sender and

delete/destroy all copies of this communication immediately.
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.