*Am I the only one that uses the SDSF REXX interface ?
Or is is time to buf IBM ?
TIA
Thomas Berg
*
====== Thomas Berg ====== wrote 2008-04-30 14:37:
Hi!
I have a problem when running SDSF REXX commands.
When looping the returned isfrows after ISFEXEC ST command,
the second ISFACT returns "INVALID COMMAND" (and rc = 0).
I can't see why.
The REXX:
/* REXX */ Trace R
x = Isfcalls('ON')
isfprefix = 'S000TBE5'
isfcols = 'JNAME JOBID OWNERID JCLASS POS STATUS' ,
'SYSNAME WORKLOAD CPU TRANACT SRVCLS SRVCLASS ACTSYS' ,
'SYSAFF TOKEN PRTDEST'
Address SDSF 'ISFEXEC ST (ALTERNATE)'
isfcols2 = ,
'DDNAME STEPN PROCS DSID OCLASS RECCNT BYTECNT DSNAME'
Do i = 1 To isfrows
Address SDSF "ISFACT ST TOKEN('"token.i"')" ,
'PARM(NP ?)'
Trace N
Say rc
Say isfmsg
Do j = 1 To isfmsg2.0
Say isfmsg2.j
End
Do j = 1 To dsname.0
Say dsname.j
End
Trace R
End
x = Isfcalls('OFF')
Exit 0
The output:
2 *-* x = Isfcalls('ON')
>>> "0"
3 *-* isfprefix = 'S000TBE5'
>>> "S000TBE5"
4 *-* isfcols = 'JNAME JOBID OWNERID JCLASS POS STATUS' ,
'SYSNAME WORKLOAD CPU TRANACT SRVC
LS SRVCLASS ACTSYS' , 'SYSAFF TOKEN PRTDEST'
>>> "JNAME JOBID OWNERID JCLASS POS STATUS SYSNAME WORKLOAD
CPU TRANACT SRVCLS SRVCLASS ACTSYS SYSAFF TOKEN PRTDEST"
7 *-* Address SDSF 'ISFEXEC ST (ALTERNATE)'
>>> "ISFEXEC ST (ALTERNATE)"
8 *-* isfcols2 = ,
'DDNAME STEPN PROCS DSID OCLASS RE
CCNT BYTECNT DSNAME'
>>> "DDNAME STEPN PROCS DSID OCLASS RECCNT BYTECNT DSNAME"
11 *-* Do i = 1 To isfrows
>>> "1"
>>> "2"
12 *-* Address SDSF "ISFACT ST TOKEN('"token.i"')" ,
'PARM(NP ?)'
>>> "ISFACT ST
TOKEN('6jkSNicbJpKic/D1m8LEQNp38PrbwuNA6yKmVtAgRrDmEzI1o1LFTisSNjQ6IReE4
tDw6OPDUEDj+XPw4rJGQOP4fPDrExO
CEgEGCBQ=') PARM(NP ?)"
14 *-* Trace N
0
ISF754I Command 'PREFIX S000TBE5' generated from associated variable
ISFPREFIX.
S000TBE.S000TBE5.JOB01687.D0000002.JESMSGLG
S000TBE.S000TBE5.JOB01687.D0000003.JESJCL
S000TBE.S000TBE5.JOB01687.D0000004.JESYSMSG
S000TBE.S000TBE5.JOB01687.D0000104.?
S000TBE.S000TBE5.JOB01687.D0000108.?
S000TBE.S000TBE5.JOB01687.D0000111.?
27 *-* End
11 *-* Do i = 1 To isfrows
12 *-* Address SDSF "ISFACT ST TOKEN('"token.i"')" ,
'PARM(NP ?)'
>>> "ISFACT ST
TOKEN('6jkSNicbJpKic/D1esLEQNp38PrbwuNA67SCN30gRrDmEzI1o1LFTisSNjQ6IReE4
tDw6OPAUEDj+XPw4kpGQOP4c/DhUsT
K4vH1c+PDVMPi8fh849MUliAAAQYbNapb/Q768OPGPQ==') PARM(NP ?)"
14 *-* Trace N
0
INVALID COMMAND
ISF754I Command 'PREFIX S000TBE5' generated from associated variable
ISFPREFIX.
S000TBE.S000TBE5.JOB01687.D0000002.JESMSGLG
S000TBE.S000TBE5.JOB01687.D0000003.JESJCL
S000TBE.S000TBE5.JOB01687.D0000004.JESYSMSG
S000TBE.S000TBE5.JOB01687.D0000104.?
S000TBE.S000TBE5.JOB01687.D0000108.?
S000TBE.S000TBE5.JOB01687.D0000111.?
27 *-* End
11 *-* Do i = 1 To isfrows
29 *-* x = Isfcalls('OFF')
>>> "0"
30 *-* Exit 0
>>> "0"
***
TIA
Thomas Berg
______________________________________
Thomas Berg Specialist IT-U SWEDBANK
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
__________________________
Mundus Vult Decipi
__________________________
They that can give up essential liberty to obtain a little temporary safety
deserve neither liberty nor safety.
- Benjamin Franklin
Military justice is to justice what military music is to music.
- Groucho Marx
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
