Skip to content

Instantly share code, notes, and snippets.

View bdietz400's full-sized avatar

bryan_d bdietz400

View GitHub Profile
-- description: find in IFS files
-- using ACS 1.1.9.2 this will prompt you for starting path and search term
-- forced uppercase, if you know the case remove the "upper()", it may run faster
with ifsobjs (path, type) as (
select path_name, object_type
from table(qsys2.IFS_OBJECT_STATISTICS(
start_path_name => ?, -- use /path/to/start/in
subtree_directories => 'YES')) a
@bdietz400
bdietz400 / find_orphaned_JRNRCV
Created January 2, 2025 14:56
Fin "orphaned" Journal Receivers
SELECT Jr.Journal_Receiver_Library,Jr.Journal_Receiver_Name,Jr.Size
,Jr.Descriptive_Text,Jr.Journal_Library,Jr.Journal_Name
,Jr.Attach_Timestamp,Jr.Detach_Timestamp
FROM Qsys2.Journal_Receiver_Info Jr
WHERE NOT EXISTS (SELECT J.Journal_Name
FROM Qsys2.Journal_Info J
WHERE J.Journal_Library = Jr.Journal_Library
AND J.Journal_Name = Jr.Journal_Name)
;