Re: Access to SMF logstreams
Hi Gadi, I think that you meant "discrete" instead of "discreet". Shalom, David On 2019-04-29 01:34, Gadi Ben-Avi wrote: > Hi, > I would like to prevent a user from accessing the SMF log streams. > Class is active and there are discreet profiles for each of the SMF > logstreams. > The user in question does not have access to the profiles. > > Is there anything else that I need to define? > > Thanks > > Gadi > > > > -- > 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: Access to SMF logstreams
Probably -Original Message- From: IBM Mainframe Discussion List On Behalf Of David Spiegel Sent: Monday, April 29, 2019 11:46 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Access to SMF logstreams Hi Gadi, I think that you meant "discrete" instead of "discreet". Shalom, David On 2019-04-29 01:34, Gadi Ben-Avi wrote: > Hi, > I would like to prevent a user from accessing the SMF log streams. > Class is active and there are discreet profiles for each of the SMF > logstreams. > The user in question does not have access to the profiles. > > Is there anything else that I need to define? > > Thanks > > Gadi > > > > -- > 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
TCPIP IP address for current LPAR
Is there an accessible control block that holds the IP address (or addresses) for the current LPAR I'm running on? I have need to pass back this address to another remote application and would prefer to interrogate a control block rather than issue commands to obtain same a la D TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample snippet of code would be great but the location should let me get there. Is there any other option that getting the @ from a control block or using D TCPIP,,NETSTAT,HOME? Thanks ahead of time Regards Stan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Processing Partition organization type record
Hi I have to process a DSORG type dataset processing each member I initially do a FIND and go through Each member Seems lime with this access method I have to use READ instead of GET And thus do my own deb locking processing In Rexx I would do the allocate and unallocate and this would use QSAM In Assembler this more difficult with SVC 99 If anybody has any ideas they are willing to share I would appreciate it Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Processing Partition organization type record
On Mon, Apr 29, 2019 at 7:28 AM Joseph Reichman wrote: > Hi > > I have to process a DSORG type dataset processing each member > > I initially do a FIND and go through Each member > > Seems lime with this access method I have to use READ instead of GET > > And thus do my own deb locking processing In Rexx I would do the allocate > and unallocate and this would use QSAM > > In Assembler this more difficult with SVC 99 > > If anybody has any ideas they are willing to share I would appreciate it > > Thanks > > Do efficiently process every member of a PDS or PDSE, you do need to use BPAM, which uses READ & CHECK. Using SVC 99 to allocate each member is possible, but will have horrible overhead. Have you looked at the IBM example code for this? https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.idad400/retmem99.htm Another way is to write an application which uses the TSO ISPF LM* services. https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.f54sg00/lminit.htm -- This is clearly another case of too many mad scientists, and not enough hunchbacks. Maranatha! <>< John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TCPIP IP address for current LPAR
On Mon, Apr 29, 2019 at 7:10 AM Stan Weyman < 0239b6933cab-dmarc-requ...@listserv.ua.edu> wrote: >Is there an accessible control block that holds the IP address (or > addresses) for the current LPAR I'm running on? I have need to pass back > this address to another remote application and would prefer to interrogate > a control block rather than issue commands to obtain same a la D > TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample > snippet of code would be great but the location should let me get there. > >Is there any other option that getting the @ from a control block or > using D TCPIP,,NETSTAT,HOME? > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.hala001/getid.htm may be what you want. > >Thanks ahead of time > > Regards > Stan > -- This is clearly another case of too many mad scientists, and not enough hunchbacks. Maranatha! <>< John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TCPIP IP address for current LPAR
The EZBNMIFR Network Management Interface will probably be of help here, it will tell you pretty much everything about the TCP/IP stack. Robin -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Stan Weyman Sent: 29 April 2019 19:00 To: IBM-MAIN@LISTSERV.UA.EDU Subject: TCPIP IP address for current LPAR Is there an accessible control block that holds the IP address (or addresses) for the current LPAR I'm running on? I have need to pass back this address to another remote application and would prefer to interrogate a control block rather than issue commands to obtain same a la D TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample snippet of code would be great but the location should let me get there. Is there any other option that getting the @ from a control block or using D TCPIP,,NETSTAT,HOME? Thanks ahead of time Regards Stan -- 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: Processing Partition organization type record
Thanks don’t think there is a easy way out I am running the code under IKJEFT01 in background as a batch job I need to process all the members Actually it is the SYSADATA file a VB PO I have to read the ADATA for each member doesn’t seem like any easy way out Thanks > On Apr 29, 2019, at 8:39 AM, John McKown wrote: > > On Mon, Apr 29, 2019 at 7:28 AM Joseph Reichman > wrote: > >> Hi >> >> I have to process a DSORG type dataset processing each member >> >> I initially do a FIND and go through Each member >> >> Seems lime with this access method I have to use READ instead of GET >> >> And thus do my own deb locking processing In Rexx I would do the allocate >> and unallocate and this would use QSAM >> >> In Assembler this more difficult with SVC 99 >> >> If anybody has any ideas they are willing to share I would appreciate it >> >> Thanks >> >> > Do efficiently process every member of a PDS or PDSE, you do need to use > BPAM, which uses READ & CHECK. Using SVC 99 to allocate each member is > possible, but will have horrible overhead. Have you looked at the IBM > example code for this? > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.idad400/retmem99.htm > > Another way is to write an application which uses the TSO ISPF LM* > services. > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.f54sg00/lminit.htm > > > > > > > -- > This is clearly another case of too many mad scientists, and not enough > hunchbacks. > > > Maranatha! <>< > John McKown > > -- > 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: TCPIP IP address for current LPAR
Thanks for pointing me to the NMI Robin. Regards -Original Message- From: IBM Mainframe Discussion List On Behalf Of Robin Atwood Sent: Monday, April 29, 2019 8:35 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TCPIP IP address for current LPAR The EZBNMIFR Network Management Interface will probably be of help here, it will tell you pretty much everything about the TCP/IP stack. Robin -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Stan Weyman Sent: 29 April 2019 19:00 To: IBM-MAIN@LISTSERV.UA.EDU Subject: TCPIP IP address for current LPAR Is there an accessible control block that holds the IP address (or addresses) for the current LPAR I'm running on? I have need to pass back this address to another remote application and would prefer to interrogate a control block rather than issue commands to obtain same a la D TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample snippet of code would be great but the location should let me get there. Is there any other option that getting the @ from a control block or using D TCPIP,,NETSTAT,HOME? Thanks ahead of time Regards Stan -- 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TCPIP IP address for current LPAR
Thanks for the suggestion John.This or the NMI interface suggested by Robin should work. Regards -Original Message- From: IBM Mainframe Discussion List On Behalf Of John McKown Sent: Monday, April 29, 2019 8:32 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TCPIP IP address for current LPAR On Mon, Apr 29, 2019 at 7:10 AM Stan Weyman < 0239b6933cab-dmarc-requ...@listserv.ua.edu> wrote: >Is there an accessible control block that holds the IP address (or > addresses) for the current LPAR I'm running on? I have need to pass back > this address to another remote application and would prefer to > interrogate a control block rather than issue commands to obtain same a la D > TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample > snippet of code would be great but the location should let me get there. > >Is there any other option that getting the @ from a control block > or using D TCPIP,,NETSTAT,HOME? > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.hala001/getid.htm may be what you want. > >Thanks ahead of time > > Regards > Stan > -- This is clearly another case of too many mad scientists, and not enough hunchbacks. Maranatha! <>< John McKown -- 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: TCPIP IP address for current LPAR
"it will tell you pretty much everything about *the* TCP/IP stack": What if you have more than 1 TCP/IP stack in your system? Which one does the application intend to use and how does the NMI address that stack? Kees > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Robin Atwood > Sent: 29 April, 2019 14:35 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: TCPIP IP address for current LPAR > > The EZBNMIFR Network Management Interface will probably be of help here, > it will tell you pretty much everything about the TCP/IP stack. > > Robin > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Stan Weyman > Sent: 29 April 2019 19:00 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: TCPIP IP address for current LPAR > >Is there an accessible control block that holds the IP address (or > addresses) for the current LPAR I'm running on? I have need to pass back > this address to another remote application and would prefer to interrogate > a control block rather than issue commands to obtain same a la D > TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample > snippet of code would be great but the location should let me get there. > >Is there any other option that getting the @ from a control block or > using D TCPIP,,NETSTAT,HOME? > >Thanks ahead of time > > Regards > Stan > > > > > -- > 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 For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Processing Partition organization type record
A different approach is unloading the PDS and process the flat file with Rexx. Or if you have SAS, run PROC SOURCE and process the sequential file, either with SAS of Rexx. Kees. > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Joseph Reichman > Sent: 29 April, 2019 14:47 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Processing Partition organization type record > > Thanks don’t think there is a easy way out > I am running the code under IKJEFT01 in background as a batch job I need > to process all the members Actually it is the SYSADATA file a VB PO I have > to read the ADATA for each member doesn’t seem like any easy way out > > Thanks > > > > > > On Apr 29, 2019, at 8:39 AM, John McKown > wrote: > > > > On Mon, Apr 29, 2019 at 7:28 AM Joseph Reichman > > wrote: > > > >> Hi > >> > >> I have to process a DSORG type dataset processing each member > >> > >> I initially do a FIND and go through Each member > >> > >> Seems lime with this access method I have to use READ instead of GET > >> > >> And thus do my own deb locking processing In Rexx I would do the > allocate > >> and unallocate and this would use QSAM > >> > >> In Assembler this more difficult with SVC 99 > >> > >> If anybody has any ideas they are willing to share I would appreciate > it > >> > >> Thanks > >> > >> > > Do efficiently process every member of a PDS or PDSE, you do need to use > > BPAM, which uses READ & CHECK. Using SVC 99 to allocate each member is > > possible, but will have horrible overhead. Have you looked at the IBM > > example code for this? > > > > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2 > r3.idad400/retmem99.htm > > > > Another way is to write an application which uses the TSO ISPF LM* > > services. > > > > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2 > r3.f54sg00/lminit.htm > > > > > > > > > > > > > > -- > > This is clearly another case of too many mad scientists, and not enough > > hunchbacks. > > > > > > Maranatha! <>< > > John McKown > > > > -- > > 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 For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TCPIP IP address for current LPAR
Already considered this and whichever method used will have to deal with the potential where more than one stack is run. Thanks for the input Kees -Original Message- From: IBM Mainframe Discussion List On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: Monday, April 29, 2019 9:08 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TCPIP IP address for current LPAR "it will tell you pretty much everything about *the* TCP/IP stack": What if you have more than 1 TCP/IP stack in your system? Which one does the application intend to use and how does the NMI address that stack? Kees > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Robin Atwood > Sent: 29 April, 2019 14:35 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: TCPIP IP address for current LPAR > > The EZBNMIFR Network Management Interface will probably be of help > here, it will tell you pretty much everything about the TCP/IP stack. > > Robin > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Stan Weyman > Sent: 29 April 2019 19:00 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: TCPIP IP address for current LPAR > >Is there an accessible control block that holds the IP address (or > addresses) for the current LPAR I'm running on? I have need to pass back > this address to another remote application and would prefer to > interrogate a control block rather than issue commands to obtain same a la D > TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample > snippet of code would be great but the location should let me get there. > >Is there any other option that getting the @ from a control block > or using D TCPIP,,NETSTAT,HOME? > >Thanks ahead of time > > Regards > Stan > > > > > -- > 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 For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- 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: Processing Partition organization type record
Its all complex why did IBM have to have MACRF=R with DSORG=PO was there any good reason ? I would have add another step truth is I want to keep track of the members as they represent the CSECTS wonder if anyone submitted a RFE for this ever > On Apr 29, 2019, at 9:13 AM, Vernooij, Kees (ITOP NM) - KLM > wrote: > > A different approach is unloading the PDS and process the flat file with Rexx. > Or if you have SAS, run PROC SOURCE and process the sequential file, either > with SAS of Rexx. > > Kees. > > >> -Original Message- >> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On >> Behalf Of Joseph Reichman >> Sent: 29 April, 2019 14:47 >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: Processing Partition organization type record >> >> Thanks don’t think there is a easy way out >> I am running the code under IKJEFT01 in background as a batch job I need >> to process all the members Actually it is the SYSADATA file a VB PO I have >> to read the ADATA for each member doesn’t seem like any easy way out >> >> Thanks >> >> >> >> >>> On Apr 29, 2019, at 8:39 AM, John McKown >> wrote: >>> >>> On Mon, Apr 29, 2019 at 7:28 AM Joseph Reichman >>> wrote: >>> Hi I have to process a DSORG type dataset processing each member I initially do a FIND and go through Each member Seems lime with this access method I have to use READ instead of GET And thus do my own deb locking processing In Rexx I would do the >> allocate and unallocate and this would use QSAM In Assembler this more difficult with SVC 99 If anybody has any ideas they are willing to share I would appreciate >> it Thanks >>> Do efficiently process every member of a PDS or PDSE, you do need to use >>> BPAM, which uses READ & CHECK. Using SVC 99 to allocate each member is >>> possible, but will have horrible overhead. Have you looked at the IBM >>> example code for this? >>> >>> >> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2 >> r3.idad400/retmem99.htm >>> >>> Another way is to write an application which uses the TSO ISPF LM* >>> services. >>> >>> >> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2 >> r3.f54sg00/lminit.htm >>> >>> >>> >>> >>> >>> >>> -- >>> This is clearly another case of too many mad scientists, and not enough >>> hunchbacks. >>> >>> >>> Maranatha! <>< >>> John McKown >>> >>> -- >>> 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 > > For information, services and offers, please visit our web site: > http://www.klm.com. This e-mail and any attachment may contain confidential > and privileged material intended for the addressee only. If you are not the > addressee, you are notified that no part of the e-mail or any attachment may > be disclosed, copied or distributed, and that any other action related to > this e-mail or attachment is strictly prohibited, and may be unlawful. If you > have received this e-mail by error, please notify the sender immediately by > return e-mail, and delete this message. > > Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its > employees shall not be liable for the incorrect or incomplete transmission of > this e-mail or any attachments, nor responsible for any delay in receipt. > Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch > Airlines) is registered in Amstelveen, The Netherlands, with registered > number 33014286 > > > > -- > 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: TCPIP IP address for current LPAR
The name of the stack is the first parameter to EZBNMIFR! Robin -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: 29 April 2019 20:08 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TCPIP IP address for current LPAR "it will tell you pretty much everything about *the* TCP/IP stack": What if you have more than 1 TCP/IP stack in your system? Which one does the application intend to use and how does the NMI address that stack? Kees > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Robin Atwood > Sent: 29 April, 2019 14:35 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: TCPIP IP address for current LPAR > > The EZBNMIFR Network Management Interface will probably be of help here, > it will tell you pretty much everything about the TCP/IP stack. > > Robin > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Stan Weyman > Sent: 29 April 2019 19:00 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: TCPIP IP address for current LPAR > >Is there an accessible control block that holds the IP address (or > addresses) for the current LPAR I'm running on? I have need to pass back > this address to another remote application and would prefer to interrogate > a control block rather than issue commands to obtain same a la D > TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample > snippet of code would be great but the location should let me get there. > >Is there any other option that getting the @ from a control block or > using D TCPIP,,NETSTAT,HOME? > >Thanks ahead of time > > Regards > Stan > > > > > -- > 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 For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- 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: Processing Partition organization type record
What i usuaaly do is running ispf search utility on the the pds where the seach key is a blank. It is later easy to process using rexxx. Btw, you don't need ispf to run the utility and it can be part of your rexx (as i do). ITschak בתאריך יום ב׳, 29 באפר׳ 2019, 16:14, מאת Vernooij, Kees (ITOP NM) - KLM < kees.verno...@klm.com>: > A different approach is unloading the PDS and process the flat file with > Rexx. > Or if you have SAS, run PROC SOURCE and process the sequential file, > either with SAS of Rexx. > > Kees. > > > > -Original Message- > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > > Behalf Of Joseph Reichman > > Sent: 29 April, 2019 14:47 > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: Processing Partition organization type record > > > > Thanks don’t think there is a easy way out > > I am running the code under IKJEFT01 in background as a batch job I need > > to process all the members Actually it is the SYSADATA file a VB PO I > have > > to read the ADATA for each member doesn’t seem like any easy way out > > > > Thanks > > > > > > > > > > > On Apr 29, 2019, at 8:39 AM, John McKown > > > wrote: > > > > > > On Mon, Apr 29, 2019 at 7:28 AM Joseph Reichman > > > > wrote: > > > > > >> Hi > > >> > > >> I have to process a DSORG type dataset processing each member > > >> > > >> I initially do a FIND and go through Each member > > >> > > >> Seems lime with this access method I have to use READ instead of GET > > >> > > >> And thus do my own deb locking processing In Rexx I would do the > > allocate > > >> and unallocate and this would use QSAM > > >> > > >> In Assembler this more difficult with SVC 99 > > >> > > >> If anybody has any ideas they are willing to share I would appreciate > > it > > >> > > >> Thanks > > >> > > >> > > > Do efficiently process every member of a PDS or PDSE, you do need to > use > > > BPAM, which uses READ & CHECK. Using SVC 99 to allocate each member is > > > possible, but will have horrible overhead. Have you looked at the IBM > > > example code for this? > > > > > > > > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2 > > r3.idad400/retmem99.htm > > > > > > Another way is to write an application which uses the TSO ISPF LM* > > > services. > > > > > > > > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2 > > r3.f54sg00/lminit.htm > > > > > > > > > > > > > > > > > > > > > -- > > > This is clearly another case of too many mad scientists, and not enough > > > hunchbacks. > > > > > > > > > Maranatha! <>< > > > John McKown > > > > > > -- > > > 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 > > For information, services and offers, please visit our web site: > http://www.klm.com. This e-mail and any attachment may contain > confidential and privileged material intended for the addressee only. If > you are not the addressee, you are notified that no part of the e-mail or > any attachment may be disclosed, copied or distributed, and that any other > action related to this e-mail or attachment is strictly prohibited, and may > be unlawful. If you have received this e-mail by error, please notify the > sender immediately by return e-mail, and delete this message. > > Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its > employees shall not be liable for the incorrect or incomplete transmission > of this e-mail or any attachments, nor responsible for any delay in receipt. > Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch > Airlines) is registered in Amstelveen, The Netherlands, with registered > number 33014286 > > > > -- > 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: Processing Partition organization type record
On Mon, 29 Apr 2019 08:28:22 -0400 Joseph Reichman wrote: :>I have to process a DSORG type dataset processing each member :>I initially do a FIND and go through Each member :>Seems lime with this access method I have to use READ instead of GET :>And thus do my own deb locking processing In Rexx I would do the allocate and unallocate and this would use QSAM :>In Assembler this more difficult with SVC 99 :>If anybody has any ideas they are willing to share I would appreciate it Most of us that have done this kind of stuff have written our own QPAM to take care of the BSAM bookkeeping. REXX alone is a bad choice - but LM services use BPAM so if you have that option -- Binyamin Dissen http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Upper case for ISPF and SDSF
Just wondering... Is the reason for this because upper case may be easier to read for folks who's first language is something other than English? On 4/28/2019 10:43 PM, Gadi Ben-Avi wrote: I found a solution. There is an optional FMID you can download and install called JIF7R16 that adds libraries with upper case only versions of the panels, messages and some other libraries. Gadi -Original Message- From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: Sunday, April 28, 2019 11:32 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Upper case for ISPF and SDSF I don't understand the question. ISPF doesn't have case defaults at the library level. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Gadi Ben-Avi Sent: Sunday, April 28, 2019 3:45 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Upper case for ISPF and SDSF Hi, We are currently working on upgrading to z/OS v2.3 ISPF is currently mixed case. Is there a way to add upper case only libraries that are controlled by SMP/E to ISPF. Thanks Gadi -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Upper case for ISPF and SDSF
Upper case may be fine - until anyone needs to work with USS directories or files through ISPF 3.17 or similar. Mike Wawiorko -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Upper case for ISPF and SDSF
On Mon, 29 Apr 2019 09:00:10 -0700, Tom Brennan wrote: >Just wondering... Is the reason for this because upper case may be >easier to read for folks who's first language is something other than >English? > It could be worse than that. For example: https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_71/nls/rbagsinvariantcharset.htm With only a few exceptions, each EBCDIC code page contains a common set of graphic characters. Within an encoding scheme, the common characters can be found at the same code points. The following EBCDIC code pages are exceptions: o EBCDIC code page 290 has Katakana characters at the code points where lowercase a through z are in the invariant character set ... . -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMS Compression measurment?
Yes, I've looked at Scott Barry's presentation. It tells me a lot of good info about zEDC measurements, and it does document compression information in type 14/15 but it appears as though IBM didn't provide any measurement of CPU used by SMS compression. I guess the fallback is to try to run the same job twice, once with compressed output and once without compression (and also read each back in). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Query for article on testing mainframe systems, applications, networks
Query for article on testing mainframe systems, applications, networks This is for website/magazine I'd not seen before: https://increment.com/ It's described: Increment is a print and digital magazine about how teams build and operate software systems at scale. It has an interesting approach, devoting issues to topic themes such as internationalization, security, documentation, programming languages, etc. My article is for an issue on testing. --- Modern systems -- especially mainframes and everything connected to them -- require modern testing tools and procedures. The days are gone when it was sufficient to SYSGEN, IPL, (maybe) run a few test batch jobs or interactive scripts, and wait for user feedback. (The old joke, of course, was that users existed to test system programmers' system programs.) Testing is often misunderstood and neglected when it should be a combination of creative art and rigorous engineering. In these days of distributed, mixed-platform, and cloud-hosted applications, potentially targeting millions of users, developers casually testing their own code is also folly. Comprehensive test suites and cumulative regression tests are essential tools for preventing everything from ugly interfaces to catastrophic visible failures. How widely used - and effective -- are techniques such as continuous integration (https://en.wikipedia.org/wiki/Continuous_integration -- the practice of merging all developer working copies to a shared mainline several times a day) and DevOps (https://en.wikipedia.org/wiki/DevOps -- a set of software development practices that combines software development and information technology operations)? Do testing practices differ for GUI-developed applications? Or GUI apps themselves -- same as for complex spreadsheets -- is the second "G" in GIGO "gospel" or "garbage"? So -- what are current best practices for testing mainframe (z/OS, z/VM, z/VSE, Linux) technology? This covers everything from applying one PTF to installing a new operating system release/version, and from verifying batch/TSO operation to validating end-to-end transaction processing across networks and multiple servers. Besides testing system updates and local applications, how do you test IBM program products and ISV products? ISVs -- how do YOU test products across supported environments? While the article isn't explicitly about tuning or performance, surely those are critical assessments too when making changes. And, to keep this topic manageable, it does NOT include debugging when tests fail. As usual, please copy replies to me directly to avoid them being buried in list digests. Thanks. -- Gabriel Goldberg, Computers and Publishing, Inc. g...@gabegold.com 3401 Silver Maple Place, Falls Church, VA 22042 (703) 204-0433 LinkedIn: http://www.linkedin.com/in/gabegoldTwitter: GabeG0 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: long alias names question
These are all good questions - in this instance I don't know the internals of the product that might be creating these long names. It's a 'developer studio' type of product which runs on Windows and communicates to a started task from the same vendor which can also run on other platforms such as a Windows service or a Unix process (I think it's a daemon but haven't researched this product running on *nix). So, predictably the developers are grousing about the 8-character limit. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Processing Partition organization type record
You can do this with ISPF in batch, and Rexx. I've used this when I had to
change the one thing in hundreds of PDS members. Of course you have to balance
your development and debugging time versus just doing repetitive edits via
RCHANGE (PF6)
To invoke ISPF in batch. Note BDISPMAX very large to prevent failures from
exceeding an ISPF message limit
//IKJEFT01 EXEC PGM=IKJEFT01
//SYSEXEC DD DISP=SHR,DSN=your.exec.library.with.the.exec
//ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU
//ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU
//ISPSLIB DD DISP=SHR,DSN=ISP.SISPSENU
//ISPTLIB DD DISP=SHR,DSN=ISP.SISPTENU
//ISPPROF DD DISP=SHR,DSN=your.ISPF.profile.library
//SYSTSPRT DD SYSOUT=(,)
//SYSTSIN DD *
ISPSTART BDISPMAX(9) -
CMD(%Rexx_exec dataset_name variable_value)
This is the Rexx I used with some changes to protect the innocent..
/* REXX */
/* This is the exec named Rexx_exec in the batch job */
/* This exec will invoke ISPF EDIT with a macro for each member */
/* of a PDS
*/
PARSE ARG DSN variable
ADDRESS ISPEXEC
/* variable comes in at invocation, must VPUT to use it in the edit macro. If
you don't need to pass a variable you can eliminate this */
"ISPEXEC VPUT variable SHARED"
"ISPEXEC LMINIT DATAID(DATA1),
DATASET('"DSN"') ENQ(EXCLU)"
/* sets the DATAID for the PDS passed in
DSN */
"ISPEXEC LMOPEN DATAID("DATA1") OPTION(INPUT)"
/* OPEN FOR INPUT */
EDITRC = 0
LMRC = RC
DO WHILE LMRC = 0 & EDITRC < 8
/* BUILD MEMBER LIST unless an error
*/
"ISPEXEC LMMLIST DATAID("DATA1")
OPTION(LIST) MEMBER(MEMBER)
STATS(NO)"
LMRC = RC
/* CAPTURE RETURN CODE */
IF LMRC = 0 THEN
/* IF A MEMBER NAME */
DO
/* RETURNED OK
*/
SAY 'PROCESSING MEMBER' MEMBER 'OF MASTER AT' TIME()
"ISPEXEC EDIT DATAID("DATA1") MEMBER("MEMBER") MACRO(edit_macro_name)"
/* edit the member using edit macro */
EDITRC = RC
/* return code from edit
*/
END
END
"ISPEXEC LMMLIST DATAID("DATA1") OPTION(FREE)"
/* FREE DATA LIST */
"ISPEXEC LMCLOSE DATAID("DATA1")"
/* CLOSE DATASET related to DATAID */
"ISPEXEC LMFREE DATAID(DATA1)"
/* Free the DATAID */
Skeleton of the edit macro
ADDRESS ISPEXEC
"ISPEXEC VGET variable SHARED"
variable = "'"||variable||"'"
/* had to add single quotes for
some reason */
/* may not be
needed */
"ISREDIT MACRO"
"ISREDIT (CURDSN,,) = DATASET"
"ISREDIT (CURMEM) = MEMBER"
IF MEMBER = ' '
Re: long alias names question
On Mon, 29 Apr 2019 11:49:25 -0500, Tim Hare wrote: >These are all good questions - in this instance I don't know the internals of >the product that might be creating these long names. It's a 'developer >studio' type of product which runs on Windows and communicates to a started >task from the same vendor which can also run on other platforms such as a >Windows service or a Unix process (I think it's a daemon but haven't >researched this product running on *nix). So, predictably the developers are >grousing about the 8-character limit. > Have you suggested zFS? A much better fit to modern desktop file systems. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TCPIP IP address for current LPAR
These may be dumb questions but: 1) I'm assuming you connected to the remote application first? Else how could it connect without the IP address somehow? 2) Why isn't the remote application content with the host/domain name (since IP addresses _can_ change)? 3) Why isn't the remote application using DNS (via nslookup or other means) to get the IP address? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMS Compression measurment?
On Mon, 29 Apr 2019 11:32:34 -0500, Tim Hare wrote: >Yes, I've looked at Scott Barry's presentation. It tells me a lot of good >info about zEDC measurements, and it does document compression information in >type 14/15 but it appears as though IBM didn't provide any measurement of CPU >used by SMS compression. I guess the fallback is to try to run the same job >twice, once with compressed output and once without compression (and also read >each back in). As I see it, the consideration needed is that any file is going to "data/content dependent", therefore the idea of simulated/estimation for SMS compression would be questionable, that is without actually processing the file -- the method used with clients we support is to perform a BEFORE / AFTER with several data-samples. Also, the compression-method would also be a factor in terms of compression-result efficiency. Scott Barry SBBWorks, Inc. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TCPIP IP address for current LPAR
A valid question is "what is the IP address of 'me'?" What is the (an!) IP address of the host that I am currently running on? Independent of any remote hosts or connections. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tim Hare Sent: Monday, April 29, 2019 10:28 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TCPIP IP address for current LPAR These may be dumb questions but: 1) I'm assuming you connected to the remote application first? Else how could it connect without the IP address somehow? 2) Why isn't the remote application content with the host/domain name (since IP addresses _can_ change)? 3) Why isn't the remote application using DNS (via nslookup or other means) to get the IP address? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TCPIP IP address for current LPAR
If IPv4 only, just do an INITAPI, GETHOSTID, TERMAPI. This will return the primary address of the TCP/IP stack that your job is associated with. But, if you already have a connection to another host, that host can get your address easily. Tony Thigpen Stan Weyman wrote on 4/29/19 8:00 AM: Is there an accessible control block that holds the IP address (or addresses) for the current LPAR I'm running on? I have need to pass back this address to another remote application and would prefer to interrogate a control block rather than issue commands to obtain same a la D TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample snippet of code would be great but the location should let me get there. Is there any other option that getting the @ from a control block or using D TCPIP,,NETSTAT,HOME? Thanks ahead of time Regards Stan -- 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
Library Server Being Replaced Clarification
Hi All IBM Library Server uses the IBM Publications Center as it's source. The Publications Center (aka publib) and it's content is NOT going away. You can download all the content (BookManager Books, PDFs, Shelves and Extended Shelves) using the IBM Softcopy Librarian or you can use the IBM Publications to download individual books and PDFs. The content on Publib is IBM Copyrighted content and would not be donated to another repository. Once downloaded, you can use you own Library Server to view and search the content, or for local use, you can use the IBM Softcopy Librarian to view and search BookManager books and the Adobe Acrobat reader for PDF format. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Volume compare utility
Success! We did the first 50+% this weekend (non-prod) in a little over four hours total. Forewent any compare utility as a costly and time consuming process of dubious value. Planning on the same strategy for the prod farm in the next month or so. Thanks to all who contributed. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of Elardus Engelbrecht Sent: Wednesday, April 24, 2019 12:36 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: Volume compare utility Jesse 1 Robinson wrote: >Most folks seem to think that we're being a little silly, which is actually >reassuring. No, you are NOT silly. Trust me. Actually I appreciate your posts here in IBM-MAIN. >I did get one off-list offer of a product that that sounds pretty >great, but we may just suck it up pretend we're grownups. 😉 Now and then I got similar off-list spam from IBM-MAIN members who wants to try sell me a [junk?] product or two. Like you, I just suck it up because I am grownup ( ok, sort off :-D ), or actually, I am not in a position to say to my management, "buy this spammy thing". Groete / Greetings Elardus Engelbrecht PS: some years ago, an IBM-MAIN member [0] spammed me for about 6+ months trying to sell me a crappy product despite that I politely told him the first time that I cannot accept his offers because I am too low in the food chain to accept/recommend his spam z/OS products. [0] - I see this spammer is silent/lurking on IBM-MAIN these last few months. Am I happy or am I that happy? ;-) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Processing Partition organization type record
The MACRF for BPAM is perfectly reasonable. A better question might be why IBM chose to not implement QPAM, or better yet, VPAM a la TSS/360. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Joseph Reichman Sent: Monday, April 29, 2019 9:18 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Processing Partition organization type record Its all complex why did IBM have to have MACRF=R with DSORG=PO was there any good reason ? I would have add another step truth is I want to keep track of the members as they represent the CSECTS wonder if anyone submitted a RFE for this ever > On Apr 29, 2019, at 9:13 AM, Vernooij, Kees (ITOP NM) - KLM > wrote: > > A different approach is unloading the PDS and process the flat file with Rexx. > Or if you have SAS, run PROC SOURCE and process the sequential file, either > with SAS of Rexx. > > Kees. > > >> -Original Message- >> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On >> Behalf Of Joseph Reichman >> Sent: 29 April, 2019 14:47 >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: Processing Partition organization type record >> >> Thanks don’t think there is a easy way out >> I am running the code under IKJEFT01 in background as a batch job I need >> to process all the members Actually it is the SYSADATA file a VB PO I have >> to read the ADATA for each member doesn’t seem like any easy way out >> >> Thanks >> >> >> >> >>> On Apr 29, 2019, at 8:39 AM, John McKown >> wrote: >>> >>> On Mon, Apr 29, 2019 at 7:28 AM Joseph Reichman >>> wrote: >>> Hi I have to process a DSORG type dataset processing each member I initially do a FIND and go through Each member Seems lime with this access method I have to use READ instead of GET And thus do my own deb locking processing In Rexx I would do the >> allocate and unallocate and this would use QSAM In Assembler this more difficult with SVC 99 If anybody has any ideas they are willing to share I would appreciate >> it Thanks >>> Do efficiently process every member of a PDS or PDSE, you do need to use >>> BPAM, which uses READ & CHECK. Using SVC 99 to allocate each member is >>> possible, but will have horrible overhead. Have you looked at the IBM >>> example code for this? >>> >>> >> https://secure-web.cisco.com/1VYpoEVQhQmPBLZqYxybUBq5HapYiUZGUdxP13P9dQ41YmuALGJd3QsR5oQlT7Z_fIZft8NvSV1454GeQWJMFvYvXfjG1joN6mdc7bKXucxI87zzTmfHDVGE9yoG39vdonOBJoflddUyza5lu4UTkp7jav1GIo_Ov_0qFr3Id_IPvL9v6d08qvRBOExkds-ZYRPg0kcyv6KYu8onE7yoVryvWz1Z1iwE2LGwVASewWUej1aGhmSaTHbJ6D44DCGnh41Wr-q_VHCRV1WaTcZ3I1jCBkg1Q9jAt_7PCnNBc7yoNwdWcA5KWXHhMQ87kkcguOp3qMUmRiOs9guCr_kiIA6hkkjLF9SsvHcqy6yptFbvZvtIA7fT3RyVH5ix-DXBbnIa1lzPElno3jevbYr6t6ljGm4V4byzwtA4kufQIV2Zz7RrsiKc5ZFmp_jlt4pw_/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2 >> r3.idad400/retmem99.htm >>> >>> Another way is to write an application which uses the TSO ISPF LM* >>> services. >>> >>> >> https://secure-web.cisco.com/1VYpoEVQhQmPBLZqYxybUBq5HapYiUZGUdxP13P9dQ41YmuALGJd3QsR5oQlT7Z_fIZft8NvSV1454GeQWJMFvYvXfjG1joN6mdc7bKXucxI87zzTmfHDVGE9yoG39vdonOBJoflddUyza5lu4UTkp7jav1GIo_Ov_0qFr3Id_IPvL9v6d08qvRBOExkds-ZYRPg0kcyv6KYu8onE7yoVryvWz1Z1iwE2LGwVASewWUej1aGhmSaTHbJ6D44DCGnh41Wr-q_VHCRV1WaTcZ3I1jCBkg1Q9jAt_7PCnNBc7yoNwdWcA5KWXHhMQ87kkcguOp3qMUmRiOs9guCr_kiIA6hkkjLF9SsvHcqy6yptFbvZvtIA7fT3RyVH5ix-DXBbnIa1lzPElno3jevbYr6t6ljGm4V4byzwtA4kufQIV2Zz7RrsiKc5ZFmp_jlt4pw_/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2 >> r3.f54sg00/lminit.htm >>> >>> >>> >>> >>> >>> >>> -- >>> This is clearly another case of too many mad scientists, and not enough >>> hunchbacks. >>> >>> >>> Maranatha! <>< >>> John McKown >>> >>> -- >>> 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 > > For information, services and offers, please visit our web site: > http://secure-web.cisco.com/1ugfDY2hkHTY3ezxywZqxKJtKp7uXdj8-6UKn7MQARb1yWHmHAHpELqPKGbwISDRO5D1R2-ZX9BJXNetERJRRfiU49RtDhKPitzZuP1xsxZynm0WmSwQ-OLI87TCfUesMNbjbG3ksXgfg5O3Oq2hKJlsZtR15-hiv-abGgjDHCo7XTYTtXkjs3X6lK2X-dO-u3-yww-owj6W9uXw9I-7AiGVzQCK-GYKwXdf5X8A9PQIU7TSt6G9HJ3o6M7F-tOzdtBzX3cPIoCNn0jO33y93lORFEtJRQtrZxeVzJifdFvTsKVUHloQ7gw_wgp0BDzYXyX8jsR-hJZg10-IP6hiG6DrsFFw1_cFzkLl2szawCauelJsyuY1o7WbD_XVUk1L2wmeezy92EhZRfeI2g1J3-vLq2VhF2Wr_56BlZSvgD0EK_DEEBp0M8GHB0J46yAaO/http%3A%2F%2Fwww.klm.com. > This e-mail and any attachment may contai
Re: Processing Partition organization type record
That's certainly the supported approach. http://mason.gmu.edu/~smetz3/source/STOWBLDL.ASM was my home grown alternative. Others have use EXCP, lthoughI don't know whether they achieved the performance of SAM-E. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of John McKown Sent: Monday, April 29, 2019 8:39 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Processing Partition organization type record On Mon, Apr 29, 2019 at 7:28 AM Joseph Reichman wrote: > Hi > > I have to process a DSORG type dataset processing each member > > I initially do a FIND and go through Each member > > Seems lime with this access method I have to use READ instead of GET > > And thus do my own deb locking processing In Rexx I would do the allocate > and unallocate and this would use QSAM > > In Assembler this more difficult with SVC 99 > > If anybody has any ideas they are willing to share I would appreciate it > > Thanks > > Do efficiently process every member of a PDS or PDSE, you do need to use BPAM, which uses READ & CHECK. Using SVC 99 to allocate each member is possible, but will have horrible overhead. Have you looked at the IBM example code for this? https://secure-web.cisco.com/1ZIa00Aizw3HV2WOQjodZ8IyIbLj6bfPSsUeYfoW4MjEeeZYk6DfwvWRRqC6zZhs-y7PI2jahSQgGhyg_-w-LFPh9wtb6StYIRBqRuoDfcU9Orlh-avCB_WWAZFxlLfqUraxzh7tdS_c8tNhruP39iiFJ-znX5uWcEZ49KOkEoRSz4M1L3RLmbUSnYX6m3Buv-Q1NwR9sy-8WzT2qEPTJkGe4g9hU-t1d7tlkwy8o3JYJgBbsissu7RisaYeJNPQJb48CDrBptyosEGLj_gp-1BrIt3QyuhEnkSJWnDSOKKcxo4xQ7L1RUGsx-gyH0UftQjekMqDA2Mp8cqALxfozSOUs_GNTEyTw9yPFHlFcRVrtavvLrsNvjclR6HL6xLR868JCAFehpBmYrC9V2fSYSrxzhNP3nBFmv0pKdjWdTN57OZXAwuXLcb5rzWHzeCUb/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2r3.idad400%2Fretmem99.htm Another way is to write an application which uses the TSO ISPF LM* services. https://secure-web.cisco.com/1BiL9SX_stel94FV8gkGQVl8xvloxmE4ygawTtNsFSzvGr8IcpQmoJi71nTuBmSDM7SA5WGGYKavdh4Syuu2qDSqS-eZdmQrmNJHvOPjsYS44A6GLuKW0PUthyWZTOML-_qxcGMuRKdDaqJfczMshnv3DDVvgSZudhXUCv5YSQFSLj_5Bsj1MyjVhqjqywnOx61WbpM46vfQI0qxtImKJSKHI-xuF3qLUh6YOth0NrfqOOgLHeoL6Vc2sRWDHdugsMMCTiVOSHHgkuDZoCPyFoQRiihHtYkFM9-6nAWudX7YKeFBv4tftFCEPig_bPLjCOdhbci_IW0X4t0G695tqLaQjpZRJVBwHhoeB3LayQBOX_oqd2QCQYC6ekRlr5F9bhyb2WRe84leDm-29VLtMw2zSkUX6v9A3XTK-5kubqJh4eiAbl50wDSPPoLP4ZwNX/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2r3.f54sg00%2Flminit.htm -- This is clearly another case of too many mad scientists, and not enough hunchbacks. Maranatha! <>< John McKown -- 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: Processing Partition organization type record
Using a single allocate and a single OPEN is far more efficient. Unfortunately, REXX doesn't support that, although you could write a REXX function package for the I/O. If you're processing all of the members, you can use DESERVE to read the BLDL (SMDE) data for all of the members and avoid the overhead of individual FIND macros. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Joseph Reichman Sent: Monday, April 29, 2019 8:28 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Processing Partition organization type record Hi I have to process a DSORG type dataset processing each member I initially do a FIND and go through Each member Seems lime with this access method I have to use READ instead of GET And thus do my own deb locking processing In Rexx I would do the allocate and unallocate and this would use QSAM In Assembler this more difficult with SVC 99 If anybody has any ideas they are willing to share I would appreciate it Thanks -- 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: TCPIP IP address for current LPAR
The LPAR may have multiple IP addresses; what you need is the IP address for your end of the session. But why doesn't the remote application get that automatically? In fact, how does it communicate with you at all without it? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Stan Weyman <0239b6933cab-dmarc-requ...@listserv.ua.edu> Sent: Monday, April 29, 2019 8:00 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: TCPIP IP address for current LPAR Is there an accessible control block that holds the IP address (or addresses) for the current LPAR I'm running on? I have need to pass back this address to another remote application and would prefer to interrogate a control block rather than issue commands to obtain same a la D TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample snippet of code would be great but the location should let me get there. Is there any other option that getting the @ from a control block or using D TCPIP,,NETSTAT,HOME? Thanks ahead of time Regards Stan -- 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: TCPIP IP address for current LPAR
If he has a TCP session with the remote application then it already has the IP address and port. I'm not sure what the OP is trying to ask. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Tim Hare Sent: Monday, April 29, 2019 1:27 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TCPIP IP address for current LPAR These may be dumb questions but: 1) I'm assuming you connected to the remote application first? Else how could it connect without the IP address somehow? 2) Why isn't the remote application content with the host/domain name (since IP addresses _can_ change)? 3) Why isn't the remote application using DNS (via nslookup or other means) to get the IP address? -- 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: SMS Compression measurment?
Not worried about the efficiency of compression. The issue is showing to someone the CPU saved by using zEDC instead of SMS compression. IBM's zBNA tool estimates it, and we may just use that, but I was hoping someone had a way to measure the CPU used just for SMS compression in a job, without having to run it twice. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Processing Partition organization type record
I think one option to tackle this is to have two DD statements. One will be used to read the directory. The other can specify QSAM and can read and process the member using GET and PUTX. (If a member is to be written that is longer than its previous version then you may wish to use a third QSAM DD to use PUT.) First you open the directory and read and decode the blocks to get the member names. This can be done using QSAM. You then use RDJFCB on the second DD to obtain the JFCB and then modify that JFCB to specify each member in turn. Then use OPEN TYPE=J to specify the modified JFCB. Then read and process the member. So processing each member will require an OPENJ and a CLOSE. Lennie Dymoke-Bradshaw | Security Lead | RSM Partners Ltd Web: www.rsmpartners.com 'Dance like no one is watching. Encrypt like everyone is.' -Original Message- From: IBM Mainframe Discussion List On Behalf Of Joseph Reichman Sent: 29 April 2019 13:28 To: IBM-MAIN@LISTSERV.UA.EDU Subject: [IBM-MAIN] Processing Partition organization type record Hi I have to process a DSORG type dataset processing each member I initially do a FIND and go through Each member Seems lime with this access method I have to use READ instead of GET And thus do my own deb locking processing In Rexx I would do the allocate and unallocate and this would use QSAM In Assembler this more difficult with SVC 99 If anybody has any ideas they are willing to share I would appreciate it Thanks -- 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: Processing Partition organization type record
> First you open the directory and read and decode the blocks to get the member > names. Why not just us DESERV? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Lennie Dymoke-Bradshaw Sent: Monday, April 29, 2019 5:58 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Processing Partition organization type record I think one option to tackle this is to have two DD statements. One will be used to read the directory. The other can specify QSAM and can read and process the member using GET and PUTX. (If a member is to be written that is longer than its previous version then you may wish to use a third QSAM DD to use PUT.) First you open the directory and read and decode the blocks to get the member names. This can be done using QSAM. You then use RDJFCB on the second DD to obtain the JFCB and then modify that JFCB to specify each member in turn. Then use OPEN TYPE=J to specify the modified JFCB. Then read and process the member. So processing each member will require an OPENJ and a CLOSE. Lennie Dymoke-Bradshaw | Security Lead | RSM Partners Ltd Web: http://secure-web.cisco.com/1PdzwE63lXd_PKHb2WKUtgwEQUeSTsrN-JcCoUAM_eE-8DMuTfEjrdorXZlGxrChAl99A58h7BoN1S4nFJAL5X_Ss-wMOyTDHNsv-dDFcwOCWMvmME6KQS6-ECl5EzeYoNMKLNjuqneKpBsJLtlLpBz50_oHx6zzP1iW0hT_Qcx1E-pQVaXbywskTOIuN6RartAs6DBWzk4MFSoh5fUkBRDZljxg5szo-Xxf1FHrKKlrOW7uy11XyX7jDWeHWpD2smrTxxpeeq77_C6l3OC7xsYEIBTsdxPIy8B8qsaG3XuB70HKVU5d6lQZ3NdI4vJ0o8iEo-ZoLQ5085Z-pgClBwVGeb0egruddKqOl4bXNhZAwC5WmZxgEai7h6NSguCRO8d4XQgxmuetU5UtH9glsNbZjgkWkj6nvlEJOD7ZD7Rxs1V-yJIoEtkD43KRni6TA/http%3A%2F%2Fwww.rsmpartners.com 'Dance like no one is watching. Encrypt like everyone is.' -Original Message- From: IBM Mainframe Discussion List On Behalf Of Joseph Reichman Sent: 29 April 2019 13:28 To: IBM-MAIN@LISTSERV.UA.EDU Subject: [IBM-MAIN] Processing Partition organization type record Hi I have to process a DSORG type dataset processing each member I initially do a FIND and go through Each member Seems lime with this access method I have to use READ instead of GET And thus do my own deb locking processing In Rexx I would do the allocate and unallocate and this would use QSAM In Assembler this more difficult with SVC 99 If anybody has any ideas they are willing to share I would appreciate it Thanks -- 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Processing Partition organization type record
Fair point. Answer is, I learnt this stuff before they invented DESERV. Lennie Dymoke-Bradshaw | Security Lead | RSM Partners Ltd Web: www.rsmpartners.com 'Dance like no one is watching. Encrypt like everyone is.' -Original Message- From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: 29 April 2019 23:05 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [IBM-MAIN] Processing Partition organization type record > First you open the directory and read and decode the blocks to get the member > names. Why not just us DESERV? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Lennie Dymoke-Bradshaw Sent: Monday, April 29, 2019 5:58 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Processing Partition organization type record I think one option to tackle this is to have two DD statements. One will be used to read the directory. The other can specify QSAM and can read and process the member using GET and PUTX. (If a member is to be written that is longer than its previous version then you may wish to use a third QSAM DD to use PUT.) First you open the directory and read and decode the blocks to get the member names. This can be done using QSAM. You then use RDJFCB on the second DD to obtain the JFCB and then modify that JFCB to specify each member in turn. Then use OPEN TYPE=J to specify the modified JFCB. Then read and process the member. So processing each member will require an OPENJ and a CLOSE. Lennie Dymoke-Bradshaw | Security Lead | RSM Partners Ltd Web: http://secure-web.cisco.com/1PdzwE63lXd_PKHb2WKUtgwEQUeSTsrN-JcCoUAM_eE-8DMuTfEjrdorXZlGxrChAl99A58h7BoN1S4nFJAL5X_Ss-wMOyTDHNsv-dDFcwOCWMvmME6KQS6-ECl5EzeYoNMKLNjuqneKpBsJLtlLpBz50_oHx6zzP1iW0hT_Qcx1E-pQVaXbywskTOIuN6RartAs6DBWzk4MFSoh5fUkBRDZljxg5szo-Xxf1FHrKKlrOW7uy11XyX7jDWeHWpD2smrTxxpeeq77_C6l3OC7xsYEIBTsdxPIy8B8qsaG3XuB70HKVU5d6lQZ3NdI4vJ0o8iEo-ZoLQ5085Z-pgClBwVGeb0egruddKqOl4bXNhZAwC5WmZxgEai7h6NSguCRO8d4XQgxmuetU5UtH9glsNbZjgkWkj6nvlEJOD7ZD7Rxs1V-yJIoEtkD43KRni6TA/http%3A%2F%2Fwww.rsmpartners.com 'Dance like no one is watching. Encrypt like everyone is.' -Original Message- From: IBM Mainframe Discussion List On Behalf Of Joseph Reichman Sent: 29 April 2019 13:28 To: IBM-MAIN@LISTSERV.UA.EDU Subject: [IBM-MAIN] Processing Partition organization type record Hi I have to process a DSORG type dataset processing each member I initially do a FIND and go through Each member Seems lime with this access method I have to use READ instead of GET And thus do my own deb locking processing In Rexx I would do the allocate and unallocate and this would use QSAM In Assembler this more difficult with SVC 99 If anybody has any ideas they are willing to share I would appreciate it Thanks -- 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 -- 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: Processing Partition organization type record
I don’t think so I do find to get the right sysadata member then why cannt i do get afterwards and have DFSMS deblock It for me > On Apr 29, 2019, at 5:08 PM, Seymour J Metz wrote: > > The MACRF for BPAM is perfectly reasonable. A better question might be why > IBM chose to not implement QPAM, or better yet, VPAM a la TSS/360. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List on behalf of > Joseph Reichman > Sent: Monday, April 29, 2019 9:18 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Processing Partition organization type record > > Its all complex why did IBM have to have MACRF=R with DSORG=PO was there any > good reason ? > > I would have add another step truth is I want to keep track of the members as > they represent the CSECTS wonder if anyone submitted a RFE for this ever > > > > >> On Apr 29, 2019, at 9:13 AM, Vernooij, Kees (ITOP NM) - KLM >> wrote: >> >> A different approach is unloading the PDS and process the flat file with >> Rexx. >> Or if you have SAS, run PROC SOURCE and process the sequential file, either >> with SAS of Rexx. >> >> Kees. >> >> >>> -Original Message- >>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On >>> Behalf Of Joseph Reichman >>> Sent: 29 April, 2019 14:47 >>> To: IBM-MAIN@LISTSERV.UA.EDU >>> Subject: Re: Processing Partition organization type record >>> >>> Thanks don’t think there is a easy way out >>> I am running the code under IKJEFT01 in background as a batch job I need >>> to process all the members Actually it is the SYSADATA file a VB PO I have >>> to read the ADATA for each member doesn’t seem like any easy way out >>> >>> Thanks >>> >>> >>> >>> On Apr 29, 2019, at 8:39 AM, John McKown >>> wrote: On Mon, Apr 29, 2019 at 7:28 AM Joseph Reichman wrote: > Hi > > I have to process a DSORG type dataset processing each member > > I initially do a FIND and go through Each member > > Seems lime with this access method I have to use READ instead of GET > > And thus do my own deb locking processing In Rexx I would do the >>> allocate > and unallocate and this would use QSAM > > In Assembler this more difficult with SVC 99 > > If anybody has any ideas they are willing to share I would appreciate >>> it > > Thanks > > Do efficiently process every member of a PDS or PDSE, you do need to use BPAM, which uses READ & CHECK. Using SVC 99 to allocate each member is possible, but will have horrible overhead. Have you looked at the IBM example code for this? >>> https://secure-web.cisco.com/1VYpoEVQhQmPBLZqYxybUBq5HapYiUZGUdxP13P9dQ41YmuALGJd3QsR5oQlT7Z_fIZft8NvSV1454GeQWJMFvYvXfjG1joN6mdc7bKXucxI87zzTmfHDVGE9yoG39vdonOBJoflddUyza5lu4UTkp7jav1GIo_Ov_0qFr3Id_IPvL9v6d08qvRBOExkds-ZYRPg0kcyv6KYu8onE7yoVryvWz1Z1iwE2LGwVASewWUej1aGhmSaTHbJ6D44DCGnh41Wr-q_VHCRV1WaTcZ3I1jCBkg1Q9jAt_7PCnNBc7yoNwdWcA5KWXHhMQ87kkcguOp3qMUmRiOs9guCr_kiIA6hkkjLF9SsvHcqy6yptFbvZvtIA7fT3RyVH5ix-DXBbnIa1lzPElno3jevbYr6t6ljGm4V4byzwtA4kufQIV2Zz7RrsiKc5ZFmp_jlt4pw_/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2 >>> r3.idad400/retmem99.htm Another way is to write an application which uses the TSO ISPF LM* services. >>> https://secure-web.cisco.com/1VYpoEVQhQmPBLZqYxybUBq5HapYiUZGUdxP13P9dQ41YmuALGJd3QsR5oQlT7Z_fIZft8NvSV1454GeQWJMFvYvXfjG1joN6mdc7bKXucxI87zzTmfHDVGE9yoG39vdonOBJoflddUyza5lu4UTkp7jav1GIo_Ov_0qFr3Id_IPvL9v6d08qvRBOExkds-ZYRPg0kcyv6KYu8onE7yoVryvWz1Z1iwE2LGwVASewWUej1aGhmSaTHbJ6D44DCGnh41Wr-q_VHCRV1WaTcZ3I1jCBkg1Q9jAt_7PCnNBc7yoNwdWcA5KWXHhMQ87kkcguOp3qMUmRiOs9guCr_kiIA6hkkjLF9SsvHcqy6yptFbvZvtIA7fT3RyVH5ix-DXBbnIa1lzPElno3jevbYr6t6ljGm4V4byzwtA4kufQIV2Zz7RrsiKc5ZFmp_jlt4pw_/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2 >>> r3.f54sg00/lminit.htm -- This is clearly another case of too many mad scientists, and not enough hunchbacks. Maranatha! <>< John McKown -- 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 >> >> For information, services and offers, please visit our web site: >> http://secure-web.cisco.com/1ugfDY2hkHTY3ezxywZqxKJtKp7uXdj8-6UKn7MQARb1yWHmHAHpELqPKGbwISDRO5D1R2-ZX9BJXNetERJRRfiU49RtDhKPitzZuP1xsxZynm0WmSwQ-OLI87TCfUesMNbjbG3ksXgfg5O3Oq2h
Re: Processing Partition organization type record
This win the award for best answer Joe Reichman 170-10 73 rd ave Fresh meadows NY 11366 > On Apr 29, 2019, at 5:58 PM, Lennie Dymoke-Bradshaw > wrote: > > I think one option to tackle this is to have two DD statements. One will be > used to read the directory. The other can specify QSAM and can read and > process the member using GET and PUTX. (If a member is to be written that is > longer than its previous version then you may wish to use a third QSAM DD to > use PUT.) > > First you open the directory and read and decode the blocks to get the member > names. This can be done using QSAM. > You then use RDJFCB on the second DD to obtain the JFCB and then modify that > JFCB to specify each member in turn. Then use OPEN TYPE=J to specify the > modified JFCB. Then read and process the member. > > So processing each member will require an OPENJ and a CLOSE. > > Lennie Dymoke-Bradshaw | Security Lead | RSM Partners Ltd > Web: www.rsmpartners.com > 'Dance like no one is watching. Encrypt like everyone is.' > > -Original Message- > From: IBM Mainframe Discussion List On Behalf Of > Joseph Reichman > Sent: 29 April 2019 13:28 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: [IBM-MAIN] Processing Partition organization type record > > Hi > > I have to process a DSORG type dataset processing each member > > I initially do a FIND and go through Each member > > Seems lime with this access method I have to use READ instead of GET > > And thus do my own deb locking processing In Rexx I would do the allocate and > unallocate and this would use QSAM > > In Assembler this more difficult with SVC 99 > > If anybody has any ideas they are willing to share I would appreciate it > > Thanks > > -- > 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Generating random values
If you have a copybook that maps the records you want to generate then IBM
File Manager can be used to generate random date values. You could use the
copybook with the File Manager "Data Create Utility":
https://www.ibm.com/support/knowledgecenter/en/SSXJAV_14.1.0/com.ibm.filemanager.doc_14.1/base/dsgtemp.html
The edit copybook/template function can be used to identify fields
containing date values and scrambling processing for those date fields can
also be defined:
https://www.ibm.com/support/knowledgecenter/en/SSXJAV_14.1.0/com.ibm.filemanager.doc_14.1/base/datetime.html
These features are also available for the File Manager "Copy Utility".
Regards,
Peter Van Dyke
HCL Technologies
On Mon, 29 Apr 2019 at 05:09, Thomas Kern <
0041d919e708-dmarc-requ...@listserv.ua.edu> wrote:
> I was thinking that generating the random dates in Julian format
> (15001-15365,16001-16366) and then convert the whatever date format your
> record needed (-mm-dd).
>
> /Tom Kern
>
>
> On 04/26/2019 13:48, Sri h Kolusu wrote:
> >> Also if you have any other ideas for generating random dates (MMDD)
> > overall, I would welcome your thoughts!
> >
> > Bill,
> >
> > DFSORT has plethora of date arithmetic/conversion functions that can get
> > you the desired results. Here is a JCL that will generate dates for any
> > year that you provide.
> >
> > You can pass 3 parms. The Begin-year , End year and Number of records.
> >
> > The Begin-Year and End Year parameters are self explanatory. The number
> > of records can either be a multiple of 365 or 366. So if your number of
> > records have a value that does NOT end with year end date, then you can
> use
> > End year PARM to filter the records (Step0400)
> >
> > // EXPORT SYMLIST=*
> > // SET BYEAR=1753
> > // SET EYEAR=2019
> > // SET NUMREC=310131
> > //**
> > //* SET BYEAR = NN (VALID RANGE IS 1 TO ) *
> > //* SET EYEAR = NN (VALID RANGE IS 1 TO ) *
> > //* SET NUMREC = NN (REQUIRED NUMBER OF YEARS * 366) *
> > //* (VALID RANGE 366 TO 3659634) *
> > //**
> > //* BYEAR , EYEAR AND NUMREC CAN BE PASSED WITH LEADING ZEROS UPTO 10 *
> > //* 10 DIGITS. ONLY THE FIRST 10 DIGITS YOU PASS ARE TAKEN INTO *
> > //* CONSIDERATION.*
> > //**
> > //* EXAMPLE 01 : *
> > //* SET BYEAR = 1753 AND NUMREC = 310131 *
> > //* WILL GENERATE DATE CALENDAR FROM 1753-01-01 TO 2601-12-31 *
> > //**
> > //* EXAMPLE 02 : *
> > //* SET BYEAR = 0001 AND NUMREC = * 366 = 3659634 *
> > //* WILL GENERATE DATE CALENDAR FROM 0001-01-01 TO -12-31 *
> > //**
> > //**
> > //**
> > //* DELETE THE OUTPUT FILE IT EXISTS *
> > //**
> > //STEP0100 EXEC PGM=IDCAMS
> > //SYSPRINT DD SYSOUT=*
> > //SYSINDD *,SYMBOLS=JCLONLY
> >DELETE '&SYSUID..GENERATE.YEARDATA'
> >SET MAXCC=0
> > //*
> > //**
> > //* VALIDATE THE PASSED PARMS AND BUILD SYMBOLS *
> > //**
> > //STEP0200 EXEC PGM=SORT,
> > // PARM=('JP1"&BYEAR"',
> > // 'JP2"&NUMREC"',
> > // 'JP3"&EYEAR"')
> > //SYSOUT DD SYSOUT=*
> > //SYMNOUT DD SYSOUT=*
> > //SORTIN DD *
> >
> > //SORTOUT DD DSN=&&S,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
> > //SYSINDD *
> >OPTION COPY
> >INREC IFTHEN=(WHEN=INIT,BUILD=(01:JP1,11:JP2,21:JP3,80:X)),
> >IFTHEN=(WHEN=INIT,BUILD=(01:01,10,UFF,M11,LENGTH=10,
> > 11:11,10,UFF,M11,LENGTH=10,
> > 21:21,10,UFF,M11,LENGTH=10)),
> >
> >IFTHEN=(WHEN=(01,10,ZD,EQ,0,OR,01,10,ZD,GT,),
> >OVERLAY=(01:9C'0',C'1'),HIT=NEXT),
> >IFTHEN=(WHEN=(11,10,ZD,LT,366,OR,11,10,ZD,GT,3659634),
> >OVERLAY=(11:7C'0',C'366'),HIT=NEXT),
> >IFTHEN=(WHEN=(21,10,ZD,EQ,0,OR,21,10,ZD,GT,),
> >OVERLAY=(21:6C'0',DATE1),HIT=NEXT),
> >IFTHEN=(WHEN=(21,10,ZD,LT,01,10,ZD),
> >OVERLAY=(21:01,10),HIT=NEXT),
> >IFTHEN=(WHEN=(01,10,ZD,GT,0,AND,01,10,ZD,LE,),
> >OVERLAY=(40:((+,SUB,7,4,ZD),ADD,+1),
> >
Re: Generating random values
On Tue, 30 Apr 2019 08:16:20 +0800, Peter Van Dyke wrote: >If you have a copybook that maps the records you want to generate then IBM >File Manager can be used to generate random date values. You could use the >copybook with the File Manager "Data Create Utility": > >https://www.ibm.com/support/knowledgecenter/en/SSXJAV_14.1.0/com.ibm.filemanager.doc_14.1/base/dsgtemp.html > The linked page: https://www.ibm.com/support/knowledgecenter/SSXJAV_14.1.0/com.ibm.filemanager.doc_14.1/base/datetimeattpan.html#datetimeattpan ... does not specify whether the dates are selected with replacement or without replacement. Nor did the OP indicate a preference. Skip weekends, holidays, and off-shift hours? > > The edit copybook/template function can be used to identify fields >containing date values and scrambling processing for those date fields can >also be defined: > >https://www.ibm.com/support/knowledgecenter/en/SSXJAV_14.1.0/com.ibm.filemanager.doc_14.1/base/datetime.html > > >These features are also available for the File Manager "Copy Utility". > >Regards, >Peter Van Dyke >HCL Technologies > >On Mon, 29 Apr 2019 at 05:09, Thomas Kern < >0041d919e708-dmarc-requ...@listserv.ua.edu> wrote: > >> I was thinking that generating the random dates in Julian format >> (15001-15365,16001-16366) and then convert the whatever date format your >> record needed (-mm-dd). >> >> On 04/26/2019 13:48, Sri h Kolusu wrote: >> >> Also if you have any other ideas for generating random dates (MMDD) >> > overall, I would welcome your thoughts! >> > >> > DFSORT has plethora of date arithmetic/conversion functions that can get >> > you the desired results. ... >> > >> > You can pass 3 parms. The Begin-year , End year and Number of records. >> > >> > The Begin-Year and End Year parameters are self explanatory. The number >> > of records can either be a multiple of 365 or 366. ... -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TCPIP IP address for current LPAR
On Mon, Apr 29, 2019 at 7:10 AM Stan Weyman < 0239b6933cab-dmarc-requ...@listserv.ua.edu> wrote: >Is there an accessible control block that holds the IP address (or > addresses) for the current LPAR I'm running on? I have need to pass back > this address to another remote application and would prefer to interrogate > a control block rather than issue commands to obtain same a la D > TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample > snippet of code would be great but the location should let me get there. > >Is there any other option that getting the @ from a control block or > using D TCPIP,,NETSTAT,HOME? > >Thanks ahead of time > > Regards > Stan > I've been trying to avoid console commands where possible, and found Unix System Service command netstat -h (via bpxwunix) produces the same result as console command D TCPIP,,N,HOME. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
New CBT Version 497 is cut
Hi Folks, CBT Version 497 is now available on www.cbttape.org. Over 60 files changed. (They were available on Updates before.) Use it well... All the best of everything to all of you. Sincerely, Sam -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TCPIP IP address for current LPAR
Stan, There's a big difference between an IP address of the current stack and a usable IP address of the current stack. It would not be much use giving an IP address of, say, a hipersocket interface home address which is not routable. Although you can find out all the home addresses (there have been a few solutions given for that) you would not know which one to pass back to the remote application. You could assume that the primary IP address is a good one to use (it would be if SOURCEVIPA were in use) or you could do what DB2 resync processing does. The DB2 guys just code a DNS name for that and then the resolver translates it using /etc/ipnodes so that's what DB2 passes to the end server to use to connect back in. Regards, Alan Watthey -Original Message- From: Stan Weyman Sent: 29 April 2019 3:00 pm Subject: TCPIP IP address for current LPAR Is there an accessible control block that holds the IP address (or addresses) for the current LPAR I'm running on? I have need to pass back this address to another remote application and would prefer to interrogate a control block rather than issue commands to obtain same a la D TCPIP,,NETSTAT,HOME (although this would be my alternative). A sample snippet of code would be great but the location should let me get there. Is there any other option that getting the @ from a control block or using D TCPIP,,NETSTAT,HOME? Thanks ahead of time Regards Stan -- 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: Access to SMF logstreams
Gadi Ben-Avi wrote: >I would like to prevent a user from accessing the SMF log >streams >Is there anything else that I need to define? To add to earlier replies, it's prudent to encrypt your log stream data sets so that you're fully blocking unauthorized user access, even from storage administrators for example. You can enable log stream data set encryption in z/OS 2.2 (with the z/OS Data Set Encryption PTFs) or higher on IBM z114/z196 machines or higher. (z/OS 2.1 with PTFs has some awareness of encrypted log stream data sets but cannot create them.) There are some potential performance implications to consider on machines prior to the z14 models, but you shouldn't treat such implications as a veto even if they exist. Security is also quite important and keeps getting more important. For more information, try this link (z/OS 2.3 documentation): https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.ieaf100/enclogstrds.htm Timothy Sipples IT Architect Executive, Industry Solutions, IBM Z & LinuxONE E-Mail: sipp...@sg.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Upper case for ISPF and SDSF
Gadi Ben-Avi wrote: >I found a solution. There is an optional FMID you can download >and install called JIF7R16 that adds libraries with upper case >only versions of the panels, messages and some other libraries. This FMID is intended to address the needs and/or preferences of some z/OS customers in Japan. As far as I know you can use it elsewhere if you're a licensed z/OS customer, and it is IBM supported. However, please bear in mind the target audience and test thoroughly if you're not processing primarily Japanese language data, and also be at least a little patient with your IBM Support person (outside Japan) if/as needed. Tom Brennan wrote: >Just wondering... Is the reason for this because upper case may be >easier to read for folks who's first language is something other than >English? Yes, that's the general idea, although needs and preferences vary in Japan, as everywhere. My guess is that it's more related to early terminal and computing history, to preserving classic terminal display behavior for those who wish that bit of history preserved and in a particular national context, sometimes perhaps for automation-related reasons. And/or imagine that you've got 4,432 pages of operator instructions in uppercase. :-) If you want to dig into this a bit, Wikipedia has some information: https://en.wikipedia.org/wiki/Romanization_of_Japanese See the photo of the older railway sign? All the romaji-cized place names are in uppercase. There's certainly a lot of lowercase romaji in Japan now (and for many years), but it wasn't always the case. (Pun intended.) It's great this ISPF choice is available for those who want it, but let's hope that nobody ever says, "What a terrible computer! It can only display uppercase! Let's get rid of it." (Truth: You can have any user interface you want to z/OS-hosted applications, databases, and other services.) In other words, careful, Gadi! It'd be best if you offer this ISPF FMID and its operation, if you do, as a non-default option. Mike Wawiorko wrote: >Upper case may be fine - until anyone needs to work with USS >directories or files through ISPF 3.17 or similar. That shouldn't be a problem, but try it (of course). This FMID relates to the text that ISPF itself displays. For example, instead of: 0 Settings 1 View 2 Edit etc., you would see: 0 SETTINGS 1 VIEW 2 EDIT and so forth. Timothy Sipples IT Architect Executive, Industry Solutions, IBM Z & LinuxONE E-Mail: sipp...@sg.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TCPIP IP address for current LPAR
"Why do you need to know?" is an interesting question. Don't forget IPv6,
by the way.
There's also the fact that the local answer(s) to that question ("What's my
IP address?") aren't(isn't) necessarily or even very often the non-local
answer(s). Network Address Translation (NAT), proxies, VLANs, VIPAs/DVIPAs,
SDNs, and other such phenomena can be quite interesting, too. And such
phenomena can exist well within the same machine itself, even in multiple
layers.
Fun! :-)
Timothy Sipples
IT Architect Executive, Industry Solutions, IBM Z & LinuxONE
E-Mail: sipp...@sg.ibm.com
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Upper case for ISPF and SDSF
Hi, The reason goes back a few decades, way before my time. In the beginning, when we needed to print Hebrew, the Hebrew characters replaced English Upper case. This was before there were even terminals. In the next stage, Hebrew Characters replaced the English lower case letters, so we could print and display (there were terminals by this stage) both English Upper case and Hebrew on the same display or report. At this stage someone wrote a huge ISPF application. This is one of the main reasons that we still use this encoding. The current and up to date encoding (EBCDIC 424) can display and print English upper case, English lower case and Hebrew. In the past, I tried to attempt to convert the ISPF application to EBCDIC-424. The problem I encountered was with the &. The English alphabet has 26 characters, The Hebrew alphabet has 27. Way back some decided that The first letter of the Hebrew alphabet, aleph, would be replaced by the & character (x'50') The & is also used as the variable identifier in the CLIST and PANEL languages, so it's very hard to know if an & represents the character aleph or an &. Gadi -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tom Brennan Sent: Monday, April 29, 2019 7:00 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Upper case for ISPF and SDSF Just wondering... Is the reason for this because upper case may be easier to read for folks who's first language is something other than English? On 4/28/2019 10:43 PM, Gadi Ben-Avi wrote: > I found a solution. > There is an optional FMID you can download and install called JIF7R16 that > adds libraries with upper case only versions of the panels, messages and some > other libraries. > > Gadi > > > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Seymour J Metz > Sent: Sunday, April 28, 2019 11:32 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Upper case for ISPF and SDSF > > I don't understand the question. ISPF doesn't have case defaults at the > library level. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List on > behalf of Gadi Ben-Avi > Sent: Sunday, April 28, 2019 3:45 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Upper case for ISPF and SDSF > > Hi, > We are currently working on upgrading to z/OS v2.3 ISPF is currently mixed > case. > Is there a way to add upper case only libraries that are controlled by SMP/E > to ISPF. > > Thanks > > Gadi > > -- 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
