Work with Remote Writers

WRKRMTWTR

-- category: bryan.dietz
-- description: WRKRMTWTR  
-- Inspired by : http://bryandietz.us/wrkrmtwtr.html
SELECT TRIM(Output_Queue_Library_Name) CONCAT '/' CONCAT TRIM(Output_Queue_Name) AS Output_Queue
       ,Number_Of_Files AS "# Splf"
       ,Output_Queue_Status AS Status
       ,Remote_System_Name AS Remote_Host
       ,Remote_Printer_Queue AS Rmt_Queue
       ,Writer_Job_Status AS Wtr_Sts
       ,Workstation_Customizing_Object_Name AS Wscst
       ,Manufacturer_Type_And_Model AS Mfgtyp
       ,Writers_To_Autostart AS Autostart
       ,Text_Description
       ,Network_Connection_Type AS Cnn_Type
       ,Destination_Type AS Dest_Type
       ,Destination_Options AS Dest_Opt
       ,Writer_Type
       ,TRIM(Data_Queue_Library) CONCAT '/' CONCAT TRIM(Data_Queue_Name) AS Data_Queue
       ,TRIM(Message_Queue_Library) CONCAT '/' CONCAT TRIM(Message_Queue_Name) AS Message_Queue
       ,Writer_Job_Name
       --,Workstation_Customizing_Object_Library, , Workstation_Customizing_Object_Name
    FROM Qsys2.Output_Queue_Info
    WHERE Network_Connection_Type = '*IP'
          AND Output_Queue_Library_Name = 'QGPL'
          -- and  Remote_System_Name LIKE '%SomeHost%'
          ;