Re: 64bit
You're right. uchar but no uint. You got my drift. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of David Crayford Sent: Friday, October 17, 2014 7:30 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 64bit On 18/10/2014 5:19 AM, Charles Mills wrote: > In addition to this sort of gotcha be aware of the inherent/documented > differences. In 32-bit C, for example, a uint and a size_t are the > same thing -- you can pass & of a size_t to a method with uint * in > its prototype; but in AMODE 64 C they are not the same thing and you cannot. What's uint? I can't find it in stdint.h. I can however find uint32_t, uint64_t etc which explicitly state the number of bits in the type definition name. I always use the typedefs in stdint.h as a matter of course (cstdint for C++). There's also a __ptr32 definition. The only issue I run into with 64bit C/C++ code is having to deal with assembler service routines that were written for 32bit. And you can't just recompile with a different compiler option to make them 64bit! -- 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: 64bit
On 18/10/2014 5:19 AM, Charles Mills wrote: In addition to this sort of gotcha be aware of the inherent/documented differences. In 32-bit C, for example, a uint and a size_t are the same thing -- you can pass & of a size_t to a method with uint * in its prototype; but in AMODE 64 C they are not the same thing and you cannot. What's uint? I can't find it in stdint.h. I can however find uint32_t, uint64_t etc which explicitly state the number of bits in the type definition name. I always use the typedefs in stdint.h as a matter of course (cstdint for C++). There's also a __ptr32 definition. The only issue I run into with 64bit C/C++ code is having to deal with assembler service routines that were written for 32bit. And you can't just recompile with a different compiler option to make them 64bit! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 64bit
Most likely not of any use to you, but have you looked at GnuCOBOL? It was OpenCOBOL, but has been taken over by GNU / FSF as one of their languages. It works by translating COBOL to C and then compiling the C code. If nothing else, it might give you some ideas. http://sourceforge.net/projects/open-cobol/ . Of course, it does not run on z/OS, but does on Linux and Windows. So you could try it out by downloading something to your PC and using GnuCOBOL on it. Something like: cobc -std=ibm -C -fsign-ebcdic cobol-source.cbl I actually tried this on a small number of little program from my shop. The source compiled. I don't know if it would actually _work_ because I didn't have all the necessary file to actually run anything. On Fri, Oct 17, 2014 at 3:55 PM, Scott Ford <0006f84450fa-dmarc-requ...@listserv.ua.edu> wrote: > Charles, > > The more I see the more I want/will convert the Cobol code to C or C++. > > Scott ford > www.identityforge.com > from my IPAD > > > > >> On Oct 17, 2014, at 4:46 PM, Charles Mills wrote: >> >> COBOL can talk to any legal assembler program. But it can only manipulate >> data below the bar. >> >> Scenario one: COBOL program creates records in memory and passes them to >> assembler program, which does something with them that involves above the >> bar memory. That will work. >> >> Scenario two: COBOL program calls assembler code which retrieves data from >> above the bar and copies it into a buffer provided by the COBOL program. >> That will work. >> >> Scenario three: COBOL program calls assembler code which finds data above >> the bar and passes its address to the COBOL program. That will not work. >> (Technically, that would sort-of work, but the COBOL program would have no >> way of "seeing" the data and manipulating it. All it could do is pass the >> address to some other assembler program.) >> >> Charles >> >> -Original Message- >> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On >> Behalf Of Scott Ford >> Sent: Friday, October 17, 2014 12:37 PM >> To: IBM-MAIN@LISTSERV.UA.EDU >> Subject: Re: 64bit >> >> All, >> >> C and C++ I know supports it , If my old eyes read correctly. Hlasm does. If >> I am just using 64bit storage to store/retrieve data that should work? >> >> Scott ford >> www.identityforge.com >> from my IPAD >> >> >> >> >>> On Oct 17, 2014, at 2:11 PM, Don Poitras wrote: >>> >>> In article >> you >> wrote: I was interpreting Scott's question as how can above-the-bar memory be used directly by COBOL. >>> >>> Which is why Peter was confused. No such support currently exists. >>> While there's been a lot of talk about AMODE 64 COBOL, it's not there >> today. >>> > On Fri, Oct 17, 2014 at 5:06 AM, Peter Relson wrote: > Perhaps I misunderstood the problem. > > Whether called by the system, Cobol, or anything else, an HLASM > routine can get any storage that its authorization allows it to. > That includes storage below the bar, above the bar, and in data > spaces. The routine can switch in and out of any AMODE that its > RMODE allows (e.g., an RMODE 31 program better not "SAM24"). > > The caller needs to provide parameters in the form that the HLASM > routine wants (or conversely the HLASM routine needs to accommodate > the parameters that the caller provides; this is probably the easier >> approach). > > If you need the calling routine to then be able to deal with the > storage above 2G, that's a different matter entirely. > > Peter Relson > z/OS Core Technology Design >>> >>> -- >>> Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive >>> sas...@sas.com (919) 531-5637Cary, NC 27513 >>> >>> -- >>> 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 -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! <>< John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to quietly terminate not detached subtask
On Fri, 17 Oct 2014 12:37:17 -0500, Victor Gil wrote: >Thanks! This would be a totally different ball game as it brings an extra >layer of communication between the address spaces. This would also require >extra "authorization" which wouldn't fly well with the management Yes, it requires extra communication. But it solves your problem in a clean way :) I'm not sure in what sense you mean "extra authorization". It does not require any form of system authorization (APF, supervisor state, system key), though it might require that the user ID that the main address space is running under has an OMVS identity (UNIX UID and GID) defined. But the ID may already be set up that way. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to quietly terminate not detached subtask
On Fri, 17 Oct 2014 10:56:39 -0500, Paul Gilmartin wrote: >fork() should return a descriptor that the parent can use to kill() the child. >I don't know that meets the "quietly" requirement. The child could trap >the signal and terminate in an orderly manner. (Does execmvs() return >a PID?) In his design the parent is never killing the child, and can't do so, as it doesn't know the child exists. The parent is trying to terminate, and the system is then killing the parent because it hasn't killed the child. Getting a new address space involved solves that problem because nothing prevents the parent process from terminating while the child process is still active. And eventually the child can decide to go away on its own. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 64bit
I have just converted a large C program from 31-bit to 64-bit because MQ Series Version 8 now supports LP64. There are 28 modules and no Metal C code as this app runs on many different platforms. All called assembler subroutines, z/OS-only, are now AMODE 64 and a number do switches internally to AMODE 31 in order to call 3rd party software that is either RMODE 24 or 31 (because of old I/O, etc.) All this works fine at this point even loading and walking through AMODE 31 load modules that are just DSECTs with internal pointers to various control blocks. The DSECT modules are also 3rd party so we can't change them. Calling the executables via the assembler code requires you to use __ptr32 in the C code for the variables to be passed to the 3rd party code and then using only the 2nd word of each entry in the parm list passed to the AMODE 64 assembler routine for restructuring the parm list for the 3rd party software. So far this is working better than originally anticipated and was quite simple to implement. There were some odd changes to address the DSECT Load modules and internal blocks as the original code worked on z/OS AMODE 31 and zLinux, multiple UNIX environments, Wintel Linux and Windows in AMODE 64. John T. Abell President International Software Products Tel: 800-295-7608 Ext: 224 International: 1-416-593-5578 Ext: 224 Fax: 800-295-7609 International: 1-416-593-5579 E-mail: john.ab...@intnlsoftwareproducts.com Web: www.ispinfo.com This email may contain confidential and privileged material for the sole use of the intended recipient(s). Any review, use, retention, distribution or disclosure by others is strictly prohibited. If you are not the intended recipient (or authorized to receive on behalf of the named recipient), please contact the sender by reply email and delete all copies of this message. Also,email is susceptible to data corruption, interception, tampering, unauthorized amendment and viruses. We only send and receive emails on the basis that we are not liable for any such corruption, interception, tampering, amendment or viruses or any consequence thereof. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Friday, October 17, 2014 5:19 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 64bit These remarks of mine may produce some reactions ... I have not done any 64-bit work in C/C++, but the number of "this is not available in AMODE 64" and "this behaves differently in AMODE 64" notes would give me pause. I have a requirement/enhancement that would be perfect for above-the-bar from C++ but I am nervous about undertaking it that way for that reason. There seem to be in general so many unexpected interdependencies among various C/LE options. I needed to interface to the GSK encryption. That required POSIX(ON). All went well until final testing, when a stupid little utility program that was supposed to be loadable from COBOL suddenly was not. Why not? COBOL can't load a POSIX(ON) C program. Really? Really. In addition to this sort of gotcha be aware of the inherent/documented differences. In 32-bit C, for example, a uint and a size_t are the same thing -- you can pass & of a size_t to a method with uint * in its prototype; but in AMODE 64 C they are not the same thing and you cannot. Don't get me wrong. I love XLC. Could not do what I am doing without it. But AMODE 64 C gives me pause. I would love to hear that I am wrong. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Scott Ford Sent: Friday, October 17, 2014 1:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 64bit Charles, The more I see the more I want/will convert the Cobol code to C or C++. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN --- This email is free from viruses and malware because avast! Antivirus protection is active. http://www.avast.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: STP
This is a common misconception - that STP is somehow dependent on the NTP server(s) used to synchronize to an ETS for STP availability. If an NTP server is configured on the PTS or BTS server then STP will synchronise time to the ETS. However, there is no impact to the STP CTN if there is an NTP failure. It just means that STP is longer synchronising to the ETS and so STP time will gradually lose accuracy as the TOD on the current time server (CTS - stratum 1) CPC drifts. However, if the NTP server was a stratum 1, STP will "calibrate" to the NTP server and use fine/base steering to remain accurate. Regardless of the stratum level of the NTP server, the STP CTS (either the PTS or BTS) is stratum 1. Regards, George Kozakos IBM Mainframe Discussion List wrote on 17/10/2014 10:03:14 AM: > From: Scott Chapman > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 17/10/2014 10:03 AM > Subject: Re: STP > Sent by: IBM Mainframe Discussion List > > FWIW: we use STP, and use a couple of HMCs as the NTP source for > STP, with the HMC servers themselves getting time from our stratum 1 > NTP servers which use a GPS receiver for the time. That makes the > HMC stratum 2. And if z/OS was then serving the time via NTP, I > believe z/OS would be considered stratum 3. But I see little point > in that: there's more stratum 2 servers distributed around our network. > > Of course one may reasonably argue that STP could/should point > directly to the stratum 1 NTP server. Which is probably a fair > point. But I tend to be biased against making my mainframe > configuration directly dependent on something I don't have direct > control over. That's just one of my little quirks... > > Scott -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 64bit
Charles: I couldn't have said it any better. I also want to use 64bit as I eluded to in my previous note. As I read thru the MVS Extended Addressability Guide I am trying to understand restrictions, especially when you in a mixed Language environment. I have done a lot of looking in the LE Language Guide, Ref and ILC guides and see bits and pieces of 64bit examples and mixed ( working ) language examples. John Ehrman’s 64bit Share.org presentation was excellent as was Ed’s. I am not bashing IBM, but I don't understand why there isn't more information in both areas. I feel there are probably more areas. Mostly because the dinosaurs like us are retiring and information is being lost. Regards, Scott www.identityforge.com - www.idmworks.com From: Charles Mills Sent: Friday, October 17, 2014 5:19 PM To: IBM-MAIN@LISTSERV.UA.EDU These remarks of mine may produce some reactions ... I have not done any 64-bit work in C/C++, but the number of "this is not available in AMODE 64" and "this behaves differently in AMODE 64" notes would give me pause. I have a requirement/enhancement that would be perfect for above-the-bar from C++ but I am nervous about undertaking it that way for that reason. There seem to be in general so many unexpected interdependencies among various C/LE options. I needed to interface to the GSK encryption. That required POSIX(ON). All went well until final testing, when a stupid little utility program that was supposed to be loadable from COBOL suddenly was not. Why not? COBOL can't load a POSIX(ON) C program. Really? Really. In addition to this sort of gotcha be aware of the inherent/documented differences. In 32-bit C, for example, a uint and a size_t are the same thing -- you can pass & of a size_t to a method with uint * in its prototype; but in AMODE 64 C they are not the same thing and you cannot. Don't get me wrong. I love XLC. Could not do what I am doing without it. But AMODE 64 C gives me pause. I would love to hear that I am wrong. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Scott Ford Sent: Friday, October 17, 2014 1:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 64bit Charles, The more I see the more I want/will convert the Cobol code to C or C++. -- 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: Query for Destination z article: mistakes -- teachable/learnable moments
What comes to mind is that I have yet to see a single mistake to cause something terrible to happen, it seem to always be a conjunction of events; just a silly example is the program that was leaving behind orphaned storage every time it is executed, it wouldn't be a huge deal if orphaned storage would have been monitored closely and notice that before no more common storage was available. My advice, try not to leave small problems hanging, they are bound to be just a small part of a bigger problem. Leo -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Gabe Goldberg Sent: Friday, October 17, 2014 3:37 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Query for Destination z article: mistakes -- teachable/learnable moments There are at least a bazillion (Google tells me) quotes about mistakes. "So go ahead and make mistakes. Make all you can. Because that's where you will find success. On the far side of failure." Thomas J. Watson, Sr. "It is much easier to be critical than to be correct." Benjamin Disraeli "Anyone who has never made a mistake has never tried anything new." Albert Einstein Anyone who's ever accomplished anything -- done anything -- has made mistakes. What have your mainframe career mistakes, teachable/learnable moments, painful learning experiences, hard-knocks lessons, etc., been? What errors have you seen or heard (and believed!) others make? What were the consequences and, most important, what did you learn? These might be technical or job/career related. What would you go back and tell your younger self to do or not do? To do differently? What mistakes would you help others avoid? Please be (relatively) brief; if I need more information, I'll ask. And please copy me directly so replies aren't buried in list digests. Thanks... -- Gabriel Goldberg, Computers and Publishing, Inc. g...@gabegold.com 3401 Silver Maple Place, Falls Church, VA 22042 (703) 204-0433 LinkedIn: http://www.linkedin.com/in/gabegoldTwitter: GabeG0 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to quietly terminate not detached subtask
When a load module running under a TCB connects to DB2 for the 1st time, it creates within DB2 something called an ASCE, if no other TCB in the address space has previously connected. That represents the address space connection. The next thing that is created is an ACE, that represents the TCB. If I remember correctly, the connection info for the TCB is hung off the SSAT table, anchored off the TCB. When CICS needs to talk to DB2, it switches the request to one of the DB2 TCB's defined in the CICS region for that purpose. The DB2 DDF address space uses SRB mode code to talk to DB2, but that is the only non-TCB mode DB2 connection that I am aware of. The relationship of the TCB to the ACE is what makes it hang together. There is/are vendor code out there that talks to more than one DB2 system from the same TCB, but they play the usual vendor games to make it happen. Not something for the faint of heart to try. If he needs to talk to more than one DB2 system from the same address space, he is heading down the right path. I thought the earlier suggestion of creating another address space was spot on, but the op stated his management team was comprised of technical wizards that would object. --Dave On 10/17/2014 4:27 PM, Tony Harminc wrote: On 17 October 2014 15:43, Victor Gil wrote: If the CONNECT statement is successful: • All open cursors are closed, all prepared statements are destroyed, and all locks are released from the previous application server. • The application process is disconnected from its previous application server, if any, and connected to the identified application server. • The actual name of the application server (not an alias) is placed in the CURRENT SERVER special register. • Information about the application server is placed in the SQLERRP field of the SQLCA. If the application server is an IBM® product, the information has the form pppvvrrm, It's not obvious to me that a DB2 "application process" is a TCB. Sure, maybe it is, but then you'd think they'd call it that, or perhaps a task. "An application process" sounds more to me like an abstraction for DB2's purposes of some kind of run unit - process, thread, task, address space. Think about CICS; surely it runs multiple users, each with quite different DB2 contexts, under a single TCB? It must have some way of maintaining an "application process" for each user. What about Language Environment enclaves? This sounds like something similar; by default an MVS TCB is its own enclave, but it can certainly support more than one by using the LE anchor block support. But I really know almost nothing about DB2, and it's been decades since I last used its closest relative, SQL/DS, so I may be quite full of it. Tony H. -- 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 to quietly terminate not detached subtask
On 17 October 2014 15:43, Victor Gil wrote: > If the CONNECT statement is successful: > • All open cursors are closed, all prepared statements are destroyed, > and all locks are released from the previous application server. > • The application process is disconnected from its previous application > server, if any, and connected to the identified application server. > • The actual name of the application server (not an alias) is placed in > the CURRENT SERVER special register. > • Information about the application server is placed in the SQLERRP > field of the SQLCA. If the application server is an IBM® product, the > information has the form pppvvrrm, It's not obvious to me that a DB2 "application process" is a TCB. Sure, maybe it is, but then you'd think they'd call it that, or perhaps a task. "An application process" sounds more to me like an abstraction for DB2's purposes of some kind of run unit - process, thread, task, address space. Think about CICS; surely it runs multiple users, each with quite different DB2 contexts, under a single TCB? It must have some way of maintaining an "application process" for each user. What about Language Environment enclaves? This sounds like something similar; by default an MVS TCB is its own enclave, but it can certainly support more than one by using the LE anchor block support. But I really know almost nothing about DB2, and it's been decades since I last used its closest relative, SQL/DS, so I may be quite full of it. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 64bit
These remarks of mine may produce some reactions ... I have not done any 64-bit work in C/C++, but the number of "this is not available in AMODE 64" and "this behaves differently in AMODE 64" notes would give me pause. I have a requirement/enhancement that would be perfect for above-the-bar from C++ but I am nervous about undertaking it that way for that reason. There seem to be in general so many unexpected interdependencies among various C/LE options. I needed to interface to the GSK encryption. That required POSIX(ON). All went well until final testing, when a stupid little utility program that was supposed to be loadable from COBOL suddenly was not. Why not? COBOL can't load a POSIX(ON) C program. Really? Really. In addition to this sort of gotcha be aware of the inherent/documented differences. In 32-bit C, for example, a uint and a size_t are the same thing -- you can pass & of a size_t to a method with uint * in its prototype; but in AMODE 64 C they are not the same thing and you cannot. Don't get me wrong. I love XLC. Could not do what I am doing without it. But AMODE 64 C gives me pause. I would love to hear that I am wrong. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Scott Ford Sent: Friday, October 17, 2014 1:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 64bit Charles, The more I see the more I want/will convert the Cobol code to C or C++. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM Recall process
HSM will do the checking for you to minimize the number of tape mounts. No need to sort. IIRC, it will also sort the datasets by block addr to minimize rewind time. HTH, This should be an easy question. I want to recall 5000 datasets. Do I still need to 1) List all datasets from an HLIST 2) Sort that list on the Migrate Volser 3) Send in the recalls based on the collection of datasets based on which migrate volume they are on? Or can I enter all of the requests and HSM is smart enough to know to recall all of the datasets from the same tape and not mount tapes as it reads the DSNs in FIFO? The helpful manual is not really helping. Lizette -- 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: 64bit
Charles, The more I see the more I want/will convert the Cobol code to C or C++. Scott ford www.identityforge.com from my IPAD > On Oct 17, 2014, at 4:46 PM, Charles Mills wrote: > > COBOL can talk to any legal assembler program. But it can only manipulate > data below the bar. > > Scenario one: COBOL program creates records in memory and passes them to > assembler program, which does something with them that involves above the > bar memory. That will work. > > Scenario two: COBOL program calls assembler code which retrieves data from > above the bar and copies it into a buffer provided by the COBOL program. > That will work. > > Scenario three: COBOL program calls assembler code which finds data above > the bar and passes its address to the COBOL program. That will not work. > (Technically, that would sort-of work, but the COBOL program would have no > way of "seeing" the data and manipulating it. All it could do is pass the > address to some other assembler program.) > > Charles > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Scott Ford > Sent: Friday, October 17, 2014 12:37 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: 64bit > > All, > > C and C++ I know supports it , If my old eyes read correctly. Hlasm does. If > I am just using 64bit storage to store/retrieve data that should work? > > Scott ford > www.identityforge.com > from my IPAD > > > > >> On Oct 17, 2014, at 2:11 PM, Don Poitras wrote: >> >> In article > you > wrote: >>> I was interpreting Scott's question as how can above-the-bar memory >>> be used directly by COBOL. >> >> Which is why Peter was confused. No such support currently exists. >> While there's been a lot of talk about AMODE 64 COBOL, it's not there > today. >> On Fri, Oct 17, 2014 at 5:06 AM, Peter Relson wrote: Perhaps I misunderstood the problem. Whether called by the system, Cobol, or anything else, an HLASM routine can get any storage that its authorization allows it to. That includes storage below the bar, above the bar, and in data spaces. The routine can switch in and out of any AMODE that its RMODE allows (e.g., an RMODE 31 program better not "SAM24"). The caller needs to provide parameters in the form that the HLASM routine wants (or conversely the HLASM routine needs to accommodate the parameters that the caller provides; this is probably the easier > approach). If you need the calling routine to then be able to deal with the storage above 2G, that's a different matter entirely. Peter Relson z/OS Core Technology Design >> >> -- >> Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive >> sas...@sas.com (919) 531-5637Cary, NC 27513 >> >> -- >> For IBM-MAIN subscribe / signoff / archive access instructions, send >> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 64bit
COBOL can talk to any legal assembler program. But it can only manipulate data below the bar. Scenario one: COBOL program creates records in memory and passes them to assembler program, which does something with them that involves above the bar memory. That will work. Scenario two: COBOL program calls assembler code which retrieves data from above the bar and copies it into a buffer provided by the COBOL program. That will work. Scenario three: COBOL program calls assembler code which finds data above the bar and passes its address to the COBOL program. That will not work. (Technically, that would sort-of work, but the COBOL program would have no way of "seeing" the data and manipulating it. All it could do is pass the address to some other assembler program.) Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Scott Ford Sent: Friday, October 17, 2014 12:37 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 64bit All, C and C++ I know supports it , If my old eyes read correctly. Hlasm does. If I am just using 64bit storage to store/retrieve data that should work? Scott ford www.identityforge.com from my IPAD > On Oct 17, 2014, at 2:11 PM, Don Poitras wrote: > > In article you wrote: >> I was interpreting Scott's question as how can above-the-bar memory >> be used directly by COBOL. > > Which is why Peter was confused. No such support currently exists. > While there's been a lot of talk about AMODE 64 COBOL, it's not there today. > >>> On Fri, Oct 17, 2014 at 5:06 AM, Peter Relson wrote: >>> Perhaps I misunderstood the problem. >>> >>> Whether called by the system, Cobol, or anything else, an HLASM >>> routine can get any storage that its authorization allows it to. >>> That includes storage below the bar, above the bar, and in data >>> spaces. The routine can switch in and out of any AMODE that its >>> RMODE allows (e.g., an RMODE 31 program better not "SAM24"). >>> >>> The caller needs to provide parameters in the form that the HLASM >>> routine wants (or conversely the HLASM routine needs to accommodate >>> the parameters that the caller provides; this is probably the easier approach). >>> >>> If you need the calling routine to then be able to deal with the >>> storage above 2G, that's a different matter entirely. >>> >>> Peter Relson >>> z/OS Core Technology Design > > -- > Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive > sas...@sas.com (919) 531-5637Cary, NC 27513 > > -- > 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 to quietly terminate not detached subtask
Well, I told you I wasn't a DB2 expert! You can't share the other program's existing connection? Not do a new CONNECT, but just do whatever you have to do? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Victor Gil Sent: Friday, October 17, 2014 12:44 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How to quietly terminate not detached subtask Not reasonable at all! Quoting from the DB2 manual [watch the wrap] http://www-01.ibm.com/support/knowledgecenter/SSEPEK_10.0.0/com.ibm.db2z10.doc.sqlref/src/tpc/db2z_sql_connect.dita Successful Connection: If the CONNECT statement is successful: • All open cursors are closed, all prepared statements are destroyed, and all locks are released from the previous application server. • The application process is disconnected from its previous application server, if any, and connected to the identified application server. • The actual name of the application server (not an alias) is placed in the CURRENT SERVER special register. • Information about the application server is placed in the SQLERRP field of the SQLCA. If the application server is an IBM® product, the information has the form pppvvrrm, ... == Sounds very reasonable. I would certainly think so. I am way less than a DB2 expert but I don't think any cursor type information is maintained in any sort of magic control block. Even a single simple COBOL program can be doing multiple logically independent things at the same time. There is a list where the people who actually are DB2 experts hang out: http://www.idug.org/p/fo/et/topic=19 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 64bit
I guess it depends what you mean by "I would like to use 64bit storage for some functions from Cobol." If the Cobol part is never going to directly use the memory, then there's no problem in a called program in another language using above the bar storage. Just remember to SAM 31 before you return to Cobol (unless you use one of the "calls" that automatically returns you in the correct amode.) In article <1dacd255-b881-4e84-b5df-129a12ce4...@yahoo.com> you wrote: > All, > C and C++ I know supports it , If my old eyes read correctly. Hlasm does. If > I am just using 64bit storage to store/retrieve data that should work? > Scott ford > www.identityforge.com > from my IPAD > > On Oct 17, 2014, at 2:11 PM, Don Poitras wrote: > > > > In article > > you > > wrote: > >> I was interpreting Scott's question as how can above-the-bar memory be used > >> directly by COBOL. > > > > Which is why Peter was confused. No such support currently exists. While > > there's been a lot of talk about AMODE 64 COBOL, it's not there today. > > > >>> On Fri, Oct 17, 2014 at 5:06 AM, Peter Relson wrote: > >>> Perhaps I misunderstood the problem. > >>> > >>> Whether called by the system, Cobol, or anything else, an HLASM routine > >>> can get any storage that its authorization allows it to. That includes > >>> storage below the bar, above the bar, and in data spaces. The routine can > >>> switch in and out of any AMODE that its RMODE allows (e.g., an RMODE 31 > >>> program better not "SAM24"). > >>> > >>> The caller needs to provide parameters in the form that the HLASM routine > >>> wants (or conversely the HLASM routine needs to accommodate the parameters > >>> that the caller provides; this is probably the easier approach). > >>> > >>> If you need the calling routine to then be able to deal with the storage > >>> above 2G, that's a different matter entirely. -- Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive sas...@sas.com (919) 531-5637Cary, NC 27513 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM Recall process
> -Original Message- > From: IBM Mainframe Discussion List On Behalf Of Lizette Koehler > > z/OS V1.12 - Yes I know. > > > Okay, I am sure this is in a very easy to locate part of the HSM Admin > manual, but I just am not > seeing it. > > This should be an easy question. I want to recall 5000 datasets. Do I still > need to > 1) List all datasets from an HLIST > 2) Sort that list on the Migrate Volser > 3) Send in the recalls based on the collection of datasets based on which > migrate volume they are on? > > Or can I enter all of the requests and HSM is smart enough to know to recall > all of the datasets from > the same tape and not mount tapes as it reads the DSNs in FIFO? > > > The helpful manual is not really helping. Our HSM guru cites this: "Found this in the HSM Admin for Z/OS 1.11 - An exception to the order of processing is when doing recalls from tape, where DFSMShsm reduces the number of mounts by doing several recalls from a given tape while the tape is continuously mounted. If a recall task has just completed a recall from a tape, it processes the highest-priority request that is currently on the queue for that same tape, no matter where the request is positioned on the queue. DFSMShsm continues to process only recalls from this single tape for a duration of time that is specified by the TAPERECALLLIMITS parameter. After the time specified by the TAPERECALLLIMITS parameter is reached, DFSMShsm determines whether a higher-priority recall request that needs this tape exists on another DFSMShsm host. If so, it ends the recall processing on the tape by the current DFSMShsm host, freeing the tape for use by other hosts. If no higher-priority request exists, DFSMShsm continues to process any recalls requested from the tape. DFSMShsm checks after every recall for a higher-priority recall request from other hosts." -jc- ** Information contained in this e-mail message and in any attachments thereto is confidential. If you are not the intended recipient, please destroy this message, delete any copies held on your systems, notify the sender immediately, and refrain from using or disclosing all or any part of its content to any other person. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to quietly terminate not detached subtask
Not reasonable at all! Quoting from the DB2 manual [watch the wrap] http://www-01.ibm.com/support/knowledgecenter/SSEPEK_10.0.0/com.ibm.db2z10.doc.sqlref/src/tpc/db2z_sql_connect.dita Successful Connection: If the CONNECT statement is successful: • All open cursors are closed, all prepared statements are destroyed, and all locks are released from the previous application server. • The application process is disconnected from its previous application server, if any, and connected to the identified application server. • The actual name of the application server (not an alias) is placed in the CURRENT SERVER special register. • Information about the application server is placed in the SQLERRP field of the SQLCA. If the application server is an IBM® product, the information has the form pppvvrrm, ... == Sounds very reasonable. I would certainly think so. I am way less than a DB2 expert but I don't think any cursor type information is maintained in any sort of magic control block. Even a single simple COBOL program can be doing multiple logically independent things at the same time. There is a list where the people who actually are DB2 experts hang out: http://www.idug.org/p/fo/et/topic=19 Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tony Harminc Sent: Friday, October 17, 2014 10:52 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How to quietly terminate not detached subtask On 16 October 2014 14:00, Victor Gil wrote: > Working on a general purpose callable subroutine to connect to a remote DB2 > subsystem and return values back to the caller. > > Since the caller may [and WILL] have established its own DB2 connection to a > local DB2 subsystem, possibly with some cursors open and DB2 locks acquired, > the subroutine must run under a different TCB. I've been pondering these task matters, but it strikes me that this may be entirely the wrong approach. I don't know DB2, but I'd be a little surprised if it keeps track of connection attributes (cursors, locks, etc.) only at the TCB level, and doesn't have any mechanism to maintain independent connections at a lower level. Surely there is some kind of "object" or control block or the like that can be instantiated more than once in an MVS task that can represent these things. Is it not possible, e.g, for a server to handle multiple users each with their own connection to DB2 using a single TCB? Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HSM Recall process
Thanks Lizette > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Mike Schwab > Sent: Friday, October 17, 2014 12:35 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: HSM Recall process > > Yes, once it mounts a volume, it will process other recalls from the same > volume. > Sorting by volume will help. > Submitting all recalls grouped by volumes will be a touch faster. > > On Fri, Oct 17, 2014 at 2:03 PM, Lizette Koehler > wrote: > > z/OS V1.12 - Yes I know. > > > > > > Okay, I am sure this is in a very easy to locate part of the HSM Admin > > manual, but I just am not seeing it. > > > > This should be an easy question. I want to recall 5000 datasets. Do > > I still need to > > 1) List all datasets from an HLIST > > 2) Sort that list on the Migrate Volser > > 3) Send in the recalls based on the collection of datasets based on > > which migrate volume they are on? > > > > Or can I enter all of the requests and HSM is smart enough to know to > > recall all of the datasets from the same tape and not mount tapes as > > it reads the DSNs in FIFO? > > > > > > The helpful manual is not really helping. > > > > Lizette > > -- > 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
Query for Destination z article: mistakes -- teachable/learnable moments
There are at least a bazillion (Google tells me) quotes about mistakes. "So go ahead and make mistakes. Make all you can. Because that's where you will find success. On the far side of failure." Thomas J. Watson, Sr. "It is much easier to be critical than to be correct." Benjamin Disraeli "Anyone who has never made a mistake has never tried anything new." Albert Einstein Anyone who's ever accomplished anything -- done anything -- has made mistakes. What have your mainframe career mistakes, teachable/learnable moments, painful learning experiences, hard-knocks lessons, etc., been? What errors have you seen or heard (and believed!) others make? What were the consequences and, most important, what did you learn? These might be technical or job/career related. What would you go back and tell your younger self to do or not do? To do differently? What mistakes would you help others avoid? Please be (relatively) brief; if I need more information, I'll ask. And please copy me directly so replies aren't buried in list digests. Thanks... -- Gabriel Goldberg, Computers and Publishing, Inc. g...@gabegold.com 3401 Silver Maple Place, Falls Church, VA 22042 (703) 204-0433 LinkedIn: http://www.linkedin.com/in/gabegoldTwitter: GabeG0 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 64bit
All, C and C++ I know supports it , If my old eyes read correctly. Hlasm does. If I am just using 64bit storage to store/retrieve data that should work? Scott ford www.identityforge.com from my IPAD > On Oct 17, 2014, at 2:11 PM, Don Poitras wrote: > > In article > you > wrote: >> I was interpreting Scott's question as how can above-the-bar memory be used >> directly by COBOL. > > Which is why Peter was confused. No such support currently exists. While > there's been a lot of talk about AMODE 64 COBOL, it's not there today. > >>> On Fri, Oct 17, 2014 at 5:06 AM, Peter Relson wrote: >>> Perhaps I misunderstood the problem. >>> >>> Whether called by the system, Cobol, or anything else, an HLASM routine >>> can get any storage that its authorization allows it to. That includes >>> storage below the bar, above the bar, and in data spaces. The routine can >>> switch in and out of any AMODE that its RMODE allows (e.g., an RMODE 31 >>> program better not "SAM24"). >>> >>> The caller needs to provide parameters in the form that the HLASM routine >>> wants (or conversely the HLASM routine needs to accommodate the parameters >>> that the caller provides; this is probably the easier approach). >>> >>> If you need the calling routine to then be able to deal with the storage >>> above 2G, that's a different matter entirely. >>> >>> Peter Relson >>> z/OS Core Technology Design > > -- > Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive > sas...@sas.com (919) 531-5637Cary, NC 27513 > > -- > 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 Recall process
Yes, once it mounts a volume, it will process other recalls from the same volume. Sorting by volume will help. Submitting all recalls grouped by volumes will be a touch faster. On Fri, Oct 17, 2014 at 2:03 PM, Lizette Koehler wrote: > z/OS V1.12 - Yes I know. > > > Okay, I am sure this is in a very easy to locate part of the HSM Admin > manual, but I just am not seeing it. > > This should be an easy question. I want to recall 5000 datasets. Do I > still need to > 1) List all datasets from an HLIST > 2) Sort that list on the Migrate Volser > 3) Send in the recalls based on the collection of datasets based on which > migrate volume they are on? > > Or can I enter all of the requests and HSM is smart enough to know to recall > all of the datasets from the same tape and not mount tapes as it reads the > DSNs in FIFO? > > > The helpful manual is not really helping. > > Lizette > > -- > 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
HSM Recall process
z/OS V1.12 - Yes I know. Okay, I am sure this is in a very easy to locate part of the HSM Admin manual, but I just am not seeing it. This should be an easy question. I want to recall 5000 datasets. Do I still need to 1) List all datasets from an HLIST 2) Sort that list on the Migrate Volser 3) Send in the recalls based on the collection of datasets based on which migrate volume they are on? Or can I enter all of the requests and HSM is smart enough to know to recall all of the datasets from the same tape and not mount tapes as it reads the DSNs in FIFO? The helpful manual is not really helping. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 64bit
In article you wrote: > I was interpreting Scott's question as how can above-the-bar memory be used > directly by COBOL. Which is why Peter was confused. No such support currently exists. While there's been a lot of talk about AMODE 64 COBOL, it's not there today. > On Fri, Oct 17, 2014 at 5:06 AM, Peter Relson wrote: > > Perhaps I misunderstood the problem. > > > > Whether called by the system, Cobol, or anything else, an HLASM routine > > can get any storage that its authorization allows it to. That includes > > storage below the bar, above the bar, and in data spaces. The routine can > > switch in and out of any AMODE that its RMODE allows (e.g., an RMODE 31 > > program better not "SAM24"). > > > > The caller needs to provide parameters in the form that the HLASM routine > > wants (or conversely the HLASM routine needs to accommodate the parameters > > that the caller provides; this is probably the easier approach). > > > > If you need the calling routine to then be able to deal with the storage > > above 2G, that's a different matter entirely. > > > > Peter Relson > > z/OS Core Technology Design -- Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive sas...@sas.com (919) 531-5637Cary, NC 27513 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Easytrive
We have EasytrievePlus so you can try either of these; CLUB W 5 N VALUE 9If you want a 5 digit numeric field set to 9 Or CLUB W 5 A VALUE '9 'if you want a 5 digit alphanumeric field set to '9' Brad Wissink Information Technology Services Iowa State University 515-294-3088 "If it ain't broke, you ain't trying" - Red Green -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron Thomas Sent: Friday, October 17, 2014 12:52 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Easytrive Hello. We have given the below defintion in Easytrive program like the below CLUBW 9 VALUE ‘ ‘ B097 PARAMETER IS TOO LARGE - 9 We are getting the above error message. Could you please let me know that the limit is only 32767 ? or is there any way we can set to 9 ? Thanks Ron T -- 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 to quietly terminate not detached subtask
Sounds very reasonable. I would certainly think so. I am way less than a DB2 expert but I don't think any cursor type information is maintained in any sort of magic control block. Even a single simple COBOL program can be doing multiple logically independent things at the same time. There is a list where the people who actually are DB2 experts hang out: http://www.idug.org/p/fo/et/topic=19 Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tony Harminc Sent: Friday, October 17, 2014 10:52 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How to quietly terminate not detached subtask On 16 October 2014 14:00, Victor Gil wrote: > Working on a general purpose callable subroutine to connect to a remote DB2 > subsystem and return values back to the caller. > > Since the caller may [and WILL] have established its own DB2 connection to a > local DB2 subsystem, possibly with some cursors open and DB2 locks acquired, > the subroutine must run under a different TCB. I've been pondering these task matters, but it strikes me that this may be entirely the wrong approach. I don't know DB2, but I'd be a little surprised if it keeps track of connection attributes (cursors, locks, etc.) only at the TCB level, and doesn't have any mechanism to maintain independent connections at a lower level. Surely there is some kind of "object" or control block or the like that can be instantiated more than once in an MVS task that can represent these things. Is it not possible, e.g, for a server to handle multiple users each with their own connection to DB2 using a single TCB? Tony H. -- 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
AW: DFDSS QUESTION - LOOKING FOR EXAMPLE.
John, have been to fast... Identify the volumes with a corrupted VTOC INDEX and then using ICKDFS: Convert them to OSVTOC by BUILDIX DDNAME(VOLDD) OSVTOC where VOLDD is pointing to the corrupted volume and then REFORMAT DDNAME(VOLDD) VERIFY(XX) REFVTOC which will rebuild the VTOC index Christian -Ursprüngliche Nachricht- Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag von John Dawes Gesendet: Freitag, 17. Oktober 2014 19:17 An: IBM-MAIN@LISTSERV.UA.EDU Betreff: DFDSS QUESTION - LOOKING FOR EXAMPLE. G'Day, Would anybody have an example of an input volume list. I am trying to perform a logical backup of a volume however some of the dsns are multi-volume. The doc says the following : Specify SELECTMULTI(FIRST) and include the first volume of the data set in the input volume list. For VSAM data sets, you must include the first volume of the data component in the input volume list. Below is my jcl: //BACKUP EXEC PGM=ADRDSSU,REGION=4096K //INPUT1 DD UNIT=SYSALLDA,VOL=SER=SYS301,DISP=OLD //TAPE1DD UNIT=3490,LABEL=(1,SL), // DSN=HESP.LOGICAL.BACKUP.SYS301.COPY1, // DISP=(,CATLG,DELETE),VOL=(,,,35) //TAPE2DD UNIT=3490,LABEL=(1,SL), // DSN=HESP.LOGICAL.BACKUP.SYS301.COPY2, // DISP=(,CATLG,DELETE),VOL=(,,,35) //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSMAP DD SYSOUT=* //SYSINDD * DUMP DATASET(INCLUDE(**) - EXCLUDE(SYS1.**))- SELECTMULTI(FIRST) - SPHERE - LOGINDDNAME(INPUT1) - OUTDD(TAPE1,TAPE2) OPT(4) ALLDATA(*) ALLEXCP /* The first of the dsn is on volume SYS306 and the third extent is on SYS340. We have a corrupted VTOC INDEX. -- 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
Easytrive
Hello. We have given the below defintion in Easytrive program like the below CLUBW 9 VALUE ‘ ‘ B097 PARAMETER IS TOO LARGE - 9 We are getting the above error message. Could you please let me know that the limit is only 32767 ? or is there any way we can set to 9 ? Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to quietly terminate not detached subtask
On 16 October 2014 14:00, Victor Gil wrote: > Working on a general purpose callable subroutine to connect to a remote DB2 > subsystem and return values back to the caller. > > Since the caller may [and WILL] have established its own DB2 connection to a > local DB2 subsystem, possibly with some cursors open and DB2 locks acquired, > the subroutine must run under a different TCB. I've been pondering these task matters, but it strikes me that this may be entirely the wrong approach. I don't know DB2, but I'd be a little surprised if it keeps track of connection attributes (cursors, locks, etc.) only at the TCB level, and doesn't have any mechanism to maintain independent connections at a lower level. Surely there is some kind of "object" or control block or the like that can be instantiated more than once in an MVS task that can represent these things. Is it not possible, e.g, for a server to handle multiple users each with their own connection to DB2 using a single TCB? Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to quietly terminate not detached subtask
Thanks! This would be a totally different ball game as it brings an extra layer of communication between the address spaces. This would also require extra "authorization" which wouldn't fly well with the management === >Working on a general purpose callable subroutine to connect to a remote DB2 >subsystem and return values back to the caller. > >Since the caller may [and WILL] have established its own DB2 connection to a >local DB2 subsystem, possibly with some cursors open and DB2 locks acquired, >the subroutine must run under a different TCB. You might consider going a bit further, and using fork() and execmvs() to create a new address space running your new code. That will isolate it quite well from the original task. And since you will not get control to signal it to terminate, it might do so after some period of time without hearing from you, say 5 minutes or whatever value you consider reasonable. -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFDSS QUESTION - LOOKING FOR EXAMPLE.
John, You say the first vol of the multi-vol DSN is on SYS306, yet your INPUT1 is pointing to SYS301. Rex -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of John Dawes Sent: Friday, October 17, 2014 12:17 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: DFDSS QUESTION - LOOKING FOR EXAMPLE. G'Day, Would anybody have an example of an input volume list. I am trying to perform a logical backup of a volume however some of the dsns are multi-volume. The doc says the following : Specify SELECTMULTI(FIRST) and include the first volume of the data set in the input volume list. For VSAM data sets, you must include the first volume of the data component in the input volume list. Below is my jcl: //BACKUP EXEC PGM=ADRDSSU,REGION=4096K //INPUT1 DD UNIT=SYSALLDA,VOL=SER=SYS301,DISP=OLD //TAPE1DD UNIT=3490,LABEL=(1,SL), // DSN=HESP.LOGICAL.BACKUP.SYS301.COPY1, // DISP=(,CATLG,DELETE),VOL=(,,,35) //TAPE2DD UNIT=3490,LABEL=(1,SL), // DSN=HESP.LOGICAL.BACKUP.SYS301.COPY2, // DISP=(,CATLG,DELETE),VOL=(,,,35) //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSMAP DD SYSOUT=* //SYSINDD * DUMP DATASET(INCLUDE(**) - EXCLUDE(SYS1.**))- SELECTMULTI(FIRST) - SPHERE - LOGINDDNAME(INPUT1) - OUTDD(TAPE1,TAPE2) OPT(4) ALLDATA(*) ALLEXCP /* The first of the dsn is on volume SYS306 and the third extent is on SYS340. We have a corrupted VTOC INDEX. -- 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
AW: DFDSS QUESTION - LOOKING FOR EXAMPLE.
John, try SELECTMULTI(ANY) and exclude LOGINDDNAME, and then post the results plse Christian -Ursprüngliche Nachricht- Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag von John Dawes Gesendet: Freitag, 17. Oktober 2014 19:17 An: IBM-MAIN@LISTSERV.UA.EDU Betreff: DFDSS QUESTION - LOOKING FOR EXAMPLE. G'Day, Would anybody have an example of an input volume list. I am trying to perform a logical backup of a volume however some of the dsns are multi-volume. The doc says the following : Specify SELECTMULTI(FIRST) and include the first volume of the data set in the input volume list. For VSAM data sets, you must include the first volume of the data component in the input volume list. Below is my jcl: //BACKUP EXEC PGM=ADRDSSU,REGION=4096K //INPUT1 DD UNIT=SYSALLDA,VOL=SER=SYS301,DISP=OLD //TAPE1DD UNIT=3490,LABEL=(1,SL), // DSN=HESP.LOGICAL.BACKUP.SYS301.COPY1, // DISP=(,CATLG,DELETE),VOL=(,,,35) //TAPE2DD UNIT=3490,LABEL=(1,SL), // DSN=HESP.LOGICAL.BACKUP.SYS301.COPY2, // DISP=(,CATLG,DELETE),VOL=(,,,35) //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSMAP DD SYSOUT=* //SYSINDD * DUMP DATASET(INCLUDE(**) - EXCLUDE(SYS1.**))- SELECTMULTI(FIRST) - SPHERE - LOGINDDNAME(INPUT1) - OUTDD(TAPE1,TAPE2) OPT(4) ALLDATA(*) ALLEXCP /* The first of the dsn is on volume SYS306 and the third extent is on SYS340. We have a corrupted VTOC INDEX. -- 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
DFDSS QUESTION - LOOKING FOR EXAMPLE.
G'Day, Would anybody have an example of an input volume list. I am trying to perform a logical backup of a volume however some of the dsns are multi-volume. The doc says the following : Specify SELECTMULTI(FIRST) and include the first volume of the data set in the input volume list. For VSAM data sets, you must include the first volume of the data component in the input volume list. Below is my jcl: //BACKUP EXEC PGM=ADRDSSU,REGION=4096K //INPUT1 DD UNIT=SYSALLDA,VOL=SER=SYS301,DISP=OLD //TAPE1DD UNIT=3490,LABEL=(1,SL), // DSN=HESP.LOGICAL.BACKUP.SYS301.COPY1, // DISP=(,CATLG,DELETE),VOL=(,,,35) //TAPE2DD UNIT=3490,LABEL=(1,SL), // DSN=HESP.LOGICAL.BACKUP.SYS301.COPY2, // DISP=(,CATLG,DELETE),VOL=(,,,35) //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSMAP DD SYSOUT=* //SYSINDD * DUMP DATASET(INCLUDE(**) - EXCLUDE(SYS1.**))- SELECTMULTI(FIRST) - SPHERE - LOGINDDNAME(INPUT1) - OUTDD(TAPE1,TAPE2) OPT(4) ALLDATA(*) ALLEXCP /* The first of the dsn is on volume SYS306 and the third extent is on SYS340. We have a corrupted VTOC INDEX. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to quietly terminate not detached subtask
On Thu, 16 Oct 2014 20:27:27 -0500, Walt Farrell wrote: > >>Working on a general purpose callable subroutine to connect to a remote DB2 >>subsystem and return values back to the caller. >> >>Since the caller may [and WILL] have established its own DB2 connection to a >>local DB2 subsystem, possibly with some cursors open and DB2 locks acquired, >>the subroutine must run under a different TCB. > >You might consider going a bit further, and using fork() and execmvs() to >create a new address space running your new code. That will isolate it quite >well from the original task. And since you will not get control to signal it >to terminate, it might do so after some period of time without hearing from >you, say 5 minutes or whatever value you consider reasonable. > fork() should return a descriptor that the parent can use to kill() the child. I don't know that meets the "quietly" requirement. The child could trap the signal and terminate in an orderly manner. (Does execmvs() return a PID?) A possible disadvantage is that neither fork() nor execmvs() propagates DD statements. This can be merely cumbersome in that the child must perform its own allocations, or more serious if ENQ conflicts result. Descriptors, however, are propagated by fork() and (I've been told) by execmvs(), so the parent can communicate with the child via pipes. Since (I believe) execmvs() creates a new address space, spawn() might be as effective as fork(). -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XM POST ERRET=
On 17 October 2014 04:55, Gabor Hoffer wrote: > Routine (error_routine) won't get called as I post to an invalid ECB/ASCB > address. Module abends with S602. > > As workaround, I use ESTAE, but i don't really like it. I think if you are doing an XM POST and your ECB and/or ASCB arguments are bad, how you recover is the least of your problems. What if your target address space has been reused, and the ASCB address is valid, but the ECB address points to something unrelated in that new user's address space? You may well change some 4-byte piece of some else's storage, with no indication of an error to you, and perhaps an abend or "merely" incorrect results in the other address space. If you are designing new code you should consider the PAUSE/RELEASE services, which are much safer. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XM POST ERRET=
Thanks Rob, I'll use ESTAE routine. Regards, Gabor On Fri, Oct 17, 2014 at 12:30 PM, Rob Scott wrote: > Hold on a second - you are not coding the ASCB parameter. > > As stated earlier -I suggest testing with a valid ASCB. > > Also - looking at the syntax diagram in the POST description, ERRET only > seems to be valid when the ASCB parameter is coded. > > Rob Scott > Lead Developer > Rocket Software > 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA > Tel: +1.781.684.2305 > Email: rsc...@rs.com > Web: www.rocketsoftware.com > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Gabor Hoffer > Sent: 17 October 2014 11:16 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: XM POST ERRET= > > Yes. > > MODESET MODE=SUP > MODESET EXTKEY=ZERO,SAVEKEY=FOLDKEY,WORKREG=2 > > * TEST - post an invalid ECB > LAR1,1000 invalid ECB > *LAR2,2000 invalid ASCB > POST (R1),ERRET=error_routine, X >MF=(E,EXITPLST),LINKAGE=SYSTEM,ECBKEY=0 > > On Fri, Oct 17, 2014 at 12:11 PM, Rob Scott > wrote: > > > Are you PSW Key 0-7 and supervisor state ? > > > > Rob Scott > > Lead Developer > > Rocket Software > > 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA > > Tel: +1.781.684.2305 > > Email: rsc...@rs.com > > Web: www.rocketsoftware.com > > > > > > -Original Message- > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > > On Behalf Of Gabor Hoffer > > Sent: 17 October 2014 10:56 > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: XM POST ERRET= > > > > Same result without ASCB parameter, so not XM post. :-( > > > > On Fri, Oct 17, 2014 at 11:30 AM, Rob Scott > > > > wrote: > > > > > I believe your ERRET routine is not being driven because of the > > > invalid ASCB specification. > > > > > > When you use the ASCB parameter with ERRET, it will only be used > > > when the cross-memory POST fails in the address space identified by > the ASCB. > > > > > > I would imagine that if the ASCB is invalid, the POST service is > > > unable to establish the correct recovery environment and it cannot > > > drive > > your ERRET. > > > > > > I would suggest making the ASCB a valid one and retesting your code > > > with its bad ECB. > > > > > > Rob Scott > > > Lead Developer > > > Rocket Software > > > 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA > > > Tel: +1.781.684.2305 > > > Email: rsc...@rs.com > > > Web: www.rocketsoftware.com > > > > > > > > > -Original Message- > > > From: IBM Mainframe Discussion List > > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Gabor Hoffer > > > Sent: 17 October 2014 09:56 > > > To: IBM-MAIN@LISTSERV.UA.EDU > > > Subject: XM POST ERRET= > > > > > > Hello, > > > > > > I have problem with ERRET= in POST macro. > > > > > > example: > > > * TEST - post an invalid ECB > > > LAR1,1000 invalid ECB > > > LAR2,2000 invalid ASCB > > > POST (R1),ASCB=(R2),ERRET=error_routine, > X > > >MF=(E,EXITPLST),LINKAGE=SYSTEM,ECBKEY=0 > > > > > > Routine (error_routine) won't get called as I post to an invalid > > > ECB/ASCB address. Module abends with S602. > > > > > > As workaround, I use ESTAE, but i don't really like it. > > > > > > Can anyone send me a working example? > > > > > > Regards, > > > Gabor > > > > > > > > > -- For IBM-MAIN subscribe / signoff / archive access instructions, > > > send email to lists...@listserv.ua.edu with the message: INFO > > > IBM-MAIN Rocket Software, Inc. and > > > subsidiaries ■ 77 Fourth Avenue, Waltham MA > > > 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From > > > Commercial Email – unsubscr...@rocketsoftware.com Manage Your > > > Subscription Preferences - > > > http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFoot > > > er > > > _SubscriptionCenter.html > > > Privacy Policy - > > > http://www.rocketsoftware.com/company/legal/privacy-policy > > > > > > > > > > > > -- 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 > > Rocket Software, Inc. and > > subsidiaries ■ 77 Fourth Avenue, Waltham MA > > 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial > > Email – unsubscr...@rocketsoftware.com Manage Your Subscription > > Preferences - > > http://info.rocketsoftware.co
Re: 64bit
I was interpreting Scott's question as how can above-the-bar memory be used directly by COBOL. On Fri, Oct 17, 2014 at 5:06 AM, Peter Relson wrote: > Perhaps I misunderstood the problem. > > Whether called by the system, Cobol, or anything else, an HLASM routine > can get any storage that its authorization allows it to. That includes > storage below the bar, above the bar, and in data spaces. The routine can > switch in and out of any AMODE that its RMODE allows (e.g., an RMODE 31 > program better not "SAM24"). > > The caller needs to provide parameters in the form that the HLASM routine > wants (or conversely the HLASM routine needs to accommodate the parameters > that the caller provides; this is probably the easier approach). > > If you need the calling routine to then be able to deal with the storage > above 2G, that's a different matter entirely. > > Peter Relson > z/OS Core Technology Design > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Destination z articles -- moving a data center (two parts)
I previously sent first article, not second. Here are both parts... Planning for Data Center Move Is Critical Clearly defining steps and outcome before a move, upgrade or build helps ensure a smooth transition to success http://www.destinationz.org/Mainframe-Solution/Systems-Administration/Planning-for-Data-Center-Move-Is-Critical http://tinyurl.com/lfg7rnt Flexibility Needed During Execution of Data Center Move Having backup plans and defined roles makes the move easier when surprises arise http://www.destinationz.org/Mainframe-Solution/Systems-Administration/Flexibility-Needed-During-Execution-of-Data-Center http://tinyurl.com/pdcea79 Thanks to people who answered the query for this... -- Gabriel Goldberg, Computers and Publishing, Inc. g...@gabegold.com 3401 Silver Maple Place, Falls Church, VA 22042 (703) 204-0433 LinkedIn: http://www.linkedin.com/in/gabegoldTwitter: GabeG0 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: STP
FWIW: we use STP, and use a couple of HMCs as the NTP source for STP, with the HMC servers themselves getting time from our stratum 1 NTP servers which use a GPS receiver for the time. That makes the HMC stratum 2. And if z/OS was then serving the time via NTP, I believe z/OS would be considered stratum 3. But I see little point in that: there's more stratum 2 servers distributed around our network. Of course one may reasonably argue that STP could/should point directly to the stratum 1 NTP server. Which is probably a fair point. But I tend to be biased against making my mainframe configuration directly dependent on something I don't have direct control over. That's just one of my little quirks... Scott -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Calculation involving SMF CPU Time
I found this in some of my old notes. SMFCPU - The CPU time used in "timer units". Note: there are 38,400 timer units in a second. Maybe this helps? This e-mail may contain Sprint proprietary information intended for the sole use of the recipient(s). Any use by others is prohibited. If you are not the intended recipient, please contact the sender and delete all copies of the message. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Calculation involving SMF CPU Time
12 hours? IIRC86,400 sec = 24 hours I needed to pull off some user SMF records, and so I used a small program that I had written about 6 or so years ago. In it, I have a line of code like this: SMFCPU = SMFCPU / 38400 I honestly cannot remember why I did that, to divide by 38400, but I must have had a good reason. It doesn't appear to be time related. I'm sure someone here knows, though. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP GET and PUT problems on z/OS 2.1
I did some searches on 0x76650291 and it looks like this type of error has a history. I am not sure about z/OS V2.1 but you may need to run some traces in FTP and see if there is anything in your network that might be impacting. Other entries might indicate an SR with IBM TCPIP might be valuable. Since it looks like the sample jobs are for IBM sites, IBM might have an issue. Lizette > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Anthony Fletcher > Sent: Friday, October 17, 2014 12:28 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: FTP GET and PUT problems on z/OS 2.1 > > I thought that someone would remember difficulties with FTP on z/OS 2.1, and I > didn't want to be told about the TSO problem. > This sort of job worked fine under z/OS 1.13. > > Specifically: > The job I is a big FTP GET from USA to Australia - both ends are tape. My job looks > like: > > // SET TAPUNIT=3592 > //* > //FTPP115 EXEC PGM=FTP,REGION=0M,TIME=1440, > // PARM='KGNMVS11.POK.IBM.COM (EXIT=16 ti 1800' > //SYSFTPD DD * > AUTOTAPEMOUNT TRUE ; Automatic mount of unmounted > //* > //OUTTAPE DD DISP=(,CATLG),UNIT=&TAPUNIT., > //LABEL=(1,SL,RETPD=30),VOL=(,,,9), > //LRECL=0,RECFM=U,BLKSIZE=27998, > //DSN=WWP115.GSD2014B.PRODUCTS > //SYSPRINT DD SYSOUT=* > //SYSINDD * > gsdbld > > ebcdic > mode c > sitechkptint=0 bufno=25 norestput > sitedswaittime=30 datakeepalive=1800 > locsite dswaittime=30 datakeepalive=1800 locsite chkptint=0 bufno=25 norestget > locsite fwfriendly locsite filetype=seq + > conddisp=delete > get 'WWP115.GSD2014B.PRODUCTS' //DD:OUTTAPE quit > //* > > The error I keep getting is: > > EZA1485I 2325233894 bytes transferred - 10 second interval rate 1220.09 KB/sec - > EZA2589E Connection to server interrupted or timed out. Receiving data > EZA2590E recv error from receive_data - EDC5120I Interrupted function call. > (errno2=0x76650291) EZA1475I Connection with KGNMVS11.POK.IBM.COM > terminated EZA2607W Transfer aborted due to receive error (-2) EZA1735I Std > Return Code = 16125, Error Code = 00010 > > It does not fail in the same place - the byte count is always different. > > Someone else is also experiencing a problem doing a completely different FTP - in > his case a PUT. He gets: > > EIRR954E: FTP message: EZA2589E Connection to server interrupted or timed > out. Sending data > EIRR954E: FTP message: EZA2590E send error from send_data - EDC5120I > Interrupted function call. errno2=0x76690291) > EIRR954E: FTP message: EZA1475I Connection with testcase.boulder.ibm.com > terminated > EIRR954E: FTP message: EZA2603E Error sending the file > EIRR954E: FTP message: EZA2121I Command(10-27-STOR-150): > EIRR950E: FTP API error: Command: SCMD PUT > 'R3SD.GSD2011B.TAA1G735.ZOS1D0.DUMPT' DUMP/TAA1G735.TMP, > Result=-3, Interface Error (IE): 0, Client Error code (CEC): 10 Probable cause: > Socket error, other send/receive errors. > > We are still looking and trying different things but so far no circumvention. > > regards, > Anthony Fletcher - NZ MIITP > Team Lead NZ SMM > (AirNZ, Westpac NZ , NWM AU) > > IBM Strategic Outsourcing Delivery > Server Systems Operations > Server Management Mainframe > > Mainframe Platform Software Program Manager NZ z/OS Technical Lead A/NZ > > Ph: Direct +64 4 576 8142, tieline 61 929 8142, ITN > *869298142, mobile +64 21 464 864, Fax +64 4 576 5808. > Internet: flet...@nz1.ibm.com, Sametime: flet...@nz1.ibm.com > > "The biggest threat to effective communication is the belief that it has occurred" > "Winners make commitments, Losers make promises" > > > > From: Lizette Koehler > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 17/10/2014 18:46 > Subject:Re: FTP GET and PUT problems on z/OS 2.1 > Sent by:IBM Mainframe Discussion List > > > > So PI09301 states > * z/OS FTP cannot pull data off the REXX * > * stack after FTP is put into the AUTHCMD * > * section of IKJTSOxx which is required by * > * z/OS FTP from V2R1 > > How is that related to your issue? Are you running REXX to do FTP? > > Or if you could provide some more details, it would help. > > What do you mean by "experiencing problems" ? FTP is not running, fails > to run, runs but does not do X, etc... > > Lizette > > > > -Original Message- > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On > > Behalf Of Anthony Fletcher > > Sent: Thursday, October 16, 2014 8:33 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: FTP GET and PUT problems on z/OS 2.1 > > > > We have been experiencing problems with certain FTP transmissions after > > upgrading to z/OS 2.1. We know about PI09301 which affects TSO, but > these jobs > > are batch jobs. > > Anyone seen this happeneing? > > > --
Re: old EKM software question
Hi Dave, Thanks for the info. I feel like an idiot now - enter head-slap mode... RACF was/is set up properly. All the directories and datasets within the /u/ekmserv are set with the correct ownership. I had missed setting ownership of the primary directory. D'oh!!! -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jousma, David Sent: Friday, October 17, 2014 6:28 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: old EKM software question Is the home directory defined in the omvs segment /u/ekmserv? Is that directory owned by ID EKMSERV? I suspect not, and is probably owned by uid 0 ID. Do a chown -R ekmserv /u/ekmserv We are a tss shop, and the id has the following facilities + the certificates needed. XA CSFKEYS = IRR.DIGTCERT.DEVL.EKMSERV. ACCESS = READ XA CSFKEYS = IRR.DIGTCERT.PROD.EKMSERV. ACCESS = READ XA IBMFAC = BPX.CONSOLE ACCESS = READ XA IBMFAC = BPX.DAEMON.HFSCTL ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LIST ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LISTRING ACCESS = READ _ Dave Jousma Assistant Vice President, Mainframe Engineering david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Thursday, October 16, 2014 5:35 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: old EKM software question Hi, Is anybody using the old encryption key manager for tape encryption? I'm working on setting it up using RACF as my key store. The documentation that comes with it says specifically that the userid that the EKM runs under does not need to be UID=0. However, when I try to start the EKM software, if I start it with the userid having root, the software starts up just fine. If I change the UID to something non-zero, the EKM fails to start. I can't find anything in the doc that says what authority I need to give the EKM userid and the extent of error messages I get is this (no RACF violations): Prod1:EKMSERV:/u/ekmserv: $ java -Djava.protocol.handler.pkgs=com.ibm.crypto.provider com.ibm.keymanager.EKMServer /u/ekmserv/KeyManagerConfig.properties Loaded drive key store successfully No symmetric keys in symmetricKeySet, LTO drives cannot be supported. EKMServer:serverParams shutdown complete.. Exception occurs while shutting down the server. shutting down EKM Server done Prod1:EKMSERV:/u/ekmserv: $ The audit shows this error - second to last stanza (snipped the non-error stanzas): Runtime event: outcome= result=successful event type=SECURITY_RUNTIME action=runEKMServer Resource management event: outcome= result=successful event type=SECURITY_MGMT_RESOURCE action=retrieve Resource management event: outcome= result=successful event type=SECURITY_MGMT_RESOURCE action=retrieve Runtime event: outcome= result=unsuccessful event type=SECURITY_RUNTIME message=no symmetric Key aliases LTO drives not supported. action=stop Runtime event: outcome= result=successful event type=SECURITY_RUNTIME action=runEKMServer
Re: old EKM software question
Hi Dave, Thanks for the info. I feel like an idiot now - enter head-slap mode... RACF was/is set up properly. All the directories and datasets "within" the /u/ekmserv are set with the correct ownership but I had missed setting ownership of the primary directory. D'oh!!! Rex -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jousma, David Sent: Friday, October 17, 2014 6:28 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: old EKM software question Is the home directory defined in the omvs segment /u/ekmserv? Is that directory owned by ID EKMSERV? I suspect not, and is probably owned by uid 0 ID. Do a chown -R ekmserv /u/ekmserv We are a tss shop, and the id has the following facilities + the certificates needed. XA CSFKEYS = IRR.DIGTCERT.DEVL.EKMSERV. ACCESS = READ XA CSFKEYS = IRR.DIGTCERT.PROD.EKMSERV. ACCESS = READ XA IBMFAC = BPX.CONSOLE ACCESS = READ XA IBMFAC = BPX.DAEMON.HFSCTL ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LIST ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LISTRING ACCESS = READ _ Dave Jousma Assistant Vice President, Mainframe Engineering david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Thursday, October 16, 2014 5:35 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: old EKM software question Hi, Is anybody using the old encryption key manager for tape encryption? I'm working on setting it up using RACF as my key store. The documentation that comes with it says specifically that the userid that the EKM runs under does not need to be UID=0. However, when I try to start the EKM software, if I start it with the userid having root, the software starts up just fine. If I change the UID to something non-zero, the EKM fails to start. I can't find anything in the doc that says what authority I need to give the EKM userid and the extent of error messages I get is this (no RACF violations): Prod1:EKMSERV:/u/ekmserv: $ java -Djava.protocol.handler.pkgs=com.ibm.crypto.provider com.ibm.keymanager.EKMServer /u/ekmserv/KeyManagerConfig.properties Loaded drive key store successfully No symmetric keys in symmetricKeySet, LTO drives cannot be supported. EKMServer:serverParams shutdown complete.. Exception occurs while shutting down the server. shutting down EKM Server done Prod1:EKMSERV:/u/ekmserv: $ The audit shows this error - second to last stanza (snipped the non-error stanzas): Runtime event: outcome= result=successful event type=SECURITY_RUNTIME action=runEKMServer Resource management event: outcome= result=successful event type=SECURITY_MGMT_RESOURCE action=retrieve Resource management event: outcome= result=successful event type=SECURITY_MGMT_RESOURCE action=retrieve Runtime event: outcome= result=unsuccessful event type=SECURITY_RUNTIME message=no symmetric Key aliases LTO drives not supported. action=stop Runtime event: outcome= result=successful event type=SECURITY_RUNTIME action=runEKMServer
Re: 64bit
Perhaps I misunderstood the problem. Whether called by the system, Cobol, or anything else, an HLASM routine can get any storage that its authorization allows it to. That includes storage below the bar, above the bar, and in data spaces. The routine can switch in and out of any AMODE that its RMODE allows (e.g., an RMODE 31 program better not "SAM24"). The caller needs to provide parameters in the form that the HLASM routine wants (or conversely the HLASM routine needs to accommodate the parameters that the caller provides; this is probably the easier approach). If you need the calling routine to then be able to deal with the storage above 2G, that's a different matter entirely. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: old EKM software question
I will also add that although that id has access to bpx.superuser, I do not believe it is needed. The task is running with the non-zero uid. We had many problems initially getting the thing configured, and I believe that is still a remnant of the trials and tribulations. _ Dave Jousma Assistant Vice President, Mainframe Engineering david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Jousma, David Sent: Friday, October 17, 2014 7:31 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: old EKM software question Ignore my prior response, that came from my tech system, which is where I test, but is not complete compared to my production setup Here is from production XA CSFKEYS = IRR.DIGTCERT.CERTAUTH.EKMAUT01 ACCESS = READ XA CSFKEYS = IRR.DIGTCERT.PROD.EKMSERV. ACCESS = READ XA IBMFAC = BPX.CONSOLE ACCESS = READ XA IBMFAC = BPX.DAEMON.HFSCTL ACCESS = READ XA IBMFAC = BPX.SUPERUSER ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LIST ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LISTRING The CSFKEYS entries relate to the certificates that must be included. _ Dave Jousma Assistant Vice President, Mainframe Engineering david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -Original Message- From: Jousma, David Sent: Friday, October 17, 2014 7:28 AM To: 'IBM Mainframe Discussion List' Subject: RE: old EKM software question Is the home directory defined in the omvs segment /u/ekmserv? Is that directory owned by ID EKMSERV? I suspect not, and is probably owned by uid 0 ID. Do a chown -R ekmserv /u/ekmserv We are a tss shop, and the id has the following facilities + the certificates needed. XA CSFKEYS = IRR.DIGTCERT.DEVL.EKMSERV. ACCESS = READ XA CSFKEYS = IRR.DIGTCERT.PROD.EKMSERV. ACCESS = READ XA IBMFAC = BPX.CONSOLE ACCESS = READ XA IBMFAC = BPX.DAEMON.HFSCTL ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LIST ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LISTRING ACCESS = READ _ Dave Jousma Assistant Vice President, Mainframe Engineering david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Thursday, October 16, 2014 5:35 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: old EKM software question Hi, Is anybody using the old encryption key manager for tape encryption? I'm working on setting it up using RACF as my key store. The documentation that comes with it says specifically that the userid that the EKM runs under does not need to be UID=0. However, when I try to start the EKM software, if I start it with the userid having root, the software starts up just fine. If I change the UID to something non-zero, the EKM fails to start. I can't find anything in the doc that says what authority I need to give the EKM userid and the extent of error messages I get is this (no RACF violations): Prod1:EKMSERV:/u/ekmserv: $ java -Djava.protocol.handler.pkgs=com.ibm.crypto.provider com.ibm.keymanager.EKMServer /u/ekmserv/KeyManagerConfig.properties Loaded drive key store successfully No symmetric keys in symmetricKeySet, LTO drives cannot be supported. EKMServer:serverParams shutdown complete.. Exception occurs while shutting down the server. shutting down EKM Server done Prod1:EKMSERV:/u/ekmserv: $ The audit shows this error - second to last stanza
Re: old EKM software question
Ignore my prior response, that came from my tech system, which is where I test, but is not complete compared to my production setup Here is from production XA CSFKEYS = IRR.DIGTCERT.CERTAUTH.EKMAUT01 ACCESS = READ XA CSFKEYS = IRR.DIGTCERT.PROD.EKMSERV. ACCESS = READ XA IBMFAC = BPX.CONSOLE ACCESS = READ XA IBMFAC = BPX.DAEMON.HFSCTL ACCESS = READ XA IBMFAC = BPX.SUPERUSER ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LIST ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LISTRING The CSFKEYS entries relate to the certificates that must be included. _ Dave Jousma Assistant Vice President, Mainframe Engineering david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -Original Message- From: Jousma, David Sent: Friday, October 17, 2014 7:28 AM To: 'IBM Mainframe Discussion List' Subject: RE: old EKM software question Is the home directory defined in the omvs segment /u/ekmserv? Is that directory owned by ID EKMSERV? I suspect not, and is probably owned by uid 0 ID. Do a chown -R ekmserv /u/ekmserv We are a tss shop, and the id has the following facilities + the certificates needed. XA CSFKEYS = IRR.DIGTCERT.DEVL.EKMSERV. ACCESS = READ XA CSFKEYS = IRR.DIGTCERT.PROD.EKMSERV. ACCESS = READ XA IBMFAC = BPX.CONSOLE ACCESS = READ XA IBMFAC = BPX.DAEMON.HFSCTL ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LIST ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LISTRING ACCESS = READ _ Dave Jousma Assistant Vice President, Mainframe Engineering david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Thursday, October 16, 2014 5:35 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: old EKM software question Hi, Is anybody using the old encryption key manager for tape encryption? I'm working on setting it up using RACF as my key store. The documentation that comes with it says specifically that the userid that the EKM runs under does not need to be UID=0. However, when I try to start the EKM software, if I start it with the userid having root, the software starts up just fine. If I change the UID to something non-zero, the EKM fails to start. I can't find anything in the doc that says what authority I need to give the EKM userid and the extent of error messages I get is this (no RACF violations): Prod1:EKMSERV:/u/ekmserv: $ java -Djava.protocol.handler.pkgs=com.ibm.crypto.provider com.ibm.keymanager.EKMServer /u/ekmserv/KeyManagerConfig.properties Loaded drive key store successfully No symmetric keys in symmetricKeySet, LTO drives cannot be supported. EKMServer:serverParams shutdown complete.. Exception occurs while shutting down the server. shutting down EKM Server done Prod1:EKMSERV:/u/ekmserv: $ The audit shows this error - second to last stanza (snipped the non-error stanzas): Runtime event: outcome= result=successful event type=SECURITY_RUNTIME action=runEKMServer Resource management event: outcome= result=successful event type=SECURITY_MGMT_RESOURCE action=retrieve Resource management event: outcome=
Re: old EKM software question
Is the home directory defined in the omvs segment /u/ekmserv? Is that directory owned by ID EKMSERV? I suspect not, and is probably owned by uid 0 ID. Do a chown -R ekmserv /u/ekmserv We are a tss shop, and the id has the following facilities + the certificates needed. XA CSFKEYS = IRR.DIGTCERT.DEVL.EKMSERV. ACCESS = READ XA CSFKEYS = IRR.DIGTCERT.PROD.EKMSERV. ACCESS = READ XA IBMFAC = BPX.CONSOLE ACCESS = READ XA IBMFAC = BPX.DAEMON.HFSCTL ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LIST ACCESS = READ XA IBMFAC = IRR.DIGTCERT.LISTRING ACCESS = READ _ Dave Jousma Assistant Vice President, Mainframe Engineering david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Pommier, Rex Sent: Thursday, October 16, 2014 5:35 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: old EKM software question Hi, Is anybody using the old encryption key manager for tape encryption? I'm working on setting it up using RACF as my key store. The documentation that comes with it says specifically that the userid that the EKM runs under does not need to be UID=0. However, when I try to start the EKM software, if I start it with the userid having root, the software starts up just fine. If I change the UID to something non-zero, the EKM fails to start. I can't find anything in the doc that says what authority I need to give the EKM userid and the extent of error messages I get is this (no RACF violations): Prod1:EKMSERV:/u/ekmserv: $ java -Djava.protocol.handler.pkgs=com.ibm.crypto.provider com.ibm.keymanager.EKMServer /u/ekmserv/KeyManagerConfig.properties Loaded drive key store successfully No symmetric keys in symmetricKeySet, LTO drives cannot be supported. EKMServer:serverParams shutdown complete.. Exception occurs while shutting down the server. shutting down EKM Server done Prod1:EKMSERV:/u/ekmserv: $ The audit shows this error - second to last stanza (snipped the non-error stanzas): Runtime event: outcome= result=successful event type=SECURITY_RUNTIME action=runEKMServer Resource management event: outcome= result=successful event type=SECURITY_MGMT_RESOURCE action=retrieve Resource management event: outcome= result=successful event type=SECURITY_MGMT_RESOURCE action=retrieve Runtime event: outcome= result=unsuccessful event type=SECURITY_RUNTIME message=no symmetric Key aliases LTO drives not supported. action=stop Runtime event: outcome= result=successful event type=SECURITY_RUNTIME action=runEKMServer Resource management event: outcome= result=successful event type=SECURITY_MGMT_RESOURCE action=retrieve Runtime event: timestamp=Thu Oct 16 15:22:36 GMT-05:00 2
Re: XM POST ERRET=
Hold on a second - you are not coding the ASCB parameter. As stated earlier -I suggest testing with a valid ASCB. Also - looking at the syntax diagram in the POST description, ERRET only seems to be valid when the ASCB parameter is coded. Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Gabor Hoffer Sent: 17 October 2014 11:16 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: XM POST ERRET= Yes. MODESET MODE=SUP MODESET EXTKEY=ZERO,SAVEKEY=FOLDKEY,WORKREG=2 * TEST - post an invalid ECB LAR1,1000 invalid ECB *LAR2,2000 invalid ASCB POST (R1),ERRET=error_routine, X MF=(E,EXITPLST),LINKAGE=SYSTEM,ECBKEY=0 On Fri, Oct 17, 2014 at 12:11 PM, Rob Scott wrote: > Are you PSW Key 0-7 and supervisor state ? > > Rob Scott > Lead Developer > Rocket Software > 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA > Tel: +1.781.684.2305 > Email: rsc...@rs.com > Web: www.rocketsoftware.com > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Gabor Hoffer > Sent: 17 October 2014 10:56 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: XM POST ERRET= > > Same result without ASCB parameter, so not XM post. :-( > > On Fri, Oct 17, 2014 at 11:30 AM, Rob Scott > > wrote: > > > I believe your ERRET routine is not being driven because of the > > invalid ASCB specification. > > > > When you use the ASCB parameter with ERRET, it will only be used > > when the cross-memory POST fails in the address space identified by the > > ASCB. > > > > I would imagine that if the ASCB is invalid, the POST service is > > unable to establish the correct recovery environment and it cannot > > drive > your ERRET. > > > > I would suggest making the ASCB a valid one and retesting your code > > with its bad ECB. > > > > Rob Scott > > Lead Developer > > Rocket Software > > 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA > > Tel: +1.781.684.2305 > > Email: rsc...@rs.com > > Web: www.rocketsoftware.com > > > > > > -Original Message- > > From: IBM Mainframe Discussion List > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Gabor Hoffer > > Sent: 17 October 2014 09:56 > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: XM POST ERRET= > > > > Hello, > > > > I have problem with ERRET= in POST macro. > > > > example: > > * TEST - post an invalid ECB > > LAR1,1000 invalid ECB > > LAR2,2000 invalid ASCB > > POST (R1),ASCB=(R2),ERRET=error_routine, X > >MF=(E,EXITPLST),LINKAGE=SYSTEM,ECBKEY=0 > > > > Routine (error_routine) won't get called as I post to an invalid > > ECB/ASCB address. Module abends with S602. > > > > As workaround, I use ESTAE, but i don't really like it. > > > > Can anyone send me a working example? > > > > Regards, > > Gabor > > > > > > -- For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO > > IBM-MAIN Rocket Software, Inc. and > > subsidiaries ■ 77 Fourth Avenue, Waltham MA > > 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From > > Commercial Email – unsubscr...@rocketsoftware.com Manage Your > > Subscription Preferences - > > http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFoot > > er > > _SubscriptionCenter.html > > Privacy Policy - > > http://www.rocketsoftware.com/company/legal/privacy-policy > > > > > > > > -- 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 > Rocket Software, Inc. and > subsidiaries ■ 77 Fourth Avenue, Waltham MA > 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial > Email – unsubscr...@rocketsoftware.com Manage Your Subscription > Preferences - > http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter > _SubscriptionCenter.html > Privacy Policy - > http://www.rocketsoftware.com/company/legal/privacy-policy > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listser
Re: XM POST ERRET=
Yes. MODESET MODE=SUP MODESET EXTKEY=ZERO,SAVEKEY=FOLDKEY,WORKREG=2 * TEST - post an invalid ECB LAR1,1000 invalid ECB *LAR2,2000 invalid ASCB POST (R1),ERRET=error_routine, X MF=(E,EXITPLST),LINKAGE=SYSTEM,ECBKEY=0 On Fri, Oct 17, 2014 at 12:11 PM, Rob Scott wrote: > Are you PSW Key 0-7 and supervisor state ? > > Rob Scott > Lead Developer > Rocket Software > 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA > Tel: +1.781.684.2305 > Email: rsc...@rs.com > Web: www.rocketsoftware.com > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Gabor Hoffer > Sent: 17 October 2014 10:56 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: XM POST ERRET= > > Same result without ASCB parameter, so not XM post. :-( > > On Fri, Oct 17, 2014 at 11:30 AM, Rob Scott > wrote: > > > I believe your ERRET routine is not being driven because of the > > invalid ASCB specification. > > > > When you use the ASCB parameter with ERRET, it will only be used when > > the cross-memory POST fails in the address space identified by the ASCB. > > > > I would imagine that if the ASCB is invalid, the POST service is > > unable to establish the correct recovery environment and it cannot drive > your ERRET. > > > > I would suggest making the ASCB a valid one and retesting your code > > with its bad ECB. > > > > Rob Scott > > Lead Developer > > Rocket Software > > 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA > > Tel: +1.781.684.2305 > > Email: rsc...@rs.com > > Web: www.rocketsoftware.com > > > > > > -Original Message- > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > > On Behalf Of Gabor Hoffer > > Sent: 17 October 2014 09:56 > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: XM POST ERRET= > > > > Hello, > > > > I have problem with ERRET= in POST macro. > > > > example: > > * TEST - post an invalid ECB > > LAR1,1000 invalid ECB > > LAR2,2000 invalid ASCB > > POST (R1),ASCB=(R2),ERRET=error_routine, X > >MF=(E,EXITPLST),LINKAGE=SYSTEM,ECBKEY=0 > > > > Routine (error_routine) won't get called as I post to an invalid > > ECB/ASCB address. Module abends with S602. > > > > As workaround, I use ESTAE, but i don't really like it. > > > > Can anyone send me a working example? > > > > Regards, > > Gabor > > > > -- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > Rocket Software, Inc. and > > subsidiaries ■ 77 Fourth Avenue, Waltham MA > > 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial > > Email – unsubscr...@rocketsoftware.com Manage Your Subscription > > Preferences - > > http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter > > _SubscriptionCenter.html > > Privacy Policy - > > http://www.rocketsoftware.com/company/legal/privacy-policy > > > > > > -- > > 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 > > Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA > 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 > Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com > Manage Your Subscription Preferences - > http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html > Privacy Policy - > http://www.rocketsoftware.com/company/legal/privacy-policy > > > -- > 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: XM POST ERRET=
Are you PSW Key 0-7 and supervisor state ? Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Gabor Hoffer Sent: 17 October 2014 10:56 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: XM POST ERRET= Same result without ASCB parameter, so not XM post. :-( On Fri, Oct 17, 2014 at 11:30 AM, Rob Scott wrote: > I believe your ERRET routine is not being driven because of the > invalid ASCB specification. > > When you use the ASCB parameter with ERRET, it will only be used when > the cross-memory POST fails in the address space identified by the ASCB. > > I would imagine that if the ASCB is invalid, the POST service is > unable to establish the correct recovery environment and it cannot drive your > ERRET. > > I would suggest making the ASCB a valid one and retesting your code > with its bad ECB. > > Rob Scott > Lead Developer > Rocket Software > 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA > Tel: +1.781.684.2305 > Email: rsc...@rs.com > Web: www.rocketsoftware.com > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Gabor Hoffer > Sent: 17 October 2014 09:56 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: XM POST ERRET= > > Hello, > > I have problem with ERRET= in POST macro. > > example: > * TEST - post an invalid ECB > LAR1,1000 invalid ECB > LAR2,2000 invalid ASCB > POST (R1),ASCB=(R2),ERRET=error_routine, X >MF=(E,EXITPLST),LINKAGE=SYSTEM,ECBKEY=0 > > Routine (error_routine) won't get called as I post to an invalid > ECB/ASCB address. Module abends with S602. > > As workaround, I use ESTAE, but i don't really like it. > > Can anyone send me a working example? > > Regards, > Gabor > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > Rocket Software, Inc. and > subsidiaries ■ 77 Fourth Avenue, Waltham MA > 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial > Email – unsubscr...@rocketsoftware.com Manage Your Subscription > Preferences - > http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter > _SubscriptionCenter.html > Privacy Policy - > http://www.rocketsoftware.com/company/legal/privacy-policy > > > -- > 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 Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XM POST ERRET=
Same result without ASCB parameter, so not XM post. :-( On Fri, Oct 17, 2014 at 11:30 AM, Rob Scott wrote: > I believe your ERRET routine is not being driven because of the invalid > ASCB specification. > > When you use the ASCB parameter with ERRET, it will only be used when the > cross-memory POST fails in the address space identified by the ASCB. > > I would imagine that if the ASCB is invalid, the POST service is unable to > establish the correct recovery environment and it cannot drive your ERRET. > > I would suggest making the ASCB a valid one and retesting your code with > its bad ECB. > > Rob Scott > Lead Developer > Rocket Software > 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA > Tel: +1.781.684.2305 > Email: rsc...@rs.com > Web: www.rocketsoftware.com > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Gabor Hoffer > Sent: 17 October 2014 09:56 > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: XM POST ERRET= > > Hello, > > I have problem with ERRET= in POST macro. > > example: > * TEST - post an invalid ECB > LAR1,1000 invalid ECB > LAR2,2000 invalid ASCB > POST (R1),ASCB=(R2),ERRET=error_routine, X >MF=(E,EXITPLST),LINKAGE=SYSTEM,ECBKEY=0 > > Routine (error_routine) won't get called as I post to an invalid ECB/ASCB > address. Module abends with S602. > > As workaround, I use ESTAE, but i don't really like it. > > Can anyone send me a working example? > > Regards, > Gabor > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA > 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 > Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com > Manage Your Subscription Preferences - > http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html > Privacy Policy - > http://www.rocketsoftware.com/company/legal/privacy-policy > > > -- > 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: XM POST ERRET=
I believe your ERRET routine is not being driven because of the invalid ASCB specification. When you use the ASCB parameter with ERRET, it will only be used when the cross-memory POST fails in the address space identified by the ASCB. I would imagine that if the ASCB is invalid, the POST service is unable to establish the correct recovery environment and it cannot drive your ERRET. I would suggest making the ASCB a valid one and retesting your code with its bad ECB. Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Gabor Hoffer Sent: 17 October 2014 09:56 To: IBM-MAIN@LISTSERV.UA.EDU Subject: XM POST ERRET= Hello, I have problem with ERRET= in POST macro. example: * TEST - post an invalid ECB LAR1,1000 invalid ECB LAR2,2000 invalid ASCB POST (R1),ASCB=(R2),ERRET=error_routine, X MF=(E,EXITPLST),LINKAGE=SYSTEM,ECBKEY=0 Routine (error_routine) won't get called as I post to an invalid ECB/ASCB address. Module abends with S602. As workaround, I use ESTAE, but i don't really like it. Can anyone send me a working example? Regards, Gabor -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
XM POST ERRET=
Hello, I have problem with ERRET= in POST macro. example: * TEST - post an invalid ECB LAR1,1000 invalid ECB LAR2,2000 invalid ASCB POST (R1),ASCB=(R2),ERRET=error_routine, X MF=(E,EXITPLST),LINKAGE=SYSTEM,ECBKEY=0 Routine (error_routine) won't get called as I post to an invalid ECB/ASCB address. Module abends with S602. As workaround, I use ESTAE, but i don't really like it. Can anyone send me a working example? Regards, Gabor -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP GET and PUT problems on z/OS 2.1
I thought that someone would remember difficulties with FTP on z/OS 2.1, and I didn't want to be told about the TSO problem. This sort of job worked fine under z/OS 1.13. Specifically: The job I is a big FTP GET from USA to Australia - both ends are tape. My job looks like: // SET TAPUNIT=3592 //* //FTPP115 EXEC PGM=FTP,REGION=0M,TIME=1440, // PARM='KGNMVS11.POK.IBM.COM (EXIT=16 ti 1800' //SYSFTPD DD * AUTOTAPEMOUNT TRUE ; Automatic mount of unmounted //* //OUTTAPE DD DISP=(,CATLG),UNIT=&TAPUNIT., //LABEL=(1,SL,RETPD=30),VOL=(,,,9), //LRECL=0,RECFM=U,BLKSIZE=27998, //DSN=WWP115.GSD2014B.PRODUCTS //SYSPRINT DD SYSOUT=* //SYSINDD * gsdbld ebcdic mode c sitechkptint=0 bufno=25 norestput sitedswaittime=30 datakeepalive=1800 locsite dswaittime=30 datakeepalive=1800 locsite chkptint=0 bufno=25 norestget locsite fwfriendly locsite filetype=seq + conddisp=delete get 'WWP115.GSD2014B.PRODUCTS' //DD:OUTTAPE quit //* The error I keep getting is: EZA1485I 2325233894 bytes transferred - 10 second interval rate 1220.09 KB/sec - EZA2589E Connection to server interrupted or timed out. Receiving data EZA2590E recv error from receive_data - EDC5120I Interrupted function call. (errno2=0x76650291) EZA1475I Connection with KGNMVS11.POK.IBM.COM terminated EZA2607W Transfer aborted due to receive error (-2) EZA1735I Std Return Code = 16125, Error Code = 00010 It does not fail in the same place - the byte count is always different. Someone else is also experiencing a problem doing a completely different FTP - in his case a PUT. He gets: EIRR954E: FTP message: EZA2589E Connection to server interrupted or timed out. Sending data EIRR954E: FTP message: EZA2590E send error from send_data - EDC5120I Interrupted function call. errno2=0x76690291) EIRR954E: FTP message: EZA1475I Connection with testcase.boulder.ibm.com terminated EIRR954E: FTP message: EZA2603E Error sending the file EIRR954E: FTP message: EZA2121I Command(10-27-STOR-150): EIRR950E: FTP API error: Command: SCMD PUT 'R3SD.GSD2011B.TAA1G735.ZOS1D0.DUMPT' DUMP/TAA1G735.TMP, Result=-3, Interface Error (IE): 0, Client Error code (CEC): 10 Probable cause: Socket error, other send/receive errors. We are still looking and trying different things but so far no circumvention. regards, Anthony Fletcher - NZ MIITP Team Lead NZ SMM (AirNZ, Westpac NZ , NWM AU) IBM Strategic Outsourcing Delivery Server Systems Operations Server Management Mainframe Mainframe Platform Software Program Manager NZ z/OS Technical Lead A/NZ Ph: Direct +64 4 576 8142, tieline 61 929 8142, ITN *869298142, mobile +64 21 464 864, Fax +64 4 576 5808. Internet: flet...@nz1.ibm.com, Sametime: flet...@nz1.ibm.com "The biggest threat to effective communication is the belief that it has occurred" "Winners make commitments, Losers make promises" From: Lizette Koehler To: IBM-MAIN@LISTSERV.UA.EDU Date: 17/10/2014 18:46 Subject:Re: FTP GET and PUT problems on z/OS 2.1 Sent by:IBM Mainframe Discussion List So PI09301 states * z/OS FTP cannot pull data off the REXX * * stack after FTP is put into the AUTHCMD * * section of IKJTSOxx which is required by * * z/OS FTP from V2R1 How is that related to your issue? Are you running REXX to do FTP? Or if you could provide some more details, it would help. What do you mean by "experiencing problems" ? FTP is not running, fails to run, runs but does not do X, etc... Lizette > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Anthony Fletcher > Sent: Thursday, October 16, 2014 8:33 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: FTP GET and PUT problems on z/OS 2.1 > > We have been experiencing problems with certain FTP transmissions after > upgrading to z/OS 2.1. We know about PI09301 which affects TSO, but these jobs > are batch jobs. > Anyone seen this happeneing? > -- 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