Apologies. That was for UNIX, not CA/OPS-MVS. Hard day, today (and yesterday, and tomorrow). Not enough sleep.
-- 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 McKown, John > Sent: Wednesday, October 13, 2010 12:19 PM > To: [email protected] > Subject: Re: Using ADDRESS SDSF in OPS/MVS > > 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 > > ---------------------------------------------------------------------- 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
