Re: Can TSO read Virtual tape using IKJEFT01 to FTP
From: Lizette Koehler To: IBM-MAIN@bama.ua.edu Sent: Tue, February 23, 2010 4:49:31 PM Subject: Re: Can TSO read Virtual tape using IKJEFT01 to FTP In the old days you have the ACCOUNT function in TSO that you could set MOUNT. In today's environment, I think that is controlled in the TSO Segment of your security product. So I would check with your security admins to see if your TSO Segment has MOUNT capability. Lizette SNIP- Ahh the mount authority... we had a terrible time with this and the MSS (3850 for all you newbies). In order to mount a volume tso users had to be given MOUNT the problem with that as I explained to management there is no difference to MVS whether it is a disk mount or a tape mount.. Only a few systems people had it after a big fight and we had to be extra careful a tapemount wasn't requested. This caused no end of confusion to the operators. The other issue was that the MSS was not to fast about mounting volumes and it tied up Q$ for a long time causing others to wait. We had more stand alones involving sysiefsdq4 (close anyway) that out IBM rep got a name for himself back in boulder. Ed -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO reconnect (ikjefln2) reject by RACF
thanks you all on your advices. why did IBM relased this function only from z/1.10 On Tue, Feb 23, 2010 at 11:03 PM, Chris Mason wrote: > Dana > > Thank you for bringing this function, new in V1R11, to my attention. > > In a sense "fortunately", the title line is somewhat misleading. This > looked like > something new in VTAM, "support for VTAM ..." and so I decided I should > know > more about it and did my research. > > Well, it involves VTAM only as it involves any other program using the VTAM > API and it betokens nothing whatsoever *new* in VTAM - that's VTAM as we > normally regard it, see later. > > And while we're discussing what it is *not*, the reference to IP addresses > is > misleading since the enhancement has no - direct - bearing on TN3270. It's > possible however that the customers thumping the table most loudly > demanding this function - distinctly in the English rather than the French > sense - do so because they want to use it with TN3270 connections. > > The point is that, without this enhancement - and still if you decide to > override the default parameter setting in IKJTSOxx, LOGONHERE(YES), and > specify LOGONHERE(NO) - TSO was obliged to have been told that there had > been an abnormal termination to the session before TSO would consider > a "logon" from a different LU for the same user. With LOGONHERE(YES), TSO > is > prepared to terminate an existing session for a user when apparently the > same > user "reappears" using another LU - he/she could not, of course, have been > using the same LU and "reappear". > > IP addresses and TN3270 come into the picture as a practical matter. A TSO > user may know that all is lost and that he/she needs to "reappear" but the > sedate system may not - yet - have awoken to the fact that all is lost and > still consider that a perfectly viable SNA session - although probably not > a > concatenated TN3270 TCP connection - is still in place. > > It's interesting that this enhancement - involving nothing new in VTAM, as > I > said - appears in the Communications Server New Functions Summary manual > for V1R11. It absolutely does not belong there and lies through its teeth > when > it claims to involve "z/OS V1R11 Communications Server". It involves only > TSO/E - although I have a niggling suspicion that logic provided by VTAM > (the > Communications Server SNA component) in support of TSO(/E) may be > involved since historically VTAM has had a lot to do with TSO. Do we need > to > be reminded of that - no we do not, it just confuses us!!! > > Descriptions of this enhancement appear in the TSO/E Customization manual - > only in a section describing how to change LOGONHERE(YES) to LOGONHERE > (NO) - a bit superfluous really! - and in the Initialization and Tuning > Reference > because that's where IKJTSOxx is described - which is all you need to know, > especially that it's a function VM has had for eons: > > > > Chapter 60. IKJTSOxx (TSO/E commands and programs) > > ... > > Statements/parameters for IKJTSOxx > > LOGON > > Specifies the system settings for the TSO/E LOGON command: > > LOGONHERE(ON|OFF) > > Specifies whether the RECONNECT option on the TSO/E LOGON panel will be > honored even when the system does not detect a disconnected state and the > user appears to be logged on. This allows users to reconnect their session > from a new terminal without canceling their previous session first, similar > to > how the LOGONHERE option works under z/VM. > > Default: ON > > ... > > > > Chris Mason > > On Tue, 23 Feb 2010 10:38:12 -0600, Dana Mitchell > wrote: > > >On Tue, 23 Feb 2010 08:26:34 -0600, Elardus Engelbrecht > > wrote: > >>>AFAIK there is no way around this pre z/OS 1.11 > >> > >>Please, could you be very kind to provide any useful documentation(s) or > links > >>about this interesting tidbit? > >> > >>Groete / Greetings > >>Elardus Engelbrecht > >> > >Elardus, > > > >In z/OS V1R11.0 Introduction and Release Guide > >Document Number: GA22-7502-17 > >And probably TSO book also: > > > > > >1.28.2 TSO/E LOGONHERE support for VTAM unconditional reconnect > > > >| Description: TSO/E LOGONHERE support for VTAM unconditional reconnect > >now > >| allows you to reconnect to your session even if no disconnection has > been > >| detected. By default in z/OS V1R11, LOGONHERE support is turned on. By > >| specifying the reconnect option, you can easily switch from one computer > >| to another or reestablish a session after a loss of connectivity (even > >| with a new IP address). > > > >| When change was introduced: z/OS V1R11. > > > >It works well. > > > >Dana > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- best regards, matan cohen MF System Administrator. -
Re: LPARs: More or Less?
On Tue, 23 Feb 2010 12:30:25 -0500, Scott Rowe wrote: >I don't know that I would say that running QA in a different LPAR >than DEV is "best practices", I certainly run them in the same >LPAR here, and at nearly every site I have ever worked at. All PCI-compliant installations (a) Must have separate DEV/TEST/QA and PRODUCTION environments (b) Must have Separation of Duties for the two environments (c) Cannot give DEV/TEST access to PRODUCTION PANs And rather than micro-manage the ACLs, it is far simpler to create another LPAR. Having done it once, you replicate your success in order to separate QA from DEV/TEST. (QA really is a different environment than DEV/TEST, IMO.) My point is that the level of separation is, more often than not, dictated not by the capabilities of the OS, but by (1) regulatory considerations (2) in-house politics (appl owner, security, turf wars, ...) (3) system programmer convenience >I certainly have no desire to spend time on VM if I don't need the >functionality, I simply don't have the time. I have worked on VM >before, and rather like it, but if the tool doesn't fit I have no desire >to use it. That's the real nugget of Truth. Do what you need to do. Just do it with your eyes wide open and use the right tool for the job. Alan Altmark z/VM Development IBM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Consolidate Storage Groups
>Naturally, we're not at production yet with its performance/placement >considerations. What performance/placement considerations? With cache/fast DASD/FICON, what's left? - Too busy driving to stop for gas! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Writable static (was: Best practice for 24-bit storage)
On Wed, 24 Feb 2010 02:03:56 +, john gilmore wrote: > >It is conventional in C to be able to have writable static >storage statically initialized piecewise from multiple >translation units. Such initialization is effective even >before the relevant translation unit has been entered by >a call. The "ugliness" arises when one attempts to accomplish this with >pseudoregisters. > >C's use of multiple copies of 'writable static' is certainly 'customary'; it >is indeed ineluctable; but it is also an ugly, clumsy, and finally inadequate >remedy for a radical design oversight. (I have been looking recently at a >much-used CICS AP written in C that keeps as many as 188 copies of such >writable static around concurrently, and I thus know whereof I speak; >rewriting it in Enterprise PL/I improved its performance threefold and reduced >its dynamic-storage usage tenfold.) > I'm not sure I understand. Actually, I'm sure I don't understand. How do "multiple copies of 'writable static'" arise? And what determines which copy is actually used? If it's not determined that a single unique copy is used, the implementation is flawed; should be APARable. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best p ractice fo r 24-bit s torage in assembler called fro m C/C++
Paul Gilmartin writes: It is conventional in C to be able to have writable static storage statically initialized piecewise from multiple translation units. Such initialization is effective even before the relevant translation unit has been entered by a call. The "ugliness" arises when one attempts to accomplish this with pseudoregisters. and this is inexcusable. Even a cursory understanding of how the PL/I initial attribute can be used to address his pseudo, i.e., inexistent problem would have saved him from such a blunder. My, admittedly strong, distaste for C reflects [toop] much experience with it. His comments about PL/I reflect only radical ignorance of it. His defensiveness about the deficiencies of the C language reminds me of a mother's defense of her paraplegic child's baseball prowess: It is, I suppose, morally admirable, but it also misconceived. C's use of multiple copies of 'writable static' is certainly 'customary'; it is indeed ineluctable; but it is also an ugly, clumsy, and finally inadequate remedy for a radical design oversight. (I have been looking recently at a much-used CICS AP written in C that keeps as many as 188 copies of such writable static around concurrently, and I thus know whereof I speak; rewriting it in Enterprise PL/I improved its performance threefold and reduced its dynamic-storage usage tenfold.) John Gilmore Ashland, MA 01721-1817 USA _ Hotmail: Free, trusted and rich email service. http://clk.atdmt.com/GBL/go/201469228/direct/01/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: catalog a vsam dataset in another catalog ?
I don't think I've ever seen any page datasets named other than SYS1 or PAGE either, but I remember reading the doc back in 1999. >>> Mark Zelden 02/23/10 4:49 PM >>> On Tue, 23 Feb 2010 16:18:31 -0500, Scott Rowe wrote: >I'm not sure how long it's been this way, but I can say for sure that it > worked this way in about 1999, because I know I used it then. > I assume based on this APAR below from 1992 that it had always been that way and I just remembered it wrong as "PAGE.*" instead of "all pagespace". Probably a combination of that and the fact that I've never seen anything used but SYS1 and PAGE as HLQs for page data sets at every shop I've been at. APAR Identifier .. OY51398 Last Changed 95/04/03 GET MSGIDC3009I RC86 RC10 RECATALOGING NON SYS1 SMS IPL DATA SETS INTO A DIFFERENT MASTER CATALOG. OR RSN22 RC22 Symptom .. DD MSGIDC3009I Status ... CLOSED DOC Severity ... 4 Date Closed . 92/04/01 Component .. 566528418 Duplicate of Reported Release . 320 Fixed Release Component Name DFP/XA ICF CAT/ Special Notice Current Target Date .. Flags SCP ... Platform Status Detail: Not Available PE PTF List: PTF List: Parent APAR: Child APAR list: ERROR DESCRIPTION: RECATALOG OF SMS NON SYS1 IPL DATA SET INTO A DIFFERENT MASTER CATALOG FAILS WITH MSGIDC3009I RC86 RC10 IGG0CLEJ or rc22 rsn22 NON SMS NON SYS1 IPL DATA SETS ARE ABLE TO GET RECATALOGED INTO MULTIPLE CATALOGS. GC281828, SC264500 AND SC264659 MANUALS WILL BE CHANGED TO DOCUMENT THE RESTRICTIONS ON NON SYS1 SMS MANAGED IPL SYSTEM DATA SETS. LOCAL FIX: PROBLEM SUMMARY: * USERS AFFECTED: USERS OF HDP3310 AND UP * * PROBLEM DESCRIPTION: RECATALOG OF A DATASET THAT IS * * NOT A SWAPSPACE, PAGESPACE OR * * A SYS1 DATASET INTO A DIFFERENT * * MASTER CATALOG FAILS WITH * * MSGIDC3009I RC86 RC10. * * RECOMMENDATION: UPDATE MANUALS. * A DATASET MUST BE RECATALOGED INTO A CATALOG WITH THE SAME CATALOG NAME SPECIFIED IN THE VVR OR NVR UNLESS IT IS A PAGESPACE, SWAPSPACE OR SYS1 DATASET. THIS RESTRICTION IS NOT EXPLICITLY STATED IN THE DOCUMENTATION. PROBLEM CONCLUSION: RECATALOG OF NON SYS1 IPL DATASET INTO A DIFFERENT MASTER CATALOG FAILS WITH MSGIDC3009I RC86 RC10. A DATASET MUST BE RECATALOGED INTO THE CATALOG WITH THE SAME CATALOG NAME IN THE VVR OR NVR UNLESS IT IS A PAGESPACE, SWAPSPACE OR SYS1 DATASET. THIS RESTRICTION IS NOT EXPLICITLY STATED IN THE DOCUMENTATION. . THE AMS ICF REFERENCE (SC26456202) WILL BE UPDATED UNDER DEFINE CLUSTER RECATALOG PARAMETER TO STATE 'CATALOG ENTRIES CAN ONLY BE RECREATED IN THE CATALOG SPECIFIED IN THE VVR UNLESS THEY ARE A SWAPSPACE, PAGESPACE OR SYS1 DATASET. . THE AMS ICF REFERENCE (SC26456202) WILL BE UPDATED UNDER DEFINE NONVSAM RECATALOG PARAMETER TO STATE 'CATALOG ENTRIES CAN ONLY BE RECREATED IN THE CATALOG SPECIFIED IN THE NVR UNLESS THEY ARE A SWAPSPACE, PAGESPACE OR SYS1 DATASET. IN A MULTIHOST ENVIRONMENT, NON SYS1 SMS IPL DATASETS CANNOT BE RECATALOGED TO A DIFFERENT CATALOG THAN THE ONE IN THE NVR. IN A MULTIHOST ENVIRONMENT, ALL SMS IPL DATASETS THAT ARE TO BE SHARED MUST BE SYS1 DATASETS. . MVS/DFP MANAGING CATALOGS (SC26455502) WILL BE UPDATED UNDER 'RECATALOGING DATA SETS AND VSAM OBJECTS' TO STATE 'DATASETS CAN ONLY BE RECATALOGED INTO THE CATALOG SPECIFIED IN THE VVR/NVR WITH THE EXCEPTION OF PAGESPACE, SWAPSPACE OR SYS1 DATA SETS.'. . THE MVS/ESA INITIALIZATION AND TUNING REFERENCE (GC28163500) UNDER LNKLSTXX (LINK LIBRARY LIST) USE OF MEMBER UNDER LNKLSTXX (LINK LIBRARY LIST) USE OF MEMBER NOTE 2 WILL BE MODIFIED TO STATE 'NON SYS1 LINK LIBRARIES THAT ARE SMS MANAGED CANNOT BE SHARED MULTIPLE SYSTEMS.'. . THE MVS/ESA INITIALIZATION AND TUNING REFERENCE (GC28163500) UNDER LPALSTXX (LPA LIBRARY LIST) USE OF MEMBER UNDER LPALSTXX (LPA LIBRARY LIST) USE OF MEMBER NOTE 2 WILL BE MODIFIED TO STATE 'NON SYS1 LPA LIBRARIES THAT ARE SMS MANAGED CANNOT BE SHARED AMONG MULTIPLE SYSTEMS.'. . IN THE MVS/ESA STORAGE MANAGEMENT SUBSYSTEM MIGRATION PLANNING GUIDE (SC26465900) UNDER 'MULTIHOST ENVIRONMENT', A PARAGRAPH WILL BE ADDED TO STATE 'IF LPA OR LINK DATA SETS THAT ARE SMS MANAGED ARE TO BE SHARED THEY MUST BE SYS1 DATA SETS.'. . THE MVS/ESA MESSAGE LIBRARY SYSTEM MESSAGES VOLUME 1 (GC28165601) FOR
Re: FTP Datahub Question
On Tue, 23 Feb 2010 15:38:42 -0600, McKown, John wrote: >> -Original Message- >> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Donnelly, John P >> Sent: Tuesday, February 23, 2010 2:58 PM >> >>We have a user who wishes to FTP a file from sending >> server A to neutral server B and independent of A and B, >> server C will logon to server B and read the file. >> >>Any suggestions as to how we might lock out server C until >> the FTP from server A to server B is complete? > Generally, one end of an FTP connection is called a "server" and the other is called a "client". Please unconfuse me. >Two questions: > >1.What do you mean by "independant server C"? >2.What do you mean by "lock out server C"? > >My guess, if you want server C to initiate the ftp, is to make sure that the >dataset under consideration does not exist on server B except in the interval >between it being sent by server A and before being gotten by server C. To me, >this means that initially the dataset does not exist. Server A then ftp's the >data, creating the dataset. Server C will, sometime after that, download the >data and delete the file on server B. > >The above will allow server C to "poll" server B until such time as the >dataset appears on B. And then delete the dataset so that it will not >redownload the data. Note that if you are talking about a standard z/OS >dataset on server B, then server C cannot download it while it is being >uploaded by A due to the fact that server B will have it enqueued. If server B >is not z/OS (maybe UNIX or even a z/OS UNIX file), then server A will need to >ftp an "trigger" file to B once the real dataset is completely sent. Server C >must then check to see if the "trigger" file is available. If it is, then >download the dataset and delete it and the trigger. Otherwise, wait and try >again later. We use this "trigger" method to send data to a Windows server >which processes the actual file when the trigger file appears. > I do this quite successfully with UNIX files on server B with no "trigger" file by exploiting the FTP RENAME command: client A transfers the file to a temp name on server B client A RENAMEs the temp file on server B to its permanent name. Client C polls for the appearance of the file on server B under the permanent name. Disclaimers: o Server B is Solaris, not z/OS. o Client C is a local process on server B, not a remote FTP client. It polled not for existence of the file, but for change in its timestamp. UNIX rename() is preemptive, atomic, and nondisruptive to open descriptors -- all excellent facilities ensuring that client C never perceives the file to be nonexistent or corrupted. The absence of ENQ ensures that the rename will never fail because of lockout. For us, the timing window for missing a revision is harmless; at worst, client C gets a superior superseding instance. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determining if DUMMY allocation
I wasn't picking on JES3 specifically or any one aspect of things. My point was just that when you are a product vendor you never know what darned environment your product is going to run in, and it can be *very* difficult shooting a problem that only happens on a customer machine *without* ticking off the customer. So I try to choose interfaces -- when they're not GUPI interfaces -- that in my imperfect judgment (guess?) will be least likely to cause unpleasant consequences at a customer site. I was just riffing on that general concept -- not making a real fine judgment -- when I mentioned the particular bits in question and JES3. As a smaller vendor you have a particular challenge. I imagine CA does regression testing on their JES3 box as a regular part of product release. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Thompson, Steve Sent: Tuesday, February 23, 2010 4:59 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Determining if DUMMY allocation -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Charles Mills Sent: Tuesday, February 23, 2010 6:14 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Determining if DUMMY allocation I contract with such an ISV. We are using IBM Dallas. Our development virtual machine has JES2 only. I suppose I could ask for JES3 -- is that your impression? It would be somewhat down on the priorities at this point, but it's good to know if so. We can take this off-line if you prefer -- I think you can see and perhaps have my e-mail address. Charles If you have the JES3 manuals available, and should you have the JES3 macro library available, you can do a bit of checking. It has been a Lonnnggg time since I've done anything related to JES3 internals. And that was back when we did SYSGENs -- before MVS/SE. I don't think that MVS has to be cognizant of JES3 like it use to. So from this I don't think JES3 mangles the TIOT or SWA. And the DATA AREAS manual lists IATYDDL ("DD LEVEL INFORMATION") and says that JES3 copies the data it needs from the TIOT, SWA, etc. You can check this out along with the JES3 Customization (which lists the macros and what they do/are for): https://www-03.ibm.com/systems/z/os/zos/bkserv/r7pdf/#jes3 Regards, Steve Thompson -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determining if DUMMY allocation
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Charles Mills Sent: Tuesday, February 23, 2010 6:14 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Determining if DUMMY allocation I contract with such an ISV. We are using IBM Dallas. Our development virtual machine has JES2 only. I suppose I could ask for JES3 -- is that your impression? It would be somewhat down on the priorities at this point, but it's good to know if so. We can take this off-line if you prefer -- I think you can see and perhaps have my e-mail address. Charles If you have the JES3 manuals available, and should you have the JES3 macro library available, you can do a bit of checking. It has been a Lonnnggg time since I've done anything related to JES3 internals. And that was back when we did SYSGENs -- before MVS/SE. I don't think that MVS has to be cognizant of JES3 like it use to. So from this I don't think JES3 mangles the TIOT or SWA. And the DATA AREAS manual lists IATYDDL ("DD LEVEL INFORMATION") and says that JES3 copies the data it needs from the TIOT, SWA, etc. You can check this out along with the JES3 Customization (which lists the macros and what they do/are for): https://www-03.ibm.com/systems/z/os/zos/bkserv/r7pdf/#jes3 Regards, Steve Thompson -- Opinions expressed by this poster may not reflect those held by poster's employer -- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
On Tue, 23 Feb 2010 18:01:57 +, john gilmore wrote: >You will need several DXDs and a single CXD. > ... >The absence of this facility from C--Dennis Ritchie did not understand what >controlled storage was for--is the reason for all the ugliness of multiple >copies of writable static in C. > It is conventional in C to be able to have writable static storage statically initialized piecewise from multiple translation units. Such initialization is effective even before the relevant translation unit has been entered by a call. The "ugliness" arises when one attempts to accomplish this with pseudoregisters. Cue Dave Rivers. It might be be better with LE facilities, but I understand LE has its drawbacks. BTW, are there 64-bit forms of CXD and DXD (regardless that 64-bit address space strains the notion of "register")? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determining if DUMMY allocation
I will file this for future reference. Thanks much! Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Edward Jaffe Sent: Tuesday, February 23, 2010 4:31 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Determining if DUMMY allocation Charles Mills wrote: > I contract with such an ISV. We are using IBM Dallas. Our development > virtual machine has JES2 only. I suppose I could ask for JES3 -- is that > your impression? It would be somewhat down on the priorities at this point, > but it's good to know if so. We can take this off-line if you prefer -- I > think you can see and perhaps have my e-mail address. > The systems in Dallas have full JES3 support. I know because I set it up for them long ago. Your z/OS systems runs as a guest under z/VM. There is a profile exec that runs when you XAUTOLOG your system. You can't update the profile exec yourself (you don't have WRITE access to your system's 191 disk). But, if you ask they will make a minor change to this script (uncomment one line) and from that day forward it will prompt whether you would like to come up with JES2 or JES3 each time you bring up your system. You send the appropriate answer using the CP SEND command. HTH... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
PDS vs PDSE
I posted the original question on behalf of a colleague who was curious about customer views; I've been forwarding comments to him. John Ehrman (-- Referenced Note Follows ) Date:Mon, 22 Feb 2010 07:21:05 -0600 From:Barbara Nitz Subject: Abysmal PDSE performance <...> So, now that John Ehrman has managed to get the PDSE discussion started, he is conspiciously absent from the discussion -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determining if DUMMY allocation
Charles Mills wrote: I contract with such an ISV. We are using IBM Dallas. Our development virtual machine has JES2 only. I suppose I could ask for JES3 -- is that your impression? It would be somewhat down on the priorities at this point, but it's good to know if so. We can take this off-line if you prefer -- I think you can see and perhaps have my e-mail address. The systems in Dallas have full JES3 support. I know because I set it up for them long ago. Your z/OS systems runs as a guest under z/VM. There is a profile exec that runs when you XAUTOLOG your system. You can't update the profile exec yourself (you don't have WRITE access to your system's 191 disk). But, if you ask they will make a minor change to this script (uncomment one line) and from that day forward it will prompt whether you would like to come up with JES2 or JES3 each time you bring up your system. You send the appropriate answer using the CP SEND command. HTH... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
3590-A50 ATL maximum concurrent I/O's per CU
Issued: Error! Unknown document property name. iii How many I/O's can a 3590-A50 control unit do *concurrently*? The "3590 Intro. and Planning Guide" in section 1.2.2 says ... -- Model A50 provides a single data transfer path with one (FC3311) or two (FC3311 and FC3312) ESA/390 ESCON channel attachment adapters. -- But does this mean 1x I/O per CU total? Or 1x I/O per path to the CU, which would be 2x I/O's total for us? Regards, Fred Schmidt Data Centre Services, NT Government Australia -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determining if DUMMY allocation
I contract with such an ISV. We are using IBM Dallas. Our development virtual machine has JES2 only. I suppose I could ask for JES3 -- is that your impression? It would be somewhat down on the priorities at this point, but it's good to know if so. We can take this off-line if you prefer -- I think you can see and perhaps have my e-mail address. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Edward Jaffe Sent: Tuesday, February 23, 2010 3:41 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Determining if DUMMY allocation Charles Mills wrote: > I don't have a copy laying around, if that's what you mean. > Sorry. For some reason I thought you worked for an ISV that was part of PWD and ADCD and/or Dallas development programs. Maybe that was your former employer... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determining if DUMMY allocation
Charles Mills wrote: I don't have a copy laying around, if that's what you mean. Sorry. For some reason I thought you worked for an ISV that was part of PWD and ADCD and/or Dallas development programs. Maybe that was your former employer... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determining if DUMMY allocation
I don't have a copy laying around, if that's what you mean. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Edward Jaffe Sent: Tuesday, February 23, 2010 3:32 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Determining if DUMMY allocation Charles Mills wrote: > It's "product" code that will be shipped to multiple customers, many of > which will have MVS environments under which I will not be able to test, > such as JES3. > You can't test under JES3? -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determining if DUMMY allocation
Charles Mills wrote: It's "product" code that will be shipped to multiple customers, many of which will have MVS environments under which I will not be able to test, such as JES3. You can't test under JES3? -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
Thanks all. All things considered, I think I am going to use the "word 0 of the first save area" technique. I will put a pointer to my BTL storage directly there, but I will reserve the first few words for additional pointers just in case a need arises. I will put an eyecatcher on the front, and I will check for 0 in the word before initializing it, and check for my eyecatcher before using the address value. Probably do a single GETMAIN, but make one of the first few words point to the main part of the area so that there is compatibility with a different allocation scheme going forward. CEE3USR and CEEARLU are close runners-up. Looking at them more closely will be my fallback if I get worried about the robustness of the above technique. Thanks again. Great resource. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Tony Harminc Sent: Tuesday, February 23, 2010 2:54 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Best practice for 24-bit storage in assembler called from C/C++ On 23 February 2010 13:38, Charles Mills wrote: > I kind of get pseudoregisters I think. The idea is that you can write a > bunch of disjoint DSECTs and the compilers and binder will essentially > assemble them all into one big area, and tell you at run time the total size > (in a CXD) and the offset of each DSECT (in a Q con) within the > conglomeration. Coding DXD F is kind of like coding a one-word DSECT -- not > wrong but not very efficient use of source code. > > I guess the fundamental question is this: will something outside of my code > give me that one task-unique word? I am beginning to think it will not. The > problem pseudo-registers seem to solve is " one GETMAIN for many DSECTs -- > even across separate compilation units" -- not "give me some task-unique > storage." I keep coming back to the same problem: there's no way anything > stored inside your code could possibly be reentrant-task-unique. Right - the Binder (and its several deprecated friends) will not magically obtain your task-unique word. But LE will, and with C++ you are anyway running in an LE world. Check out the Anchor Support section, chapter 15 in, of all user-friendly places, the Language Environment Vendor Interfaces book. Lots of interesting stuff in there, much of which probably should be in the mainstream books. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
> Lots of interesting stuff in there, much of which probably should be in the mainstream books. Roger that -- both of your points. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Tony Harminc Sent: Tuesday, February 23, 2010 2:54 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Best practice for 24-bit storage in assembler called from C/C++ On 23 February 2010 13:38, Charles Mills wrote: > I guess the fundamental question is this: will something outside of my code > give me that one task-unique word? I am beginning to think it will not. The > problem pseudo-registers seem to solve is " one GETMAIN for many DSECTs -- > even across separate compilation units" -- not "give me some task-unique > storage." I keep coming back to the same problem: there's no way anything > stored inside your code could possibly be reentrant-task-unique. Check out the Anchor Support section, chapter 15 in, of all user-friendly places, the Language Environment Vendor Interfaces book. Lots of interesting stuff in there, much of which probably should be in the mainstream books. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
David, what's the name/location of the IBM C/C++ forum? Thanks! -- Regards, Gord Tomlin Action Software International (a division of Mazda Computer Corporation) Tel: (905) 470-7113, Fax: (905) 470-6507 David Crayford wrote: They did. The C/C++ runtime library reference clearly states LP64. It's obviously a design error because it's a crazy restriction. If Kelly Arrey is watching maybe she can set the wheels in motion to changing it. Otherwise there is an IBM C/C++ forum where you can make your grievances known. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Consolidate Storage Groups
On 2010-02-20 at 17:44 concerning "Consolidate Storage Groups", Rebecca Martin wrote to IBM-Main : > We are a small shop with a big SMS mess as far as the ACS routines and > number of storage groups. We have over 80 storage groups [snip] The > storage admin believes [snip] the datasets have to be moved. > [snip] get down to around 15 to 20 storage groups. [snip] reassign all > the volumes in 1 pool to another. [snip] Is it that easy? [snip] Rebecca : additional to all the good advice... It sounds like my situation where SC<->SG and pools were used to keep one group from clobbering another space-wise ie x37 problems. Now, everything goes into my STD pool of 80 volumes unless there're very compelling reasons not to. For me that leaves DB2 - IVP (3 sub-sys), AppDev (3 sub-sys), and Prod (2 sub-sys), PERM - LnkLst, LpaLst, etc, Recovery - Logs & backups that are migrated daily, plus a coupla specialities for under 15 total. (the maximum number allowable for &SG=) StorClas's are to identify the type of data & service not where it should be placed. There's no reason they can't occupy the same SG pool. We also FDR Archive by MgmtClas in all pools. I used a FiltList to convert obsolete classes (DC, SC, MC) so that it was not necessary to Alter old entries. Any new dataset creation - JCL, TSO, IdcAms, recalls, etc. will be automagically transferred to their new values ie. FILTLIST OBS_SC_SYSDATA INCLUDE ('MONITOR', 'CICSDATA') SELECT (&STORCLAS) WHEN (&OBS_SC_SYSDATA) SET &STORCLAS='SYSDATA' Keep your old StorGrps around but assign them one fake volume ie. BOGON00, BOGON01, etc. All StorGrps in the SG ACS should include an Overflow SG (ie. SET &STORGRP = 'thisGrp' 'SPILL') and I use one for all my pools. It's make them stick out like a sore thumb. Each pool should also have a quiesced volume (or several) to allow for that occasional, really large allocation request. I find the actual size used is often *much* smaller than SPACE= so I have a daily FDRMove job that attempts to scour those quiesced volumes and usually finds space elsewhere in the pool. I still have a couple of volumes from obsolete SG pools hanging around in my STD pool (DISNEW) because I haven't bothered to move the datasets and they're in continual use ie. TcpParms, Ucats, OMVS Home. It's only been 3 years - I'll find an outage time for them eventually. My DBA is also pleased with the new Scratch pool I cooked up. I took all of the non-assigned volumes and made a pool of them for large, temporary, gone-in-a-week type uses. (They're sitting empty anyway & I keep a handful aside for emergency use.) The DBA uses it for intermediary datasets (a mid-step backup) when he needs to do a whole bunch of table/index space re-orgs. It's faster than tape and they default to an MC that deletes them after a while so he doesn't have to clean-up. When I need to add a volume to a pool, I find an empty one in the Scratch pool. When my Scratch pool gets small, time to order new Dasd. ps. I do my activations mid-afternoon which is a local lull and always from a different SCDS/ACDS so I can instantly switch back. After 7+ days, I transfer the IGDSMS10.SCDS into IDGSMS00.SCDS and activate the permanent copy. Then I can start work on my next iteration. pps. DB2 doesn't seem to care what SMS does. I started managing one sub-system and the DBA's didn't notice for a whole year. They have approx. 10-20 StoGroups defined but DB2 didn't care if the volume wasn't what it requested. Naturally, we're not at production yet with its performance/placement considerations but I think I have a solution for that worked out. ppps. ABRInit StorClas= is to get the allocation pointed at the right SG where the volume resides. After that, it's extraneous information. ooops... this was meant to be short. ah well. --> signature = 6 lines follows <-- Neil Duffee, Joe SysProg, U d'Ottawa, Ottawa, Ont, Canada telephone:1 613 562 5800 x4585 fax:1 613 562 5161 mailto:NDuffee of uOttawa.ca http:/ /aix1.uottawa.ca/ ~nduffee "How *do* you plan for something like that?" Guardian Bob, Reboot "For every action, there is an equal and opposite criticism." "Systems Programming: Guilty, until proven innocent" John Norgauer 2004 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
On 23 February 2010 13:38, Charles Mills wrote: > I kind of get pseudoregisters I think. The idea is that you can write a > bunch of disjoint DSECTs and the compilers and binder will essentially > assemble them all into one big area, and tell you at run time the total size > (in a CXD) and the offset of each DSECT (in a Q con) within the > conglomeration. Coding DXD F is kind of like coding a one-word DSECT -- not > wrong but not very efficient use of source code. > > I guess the fundamental question is this: will something outside of my code > give me that one task-unique word? I am beginning to think it will not. The > problem pseudo-registers seem to solve is " one GETMAIN for many DSECTs -- > even across separate compilation units" -- not "give me some task-unique > storage." I keep coming back to the same problem: there's no way anything > stored inside your code could possibly be reentrant-task-unique. Right - the Binder (and its several deprecated friends) will not magically obtain your task-unique word. But LE will, and with C++ you are anyway running in an LE world. Check out the Anchor Support section, chapter 15 in, of all user-friendly places, the Language Environment Vendor Interfaces book. Lots of interesting stuff in there, much of which probably should be in the mainstream books. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Can TSO read Virtual tape using IKJEFT01 to FTP
In the old days you have the ACCOUNT function in TSO that you could set MOUNT. In today's environment, I think that is controlled in the TSO Segment of your security product. So I would check with your security admins to see if your TSO Segment has MOUNT capability. Lizette > >I am attempting to do an FTP using IKJEFT01 and getting errors that tape mount >not possible. >I have AUTOTAPEMOUNT set to true. > >It works when using pgm=ftp rather than ftping thru batch tso. > >My question is, Is it possible for a tso session to read a Virtual Tape? I >have tried >many different ways and googled but not finding what I need. Below is the step >I am executing and below that is the Rexx. This was as close as I could get to >getting the tape to actually mount but then I got abend 1102 ERROR IN FTP, RC >= 27000 >basically stating not able to mount tape and autotapemount not used even >though I have >autotapemount set to true in my TCPPARMS member. Any help would be >appreciated. >The reason we are using rexx is because ftp fails from time to time and we are >coding the ftp >to be passed a second time when rc not =0. So if you know of another way to >retry that would >help too. > >//STEP0010 EXEC PGM=IKJEFT01 >//TAPEDD DD DISP=SHR,DSN=MOE.PSD.COMBINED.DISPEXTR.NEW >//STEPLIB DD DSN=JBH.PROD.LOADLIB,DISP=SHR >//SYSEXEC DD DSN=JBH.PROD.SYSDEV.CLIST,DISP=SHR >//SYSTSPRT DD SYSOUT=* >//SYSOUT DD SYSOUT=* >//SYSTSIN DD * > EX 'DATA.SET.HERE(MEMBER)' > >Here is what I have in member >TRACE ?ALL >ADDRESS TSO >"ALLOC FI(SYSFTPD) DA('SYS2.TCPIP.PRD3.TCPPARMS(FTPDATA)') SHR REUSE" >"EXECIO * DISKR SYSFTPD (FINIS" > >L1 = "PUT //DD:TAPEDD ICQ_DISPATCH_BIN.TXT " > >QUEUE 'x\ xxx' >QUEUE 'binary' >QUEUE L1 >/*QUEUE 'QUIT'*/ >QUEUE '' >"FTP FTPTEST (EXIT" >/*"FTP 10.69.3.86 (EXIT" */ >IF RC ¬= 0 THEN DO > sleep (60) > "NEWSTACK" > QUEUE 'jbh01\piddwftp udb07pd' > QUEUE L1 > /*QUEUE 'QUIT'*/ > QUEUE '' > > > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FTP Datahub Question
...thankyou John... -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of McKown, John Sent: Tuesday, February 23, 2010 1:39 PM To: IBM-MAIN@bama.ua.edu Subject: Re: FTP Datahub Question > -Original Message- > From: IBM Mainframe Discussion List > [mailto:ibm-m...@bama.ua.edu] On Behalf Of Donnelly, John P > Sent: Tuesday, February 23, 2010 2:58 PM > To: IBM-MAIN@bama.ua.edu > Subject: FTP Datahub Question > >We have a user who wishes to FTP a file from sending > server A to neutral server B and independent of A and B, > server C will logon to server B and read the file. > >Any suggestions as to how we might lock out server C until > the FTP from server A to server B is complete? Two questions: 1.What do you mean by "independant server C"? 2.What do you mean by "lock out server C"? My guess, if you want server C to initiate the ftp, is to make sure that the dataset under consideration does not exist on server B except in the interval between it being sent by server A and before being gotten by server C. To me, this means that initially the dataset does not exist. Server A then ftp's the data, creating the dataset. Server C will, sometime after that, download the data and delete the file on server B. The above will allow server C to "poll" server B until such time as the dataset appears on B. And then delete the dataset so that it will not redownload the data. Note that if you are talking about a standard z/OS dataset on server B, then server C cannot download it while it is being uploaded by A due to the fact that server B will have it enqueued. If server B is not z/OS (maybe UNIX or even a z/OS UNIX file), then server A will need to ftp an "trigger" file to B once the real dataset is completely sent. Server C must then check to see if the "trigger" file is available. If it is, then download the dataset and delete it and the trigger. Otherwise, wait and try again later. We use this "trigger" method to send data to a Windows server which processes the actual file when the trigger file appears. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Adventure - Or Colossal Cave Adventure
On 2/23/2010 3:44 PM, jack.hamil...@kp.org wrote: I used SAIL (and some other language, don't remember which now) on the LOTS machine mentioned in the DEC-10 messages below. I really liked TOPS-20. Then I really liked VM/CMS and XEDIT. And I liked WYLBUR. I guess it's my fate to like doomed operating systems and editors. There is a public access TOPS-20 system at twenex.org. Go to http://www.twenex.org/ to setup an account. They have all the old games including advent. It is part of the SDF public access UNIX system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
Thanks. There is no one DCB that is consistently open across all calls -- actually none that are open across any two calls as of this moment -- but it's a clever idea. I will keep it in mind. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of J R Sent: Tuesday, February 23, 2010 11:04 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Best practice for 24-bit storage in assembler called from C/C++ > or using the "word zero of the first save area" solution. I know you said you didn't want to keep the DCB open across calls and that may be why you ignored my suggestion. In case you didn't see it, I'll repeat it here: If you are going to keep the DCB open across calls you could: - "extend" your DCB with the rest of your information, i.e. make the DCB the first part of your control block. - when called, run the DEB queue until you find the one that points back to your DCB which you can identify/verify from the rest of your control block. The last time I used this method, and pseudo registers, was in the '70s. It's possible I'm "misremembering" but I think it worked well at the time. I have also used the FSA word0 method many times in the past. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: catalog a vsam dataset in another catalog ?
On Tue, 23 Feb 2010 16:18:31 -0500, Scott Rowe wrote: >I'm not sure how long it's been this way, but I can say for sure that it > worked this way in about 1999, because I know I used it then. > I assume based on this APAR below from 1992 that it had always been that way and I just remembered it wrong as "PAGE.*" instead of "all pagespace". Probably a combination of that and the fact that I've never seen anything used but SYS1 and PAGE as HLQs for page data sets at every shop I've been at. APAR Identifier .. OY51398 Last Changed 95/04/03 GET MSGIDC3009I RC86 RC10 RECATALOGING NON SYS1 SMS IPL DATA SETS INTO A DIFFERENT MASTER CATALOG. OR RSN22 RC22 Symptom .. DD MSGIDC3009I Status ... CLOSED DOC Severity ... 4 Date Closed . 92/04/01 Component .. 566528418 Duplicate of Reported Release . 320 Fixed Release Component Name DFP/XA ICF CAT/ Special Notice Current Target Date .. Flags SCP ... Platform Status Detail: Not Available PE PTF List: PTF List: Parent APAR: Child APAR list: ERROR DESCRIPTION: RECATALOG OF SMS NON SYS1 IPL DATA SET INTO A DIFFERENT MASTER CATALOG FAILS WITH MSGIDC3009I RC86 RC10 IGG0CLEJ or rc22 rsn22 NON SMS NON SYS1 IPL DATA SETS ARE ABLE TO GET RECATALOGED INTO MULTIPLE CATALOGS. GC281828, SC264500 AND SC264659 MANUALS WILL BE CHANGED TO DOCUMENT THE RESTRICTIONS ON NON SYS1 SMS MANAGED IPL SYSTEM DATA SETS. LOCAL FIX: PROBLEM SUMMARY: * USERS AFFECTED: USERS OF HDP3310 AND UP * * PROBLEM DESCRIPTION: RECATALOG OF A DATASET THAT IS * * NOT A SWAPSPACE, PAGESPACE OR * * A SYS1 DATASET INTO A DIFFERENT * * MASTER CATALOG FAILS WITH * * MSGIDC3009I RC86 RC10. * * RECOMMENDATION: UPDATE MANUALS. * A DATASET MUST BE RECATALOGED INTO A CATALOG WITH THE SAME CATALOG NAME SPECIFIED IN THE VVR OR NVR UNLESS IT IS A PAGESPACE, SWAPSPACE OR SYS1 DATASET. THIS RESTRICTION IS NOT EXPLICITLY STATED IN THE DOCUMENTATION. PROBLEM CONCLUSION: RECATALOG OF NON SYS1 IPL DATASET INTO A DIFFERENT MASTER CATALOG FAILS WITH MSGIDC3009I RC86 RC10. A DATASET MUST BE RECATALOGED INTO THE CATALOG WITH THE SAME CATALOG NAME IN THE VVR OR NVR UNLESS IT IS A PAGESPACE, SWAPSPACE OR SYS1 DATASET. THIS RESTRICTION IS NOT EXPLICITLY STATED IN THE DOCUMENTATION. . THE AMS ICF REFERENCE (SC26456202) WILL BE UPDATED UNDER DEFINE CLUSTER RECATALOG PARAMETER TO STATE 'CATALOG ENTRIES CAN ONLY BE RECREATED IN THE CATALOG SPECIFIED IN THE VVR UNLESS THEY ARE A SWAPSPACE, PAGESPACE OR SYS1 DATASET. . THE AMS ICF REFERENCE (SC26456202) WILL BE UPDATED UNDER DEFINE NONVSAM RECATALOG PARAMETER TO STATE 'CATALOG ENTRIES CAN ONLY BE RECREATED IN THE CATALOG SPECIFIED IN THE NVR UNLESS THEY ARE A SWAPSPACE, PAGESPACE OR SYS1 DATASET. IN A MULTIHOST ENVIRONMENT, NON SYS1 SMS IPL DATASETS CANNOT BE RECATALOGED TO A DIFFERENT CATALOG THAN THE ONE IN THE NVR. IN A MULTIHOST ENVIRONMENT, ALL SMS IPL DATASETS THAT ARE TO BE SHARED MUST BE SYS1 DATASETS. . MVS/DFP MANAGING CATALOGS (SC26455502) WILL BE UPDATED UNDER 'RECATALOGING DATA SETS AND VSAM OBJECTS' TO STATE 'DATASETS CAN ONLY BE RECATALOGED INTO THE CATALOG SPECIFIED IN THE VVR/NVR WITH THE EXCEPTION OF PAGESPACE, SWAPSPACE OR SYS1 DATA SETS.'. . THE MVS/ESA INITIALIZATION AND TUNING REFERENCE (GC28163500) UNDER LNKLSTXX (LINK LIBRARY LIST) USE OF MEMBER UNDER LNKLSTXX (LINK LIBRARY LIST) USE OF MEMBER NOTE 2 WILL BE MODIFIED TO STATE 'NON SYS1 LINK LIBRARIES THAT ARE SMS MANAGED CANNOT BE SHARED MULTIPLE SYSTEMS.'. . THE MVS/ESA INITIALIZATION AND TUNING REFERENCE (GC28163500) UNDER LPALSTXX (LPA LIBRARY LIST) USE OF MEMBER UNDER LPALSTXX (LPA LIBRARY LIST) USE OF MEMBER NOTE 2 WILL BE MODIFIED TO STATE 'NON SYS1 LPA LIBRARIES THAT ARE SMS MANAGED CANNOT BE SHARED AMONG MULTIPLE SYSTEMS.'. . IN THE MVS/ESA STORAGE MANAGEMENT SUBSYSTEM MIGRATION PLANNING GUIDE (SC26465900) UNDER 'MULTIHOST ENVIRONMENT', A PARAGRAPH WILL BE ADDED TO STATE 'IF LPA OR LINK DATA SETS THAT ARE SMS MANAGED ARE TO BE SHARED THEY MUST BE SYS1 DATA SETS.'. . THE MVS/ESA MESSAGE LIBRARY SYSTEM MESSAGES VOLUME 1 (GC28165601) FOR MESSAGE IDC3009I RETURN CODE 86 REASON CODE 10 (RC86 RC10),THE DESCRIPTION WILL BE REPLACED TO STATE 'CATALOG ENTRIES CAN ONLY BE RECATALOGED IN THE CATALOG SPECIFI
Re: Can TSO read Virtual tape using IKJEFT01 to FTP
Your TSO id must be allowed MOUNT authority in order to mount a tape (virtual or real), even in batch. This is a RACF thing for TSO. PERMIT MOUNT CLASS(TSOAUTH) ACCESS(READ) ID(myid) -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FTP Datahub Question
> -Original Message- > From: IBM Mainframe Discussion List > [mailto:ibm-m...@bama.ua.edu] On Behalf Of Donnelly, John P > Sent: Tuesday, February 23, 2010 2:58 PM > To: IBM-MAIN@bama.ua.edu > Subject: FTP Datahub Question > >We have a user who wishes to FTP a file from sending > server A to neutral server B and independent of A and B, > server C will logon to server B and read the file. > >Any suggestions as to how we might lock out server C until > the FTP from server A to server B is complete? Two questions: 1.What do you mean by "independant server C"? 2.What do you mean by "lock out server C"? My guess, if you want server C to initiate the ftp, is to make sure that the dataset under consideration does not exist on server B except in the interval between it being sent by server A and before being gotten by server C. To me, this means that initially the dataset does not exist. Server A then ftp's the data, creating the dataset. Server C will, sometime after that, download the data and delete the file on server B. The above will allow server C to "poll" server B until such time as the dataset appears on B. And then delete the dataset so that it will not redownload the data. Note that if you are talking about a standard z/OS dataset on server B, then server C cannot download it while it is being uploaded by A due to the fact that server B will have it enqueued. If server B is not z/OS (maybe UNIX or even a z/OS UNIX file), then server A will need to ftp an "trigger" file to B once the real dataset is completely sent. Server C must then check to see if the "trigger" file is available. If it is, then download the dataset and delete it and the trigger. Otherwise, wait and try again later. We use this "trigger" method to send data to a Windows server which processes the actual file when the trigger file appears. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FTP Datahub Question
In a message dated 2/23/2010 3:14:36 P.M. Central Standard Time, john.p.donne...@nsc.com writes: Any suggestions as to how we might lock out server C until the FTP from server A to server B is complete? >> Let C drive? Do the proxy from A to B then do what it needs to do? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Can TSO read Virtual tape using IKJEFT01 to FTP
The TSO Userid needs mount authority Edouard A. Myers Senior Information Technology Specialist Office of the Chief Technology Officer DC Government 222 Massachusetts Ave, NW, Suite 200 Washington, DC 20001 Phone : 202-727-4017 Fax: 202-727-3880 Email: edouard.my...@dc.gov Website: http://www.octo.dc.gov -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Cynthia Davis Sent: Tuesday, February 23, 2010 4:14 PM To: IBM-MAIN@bama.ua.edu Subject: Can TSO read Virtual tape using IKJEFT01 to FTP I am attempting to do an FTP using IKJEFT01 and getting errors that tape mount not possible. I have AUTOTAPEMOUNT set to true. It works when using pgm=ftp rather than ftping thru batch tso. My question is, Is it possible for a tso session to read a Virtual Tape? I have tried many different ways and googled but not finding what I need. Below is the step I am executing and below that is the Rexx. This was as close as I could get to getting the tape to actually mount but then I got abend 1102 ERROR IN FTP, RC = 27000 basically stating not able to mount tape and autotapemount not used even though I have autotapemount set to true in my TCPPARMS member. Any help would be appreciated. The reason we are using rexx is because ftp fails from time to time and we are coding the ftp to be passed a second time when rc not =0. So if you know of another way to retry that would help too. //STEP0010 EXEC PGM=IKJEFT01 //TAPEDD DD DISP=SHR,DSN=MOE.PSD.COMBINED.DISPEXTR.NEW //STEPLIB DD DSN=JBH.PROD.LOADLIB,DISP=SHR //SYSEXEC DD DSN=JBH.PROD.SYSDEV.CLIST,DISP=SHR //SYSTSPRT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSTSIN DD * EX 'DATA.SET.HERE(MEMBER)' Here is what I have in member TRACE ?ALL ADDRESS TSO "ALLOC FI(SYSFTPD) DA('SYS2.TCPIP.PRD3.TCPPARMS(FTPDATA)') SHR REUSE" "EXECIO * DISKR SYSFTPD (FINIS" L1 = "PUT //DD:TAPEDD ICQ_DISPATCH_BIN.TXT " QUEUE 'x\ xxx' QUEUE 'binary' QUEUE L1 /*QUEUE 'QUIT'*/ QUEUE '' "FTP FTPTEST (EXIT" /*"FTP 10.69.3.86 (EXIT" */ IF RC ¬= 0 THEN DO sleep (60) "NEWSTACK" QUEUE 'jbh01\piddwftp udb07pd' QUEUE L1 /*QUEUE 'QUIT'*/ QUEUE '' -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: catalog a vsam dataset in another catalog ?
I'm not sure how long it's been this way, but I can say for sure that it worked this way in about 1999, because I know I used it then. >>> Mark Zelden 2/23/2010 1:39 PM >>> Thanks. I wonder if I always had this information wrong (that only SYS1 and PAGE HLQs had special treatment) or if something change at some point. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ On Tue, 23 Feb 2010 11:36:41 -0500, Scott Rowe wrote: >Mark, > >It's not the HLQ, all page datasets can be RECATALOGed, regardless of the name. > Mark Zelden 2/23/2010 9:52 AM >>> >(I hate this... now there is a mixture of top posting and bottom posting, >but since you went "top" last, I will do the same thing). > >So how does that support your statement - "a PAGESPACE, regardless >of the name, can exist in multiple catalogs at the same time"? > >I already stated there was special code for SYS1 *and* PAGE HLQs to be >cataloged in multiple catalogs at the same time. > >Mark >-- >Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS >mailto:mzel...@flash.net >Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html >Systems Programming expert at http://expertanswercenter.techtarget.com/ > > > >On Mon, 22 Feb 2010 14:39:25 -0600, McKown, John > wrote: > >>My page datasets all start with PAGE.&SYSNAME..LOCALnn and so on. When I >replace an image, I just do a >> >> DEF PAGESPACE(NAME(PAGE.LIH1.COMMON) - >> FILE(MVSPG3) VOL(MVSPG3) RECATALOG) - >> CAT(CATALOG.ICF.newmastercat) >> >>I don this while they are still in use on the currently running system. And >I don't do a REPORT MERGECAT or anything else. >> >>-- >>John McKown >>Systems Engineer IV >>IT >> >> >> >>> -Original Message- >>> From: IBM Mainframe Discussion List >>> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mark Zelden >>> Sent: Monday, February 22, 2010 1:18 PM >>> To: IBM-MAIN@bama.ua.edu >>> Subject: Re: catalog a vsam dataset in another catalog ? >>> >>> On Mon, 22 Feb 2010 12:43:47 -0600, McKown, John >>> wrote: >>> >>> >> -Original Message- >>> >> From: IBM Mainframe Discussion List >>> >> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Staller, Allan >>> >> Sent: Monday, February 22, 2010 12:35 PM >>> >> To: IBM-MAIN@bama.ua.edu >>> >> Subject: Re: catalog a vsam dataset in another catalog ? >>> >> >>> >> >>> >> Also SYS1 has the special attribute of DEFINE RECATALOG >>> allowing the >>> >> definition of the same dataset in 2 different catalogs (just like >>> >> non-VSAMS datasdest). This only applies to datasets with the HLQ of >>> >> SYS1. >>> >> >>> >> >>> >> I meant to add that with the exception of SYS1, a VSAM >>> >> dataset can only >>> >> exist in 1 catalog at a time. >>> >> >>> >> HTH, >>> > >>> >Actually a PAGESPACE, regardless of the name, can exist in multiple >>> catalogs at the same time too. I do that all the time. >>> > >>> >>> Are you sure? I thought the special code in DFSMS was only for SYS1 >>> and PAGE HLQs. Although I've never tried to define a page >>> data set with >>> any other HLQ than SYS1 or PAGE. >>> >>> Mark >>> -- >>> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS >>> mailto:mzel...@flash.net >>> Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html >>> Systems Programming expert at >>> http://expertanswercenter.techtarget.com/ >>> >>> -- > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO >Search the archives at http://bama.ua.edu/archives/ibm-main.html > > > >CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. > > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO >Search the archives at http://bama.ua.edu/archives/ibm-main.h
Re: IBM-caused needless aggravation for today
Rick Fochtman wrote: > No comment. We're all human here, and subject to mistakes once in a while. > > After all, we all put trousers on one leg at a time. :-) If you sit down, you can do both legs at once. And of course that leaves out all the people who don't wear pants. -- Jack Hamilton Management Information & Analysis Kaiser Foundation Health Plan, Inc. 1950 Franklin Street, Oakland, California 94612 +1 510 987-1556 (KP tieline 8-427-1556) NOTE: This email document and attachments are covered by CA Evidence Code §1157 and CA Health and Safety Code §1370. NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, you are prohibited from sharing, copying, or otherwise using or disclosing its contents. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and permanently delete this e-mail and any attachments without reading, forwarding or saving them. Thank you. IBM Mainframe Discussion List wrote on 02/23/2010 12:50:42 PM: > Rick Fochtman > Sent by: IBM Mainframe Discussion List > > 02/23/2010 12:50 PM > > Please respond to > IBM Mainframe Discussion List > > To > > IBM-MAIN@bama.ua.edu > > cc > > Subject > > Re: [IBM-MAIN] IBM-caused needless aggravation for today > > > >Yeah, give me my deserved grief for dropping the "I" in "IBM" from the > >subject. Some day I'll learn how to cut & paste... > > > >Peter Relson > >z/OS Core Technology Design > > > > > > No comment. We're all human here, and subject to mistakes once in a while. > After all, we all put trousers on one leg at a time. :-) > Rick > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: catalog a vsam dataset in another catalog ?
Things changed. The ability to control which catalog was used (via JOBCAT, STEPCAT, INCAT, etc) was sharply curtailed. The whole process of building a system had to change. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mark Zelden Sent: Tuesday, February 23, 2010 12:40 PM To: IBM-MAIN@bama.ua.edu Subject: Re: catalog a vsam dataset in another catalog ? Thanks. I wonder if I always had this information wrong (that only SYS1 and PAGE HLQs had special treatment) or if something change at some point. Mark -- NOTICE: This electronic mail message and any files transmitted with it are intended exclusively for the individual or entity to which it is addressed. The message, together with any attachment, may contain confidential and/or privileged information. Any unauthorized review, use, printing, saving, copying, disclosure or distribution is strictly prohibited. If you have received this message in error, please immediately advise the sender by reply email and delete all copies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Can TSO read Virtual tape using IKJEFT01 to FTP
I am attempting to do an FTP using IKJEFT01 and getting errors that tape mount not possible. I have AUTOTAPEMOUNT set to true. It works when using pgm=ftp rather than ftping thru batch tso. My question is, Is it possible for a tso session to read a Virtual Tape? I have tried many different ways and googled but not finding what I need. Below is the step I am executing and below that is the Rexx. This was as close as I could get to getting the tape to actually mount but then I got abend 1102 ERROR IN FTP, RC = 27000 basically stating not able to mount tape and autotapemount not used even though I have autotapemount set to true in my TCPPARMS member. Any help would be appreciated. The reason we are using rexx is because ftp fails from time to time and we are coding the ftp to be passed a second time when rc not =0. So if you know of another way to retry that would help too. //STEP0010 EXEC PGM=IKJEFT01 //TAPEDD DD DISP=SHR,DSN=MOE.PSD.COMBINED.DISPEXTR.NEW //STEPLIB DD DSN=JBH.PROD.LOADLIB,DISP=SHR //SYSEXEC DD DSN=JBH.PROD.SYSDEV.CLIST,DISP=SHR //SYSTSPRT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSTSIN DD * EX 'DATA.SET.HERE(MEMBER)' Here is what I have in member TRACE ?ALL ADDRESS TSO "ALLOC FI(SYSFTPD) DA('SYS2.TCPIP.PRD3.TCPPARMS(FTPDATA)') SHR REUSE" "EXECIO * DISKR SYSFTPD (FINIS" L1 = "PUT //DD:TAPEDD ICQ_DISPATCH_BIN.TXT " QUEUE 'x\ xxx' QUEUE 'binary' QUEUE L1 /*QUEUE 'QUIT'*/ QUEUE '' "FTP FTPTEST (EXIT" /*"FTP 10.69.3.86 (EXIT" */ IF RC ¬= 0 THEN DO sleep (60) "NEWSTACK" QUEUE 'jbh01\piddwftp udb07pd' QUEUE L1 /*QUEUE 'QUIT'*/ QUEUE '' -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Adventure - Or Colossal Cave Adventure
The following message is a courtesy copy of an article that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well. Anne & Lynn Wheeler writes: > from above, URL for "Crowther's original source code for Adventure (as > recovered from Don Woods's student account at Stanford)" (mar1977): > http://jerz.setonhill.edu/if/crowther/ I believe the above is relative close to the original vm/cms fortran that I got not long later (although I don't have a copy so I can't be absolutely sure). the earliest PLI version I know of was done by somebody at STL ... who I had provided a copy of the fortran version. the folklore is that adventure use at STL reached such a level ... that management had an edict that there was a 24hr amnesty period and then anybody caught playing adventure during work would be severely disciplined. there was a period when they wanted to change all the internal vm370 logon screens to include note about use for work related activities only. there was a big push by a few to get it changed to say for management approved activities only small distinction ... but would allow playing games as a management approved activity. -- 42yrs virtualization experience (since Jan68), online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO reconnect (ikjefln2) reject by RACF
Dana Thank you for bringing this function, new in V1R11, to my attention. In a sense "fortunately", the title line is somewhat misleading. This looked like something new in VTAM, "support for VTAM ..." and so I decided I should know more about it and did my research. Well, it involves VTAM only as it involves any other program using the VTAM API and it betokens nothing whatsoever *new* in VTAM - that's VTAM as we normally regard it, see later. And while we're discussing what it is *not*, the reference to IP addresses is misleading since the enhancement has no - direct - bearing on TN3270. It's possible however that the customers thumping the table most loudly demanding this function - distinctly in the English rather than the French sense - do so because they want to use it with TN3270 connections. The point is that, without this enhancement - and still if you decide to override the default parameter setting in IKJTSOxx, LOGONHERE(YES), and specify LOGONHERE(NO) - TSO was obliged to have been told that there had been an abnormal termination to the session before TSO would consider a "logon" from a different LU for the same user. With LOGONHERE(YES), TSO is prepared to terminate an existing session for a user when apparently the same user "reappears" using another LU - he/she could not, of course, have been using the same LU and "reappear". IP addresses and TN3270 come into the picture as a practical matter. A TSO user may know that all is lost and that he/she needs to "reappear" but the sedate system may not - yet - have awoken to the fact that all is lost and still consider that a perfectly viable SNA session - although probably not a concatenated TN3270 TCP connection - is still in place. It's interesting that this enhancement - involving nothing new in VTAM, as I said - appears in the Communications Server New Functions Summary manual for V1R11. It absolutely does not belong there and lies through its teeth when it claims to involve "z/OS V1R11 Communications Server". It involves only TSO/E - although I have a niggling suspicion that logic provided by VTAM (the Communications Server SNA component) in support of TSO(/E) may be involved since historically VTAM has had a lot to do with TSO. Do we need to be reminded of that - no we do not, it just confuses us!!! Descriptions of this enhancement appear in the TSO/E Customization manual - only in a section describing how to change LOGONHERE(YES) to LOGONHERE (NO) - a bit superfluous really! - and in the Initialization and Tuning Reference because that's where IKJTSOxx is described - which is all you need to know, especially that it's a function VM has had for eons: Chapter 60. IKJTSOxx (TSO/E commands and programs) ... Statements/parameters for IKJTSOxx LOGON Specifies the system settings for the TSO/E LOGON command: LOGONHERE(ON|OFF) Specifies whether the RECONNECT option on the TSO/E LOGON panel will be honored even when the system does not detect a disconnected state and the user appears to be logged on. This allows users to reconnect their session from a new terminal without canceling their previous session first, similar to how the LOGONHERE option works under z/VM. Default: ON ... Chris Mason On Tue, 23 Feb 2010 10:38:12 -0600, Dana Mitchell wrote: >On Tue, 23 Feb 2010 08:26:34 -0600, Elardus Engelbrecht > wrote: >>>AFAIK there is no way around this pre z/OS 1.11 >> >>Please, could you be very kind to provide any useful documentation(s) or links >>about this interesting tidbit? >> >>Groete / Greetings >>Elardus Engelbrecht >> >Elardus, > >In z/OS V1R11.0 Introduction and Release Guide >Document Number: GA22-7502-17 >And probably TSO book also: > > >1.28.2 TSO/E LOGONHERE support for VTAM unconditional reconnect > >| Description: TSO/E LOGONHERE support for VTAM unconditional reconnect >now >| allows you to reconnect to your session even if no disconnection has been >| detected. By default in z/OS V1R11, LOGONHERE support is turned on. By >| specifying the reconnect option, you can easily switch from one computer >| to another or reestablish a session after a loss of connectivity (even >| with a new IP address). > >| When change was introduced: z/OS V1R11. > >It works well. > >Dana -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
FTP Datahub Question
We have a user who wishes to FTP a file from sending server A to neutral server B and independent of A and B, server C will logon to server B and read the file. Any suggestions as to how we might lock out server C until the FTP from server A to server B is complete? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FTP Datahub Question
1. Use z/os for server B, and insure that the file is created rather than replaced. 2. Use a central job scheduler with agents running on each of the servers. 3. Send a command from A to B to rename the file once the transfer is complete. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Donnelly, John P Sent: Tuesday, February 23, 2010 2:58 PM To: IBM-MAIN@bama.ua.edu Subject: FTP Datahub Question We have a user who wishes to FTP a file from sending server A to neutral server B and independent of A and B, server C will logon to server B and read the file. Any suggestions as to how we might lock out server C until the FTP from server A to server B is complete? NOTICE: This electronic mail message and any files transmitted with it are intended exclusively for the individual or entity to which it is addressed. The message, together with any attachment, may contain confidential and/or privileged information. Any unauthorized review, use, printing, saving, copying, disclosure or distribution is strictly prohibited. If you have received this message in error, please immediately advise the sender by reply email and delete all copies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM-caused needless aggravation for today
Yeah, give me my deserved grief for dropping the "I" in "IBM" from the subject. Some day I'll learn how to cut & paste... Peter Relson z/OS Core Technology Design No comment. We're all human here, and subject to mistakes once in a while. After all, we all put trousers on one leg at a time. :-) Rick -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Adventure - Or Colossal Cave Adventure
I used SAIL (and some other language, don't remember which now) on the LOTS machine mentioned in the DEC-10 messages below. I really liked TOPS-20. Then I really liked VM/CMS and XEDIT. And I liked WYLBUR. I guess it's my fate to like doomed operating systems and editors. LOTS was the Low Overhead Timesharing System, and as you can guess from the name it was created in reaction to the perceived (and real) excessive overhead and expense of the mainframe system used by many students at the time. Ralph Gorin was not one to shy away from controversy. -- Jack Hamilton Management Information & Analysis Kaiser Foundation Health Plan, Inc. 1950 Franklin Street, Oakland, California 94612 +1 510 987-1556 (KP tieline 8-427-1556) NOTE: This email document and attachments are covered by CA Evidence Code §1157 and CA Health and Safety Code §1370. NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, you are prohibited from sharing, copying, or otherwise using or disclosing its contents. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and permanently delete this e-mail and any attachments without reading, forwarding or saving them. Thank you. Anne & Lynn Wheeler Sent by: IBM Mainframe Discussion List 02/23/2010 07:10 AM Please respond to IBM Mainframe Discussion List To IBM-MAIN@bama.ua.edu cc Subject Re: [IBM-MAIN] Adventure - Or Colossal Cave Adventure The following message is a courtesy copy of an article that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well. shmuel+ibm-m...@patriot.net (Shmuel Metz , Seymour J.) writes: > I suspect that what Tymshare had was a PDP-10, or maybe the older PDP-6, > which was basically an older version of the same machine. recent reference to mip envy http://www.garlic.com/~lynn/2010d.html#80 Senior Java Developer vs. MVS Systems Programmer which mentions survey/visits to other institution ... with snippets of those visits ... including stanford CS dept. the longer thread in a.f.c. (x-posted to alt.sys.pdp10) including some of the people from stanford CS dept ... and some discussion of stanford sail machine http://www.garlic.com/~lynn/2010d.html#51 Happy DEC-10 Day http://www.garlic.com/~lynn/2010d.html#52 Happy DEC-10 Day Adventure wiki pages http://en.wikipedia.org/wiki/Adventure_game http://en.wikipedia.org/wiki/The_Adventure_Game http://en.wikipedia.org/wiki/Colossal_Cave_Adventure from above, URL for "Crowther's original source code for Adventure (as recovered from Don Woods's student account at Stanford)" (mar1977): http://jerz.setonhill.edu/if/crowther/ Tymshare wasn't far away ... and (also) had PDP-10. As previously mentioned Tymshare offerred vm370-based commercial online interactive timesharing (available via tymnet). They had also developed CMS-based computer conferencing and in Aug76 ... provided it free to SHARE as VMSHARE ... VMSHARE archive: http://vm.marist.edu/~vmshare/ and some old email mentioning vmshare (frequently mentioning getting monthly snapshots of all the vmshare files and making them available within the corporation): http://www.garlic.com/~lynn/lhwemail.html#vmshare wiki page mentioning (tymshare's) tymnet http://en.wikipedia.org/wiki/Tymnet Above mentions Tymnet starting to port to Interdata 7/32 in 1972 and then started development of Tymnet on PDP-10. Aside, as undergraduate in the 60s, I had been part of univ. project that used Interdata/3 for 2702 clone ... four of us gotten written up responsible for clone business some past posts http://www.garlic.com/~lynn/subtopic.html#360pcm In 1984, M/D bought Tymshare. http://en.wikipedia.org/wiki/Tymshare Somewhat as part of that I setup interviews for Engelbert (he had augment running on tymshare pdp), trying to interest him in joining IBM. http://en.wikipedia.org/wiki/NLS_%28computer_system%29 M/D also brought me in to do audit of Tymshare's GNOSIS as part of its spin-off as KEYKOS (I still have gnosis document somewhere in boxes) ... a little gnosis/keykos history here: http://www.coyotos.org/history/index.html past posts in thread http://www.garlic.com/~lynn/2010d.html#57 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#64 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#65 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#67 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#68 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#74 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#75 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#77 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#82 Adventure - Or Colossal Cave Adventure -- 42yrs virtualization experience (since Jan68), online at home since Mar1970 ---
Re: Adventure - Or Colossal Cave Adventure
FYI, Has anyone done a comparison regarding Batch LSR vs DFSMS System Managed Buffering? Regards, Tobias Cafiero Data Resource Management Tel: (212) 855-1117 jack.hamil...@kp.org Sent by: IBM Mainframe Discussion List 02/23/2010 03:12 PM Please respond to IBM Mainframe Discussion List To IBM-MAIN@bama.ua.edu cc Subject Re: Adventure - Or Colossal Cave Adventure My recollection is that someone at Stanford wrote replacement modules for all the PL/I modules that did I/O so they would run under ORVYL. When someone created a TSO program that needed to run under ORVYL they would do a normal compile but change the link-edit to include the replacement modules. There were probably some ORVYL-specific functions, but I don't remember what they were. I wrote some simple programs, but found that there wasn't anything I wanted to do that I couldn't do more easily in SPIRES. I don't know how widely the ORVYL version of PL/I was used, but it someone went to a lot of work to create it. -- Jack Hamilton Management Information & Analysis Kaiser Foundation Health Plan, Inc. 1950 Franklin Street, Oakland, California 94612 +1 510 987-1556 (KP tieline 8-427-1556) NOTE: This email document and attachments are covered by CA Evidence Code §1157 and CA Health and Safety Code §1370. NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, you are prohibited from sharing, copying, or otherwise using or disclosing its contents. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and permanently delete this e-mail and any attachments without reading, forwarding or saving them. Thank you. Anne & Lynn Wheeler Sent by: IBM Mainframe Discussion List 02/22/2010 03:42 PM Please respond to IBM Mainframe Discussion List To IBM-MAIN@bama.ua.edu cc Subject Re: [IBM-MAIN] Adventure - Or Colossal Cave Adventure shmuel+ibm-m...@patriot.net (Shmuel Metz , Seymour J.) writes: > I know what a TSO version is, but how could you have a Wylbur version > written in PL/I? Wylbur didn't support any language other than its own > command/macro language. from the file ... WELLPUT TITLE 'W E L L P U T -- WYLBUR/TSO I/O INTERFACE FROM PLI' 0001 R0 EQU 0 0002 R1 EQU 1 0003 R2 EQU 2 0004 R3 EQU 3 0005 R4 EQU 4 0006 R5 EQU 5 0007 R6 EQU 6 0008 R7 EQU 7 0009 R8 EQU 8 0010 R9 EQU 9 0011 R10 EQU 10 0012 R11 EQU 11 0013 R12 EQU 12 0014 R13 EQU 13 0015 R14 EQU 14 0016 R15 EQU 15 0017 *** 0018 * WELLPUT - * 0019 * THE PURPOSE OF THIS MODULE IS TO SIMULATE THE I/O ROUTINES TREAD* 0020 * AND TWRITE USED BY THE ADVENTURE GAME. * 0021 * * 0022 * CALLING SEQUENCES: * 0023 * * 0024 * TREAD (PROMPT_MESSAGE,PROMPT_LENGTH, MESSAGE_AREA,LENGTH,RTN_CODE) * 0025 * * 0026 * TWRITE (MESSAGE,MESSAGE LENGTH,RETURN CODE) * 0027 * * 0028 *** 0029 ... snip ... -- 42yrs virtualization experience (since Jan68), online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html _ DTCC DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error, please notify us immediately and delete the email and any attachments from your system. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.
Re: Suppressing Global Copy ANTPxxxx Messages
Answered my own questions. MPF can be used to suppress the messages... -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Adventure - Or Colossal Cave Adventure
My recollection is that someone at Stanford wrote replacement modules for all the PL/I modules that did I/O so they would run under ORVYL. When someone created a TSO program that needed to run under ORVYL they would do a normal compile but change the link-edit to include the replacement modules. There were probably some ORVYL-specific functions, but I don't remember what they were. I wrote some simple programs, but found that there wasn't anything I wanted to do that I couldn't do more easily in SPIRES. I don't know how widely the ORVYL version of PL/I was used, but it someone went to a lot of work to create it. -- Jack Hamilton Management Information & Analysis Kaiser Foundation Health Plan, Inc. 1950 Franklin Street, Oakland, California 94612 +1 510 987-1556 (KP tieline 8-427-1556) NOTE: This email document and attachments are covered by CA Evidence Code §1157 and CA Health and Safety Code §1370. NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, you are prohibited from sharing, copying, or otherwise using or disclosing its contents. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and permanently delete this e-mail and any attachments without reading, forwarding or saving them. Thank you. Anne & Lynn Wheeler Sent by: IBM Mainframe Discussion List 02/22/2010 03:42 PM Please respond to IBM Mainframe Discussion List To IBM-MAIN@bama.ua.edu cc Subject Re: [IBM-MAIN] Adventure - Or Colossal Cave Adventure shmuel+ibm-m...@patriot.net (Shmuel Metz , Seymour J.) writes: > I know what a TSO version is, but how could you have a Wylbur version > written in PL/I? Wylbur didn't support any language other than its own > command/macro language. from the file ... WELLPUT TITLE 'W E L L P U T -- WYLBUR/TSO I/O INTERFACE FROM PLI' 0001 R0 EQU 0 0002 R1 EQU 1 0003 R2 EQU 2 0004 R3 EQU 3 0005 R4 EQU 4 0006 R5 EQU 5 0007 R6 EQU 6 0008 R7 EQU 7 0009 R8 EQU 8 0010 R9 EQU 9 0011 R10 EQU 10 0012 R11 EQU 11 0013 R12 EQU 12 0014 R13 EQU 13 0015 R14 EQU 14 0016 R15 EQU 15 0017 *** 0018 * WELLPUT - * 0019 * THE PURPOSE OF THIS MODULE IS TO SIMULATE THE I/O ROUTINES TREAD* 0020 * AND TWRITE USED BY THE ADVENTURE GAME. * 0021 * * 0022 * CALLING SEQUENCES: * 0023 * * 0024 * TREAD (PROMPT_MESSAGE,PROMPT_LENGTH, MESSAGE_AREA,LENGTH,RTN_CODE) * 0025 * * 0026 * TWRITE (MESSAGE,MESSAGE LENGTH,RETURN CODE) * 0027 * * 0028 *** 0029 ... snip ... -- 42yrs virtualization experience (since Jan68), online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FTPs wait
John > I will cross post this to the TCP List as soon as I re-figure out how to. Added to all IBMTCP-L posts: -- For IBMTCP-L subscribe / signoff / archive access instructions, send email to lists...@vm.marist.edu with the message: INFO IBMTCP-L > ... on a one stack TCP on a 1.9 system. I assume we are talking about the z/OS Communications Server IP component, famous for supporting both TCP and UDP when requested - and even allowing the "transport layer" to be bypassed altogether! If you want to run a variety of applications normally all associated with the same "well-known" port, an alternative to sticking a wet finger in the air and picking a port number at random - and thereby risking a colleague applying some other technique such as the date of his grandma's birthday and happening upon the same number[1] - is to distinguish between the application flavours using the IP address rather than the port used to identify the "server" in the "client-server" relationship. Having noted Hal's contribution where he identifies random port numbers as being anathema to the "firewall boys" as being, I see that this technique which I often promote may well be a way of dealing with this anathema. Assuming you assigned the IP addresses to the same address range as applies to the LAN to which the OSA feature ports which I assume you are using are attached, the "network folk", aka the "firewall boys", won't even know you have put one - or more - over on them! How do you do this? Use a static VIPA if the server never moves or a VIPARANGE type of dynamic VIPA if it does together with either a customisation parameter for the IP address if one exists or the BIND parameter of the PORT statement list entry if such a parameter does not exist. > Does this scenario strike a cord with anyone? But produces a dull thud! Incidentally, if you might have problems with a "firewall", you might like to investigate the tricky topic of running FTP in a mode which makes life easier for the "firewall", "active" or "passive" - I can never remember which without looking it up! It so happens that this technique carries with it several benefits which is too much of a tangent to go into here. If you would like to know more please post again - maybe in the IBMTCP-L list. Just to clarify some rather random references to ports, the "control" conversation in FTP uses the port configured for the server, port 21 if the conventional "well-known" port is used, and an ephemeral port on the side of the client, number N. I suppose that's two. Then the data transfer uses port 20 if the conventional "well-known" port on the side of the server is used with the another ephemeral port on the side of the client, number N+1. That makes another two, which actually adds up to four. That describes "active" behaviour. I could go on, but to check I found URL: http://slacksite.com/other/ftp.html which doesn't need to be copied! This also explains the "firewall"-related "active" and "passive" modes. Chris Mason [1] Of course, if you are being tidy and you have the ear of whoever manages the PORT statement, you insure against the clash by enshrining your random port number in an entry in the PORT statement list along with the selected appropriate typically started task name. On Tue, 23 Feb 2010 11:35:10 -0500, John Kelly wrote: >I will cross post this to the TCP List as soon as I re-figure out how to. > >I have three FTPs running on a one stack TCP on a 1.9 system. Good old FTP >21 is still churning and ftps (open ftp, IBM ported ftp, or whatever it's >called) is working and listening on port 22. Since everything is working, >it was decided that we needed another FTP, so now we have Tectia FTP >listening on port 4022. This scenario has been running on our sandbox for >a month and we finally moved it over to production. Everybody was >coexisting nicely until this morning, mainly because no one was using >Tectia. The best that I can ascertain, ftps was pushing data and >'suddenly' went into a wait. Assuming that it was a wait in that the job >usually runs six seconds elapsed time but this particular iteration was in >the system for two hours and used .5 second CPU time. I don't have any >dumps or any worth while listings but I am trying to recreate the scenario >on the sandbox. The remedy was to cancel Tectia. >Does this scenario strike a cord with anyone? > >TIA > >Jack Kelly >202-502-2390 (Office) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
> -Original Message- > From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On > Behalf Of Charles Mills > Sent: Tuesday, February 23, 2010 1:39 PM > To: IBM-MAIN@bama.ua.edu > Subject: Re: Best practice for 24-bit storage in assembler called from > C/C++ > Let me repeat a question from the original post: > What is CEECAA_TCASRV_USERWORD for? Where is it documented? 2.2.5.22 CEE3USR--Set or query user area fields Documented in the LE Language Environment Programming Reference here (watch wrap): http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CEEA3190/2.2. 5.22?SHELF=CEE2BK90&DT=20080615233920 HTH Peter This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
> or using the "word zero of the first save area" solution. I know you said you didn't want to keep the DCB open across calls and that may be why you ignored my suggestion. In case you didn't see it, I'll repeat it here: If you are going to keep the DCB open across calls you could: - "extend" your DCB with the rest of your information, i.e. make the DCB the first part of your control block. - when called, run the DEB queue until you find the one that points back to your DCB which you can identify/verify from the rest of your control block. The last time I used this method, and pseudo registers, was in the '70s. It's possible I'm "misremembering" but I think it worked well at the time. I have also used the FSA word0 method many times in the past. > Date: Tue, 23 Feb 2010 10:38:39 -0800 > From: charl...@mcn.org > Subject: Re: Best practice for 24-bit storage in assembler called from C/C++ > To: IBM-MAIN@bama.ua.edu > > My thought was not to use the DXD for the bulk of the "gotten" storage but > rather just for a pointer to an area of 24-bit storage that I would manage > using traditional assembler techniques. I just need one word! My kingdom for > a word! > > I kind of get pseudoregisters I think. The idea is that you can write a > bunch of disjoint DSECTs and the compilers and binder will essentially > assemble them all into one big area, and tell you at run time the total size > (in a CXD) and the offset of each DSECT (in a Q con) within the > conglomeration. Coding DXD F is kind of like coding a one-word DSECT -- not > wrong but not very efficient use of source code. > > I guess the fundamental question is this: will something outside of my code > give me that one task-unique word? I am beginning to think it will not. The > problem pseudo-registers seem to solve is " one GETMAIN for many DSECTs -- > even across separate compilation units" -- not "give me some task-unique > storage." I keep coming back to the same problem: there's no way anything > stored inside your code could possibly be reentrant-task-unique. > > I think I am down to one of two fairly ugly solutions: passing the storage > in from the C++ caller -- made more ugly by the fact that __malloc24() is > dysfunctional -- the C code is going to have to get the storage from > assembler in order to be able to give it to assembler; or using the "word > zero of the first save area" solution. > > The last time I did a library like this, the calling language was Rexx, and > Rexx provides an anchor word that it passes to called routines. That feature > makes this problem trivial. Let me repeat a question from the original post: > What is CEECAA_TCASRV_USERWORD for? Where is it documented? > > Charles > > -Original Message- > From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf > Of J R > Sent: Tuesday, February 23, 2010 9:55 AM > To: IBM-MAIN@bama.ua.edu > Subject: Re: Best practice for 24-bit storage in assembler called from C/C++ > > I used "pseudo registers" extensively a long, long time ago, > but not recently so I'm very rusty on it. However, I think > you also need a CXD instruction which will define a fullword > into which the linkeditor (or binder, I suppose) will put the > cumulative length of everything referenced in a QCON. > At initialization you do a getmain for the value in the CXD > fullword. Later, when you want the address of one of your > areas, you load the QCON and use it as an offset into the > gotten storage. > > IMHO, using DXDs for each field is not the way to go. > Rather, referring to a DSECT in a QCON will give you the offset > to the entire DSECT within the gotten storage. > _ Hotmail: Trusted email with powerful SPAM protection. http://clk.atdmt.com/GBL/go/201469227/direct/01/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM-caused needless aggravation for today
-Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Charles Mills Sent: Tuesday, February 23, 2010 11:17 AM To: IBM-MAIN@bama.ua.edu Subject: Re: IBM-caused needless aggravation for today What's wrong with PRINT NOGEN? Inventing one's own solution to problems well-solved at a more universal level is a recipe for frustration for one's users. Charles Had I known which macros you were having problems with, I would not have suggested an ETR. My understanding of the reason for the LIST=NO is because you do not want to list out the CVT or PSA and so on, when you have to include them for a particular macro (executive in this case, as opposed to declarative) to be able to expand correctly. So why have all that cluttering up the listing? Then this way you don't have to know which ones to do a PUSH USING, PRINT GEN, POP USING for (or just PRINT NOGEN, PRINT GEN pair). And every development shop I have worked in has such macros (that are "home grown") that they set the default to LIST=NO because nearly every program uses it, and it doesn't change very often. Regards, Steve Thompson -- Opinions expressed by this poster may not reflect those of poster's employer -- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
On Tue, 23 Feb 2010 18:01:57 +, john gilmore wrote: >If you can get your hands on either an old Program Logic Manual, >usually referred by its obvious acronym, as a PLM, or only a little >less satisfactory, an old Execution Logic Manual, usually referred >to for consistency as just an EL, for this compiler you will find lucid >explanations of their implementation and use in either or both. Thank you, John. The EL can be found at http://www.bitsavers.org/pdf/ibm/370/pli/SC33-0025-3_PLI_Optimizing_Compiler_Execution_Logic_Sep85.pdf Tiny: http://tinyurl.com/yg985lp -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO reconnect (ikjefln2) reject by RACF
W dniu 2010-02-23 14:22, Matan Cohen pisze: yes , but if i will define the lla as a started task to RACF . I'm afraid this will make lla other security problems. You should have defined STARTED profile for each started task, especially system started task like LLA. Will it make problems - well, anything you do can make problems, but this is not excuse for avoiding any work. BTW: IMHO there will be no problem after you define STARTED profile for LLA. No more problems than you already have. BTW2: You can define LLA profile with TRUSTED=YES. AFAIR it is not IBM recommendation, but it doesn't mean it is dangerous. -- Radoslaw Skorupka Lodz, Poland -- BRE Bank SA ul. Senatorska 18 00-950 Warszawa www.brebank.pl Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237 NIP: 526-021-50-88 Wedug stanu na dzie 01.01.2009 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 118.763.528 zotych. W zwizku z realizacj warunkowego podwyszenia kapitau zakadowego, na podstawie uchway XXI WZ z dnia 16 marca 2008r., oraz uchway XVI NWZ z dnia 27 padziernika 2008r., moe ulec podwyszeniu do kwoty 123.763.528 z. Akcje w podwyszonym kapitale zakadowym BRE Banku SA bd w caoci opacone. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Suppressing Global Copy ANTPxxxx Messages
Does anyone know if the ANTP messages produced by the CQUERY command (Global Copy / PPRC) can be suppressed via MPF? Thanks, Doug -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: catalog a vsam dataset in another catalog ?
Thanks. I wonder if I always had this information wrong (that only SYS1 and PAGE HLQs had special treatment) or if something change at some point. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ On Tue, 23 Feb 2010 11:36:41 -0500, Scott Rowe wrote: >Mark, > >It's not the HLQ, all page datasets can be RECATALOGed, regardless of the name. > Mark Zelden 2/23/2010 9:52 AM >>> >(I hate this... now there is a mixture of top posting and bottom posting, >but since you went "top" last, I will do the same thing). > >So how does that support your statement - "a PAGESPACE, regardless >of the name, can exist in multiple catalogs at the same time"? > >I already stated there was special code for SYS1 *and* PAGE HLQs to be >cataloged in multiple catalogs at the same time. > >Mark >-- >Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS >mailto:mzel...@flash.net >Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html >Systems Programming expert at http://expertanswercenter.techtarget.com/ > > > >On Mon, 22 Feb 2010 14:39:25 -0600, McKown, John > wrote: > >>My page datasets all start with PAGE.&SYSNAME..LOCALnn and so on. When I >replace an image, I just do a >> >> DEF PAGESPACE(NAME(PAGE.LIH1.COMMON) - >> FILE(MVSPG3) VOL(MVSPG3) RECATALOG) - >> CAT(CATALOG.ICF.newmastercat) >> >>I don this while they are still in use on the currently running system. And >I don't do a REPORT MERGECAT or anything else. >> >>-- >>John McKown >>Systems Engineer IV >>IT >> >> >> >>> -Original Message- >>> From: IBM Mainframe Discussion List >>> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mark Zelden >>> Sent: Monday, February 22, 2010 1:18 PM >>> To: IBM-MAIN@bama.ua.edu >>> Subject: Re: catalog a vsam dataset in another catalog ? >>> >>> On Mon, 22 Feb 2010 12:43:47 -0600, McKown, John >>> wrote: >>> >>> >> -Original Message- >>> >> From: IBM Mainframe Discussion List >>> >> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Staller, Allan >>> >> Sent: Monday, February 22, 2010 12:35 PM >>> >> To: IBM-MAIN@bama.ua.edu >>> >> Subject: Re: catalog a vsam dataset in another catalog ? >>> >> >>> >> >>> >> Also SYS1 has the special attribute of DEFINE RECATALOG >>> allowing the >>> >> definition of the same dataset in 2 different catalogs (just like >>> >> non-VSAMS datasdest). This only applies to datasets with the HLQ of >>> >> SYS1. >>> >> >>> >> >>> >> I meant to add that with the exception of SYS1, a VSAM >>> >> dataset can only >>> >> exist in 1 catalog at a time. >>> >> >>> >> HTH, >>> > >>> >Actually a PAGESPACE, regardless of the name, can exist in multiple >>> catalogs at the same time too. I do that all the time. >>> > >>> >>> Are you sure? I thought the special code in DFSMS was only for SYS1 >>> and PAGE HLQs. Although I've never tried to define a page >>> data set with >>> any other HLQ than SYS1 or PAGE. >>> >>> Mark >>> -- >>> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS >>> mailto:mzel...@flash.net >>> Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html >>> Systems Programming expert at >>> http://expertanswercenter.techtarget.com/ >>> >>> -- > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO >Search the archives at http://bama.ua.edu/archives/ibm-main.html > > > >CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. > > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO >Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu wit
Re: Best practice for 24-bit storage in assembler called from C/C++
My thought was not to use the DXD for the bulk of the "gotten" storage but rather just for a pointer to an area of 24-bit storage that I would manage using traditional assembler techniques. I just need one word! My kingdom for a word! I kind of get pseudoregisters I think. The idea is that you can write a bunch of disjoint DSECTs and the compilers and binder will essentially assemble them all into one big area, and tell you at run time the total size (in a CXD) and the offset of each DSECT (in a Q con) within the conglomeration. Coding DXD F is kind of like coding a one-word DSECT -- not wrong but not very efficient use of source code. I guess the fundamental question is this: will something outside of my code give me that one task-unique word? I am beginning to think it will not. The problem pseudo-registers seem to solve is " one GETMAIN for many DSECTs -- even across separate compilation units" -- not "give me some task-unique storage." I keep coming back to the same problem: there's no way anything stored inside your code could possibly be reentrant-task-unique. I think I am down to one of two fairly ugly solutions: passing the storage in from the C++ caller -- made more ugly by the fact that __malloc24() is dysfunctional -- the C code is going to have to get the storage from assembler in order to be able to give it to assembler; or using the "word zero of the first save area" solution. The last time I did a library like this, the calling language was Rexx, and Rexx provides an anchor word that it passes to called routines. That feature makes this problem trivial. Let me repeat a question from the original post: What is CEECAA_TCASRV_USERWORD for? Where is it documented? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of J R Sent: Tuesday, February 23, 2010 9:55 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Best practice for 24-bit storage in assembler called from C/C++ I used "pseudo registers" extensively a long, long time ago, but not recently so I'm very rusty on it. However, I think you also need a CXD instruction which will define a fullword into which the linkeditor (or binder, I suppose) will put the cumulative length of everything referenced in a QCON. At initialization you do a getmain for the value in the CXD fullword. Later, when you want the address of one of your areas, you load the QCON and use it as an offset into the gotten storage. IMHO, using DXDs for each field is not the way to go. Rather, referring to a DSECT in a QCON will give you the offset to the entire DSECT within the gotten storage. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO reconnect (ikjefln2) reject by RACF
Matan, You should be aware of a few things 1. System Consoles are exempt from OPERCMDS security if they do not log on. This was to ensure that MVS consoles would continue to use native console authorities even when OPERCMDS is active. 2. Started Tasks are never exempt from OPERCMDS security - or any other security when they run "undefined". They have whatever authority any batch job would have - that is, whatever UACC allows. 3. It is always in your best interest to define ALL started tasks to RACF properly. Those listed in the IBM manuals as "TRUSTED" should be defined as trusted to RACF. At z/OS 1.11 (this has not changed in awhile) the following Started Tasks should be trusted: CATALOG DUMPSRV IEEVMPCR IOSAS IXGLOGR JES2 (or JES3) JESXCF LLA NFS RACF RMF RMFGAT SMF TCPIP VLF VTAM XCFAS Optional candidates for the TRUSTED attribute include the following: APSWPROA, APSWPROB, APSWPROC, APSWPROM, or APSWPROT DFHSM DFS GPMSERVE OMVSKERN SMSVSAM 4. Anytime you see an ICH408I message with JOB( ) and STEP( ) - it is a violation that is occurring where the caller has not provided a RACF UserID and is running undefined. In the case of cross-memory checks (as most of the OPERCMDS checks are), JOB and STEP reflect the address space where the violation is occurring - NOT where it came from. So the violation occurred in LLA's address space but may not have been caused by LLA. It is issues like this which necessitate having few if not zero undefined users in your system. If the users run "undefined" you will not be able to determine what is causing the problem - you will only be able to determine which resource is involved. 5. RACF related questions are best asked on the RACF-L. Hayim _ Hayim Sokolsky, CISSP Mainframe Security Architect DTCC Corporate Information Security 18301 Bermuda Green Dr, MS 1-CIS Tampa FL 33647-1760 Tel. (813) 470-2177 Matan Cohen Sent by: IBM Mainframe Discussion List 2010.02.23 08:22 Please respond to IBM Mainframe Discussion List To IBM-MAIN@bama.ua.edu cc Subject Re: TSO reconnect (ikjefln2) reject by RACF yes , but if i will define the lla as a started task to RACF . I'm afraid this will make lla other security problems. On Tue, Feb 23, 2010 at 1:42 PM, Elardus Engelbrecht < elardus.engelbre...@sita.co.za> wrote: > matan cohen wrote: > > >trying to reconnect was unsuccessfull because of RACF , i got the next > message : > > >ICH408I JOB(MSTJCL00) STEP(LLA ) MVS.VARY.NET CL(OPERCMDS) > > INSUFFICIENT ACCESS AUTHORITY > > ACCESS INTENT(UPDATE ) ACCESS ALLOWED(NONE ) > > >should i define the lla as started task? > > You need to create a STARTED class profile for LLA. Started Tasks not > properly not defined to RACF will have JOB instead of USER in the ICH408I > message. > > Then you can give access to LLA where needed in class OPERCMDS. > > HTH! > > Groete / Greetings > Elardus Engelbrecht > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- best regards, matan cohen MF System Administrator. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html _ DTCC DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error, please notify us immediately and delete the email and any attachments from your system. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
Thanks, John. That was my recollection -- that this feature was originally for PL/I. As luck would have it I am working with (not developing using -- don't ask) OS PL/I V2R3. I have the user documentation but not the PLMs (I'm familiar with the acronym). Any further pointers will be appreciated. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of john gilmore Sent: Tuesday, February 23, 2010 10:02 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Best practice for 24-bit storage in assembler called from C/C++ You will need several DXDs and a single CXD. This machinery was devised originally for PL/I, but its use outside PL/I is fully supported by both the HLASM and the Linker. That said, the best documentation for it is in the old PL/I Optimizing Compiler manuals. (The PL/I Optimizing Compiler was not OCO; the current, Enterprise compiler is.) If you can get your hands on either an old Program Logic Manual, usually referred by its obvious acronym, as a PLM, or only a little less satisfactory, an old Execution Logic Manual, usually referred to for consistency as just an EL, for this compiler you will find lucid explanations of their implementation and use in either or both. The absence of this facility from C--Dennis Ritchie did not understand what controlled storage was for--is the reason for all the ugliness of multiple copies of writable static in C. John Gilmore Ashland, MA 01721-1817 USA _ Your E-mail and More On-the-Go. Get Windows Live Hotmail Free. http://clk.atdmt.com/GBL/go/201469229/direct/01/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM-caused needless aggravation for today
I won't clutter up this list any more on this subject, but I realized I should have said in my last post that saying "just code LIST=YES on the offending macro" has two flaws: 1. I did not KNOW that this sort of thing was my problem -- all I really knew was that I had an RC=8, a diagnostic count of one, and ISPF search on 'SMA' (my usual technique -- perhaps there is a better one) or 'MNOTE' was getting no meaningful hits. 2. Even after deducing that this sort of thing was the problem, I had no idea which of *seven* IBM macros was the problem. Tracking down the documentation for each of them (Assembler Services? Advanced Assembler Services? MVS Data Areas? Some of these macros aren't documented at all -- as macros, not the areas they lay out -- are they?) would have burned another bunch of frustrating time. Yeah, I was wrong to suggest the PRINT OFFs were new. New to me. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Bill Godfrey Sent: Tuesday, February 23, 2010 9:43 AM To: IBM-MAIN@bama.ua.edu Subject: Re: IBM-caused needless aggravation for today I agree. You're preaching to the choir. My main point was that for these two macros it's not something recent, and not something that a macro parameter won't solve. Bill ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
You will need several DXDs and a single CXD. This machinery was devised originally for PL/I, but its use outside PL/I is fully supported by both the HLASM and the Linker. That said, the best documentation for it is in the old PL/I Optimizing Compiler manuals. (The PL/I Optimizing Compiler was not OCO; the current, Enterprise compiler is.) If you can get your hands on either an old Program Logic Manual, usually referred by its obvious acronym, as a PLM, or only a little less satisfactory, an old Execution Logic Manual, usually referred to for consistency as just an EL, for this compiler you will find lucid explanations of their implementation and use in either or both. The absence of this facility from C--Dennis Ritchie did not understand what controlled storage was for--is the reason for all the ugliness of multiple copies of writable static in C. John Gilmore Ashland, MA 01721-1817 USA _ Your E-mail and More On-the-Go. Get Windows Live Hotmail Free. http://clk.atdmt.com/GBL/go/201469229/direct/01/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
I used "pseudo registers" extensively a long, long time ago, but not recently so I'm very rusty on it. However, I think you also need a CXD instruction which will define a fullword into which the linkeditor (or binder, I suppose) will put the cumulative length of everything referenced in a QCON. At initialization you do a getmain for the value in the CXD fullword. Later, when you want the address of one of your areas, you load the QCON and use it as an offset into the gotten storage. IMHO, using DXDs for each field is not the way to go. Rather, referring to a DSECT in a QCON will give you the offset to the entire DSECT within the gotten storage. > Date: Tue, 23 Feb 2010 08:45:49 -0800 > From: charl...@mcn.org > Subject: Re: Best practice for 24-bit storage in assembler called from C/C++ > To: IBM-MAIN@bama.ua.edu > > Let me come right out and say I am asking a potentially dumb question here. > I freely admit I have never used pseudo-registers or any of the associated > features. (Level set: yes, I am totally familiar with the meaning of > reentrant and reusable and have coded lots of "do-it-yourself" reentrant > code in 360+ assembler.) > > Why am I asking a dumb question here? Because I don't see much if any > overview of the topic in the docs, just detail instruction documentation, > and I don't know where else to turn. If anyone could suggest a source for an > education in pseudo-registers and related features, I'm all ears. > > Does DXD help solve this problem? If I code > > FOO DXD F > BAR DC Q(FOO) > > does that give me a fullword that will be "task-unique" at run time? Will > > GETMAIN ... > L R2,BAR Point to unique storage pointer > ST R1,0(,R2) Save my storage area for subsequent use > > do what the comments say it does? Is this code -- assuming the usual other > requirements are met -- satisfy reentrancy? Or am I off base? > > Environment: Pre-linker, PDS, and "OS" linkage from LE C. Why pre-linker and > not binder/PDSE? Two reasons: trying to solve one learning curve at a time, > and hoping to avoid PDSEs because of all of the "customer resistance" > reasons mentioned in a recent thread on IBMMAIN. (Please don't try to > convince me that PDSEs are cool. I have no personal problem with them. I am > in the software product business, and the customer objections are a fact, > even if some think they are baseless. You don't sell software by arguing > with the prospects.) > > Charles > _ Hotmail: Powerful Free email with security by Microsoft. http://clk.atdmt.com/GBL/go/201469230/direct/01/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LPARs: More or Less?
> -Original Message- > From: IBM Mainframe Discussion List > [mailto:ibm-m...@bama.ua.edu] On Behalf Of Tom Marchant > Sent: Tuesday, February 23, 2010 11:41 AM > To: IBM-MAIN@bama.ua.edu > Subject: Re: LPARs: More or Less? > > On Tue, 23 Feb 2010 11:24:55 -0500, David Andrews wrote: > > >didn't bare MVT have a horrendous core fragmentation > >issue? > > Suppose that you have a 768K machine and the memory is mapped > like this (I'm making up these numbers, and I don't remember where > everything was located): > > 0-200K Nucleus > 200K-600K > 600K-640K SQA and CSA > 640K-768K LPA > > All your initiators run in the area from 200K to 600K. Suppose you > start a job that needs 110K. It gets the area from 200K to 310K. > While that job is running, you start another job that needs 200K. > It will reside from 310K to 510K. > > After the first job ends, there is a total of 200K available, > but it is not > contiguous. You can run a job that needs 110K and one that > needs 90K, > but nothing larger. > > At the MVT shop where I worked, we had a fixed number of initiators > that each had their assigned Job classes. To ensure that storage > would not be fragmented, we had region size standards for each job > class, and all job classes for a particular initiator were > required to use > the same region. > > -- > Tom Marchant I remember that we had a "cheat" in MVT. We had an RYO tp monitor. Somebody, before my time, made a mod to GETMAIN so that a request for a ODD sized REGION would get the storage from the high end of free storage. We ran the tp monitor with an ODD region size so that it always "ran high" and so did not get in the way of batch regions. This place, Braniff Airways, actually ran MVT without HASP because "HASP cost too much in resource". Very strange place to work. Job "sysout" was always directed to tape. Then the operators had a tape to print STC which could do forward and backward spacing via the console. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: FTPs wait
Yes. 99.235% chance it is a firewall issue. And expect denials from the network folks. For one, you said FTPS, and encrypted traffic is often 'black holed' without a trace or log entry. For another, FTP uses three ports. Depending on your configuration, two of the ports can be unpredictable. Firewall people hate that. The typical pattern is for the FTP session to complete the handshake and then stop upon the first data packet. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of John Kelly Sent: Tuesday, February 23, 2010 10:35 AM To: IBM-MAIN@bama.ua.edu Subject: FTPs wait I will cross post this to the TCP List as soon as I re-figure out how to. I have three FTPs running on a one stack TCP on a 1.9 system. Good old FTP 21 is still churning and ftps (open ftp, IBM ported ftp, or whatever it's called) is working and listening on port 22. Since everything is working, it was decided that we needed another FTP, so now we have Tectia FTP listening on port 4022. This scenario has been running on our sandbox for a month and we finally moved it over to production. Everybody was coexisting nicely until this morning, mainly because no one was using Tectia. The best that I can ascertain, ftps was pushing data and 'suddenly' went into a wait. Assuming that it was a wait in that the job usually runs six seconds elapsed time but this particular iteration was in the system for two hours and used .5 second CPU time. I don't have any dumps or any worth while listings but I am trying to recreate the scenario on the sandbox. The remedy was to cancel Tectia. Does this scenario strike a cord with anyone? TIA Jack Kelly 202-502-2390 (Office) NOTICE: This electronic mail message and any files transmitted with it are intended exclusively for the individual or entity to which it is addressed. The message, together with any attachment, may contain confidential and/or privileged information. Any unauthorized review, use, printing, saving, copying, disclosure or distribution is strictly prohibited. If you have received this message in error, please immediately advise the sender by reply email and delete all copies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM-caused needless aggravation for today
I agree. You're preaching to the choir. My main point was that for these two macros it's not something recent, and not something that a macro parameter won't solve. Bill On Tue, 23 Feb 2010 09:17:18 -0800, Charles Mills wrote: >What's wrong with PRINT NOGEN? > >Inventing one's own solution to problems well-solved at a more universal >level is a recipe for frustration for one's users. > >Charles > >-Original Message- >From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf >Of Bill Godfrey >Sent: Tuesday, February 23, 2010 8:43 AM >To: IBM-MAIN@bama.ua.edu >Subject: Re: IBM-caused needless aggravation for today > >The IEFJFCBN and CVT macros have had PRINT OFF at least as far back as >MVS 3.8, so for these macros the PRINT OFF was not gained over any very >recent years. In both macros, specifying LIST=YES avoids the PRINT OFF, as >you no doubt would have found if you had followed your inclination, which >you mentioned, to modify the macros. > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LPARs: More or Less?
On Tue, 23 Feb 2010 11:24:55 -0500, David Andrews wrote: >didn't bare MVT have a horrendous core fragmentation >issue? Suppose that you have a 768K machine and the memory is mapped like this (I'm making up these numbers, and I don't remember where everything was located): 0-200K Nucleus 200K-600K 600K-640K SQA and CSA 640K-768K LPA All your initiators run in the area from 200K to 600K. Suppose you start a job that needs 110K. It gets the area from 200K to 310K. While that job is running, you start another job that needs 200K. It will reside from 310K to 510K. After the first job ends, there is a total of 200K available, but it is not contiguous. You can run a job that needs 110K and one that needs 90K, but nothing larger. At the MVT shop where I worked, we had a fixed number of initiators that each had their assigned Job classes. To ensure that storage would not be fragmented, we had region size standards for each job class, and all job classes for a particular initiator were required to use the same region. -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LPARs: More or Less?
George, I don't know that I would say that running QA in a different LPAR than DEV is "best practices", I certainly run them in the same LPAR here, and at nearly every site I have ever worked at. In small shops I typically run a production LPAR, a non-production LPAR (DEV, QA, etc), and a "Sysprog Sandbox" LPAR. As others have said, if you run everything in one LPAR, you are not going to have any process for installing and testing new OS and/or ISP software before going production. This also allows you to control CPU/memory usage at a high level, and prevent non-prod workloads from stealing these resources from production. Larger shops may very well not use LPAR in this way, since they may be able to justify separate CECs for non-production work. As others have mentioned, the point of "isolation" may be more about memory isolation than the points you are making re: SYSRES, PROCLIB, PARMLIB, etc. If the LPARs are for different clients, then I can certainly understand the need for separate LPARs, since an APF authorized program could easily spy into another address space in the same LPAR, but doing that across LPARs is a whole 'nother ball o' wax. All in all, I think your arguments for VM over LPAR are way off-base. Most sites have little or no need for the added capabilities in VM, LPAR does the job very well, and at a significantly lower level of effort and complexity - even if you ignore the addition costs of VM (memory, storage, overhead, and of course acquisition/maintenance). I certainly have no desire to spend time on VM if I don't need the functionality, I simply don't have the time. I have worked on VM before, and rather like it, but if the tool doesn't fit I have no desire to use it. >>> George Henke 2/23/2010 10:56 AM >>> Peace, Shmuel, nol contende. Intelligent people can disagree and still be friends. This whole brainstorming exercise started when my client, who is relatively small, questioned a very specific thing, basically: "Why would I NOT keep QA in the same LPAR with DEV. Why create a new LPAR just for QA and incur $6 million of additional software costs." My knee-jerk reaction, of course, was, "Because everyone is doing it and it is 'best practices'". But it immediately became apparent how ridiculous that logic or lack thereof was. And the more I tried to find a justification, a good reason, for not defying this "best practice", the more I could not find one. And when I could not, I started questioning the merits of having LPARs at all and opened the question here with the hope that someone could. And so far there does not appear to be any. To summarize, thus far it has been argued: *Pro:* z/VM in microcode is more efficient. *Con:* Those efficiencies quickly disappear and are more than offset by the additional CP overhead incurred by the cross LPAR handshaking that must occur for shared I/O. Please see Cheryl Watson's newsletters on this. She points this out and elaborates on it. *Pro:* You can isolate workloads better and give customers and clients better isolation and security. There may also be requirements mandated by law. *Con:* But that isolation is seriously compromised when after creating a separate LPAR, it is all tied back together with shared SYSRES, SYSCAT, PARMLIB, PROCLIB, JESPOOL for support, when "best practices" call for sharing everything at the system level as much as possible? Indeed, one of the vital functions "system symbolics" performs is to allow for this sharing, particularly in PARMLIB. True there are times when there should be a "chinese wall" built around certain sensitive workloads and then LPAR is certainly needed. But these is more often the exception, than the rule. *Pro:* The complexity of knowing both z/VM and z/OS makes it too hard to find people who know both. *Con:* Having installed both in total more than a dozen times myself, the latest being z/VM 5.4 last November, and having known and worked with sooo many others far more knowledgeable than I, not to mention the competition at interview time for both these skill sets, this is simply not true. *Pro:* With LPARs it is possible to take advantage of IBM's "sub-capacity pricing" algorithm and save millions. *Con:* Yes, indeed. IBM's "sub-capacity pricing" algorithm encourages it. But is this necessarilly something we should be encouraged to be doing, ie proliferating z/OS otherwise needlessly, carving up memory, just to take advantage of a favorable pricing algorithm. Are we being led down the primrose path? I like to think that, as a general rule, a software solution will always beat a hardware solution operationally, economically, and financially. But with PR/SM the trend seems to be in the other direction. Such a policy might favor IBM and ISVs, and with IBM's "sub-capacity pricing" algorithm, it might even favor us in the short-run, but in the long-run it is making us more dependent on and constrained by the hardware, not less,
Re: Easytrieve..
> -Original Message- > From: IBM Mainframe Discussion List > [mailto:ibm-m...@bama.ua.edu] On Behalf Of Ron Thomas > Sent: Tuesday, February 23, 2010 11:24 AM > To: IBM-MAIN@bama.ua.edu > Subject: Re: Easytrieve.. > > John, the thing is that we are setting up some classroom > training kind of > sessions for the easytrieve and would like to give the > partcipants quiz > questions regarding the easytrieve training, so if any one > has got similar kind > of things and if they can share it would help in the training.. > > Regards. > Ron Hum, something like that would be very nice to put on the Tech Services Wiki here where I work, too! -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LPARs: More or Less?
On Tue, 23 Feb 2010 10:56:19 -0500, George Henke wrote: >... my client, who is relatively >small, questioned a very specific thing, basically: "Why would I NOT keep >QA in the same LPAR with DEV. Why create a new LPAR just for QA and incur >$6 million of additional software costs." Good question. Your experience with this seems to differ from others who have responded. Do you really expect to incur this additional software cost? Have you analyzed the reasons for it? >My knee-jerk reaction, of course, was, "Because everyone is doing it and it >is 'best practices'". "best practices"? Says who? >I started questioning the merits of having LPARs at >all and opened the question here with the hope that someone could. > >And so far there does not appear to be any. > >To summarize, thus far it has been argued: > >*Pro:* z/VM in microcode is more efficient. To pick a nit, there is no microcode on a z9 or z10. There is millicode, which is quite unlike microcode. PR/SM is likely more efficient than z/VM because it doesn't do nearly as much. If you had a z/VM that supported only V=R guests and dedicated devices it might be just as efficient as PR/SM. >*Pro:* You can isolate workloads better and give customers and clients >better isolation and security. There may also be requirements mandated by >law. >*Con:* But that isolation is seriously compromised when after creating a >separate LPAR, it is all tied back together with shared SYSRES, SYSCAT, >PARMLIB, PROCLIB, JESPOOL for support, when "best practices" call for >sharing everything at the system level as much as possible? If you share everything then you are not isolating anything. Sharing PARMLIBs, PROCLIBs, SYSRES, SPOOL and master catalog between LPARs does not make you any more vulnerable than running a single LPAR Again with the "best practices"? I don't think anyone has used the phrase in this thread except for you. I don't like the term. It seems to me that people like to use it to claim that their way is the best. >*Pro:* With LPARs it is possible to take advantage of IBM's "sub-capacity >pricing" algorithm and save millions. >*Con:* Yes, indeed. IBM's "sub-capacity pricing" algorithm encourages it. You started by saying that a new LPAR was going to cost you $6 million. In your case, will it save you money or cost more? >I like to think that, as a general rule, a software solution will always >beat a hardware solution operationally, economically, and financially. Is that based upon intuition or analysis? I do agree that a single well-defined WLM environment will perform better than multiple ones. >But with PR/SM the trend seems to be in the other direction. > >Such a policy might favor IBM and ISVs, and with IBM's "sub-capacity >pricing" algorithm, it might even favor us in the short-run, but in the >long-run it is making us more dependent on and constrained by the hardware, >not less, and so is sub-optimal. I don't follow your logic. How does using PR/SM make you more dependent on z/Architecture to run z/OS? -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LPARs: More or Less?
The following message is a courtesy copy of an article that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well. dcartwri...@ymail.com (David Cartwright) writes: > At Monsanto Europe in Brussels about 1976 I wrote some mods to VM/370 to > defeat Shadow Page Tables for V=R machines so we could run MVS under > VM/370 without a crippling overhead. I sent that code out into the world on > some (Waterloo?) VM Mods tape, but my own copy got dumped in some move > down the years. Wish I had it now, it would go really nicely on Herc. re: http://www.garlic.com/~lynn/2010d.html#79 LPARs: More or Less? the stuff done on csc/vm ... that leaked out to at&t, had been about the same time ... slightly eariler. the design of the shadow page tables followed the semantics for the hardware "look-aside buffer". the virtual machine has page tables that translate virtual addresses to what it thinks are real addresses. However, these are actually virtual addresses for the virtual machine. So when VM runs a virtual machine ... in virtual memory mode ... it is actually run with "shadow page tables". Shadow page table entries start out all invalid. The virtual machine immediately page faults, vm then has to look at the (virtual) page tables (in virtual machine) to translate from the virtual memory address to the virtual machine address ... vm then looks it its page table to translate from the virtual machine address to the real machine address. It is this "real machine address" that is placed into the shadow tables. The early, low & mid range 370s had a single STO stack ... everytime there was a change in the virtual address space pointer ... the hardware lookaside buffer was cleared and all entries invalidated. Early VM370's shadow table operation had similar design, single STO stack, everytime the virtual machine changed virtual address space pointer, all the shadow page table entries were cleared and invalidated. Moving from SVS to MVS significantly aggrevated this ... because MVS was changing virtual address space pointer at the drop of the hat (and vm370 was going thru massive overhead constantly invalidating the shadow page tables everytime MVS reloaded CR1). 370/168 had a 7-entry STO stack. There was a seven entry LRU queue of the most recently used STO values. Each hardware look-aside buffer entry had a 3-bit tag ... it was either one of the 7 currently valid STO entries ... or invalid. MVS constant reloading/changing CR1 was mitigated on real 168 with the 7-entry STO stack (loading new value into CR1 didn't do anything if the value was already one of the seven values in the STO staok). It wasn't until vm370 release 5 with HPO option that vm370 finally shipped something equivalent to multiple STO-stack (i.e. multiple shadow page tables being kept for a single virtual machine ... to try and minimize having to constantly clear all shadow page table entries every time MVS fiddled with CR1). The demise of FS saw a big need to get products back into the 370 product pipeline quickly. 3033 was such effort ... take the 370/168 logic and remap it to slightly faster chips. There was also some activity to introduce some purely MVS microcode performance assists on 3033 ... one such involved cross-memory services. One of the issues with 3033 and cross-memory services ... was the 3033 still had the 370/168 design with 7-entry STO stack ... and cross-memory services was significantly increasing the number of STOs being used ... overrunning the seven entries ... with corresponding big increase in look-aside buffer entry flushing (which netted out to worse performance; somewhat analogous to the shadow page table flushing that VM was constantly being forced to do). -- 42yrs virtualization experience (since Jan68), online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Easytrieve..
John, the thing is that we are setting up some classroom training kind of sessions for the easytrieve and would like to give the partcipants quiz questions regarding the easytrieve training, so if any one has got similar kind of things and if they can share it would help in the training.. Regards. Ron -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 Job Separator
Another less glamorous option is to write the output for each SYSOUT in the job to a specific file, then at the end of the job (or in a dependent job), you can IEBGENER the outputs all together, or use a block print program to create banner pages wherever you would like. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM-caused needless aggravation for today
What's wrong with PRINT NOGEN? Inventing one's own solution to problems well-solved at a more universal level is a recipe for frustration for one's users. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Bill Godfrey Sent: Tuesday, February 23, 2010 8:43 AM To: IBM-MAIN@bama.ua.edu Subject: Re: IBM-caused needless aggravation for today The IEFJFCBN and CVT macros have had PRINT OFF at least as far back as MVS 3.8, so for these macros the PRINT OFF was not gained over any very recent years. In both macros, specifying LIST=YES avoids the PRINT OFF, as you no doubt would have found if you had followed your inclination, which you mentioned, to modify the macros. html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LPARs: More or Less?
The following message is a courtesy copy of an article that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well. d...@lists.duda.com (David Andrews) writes: > One of you Old Ones (and I'm thinking of Shmuel in particular) correct > me on this, but didn't bare MVT have a horrendous core fragmentation > issue? My poor recollection is that HASP initiators essentially > reintroduced "partitions" to MVT to help beat that problem. especially for long running jobs. Boeing huntsville had installed duplex (2-processor SMP) 360/67 for tss/360 ... when tss/360 ran into deelivery problems ... they would run it as two (partitioned) 360/65s under os/360. Their workload was long-running 2250 (vector graphics) design applications which had enormous storage fragmentation issues. To address that they modified MVT (release 13) to build 360/67 page tables and run in virtual memory mode ... there was no paging faults or page i/o supported ... the virtual memory mode was just used as countermeasure to the significant storage fragmentation problem (using virtual address tables to re-arrange memory addresses to be contiguous). Later I was brought in for a summer at boeing seattle as part of setting up BCS (boeing computer services) ... and put in at cp67 360/67 (simplex) in the 360/30 datacenter at corporate hdqtrs (beoing field) ... at primarily been used for corporate payroll. That summer, the 2-processor 360/67 was also moved to Seattle from Huntsville. When 370 was initially announced, there was no virtual memory support ... and one of the IBM SEs on the boeing account wondered what was the (virtual machine & virtual memory) cp67 path in 370. some 370s did have a sort of virtual memory (a little analogous to current LPARs) ... used for emulators ... which was a mode that a base/bound flavor of (contiguous) virtual memory (i.e. virtual memory up to the "bound" limit and all addresses were "relocated" by the "base" value). The boeing account SE did a hack to cp67 that used the base/bound on 370s (pre virtual memory) ... didn't do paging but would swap in/out whole virtual machine address space. also, somewhat analogous to the "preferred v=r guest" ... recent reference (in the v=r case, the addresses were contiguous and the virtual address was same as the real address): http://www.garlic.com/~lynn/2010d.html#79 LPARs: More or Less? a few recent posts mentioning BCS, boeing huntsville, etc: http://www.garlic.com/~lynn/2010c.html#89 Notes on two presentations by Gordon Bell ca. 1998 http://www.garlic.com/~lynn/2010c.html#90 Notes on two presentations by Gordon Bell ca. 1998 http://www.garlic.com/~lynn/2010c.html#91 Notes on two presentations by Gordon Bell ca. 1998 http://www.garlic.com/~lynn/2010d.html#29 search engine history, was Happy DEC-10 Day http://www.garlic.com/~lynn/2010d.html#76 Senior Java Developer vs. MVS Systems Programmer (warning: Conley rant) -- 42yrs virtualization experience (since Jan68), online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 Job Separator
>Can anyone give me an advice if there is a JCL parameter to supress JES2 > >Job Seperator (JES2 local host Printer, SEP=YES/NO) being printed only for >output that created from a particular batch job? I am not aware of such a parameter, however, and this depends on your printer configuration and software, you may be able to define a second printer definition for the same device, assign it a unique parameter such a destination, set the SEPPAGE parameter to NONE, and send your output to that definition instead of the existing one. You could also use the existing definition, assigning a specific class (or other work-selection parameter) to the output, and switch the printer via operator commands - setting the WS criteria to match the SEPPAGE requirement. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
Let me come right out and say I am asking a potentially dumb question here. I freely admit I have never used pseudo-registers or any of the associated features. (Level set: yes, I am totally familiar with the meaning of reentrant and reusable and have coded lots of "do-it-yourself" reentrant code in 360+ assembler.) Why am I asking a dumb question here? Because I don't see much if any overview of the topic in the docs, just detail instruction documentation, and I don't know where else to turn. If anyone could suggest a source for an education in pseudo-registers and related features, I'm all ears. Does DXD help solve this problem? If I code FOO DXD F BAR DC Q(FOO) does that give me a fullword that will be "task-unique" at run time? Will GETMAIN ... LR2,BAR Point to unique storage pointer ST R1,0(,R2) Save my storage area for subsequent use do what the comments say it does? Is this code -- assuming the usual other requirements are met -- satisfy reentrancy? Or am I off base? Environment: Pre-linker, PDS, and "OS" linkage from LE C. Why pre-linker and not binder/PDSE? Two reasons: trying to solve one learning curve at a time, and hoping to avoid PDSEs because of all of the "customer resistance" reasons mentioned in a recent thread on IBMMAIN. (Please don't try to convince me that PDSEs are cool. I have no personal problem with them. I am in the software product business, and the customer objections are a fact, even if some think they are baseless. You don't sell software by arguing with the prospects.) Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Don Poitras Sent: Tuesday, February 23, 2010 8:22 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Best practice for 24-bit storage in assembler called from C/C++ > This really depends on how you get access to the program with the WSA. If > you load a program once and put the address in commonly retrievable area > (vector table, name/token pair, etc.) then WSA does not provide reentrancy. We're back to talking about something other than batch programs. The OP wasn't asking to write a system service, just a job that builds a DCB in assembler. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 Job Separator
Two JES writers with SEP=YES and SEP=NO (?) Paul Ip wrote: Hi all, Can anyone give me an advice if there is a JCL parameter to supress JES2 Job Seperator (JES2 local host Printer, SEP=YES/NO) being printed only for output that created from a particular batch job? That is, I don't want to change the "SEP=" parameter under a printer manually (by operator), instead, I want to control this option by batch JCL Is that possible?? I'm using z/OS 1.9. Paul -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- Mit freundlichen Grüßen / Kind Regards, Miklos SZIGETVARI Research and Development ISIS Information Systems GmbH Alter Wienerweg 12, A-2344 Maria Enzersdorf, Austria T: +43 - 2236 – 27551, F: +43 - 2236 - 21081 @ miklos.szigetv...@isis-papyrus.com Visit our brand new extended Website at www.isis-papyrus.com This e-mail is only intended for the recipient and not legally binding. Unauthorised use, publication, reproduction or disclosure of the content of this e-mail is not permitted. This e-mail has been checked for known viruses, but ISIS accepts no responsibility for malicious or inappropriate content. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM-caused needless aggravation for today
The IEFJFCBN and CVT macros have had PRINT OFF at least as far back as MVS 3.8, so for these macros the PRINT OFF was not gained over any very recent years. In both macros, specifying LIST=YES avoids the PRINT OFF, as you no doubt would have found if you had followed your inclination, which you mentioned, to modify the macros. Bill On Tue, 23 Feb 2010 06:01:21 -0800, Charles Mills wrote: >Thank you to everyone who replied. I suspected there was some sort of >parameter or statement that would effectively defeat PRINT OFF, but I came >up with using SYSTERM before I got around to researching any of those. I >freely admit that I am not familiar with *every* HLASM feature; just those >that I use from day to day. > >A valid question I think might be "why should I HAVE to learn how to defeat >PRINT OFF?" Except in the rarest of circumstances, why shouldn't a macro >writer assume that the user knows whether he wants a listing or not? Isn't >that what PRINT NOGEN is for? > >Peter, I know the specific macro that caused (or rather, obscured) my >problem was IEFJFCBN, but there were at least two or three others with the >same "feature" -- perhaps one was CVT. And no, I won't make any jokes about >Freudian slips. > >On 2/22/2010 9:15 PM, Charles Mills wrote: >> >> Many of the IBM-supplied storage definition macros and copy members have >> gained PRINT OFF statements over the years. As a result I had the > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO reconnect (ikjefln2) reject by RACF
On Tue, 23 Feb 2010 08:26:34 -0600, Elardus Engelbrecht wrote: >>AFAIK there is no way around this pre z/OS 1.11 > >Please, could you be very kind to provide any useful documentation(s) or links >about this interesting tidbit? > >Groete / Greetings >Elardus Engelbrecht > Elardus, In z/OS V1R11.0 Introduction and Release Guide Document Number: GA22-7502-17 And probably TSO book also: 1.28.2 TSO/E LOGONHERE support for VTAM unconditional reconnect | Description: TSO/E LOGONHERE support for VTAM unconditional reconnect now | allows you to reconnect to your session even if no disconnection has been | detected. By default in z/OS V1R11, LOGONHERE support is turned on. By | specifying the reconnect option, you can easily switch from one computer | to another or reestablish a session after a loss of connectivity (even | with a new IP address). | When change was introduced: z/OS V1R11. It works well. Dana -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: catalog a vsam dataset in another catalog ?
Mark, It's not the HLQ, all page datasets can be RECATALOGed, regardless of the name. >>> Mark Zelden 2/23/2010 9:52 AM >>> (I hate this... now there is a mixture of top posting and bottom posting, but since you went "top" last, I will do the same thing). So how does that support your statement - "a PAGESPACE, regardless of the name, can exist in multiple catalogs at the same time"? I already stated there was special code for SYS1 *and* PAGE HLQs to be cataloged in multiple catalogs at the same time. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ On Mon, 22 Feb 2010 14:39:25 -0600, McKown, John wrote: >My page datasets all start with PAGE.&SYSNAME..LOCALnn and so on. When I replace an image, I just do a > > DEF PAGESPACE(NAME(PAGE.LIH1.COMMON) - > FILE(MVSPG3) VOL(MVSPG3) RECATALOG) - > CAT(CATALOG.ICF.newmastercat) > >I don this while they are still in use on the currently running system. And I don't do a REPORT MERGECAT or anything else. > >-- >John McKown >Systems Engineer IV >IT > > > >> -Original Message- >> From: IBM Mainframe Discussion List >> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mark Zelden >> Sent: Monday, February 22, 2010 1:18 PM >> To: IBM-MAIN@bama.ua.edu >> Subject: Re: catalog a vsam dataset in another catalog ? >> >> On Mon, 22 Feb 2010 12:43:47 -0600, McKown, John >> wrote: >> >> >> -Original Message- >> >> From: IBM Mainframe Discussion List >> >> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Staller, Allan >> >> Sent: Monday, February 22, 2010 12:35 PM >> >> To: IBM-MAIN@bama.ua.edu >> >> Subject: Re: catalog a vsam dataset in another catalog ? >> >> >> >> >> >> Also SYS1 has the special attribute of DEFINE RECATALOG >> allowing the >> >> definition of the same dataset in 2 different catalogs (just like >> >> non-VSAMS datasdest). This only applies to datasets with the HLQ of >> >> SYS1. >> >> >> >> >> >> I meant to add that with the exception of SYS1, a VSAM >> >> dataset can only >> >> exist in 1 catalog at a time. >> >> >> >> HTH, >> > >> >Actually a PAGESPACE, regardless of the name, can exist in multiple >> catalogs at the same time too. I do that all the time. >> > >> >> Are you sure? I thought the special code in DFSMS was only for SYS1 >> and PAGE HLQs. Although I've never tried to define a page >> data set with >> any other HLQ than SYS1 or PAGE. >> >> Mark >> -- >> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS >> mailto:mzel...@flash.net >> Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html >> Systems Programming expert at >> http://expertanswercenter.techtarget.com/ >> >> -- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains confidential and privileged information intended only for the addressee. If you are not the intended recipient, please be advised that you have received this material in error and that any forwarding, copying, printing, distribution, use or disclosure of the material is strictly prohibited. If you have received this material in error, please (i) do not read it, (ii) reply to the sender that you received the message in error, and (iii) erase or destroy the material. Emails are not secure and can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by email. Thank you. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
FTPs wait
I will cross post this to the TCP List as soon as I re-figure out how to. I have three FTPs running on a one stack TCP on a 1.9 system. Good old FTP 21 is still churning and ftps (open ftp, IBM ported ftp, or whatever it's called) is working and listening on port 22. Since everything is working, it was decided that we needed another FTP, so now we have Tectia FTP listening on port 4022. This scenario has been running on our sandbox for a month and we finally moved it over to production. Everybody was coexisting nicely until this morning, mainly because no one was using Tectia. The best that I can ascertain, ftps was pushing data and 'suddenly' went into a wait. Assuming that it was a wait in that the job usually runs six seconds elapsed time but this particular iteration was in the system for two hours and used .5 second CPU time. I don't have any dumps or any worth while listings but I am trying to recreate the scenario on the sandbox. The remedy was to cancel Tectia. Does this scenario strike a cord with anyone? TIA Jack Kelly 202-502-2390 (Office) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: anyone notice a reroute going to IBMLINK
FWIW - I think the recommended link to get to IBMLink is: http://www.ibm.com/ibmlink Brian On Tue, 23 Feb 2010 10:53:47 -0500, John Kelly wrote: >I'm going to IBMLINK via > >http://www.ibmlink.ibm.com/ibmlink > >I get an Untrusted popup sayin secure certificate only good for >www-304.ibm.com but I'm at https://www-304bluecoat.ibm.com > >Jack Kelly -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Adventure - Or Colossal Cave Adventure
I'd be astonished if no one had an EMACS version. Remember that TICO moon-lander? (Actually, I never tried it, but I heard about. Text graphics, even moon-lander games, never interested me much.) -- Jack Hamilton Management Information & Analysis Kaiser Foundation Health Plan, Inc. 1950 Franklin Street, Oakland, California 94612 +1 510 987-1556 (KP tieline 8-427-1556) NOTE: This email document and attachments are covered by CA Evidence Code §1157 and CA Health and Safety Code §1370. NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, you are prohibited from sharing, copying, or otherwise using or disclosing its contents. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and permanently delete this e-mail and any attachments without reading, forwarding or saving them. Thank you. Paul Gilmartin Sent by: IBM Mainframe Discussion List 02/22/2010 03:30 PM Please respond to IBM Mainframe Discussion List To IBM-MAIN@bama.ua.edu cc Subject Re: [IBM-MAIN] Adventure - Or Colossal Cave Adventure On Mon, 22 Feb 2010 09:08:37 -0500, Shmuel Metz (Seymour J.) wrote: > >I know what a TSO version is, but how could you have a Wylbur version >written in PL/I? Wylbur didn't support any language other than its own >command/macro language. > Would you be surprised if someone had an EMACS version? Would you be surprised if no one had an EMACS version? (I don't know.) Some editors are more equal than others. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LPARs: More or Less?
On Tue, 2010-02-23 at 10:56 -0500, George Henke wrote: > It is all somewhat reminiscent of the old MFT days when everything ran in > partitions. There were all kinds of inefficiencies introduced when we ran > things in fixed partitions then. [...] > When MVT came along it removed those constraints One of you Old Ones (and I'm thinking of Shmuel in particular) correct me on this, but didn't bare MVT have a horrendous core fragmentation issue? My poor recollection is that HASP initiators essentially reintroduced "partitions" to MVT to help beat that problem. -- David Andrews A. Duda and Sons, Inc. david.andr...@duda.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LPARs: More or Less?
On Mon, 22 Feb 2010 13:19:37 -0500, Anne & Lynn Wheeler wrote: >The following message is a courtesy copy of an article >that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well. > > >gahe...@gmail.com (George Henke) writes: >> Yes, I believe it was some how connected to Preferred Machine Assist (PMA) >> where page 0 was actually owned by MVS not VM. > >preferred machine assist could be considered step on the way to LPARs >... since part of it involved the virtual machine pages being mapped to >fixed real storage. > >the earlier version of this (preferred V=R guest) had been done for >vm370 at the science center circa mid-70s on a "csc/vm" base. There was >then a joint study with AT&T ... -SNIP-- At Monsanto Europe in Brussels about 1976 I wrote some mods to VM/370 to defeat Shadow Page Tables for V=R machines so we could run MVS under VM/370 without a crippling overhead. I sent that code out into the world on some (Waterloo?) VM Mods tape, but my own copy got dumped in some move down the years. Wish I had it now, it would go really nicely on Herc. DC -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
In article <4e2421a41002230531i1d252a29n484a6c323ae9b...@mail.gmail.com> you wrote: > On Tue, Feb 23, 2010 at 12:07 PM, Don Poitras wrote: > > In article <4b8389b7.9030...@gmail.com> you wrote: > > > Charles Mills wrote: > > > > > > > > The fundamental problem I guess is that any solution that keeps a > > pointer > > > > around "somewhere in the code" is fundamentally not reentrant, unless I > > can > > > > figure out how to utilize pseudo-registers. I've heard the term > > > > pseudo-register for years but I have never delved into them. Perhaps > > now is > > > > the time. > > > > > > > > > > > > > You're fundamentally not reentrant if you use any kind of global data. > > > That may be name/tokens, control > > > block anchors or WSA. That may not be a problem for you if you only want > > > one instance of the routine. > > > I prefer to design C++ applications to use objects which can handle > > > multiple instantiations of the same > > > class even if I only need one instance. You never know when that > > > requirement may change. > > > > The purpose of WSA is to provide reentrancy. Every copy of the program > > will get it's own WSA initialised when the program starts. No different > > than in assembler where you do a GETMAIN and use MF=L macros. > > > This really depends on how you get access to the program with the WSA. If > you load a program once and put the address in commonly retrievable area > (vector table, name/token pair, etc.) then WSA does not provide reentrancy. We're back to talking about something other than batch programs. The OP wasn't asking to write a system service, just a job that builds a DCB in assembler. -- 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...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 Job Separator
> -Original Message- > From: IBM Mainframe Discussion List > [mailto:ibm-m...@bama.ua.edu] On Behalf Of Paul Ip > Sent: Tuesday, February 23, 2010 9:20 AM > To: IBM-MAIN@bama.ua.edu > Subject: JES2 Job Separator > > Hi all, > > Can anyone give me an advice if there is a JCL parameter to > supress JES2 Job > Seperator (JES2 local host Printer, SEP=YES/NO) being printed > only for output > that created from a particular batch job? > > That is, I don't want to change the "SEP=" parameter under a > printer manually > (by operator), instead, I want to control this option by > batch JCL Is that > possible?? > > I'm using z/OS 1.9. > > Paul I don't think so. The actual separator is generated by the JES code doing the printing. It is not really part of the job itself. And there is, to my knowledge, no /*JOBPARM type control to tell JES to / not to print a separator. That is a function of the printer defination (or via a operator command as you have already found out). And, imagine where all you'd need this. In the normal JES print logic (for local printers), in the FSS logic, in every external writer logic, and in products such as VPS and JQP which read the SPOOL and do the printing themselves. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: anyone notice a reroute going to IBMLINK
https://www-304bluecoat.ibm.com Guess that it was temporary. It went back to 'normal' after 15 minutes. I'll send a feedback to IBM to see what it was. Jack Kelly 202-502-2390 (Office) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Easytrieve..
Wish I could help. But, as a weird curiosity question of my own, if nobody in your shop has any questions, then how can they be frequently asked??? Sorry - I'll be out Friday for a medical procedure, so I need to get my Friday posts in early this week. How about we name these like the ever popular: "Everything you wanted to know about ..., but were afraid to ask?" -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -Original Message- > From: IBM Mainframe Discussion List > [mailto:ibm-m...@bama.ua.edu] On Behalf Of Ron Thomas > Sent: Tuesday, February 23, 2010 8:22 AM > To: IBM-MAIN@bama.ua.edu > Subject: Easytrieve.. > > Hello. > > I was asked to set up a FAQ's for easytrieve tool for our > organization, can any > one in the list have a one to share ? > > Regards > Ron > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: LPARs: More or Less?
Peace, Shmuel, nol contende. Intelligent people can disagree and still be friends. This whole brainstorming exercise started when my client, who is relatively small, questioned a very specific thing, basically: "Why would I NOT keep QA in the same LPAR with DEV. Why create a new LPAR just for QA and incur $6 million of additional software costs." My knee-jerk reaction, of course, was, "Because everyone is doing it and it is 'best practices'". But it immediately became apparent how ridiculous that logic or lack thereof was. And the more I tried to find a justification, a good reason, for not defying this "best practice", the more I could not find one. And when I could not, I started questioning the merits of having LPARs at all and opened the question here with the hope that someone could. And so far there does not appear to be any. To summarize, thus far it has been argued: *Pro:* z/VM in microcode is more efficient. *Con:* Those efficiencies quickly disappear and are more than offset by the additional CP overhead incurred by the cross LPAR handshaking that must occur for shared I/O. Please see Cheryl Watson's newsletters on this. She points this out and elaborates on it. *Pro:* You can isolate workloads better and give customers and clients better isolation and security. There may also be requirements mandated by law. *Con:* But that isolation is seriously compromised when after creating a separate LPAR, it is all tied back together with shared SYSRES, SYSCAT, PARMLIB, PROCLIB, JESPOOL for support, when "best practices" call for sharing everything at the system level as much as possible? Indeed, one of the vital functions "system symbolics" performs is to allow for this sharing, particularly in PARMLIB. True there are times when there should be a "chinese wall" built around certain sensitive workloads and then LPAR is certainly needed. But these is more often the exception, than the rule. *Pro:* The complexity of knowing both z/VM and z/OS makes it too hard to find people who know both. *Con:* Having installed both in total more than a dozen times myself, the latest being z/VM 5.4 last November, and having known and worked with sooo many others far more knowledgeable than I, not to mention the competition at interview time for both these skill sets, this is simply not true. *Pro:* With LPARs it is possible to take advantage of IBM's "sub-capacity pricing" algorithm and save millions. *Con:* Yes, indeed. IBM's "sub-capacity pricing" algorithm encourages it. But is this necessarilly something we should be encouraged to be doing, ie proliferating z/OS otherwise needlessly, carving up memory, just to take advantage of a favorable pricing algorithm. Are we being led down the primrose path? I like to think that, as a general rule, a software solution will always beat a hardware solution operationally, economically, and financially. But with PR/SM the trend seems to be in the other direction. Such a policy might favor IBM and ISVs, and with IBM's "sub-capacity pricing" algorithm, it might even favor us in the short-run, but in the long-run it is making us more dependent on and constrained by the hardware, not less, and so is sub-optimal. It is all somewhat reminiscent of the old MFT days when everything ran in partitions. There were all kinds of inefficiencies introduced when we ran things in fixed partitions then. Certain jobs could not start because they needed a certain amount of memory, devices or system datasets were not available in certain partitions. When MVT came along it removed those constraints and voila, suddenly the floodgates of the CPU and system were open for work and it has remained that way through SVS, MVS, until PR/SM came along. And now we seem to be back into the old MFT partition mode once again all in the name of "best practices". As Marie Antoinette said as she stood before a statute of liberty erected by the guillotine, "Liberty what crimes are committed in thy name" (Mary Baker Eddy) As I said at the start, this is just brainstorming and I do not know the answer, but I do know we can do better than just "LPARs for the sake of LPARs". On Mon, Feb 22, 2010 at 7:32 PM, Shmuel Metz (Seymour J.) < shmuel+ibm-m...@patriot.net > wrote: > In , on > 02/19/2010 > at 06:05 PM, George Henke said: > > >No, you get to ask how many CICSes or DB2s or whatever do I need all > >running under the same or fewer or 1 z/OS virtual machine. > > How does that differ depending on PR/SM versus z/VM? > > >Precisely the point. You know of any lightly loaded boxes lately? > > Yes. > > >What isolation? > > Isolation of DASD. Isolation of service being tested. Isolation of program > products with wonky licenses. > > >Unless you want an administrative nightmare or have an army of system > >programmers, you will follow IBM's strong recommendation to share > >everything as much as possible: SHARED PARMLIB, SHARED MASTERCAT, > >SHARED PROCLIB, SHARED JESPOOL. >
anyone notice a reroute going to IBMLINK
I'm going to IBMLINK via http://www.ibmlink.ibm.com/ibmlink I get an Untrusted popup sayin secure certificate only good for www-304.ibm.com but I'm at https://www-304bluecoat.ibm.com Jack Kelly 202-502-2390 (Office) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Best practice for 24-bit storage in assembler called from C/C++
Charles, Have you looked at the ALL31(OFF) LE option? I don't know how it works for C/C++ but for Cobol this option instructs LE to allocate the COBOL EXTERNAL data in storage below the line. Which means if a main program defines an EXTERNAL variable it will be below the line AND accessible by the name from any subroutine that also defines it as EXTERNAL. This is a rather old trick and so the most current LE may have other options to suit your needs. HTH, -Victor- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 Job Separator
Hi Lizette, Just a few of jobs, however, as the jobs has multiple steps and each step may have more than one "DD SYSOUT=" statements so the only way to identify the output via "JOBNAME+STEPNAME+PROCSTEP+DDNAME" (Class is not an option for me...as it is mixed for other outputs to be printed under the same printer but most of them requires Job Separators being printed) we're using Netview (Tivoli)... If JES exit is the last resort so it is true that there is no such JCL parameter to supress JES Job Separator being printed? Paul On Tue, 23 Feb 2010 10:25:04 -0500, Lizette Koehler wrote: >I guess a couple of questions I would have are: > >1) All jobs or just some jobs? If so, can you identify them easily or is it >a mix of jobs or output classes? >2) Do you have an automation product like OPS/MVS or Tivoli? >3) Do you want to code a JES2 exit? > >Lizette > > > >-Original Message- >>From: Paul Ip >>Sent: Feb 23, 2010 10:20 AM >>To: IBM-MAIN@bama.ua.edu >>Subject: JES2 Job Separator >> >>Hi all, >> >>Can anyone give me an advice if there is a JCL parameter to supress JES2 Job >>Seperator (JES2 local host Printer, SEP=YES/NO) being printed only for output >>that created from a particular batch job? >> >>That is, I don't want to change the "SEP=" parameter under a printer manually >>(by operator), instead, I want to control this option by batch JCL Is >>that >>possible?? >> >>I'm using z/OS 1.9. >> >>Paul >> >>-- >>For IBM-MAIN subscribe / signoff / archive access instructions, >>send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO >>Search the archives at http://bama.ua.edu/archives/ibm-main.html > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO >Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: JES2 Job Separator
I guess a couple of questions I would have are: 1) All jobs or just some jobs? If so, can you identify them easily or is it a mix of jobs or output classes? 2) Do you have an automation product like OPS/MVS or Tivoli? 3) Do you want to code a JES2 exit? Lizette -Original Message- >From: Paul Ip >Sent: Feb 23, 2010 10:20 AM >To: IBM-MAIN@bama.ua.edu >Subject: JES2 Job Separator > >Hi all, > >Can anyone give me an advice if there is a JCL parameter to supress JES2 Job >Seperator (JES2 local host Printer, SEP=YES/NO) being printed only for output >that created from a particular batch job? > >That is, I don't want to change the "SEP=" parameter under a printer manually >(by operator), instead, I want to control this option by batch JCL Is >that >possible?? > >I'm using z/OS 1.9. > >Paul > >-- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO >Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
JES2 Job Separator
Hi all, Can anyone give me an advice if there is a JCL parameter to supress JES2 Job Seperator (JES2 local host Printer, SEP=YES/NO) being printed only for output that created from a particular batch job? That is, I don't want to change the "SEP=" parameter under a printer manually (by operator), instead, I want to control this option by batch JCL Is that possible?? I'm using z/OS 1.9. Paul -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Adventure - Or Colossal Cave Adventure
The following message is a courtesy copy of an article that has been posted to bit.listserv.ibm-main,alt.folklore.computers as well. shmuel+ibm-m...@patriot.net (Shmuel Metz , Seymour J.) writes: > I suspect that what Tymshare had was a PDP-10, or maybe the older PDP-6, > which was basically an older version of the same machine. recent reference to mip envy http://www.garlic.com/~lynn/2010d.html#80 Senior Java Developer vs. MVS Systems Programmer which mentions survey/visits to other institution ... with snippets of those visits ... including stanford CS dept. the longer thread in a.f.c. (x-posted to alt.sys.pdp10) including some of the people from stanford CS dept ... and some discussion of stanford sail machine http://www.garlic.com/~lynn/2010d.html#51 Happy DEC-10 Day http://www.garlic.com/~lynn/2010d.html#52 Happy DEC-10 Day Adventure wiki pages http://en.wikipedia.org/wiki/Adventure_game http://en.wikipedia.org/wiki/The_Adventure_Game http://en.wikipedia.org/wiki/Colossal_Cave_Adventure from above, URL for "Crowther's original source code for Adventure (as recovered from Don Woods's student account at Stanford)" (mar1977): http://jerz.setonhill.edu/if/crowther/ Tymshare wasn't far away ... and (also) had PDP-10. As previously mentioned Tymshare offerred vm370-based commercial online interactive timesharing (available via tymnet). They had also developed CMS-based computer conferencing and in Aug76 ... provided it free to SHARE as VMSHARE ... VMSHARE archive: http://vm.marist.edu/~vmshare/ and some old email mentioning vmshare (frequently mentioning getting monthly snapshots of all the vmshare files and making them available within the corporation): http://www.garlic.com/~lynn/lhwemail.html#vmshare wiki page mentioning (tymshare's) tymnet http://en.wikipedia.org/wiki/Tymnet Above mentions Tymnet starting to port to Interdata 7/32 in 1972 and then started development of Tymnet on PDP-10. Aside, as undergraduate in the 60s, I had been part of univ. project that used Interdata/3 for 2702 clone ... four of us gotten written up responsible for clone business some past posts http://www.garlic.com/~lynn/subtopic.html#360pcm In 1984, M/D bought Tymshare. http://en.wikipedia.org/wiki/Tymshare Somewhat as part of that I setup interviews for Engelbert (he had augment running on tymshare pdp), trying to interest him in joining IBM. http://en.wikipedia.org/wiki/NLS_%28computer_system%29 M/D also brought me in to do audit of Tymshare's GNOSIS as part of its spin-off as KEYKOS (I still have gnosis document somewhere in boxes) ... a little gnosis/keykos history here: http://www.coyotos.org/history/index.html past posts in thread http://www.garlic.com/~lynn/2010d.html#57 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#64 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#65 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#67 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#68 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#74 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#75 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#77 Adventure - Or Colossal Cave Adventure http://www.garlic.com/~lynn/2010d.html#82 Adventure - Or Colossal Cave Adventure -- 42yrs virtualization experience (since Jan68), online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO reconnect (ikjefln2) reject by RACF
IKJEFLN2 receives control before the address space security environment is fully established. In the non-OPERCMDS world this did not matter as IKJEFLN2 is invoked in supervisor state and can issue the operator command using MGCRE without problems. When OPERCMDS is active, the authority checking requires some sort of identity so that it can verify the callers ability to issue the command. Without the security environment existing, it cannot do this and the failure message you see is the result of that - I believe the "jobname" in the message is just leftovers from previous calls and has nothing to do with the actual IKJEFLN2 invoker. So, to get IKJEFLN2 to successfully issue the operator command with OPERCMDS active, it has to "help" SAF understand the identity of the caller. It does this by building a UTOKEN using the RACROUTE REQUEST=TOKENBLD service and then plugging this into the MGCRE macro service parameters. The UTOKEN formats for each SAF class (eg OPERCMDS) are documented in the RACF manuals and the MGCRE macro in the normal "Auth ASM" manuals. Rob Scott Developer Rocket Software 275 Grove Street * Newton, MA 02466-2272 * USA Tel: +1.617.614.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Elardus Engelbrecht Sent: 23 February 2010 14:27 To: IBM-MAIN@bama.ua.edu Subject: Re: TSO reconnect (ikjefln2) reject by RACF Rob Scott wrote: >Be aware that when the RACF OPERCMDS class is active, the IKJEFLN2 exit has to be modified to construct a security token to pass to the MGCRE service. >AFAIK there is no way around this pre z/OS 1.11 Please, could you be very kind to provide any useful documentation(s) or links about this interesting tidbit? Just curious, if you don't mind. Many thanks in advance. Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM-caused needless aggravation for today
Talk about needless aggravation. I don't need to spend X hours on the phone to get told working as designed. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Thompson, Steve Sent: Tuesday, February 23, 2010 6:51 AM To: IBM-MAIN@bama.ua.edu Subject: Re: IBM-caused needless aggravation for today ETR - Since it hides the error message, seems to be a problem that is APARable. s/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Senior Java Developer vs. MVS Systems Programmer
On Mon, 22 Feb 2010 22:24:09 -0500, Robert A. Rosenberg wrote: > >Now he would just get a job in the programming department of a Bank >and program a "salami" routine into the code to divert money into his >account. The usual way is to just take all the split cent rounding >and divert it. > I had to look it up: http://en.wikipedia.org/wiki/Salami_slicing ... but first stumbled onto the distantly related: http://en.wikipedia.org/wiki/Least_publishable_unit -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: catalog a vsam dataset in another catalog ?
(I hate this... now there is a mixture of top posting and bottom posting, but since you went "top" last, I will do the same thing). So how does that support your statement - "a PAGESPACE, regardless of the name, can exist in multiple catalogs at the same time"? I already stated there was special code for SYS1 *and* PAGE HLQs to be cataloged in multiple catalogs at the same time. Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:mzel...@flash.net Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ On Mon, 22 Feb 2010 14:39:25 -0600, McKown, John wrote: >My page datasets all start with PAGE.&SYSNAME..LOCALnn and so on. When I replace an image, I just do a > > DEF PAGESPACE(NAME(PAGE.LIH1.COMMON) - > FILE(MVSPG3) VOL(MVSPG3) RECATALOG) - > CAT(CATALOG.ICF.newmastercat) > >I don this while they are still in use on the currently running system. And I don't do a REPORT MERGECAT or anything else. > >-- >John McKown >Systems Engineer IV >IT > > > >> -Original Message- >> From: IBM Mainframe Discussion List >> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Mark Zelden >> Sent: Monday, February 22, 2010 1:18 PM >> To: IBM-MAIN@bama.ua.edu >> Subject: Re: catalog a vsam dataset in another catalog ? >> >> On Mon, 22 Feb 2010 12:43:47 -0600, McKown, John >> wrote: >> >> >> -Original Message- >> >> From: IBM Mainframe Discussion List >> >> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Staller, Allan >> >> Sent: Monday, February 22, 2010 12:35 PM >> >> To: IBM-MAIN@bama.ua.edu >> >> Subject: Re: catalog a vsam dataset in another catalog ? >> >> >> >> >> >> Also SYS1 has the special attribute of DEFINE RECATALOG >> allowing the >> >> definition of the same dataset in 2 different catalogs (just like >> >> non-VSAMS datasdest). This only applies to datasets with the HLQ of >> >> SYS1. >> >> >> >> >> >> I meant to add that with the exception of SYS1, a VSAM >> >> dataset can only >> >> exist in 1 catalog at a time. >> >> >> >> HTH, >> > >> >Actually a PAGESPACE, regardless of the name, can exist in multiple >> catalogs at the same time too. I do that all the time. >> > >> >> Are you sure? I thought the special code in DFSMS was only for SYS1 >> and PAGE HLQs. Although I've never tried to define a page >> data set with >> any other HLQ than SYS1 or PAGE. >> >> Mark >> -- >> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS >> mailto:mzel...@flash.net >> Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html >> Systems Programming expert at >> http://expertanswercenter.techtarget.com/ >> >> -- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: IBM-caused needless aggravation for today
ETR - Since it hides the error message, seems to be a problem that is APARable. -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Charles Mills Sent: Monday, February 22, 2010 8:15 PM To: IBM-MAIN@bama.ua.edu Subject: IBM-caused needless aggravation for today Many of the IBM-supplied storage definition macros and copy members have gained PRINT OFF statements over the years. As a result I had the infuriating situation of having an assembly that was generating an RC=8 but with no error messages in the listing. I was getting more and more frustrated and actually considered taking about 5 system macros and making private copies of them sans the PRINT OFF statements. I had the brighter idea of adding a SYSTERM DD statement and the error message there gave me enough of a clue as to what the problem was and I was able to correct it. Of course it was a user coding error, but then, most assembly errors are user coding errors. If users didn't make coding errors, the assembler wouldn't need any error messages. Meanwhile, an hour wasted on a stupid one-minute-fix coding error. But talk about a "feature" utterly designed to cause frustration - putting PRINT OFF statements in macros and copy members such that error messages disappear. I suppose the justification was obscuring non-GUPI code, but seeing as how it's all browsable in SYS1.MACLIB anyway that seems pretty silly. Perhaps someone else has a better justification or a better resolution? Charles Mills -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Senior Java Developer vs. MVS Systems Programmer
hal9...@panix.com (Robert A. Rosenberg) writes: > Now he would just get a job in the programming department of a Bank > and program a "salami" routine into the code to divert money into his > account. The usual way is to just take all the split cent rounding and > divert it. there were some infamous cases a decade ago with major financial institutions outsourcing Y2K-remediation of large financial mainframe programs to the lowest bidder. the money movement was somewhat more sophisticated and organized -- 42yrs virtualization experience (since Jan68), online at home since Mar1970 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html