Re: DSPFD *USRLIBL Broken?

[Rob Berendt <rob@xxxxxxxxx>]

Joe,

Apparently you can do a create view and wrap that around a function like 
this
CL:  addlible ERPLXS;
CL: ADDLIBLE ERPLXUSRS;

create view qtemp.tview as (
Select SYSTEM_TABLE_SCHEMA, SYSTEM_TABLE_NAME, SYSTEM_TABLE_MEMBER,
        SOURCE_TYPE, PARTITION_TEXT,
        LAST_CHANGE_TIMESTAMP, LAST_SAVE_TIMESTAMP, LAST_USED_TIMESTAMP
FROM QSYS2.SYSPARTITIONSTAT
WHERE SOURCE_TYPE IS NOT NULL
AND SYSTEM_TABLE_SCHEMA IN(
        SELECT SCHEMA_NAME
        FROM QSYS2.LIBRARY_LIST_INFO
        WHERE TYPE = 'USER')
        )
;

select * from qtemp.tview;

Interesting.  Then one could do a RCVF over that.  One would have to use 
the shorter column names as shown in their documentation, or rename them 
on the view.

Rob Berendt