This works for me:
/* REXX */
address syscall
"getlogin racfid"
SAY RACFID
home=''
home=environment('HOME')
say home
rc=isfcalls('on')
say 'isfcalls rc='rc
if rc <> 0 then exit 1
isfprefix='**'
isfsysname='*'
isfowner='*'
ADDRESS SDSF "ISFEXEC DA (delayed NOMODIFY prefix da_)"
say "from da="rc
say 'isfmsg='isfmsg
do i=1 to isfmsg2.0
say 'isfmsg2.'i'='isfmsg2.i
end
say 'isfcols='isfcols
say 'isfcols2='isfcols2
say 'isfdcols='isfdcols
say 'isfdcols2='isfdcols2
say 'jname.0='jname.0
say 'da_jname.0='da_jname.0
say 'isfrows='isfrows
say '<?xml version="1.0" ?>'
SAY '<SDSF_DA>'
do i=1 to isfrows
line='<row id="'i'">'
do j=1 to words(isfcols)
colname='DA_'word(isfcols,j)
LINE=LINE'<'COLNAME'>'VALUE(COLNAME"."I)'</'COLNAME'>'
end
say line
SAY '</ROW>'
end
SAY '</SDSF_DA>'
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-691-6183 cell
[email protected] * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets(r) is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The
MEGA Life and Health Insurance Company.SM
> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[email protected]] On Behalf Of Burge, Richard
> Sent: Wednesday, October 13, 2010 11:51 AM
> To: [email protected]
> Subject: Using ADDRESS SDSF in OPS/MVS
>
> Has anyone successfully used the ADDRESS SDSF command under
> OPS/MVS REXX, and not just TSO REXX? The below works in
> TSO REXX, but not OPS REXX
>
> OPS REXX gives this
> OPS1098I *-* 6:ADDRESS SDSF "ISFEXEC ST " /*ACCESS
> THE ST PANEL*/
> OPS1098I +++ RC(-3)
>
>
> TSO REXX appropriately gives SDSF output
>
>
> ZADDRBU.EXEC(SDSF1)
> ***************************** Top of Data *****************
> /* */
> ADDRESS 'TSO'
> RC=ISFCALLS('ON')
> ISFCOLS = 'JNAME JOBID OWNERID'
> ISFPREFIX = 'ZADDRBU' /*PREFIX*/
> ADDRESS SDSF "ISFEXEC ST " /*ACCESS THE ST PANEL*/
> IF RC<>0 THEN EXIT RC
>
> /* GET FIXED FIELD NAME FROM FIRST WORD */
> /* OF ISFCOLS SPECIAL VARIABLE */
> FIXEDFIELD = WORD(ISFCOLS,1)
> SAY "NUMBER OF ROWS RETURNED:" ISFROWS
> DO IX=1 TO ISFROWS /*PROCESS ALL ROWS*/
> SAY "NOW PROCESSING JOB:" VALUE(FIXEDFIELD"."IX)
> DO JX=1 TO WORDS(ISFCOLS) /*LIST ALL COLUMNS*/
> COL = WORD(ISFCOLS,JX)
> SAY " COLUMN" COL"."IX "HAS THE VALUE:" VALUE(COL"."IX)
> END
> END
> RC=ISFCALLS('OFF')
>
> Thanks,
> Rich
>
> ----------------------------------------------------------------------
> 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
>
>
----------------------------------------------------------------------
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
