IBM Mainframe Forum

Hi All,
I am trying to copy joblogs for any user onto members of a PDS.But I am facing issues using ReXX with TSO ST command.
I want to do the following:
1. type on command line TSO <rexx code name> <userid>
and copy the members to a PDS. I use:

Now,I have to access other user's spool whose Id I used as Arg.So,

X = Outtrap('List.')
ADDRESS TSO
"STATUS Id"
X = Outtrap('OFF')

Then the prob comes.............STATUS doesn't take the Id value .
But a normal TSO STATUS <any user Id> returns the status of the jobs run under anyuser's Id.But, the same value is not here after STATUS.
Is there a way to pass the argument Id inside the OUTTRAP function?
Please help...

Isn't Id a variable? If so, then shouldn't the code be written:

"STATUS "Id

Yes sir. It should be that.
But then the following happens after the PDS is created successfully....

Output PDS XXXXXX.D090622.T010201.JOBOUT Created successfully..

28 *-* End
31 *-* X = Outtrap('List.')
>L> "List."
>F> "LIST."

32 *-* ADDRESS TSO

33 *-* "STATUS" Id
>L> "STATUS"
>V> "C5LMKM" --------------------->other person's userid
>O> "STATUS C5LMKM"

34 *-* X = Outtrap('OFF')
>L> "OFF"
>F> "OFF"

35 *-* Do I = 1 TO List.0
>L> "1"
>V> "48"

36 *-* Jobname = ''
>L> ""

37 *-* Mem = ''
>L> ""
38 *-* Parse Var List.i Msgid Iat Owner '(' Jobid ')' 'IS' Jobname '00'x
>C> "LIST.1"
>>> "JOB"
>>> "C5LMKM"
>>> ""
>>> "JOB51253"
>>> ""
39 *-* If Msgid = 'IAT8969' & Index(List.i,'TIME') = 0
>V> "JOB"
>L> "IAT8969"
>O> "0"
>C> "LIST.1"
>V> "JOB C5LMKM(JOB51253) ON OUTPUT QUEUE+"
>L> "TIME"
>F> "0"
>L> "0"
>O> "1"
>O> "0"
78 *-* End
35 *-* Do I = 1 TO List.0
36 *-* Jobname = ''
>L> ""
37 *-* Mem = ''
>L> ""
38 *-* Parse Var List.i Msgid Iat Owner '(' Jobid ')' 'IS' Jobname '00'x
>C> "LIST.2"
>>> "IAT8969"
>>> "JOB"
>>> "C5LMKM "
>>> "JOB51253"
>>> " OWNED BY (C5LMKM ) " ------------>this doesn't come when ST is checked for my own id.
39 *-* If Msgid = 'IAT8969' & Index(List.i,'TIME') = 0
>V> "IAT8969"
>L> "IAT8969"
>O> "1"
>C> "LIST.2"
>V> "IAT8969 JOB C5LMKM (JOB51253) IS OWNED BY (C5LMKM )
??"
>L> "TIME"
>F> "0"
>L> "0"
>O> "1"
>O> "1"

*-* Then
40 *-* Do

41 *-* Jobname = Strip(Jobname)
>V> " OWNED BY (C5LMKM ) "
>F> "OWNED BY (C5LMKM )"

*-* Then
46 *-* Mem = Jobname
>V> "OWNED BY (C5LMKM )"

47 *-* Inc = 1
>L> "1"

48 *-* Do Forever

49 *-* If Inc > 99 & ,(Length(Mem) = 7 | Length(Mem) = 8)
>V> "1"
>L> "99"
>O> "0"
>V> "OWNED BY (C5LMKM )"
>F> "22"
>L> "7"
>O> "0"
>V> "OWNED BY (C5LMKM )"
>F> "22"

If I use ST for my Id the jobname taken is proper but when the ST <userid> is used jobname contains OWNED BY (other user's id ).
Is there anyway I get rid of it as it is causing extraneous information being passed to variable jobname below:

X = Outtrap('List.')
ADDRESS TSO
"STATUS" Id
X = Outtrap('OFF')
Do I = 1 TO List.0
Jobname = ''
Mem = ''
Parse Var List.i Msgid Iat Owner '(' Jobid ')' 'IS' Jobname '00'x
If Msgid = 'IAT8969' & Index(List.i,'TIME') = 0 Then
Do
Jobname = Strip(Jobname)
Jobid= Strip(Jobid)
Save = 'Y'
Jobname = Strip(Jobname)
If Mem = '' Then
Mem = Jobname
Inc = 1
Do Forever
If Inc > 99 & ,
(Length(Mem) = 7 | Length(Mem) = 8) Then
Do
Say 'Error: Member Name Suffix exceeds 99, ' Jobname ' Not saved'
Save = 'N'
Leave
End
"Member " Mem
If Rc = 0 Then
Do
If Length(Mem) = 8 Then
Mem = Substr(Mem,1,6) || Inc
Else
Mem = Mem || Inc
Inc = Inc + 1
End
Else
Leave
End
RouteCode = Substr(Jobname,7,2)
If Save <> 'N' Then
Do
If RouteCode <> '' Then
"Out " || Jobname || "(" || Jobid || ") Print('" || Out || ,
"(" || Mem || ")') begin keep hold "
If Rc = 0 Then
Say 'Job ' Jobname '(' || Jobid || ') Copied into member ' Mem
End
End
End
"Free f(Input2)"