bdietz400

-- category: bryan.dietz
-- description: Look for BADLOGONS

SELECT Entry_Timestamp, current server as System_name
       ,Job_Number CONCAT '/' CONCAT RTRIM(Job_User) CONCAT '/' CONCAT RTRIM(Job_Name) AS Job_Name
       ,RTRIM(Program_Library) CONCAT '/' CONCAT RTRIM(Program_Name) AS Program_Name
       ,RTRIM(CAST(SUBSTR(Entry_Data, 2, 10) AS VARCHAR(10))) AS User_Id
       ,Remote_Address
       ,Remote_Port
       ,CASE RTRIM(CAST(SUBSTR(Entry_Data, 1, 1) AS CHAR(1)))

bdietz400

--  category:  Bryan.Dietz 
--  description:  Jobs in msgw(wrkactjob)

SELECT Job_Name
       ,Subsystem
       ,Function_Type CONCAT '-' CONCAT Function AS "Function"
       ,Job_Status
       ,(SELECT Message_Text
               FROM TABLE (Qsys2.Joblog_Info(I.Job_Name)) A
               ORDER BY Ordinal_Position DESC