Re: Considering: Writing an EMCS console program
On Tue, 18 Nov 2014 01:05:04 -0600, Brian Westerman wrote: I think it would be a cool thing for you to develop, but I wanted to warn you that the console message part is a bear to manage. This encapsulates my thoughts on this, and I would certainly defer to Brians experience. Even in the *nix world, tail (prior to inotify) was a can of worms, but nobody cared. In its original incarnation it polled the target - fine for small systems with low traffic. Doesn't sound like your typical z/OS environment where vendors insist on spamming the log. Which, of course, encouraged (in-house) devs to do like-wise. Good luck ... Shane ... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How declare in C++ a constant in an assembler module?
On 18/11/2014 1:07 PM, Paul Gilmartin wrote: On Mon, 17 Nov 2014 17:55:10 -0800, Charles Mills wrote: Bingo! Thanks. IIRC, the SAS/C compiler put them inline if declared const; in WSA otherwise. I believe it does not violate ANSI C if an object is declared const in one translation unit, with const omitted in another, as long as it is not modified by the former. Of course, this caused chaos with SAS/C. Hmm, and that's the problem with ANSI C (and C++). The standards can be interpreted in different ways which leads to inconsistent implementations. Throw into the mix the likes of Microsoft compilers violating the standard and you have the problem we have today with portability issues. IMO, static const should be inlined like C++ does but certainly not extern variables. (BTDT) -Original Message- From: David Crayford Sent: Monday, November 17, 2014 5:38 PM The compiler wants to put all external variables into WSA. To turn that off specify norent. -- gil -- 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 declare in C++ a constant in an assembler module?
IIRC, there is a compiler option ROCONST that deals with this, but maybe only for ANSI C, not for C++. If ROCONST is specified, static const variables will be placed in STATIC CSECT, not in WSA, even if compiler option RENT is specified (please look into the manuals for details). We had problems with large static read-only arrays being allocated two times (in STATIC as init pattern and once again in WSA, which lead to storage problems). Kind regards Bernd Am 18.11.2014 10:18, schrieb David Crayford: On 18/11/2014 1:07 PM, Paul Gilmartin wrote: On Mon, 17 Nov 2014 17:55:10 -0800, Charles Mills wrote: Bingo! Thanks. IIRC, the SAS/C compiler put them inline if declared const; in WSA otherwise. I believe it does not violate ANSI C if an object is declared const in one translation unit, with const omitted in another, as long as it is not modified by the former. Of course, this caused chaos with SAS/C. Hmm, and that's the problem with ANSI C (and C++). The standards can be interpreted in different ways which leads to inconsistent implementations. Throw into the mix the likes of Microsoft compilers violating the standard and you have the problem we have today with portability issues. IMO, static const should be inlined like C++ does but certainly not extern variables. (BTDT) -Original Message- From: David Crayford Sent: Monday, November 17, 2014 5:38 PM The compiler wants to put all external variables into WSA. To turn that off specify norent. -- gil -- 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 declare in C++ a constant in an assembler module?
What is a non-static constant? What is the rationale for, say, an automatic one? Named and unnamed constants, literals, should properly be treated as a separate storage class John Gilmore, Ashland, MA 01721 - USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How declare in C++ a constant in an assembler module?
On 18/11/2014 6:47 PM, Bernd Oppolzer wrote: IIRC, there is a compiler option ROCONST that deals with this, but maybe only for ANSI C, not for C++. If ROCONST is specified, static const variables will be placed in STATIC CSECT, not in WSA, even if compiler option RENT is specified (please look into the manuals for details). It's not the same thing. ROCONST places constants into a literal pool and does not assign any stack space to them. #pragma variable(varname,norent) makes the variable a VCON and let's the linker deal with it. We had problems with large static read-only arrays being allocated two times (in STATIC as init pattern and once again in WSA, which lead to storage problems). Kind regards Bernd Am 18.11.2014 10:18, schrieb David Crayford: On 18/11/2014 1:07 PM, Paul Gilmartin wrote: On Mon, 17 Nov 2014 17:55:10 -0800, Charles Mills wrote: Bingo! Thanks. IIRC, the SAS/C compiler put them inline if declared const; in WSA otherwise. I believe it does not violate ANSI C if an object is declared const in one translation unit, with const omitted in another, as long as it is not modified by the former. Of course, this caused chaos with SAS/C. Hmm, and that's the problem with ANSI C (and C++). The standards can be interpreted in different ways which leads to inconsistent implementations. Throw into the mix the likes of Microsoft compilers violating the standard and you have the problem we have today with portability issues. IMO, static const should be inlined like C++ does but certainly not extern variables. (BTDT) -Original Message- From: David Crayford Sent: Monday, November 17, 2014 5:38 PM The compiler wants to put all external variables into WSA. To turn that off specify norent. -- gil -- 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
Redesigning the Principles of Operations
Unfortunately, I missed the start of this thread. The poor design of the PoPs is one reason why I wrote my z/Architecture for application programmers book, not that I make any claims of providing an equivalent. The major difficulty that I find with the PoPs is the difficulty in finding the appropriate information for a particular variant of an instruction; for example, the appropriate details for a particular Translate One/Two instruction are located at various points of the description. To improve clarity, I made wide use of tables in my book that enabled me to keep the size of the book to less than 400 pages. Another weakness of the PoPs is the lack of examples for many of the more recent instructions. Anthony Rudd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How declare in C++ a constant in an assembler module?
On 18/11/2014 6:52 PM, John Gilmore wrote: What is a non-static constant? What is the rationale for, say, an automatic one? In C or C++ you can easily cast it to non-const. It's more explicit in C++ because one would use a const_cast expression. But in C it's not so obvious. Named and unnamed constants, literals, should properly be treated as a separate storage class John Gilmore, Ashland, MA 01721 - USA -- 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: Redesigning the Principles of Operations
I would argue that PoPs is one of the few technical publications that you will hardly ever find any defects in. It's less pages than the C++ standard and concise. The issue I have is it's a little bit dusty. Some of the multi-programming examples state that a sequence number may take days to wrap around when in the modern era it may be hours, minutes or seconds. On 18/11/2014 8:00 PM, Anthony Rudd wrote: Unfortunately, I missed the start of this thread. The poor design of the PoPs is one reason why I wrote my z/Architecture for application programmers book, not that I make any claims of providing an equivalent. The major difficulty that I find with the PoPs is the difficulty in finding the appropriate information for a particular variant of an instruction; for example, the appropriate details for a particular Translate One/Two instruction are located at various points of the description. To improve clarity, I made wide use of tables in my book that enabled me to keep the size of the book to less than 400 pages. Another weakness of the PoPs is the lack of examples for many of the more recent instructions. Anthony Rudd -- 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: Redesigning the Principles of Operations
On Tue, 18 Nov 2014 20:18:18 +0800, David Crayford wrote: I would argue that PoPs is one of the few technical publications that you will hardly ever find any defects in. Glad to hear it ;-) On the other hand we need to encourage anybody prepared to write technical tomes for z/OS. There's precious few of them. I'm disappointed the ebook appears to be kindle only - I refuse to use proprietary formats as my little protest. FWIW, I use a Linux kernel internals manual as a door-stop in my office. No chance of anything similar for z/OS (were it available) being treated so flippantly. Shane ... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Sort to show differences in a 2-file match
Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
Hi, I have used ICETOOL with DISCARD to do that kind of thing - I think this would give what you want in SORTOU1: //S160SRT EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSGDD SYSOUT=* //SYSOUTDD SYSOUT=* //SORTIN1 DD DSN=dataseta, // DISP=SHR // DD DSN=datasetb, // DISP=OLD //TEMPDDDD DSN=TEMPZ, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //SORTOU1 DD DSN=DIFFS, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //TOOLINDD * SELECT FROM(SORTIN1) TO(TEMPDD) DISCARD(SORTOU1) ON(1,2524,CH) ALLDUPS //* Best regards, David Tidy IS Technical Management/SAP-Mf Dow Benelux B.V. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: 18 November 2014 13:59 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Sort to show differences in a 2-file match Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- 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
HSM ML2 on disk
Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Regards, Hervey Storage Administrator -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
I just realized I made a crucial mistake on the summary I sent earlier.If I followed those requirements, I would have a huge file of mismatches for the superset from File B. So let me restate my goal again - correctly this time! I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in B, not in A (only list those subset records not in the whole file) * Records in A with matching keys to B, but the data in A does not match B David, I haven't had a chance to try your job yet, but would this change things significantly? Billy On Tue, Nov 18, 2014 at 8:31 AM, Tidy, David (D) dt...@dow.com wrote: Hi, I have used ICETOOL with DISCARD to do that kind of thing - I think this would give what you want in SORTOU1: //S160SRT EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSGDD SYSOUT=* //SYSOUTDD SYSOUT=* //SORTIN1 DD DSN=dataseta, // DISP=SHR // DD DSN=datasetb, // DISP=OLD //TEMPDDDD DSN=TEMPZ, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //SORTOU1 DD DSN=DIFFS, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //TOOLINDD * SELECT FROM(SORTIN1) TO(TEMPDD) DISCARD(SORTOU1) ON(1,2524,CH) ALLDUPS //* Best regards, David Tidy IS Technical Management/SAP-Mf Dow Benelux B.V. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: 18 November 2014 13:59 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Sort to show differences in a 2-file match Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- 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 -- Thank you and best regards, *Billy Ashton* -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
With ICETOOL you can select and send duplicates and unique values to different DD statements http://www-01.ibm.com/support/docview.wss?uid=isg3T797 Check out the mini sort manual on this page. Creating output data sets and displaying list data sets for records with duplicate values, non-duplicate values, or values that occur n times, less than n times, or more than n times. This makes it easy to view data according to occurrences of values. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: Tuesday, November 18, 2014 7:20 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Sort to show differences in a 2-file match I just realized I made a crucial mistake on the summary I sent earlier.If I followed those requirements, I would have a huge file of mismatches for the superset from File B. So let me restate my goal again - correctly this time! I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in B, not in A (only list those subset records not in the whole file) * Records in A with matching keys to B, but the data in A does not match B David, I haven't had a chance to try your job yet, but would this change things significantly? Billy On Tue, Nov 18, 2014 at 8:31 AM, Tidy, David (D) dt...@dow.com wrote: Hi, I have used ICETOOL with DISCARD to do that kind of thing - I think this would give what you want in SORTOU1: //S160SRT EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSGDD SYSOUT=* //SYSOUTDD SYSOUT=* //SORTIN1 DD DSN=dataseta, // DISP=SHR // DD DSN=datasetb, // DISP=OLD //TEMPDDDD DSN=TEMPZ, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //SORTOU1 DD DSN=DIFFS, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //TOOLINDD * SELECT FROM(SORTIN1) TO(TEMPDD) DISCARD(SORTOU1) ON(1,2524,CH) ALLDUPS //* Best regards, David Tidy IS Technical Management/SAP-Mf Dow Benelux B.V. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: 18 November 2014 13:59 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Sort to show differences in a 2-file match Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM ML2 on disk
Hi Hervey, I sort of did that, except that my ML2 was moved to my VTL (Virtual Tape Library). Very smooth transition. Even the recall was very fast... *George Rodriguez* *Specialist II - IT Solutions* *IT Enterprise Applications* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-251* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Eight Consecutive Years* On Tue, Nov 18, 2014 at 9:17 AM, Hervey Martinez hervey.marti...@custserv.com wrote: Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Regards, Hervey Storage Administrator -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- *Disclaimer: *Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM ML2 on disk
There is a thread (and yes it is Mine) on IBM MAIN Archives https://listserv.ua.edu/cgi-bin/wa?A2=ind1408L=IBM-MAINP=R53605I=-3X=FED 837FA3AD00EC1A4d=No+Match%3BMatch%3BMatches This discussion was on HSM and DASD ML2 One commenter provided this While control unit storage tiering may be considered as a replacement to HSM processing for smaller environments, such a recommendation is an over simplification of the need for a comprehensive ILM strategy to properly manage data in middle-to-large environments. At the various conferences that I attend each year, this concept was originally discussed when cu tiering was first introduced, but after discussions, all three vendors see the value of HSM ILM and cu tiering being used together to create a powerful solution as opposed trying to select one over another. Each tiering technique, hardware and software, has strengths and weaknesses. Using each technique to its strengths provides tremendous opportunity as we move forward with managing the significant growth of data that we are seeing. In z/OS V2R1, DFSMS introduced its initial Storage Tiering solution. This offering lays the framework for z/OS's long term strategy to provide various ILMs solutions so that clients can implement the ILM solution that works best for them. An integral part of this strategy is to move away from ML1 and move toward an L0 - Ln, ML2 solution. Tape is still clearly the best storage media for long-term data archiving, and all three vendors will agree to that. I am currently working with clients to move to an L0 - Ln, ML2 environment, and it is exciting to see the opportunities that exist by integrating software and hardware tiering into a single, powerful ILM strategy. I'm more than happy to meet with clients to discuss the V2R1 DFSMS Storage Tiering solution and discuss the opportunities that it provides to exploit the strengths of the two types of tiering. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hervey Martinez Sent: Tuesday, November 18, 2014 7:18 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: HSM ML2 on disk Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Regards, Hervey Storage Administrator -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM ML2 on disk
Sorry about the wrap, here is the tinyurl http://tinyurl.com/prpqnee Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Tuesday, November 18, 2014 8:02 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk There is a thread (and yes it is Mine) on IBM MAIN Archives https://listserv.ua.edu/cgi-bin/wa?A2=ind1408L=IBM-MAINP=R53605I=- 3X=FED 837FA3AD00EC1A4d=No+Match%3BMatch%3BMatches This discussion was on HSM and DASD ML2 One commenter provided this While control unit storage tiering may be considered as a replacement to HSM processing for smaller environments, such a recommendation is an over simplification of the need for a comprehensive ILM strategy to properly manage data in middle-to-large environments. At the various conferences that I attend each year, this concept was originally discussed when cu tiering was first introduced, but after discussions, all three vendors see the value of HSM ILM and cu tiering being used together to create a powerful solution as opposed trying to select one over another. Each tiering technique, hardware and software, has strengths and weaknesses. Using each technique to its strengths provides tremendous opportunity as we move forward with managing the significant growth of data that we are seeing. In z/OS V2R1, DFSMS introduced its initial Storage Tiering solution. This offering lays the framework for z/OS's long term strategy to provide various ILMs solutions so that clients can implement the ILM solution that works best for them. An integral part of this strategy is to move away from ML1 and move toward an L0 - Ln, ML2 solution. Tape is still clearly the best storage media for long-term data archiving, and all three vendors will agree to that. I am currently working with clients to move to an L0 - Ln, ML2 environment, and it is exciting to see the opportunities that exist by integrating software and hardware tiering into a single, powerful ILM strategy. I'm more than happy to meet with clients to discuss the V2R1 DFSMS Storage Tiering solution and discuss the opportunities that it provides to exploit the strengths of the two types of tiering. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hervey Martinez Sent: Tuesday, November 18, 2014 7:18 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: HSM ML2 on disk Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Regards, Hervey Storage Administrator -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
Hi Billy, Typically for the first (records in B, not in A), I do the same sort of thing including A in the sortin concatenation twice, and B once, thus getting rid of all duplicate records by discarding all of A and the matches in B (based on full record length). For the records in A with matching keys to B but different data, that seems trickier. Firstly you want to discard all the A records with unique keys by concatenating A ahead of B in sortin , and using FIRSTDUP (and keylength only) to select only the A records which match B keywise. Then a third step to take that output concatenated ahead of B, with the NODUPS option (based on full record length). Then finally concatenate the third step output with the first step output. ... at least I think that meets your new objective ... Best regards, David Tidy IS Technical Management/SAP-Mf Dow Benelux B.V. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: 18 November 2014 15:20 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Sort to show differences in a 2-file match I just realized I made a crucial mistake on the summary I sent earlier.If I followed those requirements, I would have a huge file of mismatches for the superset from File B. So let me restate my goal again - correctly this time! I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in B, not in A (only list those subset records not in the whole file) * Records in A with matching keys to B, but the data in A does not match B David, I haven't had a chance to try your job yet, but would this change things significantly? Billy On Tue, Nov 18, 2014 at 8:31 AM, Tidy, David (D) dt...@dow.com wrote: Hi, I have used ICETOOL with DISCARD to do that kind of thing - I think this would give what you want in SORTOU1: //S160SRT EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSGDD SYSOUT=* //SYSOUTDD SYSOUT=* //SORTIN1 DD DSN=dataseta, // DISP=SHR // DD DSN=datasetb, // DISP=OLD //TEMPDDDD DSN=TEMPZ, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //SORTOU1 DD DSN=DIFFS, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //TOOLINDD * SELECT FROM(SORTIN1) TO(TEMPDD) DISCARD(SORTOU1) ON(1,2524,CH) ALLDUPS //* Best regards, David Tidy IS Technical Management/SAP-Mf Dow Benelux B.V. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: 18 November 2014 13:59 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Sort to show differences in a 2-file match Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- 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 -- Thank you and best regards, *Billy Ashton* -- 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: HSM ML2 on disk
Yes, right now we do have a VTS that emulates a 3590 tape but we are looking at using ECKD to house the traditional ML2 files that historically have been on tape. Regards, Hervey -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George Rodriguez Sent: Tuesday, November 18, 2014 9:39 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Hi Hervey, I sort of did that, except that my ML2 was moved to my VTL (Virtual Tape Library). Very smooth transition. Even the recall was very fast... *George Rodriguez* *Specialist II - IT Solutions* *IT Enterprise Applications* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-251* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Eight Consecutive Years* On Tue, Nov 18, 2014 at 9:17 AM, Hervey Martinez hervey.marti...@custserv.com wrote: Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Regards, Hervey Storage Administrator -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- *Disclaimer: *Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Please be alert for any emails that may ask you for login information or directs you to login via a link. If you believe this message is a phish or aren't sure whether this message is trustworthy, please send the original message as an attachment to 'phish...@timeinc.com'. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM ML2 on disk
Lizette, I saw your initial question on the link you provided but did not see any comments like the one you included below. Regards, Hervey -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Tuesday, November 18, 2014 10:02 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk There is a thread (and yes it is Mine) on IBM MAIN Archives https://listserv.ua.edu/cgi-bin/wa?A2=ind1408L=IBM-MAINP=R53605I=-3X=FED 837FA3AD00EC1A4d=No+Match%3BMatch%3BMatches This discussion was on HSM and DASD ML2 One commenter provided this While control unit storage tiering may be considered as a replacement to HSM processing for smaller environments, such a recommendation is an over simplification of the need for a comprehensive ILM strategy to properly manage data in middle-to-large environments. At the various conferences that I attend each year, this concept was originally discussed when cu tiering was first introduced, but after discussions, all three vendors see the value of HSM ILM and cu tiering being used together to create a powerful solution as opposed trying to select one over another. Each tiering technique, hardware and software, has strengths and weaknesses. Using each technique to its strengths provides tremendous opportunity as we move forward with managing the significant growth of data that we are seeing. In z/OS V2R1, DFSMS introduced its initial Storage Tiering solution. This offering lays the framework for z/OS's long term strategy to provide various ILMs solutions so that clients can implement the ILM solution that works best for them. An integral part of this strategy is to move away from ML1 and move toward an L0 - Ln, ML2 solution. Tape is still clearly the best storage media for long-term data archiving, and all three vendors will agree to that. I am currently working with clients to move to an L0 - Ln, ML2 environment, and it is exciting to see the opportunities that exist by integrating software and hardware tiering into a single, powerful ILM strategy. I'm more than happy to meet with clients to discuss the V2R1 DFSMS Storage Tiering solution and discuss the opportunities that it provides to exploit the strengths of the two types of tiering. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hervey Martinez Sent: Tuesday, November 18, 2014 7:18 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: HSM ML2 on disk Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Regards, Hervey Storage Administrator -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Please be alert for any emails that may ask you for login information or directs you to login via a link. If you believe this message is a phish or aren't sure whether this message is trustworthy, please send the original message as an attachment to 'phish...@timeinc.com'. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
I'm wondering if the OP actually wants some commentary like at line 1234 in File A there's no match from File B. I know Billy didn't say that but... Cheers, Martin Martin Packer, zChampion, Principal Systems Investigator, Worldwide Banking Center of Excellence, IBM +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker From: Tidy, David (D) dt...@dow.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 18/11/2014 13:32 Subject:Re: Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hi, I have used ICETOOL with DISCARD to do that kind of thing - I think this would give what you want in SORTOU1: //S160SRT EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSGDD SYSOUT=* //SYSOUTDD SYSOUT=* //SORTIN1 DD DSN=dataseta, // DISP=SHR // DD DSN=datasetb, // DISP=OLD //TEMPDDDD DSN=TEMPZ, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //SORTOU1 DD DSN=DIFFS, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //TOOLINDD * SELECT FROM(SORTIN1) TO(TEMPDD) DISCARD(SORTOU1) ON(1,2524,CH) ALLDUPS //* Best regards, David Tidy IS Technical Management/SAP-Mf Dow Benelux B.V. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: 18 November 2014 13:59 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Sort to show differences in a 2-file match Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- 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 Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM ML2 on disk
Hervey What is driving the need to move from TAPE to DASD? Which is less cost - Tape or Dasd? Going to dasd will require lots of dasd over time. With tape you can stick it on a shelf. On DASD you can only buy more Which has the High Availability that you need? How stable is your DASD vs. TAPE If you lose you disk file of a tape then you lose everything. If a tape cartridge goes bad, it may be possible to recover it any way. We went pure tapeless in my shop. Recalls and migrations are faster (much faster). But I am needing to add more storage perhaps faster than I did when I just had to purchase tapes. There is less wasted space on virtual tape. I have 300GB tape files defined. But if a file is only 100KB then that is all that is used. I no longer waste a whole 300GB tape. Hope this helps. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hervey Martinez Sent: Tuesday, November 18, 2014 8:13 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Yes, right now we do have a VTS that emulates a 3590 tape but we are looking at using ECKD to house the traditional ML2 files that historically have been on tape. Regards, Hervey -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George Rodriguez Sent: Tuesday, November 18, 2014 9:39 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Hi Hervey, I sort of did that, except that my ML2 was moved to my VTL (Virtual Tape Library). Very smooth transition. Even the recall was very fast... *George Rodriguez* *Specialist II - IT Solutions* *IT Enterprise Applications* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-251* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Eight Consecutive Years* On Tue, Nov 18, 2014 at 9:17 AM, Hervey Martinez hervey.marti...@custserv.com wrote: Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Regards, Hervey Storage Administrator -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
Martin, that is something that might come in handy, but I don't need to know the number of the record at the moment, since I will have the key values. Thanks for the idea - I will have to see how that might be useful... Billy On Tue, Nov 18, 2014 at 10:20 AM, Martin Packer martin_pac...@uk.ibm.com wrote: I'm wondering if the OP actually wants some commentary like at line 1234 in File A there's no match from File B. I know Billy didn't say that but... Cheers, Martin Martin Packer, zChampion, Principal Systems Investigator, Worldwide Banking Center of Excellence, IBM +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker From: Tidy, David (D) dt...@dow.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 18/11/2014 13:32 Subject:Re: Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hi, I have used ICETOOL with DISCARD to do that kind of thing - I think this would give what you want in SORTOU1: //S160SRT EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSGDD SYSOUT=* //SYSOUTDD SYSOUT=* //SORTIN1 DD DSN=dataseta, // DISP=SHR // DD DSN=datasetb, // DISP=OLD //TEMPDDDD DSN=TEMPZ, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //SORTOU1 DD DSN=DIFFS, // DISP=(,PASS), // SPACE=(CYL,(5,2)), // UNIT=SYSALLDA, // RECFM=FB, // LRECL=2524 //TOOLINDD * SELECT FROM(SORTIN1) TO(TEMPDD) DISCARD(SORTOU1) ON(1,2524,CH) ALLDUPS //* Best regards, David Tidy IS Technical Management/SAP-Mf Dow Benelux B.V. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Ashton Sent: 18 November 2014 13:59 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Sort to show differences in a 2-file match Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- 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 Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Thank you and best regards, *Billy Ashton* -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM ML2 on disk
Hervey, I did this at a previous site but it was a very small system. My entire ML2 environment fit quite nicely on 10 mod54 volumes with room to spare. I also had the luxury of being able to perform a complete full volume backup of my entire DASD subsystem (including the ML2 volumes) every night - to a single 3592 tape (well, 2 including the duplex volume). If you are much bigger than that, you will run into various pitfalls like Lizette has mentioned, including where do you go when you start running out of space on your ML2 pool, how do you back your ML2 up (or do you not back it up and hope that it is only unneeded data that somebody is afraid to delete), what is your site's purpose for using ML2, and so on. In the case of my previous job, the ML2 data was pretty much restricted to older GDG generations that were spun off more as a convenience than anything else. Due to the more transitory nature of my ML2 environment, it made sense to put it to disk and eliminate the constant churning of ML2 tape recycling. If you are using yours for more long-term storage where you don't have a constant churn, tape may still be the best bet, and possibly making more use of ML1 for the short-term migration needs might better fit your environment. Rex -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hervey Martinez Sent: Tuesday, November 18, 2014 9:13 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Yes, right now we do have a VTS that emulates a 3590 tape but we are looking at using ECKD to house the traditional ML2 files that historically have been on tape. Regards, Hervey -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George Rodriguez Sent: Tuesday, November 18, 2014 9:39 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Hi Hervey, I sort of did that, except that my ML2 was moved to my VTL (Virtual Tape Library). Very smooth transition. Even the recall was very fast... *George Rodriguez* *Specialist II - IT Solutions* *IT Enterprise Applications* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-251* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Eight Consecutive Years* On Tue, Nov 18, 2014 at 9:17 AM, Hervey Martinez hervey.marti...@custserv.com wrote: Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Regards, Hervey Storage Administrator -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- *Disclaimer: *Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Please be alert for any emails that may ask you for login information or directs you to login via a link. If you believe this message is a phish or aren't sure whether this message is trustworthy, please send the original message as an attachment to 'phish...@timeinc.com'. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM ML2 on disk
W dniu 2014-11-18 o 15:17, Hervey Martinez pisze: Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Why on disk? What is your goal? Some thoughts: * If you have enough disk space you can use ML1 and never migrate to ML2. BTDT. * Virtual tape is some kind of disk, so ML2 on virtual tape is actually on disk. Depending on the solution it can be further migrated to real tape, but it not need to. * The pitfalls are always the same: - disk has limited capacity, you cannot simply add some cartridges. - disk used to be more expensive. For large capacities it is more expensive. Over the years the large definition is growing up, as well as capacities of tapes and disks. - disk can be replicated using host-independent methods - goodfor DR. - HSM tapes can also be replicated, so why disks? - each HW solution has its EOL (end of live). You will have to migrate the data to next HW. HTH -- Radoslaw Skorupka Lodz, Poland --- Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku. This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorized to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. mBank S.A. z siedzib w Warszawie, ul. Senatorska 18, 00-950 Warszawa, www.mBank.pl, e-mail: kont...@mbank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. Wedug stanu na dzie 01.01.2014 r. kapita zakadowy mBanku S.A. (w caoci wpacony) wynosi 168.696.052 zote. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: STGINDEX definition (UNCLASSIFIED)
As far as I know, there is no current manual. The most recent I was able to find is for z/OS 1.1 http://www-05.ibm.com/e-business/linkweb/publications/servlet/pbi.wss?CTY=USFNC=SRXPBL=SA22-7629-00# - Don Imbriale On Wed, Nov 12, 2014 at 9:40 AM, Storr, Lon A CTR USARMY HRC (US) lon.a.storr@mail.mil wrote: Classification: UNCLASSIFIED Caveats: NONE Hello list, What IBM manual specifies the DEFINE parameters to use for STGINDEX? It used to be MVS System Data Set Definition but that manual has been retired. I have been unable to find its new location. Thanks, Alan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
Bill, It is quite simple to get a mismatch file using JOINKEYS. There are a couple of DFSORT smart tricks which shows the usage of Joinkeys Join fields from two files on a key Join fields from two files record-by-record Cartesian join Create files with matching and non-matching records http://www-01.ibm.com/support/docview.wss?rs=114uid=isg3T794 In your case you wanted a little more about validating the data even on a match. So use the following DFSORT JCL which will give you the desired results. I added a 23 byte text to denote how the mismatch occurred. RECORD FOUND ONLY IN F1 RECORD FOUND ONLY IN F2 KEY MATCH DATA MISMATCH You will find this text at the end of each record. ie. at position 2525. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD DISP=SHR,DSN=Your Input 2524 File A //INB DD DISP=SHR,DSN=Your Input 2524 File B //SORTOUT DD SYSOUT=* //SYSINDD * JOINKEYS F1=INA,FIELDS=(1,24,A) JOINKEYS F2=INB,FIELDS=(1,24,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,2524,F2:1,2524,?) OPTION COPY OMIT COND=(5049,001,CH,EQ,C'B',AND, 0025,256,CH,EQ,2549,256,CH,AND, 0281,256,CH,EQ,2805,256,CH,AND, 0537,256,CH,EQ,3061,256,CH,AND, 0793,256,CH,EQ,3317,256,CH,AND, 1049,256,CH,EQ,3573,256,CH,AND, 1305,256,CH,EQ,3829,256,CH,AND, 1561,256,CH,EQ,4085,256,CH,AND, 1817,256,CH,EQ,4341,256,CH,AND, 2073,256,CH,EQ,4597,256,CH,AND, 2329,196,CH,EQ,4853,196,CH) INREC IFOUTLEN=2547, IFTHEN=(WHEN=(5049,1,CH,EQ,C'1'), BUILD=(0001,2524,C'RECORD FOUND ONLY IN F1')), IFTHEN=(WHEN=(5049,1,CH,EQ,C'2'), BUILD=(2525,2524,C'RECORD FOUND ONLY IN F2')), IFTHEN=(WHEN=NONE, BUILD=(1,2524,C'KEY MATCH DATA MISMATCH')) //* //JNF1CNTL DD * OPTION DYNALLOC=(,8) //* //JNF2CNTL DD * OPTION DYNALLOC=(,8) //* Here is a detailed explanation of Joinkeys. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/4.0? Further if you have any questions please let me know Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation Email: skol...@us.ibm.com Phone: 408-927-2187 Tie Line: 457-2187 From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 04:58 AM Subject:Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- 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: HSM ML2 on disk
Lizette, I don't know what is the driving force for this since we converted to a VTS and been using it about 2 years; my manager asked about it and I said, I don't think it can be done then started thinking about housekeeping such as recycling and thought I'd ask. Regards, Hervey -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Tuesday, November 18, 2014 10:27 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Hervey What is driving the need to move from TAPE to DASD? Which is less cost - Tape or Dasd? Going to dasd will require lots of dasd over time. With tape you can stick it on a shelf. On DASD you can only buy more Which has the High Availability that you need? How stable is your DASD vs. TAPE If you lose you disk file of a tape then you lose everything. If a tape cartridge goes bad, it may be possible to recover it any way. We went pure tapeless in my shop. Recalls and migrations are faster (much faster). But I am needing to add more storage perhaps faster than I did when I just had to purchase tapes. There is less wasted space on virtual tape. I have 300GB tape files defined. But if a file is only 100KB then that is all that is used. I no longer waste a whole 300GB tape. Hope this helps. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hervey Martinez Sent: Tuesday, November 18, 2014 8:13 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Yes, right now we do have a VTS that emulates a 3590 tape but we are looking at using ECKD to house the traditional ML2 files that historically have been on tape. Regards, Hervey -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George Rodriguez Sent: Tuesday, November 18, 2014 9:39 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Hi Hervey, I sort of did that, except that my ML2 was moved to my VTL (Virtual Tape Library). Very smooth transition. Even the recall was very fast... *George Rodriguez* *Specialist II - IT Solutions* *IT Enterprise Applications* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-251* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Eight Consecutive Years* On Tue, Nov 18, 2014 at 9:17 AM, Hervey Martinez hervey.marti...@custserv.com wrote: Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Regards, Hervey Storage Administrator -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Please be alert for any emails that may ask you for login information or directs you to login via a link. If you believe this message is a phish or aren't sure whether this message is trustworthy, please send the original message as an attachment to 'phish...@timeinc.com'. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: STGINDEX definition (UNCLASSIFIED)
This would best be addressed by an RCF, but I've already asked for the allocation information for STGINDEX to be dug up and added to the Init Tuning Guide. As I think someone else might have pointed out already, the STGINDEX data set has no purpose if you either use CLPA for every IPL (which implies CVIO) or don't use Checkpoint/Restart and thus don't require VIO journaling in the first place. (These interactions led me to suggest the IT Guide but if you can make a compelling case for better placement I'm sure we'd be all ears.) As the System Data Set Definition book hasn't been published in rather a long time, I'm guessing that: - Most people are using CLPA for every IPL (for which I personally happen to believe there are sound reasons); or, - Most people are not using Checkpoint/Restart; or, - Those who don't fit into one or both niches above simply copy their existing allocations when they need a new STGINDEX data set... ...but what do I know? -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: STGINDEX definition (UNCLASSIFIED)
On 11/18/14 12:29, John Eells wrote: This would best be addressed by an RCF, but I've already asked for the allocation information for STGINDEX to be dug up and added to the Init Tuning Guide. As I think someone else might have pointed out already, the STGINDEX data set has no purpose if you either use CLPA for every IPL (which implies CVIO) or don't use Checkpoint/Restart and thus don't require VIO journaling in the first place. (These interactions led me to suggest the IT Guide but if you can make a compelling case for better placement I'm sure we'd be all ears.) As the System Data Set Definition book hasn't been published in rather a long time, I'm guessing that: - Most people are using CLPA for every IPL (for which I personally happen to believe there are sound reasons); or, - Most people are not using Checkpoint/Restart; or, - Those who don't fit into one or both niches above simply copy their existing allocations when they need a new STGINDEX data set... ...but what do I know? -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com Yes on both your guesses for me. We always perform a CLPA and I eliminated checkpoint/restart here in the late 90's. -- Mark Jacobs Time Customer Service Tampa, FL The standard you walk past is the standard you accept. Lt. Gen. David Morrison, Australian Army Chief -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
Thanks so much, Sri. This works fine to accomplish my first goal...In my correction afterward, I realized I will always have more records in F1 (INA) that will not be in F2 (INB). How can I drop the test for Recs in A, not in B), and only report those records in B that are not in A, and those in A B that mismatch? Billy On Tue, Nov 18, 2014 at 11:45 AM, Sri h Kolusu skol...@us.ibm.com wrote: Bill, It is quite simple to get a mismatch file using JOINKEYS. There are a couple of DFSORT smart tricks which shows the usage of Joinkeys Join fields from two files on a key Join fields from two files record-by-record Cartesian join Create files with matching and non-matching records http://www-01.ibm.com/support/docview.wss?rs=114uid=isg3T794 In your case you wanted a little more about validating the data even on a match. So use the following DFSORT JCL which will give you the desired results. I added a 23 byte text to denote how the mismatch occurred. RECORD FOUND ONLY IN F1 RECORD FOUND ONLY IN F2 KEY MATCH DATA MISMATCH You will find this text at the end of each record. ie. at position 2525. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD DISP=SHR,DSN=Your Input 2524 File A //INB DD DISP=SHR,DSN=Your Input 2524 File B //SORTOUT DD SYSOUT=* //SYSINDD * JOINKEYS F1=INA,FIELDS=(1,24,A) JOINKEYS F2=INB,FIELDS=(1,24,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,2524,F2:1,2524,?) OPTION COPY OMIT COND=(5049,001,CH,EQ,C'B',AND, 0025,256,CH,EQ,2549,256,CH,AND, 0281,256,CH,EQ,2805,256,CH,AND, 0537,256,CH,EQ,3061,256,CH,AND, 0793,256,CH,EQ,3317,256,CH,AND, 1049,256,CH,EQ,3573,256,CH,AND, 1305,256,CH,EQ,3829,256,CH,AND, 1561,256,CH,EQ,4085,256,CH,AND, 1817,256,CH,EQ,4341,256,CH,AND, 2073,256,CH,EQ,4597,256,CH,AND, 2329,196,CH,EQ,4853,196,CH) INREC IFOUTLEN=2547, IFTHEN=(WHEN=(5049,1,CH,EQ,C'1'), BUILD=(0001,2524,C'RECORD FOUND ONLY IN F1')), IFTHEN=(WHEN=(5049,1,CH,EQ,C'2'), BUILD=(2525,2524,C'RECORD FOUND ONLY IN F2')), IFTHEN=(WHEN=NONE, BUILD=(1,2524,C'KEY MATCH DATA MISMATCH')) //* //JNF1CNTL DD * OPTION DYNALLOC=(,8) //* //JNF2CNTL DD * OPTION DYNALLOC=(,8) //* Here is a detailed explanation of Joinkeys. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/4.0? Further if you have any questions please let me know Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation Email: skol...@us.ibm.com Phone: 408-927-2187 Tie Line: 457-2187 From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 04:58 AM Subject:Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- 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 -- Thank you and best regards, *Billy Ashton* -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
Bill, It is quite simple. All you need is to change this statement in SYSIN from JOIN UNPAIRED to this statement (Just add F2 at the end) JOIN UNPAIRED,F2 Thanks, Kolusu DFSORT Development IBM Corporation From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 10:07 AM Subject:Re: Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Thanks so much, Sri. This works fine to accomplish my first goal...In my correction afterward, I realized I will always have more records in F1 (INA) that will not be in F2 (INB). How can I drop the test for Recs in A, not in B), and only report those records in B that are not in A, and those in A B that mismatch? Billy On Tue, Nov 18, 2014 at 11:45 AM, Sri h Kolusu skol...@us.ibm.com wrote: Bill, It is quite simple to get a mismatch file using JOINKEYS. There are a couple of DFSORT smart tricks which shows the usage of Joinkeys Join fields from two files on a key Join fields from two files record-by-record Cartesian join Create files with matching and non-matching records http://www-01.ibm.com/support/docview.wss?rs=114uid=isg3T794 In your case you wanted a little more about validating the data even on a match. So use the following DFSORT JCL which will give you the desired results. I added a 23 byte text to denote how the mismatch occurred. RECORD FOUND ONLY IN F1 RECORD FOUND ONLY IN F2 KEY MATCH DATA MISMATCH You will find this text at the end of each record. ie. at position 2525. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD DISP=SHR,DSN=Your Input 2524 File A //INB DD DISP=SHR,DSN=Your Input 2524 File B //SORTOUT DD SYSOUT=* //SYSINDD * JOINKEYS F1=INA,FIELDS=(1,24,A) JOINKEYS F2=INB,FIELDS=(1,24,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,2524,F2:1,2524,?) OPTION COPY OMIT COND=(5049,001,CH,EQ,C'B',AND, 0025,256,CH,EQ,2549,256,CH,AND, 0281,256,CH,EQ,2805,256,CH,AND, 0537,256,CH,EQ,3061,256,CH,AND, 0793,256,CH,EQ,3317,256,CH,AND, 1049,256,CH,EQ,3573,256,CH,AND, 1305,256,CH,EQ,3829,256,CH,AND, 1561,256,CH,EQ,4085,256,CH,AND, 1817,256,CH,EQ,4341,256,CH,AND, 2073,256,CH,EQ,4597,256,CH,AND, 2329,196,CH,EQ,4853,196,CH) INREC IFOUTLEN=2547, IFTHEN=(WHEN=(5049,1,CH,EQ,C'1'), BUILD=(0001,2524,C'RECORD FOUND ONLY IN F1')), IFTHEN=(WHEN=(5049,1,CH,EQ,C'2'), BUILD=(2525,2524,C'RECORD FOUND ONLY IN F2')), IFTHEN=(WHEN=NONE, BUILD=(1,2524,C'KEY MATCH DATA MISMATCH')) //* //JNF1CNTL DD * OPTION DYNALLOC=(,8) //* //JNF2CNTL DD * OPTION DYNALLOC=(,8) //* Here is a detailed explanation of Joinkeys. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/4.0? Further if you have any questions please let me know Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation Email: skol...@us.ibm.com Phone: 408-927-2187 Tie Line: 457-2187 From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 04:58 AM Subject:Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- 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 -- Thank you and best regards, *Billy Ashton* -- 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: Sort to show differences in a 2-file match
Thanks, Sri, it works exactly as needed. I will have to look up some of these commands to understand them better, but I get the gist of what is happening, and appreciate your help! Have a good afternoon! Billy On Tue, Nov 18, 2014 at 1:13 PM, Sri h Kolusu skol...@us.ibm.com wrote: Bill, It is quite simple. All you need is to change this statement in SYSIN from JOIN UNPAIRED to this statement (Just add F2 at the end) JOIN UNPAIRED,F2 Thanks, Kolusu DFSORT Development IBM Corporation From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 10:07 AM Subject:Re: Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Thanks so much, Sri. This works fine to accomplish my first goal...In my correction afterward, I realized I will always have more records in F1 (INA) that will not be in F2 (INB). How can I drop the test for Recs in A, not in B), and only report those records in B that are not in A, and those in A B that mismatch? Billy On Tue, Nov 18, 2014 at 11:45 AM, Sri h Kolusu skol...@us.ibm.com wrote: Bill, It is quite simple to get a mismatch file using JOINKEYS. There are a couple of DFSORT smart tricks which shows the usage of Joinkeys Join fields from two files on a key Join fields from two files record-by-record Cartesian join Create files with matching and non-matching records http://www-01.ibm.com/support/docview.wss?rs=114uid=isg3T794 In your case you wanted a little more about validating the data even on a match. So use the following DFSORT JCL which will give you the desired results. I added a 23 byte text to denote how the mismatch occurred. RECORD FOUND ONLY IN F1 RECORD FOUND ONLY IN F2 KEY MATCH DATA MISMATCH You will find this text at the end of each record. ie. at position 2525. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD DISP=SHR,DSN=Your Input 2524 File A //INB DD DISP=SHR,DSN=Your Input 2524 File B //SORTOUT DD SYSOUT=* //SYSINDD * JOINKEYS F1=INA,FIELDS=(1,24,A) JOINKEYS F2=INB,FIELDS=(1,24,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,2524,F2:1,2524,?) OPTION COPY OMIT COND=(5049,001,CH,EQ,C'B',AND, 0025,256,CH,EQ,2549,256,CH,AND, 0281,256,CH,EQ,2805,256,CH,AND, 0537,256,CH,EQ,3061,256,CH,AND, 0793,256,CH,EQ,3317,256,CH,AND, 1049,256,CH,EQ,3573,256,CH,AND, 1305,256,CH,EQ,3829,256,CH,AND, 1561,256,CH,EQ,4085,256,CH,AND, 1817,256,CH,EQ,4341,256,CH,AND, 2073,256,CH,EQ,4597,256,CH,AND, 2329,196,CH,EQ,4853,196,CH) INREC IFOUTLEN=2547, IFTHEN=(WHEN=(5049,1,CH,EQ,C'1'), BUILD=(0001,2524,C'RECORD FOUND ONLY IN F1')), IFTHEN=(WHEN=(5049,1,CH,EQ,C'2'), BUILD=(2525,2524,C'RECORD FOUND ONLY IN F2')), IFTHEN=(WHEN=NONE, BUILD=(1,2524,C'KEY MATCH DATA MISMATCH')) //* //JNF1CNTL DD * OPTION DYNALLOC=(,8) //* //JNF2CNTL DD * OPTION DYNALLOC=(,8) //* Here is a detailed explanation of Joinkeys. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/4.0? Further if you have any questions please let me know Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation Email: skol...@us.ibm.com Phone: 408-927-2187 Tie Line: 457-2187 From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 04:58 AM Subject:Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key + 2500 bytes data). I know I can sort them in one step to fix that problem, but then I want to produce a file C of only the mismatches: * Records in A, not in B * Records in B, not in A * Records in A with matching keys to B, but the data in A does not match B I have done this before in CA Easytrieve, but this client does not have that. Is there a way to do this in a SORT step? -- Thank you and best regards, *Billy Ashton* -- 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 -- Thank you and best regards, *Billy Ashton*
Re: STGINDEX definition (UNCLASSIFIED)
Paging datasets for Common and LPA are now optional with z/OS 2.1 (or maybe 1.13?). ISAM LPA was dropped with z/OS 1.6. On Tue, Nov 18, 2014 at 10:15 AM, Don Imbriale don.imbri...@gmail.com wrote: As far as I know, there is no current manual. The most recent I was able to find is for z/OS 1.1 http://www-05.ibm.com/e-business/linkweb/publications/servlet/pbi.wss?CTY=USFNC=SRXPBL=SA22-7629-00# - Don Imbriale On Wed, Nov 12, 2014 at 9:40 AM, Storr, Lon A CTR USARMY HRC (US) lon.a.storr@mail.mil wrote: Classification: UNCLASSIFIED Caveats: NONE Hello list, What IBM manual specifies the DEFINE parameters to use for STGINDEX? It used to be MVS System Data Set Definition but that manual has been retired. I have been unable to find its new location. Thanks, Alan -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
Bill, Glad I could help. In my first response I had the manual link for Joinkeys which explains in detail with examples. Here is that link once again http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/4.0 I would also suggest you remove the IFTHEN statement and the BUILD statement which is checking for File1 mismatches. ie. the following 2 lines can be deleted. IFTHEN=(WHEN=(5049,1,CH,EQ,C'1'), BUILD=(0001,2524,C'RECORD FOUND ONLY IN F1')), Thanks, Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 11/18/2014 11:21:59 AM: From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 11:22 AM Subject: Re: Sort to show differences in a 2-file match Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Thanks, Sri, it works exactly as needed. I will have to look up some of these commands to understand them better, but I get the gist of what is happening, and appreciate your help! Have a good afternoon! Billy On Tue, Nov 18, 2014 at 1:13 PM, Sri h Kolusu skol...@us.ibm.com wrote: Bill, It is quite simple. All you need is to change this statement in SYSIN from JOIN UNPAIRED to this statement (Just add F2 at the end) JOIN UNPAIRED,F2 Thanks, Kolusu DFSORT Development IBM Corporation From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 10:07 AM Subject:Re: Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Thanks so much, Sri. This works fine to accomplish my first goal...In my correction afterward, I realized I will always have more records in F1 (INA) that will not be in F2 (INB). How can I drop the test for Recs in A, not in B), and only report those records in B that are not in A, and those in A B that mismatch? Billy On Tue, Nov 18, 2014 at 11:45 AM, Sri h Kolusu skol...@us.ibm.com wrote: Bill, It is quite simple to get a mismatch file using JOINKEYS. There are a couple of DFSORT smart tricks which shows the usage of Joinkeys Join fields from two files on a key Join fields from two files record-by-record Cartesian join Create files with matching and non-matching records http://www-01.ibm.com/support/docview.wss?rs=114uid=isg3T794 In your case you wanted a little more about validating the data even on a match. So use the following DFSORT JCL which will give you the desired results. I added a 23 byte text to denote how the mismatch occurred. RECORD FOUND ONLY IN F1 RECORD FOUND ONLY IN F2 KEY MATCH DATA MISMATCH You will find this text at the end of each record. ie. at position 2525. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD DISP=SHR,DSN=Your Input 2524 File A //INB DD DISP=SHR,DSN=Your Input 2524 File B //SORTOUT DD SYSOUT=* //SYSINDD * JOINKEYS F1=INA,FIELDS=(1,24,A) JOINKEYS F2=INB,FIELDS=(1,24,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,2524,F2:1,2524,?) OPTION COPY OMIT COND=(5049,001,CH,EQ,C'B',AND, 0025,256,CH,EQ,2549,256,CH,AND, 0281,256,CH,EQ,2805,256,CH,AND, 0537,256,CH,EQ,3061,256,CH,AND, 0793,256,CH,EQ,3317,256,CH,AND, 1049,256,CH,EQ,3573,256,CH,AND, 1305,256,CH,EQ,3829,256,CH,AND, 1561,256,CH,EQ,4085,256,CH,AND, 1817,256,CH,EQ,4341,256,CH,AND, 2073,256,CH,EQ,4597,256,CH,AND, 2329,196,CH,EQ,4853,196,CH) INREC IFOUTLEN=2547, IFTHEN=(WHEN=(5049,1,CH,EQ,C'1'), BUILD=(0001,2524,C'RECORD FOUND ONLY IN F1')), IFTHEN=(WHEN=(5049,1,CH,EQ,C'2'), BUILD=(2525,2524,C'RECORD FOUND ONLY IN F2')), IFTHEN=(WHEN=NONE, BUILD=(1,2524,C'KEY MATCH DATA MISMATCH')) //* //JNF1CNTL DD * OPTION DYNALLOC=(,8) //* //JNF2CNTL DD * OPTION DYNALLOC=(,8) //* Here is a detailed explanation of Joinkeys. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/4.0? Further if you have any questions please let me know Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation Email: skol...@us.ibm.com Phone: 408-927-2187 Tie Line: 457-2187 From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 04:58 AM Subject:Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Hi Sri et al., I have 2 files that I would like to compare, file A has 5 records, and file B only a subset of that - maybe 1000 records. They have the same key (pos 1, len 24), but are not unloaded in key order. The records are 2524 bytes long (24 byte key +
Re: HSM ML2 on disk
What you can do is adjust your ML1 / ML2 threshold size and Small Dataset Set Packing size. Increase them and more datasets go to ML1. Decrease them and they go to ML2. Adjust number of ML1 volumes as needed and you have the capacity for. When we got out VTAPE system, the ML2 recalls were faster than the dasd recalls, so we went down to the bare minimum (VTOC backups). We implements a threshold of 1MB ML1 50KB SDSP and have a few Mod 3s in use. Cut way down on the number of datasets written and volumes to recycle. On Tue, Nov 18, 2014 at 11:11 AM, Hervey Martinez hervey.marti...@custserv.com wrote: Lizette, I don't know what is the driving force for this since we converted to a VTS and been using it about 2 years; my manager asked about it and I said, I don't think it can be done then started thinking about housekeeping such as recycling and thought I'd ask. Regards, Hervey -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler Sent: Tuesday, November 18, 2014 10:27 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Hervey What is driving the need to move from TAPE to DASD? Which is less cost - Tape or Dasd? Going to dasd will require lots of dasd over time. With tape you can stick it on a shelf. On DASD you can only buy more Which has the High Availability that you need? How stable is your DASD vs. TAPE If you lose you disk file of a tape then you lose everything. If a tape cartridge goes bad, it may be possible to recover it any way. We went pure tapeless in my shop. Recalls and migrations are faster (much faster). But I am needing to add more storage perhaps faster than I did when I just had to purchase tapes. There is less wasted space on virtual tape. I have 300GB tape files defined. But if a file is only 100KB then that is all that is used. I no longer waste a whole 300GB tape. Hope this helps. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hervey Martinez Sent: Tuesday, November 18, 2014 8:13 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Yes, right now we do have a VTS that emulates a 3590 tape but we are looking at using ECKD to house the traditional ML2 files that historically have been on tape. Regards, Hervey -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of George Rodriguez Sent: Tuesday, November 18, 2014 9:39 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: HSM ML2 on disk Hi Hervey, I sort of did that, except that my ML2 was moved to my VTL (Virtual Tape Library). Very smooth transition. Even the recall was very fast... *George Rodriguez* *Specialist II - IT Solutions* *IT Enterprise Applications* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-251* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Eight Consecutive Years* On Tue, Nov 18, 2014 at 9:17 AM, Hervey Martinez hervey.marti...@custserv.com wrote: Just wondering if any of you out there have converted your Mainframe's HSM ML2 from tape to disk? If so, what are the pitfalls? A quick search of Google did not yield much; so, just wondering if anybody has done this. Regards, Hervey Storage Administrator -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Please be alert for any emails that may ask you for login information or directs you to login via a link. If you believe this message is a phish or aren't sure whether this message is trustworthy, please send the original message as an attachment to 'phish...@timeinc.com'. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort to show differences in a 2-file match
I figured that, and had removed it. Thanks again for the link, and for your help! Billy On Tue, Nov 18, 2014 at 2:38 PM, Sri h Kolusu skol...@us.ibm.com wrote: Bill, Glad I could help. In my first response I had the manual link for Joinkeys which explains in detail with examples. Here is that link once again http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/4.0 I would also suggest you remove the IFTHEN statement and the BUILD statement which is checking for File1 mismatches. ie. the following 2 lines can be deleted. IFTHEN=(WHEN=(5049,1,CH,EQ,C'1'), BUILD=(0001,2524,C'RECORD FOUND ONLY IN F1')), Thanks, Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 11/18/2014 11:21:59 AM: From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 11:22 AM Subject: Re: Sort to show differences in a 2-file match Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Thanks, Sri, it works exactly as needed. I will have to look up some of these commands to understand them better, but I get the gist of what is happening, and appreciate your help! Have a good afternoon! Billy On Tue, Nov 18, 2014 at 1:13 PM, Sri h Kolusu skol...@us.ibm.com wrote: Bill, It is quite simple. All you need is to change this statement in SYSIN from JOIN UNPAIRED to this statement (Just add F2 at the end) JOIN UNPAIRED,F2 Thanks, Kolusu DFSORT Development IBM Corporation From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 10:07 AM Subject:Re: Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Thanks so much, Sri. This works fine to accomplish my first goal...In my correction afterward, I realized I will always have more records in F1 (INA) that will not be in F2 (INB). How can I drop the test for Recs in A, not in B), and only report those records in B that are not in A, and those in A B that mismatch? Billy On Tue, Nov 18, 2014 at 11:45 AM, Sri h Kolusu skol...@us.ibm.com wrote: Bill, It is quite simple to get a mismatch file using JOINKEYS. There are a couple of DFSORT smart tricks which shows the usage of Joinkeys Join fields from two files on a key Join fields from two files record-by-record Cartesian join Create files with matching and non-matching records http://www-01.ibm.com/support/docview.wss?rs=114uid=isg3T794 In your case you wanted a little more about validating the data even on a match. So use the following DFSORT JCL which will give you the desired results. I added a 23 byte text to denote how the mismatch occurred. RECORD FOUND ONLY IN F1 RECORD FOUND ONLY IN F2 KEY MATCH DATA MISMATCH You will find this text at the end of each record. ie. at position 2525. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD DISP=SHR,DSN=Your Input 2524 File A //INB DD DISP=SHR,DSN=Your Input 2524 File B //SORTOUT DD SYSOUT=* //SYSINDD * JOINKEYS F1=INA,FIELDS=(1,24,A) JOINKEYS F2=INB,FIELDS=(1,24,A) JOIN UNPAIRED REFORMAT FIELDS=(F1:1,2524,F2:1,2524,?) OPTION COPY OMIT COND=(5049,001,CH,EQ,C'B',AND, 0025,256,CH,EQ,2549,256,CH,AND, 0281,256,CH,EQ,2805,256,CH,AND, 0537,256,CH,EQ,3061,256,CH,AND, 0793,256,CH,EQ,3317,256,CH,AND, 1049,256,CH,EQ,3573,256,CH,AND, 1305,256,CH,EQ,3829,256,CH,AND, 1561,256,CH,EQ,4085,256,CH,AND, 1817,256,CH,EQ,4341,256,CH,AND, 2073,256,CH,EQ,4597,256,CH,AND, 2329,196,CH,EQ,4853,196,CH) INREC IFOUTLEN=2547, IFTHEN=(WHEN=(5049,1,CH,EQ,C'1'), BUILD=(0001,2524,C'RECORD FOUND ONLY IN F1')), IFTHEN=(WHEN=(5049,1,CH,EQ,C'2'), BUILD=(2525,2524,C'RECORD FOUND ONLY IN F2')), IFTHEN=(WHEN=NONE, BUILD=(1,2524,C'KEY MATCH DATA MISMATCH')) //* //JNF1CNTL DD * OPTION DYNALLOC=(,8) //* //JNF2CNTL DD * OPTION DYNALLOC=(,8) //* Here is a detailed explanation of Joinkeys. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/4.0? Further if you have any questions please let me know Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation Email: skol...@us.ibm.com Phone: 408-927-2187 Tie Line: 457-2187 From: Bill Ashton bill00ash...@gmail.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 11/18/2014 04:58 AM Subject:Sort to show differences in a 2-file match Sent by:IBM Mainframe Discussion List
Re: STGINDEX definition (UNCLASSIFIED)
Classification: UNCLASSIFIED Caveats: NONE John, Thank you for a pertinent, clear and precise answer to my query. I am quite content to use VIODSN=IGNORE but, because STGINDEX is still utilized at many of the shops I visit, I was looking for (and unable to find) the documentation. Regards, Alan -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John Eells Sent: Tuesday, November 18, 2014 12:30 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: STGINDEX definition (UNCLASSIFIED) This would best be addressed by an RCF, but I've already asked for the allocation information for STGINDEX to be dug up and added to the Init Tuning Guide. As I think someone else might have pointed out already, the STGINDEX data set has no purpose if you either use CLPA for every IPL (which implies CVIO) or don't use Checkpoint/Restart and thus don't require VIO journaling in the first place. (These interactions led me to suggest the IT Guide but if you can make a compelling case for better placement I'm sure we'd be all ears.) As the System Data Set Definition book hasn't been published in rather a long time, I'm guessing that: - Most people are using CLPA for every IPL (for which I personally happen to believe there are sound reasons); or, - Most people are not using Checkpoint/Restart; or, - Those who don't fit into one or both niches above simply copy their existing allocations when they need a new STGINDEX data set... ...but what do I know? -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Classification: UNCLASSIFIED Caveats: NONE -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: STGINDEX definition (UNCLASSIFIED)
You're quite welcome. I also belatedly dug into my old JCL data set and found this: DEFINE CLUSTER - (NAME(SYS1.STGINDEX) - KEYS(12 8) - CYLINDERS(1) - BUFFERSPACE(20480) - RECORDSIZE(2041 2041) - VOLUME(VOLSER) - REUSE) - DATA (CONTROLINTERVALSIZE(2048)) I have absolutely NO idea whether the values above are appropriate or recommended today, if indeed they were ever recommended. In the MVS/XA timeframe, however, I believe they worked. I likely lifted this from a CBIPO at the time (smile). lon.a.storr@mail.mil (Storr, Lon A CTR USARMY HRC , US) wrote: Classification: UNCLASSIFIED Caveats: NONE John, Thank you for a pertinent, clear and precise answer to my query. I am quite content to use VIODSN=IGNORE but, because STGINDEX is still utilized at many of the shops I visit, I was looking for (and unable to find) the documentation. snip -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: STGINDEX definition (UNCLASSIFIED)
John, At one place I used to work they used CHKPT restart a *LOT* (Any job lasting over 1 hour and that was 50 percent of the jobs). We did a CLPA every few weeks although we had to OK it through production(s) control as they knew what was outstanding. Ed On Nov 18, 2014, at 11:29 AM, John Eells wrote: This would best be addressed by an RCF, but I've already asked for the allocation information for STGINDEX to be dug up and added to the Init Tuning Guide. As I think someone else might have pointed out already, the STGINDEX data set has no purpose if you either use CLPA for every IPL (which implies CVIO) or don't use Checkpoint/Restart and thus don't require VIO journaling in the first place. (These interactions led me to suggest the IT Guide but if you can make a compelling case for better placement I'm sure we'd be all ears.) As the System Data Set Definition book hasn't been published in rather a long time, I'm guessing that: - Most people are using CLPA for every IPL (for which I personally happen to believe there are sound reasons); or, - Most people are not using Checkpoint/Restart; or, - Those who don't fit into one or both niches above simply copy their existing allocations when they need a new STGINDEX data set... ...but what do I know? -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com -- 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
Batch Msgid Profile
When I submit a job and do a 'fcquery devn()' or any command using IKJEFT01 it does not show the msgid in the output(sysout). But when I do the 'Profile MSGID' and then resubmit the job it will show the msgid in the sysout. I was wondering were is the default changed to update this for all batch submits? Thanks Joe This communication, including attachments, is confidential, may be subject to legal privileges, and is intended for the sole use of the addressee. Any use, duplication, disclosure or dissemination of this communication, other than by the addressee, is prohibited. If you have received this communication in error, please notify the sender immediately and delete or destroy this communication and all copies. TRVDiscDefault::1201 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Fw: New LPAR and FTPD IND$FILE is saying any file we want is used exclusively by someone else
Cross posted to IBM-MAIN and IBMTCP-L
As it says, whenever we try to PUT a file to this new LPAR via FTPD, the FTP
server always says it is used exclusively by someone else. We've try many
different DSNs, but end up with the same results.
A 'D GRS,RES=(SYSDSN,dataset) shows that the DSNs are in SHARE status. Example:
#yiv8320154862 body {margin:0 0 0 0;padding:0 0 0 0;}#yiv8320154862 td,
#yiv8320154862 div
{font-family:Consolas;font-size:10pt;vertical-align:top;}#yiv8320154862
#yiv8320154862 body {margin:0 0 0 0;padding:0 0 0
0;overflow:hidden;}#yiv8320154862 .yiv8320154862transcript
{background-color:#d2d2d2;}#yiv8320154862 .yiv8320154862messageBlock
{padding-left:10px;padding-right:10px;margin-bottom:3px;}#yiv8320154862
.yiv8320154862message
{padding-left:20px;margin-left:95px;word-wrap:break-word;white-space:pre-wrap;}#yiv8320154862
.yiv8320154862messageCont
{padding-left:20px;margin-left:95px;word-wrap:break-word;white-space:pre-wrap;}#yiv8320154862
.yiv8320154862other
{font-size:11px;color:#1970b0;vertical-align:top;font-weight:bold;font-style:normal;float:left;width:95px;}#yiv8320154862
.yiv8320154862myself
{font-size:11px;color:#22;font-style:normal;font-weight:bold;font-style:normal;float:left;width:95px;}#yiv8320154862
.yiv8320154862otherCont
{font-size:8px;text-align:right;color:#1970b0;font-family:Arial, Lucida
Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left;width:95px;}#yiv8320154862
.yiv8320154862myselfCont
{font-size:8px;text-align:right;color:#22;font-family:Arial, Lucida
Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left;width:95px;}#yiv8320154862
.yiv8320154862system
{font-size:11px;word-wrap:break-word;color:#da8103;font-style:normal;font-weight:normal;white-space:pre-wrap;}#yiv8320154862
.yiv8320154862showTimestamp
{padding-left:20px;font-size:11px;float:right;color:#99;font-style:normal;font-weight:normal;}#yiv8320154862
.yiv8320154862other1
{font-size:11px;color:#ba006e;vertical-align:top;font-weight:bold;font-style:normal;float:left;width:95px;}#yiv8320154862
.yiv8320154862otherCont1
{font-size:8px;text-align:right;color:#ba006e;font-family:Arial, Lucida
Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left;width:95px;}#yiv8320154862
.yiv8320154862other2
{font-size:11px;color:#007670;vertical-align:top;font-weight:bold;font-style:normal;float:left;width:95px;}#yiv8320154862
.yiv8320154862otherCont2
{font-size:8px;text-align:right;color:#007670;font-family:Arial, Lucida
Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left;width:95px;}#yiv8320154862
.yiv8320154862other3
{font-size:11px;color:#3b0256;vertical-align:top;font-weight:bold;font-style:normal;float:left;width:95px;}#yiv8320154862
.yiv8320154862otherCont3
{font-size:8px;text-align:right;color:#3b0256;font-family:Arial, Lucida
Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left;width:95px;}#yiv8320154862
.yiv8320154862other4
{font-size:11px;color:#00512b;vertical-align:top;font-weight:bold;font-style:normal;float:left;width:95px;}#yiv8320154862
.yiv8320154862otherCont4
{font-size:8px;text-align:right;color:#00512b;font-family:Arial, Lucida
Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left;width:95px;}#yiv8320154862
.yiv8320154862other5
{font-size:11px;color:#a91024;vertical-align:top;font-weight:bold;font-style:normal;float:left;width:95px;}#yiv8320154862
.yiv8320154862otherCont5
{font-size:8px;text-align:right;color:#a91024;font-family:Arial, Lucida
Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left;width:95px;}#yiv8320154862
.yiv8320154862other6
{font-size:11px;color:#b8471b;vertical-align:top;font-weight:bold;font-style:normal;float:left;width:95px;}#yiv8320154862
.yiv8320154862otherCont6
{font-size:8px;text-align:right;color:#b8471b;font-family:Arial, Lucida
Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left;width:95px;}#yiv8320154862
.yiv8320154862other7
{font-size:11px;color:#7f1c7d;vertical-align:top;font-weight:bold;font-style:normal;float:left;width:95px;}#yiv8320154862
.yiv8320154862otherCont7
{font-size:8px;text-align:right;color:#7f1c7d;font-family:Arial, Lucida
Grande;font-style:normal;vertical-align:top;font-weight:bold;float:left;width:95px;}#yiv8320154862
.yiv8320154862highlight {background-color:#bed6f8;}#yiv8320154862
.yiv8320154862datestamp
{padding-right:0px;font-size:11px;cursor:default;margin-bottom:3px;background-color:#c0c0c0;width:100%;float:left;text-align:right;color:#ff;font-weight:bold;font-style:italic;}#yiv8320154862
#yiv8320154862chatAlert {float:left;border-bottom:1px solid
#E8D091;padding:6px;width:100%;color:#A5754C;}#yiv8320154862
#yiv8320154862chatAlertImage {float:left;}#yiv8320154862
#yiv8320154862chatAlertText
{float:left;margin-left:6px;margin-right:10px;}#yiv8320154862
#yiv8320154862chatAlertClose
Re: Batch Msgid Profile
The PROFILE you are looking for is the TSO PROF command. Anything you use for TSO can turn this on or off. The easiest thing is to just make it part of the job. In the SYSTSIN DD * section, add this //SYSTSIN DD * PROF MSGID WTPMSG FCQUERY Hope this helps. Lizette -Original Message- From: Murawski,Joseph jmura...@travelers.com Sent: Nov 18, 2014 3:41 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Batch Msgid Profile When I submit a job and do a 'fcquery devn()' or any command using IKJEFT01 it does not show the msgid in the output(sysout). But when I do the 'Profile MSGID' and then resubmit the job it will show the msgid in the sysout. I was wondering were is the default changed to update this for all batch submits? Thanks Joe -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Hillgang Meeting - December 3
The next Hillgang Meeting (z/VM and Linux on z User Group for the DC, Virginia and Maryland area) will be held December 3 at the CA offices in Herndon Virginia. Agenda: - z/VM CPU Pooling Romney White, IBM - Non-disruptively Migrating Linux and z/VM systems Mike McIsaac, FDR - Next Generation Print Solution for Linux on System z Klaus Kristiansen, Ubiquitech - How the NYPD implements technology to fight crime and prevent terrorism James Onalfo, NYPD Deputy Commissioner and CIO, Retired. Register at: http://doodle.com/2ane44qke33v8p9p Abstracts and details at: http://www.vm.ibm.com/events/HILL1214.PDF -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Fw: New LPAR and FTPD IND$FILE is saying any file we want is used exclusively by someone else
FTP does a DISP=OLD allocate. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Fw: New LPAR and FTPD IND$FILE is saying any file we want is used exclusively by someone else
On Tue, 18 Nov 2014 23:49:12 +, Mark Regan wrote:
Cross posted to IBM-MAIN and IBMTCP-L
As it says, whenever we try to PUT a file to this new LPAR via FTPD, the FTP
server always says it is used exclusively by someone else. We've try many
different DSNs, but end up with the same results.
A 'D GRS,RES=(SYSDSN,dataset) shows that the DSNs are in SHARE status. Example:
If while I browse a data set and attempt to overwrite it with FTP, I get:
ftp put GIMFAF.XML temp.test.dataset
200 Port request OK.
125-FTP Server unable to obtain EXCLUSIVE use of user.TEMP.TEST.DATASET which
is held by: 0063 user SHR on SYSDSN
125 Data set user.TEMP.TEST.DATASET is not available
450 Data set user.TEMP.TEST.DATASET is allocated to another job and is
unavailable for STOR command.
ftp quit
MIM messages when I exit Browse say:
MIM1098I Contention with user needs EXCL on LSTC3MVS CN(INTERNAL)
MIM1099I user holds SYSDSN user.TEMP.TEST.DATASET SHR CN(INTERNAL)
***
Does this agree with what you see? It won't overwrite while there's
a SHR ENQ.
#yiv8320154862 body {margin:0 0 0 0;padding:0 0 0 0;}#yiv8320154862 td,
#yiv8320154862 div
{font-family:Consolas;font-size:10pt;vertical-align:top;}#yiv8320154862
#yiv8320154862 body {margin:0 0 0 0;padding:0 0 0
0;overflow:hidden;}#yiv8320154862 .yiv8320154862transcript
{background-color:#d2d2d2;}#yiv8320154862 .yiv8320154862messageBlock
{padding-left:10px;padding-right:10px;margin-bottom:3px;}#yiv8320154862
.yiv8320154862message
{padding-left:20px;margin-left:95px;word-wrap:break-word;white-space:pre-
Curse you, LISTSERV!
-- gil
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Batch Msgid Profile
On Tue, 18 Nov 2014 16:50:56 -0700, Lizette Koehler wrote: The PROFILE you are looking for is the TSO PROF command. Anything you use for TSO can turn this on or off. The easiest thing is to just make it part of the job. In the SYSTSIN DD * section, add this //SYSTSIN DD * PROF MSGID WTPMSG FCQUERY Hope this helps. And then it stays that way until the next job? And if two jobs run concurrently, they get to fight with each other? When does it get written back to RACF/UADS? Immediately when the command is issued? At job (step) termination? Other (specify)? When is it sensed by other jobs? At LOGON or step initiation? Immediately? Other (specify)? There's something wrong with this design: an underlying assumption that no user will have two concurrent instances of the TMP, and probably that the TMP will only be used for interactive TSO sessions. It's TSO. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Does CPOOL use the first few bytes of a free cell for its own purposes?
I am trying to shoot a bug. I *know* I have a design/logic error in that I am referencing a cell *after* returning it with CPOOL FREE. But I am trying to figure out if I have another error also. Does anyone know: does CPOOL FREE use the first four or so bytes of a cell for its own purposes following FREE? In other words, does CPOOL FREE clobber the first few bytes of a cell? Maybe with a cell or related address? CPOOL BUILD,PCELLCT=(R2),SCELLCT=(R4),+ CSIZE=(R3),SP=SP_ToUse,KEY=0, + LOC=(31,31),CPID=AV_Cell_Recd, + MF=(E,CPOOLMFL) CPOOL FREE,CPID=AV_Cell_Recd,CELL=(R8),REGS=USE Charles -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does CPOOL use the first few bytes of a free cell for its own purposes?
Charles: Why would the contents of a free CPOOL element be of any value to you? It's been a very long time ago, but when I implemented the quickcell pool functions for the first release of MVS back in 1973, the first word of an individual pool element was a link address to the next free cell in the pool, as I remember. So, yes, it's fair to say that once you free a pool element it's contents won't be expected to have any relationship to what it contained when you owned it. Mike Myers On 11/18/2014 08:32 PM, Charles Mills wrote: I am trying to shoot a bug. I *know* I have a design/logic error in that I am referencing a cell *after* returning it with CPOOL FREE. But I am trying to figure out if I have another error also. Does anyone know: does CPOOL FREE use the first four or so bytes of a cell for its own purposes following FREE? In other words, does CPOOL FREE clobber the first few bytes of a cell? Maybe with a cell or related address? CPOOL BUILD,PCELLCT=(R2),SCELLCT=(R4),+ CSIZE=(R3),SP=SP_ToUse,KEY=0, + LOC=(31,31),CPID=AV_Cell_Recd, + MF=(E,CPOOLMFL) CPOOL FREE,CPID=AV_Cell_Recd,CELL=(R8),REGS=USE 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
Re: Does CPOOL use the first few bytes of a free cell for its own purposes?
I am trying to shoot a bug. I *know* I have a design/logic error in that I am referencing a cell *after* returning it with CPOOL FREE. But I am trying to figure out if I have another error also. Does anyone know: does CPOOL FREE use the first four or so bytes of a cell for its own purposes following FREE? In other words, does CPOOL FREE clobber the first few bytes of a cell? Maybe with a cell or related address? CPOOL BUILD,PCELLCT=(R2),SCELLCT=(R4),+ CSIZE=(R3),SP=SP_ToUse,KEY=0, + LOC=(31,31),CPID=AV_Cell_Recd, + MF=(E,CPOOLMFL) CPOOL FREE,CPID=AV_Cell_Recd,CELL=(R8),REGS=USE The first 4 bytes of a freed cell contains the address of the next cell on the available cell chain. The next 12 bytes after that may also get modified by CPOOL FREE if you are using the undocumented DIAGxx TRAP which searches the available chain to see if the cell you are trying to free is already freed. Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Does CPOOL use the first few bytes of a free cell for its own purposes?
Hey Jim: Thanks for letting me know that my memory still works. I hadn't found the mapping macro for the quickcell element yet and was going on memories dating back to what I coded in 1973. Thank you very much for the corroboration. An old system programmer... Mike On 11/18/2014 10:17 PM, Jim Mulder wrote: I am trying to shoot a bug. I *know* I have a design/logic error in that I am referencing a cell *after* returning it with CPOOL FREE. But I am trying to figure out if I have another error also. Does anyone know: does CPOOL FREE use the first four or so bytes of a cell for its own purposes following FREE? In other words, does CPOOL FREE clobber the first few bytes of a cell? Maybe with a cell or related address? CPOOL BUILD,PCELLCT=(R2),SCELLCT=(R4),+ CSIZE=(R3),SP=SP_ToUse,KEY=0, + LOC=(31,31),CPID=AV_Cell_Recd, + MF=(E,CPOOLMFL) CPOOL FREE,CPID=AV_Cell_Recd,CELL=(R8),REGS=USE The first 4 bytes of a freed cell contains the address of the next cell on the available cell chain. The next 12 bytes after that may also get modified by CPOOL FREE if you are using the undocumented DIAGxx TRAP which searches the available chain to see if the cell you are trying to free is already freed. Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY -- 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: Does CPOOL use the first few bytes of a free cell for its own purposes?
Thanks. That was beginning to be my suspicion. Again, yes, I know that referencing the freed cell is a bad idea/flaw/bug. I am trying to figure out why my code does not behave as I would guess it would, given the mistake that I know/think I have made. You know how debugging is -- a search for the truth in a collection of incomplete evidence. And the answer is that the cell does not contain my data any more. Thanks again, Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jim Mulder Sent: Tuesday, November 18, 2014 7:18 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does CPOOL use the first few bytes of a free cell for its own purposes? I am trying to shoot a bug. I *know* I have a design/logic error in that I am referencing a cell *after* returning it with CPOOL FREE. But I am trying to figure out if I have another error also. Does anyone know: does CPOOL FREE use the first four or so bytes of a cell for its own purposes following FREE? In other words, does CPOOL FREE clobber the first few bytes of a cell? Maybe with a cell or related address? CPOOL BUILD,PCELLCT=(R2),SCELLCT=(R4),+ CSIZE=(R3),SP=SP_ToUse,KEY=0, + LOC=(31,31),CPID=AV_Cell_Recd, + MF=(E,CPOOLMFL) CPOOL FREE,CPID=AV_Cell_Recd,CELL=(R8),REGS=USE The first 4 bytes of a freed cell contains the address of the next cell on the available cell chain. The next 12 bytes after that may also get modified by CPOOL FREE if you are using the undocumented DIAGxx TRAP which searches the available chain to see if the cell you are trying to free is already freed. -- 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: Does CPOOL use the first few bytes of a free cell for its own purposes?
Thanks for letting me know that my memory still works. I hadn't found the mapping macro for the quickcell element yet and was going on memories dating back to what I coded in 1973. Thank you very much for the corroboration. An old system programmer... CPOOL was a new service in MVS/XA. By quickcell, you may be referring to the services provided by the CETCELL/FREECELL macros (modules IEAVGTCL/IEAVFRCL), and BLDCPOOL and DELCPOOL macros. These macros and code are still in the system, although no longer documented. SYS1.MODGEN(IHACPAB) is the mapping for the pool anchor. There was no mapping macro for the pool element - the link field offset of 0 is coded as an EQU in each module that needs it. Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
JES/328X Installation Manual
Dear all, Who can send me electronic copy for 5785-BAZ JES/328X Print Facility Program Description and Operators Manual , SH20-7174. I cannot find on internet. Regards Jose Munoz -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
