forstie

create or replace function systools.objects_owned(
        user_name varchar(10) FOR SBCS DATA)
	RETURNS TABLE ( 
	object DBCLOB(16M) CCSID 1200,
    object_type varchar(10) for sbcs data,
    size bigint,
    sizeform varchar(50) FOR SBCS DATA,
    created timestamp,
    changed timestamp,

forstie

--
-- Now that ACS is shipped on the IBM i via PTFs, we no longer need to manually move the
-- acsbundle.jar onto the IBM i.  Just apply the latest ACS PTFs and reference the jar
-- at: /QIBM/proddata/Access/ACS/Base/acsbundle.jar
--
-- Initial PTFs of ACS
-- V7R4M0 SI71900
-- V7R3M0 SI71934 
--

forstie

--
--
-- Find journaled database files that can be adjusted for improved performance
--
-- Resources:
-- https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_74/rzajq/rzajqudfobjectstat.htm
-- http://www.redbooks.ibm.com/redbooks/pdfs/sg246286.pdf
--
select 'TOYSTORE', objname as file, omit_journal_entry, journal_images, objtype, objowner,
       objdefiner, objcreated, objsize, objtext, objlongname, last_used_timestamp, journaled,

forstie

--
-- Search for journals that can be easily improved
--
-- Resources:
-- https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_74/rzajq/rzajqviewjournalinfo.htm
-- http://www.redbooks.ibm.com/redbooks/pdfs/sg246286.pdf 
--
select journal_library, journal_name, receiver_maximum_size, remove_internal_entries, asp_number,
       journal_aspgrp, attached_journal_receiver_name, attached_journal_receiver_library,
       message_queue, message_queue_library, delete_receiver_option, delete_receiver_delay,

forstie

--
-- description: printf to the Joblog, using SQL
--
cl:addlible qsysinc;
cl:crtsrcpf qtemp/qcsrc;
cl:addpfm file(qtemp/qcsrc) mbr(LPRINTF);
insert into qtemp.qcsrc values
 (1,010101,'{'),                                                  
 (2,010101,'extern int Qp0zLprintf (char *format, ...);'),