Re: Do you have an example of .......
Hi Willy,
yes! that was the trick,
I tried with ADDRESS SDSF but wasn't aware of ISFSLASH. I used '/D SMS,
STORGRP(ALL)' and got the error,
Thanks to you and Kolusu,
Horacio
De: IBM Mainframe Discussion List en nombre de Willy
Jensen
Enviado: martes, 17 de mayo de 2022 06:46
Para: IBM-MAIN@LISTSERV.UA.EDU
Asunto: [EXTERNAL] Re: Do you have an example of ...
Try this REXX using the SDSF API:
zz=isfcalls('ON')
Address SDSF ISFSLASH "'D SMS,STORGRP(ALL)' (WAIT)"
cc=rc
zz=isfcalls('OFF')
if rc<>0 then say 'Console failed rc' cc
else do n=1 to isfulog.0
say '->'isfulog.n
end
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Do you have an example of .......
How does that work with no console authority? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Sri h Kolusu [skol...@us.ibm.com] Sent: Monday, May 16, 2022 11:02 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Do you have an example of ... >> I can execute the command from SDSF, but have no console authority. Is there >> any other way? Horacio, Try this JCL which runs SDSF in batch and will write the output of the command to dynamically allocated ddname SYS1 //RUNCCMDS EXEC PGM=SDSF //ISFOUT DD SYSOUT=* //ISFINDD * SET LOG S UCLOSE ULOG /D SMS,STORGRP(ALL) ++ALL PRINT PRINT CLOSE END /* Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Do you have an example of .......
Try this REXX using the SDSF API:
zz=isfcalls('ON')
Address SDSF ISFSLASH "'D SMS,STORGRP(ALL)' (WAIT)"
cc=rc
zz=isfcalls('OFF')
if rc<>0 then say 'Console failed rc' cc
else do n=1 to isfulog.0
say '->'isfulog.n
end
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Do you have an example of .......
>> I can execute the command from SDSF, but have no console authority. Is there >> any other way? Horacio, Try this JCL which runs SDSF in batch and will write the output of the command to dynamically allocated ddname SYS1 //RUNCCMDS EXEC PGM=SDSF //ISFOUT DD SYSOUT=* //ISFINDD * SET LOG S UCLOSE ULOG /D SMS,STORGRP(ALL) ++ALL PRINT PRINT CLOSE END /* Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Do you have an example of .......
Kolusu,
thanks for you replay.
I can execute the comand from SDSF, but have no console authority.
Is there any other way?
Horacio
De: IBM Mainframe Discussion List en nombre de Sri h
Kolusu
Enviado: lunes, 16 de mayo de 2022 18:33
Para: IBM-MAIN@LISTSERV.UA.EDU
Asunto: [EXTERNAL] Re: Do you have an example of ...
>> I'd like to catch the output of an SMS command, like 'DISPLAY SMS,
>> STORGRP(ALL), from REXX. Is that possible?
Horacio,
Try this
/* rexx */
cmd='d sms,storgrp(all)'
"console activate"
"console syscmd("cmd")"
mcode=getmsg('conmsg1.','sol',,,60)
if conmsg1.0 = 0 then do
say 'no message returned'
return
end
else
do i=1 to conmsg1.0
say conmsg1.i
end
conmsg1.0=0
"console deactivate"
exit
Thanks,
Kolusu
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Do you have an example of .......
>> I'd like to catch the output of an SMS command, like 'DISPLAY SMS,
>> STORGRP(ALL), from REXX. Is that possible?
Horacio,
Try this
/* rexx */
cmd='d sms,storgrp(all)'
"console activate"
"console syscmd("cmd")"
mcode=getmsg('conmsg1.','sol',,,60)
if conmsg1.0 = 0 then do
say 'no message returned'
return
end
else
do i=1 to conmsg1.0
say conmsg1.i
end
conmsg1.0=0
"console deactivate"
exit
Thanks,
Kolusu
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Do you have an example of .......
Hi, I'd like to catch the output of an SMS command, like 'DISPLAY SMS, STORGRP(ALL), from REXX. Is that possible? I've tried some ideas with no luck. Thanks, Horacio De: IBM Mainframe Discussion List en nombre de Pommier, Rex Enviado: lunes, 16 de mayo de 2022 16:51 Para: IBM-MAIN@LISTSERV.UA.EDU Asunto: Re: [EXTERNAL] Re: IBM BLSR subsystem Thanks, all responders. Michael, so I'm not stuck in the mid '90s, just the BLSR documentation is. :-) "First Edition, June 1994" I have seen the references to BLSR in other documents, like a crypto manual and some SMP/E references to it, but until I found the 1994 document, I couldn't find anything that actually explained it. That's where I was getting confused. I'll also need to check the AMP parm to see if that does the same thing. The DEFERW=YES option looks interesting (again). Rex -Original Message- From: IBM Mainframe Discussion List On Behalf Of Michael Oujesky Sent: Monday, May 16, 2022 2:23 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: [EXTERNAL] Re: IBM BLSR subsystem PDF - http://publibz.boulder.ibm.com/epubs/pdf/iea5j600.pdf BLSR will help principally if the access is random and the locality of reference of the data component is good. Otherwise, just increasing the BUFNI and/or BUFND will suffice. Note that for sequential access a BUFND of twice the CIs per CA plus two and just a few BUFNI five or so) usually provides about the best you can get (incudes over-lapping read I/O to the data component). I still see BLSR in the 2.5 IEFSSN00 member. Michael At 09:36 AM 5/16/2022, Pommier, Rex wrote: >Hi list, > >Is the BLSR subsystem (batch local shared resources) still a >viable/valuable thing or has it been replaced by something >bigger/better/faster? I seem to be stuck in the mid-90s because the >most current documentation I can find on it is from MVS/ESA 5.1 dated >1994. Is there more current documentation on how to use it and how it >works? Has it been replaced and deprecated? I just had a developer >use it last week and experienced a 40+ reduction in I/Os but I wanted >to read up on its limitations - especially around using it on a shared >VSAM dataset. However I can't find anything newer >than 25+ years old. I did multiple internet searches which is >where I found the ESA manual. I checked the knowledge center and my >own z/OS 2.2 and 2.4 collections all to no avail. > >Thanks, > >Rex -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
