Re: Return Address from IKJPARS ?
On Mon, 24 Sep 2012 00:36:18 -0400 Gerhard Postpischil gerh...@valley.net wrote: :On 9/23/2012 9:28 PM, micheal butz wrote: : and balrs to IKJPARS setting R14 to CVTBSM2 : Am I suppoused to return with a register other then r14 :You are expected to branch back using R14, or else issue SVC 3 :(less efficient, but imperative if you've lost R14), or branch :to the SVC 3 call in the CVT. The documented return is via R14. The SVC 3 option is only available if the program is ONLY invoked via supervisor assisted linkage. If the routine can be invoked by CALL/BALR/BASR it must BR 14 - doing an SVC 3 in such a case will terminate the caller as well. -- Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Return Address from IKJPARS ?
When I do a BR R14. I get an 0C6 The Tao command is invoked from The ISPF primary command line With the following syntax TSO. tsocmd keyword(poskeywd) Thanks in advance Sent from my iPhone On Sep 24, 2012, at 3:43 AM, Binyamin Dissen bdis...@dissensoftware.com wrote: On Sun, 23 Sep 2012 21:28:35 -0400 micheal butz michealb...@optonline.net wrote: :I am writting a TSO command processor which I invoke IKJPARS to pass :control to a VALIDCK exit rtn :The code in the routine runs ok however the problem I have is the with :the return address R14 seems to point to CVT field :CVTBSM2 offset 1DE in the CVT :The following is the syntax of the call CALLTSSR EP=IKJPARS,MF=(E,PPL) :the code picks up the address of the IKJPARS from CVT :and balrs to IKJPARS setting R14 to CVTBSM2 :Am I suppoused to return with a register other then r14 I am not sure what you issue is. What happens when you return to the address in R14. Be aware that you savearea cannot be reused by the validity routine. -- Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/os mount command
Here is a link to the IBM 'z/OS Basics' Web site: http://publib.boulder.ibm.com/infocenter/zos/basics/index.jsp Larry -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bernd Oppolzer Sent: Sunday, September 23, 2012 1:51 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: z/os mount command For example, if you have absolutely no idea what mainframe programming is all about, and you want to be a COBOL programmer in the near future, this video on youtube may give you a first impression: http://www.youtube.com/watch?v=Uv7ThVwb7m8 But depending on the skills you already have, this will look rather funny to you. Kind regards Bernd Am 23.09.2012 19:42, schrieb Bernd Oppolzer: Am 23.09.2012 19:33, schrieb Steve Comstock: On 9/23/2012 11:07 AM, James A Huckert wrote: What is the MVS Basic course? I just got into z/OS programming from a Production control position and I am trying to get a grasp of all the system jargon and such. My employer won't allow any training so I am on my own. Anyone got any good ideas on websites / books I can learn from? I have found some stuff but nothing relevant to todays mainframes. Thanks Tim So your employer is IBM and your employer won't allow any training. Man that kind of thing just drives me nuts! IBM should be in the forefront of providing training to their employees (and they used to, many years ago) but they are being driven by the bean counters and not real managers. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This E-mail and any of its attachments may contain Prince George’s County Government or Prince George's County 7th Judicial Circuit Court proprietary information or Protected Health Information, which is privileged and confidential. This E-mail is intended solely for the use of the individual or entity to which it is addressed. If you are not the intended recipient of this E-mail, you are hereby notified that any dissemination, distribution, copying, or action taken in relation to the contents of and attachments to this E-mail is strictly prohibited by federal law and may expose you to civil and/or criminal penalties. If you have received this E-mail in error, please notify the sender immediately and permanently delete the original and any copy of this E-mail and any printout. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Return Address from IKJPARS ?
Show your code. What is the PSW and registers at time of abend? On Mon, 24 Sep 2012 05:50:00 -0400 Micheal Burn michealb...@optonline.net wrote: :When I do a BR R14. I get an 0C6 : :The Tao command is invoked from :The ISPF primary command line :With the following syntax : :TSO. tsocmd keyword(poskeywd) : :Thanks in advance : : : : : :Sent from my iPhone : :On Sep 24, 2012, at 3:43 AM, Binyamin Dissen bdis...@dissensoftware.com wrote: : : On Sun, 23 Sep 2012 21:28:35 -0400 micheal butz michealb...@optonline.net : wrote: : : :I am writting a TSO command processor which I invoke IKJPARS to pass : :control to a VALIDCK exit rtn : : :The code in the routine runs ok however the problem I have is the with : :the return address R14 seems to point to CVT field : : :CVTBSM2 offset 1DE in the CVT : : :The following is the syntax of the call CALLTSSR EP=IKJPARS,MF=(E,PPL) : :the code picks up the address of the IKJPARS from CVT : : :and balrs to IKJPARS setting R14 to CVTBSM2 : : :Am I suppoused to return with a register other then r14 : : I am not sure what you issue is. What happens when you return to the address : in R14. : : Be aware that you savearea cannot be reused by the validity routine. : : -- : Binyamin Dissen bdis...@dissensoftware.com : http://www.dissensoftware.com : : Director, Dissen Software, Bar Grill - Israel : : : Should you use the mailblocks package and expect a response from me, : you should preauthorize the dissensoftware.com domain. : : I very rarely bother responding to challenge/response systems, : especially those from irresponsible companies. : : -- : For IBM-MAIN subscribe / signoff / archive access instructions, : send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN : :-- :For IBM-MAIN subscribe / signoff / archive access instructions, :send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com Director, Dissen Software, Bar Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: GIM39001E in SMP/E RECEIVE FROMNTS
Grrr. What determines the order of processing? snip OK. I think I have it. They appear to be processed in GIMPAF order. Presumably the MCS for each SYSMOD is in a unique data set? If so, then yes, the order in which the archives for those data sets appear in the GIMPAF.XML file determines the order in which they will be processed during the RECEIVE. Kurt Quackenbush -- IBM, SMP/E Development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/os mount command
Try the ABC's of System Programming Series on the Redbooks site Been discussed many times. http://www.redbooks.ibm.com/ HTH, snip On 9/23/2012 11:07 AM, James A Huckert wrote: What is the MVS Basic course? I just got into z/OS programming from a Production control position and I am trying to get a grasp of all the system jargon and such. My employer won't allow any training so I am on my own. Anyone got any good ideas on websites / books I can learn from? I have found some stuff but nothing relevant to todays mainframes. /snips -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E RECEIVE FROMNETWORK vs. fchattr()
I get the same error if I run pax(1) from the keyboard with the same input and output. So this is not something unique to how SMP/E uses pax, right? Or is there still a question? The GIMZIP archive was not directly output from GIMZIP; I did some post-processing to redact local data set names. This ought to be a feature in GIMZIP. Can you be more specific? What ought to be a feature of GIMZIP? Kurt Quackenbush -- IBM, SMP/E Development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Official current definition of MVS
Shmuel Metz , Seymour J. wrote: There is a discussion inn the news group a,lt.folklore.computers as to whether the term MVS includes TSO. Can anybody point to an explicit statement from IBM? Thanks. MVS might have at some point included TSO. Perhaps sooner, but since MVS Version 1 if I recall correctly, TSO and later TSO/E have been either: a) Different products with separate product (order) numbers b) For TSO/E, an element of OS/390 or z/OS. -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Official current definition of MVS
I remember a lot of products were separate then bundled together. Nccf,NDM and npda for example then it became Netview, just product evolution. Scott ford www.identityforge.com Tell me and I'll forget; show me and I may remember; involve me and I'll understand. - Chinese Proverb On Sep 24, 2012, at 9:29 AM, John Eells ee...@us.ibm.com wrote: Shmuel Metz , Seymour J. wrote: There is a discussion inn the news group a,lt.folklore.computers as to whether the term MVS includes TSO. Can anybody point to an explicit statement from IBM? Thanks. MVS might have at some point included TSO. Perhaps sooner, but since MVS Version 1 if I recall correctly, TSO and later TSO/E have been either: a) Different products with separate product (order) numbers b) For TSO/E, an element of OS/390 or z/OS. -- John Eells z/OS Technical Marketing IBM Poughkeepsie ee...@us.ibm.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM-MAIN Digest - 20 Sep 2012 to 21 Sep 2012 (#2012-266)
Steve Comstock wrote: Can anyone enlighten me about the function / purpose of IARST64? Not that I've used it, but there certainly are several references to cells in the IARST64 doc and no general description of use in the normal documentation. I did find the following in zOS 1.10 Implementation Redbook, which has a bit more information on the subject IARST64 This service enables the caller to request private or common storage in sizes from 1 byte to 64 K. IARST64 is equivalent to GETMAIN and FREEMAIN, or STORAGE OBTAIN or RELEASE for 64-bit storage, or GET and FREE 1 to 64K bytes of private or common. It also seems to confirm the cellpool suspicion: IARST64 and IARCP64 service characteristics Both IARST64 and IARCP64 services have the following common characteristics: Pool extents are all 1 MB in size. GET and FREE requests are branch entered. They run with just registers and only program call when a new pool or new extent is needed. They use a register interface and have no parameter list. New pools and extents are implemented in a way that no actual lock or latch is taken when the function is running. At the last moment, when everything is settled and it is just required to insert the newly defined pool or extent into the existing schemes, a Compare-and-Swap is issued. If it fails, the loser has to clean up and reiterate its process, making another try to acquire the required pool or extent. It is considered that such a “losing” situation should rarely be happening. IARST64 pools cannot be deleted. EOT will clean up a private pool. Common pools are kept forever. Other characteristics that are shared in common by IARCP64 and IARST64 are: No contraction of pools is currently supported in z/OS V1R10. Boundaries are forced to quadword, cache line, or page, depending on cell size. Trailers are used when they fit, to detect overruns. Double free detected and rejected with abend. Date:Fri, 21 Sep 2012 10:06:31 -0600 From:Steve Comstock st...@trainersfriend.com Subject: Questions about IARST64 Well, I'm a bit confused by the docs on this service. In the Assembler Services Reference, the write up begins: Use IARST64 to request 64-bit Storage Services. so I at first assumed this has nothing to do with cell pools but is an alternative to IARV64 (no guard area, etc.) But just a few lines deeper I see: Note: There is diagnostic support for 64 bit cell pools, created by IARST64... so that sounds like cell pools. A few pages later I find this gem: For storage that is larger than what IARCP64 supports, consider using IARCP64 or IARV64 GETSTOR or GETCOMMON. Huh? If IARCP64 doesn't meet your needs use IARCP64? The IARST64 service is not referenced at all in the Assembler Services Guide doc. Can anyone enlighten me about the function / purpose of IARST64? Thanks. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSMSHSM is a not deleting expired datasets
HSEND SETSYS EXPIREDDATASETS(SCRATCH). And yes, it will do all of them the first time SEC SPACE MGMT runs. Just bite the bullet HTH, snip I did a TSO HSEND QUERY SETSYS and noticed that I have scheduled space mgt for primary on (0600, 1800) and for secondary on (2400, 0459). But I also noticed that the Scratch expired Data Sets is set to NO. That could be the problem. How do I turn it on? I am taking it to higher authorities because I will be deleting a massive amount of data. I suspect I will have to create JCL with TSO Batch to HDELETE the expired datasets. At that point I should turn on the parameter to let DFSMSHSM do its job. /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSMSHSM is a not deleting expired datasets
All, I have HSM set as an External Data Manager in CA1 (EDM=HSM,PGM=ARCCTL in CTOEDM00). My SYS1.PARMLIB(ARCCMD00) specifies EXPIREDDATASETS(NOSCRATCH). For those with CA1 and EDM specified, how is yours set up? What reason would a shop have to specify NOSCRATCH? Can you tell I haven't supported HSM before? :-) (Always been in places with FDR, or had a separate team doing storage stuff for the past 20 years or so.) Cheers,,,Steve Steven F. Conway, CISSP LA Systems z/OS Systems Support Phone: 703.295.1926 steve_con...@ao.uscourts.gov From: Staller, Allan allan.stal...@kbmg.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 09/24/2012 10:13 AM Subject:Re: DFSMSHSM is a not deleting expired datasets Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU HSEND SETSYS EXPIREDDATASETS(SCRATCH). And yes, it will do all of them the first time SEC SPACE MGMT runs. Just bite the bullet HTH, snip I did a TSO HSEND QUERY SETSYS and noticed that I have scheduled space mgt for primary on (0600, 1800) and for secondary on (2400, 0459). But I also noticed that the Scratch expired Data Sets is set to NO. That could be the problem. How do I turn it on? I am taking it to higher authorities because I will be deleting a massive amount of data. I suspect I will have to create JCL with TSO Batch to HDELETE the expired datasets. At that point I should turn on the parameter to let DFSMSHSM do its job. /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Updated Assembler course
Just wanted to announce that I've just finished updating our course C500 z/OS Assembler Programming Part 4: z/Architecture and z/OS to include some discussion on the new instructions introduced with the zEC12. The course was already pretty full, and topics such as the transactional-execution facility are so complex that I just added a discussion on the major concepts and terminology with an overview of the involved instructions. You can find more information at: http://www.trainersfriend.com/Assembler_courses/C500descrpt.htm and http://www.trainersfriend.com/Assembler_courses/C500O.htm This is one of the 35 courses included in our sale of training kits (see my signature lines for a link), and indicative of how hard we work to keep our courses as current and complete as possible. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * Check out our sale of training materials at http://www.trainersfriend.com/SpecialSale/ (sale absolutely ends 19 October, 2012) * Let us know if you are interested in our training materials reseller program -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSMSHSM is a not deleting expired datasets
Sounds like a good setup, the EDM reference will scratch the tape when DFHSM says it is done with it. However, since you are not expiring datasets, very few, if any tapes are being released. Of course, since you work for the legal system, they might not want things scratched Check with the powers that be before proceeding... IMO, change EXPIREDDATASETS to SCRATCH and bite the bullet. The first secondary space management that runs will do a lot of work. HTH, snip I have HSM set as an External Data Manager in CA1 (EDM=HSM,PGM=ARCCTL in CTOEDM00). My SYS1.PARMLIB(ARCCMD00) specifies EXPIREDDATASETS(NOSCRATCH). For those with CA1 and EDM specified, how is yours set up? What reason would a shop have to specify NOSCRATCH? Can you tell I haven't supported HSM before? :-) (Always been in places with FDR, or had a separate team doing storage stuff for the past 20 years or so.) /snip Cheers,,,Steve Steven F. Conway, CISSP LA Systems z/OS Systems Support Phone: 703.295.1926 steve_con...@ao.uscourts.gov From: Staller, Allan allan.stal...@kbmg.com To: IBM-MAIN@LISTSERV.UA.EDU Date: 09/24/2012 10:13 AM Subject:Re: DFSMSHSM is a not deleting expired datasets Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU HSEND SETSYS EXPIREDDATASETS(SCRATCH). And yes, it will do all of them the first time SEC SPACE MGMT runs. Just bite the bullet HTH, snip I did a TSO HSEND QUERY SETSYS and noticed that I have scheduled space mgt for primary on (0600, 1800) and for secondary on (2400, 0459). But I also noticed that the Scratch expired Data Sets is set to NO. That could be the problem. How do I turn it on? I am taking it to higher authorities because I will be deleting a massive amount of data. I suspect I will have to create JCL with TSO Batch to HDELETE the expired datasets. At that point I should turn on the parameter to let DFSMSHSM do its job. /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSMSHSM is a not deleting expired datasets
Allan, I guess I am showing my lack of experience on this topic, but what does EXPIREDDATASETS setting have to do with whether or not the tapes are being released or not? Am I misunderstanding the book? From the HSM administrators guide: During automatic primary space management, the example scratches expired data sets that have valid explicit expiration dates in the data set's VTOC entry. The EXPIREDDATASETS parameter of the SETSYS command specifies the SCRATCH subparameter indicating for DFSMShsm to scratch any data set that has passed the expiration date. _ Dave Jousma Assistant Vice President, Mainframe Services david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Staller, Allan Sent: Monday, September 24, 2012 10:29 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: DFSMSHSM is a not deleting expired datasets Sounds like a good setup, the EDM reference will scratch the tape when DFHSM says it is done with it. However, since you are not expiring datasets, very few, if any tapes are being released. Of course, since you work for the legal system, they might not want things scratched Check with the powers that be before proceeding... IMO, change EXPIREDDATASETS to SCRATCH and bite the bullet. The first secondary space management that runs will do a lot of work. HTH, snip I have HSM set as an External Data Manager in CA1 (EDM=HSM,PGM=ARCCTL in CTOEDM00). My SYS1.PARMLIB(ARCCMD00) specifies EXPIREDDATASETS(NOSCRATCH). For those with CA1 and EDM specified, how is yours set up? What reason would a shop have to specify NOSCRATCH? Can you tell I haven't supported HSM before? :-) (Always been in places with FDR, or had a separate team doing storage stuff for the past 20 years or so.) /snip Cheers,,,Steve Steven F. Conway, CISSP LA Systems z/OS Systems Support Phone: 703.295.1926 steve_con...@ao.uscourts.gov This e-mail transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSMSHSM is a not deleting expired datasets
From DFHSM Storage Adminstration. EXPIREDDATASETS: Specifying whether to scratch data sets with expired expiration dates Explanation: EXPIREDDATASETS(SCRATCH | NOSCRATCH) is an optional parameter specifying whether or not DFSMShsm should scratch data sets having explicit expiration dates when the date has passed (data set has expired). SMS-managed data sets not having explicit expiration dates are expired when they have met their management class expiration criteria. Note: Explicit expiration dates can be set by JCL, utility parameters, Data Class Expiration parameters, or Data Class Retention parameters. The explicit expiration date for a data set can be found in the data set's VTOC entry. SCRATCH specifies that DFSMShsm scratch data sets that have an expired expiration date when it performs space management and migration cleanup. NOSCRATCH specifies that DFSMShsm ignore the expiration date. DFSMShsm processes the data set as if the expiration date has not been reached. SMS relationship: Parameter applies in some instances to SMS-managed DASD volumes or data sets. SETSYS defaults: None. DFSMShsm defaults: If you do not specify this parameter on any SETSYS command, the DFSMShsm default is not to scratch the expired data sets. Typically, ML2 datasets and BACKUP datasets reside on tape. If the datasets are not expired, no tapes will be released except by recycle or manual deletion. Once all of the datasets on a particular tape are released (via RECYCLE, HDEL, or HBDEL), DFHSM will notify the EDM to expire the tape, and return it to the scratch pool. Caveat. It is possible to set up DFHSM tape pooling, in which case, the tape will be returned to the DFHSM pool, instead of the scratch pool and the EDM will not be invoked. snip I guess I am showing my lack of experience on this topic, but what does EXPIREDDATASETS setting have to do with whether or not the tapes are being released or not? Am I misunderstanding the book? From the HSM administrators guide: During automatic primary space management, the example scratches expired data sets that have valid explicit expiration dates in the data set's VTOC entry. The EXPIREDDATASETS parameter of the SETSYS command specifies the SCRATCH subparameter indicating for DFSMShsm to scratch any data set that has passed the expiration date. _ Dave Jousma Assistant Vice President, Mainframe Services david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 /snip snip -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Staller, Allan snip Sounds like a good setup, the EDM reference will scratch the tape when DFHSM says it is done with it. However, since you are not expiring datasets, very few, if any tapes are being released. Of course, since you work for the legal system, they might not want things scratched Check with the powers that be before proceeding... IMO, change EXPIREDDATASETS to SCRATCH and bite the bullet. The first secondary space management that runs will do a lot of work. /snip snip I have HSM set as an External Data Manager in CA1 (EDM=HSM,PGM=ARCCTL in CTOEDM00). My SYS1.PARMLIB(ARCCMD00) specifies EXPIREDDATASETS(NOSCRATCH). For those with CA1 and EDM specified, how is yours set up? What reason would a shop have to specify NOSCRATCH? Can you tell I haven't supported HSM before? :-) (Always been in places with FDR, or had a separate team doing storage stuff for the past 20 years or so.) /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Call for Presentations for SHARE in San Francisco
The Call for Presentations (CFP) for SHARE in San Francisco closes October 5. SHARE Inc. is an independent, volunteer run association providing enterprise technology professionals with continuous education and training, valuable professional networking and effective industry influence. SHARE welcomes and encourages both first-time submitters and seasoned presenters to take part. Influence your peers by sharing your opinions, experiences, lessons learned and fresh approaches. Be a subject matter expert to hundreds of fellow enterprise technology professionals. Benefits of presenting include: • Developing interpersonal skills • Growing your professional network • Benchmarking your IT experiences with others • Receiving fresh ideas about solving issues like yours • Gaining recognition as an Enterprise IT professional • Helping others solve problems based on your experience To submit a CFP, go to: https://share.confex.com/share/120/cfp.cgi Suggested Hot Topics for 2013 include: - Cloud in the Enterprise - Data Center Modernization - Responsibly Architected Application Solutions - The Dark Side of Virtualization - Big Data - Big Analytics - Big Needs SHARE, it’s not an acronym; it’s what we do! If you have any questions, feel free to contact me at maryanne4psu at gmail dot com Thanks! Mary Anne Matyaz SHARE MVS Project Manager www.share.org/mvs -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Learning COBOL (was: RE: z/os mount command)
I'm going to approach this slightly differently. Apologies for being a bit off-topic. If somebody wants to do some *beginner* type learning of COBOL, then it is possible to do so on a PC for free. There is OpenCOBOL which can be freely downloaded and used. http://opencobol.org/ quote OpenCOBOL is an open-source COBOL compiler. OpenCOBOL implements a substantial part of the COBOL 85 and COBOL 2002 standards, as well as many extensions of the existent COBOL compilers. OpenCOBOL translates COBOL into C and compiles the translated code using the native C compiler. You can build your COBOL programs on various platforms, including Unix/Linux, Mac OS X, and Microsoft Windows. The compiler is licensed under GNU General Public License. The run-time library is licensed under GNU Lesser General Public License. /quote http://en.wikipedia.org/wiki/OpenCOBOL As stated above, it does require a C compiler. Which is no big deal to this Linux user. I have used the above compiler, at work, on my Linux desktop, to compile some simple programs. These programs were written my me on z/OS, and compiled on z/OS using IBM's Enterprise COBOL. Most of them compiled easily, once I removed the data in column 7-80 and then removed the trailing blanks. The blank remove may have been unnecessary. I have a small Perl program which does all this for me. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets® 9151 Boulevard 26 • N. Richland Hills • TX 76010 (817) 255-3225 phone • 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® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. –The Chesapeake Life Insurance Company®, 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-MAIN@LISTSERV.UA.EDU] On Behalf Of Martin, Larry D Sent: Monday, September 24, 2012 7:06 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: z/os mount command Here is a link to the IBM 'z/OS Basics' Web site: http://publib.boulder.ibm.com/infocenter/zos/basics/index.jsp Larry -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bernd Oppolzer Sent: Sunday, September 23, 2012 1:51 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: z/os mount command For example, if you have absolutely no idea what mainframe programming is all about, and you want to be a COBOL programmer in the near future, this video on youtube may give you a first impression: http://www.youtube.com/watch?v=Uv7ThVwb7m8 But depending on the skills you already have, this will look rather funny to you. Kind regards Bernd Am 23.09.2012 19:42, schrieb Bernd Oppolzer: Am 23.09.2012 19:33, schrieb Steve Comstock: On 9/23/2012 11:07 AM, James A Huckert wrote: What is the MVS Basic course? I just got into z/OS programming from a Production control position and I am trying to get a grasp of all the system jargon and such. My employer won't allow any training so I am on my own. Anyone got any good ideas on websites / books I can learn from? I have found some stuff but nothing relevant to todays mainframes. Thanks Tim So your employer is IBM and your employer won't allow any training. Man that kind of thing just drives me nuts! IBM should be in the forefront of providing training to their employees (and they used to, many years ago) but they are being driven by the bean counters and not real managers. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This E-mail and any of its attachments may contain Prince George’s County Government or Prince George's County 7th Judicial Circuit Court proprietary information or Protected Health Information, which is privileged and confidential. This E-mail is intended solely for the use of the individual or entity to which it is addressed. If you are not the intended recipient of this E-mail, you are hereby notified that any dissemination, distribution, copying, or action taken in relation to the contents of and attachments to this E-mail is strictly prohibited by federal law and may expose you to civil and/or criminal penalties. If you have received this E-mail in error, please notify the sender immediately and permanently delete the original and any copy of this E-mail and any printout. -- For IBM-MAIN subscribe / signoff /
ADR405E (041)-DYNA (02), DYNAMIC ALLOCATION OF VOLUME FB8ACC FAILED. ERROR CODE 0218. INFORMATION CODE 0000.
Good Day All, I encountered a problem while attempting to perform a FLASHCOPY of a volume: ADR405E (041)-DYNA (02), DYNAMIC ALLOCATION OF VOLUME FB8ACC FAILED. ERROR CODE 0218. INFORMATION CODE . The dynamic allocation error occurred on the ouptut or target volume. A colleague gave me the following link posted on IBM's site : http://www-01.ibm.com/support/docview.wss?uid=isg3S1000603 The explanation is quite straight forward. I would like to try their suggestion : The WORKVOL or WORKUNIT parms on the EXEC statement for ADRDSSU can be used to point allocation to SPECIFIC volumes/units. However I am not sure as to how to go about coding this parm in the EXEC statement. Could anybody suggest how to do it? Thanks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SMP/E RECEIVE FROMNETWORK vs. fchattr()
On Mon, 24 Sep 2012 09:24:11 -0400, Kurt Quackenbush wrote: I get the same error if I run pax(1) from the keyboard with the same input and output. So this is not something unique to how SMP/E uses pax, right? Or is there still a question? Not for you. I need to investigate whether extended attributes can be suppressed in the archive. The GIMZIP archive was not directly output from GIMZIP; I did some post-processing to redact local data set names. This ought to be a feature in GIMZIP. Can you be more specific? What ought to be a feature of GIMZIP? I've long wished that: o GIMZIP could build its product from non-catalogued data sets, perhaps unloaded RELFILEs on tape, passed temporary DSNs, or MCS/JCLIN in PDS members or UNIX files. I'd like to be able to transform an SMP/E installation tape to a GIMZIP archive without copying the parts to transitory catalogued data sets. o The producer's local data set names could be redacted from the GIMPAF file in order not to expose data set prefixes (which may be TSO user IDs) to customers. Both these desiderata could be addressed if GIMZIP supported using DDNAMEs to identify its source data and used the data set names from its control file in the generated GIMPAF. Thanks, gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL Sort
Thanks a lot Kolusu.. you rock! Thanks, Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ADR405E (041)-DYNA (02), DYNAMIC ALLOCATION OF VOLUME FB8ACC FAILED. ERROR CODE 0218. INFORMATION CODE 0000.
:: -Original Message- :: From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On :: Behalf Of willie bunter :: Sent: Monday, September 24, 2012 9:29 AM :: To: IBM-MAIN@LISTSERV.UA.EDU :: Subject: ADR405E (041)-DYNA (02), DYNAMIC ALLOCATION OF VOLUME FB8ACC :: FAILED. ERROR CODE 0218. INFORMATION CODE . :: :: Good Day All, :: :: I encountered a problem while attempting to perform a FLASHCOPY of a :: volume: :: :: ADR405E (041)-DYNA (02), DYNAMIC ALLOCATION OF VOLUME FB8ACC FAILED. :: ERROR CODE 0218. INFORMATION CODE . :: :: The dynamic allocation error occurred on the ouptut or target volume. :: :: A colleague gave me the following link posted on IBM's site : :: http://www-01.ibm.com/support/docview.wss?uid=isg3S1000603 :: :: The explanation is quite straight forward. I would like to try their :: suggestion : The WORKVOL or WORKUNIT parms on the EXEC statement for :: ADRDSSU can be used to point allocation to SPECIFIC volumes/units. :: :: :: :: However I am not sure as to how to go about coding this parm in the EXEC :: statement. Could anybody suggest how to do it? You find the JCL for the job in question. You edit the EXEC statement for the step that is failing. You add the PARM operand to this statement if it is not already there. In either case, you add the appropriate keywords and values to the PARM operand. Did you find the How to Control DFSMSdss through PARM Information in the EXEC Statement section in the DFSMSdss Storage Administration manual that explains how? What in particular did you not understand? Be specific. Be very specific. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
MQ monitoring
Antyone out here monitor MQ..and what are you looking for/at?? SMF rec's...fields to report on?? -- Email Disclaimer This E-mail contains confidential information belonging to the sender, which may be legally privileged information. This information is intended only for the use of the individual or entity addressed above. If you are not the intended recipient, or an employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any disclosure, copying, distribution, or the taking of any action in reliance on the contents of the E-mail or attached files is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: MQ monitoring
Mainly the buffer manager records... There are about 20 pages on performance and accounting in the WebSphere MQ for z/OS System Setup Guide (SC34-6927) with SMF header descriptions and ways to improve performance, etc. that may be of interest to you. Regards, Kevin -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron Wells Sent: Monday, September 24, 2012 10:39 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: MQ monitoring Antyone out here monitor MQ..and what are you looking for/at?? SMF rec's...fields to report on?? -- Email Disclaimer This E-mail contains confidential information belonging to the sender, which may be legally privileged information. This information is intended only for the use of the individual or entity addressed above. If you are not the intended recipient, or an employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any disclosure, copying, distribution, or the taking of any action in reliance on the contents of the E-mail or attached files is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: MQ monitoring
thanks Kevin... see alot to consider ... was hoping someone would lead to key areas of interest..then if needed to push down to more specific/detail if something is not in order. From: Neubert, Kevin kevin.neub...@courts.wa.gov To: IBM-MAIN@LISTSERV.UA.EDU Date: 09/24/2012 01:45 PM Subject:Re: MQ monitoring Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Mainly the buffer manager records... There are about 20 pages on performance and accounting in the WebSphere MQ for z/OS System Setup Guide (SC34-6927) with SMF header descriptions and ways to improve performance, etc. that may be of interest to you. Regards, Kevin -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron Wells Sent: Monday, September 24, 2012 10:39 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: MQ monitoring Antyone out here monitor MQ..and what are you looking for/at?? SMF rec's...fields to report on?? -- Email Disclaimer This E-mail contains confidential information belonging to the sender, which may be legally privileged information. This information is intended only for the use of the individual or entity addressed above. If you are not the intended recipient, or an employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any disclosure, copying, distribution, or the taking of any action in reliance on the contents of the E-mail or attached files is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Email Disclaimer This E-mail contains confidential information belonging to the sender, which may be legally privileged information. This information is intended only for the use of the individual or entity addressed above. If you are not the intended recipient, or an employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any disclosure, copying, distribution, or the taking of any action in reliance on the contents of the E-mail or attached files is strictly prohibited. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Official current definition of MVS
In 50606024.6020...@us.ibm.com, on 09/24/2012 at 09:29 AM, John Eells ee...@us.ibm.com said: MVS might have at some point included TSO. Perhaps sooner, but since MVS Version 1 if I recall correctly, TSO and later TSO/E have been either: a) Different products with separate product (order) numbers TSO was never a separate order number. It started as a feature of OS/360 MVS. TSO Command Package and TSO/E replaced portions of the free base until TSO/E became a standard set of components and the free base went away. Initially TSO was originally a SysGen option, but then SysGen went away. b) For TSO/E, an element of OS/390 or z/OS. I normally read element as meaning a single FMID, which is not the case here. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2http://patriot.net/~shmuel We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Return Address from IKJPARS ?
In 505fe342.4020...@valley.net, on 09/24/2012 at 12:36 AM, Gerhard Postpischil gerh...@valley.net said: You are expected to branch back using R14, or else issue SVC 3 Even if it works, an SVC 3 is not expected. I'd consider that to be Russian roulette. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2http://patriot.net/~shmuel We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/os mount command
In 0110b80401e52145b9da944d6269a...@mail.cenhud.com, on 09/19/2012 at 03:53 PM, Tim Brown tbr...@cenhud.com said: I recall there was a MOUNT procedure coded, I'm not aware of any reason to modify it, and it's not the source of your JCL error. As others have mentioned, you need a slash in front of a 4-digit unit address. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2http://patriot.net/~shmuel We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Return Address from IKJPARS ?
On 23 September 2012 21:28, micheal butz michealb...@optonline.net wrote: I am writting a TSO command processor which I invoke IKJPARS to pass control to a VALIDCK exit rtn Surely that's not the main reason you are calling IKJPARS... The code in the routine runs ok which routine - the validity check exit? You know for sure that it ran? however the problem I have is the with the return address R14 seems to point to CVT field CVTBSM2 offset 1DE in the CVT Why is that a problem?. Did you restore all the non linkage registers (2-13) before you branched to R14? From wherever you saved them on entry to your validity check routine? The following is the syntax of the call CALLTSSR EP=IKJPARS,MF=(E,PPL) the code picks up the address of the IKJPARS from CVT and balrs to IKJPARS OK. setting R14 to CVTBSM2 I see nothing at all like this in the CALLTSSR macro on any of my systems (z/OS 1.10 through 1.13). There are no references to CVTBSM2. But it's IKJPARS that sets this value, not CALLTSSR. Am I suppoused to return with a register other then r14 From the validity check routine? No - you are to return to the address passed to you in R14. Did you save and restore all registers as you do for any other program? In particular, the BSM 0,R2 requires that the caller's R2 be restored. This is just returning to the caller's AMODE. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Return Address from IKJPARS ?
On Mon, 24 Sep 2012 00:36:18 -0400, Gerhard Postpischil wrote: Am I suppoused to return with a register other then r14 You are expected to branch back using R14, or else issue SVC 3 (less efficient, but imperative if you've lost R14), or branch to the SVC 3 call in the CVT. The documented return is via R14. Why less efficient? Is it because R14 points to a PC entry which may be more efficient than SVC? But I agree with Shmuel (and you) because I've heard that some (ISVs?) may front-end the entry and point R14 to imperative cleanup code. Don't throw away R14. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Return Address from IKJPARS ?
On 9/24/2012 6:37 PM, Shmuel Metz (Seymour J.) wrote: In 505fe342.4020...@valley.net, on 09/24/2012 at 12:36 AM, Gerhard Postpischil gerh...@valley.net said: You are expected to branch back using R14, or else issue SVC 3 Even if it works, an SVC 3 is not expected. I'd consider that to be Russian roulette. I consider it analogous to all those CoBOL programmers who used STOP RUN rather than GOBACK. In his case it might help identify the location of the 0C6 as pre or post exit. Gerhard Postpischil Bradford, VT -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Official current definition of MVS
At 01:47 -0500 on 09/23/2012, Paul Gilmartin wrote about Re: Official current definition of MVS: Some people will insist that Manhattan is included by the continental United States; the map says otherwise. That depends on your definition. If you want to go by the map, only the Bronx qualifies - The other 4 boroughs are islands which are thus not on the continentally land mass (although part of it). The usual definition is in North America (thus only Hawaii and possibly Alaska are excluded). I had an extended friendly argument with a girlfriend (from eastern Long Island) who insisted that Long Island does not include Brooklyn. The map says otherwise. Again this is a definition issue. The usual use of Long Island is to refer to the two counties which are not part of NYC. Thus I Live in Long Island means somewhere on the island other than Queens or Brooklyn - Thus the eastern counties as well as the off the physical island landmass islands. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Official current definition of MVS
Shmuel wrote: begin snippet TSO was never a separate order number. It started as a feature of OS/360 MVS. end snippet and he has here committed a [vulgar sense] oxymoron. OS/360 had an MVT but no MVS. --jg On 9/24/12, Shmuel Metz (Seymour J.) shmuel+...@patriot.net wrote: In 50606024.6020...@us.ibm.com, on 09/24/2012 at 09:29 AM, John Eells ee...@us.ibm.com said: MVS might have at some point included TSO. Perhaps sooner, but since MVS Version 1 if I recall correctly, TSO and later TSO/E have been either: a) Different products with separate product (order) numbers TSO was never a separate order number. It started as a feature of OS/360 MVS. TSO Command Package and TSO/E replaced portions of the free base until TSO/E became a standard set of components and the free base went away. Initially TSO was originally a SysGen option, but then SysGen went away. b) For TSO/E, an element of OS/390 or z/OS. I normally read element as meaning a single FMID, which is not the case here. -- Shmuel (Seymour J.) Metz, SysProg and JOAT Atid/2http://patriot.net/~shmuel We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Return Address from IKJPARS ?
I ran the tso command processor under TESTAUTH When I get to the BR R14 of validity check rtn I inspect R14 On Mon, Sep 24, 2012 at 7:53 PM, Tony Harminc wrote: On 23 September 2012 21:28, micheal butz michealb...@optonline.net wrote: I am writting a TSO command processor which I invoke IKJPARS to pass control to a VALIDCK exit rtn Surely that's not the main reason you are calling IKJPARS... The code in the routine runs ok which routine - the validity check exit? You know for sure that it ran? however the problem I have is the with the return address R14 seems to point to CVT field CVTBSM2 offset 1DE in the CVT Why is that a problem?. Did you restore all the non linkage registers (2-13) before you branched to R14? From wherever you saved them on entry to your validity check routine? The following is the syntax of the call CALLTSSR EP=IKJPARS,MF=(E,PPL) the code picks up the address of the IKJPARS from CVT and balrs to IKJPARS OK. setting R14 to CVTBSM2 I see nothing at all like this in the CALLTSSR macro on any of my systems (z/OS 1.10 through 1.13). There are no references to CVTBSM2. But it's IKJPARS that sets this value, not CALLTSSR. Am I suppoused to return with a register other then r14 From the validity check routine? No - you are to return to the address passed to you in R14. Did you save and restore all registers as you do for any other program? In particular, the BSM 0,R2 requires that the caller's R2 be restored. This is just returning to the caller's AMODE. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Return Address from IKJPARS ?
On 24 September 2012 21:48, micheal butz michealb...@optonline.net wrote: I ran the tso command processor under TESTAUTH When I get to the BR R14 of validity check rtn I inspect R14 And where is R2 pointing at that time (just do a w 2r?) ? And can you list the registers at the start of your validity check routine (right at your STM or whatever), and then at the BR 14, and make sure R2-R13 are the same? Is your validity check routine self-contained, i.e. doesn't depend on addressibility to the part of your program that invokes CALLTSSR? If the code is in the same assembly, do you perhaps have USING(s) in effect that you haven't actually set up the register(s) for in the validity check routine? There is another consideration, but I don't think it applies in this case, because your program is being invoked by a BALR-type linkage. TSO TEST normally points R14 to its own SVC 97 if your program is entered by LINK/ATTACH/XCTL. I don't think this is the case here, but don't be surprised if you find R14 pointing to an isolated SVC instead of the EXIT SVC (3) in the CVT. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
