I have a need to get how many lines are on the output queue for a certain class and couldn't find a JES2 or other command to provide me with this information so looked at other avenues. One way is to use SDSF with REXX and the ISFTLINE variable will give me this information:
OUTPUT CLS V ALL FORMS LINES 1,127 This is just what I require but maybe I want to see more classes so the code looks like this to get this information: oclass.1 = 'V' oclass.2 = 'X' oclass.0 = 2 ...(other stuff required for SDSF REXX) ... Do i = 1 To oclass.0 output_class = oclass.i cmd = 'O'!!output_class Address sdsf 'ISFEXEC' cmd Parse Var isftline . . . . . . . lines . Say 'Output class' output_class 'has' lines , 'lines of output on the spool.' End But this doesn't work as when it goes through the second iteration, the stem oclass. does not change so it always stays as 'V': first iteration - Do i = 1 To oclass.0 "1" "2" output_class = oclass.i "OCLASS.1" "V" cmd = 'O'!!output_class "O" "V" "OV" Address sdsf 'ISFEXEC' cmd "ISFEXEC" "OV" "ISFEXEC OV" second iteration - Do i = 1 To oclass.0 output_class = oclass.i "OCLASS.2" "V" cmd = 'O'!!output_class "O" "V" "OV" Address sdsf 'ISFEXEC' cmd "ISFEXEC" "OV" "ISFEXEC OV" Is there something special needs to be done with SDSF/REXX as I couldn't see anything in the manuals (only for special variables) or am I missing something? Many thanks Sebastian. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
