forstie

--
-- If you're not ready to use IFS_OBJECT_PRIVILEGES, this might help you...
-- Note: A special thanks to Sue Romano for her help with this Gist
--

-- https://www.ibm.com/docs/en/i/7.4?topic=services-ifs-object-privileges-table-function
cl:PRTPVTAUT OBJTYPE(*STMF) DIR('/') SCHSUBDIR(*YES);

--
-- create an alias over the most recent execution of PRTPRVAUT

forstie

-- =========================================================================================
-- 
-- Adopted authority... if you use it, how do you control it?
--
-- =========================================================================================
-- Q: How can you avoid propagating authority to code you need to call?
--
-- A: MODIFY INVOCATION AUTHORITY ATTRIBUTES
--    https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_74/rzatk/MODINVAU.htm
-- =========================================================================================

forstie

-- =============================================================
-- Author: Scott Forstie
-- Date  : September 8, 2019
-- Revised: August 28, 2020
--
-- Description: Have you ever wondered what's driving all
--              those QZDASxINIT jobs? 
--              This example shows how to establish an 
--              exit program to capture client special register
--              and other detail for ZDA connections.