Re: WTO message at the end of JCL
In a MPF exit, you can set any message you are processing to any color (of the 8 available) and any highlight, reverse video, blinking mode you want (and which is supported by the terminal it's going to be displayed on), and you can additionally take actions on what the message said, and decide even to not display the message at all (after all you just "fixed" whatever it was the message represented). There is very little that you can NOT do with an MPF exit. The only restrictions are WAIT related types of things, and even that isn't really a restriction, just a really, really good idea not to wait. Of course, our SyzMPF/z product does all of this for you and lets you make the decision based on any number of variables, but it's not free like the MPF exits on the CBTtape or some of the web sites others have mentioned. The advantage is that SyzMPF/z can do hundreds of things besides just changing the message display values and it's a supported product which is upgraded (some might say too) frequently. Unfortunately, it's not free. That said, there are some pretty good MPF exits that you can run for free, they don't do as much and can't perform some of the really cool things that SyzMPF/z can do, but they are free. If they do what you want, and you are okay with supporting it yourself, then it would be silly to pay someone else for that. Brian Westerman -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How can I generate a UUID in a z/OS COBOL Program
https://github.com/walmartlabs/zUID Courtesy of Walmart Matt Hogstrom +1 (919) 656-0564 > On Oct 31, 2019, at 18:51, Charles Mills wrote: > > There is a PL/I function to do this. > > https://www.ibm.com/support/knowledgecenter/en/SSY2V3_5.1.0/com.ibm.ent.pl1.zos.doc/lr/lsh_uuid.html > > > I am not familiar with how to call a PL/I BIF from COBOL (or call a PL/I > program that in turn calls a BIF) but perhaps others on this forum are. > > Charles > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Cameron Conacher > Sent: Thursday, October 31, 2019 12:40 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: How can I generate a UUID in a z/OS COBOL Program > > Hello folks, > I Have done some googling, and I found something called GETITXUID. > > I think this might satisfy my needs. > Has anyone used this? Or know of a more appropriate way to derive a UUID? > > Can I just code CALL GETITXUID()? > > I just want to be able to generate a UUID from inside a COBOL program > running in z/OS. > It might be a CICS/COBOL program or it might be a batch COBOL program, if > that makes any difference here. > > 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: How can I generate a UUID in a z/OS COBOL Program
There is a PL/I function to do this. https://www.ibm.com/support/knowledgecenter/en/SSY2V3_5.1.0/com.ibm.ent.pl1.zos.doc/lr/lsh_uuid.html I am not familiar with how to call a PL/I BIF from COBOL (or call a PL/I program that in turn calls a BIF) but perhaps others on this forum are. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Cameron Conacher Sent: Thursday, October 31, 2019 12:40 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: How can I generate a UUID in a z/OS COBOL Program Hello folks, I Have done some googling, and I found something called GETITXUID. I think this might satisfy my needs. Has anyone used this? Or know of a more appropriate way to derive a UUID? Can I just code CALL GETITXUID()? I just want to be able to generate a UUID from inside a COBOL program running in z/OS. It might be a CICS/COBOL program or it might be a batch COBOL program, if that makes any difference here. 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: How can I generate a UUID in a z/OS COBOL Program
> the UUID consists of a timestamp part and a machine specific part, Not necessarily. There are several formats of UUID. https://en.wikipedia.org/wiki/Universally_unique_identifier#Versions Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bernd Oppolzer Sent: Thursday, October 31, 2019 3:33 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How can I generate a UUID in a z/OS COBOL Program The tricky bit here is: the UUID consists of a timestamp part and a machine specific part, and, with mainframes, this machine specific part must contain the CPU serial number and the LPAR number. Otherwise the UUIDs will not be unique accross different LPARs on the same machine. To build UUIDs like this, you need some callable service (I don't recall the name, maybe CSRSI). I wrote a C solution to do this in 2007 ca. for a customer of mine; don't know if I will recall the details. If you want, you can write me offline mail to discuss this (including the communication with COBOL), Kind regards Bernd Am 31.10.2019 um 22:16 schrieb Charles Mills: > Are you up for building a C++ program that you could call from COBOL? > > https://github.com/graeme-hill/crossguid/blob/master/src/guid.cpp > > (Around line 160 there is a bunch of code that is ASCII-specific and not > commented as such. Easy to convert, but sloppy IMHO.) > > Charles > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Cameron Conacher > Sent: Thursday, October 31, 2019 12:40 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: How can I generate a UUID in a z/OS COBOL Program > > Hello folks, > I Have done some googling, and I found something called GETITXUID. > > I think this might satisfy my needs. > Has anyone used this? Or know of a more appropriate way to derive a UUID? > > Can I just code CALL GETITXUID()? > > I just want to be able to generate a UUID from inside a COBOL program > running in z/OS. > It might be a CICS/COBOL program or it might be a batch COBOL program, if > that makes any difference here. > > 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: How can I generate a UUID in a z/OS COBOL Program
The tricky bit here is: the UUID consists of a timestamp part and a machine specific part, and, with mainframes, this machine specific part must contain the CPU serial number and the LPAR number. Otherwise the UUIDs will not be unique accross different LPARs on the same machine. To build UUIDs like this, you need some callable service (I don't recall the name, maybe CSRSI). I wrote a C solution to do this in 2007 ca. for a customer of mine; don't know if I will recall the details. If you want, you can write me offline mail to discuss this (including the communication with COBOL), Kind regards Bernd Am 31.10.2019 um 22:16 schrieb Charles Mills: Are you up for building a C++ program that you could call from COBOL? https://github.com/graeme-hill/crossguid/blob/master/src/guid.cpp (Around line 160 there is a bunch of code that is ASCII-specific and not commented as such. Easy to convert, but sloppy IMHO.) Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Cameron Conacher Sent: Thursday, October 31, 2019 12:40 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: How can I generate a UUID in a z/OS COBOL Program Hello folks, I Have done some googling, and I found something called GETITXUID. I think this might satisfy my needs. Has anyone used this? Or know of a more appropriate way to derive a UUID? Can I just code CALL GETITXUID()? I just want to be able to generate a UUID from inside a COBOL program running in z/OS. It might be a CICS/COBOL program or it might be a batch COBOL program, if that makes any difference here. 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: How can I generate a UUID in a z/OS COBOL Program
Are you up for building a C++ program that you could call from COBOL? https://github.com/graeme-hill/crossguid/blob/master/src/guid.cpp (Around line 160 there is a bunch of code that is ASCII-specific and not commented as such. Easy to convert, but sloppy IMHO.) Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Cameron Conacher Sent: Thursday, October 31, 2019 12:40 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: How can I generate a UUID in a z/OS COBOL Program Hello folks, I Have done some googling, and I found something called GETITXUID. I think this might satisfy my needs. Has anyone used this? Or know of a more appropriate way to derive a UUID? Can I just code CALL GETITXUID()? I just want to be able to generate a UUID from inside a COBOL program running in z/OS. It might be a CICS/COBOL program or it might be a batch COBOL program, if that makes any difference here. 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: How many programs does it take to copy a UNIX file?
And if you are a masochist, IEBGENER with //SYSUTn DD PATH=. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Kirk Wolf Sent: Thursday, October 31, 2019 12:07 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How many programs does it take to copy a UNIX file? Don't forget /bin/cp Kirk Wolf Dovetailed Technologies PS> also the Co:Z "fromdsn" and "todsn" shell commands, which include options for code page conversion, line terminators, padding, truncating, wrapping, etc, etc. https://dovetail.com/docs/dspipes/dsp-ref_fromdsn.html https://dovetail.com/docs/dspipes/dsp-ref_todsn.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How can I generate a UUID in a z/OS COBOL Program
It seems to be part of "Transformation Extender." Do you have that product? I see a SQL function GENERATE_UUID() but it looks like Db2 for z/OS does not implement. Does anyone know of a C or UNIX library function to do this? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Cameron Conacher Sent: Thursday, October 31, 2019 12:40 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: How can I generate a UUID in a z/OS COBOL Program Hello folks, I Have done some googling, and I found something called GETITXUID. I think this might satisfy my needs. Has anyone used this? Or know of a more appropriate way to derive a UUID? Can I just code CALL GETITXUID()? I just want to be able to generate a UUID from inside a COBOL program running in z/OS. It might be a CICS/COBOL program or it might be a batch COBOL program, if that makes any difference here. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
How can I generate a UUID in a z/OS COBOL Program
Hello folks, I Have done some googling, and I found something called GETITXUID. I think this might satisfy my needs. Has anyone used this? Or know of a more appropriate way to derive a UUID? Can I just code CALL GETITXUID()? I just want to be able to generate a UUID from inside a COBOL program running in z/OS. It might be a CICS/COBOL program or it might be a batch COBOL program, if that makes any difference here. Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How many programs does it take to copy a UNIX file?
Don't forget /bin/cp Kirk Wolf Dovetailed Technologies PS> also the Co:Z "fromdsn" and "todsn" shell commands, which include options for code page conversion, line terminators, padding, truncating, wrapping, etc, etc. https://dovetail.com/docs/dspipes/dsp-ref_fromdsn.html https://dovetail.com/docs/dspipes/dsp-ref_todsn.html On Thu, Oct 31, 2019 at 1:23 PM Charles Mills wrote: > OCOPY - Copy an MVS data set member or z/OS UNIX file to another member or > file > OGET - Copy z/OS UNIX files into an MVS data set > OGETX - Copy z/OS UNIX files from a directory to an MVS PDS or PDSE > OPUT - Copy an MVS data set member into a z/OS UNIX file > OPUTX - Copy members from an MVS PDS or PDSE to a z/OS UNIX system > directory > BPXCOPY: Copying a sequential or partitioned data set or PDSE member into > files > > Really? > > Charles > > -- > 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
How many programs does it take to copy a UNIX file?
OCOPY - Copy an MVS data set member or z/OS UNIX file to another member or file OGET - Copy z/OS UNIX files into an MVS data set OGETX - Copy z/OS UNIX files from a directory to an MVS PDS or PDSE OPUT - Copy an MVS data set member into a z/OS UNIX file OPUTX - Copy members from an MVS PDS or PDSE to a z/OS UNIX system directory BPXCOPY: Copying a sequential or partitioned data set or PDSE member into files Really? Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Best way for a task to give up the CPU and let other tasks run?
>I believe the OP mentioned he received complaints that his >task was hogging the CPU. I went back and looked. The OP said no such thing One of the posters (I thought the OP) mentioned that they were just trying to be a good guy, amidst a lengthy period of intensive CPU usage, of trying to yield occasionally, in the best interests of the system. And the on-point responses were not to worry because time-slicing and WLM etc etc would deal with that.. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Set change bit after DFdss restore
Yes, I already mentioned the ca-disk tool: set the changebit. Talking about ca-disk: it does have the option to SET the changebit at restore time. No one has apparently requested this for dfdss. And to answer the question: why don't I use ca-disk? Like HSM, it administers it archives/backups in its index. Restoring requires the index records to be available in the new sysplex. This is possible, but equally complex as other solutions. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Richards, Robert B. Sent: 31 October 2019 12:02 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Set change bit after DFdss restore As a last resort, post process the restore list and create dataset backup commands from that. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: Thursday, October 31, 2019 6:25 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Set change bit after DFdss restore Robert, CA-DISK has a similar function, but unfortunately both this one and the hsm one will not work in this situation. The dataset already exists in the target sysplex and therefor already has a backup. It will be overwritten with a new one by DFDSS with the changebit off. This scenario will not cause hsm nor ca-disk to take a backup, because a backup already exists. Kees. -Original Message- From: Vernooij, Kees (ITOP NM) - KLM Sent: 31 October 2019 11:07 To: IBM Mainframe Discussion List Subject: RE: Set change bit after DFdss restore No, I don't have hsm unfortunately, this option looks what I need. We have CA-DISK and I think it has a similar function, I will check that. This might be the golden tip. What ADRSSSU does at dump is not important, we want to transfer a specific set of data sets and they should all be selected. However at restore in the other sysplex, I want the changebit set and this seems impossible. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Richards, Robert B. Sent: 31 October 2019 10:58 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Set change bit after DFdss restore Kees, Do you have DFSMShsm? If so, specify: INCREMENTALBACKUP(ORIGINAL) INCREMENTALBACKUP(ORIGINAL) specifies that DFSMShsm creates an initial backup version (if one does not exist) for all non-VSAM and integrated catalog facility VSAM data sets on a primary volume when incremental backup takes place, regardless of the setting of the change bit in the data set VTOC entry. Using ADRSSSU with some combination of filtering. For instance: DUMP DATASET(INCLUDE(**) - BY((DSCHA,EQ,NO)) ) - >From the manual: The BY parameter can filter for the following data set characteristics: ALLOC - Allocation type (cylinder, track, block, absolute track, or movable) CATLG - Whether a data set is cataloged or not (using the standard catalog search order) CREDT - Creation date (absolute or relative) DATACLAS - Data class for SMS DSCHA - Whether the data-set-changed indicator is on DSORG - Data set organization (SAM, PAM, PDS, PDSE, BDAM, EXCP, HFS, ISAM, VSAM, or zFS) EXPDT - Expiration date (absolute or relative) EXTNT - Number of extents FSIZE - Data set size (number of allocated or used tracks) MGMTCLAS - Management class for SMS MULTI - Whether the VTOC shows that the data set is single-volume or multivolume (allocated single-volume data sets that have never been opened and are not cataloged may be selected as multivolume). REFDT - Last-referenced date (absolute or relative) STORCLAS - Storage class for SMS -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: Wednesday, October 30, 2019 11:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Set change bit after DFdss restore Hello group, We use DFSMSdss to move datasets from one sysplex to another. The method is: Dump the datasets with DFdss to a dumpdataset. FTP the dumpdataset to the other sysplex. Restore the datasets in the other sysplex. The problem is that the datasets that have the changebit OFF in the original sysplex, will be restored with the changebit OFF. Therefor no backup will be taken at the target sysplex. DFdss has some options to RESET or not RESET the changebit, but not to SET the changebit ON. I checked FDR, but that doesn't have any options to manipulate the changebit. We have a CA-DISK utility to SET the changebit on individual datasets, but takes an extra step in each move action and can be easily forgotten. I prefer to have this done automatically. How can we easily and automatically set the changebit ON? Any ideas? Kees. For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain
Re: Set change bit after DFdss restore
As a last resort, post process the restore list and create dataset backup commands from that. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: Thursday, October 31, 2019 6:25 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Set change bit after DFdss restore Robert, CA-DISK has a similar function, but unfortunately both this one and the hsm one will not work in this situation. The dataset already exists in the target sysplex and therefor already has a backup. It will be overwritten with a new one by DFDSS with the changebit off. This scenario will not cause hsm nor ca-disk to take a backup, because a backup already exists. Kees. -Original Message- From: Vernooij, Kees (ITOP NM) - KLM Sent: 31 October 2019 11:07 To: IBM Mainframe Discussion List Subject: RE: Set change bit after DFdss restore No, I don't have hsm unfortunately, this option looks what I need. We have CA-DISK and I think it has a similar function, I will check that. This might be the golden tip. What ADRSSSU does at dump is not important, we want to transfer a specific set of data sets and they should all be selected. However at restore in the other sysplex, I want the changebit set and this seems impossible. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Richards, Robert B. Sent: 31 October 2019 10:58 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Set change bit after DFdss restore Kees, Do you have DFSMShsm? If so, specify: INCREMENTALBACKUP(ORIGINAL) INCREMENTALBACKUP(ORIGINAL) specifies that DFSMShsm creates an initial backup version (if one does not exist) for all non-VSAM and integrated catalog facility VSAM data sets on a primary volume when incremental backup takes place, regardless of the setting of the change bit in the data set VTOC entry. Using ADRSSSU with some combination of filtering. For instance: DUMP DATASET(INCLUDE(**) - BY((DSCHA,EQ,NO)) ) - >From the manual: The BY parameter can filter for the following data set characteristics: ALLOC - Allocation type (cylinder, track, block, absolute track, or movable) CATLG - Whether a data set is cataloged or not (using the standard catalog search order) CREDT - Creation date (absolute or relative) DATACLAS - Data class for SMS DSCHA - Whether the data-set-changed indicator is on DSORG - Data set organization (SAM, PAM, PDS, PDSE, BDAM, EXCP, HFS, ISAM, VSAM, or zFS) EXPDT - Expiration date (absolute or relative) EXTNT - Number of extents FSIZE - Data set size (number of allocated or used tracks) MGMTCLAS - Management class for SMS MULTI - Whether the VTOC shows that the data set is single-volume or multivolume (allocated single-volume data sets that have never been opened and are not cataloged may be selected as multivolume). REFDT - Last-referenced date (absolute or relative) STORCLAS - Storage class for SMS -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: Wednesday, October 30, 2019 11:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Set change bit after DFdss restore Hello group, We use DFSMSdss to move datasets from one sysplex to another. The method is: Dump the datasets with DFdss to a dumpdataset. FTP the dumpdataset to the other sysplex. Restore the datasets in the other sysplex. The problem is that the datasets that have the changebit OFF in the original sysplex, will be restored with the changebit OFF. Therefor no backup will be taken at the target sysplex. DFdss has some options to RESET or not RESET the changebit, but not to SET the changebit ON. I checked FDR, but that doesn't have any options to manipulate the changebit. We have a CA-DISK utility to SET the changebit on individual datasets, but takes an extra step in each move action and can be easily forgotten. I prefer to have this done automatically. How can we easily and automatically set the changebit ON? Any ideas? Kees. 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
Re: Set change bit after DFdss restore
Robert, CA-DISK has a similar function, but unfortunately both this one and the hsm one will not work in this situation. The dataset already exists in the target sysplex and therefor already has a backup. It will be overwritten with a new one by DFDSS with the changebit off. This scenario will not cause hsm nor ca-disk to take a backup, because a backup already exists. Kees. -Original Message- From: Vernooij, Kees (ITOP NM) - KLM Sent: 31 October 2019 11:07 To: IBM Mainframe Discussion List Subject: RE: Set change bit after DFdss restore No, I don't have hsm unfortunately, this option looks what I need. We have CA-DISK and I think it has a similar function, I will check that. This might be the golden tip. What ADRSSSU does at dump is not important, we want to transfer a specific set of data sets and they should all be selected. However at restore in the other sysplex, I want the changebit set and this seems impossible. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Richards, Robert B. Sent: 31 October 2019 10:58 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Set change bit after DFdss restore Kees, Do you have DFSMShsm? If so, specify: INCREMENTALBACKUP(ORIGINAL) INCREMENTALBACKUP(ORIGINAL) specifies that DFSMShsm creates an initial backup version (if one does not exist) for all non-VSAM and integrated catalog facility VSAM data sets on a primary volume when incremental backup takes place, regardless of the setting of the change bit in the data set VTOC entry. Using ADRSSSU with some combination of filtering. For instance: DUMP DATASET(INCLUDE(**) - BY((DSCHA,EQ,NO)) ) - >From the manual: The BY parameter can filter for the following data set characteristics: ALLOC - Allocation type (cylinder, track, block, absolute track, or movable) CATLG - Whether a data set is cataloged or not (using the standard catalog search order) CREDT - Creation date (absolute or relative) DATACLAS - Data class for SMS DSCHA - Whether the data-set-changed indicator is on DSORG - Data set organization (SAM, PAM, PDS, PDSE, BDAM, EXCP, HFS, ISAM, VSAM, or zFS) EXPDT - Expiration date (absolute or relative) EXTNT - Number of extents FSIZE - Data set size (number of allocated or used tracks) MGMTCLAS - Management class for SMS MULTI - Whether the VTOC shows that the data set is single-volume or multivolume (allocated single-volume data sets that have never been opened and are not cataloged may be selected as multivolume). REFDT - Last-referenced date (absolute or relative) STORCLAS - Storage class for SMS -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: Wednesday, October 30, 2019 11:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Set change bit after DFdss restore Hello group, We use DFSMSdss to move datasets from one sysplex to another. The method is: Dump the datasets with DFdss to a dumpdataset. FTP the dumpdataset to the other sysplex. Restore the datasets in the other sysplex. The problem is that the datasets that have the changebit OFF in the original sysplex, will be restored with the changebit OFF. Therefor no backup will be taken at the target sysplex. DFdss has some options to RESET or not RESET the changebit, but not to SET the changebit ON. I checked FDR, but that doesn't have any options to manipulate the changebit. We have a CA-DISK utility to SET the changebit on individual datasets, but takes an extra step in each move action and can be easily forgotten. I prefer to have this done automatically. How can we easily and automatically set the changebit ON? Any ideas? Kees. 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
Re: Set change bit after DFdss restore
No, I don't have hsm unfortunately, this option looks what I need. We have CA-DISK and I think it has a similar function, I will check that. This might be the golden tip. What ADRSSSU does at dump is not important, we want to transfer a specific set of data sets and they should all be selected. However at restore in the other sysplex, I want the changebit set and this seems impossible. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Richards, Robert B. Sent: 31 October 2019 10:58 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Set change bit after DFdss restore Kees, Do you have DFSMShsm? If so, specify: INCREMENTALBACKUP(ORIGINAL) INCREMENTALBACKUP(ORIGINAL) specifies that DFSMShsm creates an initial backup version (if one does not exist) for all non-VSAM and integrated catalog facility VSAM data sets on a primary volume when incremental backup takes place, regardless of the setting of the change bit in the data set VTOC entry. Using ADRSSSU with some combination of filtering. For instance: DUMP DATASET(INCLUDE(**) - BY((DSCHA,EQ,NO)) ) - >From the manual: The BY parameter can filter for the following data set characteristics: ALLOC - Allocation type (cylinder, track, block, absolute track, or movable) CATLG - Whether a data set is cataloged or not (using the standard catalog search order) CREDT - Creation date (absolute or relative) DATACLAS - Data class for SMS DSCHA - Whether the data-set-changed indicator is on DSORG - Data set organization (SAM, PAM, PDS, PDSE, BDAM, EXCP, HFS, ISAM, VSAM, or zFS) EXPDT - Expiration date (absolute or relative) EXTNT - Number of extents FSIZE - Data set size (number of allocated or used tracks) MGMTCLAS - Management class for SMS MULTI - Whether the VTOC shows that the data set is single-volume or multivolume (allocated single-volume data sets that have never been opened and are not cataloged may be selected as multivolume). REFDT - Last-referenced date (absolute or relative) STORCLAS - Storage class for SMS -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: Wednesday, October 30, 2019 11:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Set change bit after DFdss restore Hello group, We use DFSMSdss to move datasets from one sysplex to another. The method is: Dump the datasets with DFdss to a dumpdataset. FTP the dumpdataset to the other sysplex. Restore the datasets in the other sysplex. The problem is that the datasets that have the changebit OFF in the original sysplex, will be restored with the changebit OFF. Therefor no backup will be taken at the target sysplex. DFdss has some options to RESET or not RESET the changebit, but not to SET the changebit ON. I checked FDR, but that doesn't have any options to manipulate the changebit. We have a CA-DISK utility to SET the changebit on individual datasets, but takes an extra step in each move action and can be easily forgotten. I prefer to have this done automatically. How can we easily and automatically set the changebit ON? Any ideas? Kees. 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 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
Re: multi-line STDPARM shell script for BPXBATCH
That's quite nifty. Does it support local spawn and using DD names in
the script?
On 2019-10-30 7:45 PM, John McKown wrote:
Here is my "solution". Actually, I got it from someone R Zenuk. It consists
of a PROC, and a REXX program.
=== proc ===
//BPXJCL PROC USSCMD=,
//***
//* PROC: BPXJCL *
//* *
//* PURPOSE: RUN A USS COMMAND USING THE BPXJCL EXEC *
//* *
//* SYMBOLICS: *
//* *
//* USSCMD - THE USS COMMAND TO EXECUTE *
//* EXECLIB - DSN WHERE BPXJCL EXEC LIVES *
//* *
//* CHANGE LOG *
//* *
//* USERREASON DATE*
//* - *
//* R. ZENUK INITIAL SETUP 01/20/00*
//* *
//***
// EXECLIB=SYS1.LI.CLIST.CNTL
//***
//* *
//***
//BPXJCL EXEC PGM=IKJEFT01,PARM='%BPXJCL '
//SYSEXEC DDDSN=,DISP=SHR
//SYSTSPRT DDSYSOUT=*
//SYSTSIN DDDUMMY
//STDOUT DDSYSOUT=*
//STDERR DDSYSOUT=*
//STDINDDDUMMY
=== REXX program ===
/*/
/*REXX */
/*/
/* Purpose: Use BPXWUNIX to redirect STDOUT and STDERR to SYSOUT */
/*---*/
/* Syntax: BPXJCL command*/
/*---*/
/* Parms: command- Any USS command*/
/**/
/*/
/* Change Log*/
/**/
/* AuthorDate Reason */
/* - - */
/* R. ZenukJan 2000 Initial Creation */
/**/
/*/
parse arg command
say mvsvar('SYSNAME') mvsvar('SYMDEF','JOBNAME') date() time()
say
say 'Executing command:' command
say
exit BPXWUNIX(command,'DD:stdin','DD:stdout','DD:stderr','0')
=== Sample JOB ===
//TSH009X3 JOB (H0I),'BPXJCL',
// CLASS=Z,TIME=NOLIMIT,
// MSGCLASS=X, SER=BPXROOT,
// NOTIFY=
//*
//STEP1 EXEC PROC=BPXJCL,USSCMD='/bin/sh -L'
//STDIN DD *
set -x
df
//
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Set change bit after DFdss restore
Kees, Do you have DFSMShsm? If so, specify: INCREMENTALBACKUP(ORIGINAL) INCREMENTALBACKUP(ORIGINAL) specifies that DFSMShsm creates an initial backup version (if one does not exist) for all non-VSAM and integrated catalog facility VSAM data sets on a primary volume when incremental backup takes place, regardless of the setting of the change bit in the data set VTOC entry. Using ADRSSSU with some combination of filtering. For instance: DUMP DATASET(INCLUDE(**) - BY((DSCHA,EQ,NO)) ) - >From the manual: The BY parameter can filter for the following data set characteristics: ALLOC - Allocation type (cylinder, track, block, absolute track, or movable) CATLG - Whether a data set is cataloged or not (using the standard catalog search order) CREDT - Creation date (absolute or relative) DATACLAS - Data class for SMS DSCHA - Whether the data-set-changed indicator is on DSORG - Data set organization (SAM, PAM, PDS, PDSE, BDAM, EXCP, HFS, ISAM, VSAM, or zFS) EXPDT - Expiration date (absolute or relative) EXTNT - Number of extents FSIZE - Data set size (number of allocated or used tracks) MGMTCLAS - Management class for SMS MULTI - Whether the VTOC shows that the data set is single-volume or multivolume (allocated single-volume data sets that have never been opened and are not cataloged may be selected as multivolume). REFDT - Last-referenced date (absolute or relative) STORCLAS - Storage class for SMS -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Vernooij, Kees (ITOP NM) - KLM Sent: Wednesday, October 30, 2019 11:51 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Set change bit after DFdss restore Hello group, We use DFSMSdss to move datasets from one sysplex to another. The method is: Dump the datasets with DFdss to a dumpdataset. FTP the dumpdataset to the other sysplex. Restore the datasets in the other sysplex. The problem is that the datasets that have the changebit OFF in the original sysplex, will be restored with the changebit OFF. Therefor no backup will be taken at the target sysplex. DFdss has some options to RESET or not RESET the changebit, but not to SET the changebit ON. I checked FDR, but that doesn't have any options to manipulate the changebit. We have a CA-DISK utility to SET the changebit on individual datasets, but takes an extra step in each move action and can be easily forgotten. I prefer to have this done automatically. How can we easily and automatically set the changebit ON? Any ideas? Kees. 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: Set change bit after DFdss restore
Yes I did. And no, it only provides what the parameters do: to RESET of not to RESET the changebit. No SETting it. Kees. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Roger Lowe Sent: 30 October 2019 19:57 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Set change bit after DFdss restore On Wed, 30 Oct 2019 15:51:28 +, Vernooij, Kees (ITOP NM) - KLM wrote: >Hello group, > >We use DFSMSdss to move datasets from one sysplex to another. >The method is: >Dump the datasets with DFdss to a dumpdataset. >FTP the dumpdataset to the other sysplex. >Restore the datasets in the other sysplex. > >The problem is that the datasets that have the changebit OFF in the original >sysplex, will be restored with the changebit OFF. Therefor no backup will be >taken at the target sysplex. >DFdss has some options to RESET or not RESET the changebit, but not to SET the >changebit ON. > >I checked FDR, but that doesn't have any options to manipulate the changebit. > >We have a CA-DISK utility to SET the changebit on individual datasets, but >takes an extra step in each move action and can be easily forgotten. >I prefer to have this done automatically. >How can we easily and automatically set the changebit ON? Any ideas? > >Kees. > Have you checked out ADRPATCH (DFSMSdss patch area)? - it may do what you want Roger -- 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
