Hallo,
before going into the loop where Address SDSF 'ISFEXEC' is issued the
stems are fine, oclass.1 is 'V' and oclass.2 is 'X'. However after doing the
call to SDSF, oclass.2 is 'V' which is wrong. Also, after the whole loop is
ended and I check both stems, they are both 'V' so it looks like something to
do with the call to SDSF...
(The other stuff in the REXX is just the ISFCALLS and error checking)
Sebastian
On Tue, 26 Feb 2013 13:09:31 +0100, Miklos Szigetvari
<[email protected]> wrote:
> Hi
>
>Works for me, what about the other stuff?
>Seems oclass.2 is "V" here.
>Are you sure the stem is correct before the loop ?
>On 26.02.2013 12:57, Sebastian Welton wrote:
>> 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
>>
>>
>
>----------------------------------------------------------------------
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
