IDCAMS
Hi Can IDCAMS repro Append records to the end of a sequential data set The repro command is in a clist And it's whitin a loop Seems repro replaces existing records in sequential dataset Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IDCAMS
What if the JCL has disp=mod Sent from my iPhone On Dec 30, 2014, at 10:54 PM, John McKown john.archie.mck...@gmail.com wrote: Allocate your DSN with a DISP of MOD instead of OLD or SHR. ALLOC DDN(ddn) DSN(dsn) MOD REPRO IDS(indsn) OUTFILE(ddn) There is not a way to do it except by using the ALLOC command. I.e. ODS(dsn) on the REPRO is hard coded to a DISP of OLD, which overwrites. On Tue, Dec 30, 2014 at 9:45 PM, Micheal Butz michealb...@comcast.net wrote: Hi Can IDCAMS repro Append records to the end of a sequential data set The repro command is in a clist And it's whitin a loop Seems repro replaces existing records in sequential dataset Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- While a transcendent vocabulary is laudable, one must be eternally careful so that the calculated objective of communication does not become ensconced in obscurity. In other words, eschew obfuscation. 111,111,111 x 111,111,111 = 12,345,678,987,654,321 Maranatha! John McKown -- 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: Invoking a clist using IKJEFTSR
I just realized I cannt just link to IKJEFTSR I would have to run IKJEFT01 as batch background job Ok thanks Sent from my iPhone On Dec 24, 2014, at 8:41 AM, John Arwe johna...@us.ibm.com wrote: Would allocating and using SYSTSIN/SYSTSPRT substitute for The terminal input and output pretty sure I routinely did this with IKJEFT01 back in the day (not TSR - used to write internal tools for devt folks as an avocation). I did a lot more Rexx than clist. Is there any reason you're using TSR per se? Memory is hazy here, but I thought TSR was intended for invoking clists/rexx from compiled code or vice versa when you want access to the variable pool. I would debug in foreground, then just run the same TMP (01) in a batch job using the contents of proclib(foreground session logon proc name) as a starting point for my JCL. Start with something innocuous as a test, and expand outward to test all the parts of the interface you expect to rely on before spending huge chunks of time on it. Some third party programs intercept clists in various ways, testing is like nuking it from orbit (the only way to be sure). E.g. invoke a clist that just reads from the terminal (here: systsin) and then writes the value back out, perhaps pre/appending its own string. If you're going to depend on accessing a variable pool via TSR, same idea. Best Regards, John Voice US 845-435-9470 BluePages z/VM OpenStack Enablement and KVM -- 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: Invoking a clist using IKJEFTSR
There is a homegrown clist that I want to use in Bach job This isn't APF authorized Thanks Sent from my iPhone On Dec 24, 2014, at 5:31 PM, Walt Farrell walt.farr...@gmail.com wrote: On Wed, 24 Dec 2014 17:23:33 -0500, Micheal Butz michealb...@comcast.net wrote: I think I would have to call IKJTSOEV To set up a TSO environment in a batch program before I called IKJEFTSR You haven't told us enough about your program and its environment, really. But if it runs in a standard batch job then just change your JCL to invoke IKJEFT01 and then CALL your program. Then it can directly invoke IKJEFTSR. Among other considerations for you: if your program runs APF-authorized then it won't be able to use IKJTSOEV. -- Walt -- 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: Invoking a clist using IKJEFTSR
I thought SYSTSIN and SYSTSPRT was for terminal I/O but okay Let me give it a try Thanks Sent from my iPhone On Dec 24, 2014, at 7:59 PM, Walt Farrell walt.farr...@gmail.com wrote: On Wed, 24 Dec 2014 18:07:30 -0500, Micheal Butz michealb...@comcast.net wrote: There is a homegrown clist that I want to use in Bach job This isn't APF authorized What's wrong with something like: // EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSPROC DD DSN=your.clist.library,DISP=SHR //SYSTSIN DD * %your-clist-name -- Walt -- 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
Invoking a clist using IKJEFTSR
Hi I'm trying to invoke a clist which uses Terminal input/output to read and display data Would allocating and using SYSTSIN/SYSTSPRT substitute for The terminal input and output Thanks Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
File manger arrays in assembler
Hi Would anyone know how to define an occurs depending on array in assembler to generate a file manager template Thanks Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recovery routines
ISPF is not part of the equation Is plain vanilla TSO The second program is loaded and balr'ed to The library is APF authorized My question is the abend occurs in a different environment then from where the estae(x) was established E.g XMEM authorized etc does the recovery rtn get control Thanks Sent from my iPhone On Aug 28, 2014, at 1:27 AM, Jon Perryman jperr...@pacbell.net wrote: TSO CMDPGM is how your program was invoked from the ISPF display. How did your program call the next program? Was it thru ISPEXEC SELECT PGM or assembler LINK or ??? If it was ISPEXEC, then your problem is that ISPF is setting an ESTAE. If it's thru LINK then maybe ISPF is intercepting the SVC. If the problem is ISPF setting the ESTAE then calling ISPEXEC CONTROL SUBTASK CLEAR from the second program may resolve your problem. TSO is complicating your question and causing your confusion. TSO violates the restriction when you run authorized programs when unauthorized libraries are in the steplib/joblib/calllib concatenations. To ensure unauthorized programs never have access to an authorized environment, TSO must take extraordinary measures to make sure these programs never have access to an authorized environment. You see this by the use of authpgm and authcmd. I bring this up as a WARNING because you somehow call another program from under AUTHCMD authorized program. You must take extreme care not to allow a program from an UNAUTHORIZED library otherwise you expose your entire system. If you don't use standard call methods (e.g. LINK), then you have an exposure that must be fixed. In TSO, authorized programs are executed under a special authorized task. This will cause programs to run authorized to execute in another TCB. But for your ESTAE, this is not specifically important. What's important is where the called program executes versus your program. Set a slip for the abend to take a dump. In the trace table, you estae and the the abend should have the same TCB. If not, then TSO is probably at fault. If not, you can see who sets an estae after your ESTAE. If ISPF is setting it, then You can look where your both programs are running. If they are under the same TCB then maybe you can see if which ISPF function is somehow setting the ESTAE.. Jon Perryman On Wednesday, August 27, 2014 3:02 PM, Micheal Butz michealb...@comcast.net wrote: I want to accomplish to have complete coverage for my program By that I mean anytime I get an abend in any state I want my recovery routine to get control Sent from my iPhone On Aug 27, 2014, at 5:56 PM, Tony Harminc t...@harminc.net wrote: On 27 August 2014 16:48, Micheal Butz michealb...@comcast.net wrote: I have question I understand that an authorized command run under a different tmp Well, a different task structure. Is that always meaning the same program while in problem state runs Under one tmp and when I switch to Supervisor under another No - it doesn't work that way at all. Once it's been decided that a command will run APF authorized, it is dispatched under a different task structure, while the unauthorized stuff is all status stopped. If you are able to switch to supervisor state, you were authorized by definition (or IBM will fix it PDQ!), so you won't be running under the unauthorized branch. If so I established my estae(x) In Problems state and I abended in supervisor state my recovery rtn wouldn't get control Well, sort-of. But it's both stronger and more subtle than that. -- 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: Recovery routines
It is declared as authorized in IKJTSOxx what is the significance of that I'll research it thanks Sent from my iPhone On Aug 27, 2014, at 5:25 AM, Rob Scott rsc...@rocketsoftware.com wrote: This is where you need to do some elimination of certain factors : (1) Does your ESTAE actually work? Test it by doing a link to a dummy program and forcing that dummy program to abend (2) Is it related to the TSO command environment? Test this by using TSO dummy and re-test using the dummy program from (1) (3) Is there something special about the TSO command processor? For example, is it declared in AUTHxxx in IKJTSOxx ? (If so - this explains your problem) (4) Is it related to ISPF services Add some ISPF services to your dummy program and re-test Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: 27 August 2014 00:54 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Recovery routines It was a TSO command processor Which I execute from within ISPF With following syntax TSO CMDPGM Sent from my iPhone On Aug 26, 2014, at 7:39 PM, Walt Farrell walt.farr...@gmail.com wrote: On Tue, 26 Aug 2014 18:02:01 -0400, Micheal Butz michealb...@comcast.net wrote: It hasn't retried I establish an estaex in the begining Of My program then load another program The second program gets a S0C4 I get an ISP message re a S0C4 and the program ends my routine Never has a chance to examine It point is if everything is still under the same TCB/RB I should get control What did your program invoke? What makes you think it's under the same TCB/RB? If the program you invoked abended, and did not retry, and your ESTAEX routine did not get control, that should indicate either that you did not set it up properly, or that the routine you invoked was not, in fact, under your TCB/RB. So what was the routine? If it's something ISPF-based, as seems likely from I get an ISP message you need to be aware that many ISPF services run under the ISPF main task, not under one of the ISPF subtasks, where your program is likely to be running. If you tell us exactly what you did that failed, we may be able to tell you the proper recovery (if any). -- Walt -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recovery routines
Thanks Sent from my iPhone On Aug 27, 2014, at 5:50 AM, Rob Scott rsc...@rocketsoftware.com wrote: Hint : parallel TMP Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: 27 August 2014 10:47 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Recovery routines It is declared as authorized in IKJTSOxx what is the significance of that I'll research it thanks Sent from my iPhone On Aug 27, 2014, at 5:25 AM, Rob Scott rsc...@rocketsoftware.com wrote: This is where you need to do some elimination of certain factors : (1) Does your ESTAE actually work? Test it by doing a link to a dummy program and forcing that dummy program to abend (2) Is it related to the TSO command environment? Test this by using TSO dummy and re-test using the dummy program from (1) (3) Is there something special about the TSO command processor? For example, is it declared in AUTHxxx in IKJTSOxx ? (If so - this explains your problem) (4) Is it related to ISPF services Add some ISPF services to your dummy program and re-test Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: 27 August 2014 00:54 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Recovery routines It was a TSO command processor Which I execute from within ISPF With following syntax TSO CMDPGM Sent from my iPhone On Aug 26, 2014, at 7:39 PM, Walt Farrell walt.farr...@gmail.com wrote: On Tue, 26 Aug 2014 18:02:01 -0400, Micheal Butz michealb...@comcast.net wrote: It hasn't retried I establish an estaex in the begining Of My program then load another program The second program gets a S0C4 I get an ISP message re a S0C4 and the program ends my routine Never has a chance to examine It point is if everything is still und -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recovery routines
Rob I have question I understand that an authorized command run under a different tmp Is that always meaning the same program while in problem state runs Under one tmp and when I switch to Supervisor under another If so I established my estae(x) In Problems state and I abended in supervisor state my recovery rtn wouldn't get control ? Sent from my iPhone On Aug 27, 2014, at 7:07 AM, Micheal Butz michealb...@comcast.net wrote: Thanks Sent from my iPhone On Aug 27, 2014, at 5:50 AM, Rob Scott rsc...@rocketsoftware.com wrote: Hint : parallel TMP Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: 27 August 2014 10:47 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Recovery routines It is declared as authorized in IKJTSOxx what is the significance of that I'll research it thanks Sent from my iPhone On Aug 27, 2014, at 5:25 AM, Rob Scott rsc...@rocketsoftware.com wrote: This is where you need to do some elimination of certain factors : (1) Does your ESTAE actually work? Test it by doing a link to a dummy program and forcing that dummy program to abend (2) Is it related to the TSO command environment? Test this by using TSO dummy and re-test using the dummy program from (1) (3) Is there something special about the TSO command processor? For example, is it declared in AUTHxxx in IKJTSOxx ? (If so - this explains your problem) (4) Is it related to ISPF services Add some ISPF services to your dummy program and re-test Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: 27 August 2014 00:54 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Recovery routines It was a TSO command processor Which I execute from within ISPF With following syntax TSO CMDPGM Sent from my iPhone On Aug 26, 2014, at 7:39 PM, Walt Farrell walt.farr...@gmail.com wrote: On Tue, 26 Aug 2014 18:02:01 -0400, Micheal Butz michealb...@comcast.net wrote: It hasn't retried I establish an estaex in the begining Of My program then load another program The second program gets a S0C4 I get an ISP message re a S0C4 and the program ends my routine Never has a chance to examine It point is if everything is still und -- 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: Recovery routines
I was in problem state at the time Going back to the original question Do I run under different TMP's in problem and supervisor state Sent from my iPhone On Aug 27, 2014, at 5:52 PM, DASDBILL2 dasdbi...@comcast.net wrote: I remember your concatenation issue. Just because a piece of code works under one condition does not mean it is guaranteed to run under all other possible conditions. Bill Fairchild - Original Message - From: MichealButz michealb...@comcast.net To: IBM-MAIN@LISTSERV.UA.EDU Sent: Wednesday, August 27, 2014 9:43:28 AM Subject: Re: Recovery routines Yes it is I had a 306 abend in that the concatenation wasn't authorized my esatex intercepted it and gave the use a chance to enter a valid dsn which I do a SVC 99. Later on however one of the progs goes XMEM via AR sac 256 and its in that prog that I get a S0C4 Its all under the same TCB/RB so I should have coverage I'll read up on parallel TMP in a bit thanks -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of DASDBILL2 Sent: Wednesday, August 27, 2014 9:48 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Recovery routines To Rob Scott's (as usual) wise response, I will add this: Is your ESTAE(X) routine even getting control? Put a WTO at the very beginning of your recovery routine to tell you that your routine got control. And beware that WTO may alter some registers that your recovery routine may need, such as R0, R1, R14, and R15. Bill Fairchild -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recovery routines
I want to accomplish to have complete coverage for my program By that I mean anytime I get an abend in any state I want my recovery routine to get control Sent from my iPhone On Aug 27, 2014, at 5:56 PM, Tony Harminc t...@harminc.net wrote: On 27 August 2014 16:48, Micheal Butz michealb...@comcast.net wrote: I have question I understand that an authorized command run under a different tmp Well, a different task structure. Is that always meaning the same program while in problem state runs Under one tmp and when I switch to Supervisor under another No - it doesn't work that way at all. Once it's been decided that a command will run APF authorized, it is dispatched under a different task structure, while the unauthorized stuff is all status stopped. If you are able to switch to supervisor state, you were authorized by definition (or IBM will fix it PDQ!), so you won't be running under the unauthorized branch. If so I established my estae(x) In Problems state and I abended in supervisor state my recovery rtn wouldn't get control Well, sort-of. But it's both stronger and more subtle than that. As usual, the question is what are you trying to accomplish here? 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
Recovery routines
Hi I have a program which one of the first things I do is establish recovery Durning the course of program I invoke many system services How can I be sure that my Recovery routine will get control Since it is quite possible my Routine is not the last on the scb Chain and if the last routine doesn't percolate I wouldn't get control Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recovery routines
I have written one of those a while ago however I was hoping for something that has an SDWA where I can examine the problem Sent from my iPhone On Aug 26, 2014, at 4:48 PM, John McKown john.archie.mck...@gmail.com wrote: I guess you are talking about an ESTAEX type environment. If you have the proper authority, you can make yourself a resource manager and request that an exit be driven when the task or address space terminates. ref: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2a8b0/18.5.6 quote MVS provides resource managers that are invoked to clean up resources associated with a task or an address space. A resource manager is a routine that gets control during normal and abnormal termination of a task or an address space. Task or address space termination is the process of removing a task or address space from the system, releasing the resources from the task or address space, and making the resources available for reuse. /quote On Tue, Aug 26, 2014 at 3:23 PM, Micheal Butz michealb...@comcast.net wrote: Hi I have a program which one of the first things I do is establish recovery Durning the course of program I invoke many system services How can I be sure that my Recovery routine will get control Since it is quite possible my Routine is not the last on the scb Chain and if the last routine doesn't percolate I wouldn't get control Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recovery routines
I have never tried estaex with the OV Param but would that put my routine on top of the scb chain Sent from my iPhone On Aug 26, 2014, at 4:57 PM, Dave Day dave...@colesoft.com wrote: Set a SLIP to catch the abend in the system service. If the estae that gets control in front of yours successfully retries, then you have no knowledge in your program that the called service abended, unless it gives some kind of a return and reason code. --Dave On 8/26/2014 3:52 PM, Micheal Butz wrote: I have written one of those a while ago however I was hoping for something that has an SDWA where I can examine the problem Sent from my iPhone On Aug 26, 2014, at 4:48 PM, John McKown john.archie.mck...@gmail.com wrote: I guess you are talking about an ESTAEX type environment. If you have the proper authority, you can make yourself a resource manager and request that an exit be driven when the task or address space terminates. ref: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2a8b0/18.5.6 quote MVS provides resource managers that are invoked to clean up resources associated with a task or an address space. A resource manager is a routine that gets control during normal and abnormal termination of a task or an address space. Task or address space termination is the process of removing a task or address space from the system, releasing the resources from the task or address space, and making the resources available for reuse. /quote On Tue, Aug 26, 2014 at 3:23 PM, Micheal Butz michealb...@comcast.net wrote: Hi I have a program which one of the first things I do is establish recovery Durning the course of program I invoke many system services How can I be sure that my Recovery routine will get control Since it is quite possible my Routine is not the last on the scb Chain and if the last routine doesn't percolate I wouldn't get control Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- 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: Recovery routines
I think if you re-use the token return by the token param of the ct invocation I could re-establish estatex on top of the chain Sent from my iPhone On Aug 26, 2014, at 5:01 PM, Micheal Butz michealb...@comcast.net wrote: I have never tried estaex with the OV Param but would that put my routine on top of the scb chain Sent from my iPhone On Aug 26, 2014, at 4:57 PM, Dave Day dave...@colesoft.com wrote: Set a SLIP to catch the abend in the system service. If the estae that gets control in front of yours successfully retries, then you have no knowledge in your program that the called service abended, unless it gives some kind of a return and reason code. --Dave On 8/26/2014 3:52 PM, Micheal Butz wrote: I have written one of those a while ago however I was hoping for something that has an SDWA where I can examine the problem Sent from my iPhone On Aug 26, 2014, at 4:48 PM, John McKown john.archie.mck...@gmail.com wrote: I guess you are talking about an ESTAEX type environment. If you have the proper authority, you can make yourself a resource manager and request that an exit be driven when the task or address space terminates. ref: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2a8b0/18.5.6 quote MVS provides resource managers that are invoked to clean up resources associated with a task or an address space. A resource manager is a routine that gets control during normal and abnormal termination of a task or an address space. Task or address space termination is the process of removing a task or address space from the system, releasing the resources from the task or address space, and making the resources available for reuse. /quote On Tue, Aug 26, 2014 at 3:23 PM, Micheal Butz michealb...@comcast.net wrote: Hi I have a program which one of the first things I do is establish recovery Durning the course of program I invoke many system services How can I be sure that my Recovery routine will get control Since it is quite possible my Routine is not the last on the scb Chain and if the last routine doesn't percolate I wouldn't get control Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recovery routines
I think the operative word here is SHOULD I would like to establish the estatex once again close to the abend to get control Sent from my iPhone On Aug 26, 2014, at 5:13 PM, Dave Day dave...@colesoft.com wrote: Either I'm not understanding what it is you want to do, or you don't understand how this works. If you have an estae set on your currently executing program, it is the last on the chain, and the 1st to get control if your program abends. If you call another program from yours, and it establishes an estae, then that one is the last on the chain, and the 1st to get control if the called program abends. If it retries successfully, your estae will not get control. If it percolates, then yours gets called as it is the next in the chain. If retry is allowed, yours can retry, or percolate. As part of exit processing for any program that establishes a recovery routine, it should remove it, making the previous recovery routine the 1st one to get called in the event of an abend. --Dave On 8/26/2014 4:01 PM, Micheal Butz wrote: I have never tried estaex with the OV Param but would that put my routine on top of the scb chain Sent from my iPhone On Aug 26, 2014, at 4:57 PM, Dave Day dave...@colesoft.com wrote: Set a SLIP to catch the abend in the system service. If the estae that gets control in front of yours successfully retries, then you have no knowledge in your program that the called service abended, unless it gives some kind of a return and reason code. --Dave On 8/26/2014 3:52 PM, Micheal Butz wrote: I have written one of those a while ago however I was hoping for something that has an SDWA where I can examine the problem Sent from my iPhone On Aug 26, 2014, at 4:48 PM, John McKown john.archie.mck...@gmail.com wrote: I guess you are talking about an ESTAEX type environment. If you have the proper authority, you can make yourself a resource manager and request that an exit be driven when the task or address space terminates. ref: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2a8b0/18.5.6 quote MVS provides resource managers that are invoked to clean up resources associated with a task or an address space. A resource manager is a routine that gets control during normal and abnormal termination of a task or an address space. Task or address space termination is the process of removing a task or address space from the system, releasing the resources from the task or address space, and making the resources available for reuse. /quote On Tue, Aug 26, 2014 at 3:23 PM, Micheal Butz michealb...@comcast.net wrote: Hi I have a program which one of the first things I do is establish recovery Durning the course of program I invoke many system services How can I be sure that my Recovery routine will get control Since it is quite possible my Routine is not the last on the scb Chain and if the last routine doesn't percolate I wouldn't get control Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recovery routines
It hasn't retried I establish an estaex in the begining Of My program then load another program The second program gets a S0C4 I get an ISP message re a S0C4 and the program ends my routine Never has a chance to examine It point is if everything is still under the same TCB/RB I should get control Sent from my iPhone On Aug 26, 2014, at 5:53 PM, Binyamin Dissen bdis...@dissensoftware.com wrote: Why? If the called service successfully retries, it has handled the situation. Why does your program, as the caller of the service, care whether there was an abend? As usual the question is - what is your business case? On Tue, 26 Aug 2014 17:18:12 -0400 Micheal Butz michealb...@comcast.net wrote: :I think the operative word here is :SHOULD : :I would like to establish the estatex once again close to the abend to get control : :Sent from my iPhone : : On Aug 26, 2014, at 5:13 PM, Dave Day dave...@colesoft.com wrote: : : Either I'm not understanding what it is you want to do, or you don't understand how this works. : : If you have an estae set on your currently executing program, it is the last on the chain, and the 1st to get control if your program abends. : : If you call another program from yours, and it establishes an estae, then that one is the last on the chain, and the 1st to get control if the called program abends. If it retries successfully, your estae will not get control. If it percolates, then yours gets called as it is the next in the chain. If retry is allowed, yours can retry, or percolate. : : As part of exit processing for any program that establishes a recovery routine, it should remove it, making the previous recovery routine the 1st one to get called in the event of an abend. : : --Dave : On 8/26/2014 4:01 PM, Micheal Butz wrote: : I have never tried estaex with the OV : Param but would that put my routine on top of the scb chain : : Sent from my iPhone : : On Aug 26, 2014, at 4:57 PM, Dave Day dave...@colesoft.com wrote: : : Set a SLIP to catch the abend in the system service. : : If the estae that gets control in front of yours successfully retries, then you have no knowledge in your program that the called service abended, unless it gives some kind of a return and reason code. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Recovery routines
It was a TSO command processor Which I execute from within ISPF With following syntax TSO CMDPGM Sent from my iPhone On Aug 26, 2014, at 7:39 PM, Walt Farrell walt.farr...@gmail.com wrote: On Tue, 26 Aug 2014 18:02:01 -0400, Micheal Butz michealb...@comcast.net wrote: It hasn't retried I establish an estaex in the begining Of My program then load another program The second program gets a S0C4 I get an ISP message re a S0C4 and the program ends my routine Never has a chance to examine It point is if everything is still under the same TCB/RB I should get control What did your program invoke? What makes you think it's under the same TCB/RB? If the program you invoked abended, and did not retry, and your ESTAEX routine did not get control, that should indicate either that you did not set it up properly, or that the routine you invoked was not, in fact, under your TCB/RB. So what was the routine? If it's something ISPF-based, as seems likely from I get an ISP message you need to be aware that many ISPF services run under the ISPF main task, not under one of the ISPF subtasks, where your program is likely to be running. If you tell us exactly what you did that failed, we may be able to tell you the proper recovery (if any). -- Walt -- 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: ISPLLIB as a task library
Thanks I misread it Sent from my iPhone On Aug 25, 2014, at 7:19 AM, Binyamin Dissen bdis...@dissensoftware.com wrote: On Sun, 24 Aug 2014 08:20:59 -0400 Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: :In :!!AAAYADO3kaXBOTJGmkWYxtxnvxbCgAAAEMBplyH84phHvxIct8Z0uVUBAA==@comcast.net, :on 08/22/2014 : at 02:56 PM, MichealButz michealb...@comcast.net said: :I am executing a TSO command processor from ISPF using the :following syntax TSO CMDPRC... :In program CMDPRC I do a BLDL 0, The program resides in a ISPLLIB :concatenation I have seen the following documentation :ISPLLIB is used as a task library when fetching load modules. :I read that as a task library for ISPF commands. An RCF may be in :order. I would suggest that the OP post his entire code. Many times in the past he has missed obvious points. If the executed command goes to the parallel TMP, ISPLLIB is not a tasklib. -- 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: ISPLLIB as a task library
I just get a non zero RC I think I need to so TSOLIB ACTIVATe DDNAME(ISPLLIB) Sent from my iPhone On Aug 22, 2014, at 3:36 PM, Nims,Alva John (Al) ajn...@ufl.edu wrote: Was there an ISPF error Message? One possible error message from z/OS ISPF Messages and Codes: ISPD148 BLDL error - Error processing LIBDEF search for program . BLDL return code = . Explanation: A LIBDEF was specified for ISPLLIB and BLDL encountered an error trying to locate a program while invoking the SELECT service. A return code of 8 would normally indicate an I/O error. User response: Refer to the appropriate system documentation for an explanation of the BLDL macro return codes. -- Was the Return code =8? That is commonly an I/O error. The z/OS ISPF Services Guide also says that it is not recommended to run authorized programs from ISPLLIB. Al Nims Systems Admin/Programmer 3 Information Technology University of Florida (352) 273-1298 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of MichealButz Sent: Friday, August 22, 2014 2:56 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: ISPLLIB as a task library Hi, I am executing a TSO command processor from ISPF using the following syntax TSO CMDPRC... In program CMDPRC I do a BLDL 0, The program resides in a ISPLLIB concatenation I have seen the following documentation ISPLLIB is used as a task library when fetching load modules. If so shouldn't the BLDL 0, get a return code of 0 If not is there anyway of setting ISPLLIB as a task library when executing TSO CMDPROC from ISPF Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TPUT fullscr NOT working getting abend 66D
I sysudump as I allocated it to my TSO session Sent from my iPhone On Aug 21, 2014, at 2:57 AM, Anthony Thompson anthony.thomp...@nt.gov.au wrote: A reason code 8, if that is to be believed, indicates an 0C4 while validating user pointers, or a pointer was set to zero. Set a SLIP trap to capture a dump for your 66D abend and diagnose the problem. Ant. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of MichealButz Sent: Thursday, 21 August 2014 1:24 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: TPUT fullscr NOT working getting abend 66D Hi, All of the sudden my TPUT in fullscr mode stopped working instead it is displaying it in line mode followed by a 66D abend at one point I saw a reason code 8 I ran it under tso test with no problems checked the return codes TPUT STFSMODE STTMPMD STLINENO all were good and the buffer area and it all looked good Any help would be appreciated Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Return code 8 from open
It is a load lib From which I would like to do a load DCB= It is allocated as afterwards I see via ISRDDN the allocation Open doesn't seem to give much more info than a return code Sent from my iPhone On Aug 13, 2014, at 1:43 PM, retired mainframer retired-mainfra...@q.com wrote: Details please. Is it an existing or new dataset? Is it really partitioned? Does the DSCB already have a RECFM? Are you opening for input or output? Any chance of an AMODE inconsistency? Can you show us the SVC 99 code and the OPEN instruction? Any chance you could add a snap dump of the DCB prior to the open to verify everything is the way you think it should be? -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of MichealButz Sent: Wednesday, August 13, 2014 8:23 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Return code 8 from open Hi, I am dynamically allocating a loadlib the SVC 99 is successful however I get a return code 8 when I try to open it I move the ddname returned by SVC 99 before I open it here is the layout of my DCB for the loadlib DDCB DCB DDNAME=DDNAME,RECFM=U,DSORG=PO,MACRF=R -- 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: Return code 8 from open
I'll check thanks Sent from my iPhone On Aug 13, 2014, at 3:04 PM, Jon Perryman jperr...@pacbell.net wrote: In this case, I would expect it to be in the job log for the TSO user. Jon Perryman On Wednesday, August 13, 2014 11:58 AM, Hardee, Chuck chuck.har...@thermofisher.com wrote: He said he found that the SVC 99 allocate worked via ISRDDN. It would seem to me that his program is being executed in a TSO session. My question would be, would that message be written to the job log representing his session, the terminal screen as part of his output, or is it being held by TSO for him to ask for it? -- 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: Rational Development and Test (RDT) aka z/OS on a PC
Perpetual is forever Sent from my iPhone On Aug 7, 2014, at 9:43 AM, Walt Farrell walt.farr...@gmail.com wrote: Regarding use of RDT for System z for a sysplex configuration: If I'm reading everything correctly, the sysplex support (with virtualized CF) is available only if you license RDT in the RVU (Resource Value Unit) license configuration, rather than using the Authorized User license. With the RVU license you get z/VM to perform the virtualization of the CF and to run the z/OS instances in virtual machines, too. And the price for an RVU license is significantly higher than the single user licenses we've been discussing in this thread so far: $17,300 for a 1-year license or $37,200 (plus the 15% per year maintenance cost) for a perpetual license. (I can't promise that I've read/understood everything correctly, of course.) -- Walt -- 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: Rational Development and Test (RDT) aka z/OS on a PC
How much does this cost Sent from my iPhone On Aug 6, 2014, at 9:45 PM, Thomas Conley pinnc...@rochester.rr.com wrote: On 8/6/2014 9:45 AM, Paul Gilmartin wrote: On Wed, 6 Aug 2014 09:26:01 -0400, Pinnacle wrote: I've been remiss in not posting this sooner on IBM-Main. I recently purchased Rational Development Test (RDT) from IBM, a product which allows anyone to run z/OS on Intel hardware. That's right, anyone. You do not have to own any big iron. Any high-schooler, college kid, z/OS professional, etc. can order this product and run z/OS on a PC platform. For ordering details, go to this link: http://www-03.ibm.com/software/products/en/ratideveandtestenviforsystz Where I read: Note: Rational Development and Test Environment for System z can only be used for development, test, employee education, or demonstration of applications that run on z/OS. It may not be used for production workloads of any kind, nor for robust development workloads including without limitation production module builds, pre-production testing, stress testing, or performance testing. ... development, test [but not] robust development ... or performance testing? I see some blurred lines here. I wonder how the lawyers clarify them? I know it when I see it -- Justice Potter Stewart -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Gil, No blurred lines. We asked for a Personal Use license (some called it Hobbyist, a pejorative term that I think held us back) for z/OS, and IBM delivered. You can't use it for commercial development or production. You can use it for testing and education. That screams Personal Use to me. Regards, Tom Conley -- 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: Rational Development and Test (RDT) aka z/OS on a PC
Ball park Sent from my iPhone On Aug 7, 2014, at 1:10 AM, Ed Gould edgould1...@comcast.net wrote: On Aug 6, 2014, at 11:11 PM, Micheal Butz wrote: -SNIP-- Gil, No blurred lines. We asked for a Personal Use license (some called it Hobbyist, a pejorative term that I think held us back) for z/OS, and IBM delivered. You can't use it for commercial development or production. You can use it for testing and education. That screams Personal Use to me. Regards, Tom Conley For someone with deep pockets maybe. Ed -- 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: Dynamic Alocation question
Correct I am writing an authorized TSO command processor and would like to concatenated it to STEPLIB/TASKLIB TSOLIB Sent from my iPhone On Aug 4, 2014, at 9:06 AM, Hardee, Chuck chuck.har...@thermofisher.com wrote: Correct, but there are implications. It has to do with whether the allocations were dynamically created or not, and whether you will be de-concatenating them or not. That's why I keep telling the OP to locate a copy of the MVS Authorized Assembler Services Guide and read Chapter 26. Requesting dynamic allocation functions. There's some implications of what happens to datasets and concatenation groups that have the permanent attribute, for example, that need to be known before you go and slap DDNames into a single concatenation group. I'm sort of think that the OP is writing something for use under TSO/ISPF because of his query about STEPLIB, TASKLIB and ISPLLIB, which then implies that he may need to preserve a concatenation group, like STEPLIB, before he adds to it so that when his program terminates he can put it back like it was. C- Charles (Chuck) Hardee Senior Systems Engineer/Database Administration CCG Information Technology Thermo Fisher Scientific 300 Industry Drive Pittsburgh, PA 15275 Direct: 724-517-2633 FAX: 412-490-9230 chuck.har...@thermofisher.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Monday, August 04, 2014 8:59 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Dynamic Alocation question I believe you can concatenate any two allocations that make sense to concatenate. All you need is the two DD names. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of MichealButz Sent: Monday, August 04, 2014 8:45 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Dynamic Alocation question Hi, does this mean If I want to concatenate MYTEST.LOADLIB I first dynamically allocate it use use the ddname returned to me by SVC 99 Then use text key DCCDNAM ? can I concatenate ISPLLIB and/or STEPLIB or TASKLIB returned from TSOLIB ? -- 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: Dynamic Alocation question
Wait open at step initiation I am talking about TSOLIB which I Believe I can load am APF authorized program from Sent from my iPhone On Aug 4, 2014, at 11:29 AM, J R jayare...@hotmail.com wrote: Date: Mon, 4 Aug 2014 09:36:49 -0500 From: 000433f07816-dmarc-requ...@listserv.ua.edu Subject: Re: Dynamic Alocation question To: IBM-MAIN@LISTSERV.UA.EDU ... Can one do *anything* to STEPLIB? I thought it was peculiarly sacred; immutable. But I've never tried a concatenate-deconcatenate operation. I'm trying to imagine what happens if one LOADs a module from the newly concatenated library with deferred fetch of the pages, then deconcatenates before all pages are fetched. ... === Well, the tasklib, whether it be JOBLIB, STEPLIB or some other, is opened at step initiation, so even if you can/could dynamically concatenate something to it, program fetch will continue to use the DEB constructed by that original OPEN. -- 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: IEAMSCHD question
Elardus You are right on target with your comment the examples show A adcon used for the pointer to the SRB routine though most the examples are for SRB s in the same Address space, I refer to example 4 which is for another address Space i.e the targetstoken parm Is used and epaddr is pointed to by a Adcon as well Very misleading Sent from my iPhone On Jul 30, 2014, at 8:02 AM, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: John McKown wrote: The code must be addressable by the target address space. z/OS will not do this for you. Therefore, do _not_ try to schedule an SRB in a different address space which uses code in your private address space. Interesting. Just curious, but where is that documented? You will likely get beat abruptly about the head and shoulders by your customers. Especially the sysprogs whose systems you (might) have crashed. If the OP survived that far... ;-D Survivers wil be promoted to pavement sweeping... Groete / Greetings Elardus Engelbrecht -- 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
IEAMSCHD question
Hi Using this macro instead of schedule Does the SRB routine have to be in common or addressable by the target address space or does Z/OS take care of that Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: return code from SYSEVENT TRANSWAP ENTRY=BRANCH
I trying to display the ACEE of the Target ASID and don't want it swapped out while I'm in AR mode Sent from my iPhone On Jul 23, 2014, at 12:02 PM, Rob Scott rsc...@rocketsoftware.com wrote: Using an ECB for SYSEVENT TRANSWAP implies that the issuer will WAIT on the ECB that will be posted once the TRANSWAP is complete. You are in SRB mode and cannot issue the WAIT SVC - therefore your SRB code has most likely continued before SYSEVENT starts or even completes its processing. Also being in SRB mode and using the ECB form of SYSEVENT is probably 'surprising' for the SYSEVENT code, so it might do one of the following : (a) Fail gracefully (b) Abend (c) Attempt to POST the ECB anyway with LINKAGE=SYSTEM/BRANCH hoping that you know what you are doing. In any case I am curious to see which system address space are you trying to make NONSWAP and for what purpose? Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of MichealButz Sent: 23 July 2014 16:34 To: IBM-MAIN@LISTSERV.UA.EDU Subject: return code from SYSEVENT TRANSWAP ENTRY=BRANCH Hi, I have a SRB which I schedule in a system address space I would like to make it NON SWAPABLE in the srb I use SYSEVENT TRANSWAP,ENTRY=BRANCH Before I prime R1 with a ECB The documentation says the return code is in the last byte of R1 when sysevent returns R1 doesn't point to the ECB but some piece of code later in my program e.g. LA R1,ECB SYSEVENT TRANSWAP,LINKAGE=BRANCH CLM R1,B'0001',=X'00' BE GOOD The address returned in R1 from SYSEVENT points to somewhere in my program not a return code Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: return code from SYSEVENT TRANSWAP ENTRY=BRANCH
The code has I/O cann't do that in SRB mode I can though copy it Have the other ASID display it It being in task mode Thanks for your help let me re-read Chap 9 in the authorized assembler guide Thanks for being so helpful Sent from my iPhone On Jul 23, 2014, at 1:39 PM, Rob Scott rsc...@rocketsoftware.com wrote: Why don't you just access the ACEE in the SRB ? Please note that you should NOT use ALESERV ADD CHKEAX=NO to add a foreign address space to your current PASN or DU-AL and then access private storage from that ASID using AR mode. This has been discussed many times on this forum. On 23 Jul 2014 17:54, Micheal Butz michealb...@comcast.net wrote: I trying to display the ACEE of the Target ASID and don't want it swapped out while I'm in AR mode Sent from my iPhone On Jul 23, 2014, at 12:02 PM, Rob Scott rsc...@rocketsoftware.com wrote: Using an ECB for SYSEVENT TRANSWAP implies that the issuer will WAIT on the ECB that will be posted once the TRANSWAP is complete. You are in SRB mode and cannot issue the WAIT SVC - therefore your SRB code has most likely continued before SYSEVENT starts or even completes its processing. Also being in SRB mode and using the ECB form of SYSEVENT is probably 'surprising' for the SYSEVENT code, so it might do one of the following : (a) Fail gracefully (b) Abend (c) Attempt to POST the ECB anyway with LINKAGE=SYSTEM/BRANCH hoping that you know what you are doing. In any case I am curious to see which system address space are you trying to make NONSWAP and for what purpose? Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.comhttp://www.rocketsoftware.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of MichealButz Sent: 23 July 2014 16:34 To: IBM-MAIN@LISTSERV.UA.EDU Subject: return code from SYSEVENT TRANSWAP ENTRY=BRANCH Hi, I have a SRB which I schedule in a system address space I would like to make it NON SWAPABLE in the srb I use SYSEVENT TRANSWAP,ENTRY=BRANCH Before I prime R1 with a ECB The documentation says the return code is in the last byte of R1 when sysevent returns R1 doesn't point to the ECB but some piece of code later in my program e.g. LA R1,ECB SYSEVENT TRANSWAP,LINKAGE=BRANCH CLM R1,B'0001',=X'00' BE GOOD -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO Test does not support 65-bit (actually 64-bit) debugging?
I tried L AR(0) It gives me a error message invalid address L 0. AR(0) on the right side will show contents of Alet in r0 Sent from my iPhone On Jul 9, 2014, at 6:37 AM, Bob Shannon bshan...@rocketsoftware.com wrote: Read the manual. Bob Shannon Rocket Software -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: Tuesday, July 08, 2014 8:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: TSO Test does not support 65-bit (actually 64-bit) debugging? Not the actual values Only the form L AED8. Ar(4) But you cann't display the Alet Sent from my iPhone On Jul 8, 2014, at 7:09 AM, Bob Shannon bshan...@rocketsoftware.com wrote: Why cann't you display the values of access registers I can. If you read the manual you can too. Bob Shannon Rocket Software Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter _SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO Test does not support 65-bit (actually 64-bit) debugging?
Thanks For your help Sent from my iPhone On Jul 9, 2014, at 4:52 PM, Walt Farrell walt.farr...@gmail.com wrote: On Wed, 9 Jul 2014 14:26:59 -0400, Micheal Butz michealb...@comcast.net wrote: I tried L AR(0) It gives me a error message invalid address L 0. AR(0) on the right side will show contents of Alet in r0 If you read the manual, starting with the perhaps most obvious one, TSO/E Command Reference, which describes TEST and its subcommands, you will find many references suggesting you also read TSO/E Programming Guide. I probably wouldn't have started with the Programming Guide, but the pointers to it are obvious in the other book, and presumably one who is testing programs is writing them, so it might be argured that it's not a totally unexpected place to find information. If you read the TSO/E Programming Guide, you'll find it has sections about using TEST, and in one of them you find the syntax for all those TEST subcommands that let you specify addresses. And if you understand the TEST subcommands such as LIST, you know that it is of the form LIST address and even if you're listing a register, such as register 0, when you use LIST 0R the 0R is an address as far as the LIST command is concerned. Given that you know how to list a general register (0R), if you look in the Programming Guide you can find how to list a floating-point register (0E or 0D), or even how to list an access register. So that's the book I'd suggest you read, and here's a link to the section on specifying addresses: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ikj4b640/3.5.5?SHELF=all13be9DT=20100709161215 There's no need to try things such as L 0. AR(0) when you can just look up the right way to do it. You might even be able to simply guess the right syntax for listing an access register, from what I've said above, but the key point is that you're trying to list a register, and there is a common syntax for listing any kind of register. So when you want to list an access register you should be looking for something similar to how you'd list any other kind of register, and it will be a decimal register number followed by a character suffix, as the first operand of LIST. -- Walt -- 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: SVC 99 APF Authorized Library
Hi All I wish to make a comment regarding bypassing IBM intentions Yes I have worked for a few vendors And durning that time I have worked On products that • replace the FLIH for PGM checks • front ended SVC • front ended the DB2 SQL engine It's common practice for ISV to do Non vanilla non conforming code Maybe I am not a heavy weight like Edward jaffe , Rob Scott Peter Relson It biynamin ( sorry if I mispelled) But my coding isn't totally non conforming Thanks Sent from my iPhone On Jul 8, 2014, at 7:59 AM, Walter Farrell walt.farr...@gmail.com wrote: I really wish we knew what ISV he works for so everyone could avoid their products, or perhaps contact their management and tell them he's a seriously dangerous programmer. And yes, I wish no one would give him hints about bypassing the integrity checks. Regards, Walt On Jul 7, 2014 6:36 PM, Shmuel Metz shmuel+ibm-m...@patriot.net wrote: Offlist. In 1908540722417708.wa.walt.farrellgmail@listserv.ua.edu, on 07/07/2014 at 05:50 AM, Walt Farrell walt.farr...@gmail.com said: However, while running authorized you cannot do anything to allow a LOAD from the original DCB, which is for a non-APF-authorized concatenation. If he knew how he could, but I'm not willing to encourage it. I could do it[1] if I wanted, but it's hard to envision a situation where I would want to, and I'm certainly not going to tell untrained personnel how to do it. [1] I suspect that you already know how. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html 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: TSO Test does not support 65-bit (actually 64-bit) debugging?
Not the actual values Only the form L AED8. Ar(4) But you cann't display the Alet Sent from my iPhone On Jul 8, 2014, at 7:09 AM, Bob Shannon bshan...@rocketsoftware.com wrote: Why cann't you display the values of access registers I can. If you read the manual you can too. Bob Shannon Rocket Software Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial Email – unsubscr...@rocketsoftware.com Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SVC 99 APF Authorized Library
The library that I use in the SVC 99 is authorized Sent from my iPhone On Jul 7, 2014, at 12:44 AM, Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu wrote: On Sun, 6 Jul 2014 23:45:27 -0400, MichealButz wrote: I am getting 306 ABEND because my APF concatenation contains a NON authorized Library. IS it possible to remedy this (as I have a recovery routine) By Dynamic allocation of the dataset ? I believe not. You can allocate dynamically, but when you attempt to load a program from an unauthorized library the ABEND will occur. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SVC 99 APF Authorized Library
The SVC 99 works I just keep on getting a 306 abend Sent from my iPhone On Jul 7, 2014, at 2:25 AM, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: MichealButz wrote: I am getting 306 ABEND because my APF concatenation contains a NON authorized Library. What is the reason code in register 15? Please supply all CSV* messages you received. What is your z/OS version? IS it possible to remedy this (as I have a recovery routine) By Dynamic allocation of the dataset ? Perhaps not, but then it depends on reason code and whether you did your refreshes (T PROG= ) properly. How did you load (or what macro did you used) your module(s) in the first place? Groete / Greetings Elardus Engelbrecht -- 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: SVC 99 APF Authorized Library
I am getting a 306-0C as i was trying to load from steplib when one of the libs in the concatenation was not authorized to remedy the situation in my recovery routine I intercept the abend and prompt the user for a valid library I then dynamically allocate this library and when doing the load de= For on the dynamically allocated library my recovery routine intercepts the a 306 abend again Does this mean if I dynamically allocate a library the concatenation is invalid from the point of view of APF ? Sent from my iPhone On Jul 7, 2014, at 2:38 AM, Lizette Koehler stars...@mindspring.com wrote: As others have asked: Please provide the all of the CSV message. It will help us to help you. It you could provide complete information we would not have to guess or keep asking for the message text. Explanation: The error occurred during processing of a LINK(X), XCTL(X), ATTACH(X), or LOAD macro. An incorrect load to global request was attempted, or the authorized routine requested a module that could not be found in an authorized library. The module was found either in an unauthorized library or already loaded in storage but marked as coming from an unauthorized library. The reason code in register 15 identifies the error: Code Explanation 04 A LOAD macro requested, by the load to global option, a module residing in a library that is not authorized program facility (APF) authorized. 08 A LOAD macro requested, by the load to global option, a module that is not reentrant. 0C An authorized program requested, by a LINK(X), LOAD, XCTL(X) or ATTACH(X) macro, a module in a non-APF-authorized library or concatenation of libraries. 10 A LOAD macro requested, using the GLOBAL=(YES,F) keyword, a module that requires page alignment. 20 A job step module was found in a LNKLST data set that was not APF authorized; an APF authorized module was required. 24 An authorized service attempted, via a LINK(X), LOAD, XCTL(X), or ATTACH(X) macro, to access a copy of a load module which is non-reentrant and loaded from an authorized library by an unauthorized caller. Another copy of the module could not be found. 30 The user attempted to use a controlled program but is not authorized by RACF to use that program. This can occur when a user has EXECUTE access to a program library's data set profile, even if none of the program modules involved are RACF program protected. Have the system security administrator grant you READ access to the data set profile instead. 34 The user attempted to use a program while a program-accessed data set was open. 38 The user requested access to an in-storage program that is not RACF-controlled while a program access data set (PADS) was open. 40 Signature verification for the module being loaded was required but failed. 42 The user attempted to use a program that is not program-controlled, while a must remain controlled environment exists. System Action: The system issues an ABEND dump. The system issues a message depending on the reason code accompanying the abend: Code Message 04 CSV013I 08 CSV015I 0C CSV019I 10 CSV020I 20 CSV024I 24 CSV027I 30 CSV025I 34 CSV026I Application Programmer Response: If the requested module could not be found, make sure the module exists on a system or user-defined authorized library. Correct the error, and run the job step again. System Programmer Response: If the error recurs and the program is not in error, see the system programmer response for accompanying messages in the job log for more information. If the error recurs and the program is not in error, search problem reporting data bases for a fix for the problem. If no fix exists, contact the IBM Support Center. Provide the source input for the job. Source: Contents supervision (CSV) So which one was it? Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: Sunday, July 06, 2014 11:31 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SVC 99 APF Authorized Library The SVC 99 works I just keep on getting a 306 abend Sent from my iPhone On Jul 7, 2014, at 2:25 AM, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: MichealButz wrote: I am getting 306 ABEND because my APF concatenation contains a NON authorized Library. What is the reason code in register 15? Please supply all CSV* messages you received. What is your z/OS version? IS it possible to remedy this (as I have a recovery routine) By Dynamic allocation of the dataset ? Perhaps not, but then it depends on reason code and whether you did your refreshes (T PROG= ) properly. How did you load (or what macro did you used) your module(s) in the first place? Groete / Greetings Elardus Engelbrecht
Re: SVC 99 APF Authorized Library
I wrote the recovery in case there was an error and figured to give the user A second chance to enter the Dsn Sent from my iPhone On Jul 7, 2014, at 8:28 AM, Paul Gilmartin 000433f07816-dmarc-requ...@listserv.ua.edu wrote: On Mon, 7 Jul 2014 07:57:53 -0400, MichealButz wrote: The original AUTHPGM/CMD came from the TSOLIB I then did a load from steplib which had a non apf lb went to my recovery allocated a dsn got retddn that should work according to Walt Why not simply remove the non-authorized data sets from the STEPLIB concatenation since as it stands any attempt to load from STEPLIB is guaranteed to ABEND? (Or add your recovery DSN to TSOLIB?) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TSO Test does not support 65-bit (actually 64-bit) debugging?
Why cann't you display the values of access registers Sent from my iPhone On Jul 7, 2014, at 9:56 AM, Kirk Wolf k...@dovetail.com wrote: Is there a secret way to see the entire title of an RFE? Most of them are locked, and since you can only see a few words of the title, this data base is mostly useless. Kirk Wolf Dovetailed Technologies http://dovetail.com On Mon, Jul 7, 2014 at 2:14 AM, Timothy Sipples sipp...@sg.ibm.com wrote: I checked the IBM Request for Enhancements (RFE) database here: https://www.ibm.com/developerworks/rfe RFE # 47749 is in the database and appears to be a match for this request (64-bit support for TSO/E TEST). It's currently listed as Uncommitted Candidate which essentially means Yes, we think we'll get to it, but we're not sure when yet. Unfortunately RFE # 47749 is marked private, and I think the submitter classified it that way. As a general rule I would not mark RFEs private. If there's an enhancement you'd like to see IBM deliver, and if it isn't already in the RFE database, please feel free to add the request. When you do, consider carefully whether it really needs to be private. In most cases no, it does not. If you'd like to add RFE #47749 and/or any other RFEs to your watchlist to get an e-mail when any update occurs, you can do that at the same Web site. Timothy Sipples IT Architect Executive, zEnterprise Industry Solutions, AP/GCG/MEA E-Mail: sipp...@sg.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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IKJPOSIT question
The whole scenario was interactive Bottom line why when I use IKJPOSIT with DSNAME operand And I enter a 8 character load module does it come back with invalid keyword Sent from my iPhone On Jun 30, 2014, at 6:51 AM, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: MichealButz wrote: I am looking for to enter a string following a keyword towards that end I use IKJPOSIT SPACE,VALIDCK= Uhm, I'm not sure what you're saying? Could you be kind to post your statements? I am looking to enter program name which is up to a 8 byte character string How do you enter the name? via a parm? interactively? other way? When I enter the string it comes back to me IKJ56712I INVALID KEYWORD How did it come back to you? Interactively or in a batch job? How did you entered the string? Can you post a screen print and all and every error messages? I don't understand this as there isn't keyword it's a positional operand You are supplying way too few details in your post. Even poor Anthony Thompson kindly tried to help, but you still need to post more details. Tom Marchant gave you a hint in 'Re: CSVQUERY Anomaly' on 10 June 2014. Groete / Greetings Elardus Engelbrecht -- 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: IKJPOSIT question
THAT WAS IT Thanks Sent from my iPhone On Jun 30, 2014, at 9:45 AM, Walt Farrell walt.farr...@gmail.com wrote: On Mon, 30 Jun 2014 06:59:49 -0400, Micheal Butz michealb...@comcast.net wrote: The whole scenario was interactive Bottom line why when I use IKJPOSIT with DSNAME operand And I enter a 8 character load module does it come back with invalid keyword Because, I believe, positional operands must come before keyword operands. So anything entered after the first keyword operand must also be a keyword operand. -- Walt -- 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: IKJTSOxx Auth pgm cmds PC rtns
Thanks let me get to the point The program that creates the PC rtn Is the AUTHCMD/PGM so I cann't use IKJEFTSR However I am thinking the PC rtn might be able to Thanks Sent from my iPhone On Jun 27, 2014, at 10:30 AM, John McKown john.archie.mck...@gmail.com wrote: No. If the PC routine does not require APF authorization, then the IKJTSOnn AUTH... entry isn't relevant. As an example, the STORAGE macro does a PC to do its magic, not an SVC. But a program which uses the STORAGE macro doesn't need to be in the list(s) mentioned. Only programs which are linked as AC=1 and which you want to be invoked by TSO with APF authorization active need to be listed. On Fri, Jun 27, 2014 at 8:57 AM, MichealButz michealb...@comcast.net wrote: Hi, I know if you want to run authorized code under TSO you have to place it in IKJTSOxx AUTHCMD/PGM What if that code generates a PC rtn does TMP know of it Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IKJTSOxx Auth pgm cmds PC rtns
I'm starting authorized APF AUTHPGM Authcmd and like to issue certain TSO CDMA via IKJEFTSR And am unable because I'm in the AUTHPGM section of IKJTSOxx Sent from my iPhone On Jun 27, 2014, at 2:07 PM, Tony Harminc t...@harminc.net wrote: On 27 June 2014 10:38, Micheal Butz michealb...@comcast.net wrote: Thanks let me get to the point The program that creates the PC rtn Is the AUTHCMD/PGM so I cann't use IKJEFTSR However I am thinking the PC rtn might be able to I'm not clear on your environment. Are you starting off as an APF authorized TSO command? Or are you trying to use IKJEFTSR in a non-TSO environment? If the former, can't you just invoke the command directly via ATTACH or even LINK? I don't understand why you'd want to bring IKJEFTSR into the picture. Of course you shouldn't call just any old code if you are APF authorized, but if it's merely the PROFILE command, and it comes from an authorized library... Or, could you set up your command to be unauthorized, and then invoke a second authorized command to do your work, and separately, the PROFILE command? If the latter, why not use IKJTSOEV instead? 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: IKJTSOxx Auth pgm cmds PC rtns
Okay thanks It still doesn't make sense to me If inadvertently did something I am already authorized Sent from my iPhone On Jun 27, 2014, at 2:16 PM, Walt Farrell walt.farr...@gmail.com wrote: On Fri, 27 Jun 2014 11:01:36 -0400, MichealButz michealb...@comcast.net wrote: Rob,, I can't use the TSO service facility IKJEFTSR ( I would like issue certain non-authorized TSO commands) because my program is in IKJEFTSOxx AUTHPGM/CMD I know that PC rtn's are separate entities so I am looking for the PC rtn to use IKJEFTSR No, a PC routine is not a separate entity. When you issue a PC (just as when you issue an SVC) you continue to run as part of the task (TCB) that issued it. And any restrictions that apply to your authorized program would apply to the PC routine, too. You do not need to run the PROFILE command; just set the UPT flag bits yourself. (You should, of course, remember their original values before you change them, so you can restore them when you're done.) -- Walt -- 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: IKJTSOxx Auth pgm cmds PC rtns
Because I aurhorized and in authcmd Sent from my iPhone On Jun 27, 2014, at 4:59 PM, DanD mvs-j...@sympatico.ca wrote: What am I missing WHY can't you use IKJEFTSR? Dan -Original Message- From: MichealButz Sent: Friday, June 27, 2014 11:01 AM Newsgroups: bit.listserv.ibm-main Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Rob,, I can't use the TSO service facility IKJEFTSR ( I would like issue certain non-authorized TSO commands) because my program is in IKJEFTSOxx AUTHPGM/CMD I know that PC rtn's are separate entities so I am looking for the PC rtn to use IKJEFTSR -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Rob Scott Sent: Friday, June 27, 2014 10:52 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Are you trying to say that you have a TSO command processor that is attempting to define and own a PC routine using LXRES, ETDEF, ETCRE and ETCON ??? Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: 27 June 2014 15:38 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: IKJTSOxx Auth pgm cmds PC rtns Thanks let me get to the point The program that creates the PC rtn Is the AUTHCMD/PGM so I cann't use IKJEFTSR However I am thinking the PC rtn might be able to Thanks Sent from my iPhone On Jun 27, 2014, at 10:30 AM, John McKown wrote: No. If the PC routine does not require APF authorization, then the IKJTSOnn AUTH... entry isn't relevant. As an example, the STORAGE macro does a PC to do its magic, not an SVC. But a program which uses the STORAGE macro doesn't need to be in the list(s) mentioned. Only programs which are linked as AC=1 and which you want to be invoked by TSO with APF authorization active need to be listed. On Fri, Jun 27, 2014 at 8:57 AM, MichealButz wrote: Hi, I know if you want to run authorized code under TSO you have to place it in IKJTSOxx AUTHCMD/PGM What if that code generates a PC rtn does TMP know of it Thanks - -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: error invoking IKJEFTSR from Authotized progam
The first explanation fits my scenario My program is in the AUTHPGM section of IKJTSOxx the command profile nowtpmsg Is unauthorized command but so What does that mean because my Program is in the authcmd/PGM I cann't invoke a command that's not authorized Sent from my iPhone On Jun 24, 2014, at 11:42 AM, Binyamin Dissen bdis...@dissensoftware.com wrote: Look at the manual: 60(3C) One of the following occurred: v An authorized program or command requested that an unauthorized function be invoked. v An authorized program or command invoked the TSO/E service facility, but indicated that the requested function be invoked from an unauthorized environment. An authorized program must set the internal processing options flag (byte two of parameter one) to zero. On Tue, 24 Jun 2014 11:27:39 -0400 MichealButz michealb...@comcast.net wrote: :Hi, : : : :I know I get beat up for not doing my leg work but I researched this as best :I could : : : :I am trying to invoke a “PROFILE NOWTPMSG” : : : :And keep on getting a X’3C’ in the reason code parameter register 15 has a :X’14’ the return code parameter is -1 X’’ : : : :The following is my parameter list : : : :FLAGS DS 0F FULLWORD OF FLAGS : :RESFLAGS DC H'' ESTABLISH AUTHOIZED : :ABFLAGS DC X'00' PRODUCE A DUMP IF F : :FNCFLAGS DC X'05' INVOKE A TSO/E CMD, : :CMDBUFDC C'PROFILE NOWTPMSG' COMMAND BUFFER : :BUFLENDC A(L'CMDBUF) LENGTH OF COMMAND BUF : :RETCODDS F FUNCTION RETURN CODE : :RSNCODDS F FUNCTION REASON CODE : :ABNCODE DS F FUNCTION ABEND CODE : : : :Here is my call : : : :L R15,CVTPTR : : L R15,CVTTV(,R15) : : L R15,TSVTASF-TSVT(,R15) : : CALL (15),(FLAGS,CMDBUF,BUFLEN,RETCOD,RSNCOD,ABNCODE),VL : :* : : 3C reason code says the following : : : : One of the following occurred: : : ° An authorized program or command requested that an :unauthorized function be invoked. : :° An authorized program or command invoked the TSO/E :service facility, but indicated that the requested function be :invoked from an unauthorized environment. : : An authorized program must set the internal :processing options flag (byte two of parameter one)to zero. : : : :Thanks : : :-- :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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: error invoking IKJEFTSR from Authotized progam
I did set it to zero Sent from my iPhone On Jun 24, 2014, at 1:51 PM, Micheal Butz michealb...@comcast.net wrote: The first explanation fits my scenario My program is in the AUTHPGM section of IKJTSOxx the command profile nowtpmsg Is unauthorized command but so What does that mean because my Program is in the authcmd/PGM I cann't invoke a command that's not authorized Sent from my iPhone On Jun 24, 2014, at 11:42 AM, Binyamin Dissen bdis...@dissensoftware.com wrote: Look at the manual: 60(3C) One of the following occurred: v An authorized program or command requested that an unauthorized function be invoked. v An authorized program or command invoked the TSO/E service facility, but indicated that the requested function be invoked from an unauthorized environment. An authorized program must set the internal processing options flag (byte two of parameter one) to zero. On Tue, 24 Jun 2014 11:27:39 -0400 MichealButz michealb...@comcast.net wrote: :Hi, : : : :I know I get beat up for not doing my leg work but I researched this as best :I could : : : :I am trying to invoke a “PROFILE NOWTPMSG” : : : :And keep on getting a X’3C’ in the reason code parameter register 15 has a :X’14’ the return code parameter is -1 X’’ : : : :The following is my parameter list : : : :FLAGS DS 0F FULLWORD OF FLAGS : :RESFLAGS DC H'' ESTABLISH AUTHOIZED : :ABFLAGS DC X'00' PRODUCE A DUMP IF F : :FNCFLAGS DC X'05' INVOKE A TSO/E CMD, : :CMDBUFDC C'PROFILE NOWTPMSG' COMMAND BUFFER : :BUFLENDC A(L'CMDBUF) LENGTH OF COMMAND BUF : :RETCODDS F FUNCTION RETURN CODE : :RSNCODDS F FUNCTION REASON CODE : :ABNCODE DS F FUNCTION ABEND CODE : : : :Here is my call : : : :L R15,CVTPTR : : L R15,CVTTV(,R15) : : L R15,TSVTASF-TSVT(,R15) : : CALL (15),(FLAGS,CMDBUF,BUFLEN,RETCOD,RSNCOD,ABNCODE),VL : :* : : 3C reason code says the following : : : : One of the following occurred: : : ° An authorized program or command requested that an :unauthorized function be invoked. : :° An authorized program or command invoked the TSO/E :service facility, but indicated that the requested function be :invoked from an unauthorized environment. : : An authorized program must set the internal :processing options flag (byte two of parameter one)to zero. : : : :Thanks : : :-- :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 -- 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: LISTA data in a SVC dump
The LISTA parameter of SDUMP I referenced data in another address space what IPCS command could I use to find it Thanks Sent from my iPhone On Jun 16, 2014, at 6:28 AM, Don Poitras sas...@sas.com wrote: Do you mean something analogous to the LISTA TSO command? If so, try SYS1.SBLSCLI0(IEFDDSUM). e.g. on the IPCS command line with the dump open, issue: IP IEFDDSUM In article !!AAAYADO3kaXBOTJGmkWYxtxnvxbCgAAAEKq0BAYS3xBMsL0zpf+R1vkBAA==@comcast.net you wrote: Hi, Would anyone know the command to use to find the data referenced by the LISTA parameter in a IPCS dump Thanks -- Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive sas...@sas.com (919) 531-5637Cary, NC 27513 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CSVQUERY Anomaly
Thanks I was using PROGXX Sent from my iPhone On Jun 10, 2014, at 8:05 AM, Peter Relson rel...@us.ibm.com wrote: I set a program in all 3 places of LPA modified,fixed,pageable via the SETPROG console command No you didn't. via ...SETPROG is mutually exclusive with 3 places of LPA. MLPA is defined at IPL-time only, by the IEALPAxx parmlib member. FLPA is defined at IPL-time only, by the IEAFIXxx parmlib member. PLPA is defined at IPL-time only, by the data sets comprising the LPALST The storage ranges for those areas are determined at IPL time. Anything added by SETPROG is dynamic LPA, and the module storage comes from CSA. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: CSVQUERY Anomaly
1.13 Sent from my iPhone On Jun 9, 2014, at 5:21 AM, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: MichealButz wrote: I set a program in all 3 places of LPA modified,fixed,pageable via the SETPROG console command however in all instances the CSVQUERY returns a X'04' in ATTR3 byte On what z/OS version are you? Indicating the program is in CSA. Additionally I added the OUTVALID param and it indicates that all three attribute bytes are valid Could you be kind to post the full SETPROG command and the CSVQUERY macro? However, I'm suspecting Greg Price hit the nail on the head. Groete / Greetings Elardus Engelbrecht -- 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: CSVQUERY Anomaly
Did both but I still only get x'04' from attr3 Sent from my iPhone On Jun 9, 2014, at 7:20 AM, Walt Farrell walt.farr...@gmail.com wrote: On Mon, 9 Jun 2014 05:43:29 -0400, MichealButz michealb...@comcast.net wrote: It still is referenced by common below is my PROG01 entry LPA ADD MODNAME(USERMOD) DSNAME(USER.TEST.LOAD) FIXED So, did you add it via a SETPROG command or not? -- Walt -- 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
Communicating with CSVLLIX1 thru TCBUSER
Hi, The installation exit guide says that CSVLLIX1 get control under any task that issues a link load attach or XCTL Does that mean I can communicate with the exit via TCBUSER using PSATOLD as the TCB Thanks Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
LOAD DE= generates the CSV019I abend
Hi, It seems anytime I use the load using the directory entry format I get the CSV019I abend load ep= works fine Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Communicating with CSVLLIX1 thru TCBUSER
I have observed that it's not the same TCB Thanks for your help I think can communicate to CSVLLIX1 via the param field on the CSVDYNEX macro On the add option Thanks again Sent from my iPhone On May 29, 2014, at 12:06 PM, John McKown john.archie.mck...@gmail.com wrote: For such, I would suggest looking at the name/token services. You can assign a name/token either: (1) image-wide (APF auth needed); (2) per address space (home or primary); or (3) per TCB. Of course, they you do need to come up with a unique, 16 byte (better - octet), name. I no longer see any desirability to using ASCBUSER or TCBUSER for anything. Mainly because of the possibility of two separate users wanting to use them. On Thu, May 29, 2014 at 10:33 AM, Ed Jaffe edja...@phoenixsoftware.com wrote: On 5/29/2014 7:12 AM, Micheal Butz wrote: The installation exit guide says that CSVLLIX1 get control under any task that issues a link load attach or XCTL Does that mean I can communicate with the exit via TCBUSER using PSATOLD as the TCB If you're writing this for in-house use only, TCBUSER is fair game if it's not currently being used by any other in-house-written code. If you're writing this for distribution into the field, then TCBUSER is off the table entirely. It's not your field to use. -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: LOAD DE= generates the CSV019I abend
I point to the name field I am going to try eploc and see what happens Thanks Sent from my iPhone On May 29, 2014, at 10:09 PM, Walt Farrell walt.farr...@gmail.com wrote: On Thu, 29 May 2014 10:15:37 -0400, Micheal Butz michealb...@comcast.net wrote: It seems anytime I use the load using the directory entry format I get the CSV019I abend load ep= works fine Have you investigated the possibility that your DE information may be incorrect? If so, what have you done to verify its validity? -- Walt -- 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: An LLA managed dataset automatically generates CSV019I abend
The program I am running is in the AUTHNAME /AUTHCMD the loaded Program is not the loaded program comes from an APF authorized load lib and is link edited AC=1 Sent from my iPhone On May 28, 2014, at 10:57 AM, Jon Perryman jperr...@pacbell.net wrote: TSO has special requirements for running authorized programs. You may need to add an AUTHPGM or AUTHCMD statement. Have you tried this outside the TSO environment? Jon Perryman On Wednesday, May 28, 2014 7:42 AM, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: MichealButz wrote: During my testing I have found that whether my load library is in a APF authorized steplib or not e.g. TSOLIB having it LLA managed automatically generates the CSV019I abend -- 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: An LLA managed dataset automatically generates CSV019I abend
I just updated ikjtso00 did a set IKJTSOxx=00 and still got the CSV019I I'll look into the suggestions some more Thanks Sent from my iPhone On May 28, 2014, at 11:08 AM, Micheal Butz michealb...@comcast.net wrote: The program I am running is in the AUTHNAME /AUTHCMD the loaded Program is not the loaded program comes from an APF authorized load lib and is link edited AC=1 Sent from my iPhone On May 28, 2014, at 10:57 AM, Jon Perryman jperr...@pacbell.net wrote: TSO has special requirements for running authorized programs. You may need to add an AUTHPGM or AUTHCMD statement. Have you tried this outside the TSO environment? Jon Perryman On Wednesday, May 28, 2014 7:42 AM, Elardus Engelbrecht elardus.engelbre...@sita.co.za wrote: MichealButz wrote: During my testing I have found that whether my load library is in a APF authorized steplib or not e.g. TSOLIB having it LLA managed automatically generates the CSV019I abend -- 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: LLA questions
Yes thru TASID Sent from my iPhone On May 27, 2014, at 11:36 AM, Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: In !!AAAYADO3kaXBOTJGmkWYxtxnvxbCgAAAELxLJC1Dd/tBll+JHX3man8BAA==@comcast.net, on 05/26/2014 at 07:37 PM, MichealButz michealb...@comcast.net said: I have an APF authorized library, That is LLA managed via LIBRARIES statement in CSVLLAXX in parmlib Have you verified that it is indeed authroized? I am getting CSV019I (Library not accessed from a APF lib) abend even though the dataset is in my APF authorized steplib Have you verified that *every* library in the concatenation is authorized? L do a BLDL before I do a load DE of the module does it the exit get invoked when I do the bldl ? No. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html 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
Where can CSVLLIX1 reside
The doc says that when specifying stoken on the CSVDYNEX macro The exit can reside in the private area Of the user address space The caveat is that if the exit gets control in key 0 it cann't reside in storage with a key of 8 - 15 For csvllix1 the exit manual says It get control in supervisor state But says nothing of the storage key Does this mean CSVLLiX1 can reside anywhere in private Thanks Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: TPUT in FULLSCR problems
That was it thanks I got a dump But that's a different issue Sent from my iPhone On May 24, 2014, at 1:41 AM, Greg Price greg.pr...@optushome.com.au wrote: On 24/05/2014 7:16 AM, Gerhard Postpischil wrote: E77F is row 32, position 80 (relative to 1,1) ISTR that TCAM had some SBA order protocol that was recognized for full screen admin (TCAM escape sequences ??), which was not required in a VTAM context because of explicit SVC 94 VTAM macros to perform such functions. Any truth to this, or did I just make it up? Anyway, re the OP's concern, the changing font size indicates changing screen dimensions. Ergo, there are two screen sizes involved (the primary and the alternate) which are different, and the thing that expects the larger size gets the error when the terminal is switched to the smaller size. I will hazard that the situation is as follows: 1. User logs on to a 32x80 screen, and gets into ISPF or stays at the READY prompt. 2. User cranks up the full screen app under discussion which issues a full screen TPUT switching the screen to 24x80. 3. The full screen app terminates leaving the screen in the primary screen size (24x80). 4. ISPF or the TMP resume control, and a TPUT with an order such as SBA or RA is issued which is intended to address the highest screen location. This location is larger than the current screen size and an error ensues. The solution? Put the screen size back to the way it was when the full screen app received control before terminating. I am confident that replacing the STFSMODE OFF with STLINENO 1,MODE=OFF would fix it when the app is running from the READY prompt. Or at least I would be, except that I now see there is such a macro listed in the posted code after the STFSMODE ON and before the TPUT FULLSCR. Since the FM indicates that MODE=OFF is the default for STLINENO, the app's full screen I/O does NOT operate under VTAM's (screen) page protection, and the STFSMODE OFF at the end is a no-op. That is, I conclude that the TPUT FULLSCR altered screen size while in line mode without telling the TMP. Naughty, naughty [waving finger in admonishment]. :) So, simply removing the STLINENO macro may fix it. Perhaps the next screen management enhancement which could be slated for this app is to detect that if the screen has 80 columns then avoid any screen size change at all? (That is, tolerate 80 column screens with more than 24 lines. If you want to repeat blanks or nulls or any character to the end of the screen, use RA to location zero - this works for every screen size.) Cheers, Greg -- 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: TPUT in FULLSCR problems
I checked my out buffer that's not my code the proof being my display displays correctly It's after I hit enter that the problems occurs Sent from my iPhone On May 23, 2014, at 5:53 PM, Gerhard Postpischil gerha...@charter.net wrote: On 5/23/2014 4:37 PM, MichealButz wrote: I am using TPUT in FULLSCR and I am getting a message back from my terminal emulator VISTA3270 'INVLAID BUFFER ADDRESS RECEIVED 11E7 7F' I am convinced there is nothing wrong with my TPUT output buffer as E77F is row 32, position 80 (relative to 1,1), so it exceeds the default model 2 size. If you are running on a model 3 or 4, then your CCW code is wrong, otherwise your buffer is incorrect, regardless of how convinced you are of its correctness. Gerhard Postpischil Bradford, Vermont -- 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: TSO 3270 Data Stream question
Yes I have as I was running under TESTAUTH Sent from my iPhone On May 15, 2014, at 2:30 PM, Gerhard Postpischil gerha...@charter.net wrote: On 5/15/2014 9:41 AM, MichealButz wrote: After which my TSO terminal emulater gives me error invald buffer address 2260 as I have a 24 x 80 screen wih 1.920 postions the sba code is E3 D4 Listed below ithe code used to translate the the row and column Have you actually dumped the buffer when you got the error? Perhaps storage got clobbered? Your code should work, but is horribly inefficient. Try: SET_BUFFL R0,ROW L R1,COL BCTR R0,0 BCTR R1,0 MHR0,=H'80' ARR0,R1 SRDL R0,6 SRL R1,2 SRDL R0,6 SRL R1,2 STCM R1,B'1100',SBACMD (or STH) TRSBACMD(2),TABLE BRXLNK Also I would replace the =H'80' by a variable, allowing you to use the code for different geometries (e.g., 27*132) Gerhard Postpischil Bradford, Vermont -- 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: TSO 3270 Data Stream question
Can anyone give me an idea of how to make sense of the table E.G pos 1 or O is X'40' Sent from my iPhone On May 15, 2014, at 2:47 PM, Gerhard Postpischil gerha...@charter.net wrote: On 5/15/2014 2:33 PM, Micheal Butz wrote: Yes I have as I was running under TESTAUTH E3D4 gives me row 29 column 21, not what you wanted. Row 5 column 1 is C540 So either your conversion doesn't work, or your buffer is getting clobbered. Gerhard Postpischil Bradford, Vermont -- 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: TSO 3270 Data Stream question
Yes but why these printable ebcdic codes Sent from my iPhone On May 15, 2014, at 3:02 PM, Alan Field alan_c_fi...@bluecrossmn.com wrote: Perhaps this will help: /*rexx*/ /* Generate 3270 codes for cursor positioning */ arg row column scrwidth if scrwidth = '' then scrwidth = 80 codes = 40 C1 C2 C3 C4 C5 C6 C7 C8 C9 4A 4B 4C 4D 4E 4F, 50 D1 D2 D3 D4 D5 D6 D7 D8 D9 5A 5B 5C 5D 5E 5F, 60 61 E2 E3 E4 E5 E6 E7 E8 E9 6A 6B 6C 6D 6E 6F, F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 7A 7B 7C 7D 7E 7F sba = (row*scrwidth)+(column)-(scrwidth+1) sba = d2x(sba,4) sba = x2b(sba) sba1 = x2d(b2x(substr(sba,5,6)))+1 sba2 = x2d(b2x(substr(sba,11,6)))+1 sba1 = word(codes,sba1) sba2 = word(codes,sba2) say DCX'11,sba1,sba2' Alan Field Technical Engineer Principal BCBS Minnesota Phone: 651.662.3546 Mobile: 651.428.8826 From: Micheal Butz michealb...@comcast.net To: IBM-MAIN@LISTSERV.UA.EDU, Date: 05/15/2014 13:59 Subject:Re: TSO 3270 Data Stream question Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Can anyone give me an idea of how to make sense of the table E.G pos 1 or O is X'40' Sent from my iPhone On May 15, 2014, at 2:47 PM, Gerhard Postpischil gerha...@charter.net wrote: On 5/15/2014 2:33 PM, Micheal Butz wrote: Yes I have as I was running under TESTAUTH E3D4 gives me row 29 column 21, not what you wanted. Row 5 column 1 is C540 So either your conversion doesn't work, or your buffer is getting clobbered. Gerhard Postpischil Bradford, Vermont -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: 378-14 Abend In TSO Verify exit
Excellent I allocate SYSUDUMP to my logon proc Sent from my iPhone On May 12, 2014, at 10:09 AM, Binyamin Dissen bdis...@dissensoftware.com wrote: Why not simply examine the dump. That will show what is doing the freemain! On Mon, 12 May 2014 14:07:24 + Vernooij, CP (SPLXM) - KLM kees.verno...@klm.com wrote: :378-14 Private area storage is not in the specified subpool, is not in : the specific key or is not owned by the specified task. : :You say: Later on I delete the exit and free up the storage : :Is the storage freed by another task, that does not own the storage? : :Kees. : :-Original Message- :From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of MichealButz :Sent: Monday, May 12, 2014 15:52 :To: IBM-MAIN@LISTSERV.UA.EDU :Subject: 378-14 Abend In TSO Verify exit : :Hi, : : : :I have TSO verify exit in which I am enabling LLA exit CSVLLIX1 exit and then deleting it this seems intermittently to cause a 378-14 abend : : : :Below is the code : : : :* : : * Add LLA exit CSVLLIX1 in case module is LLA MANAGED : : * : : * LOAD PROGRAM : -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Autorization Code Question
Did a explicit load ep= And it didn't abend Sent from my iPhone On Apr 28, 2014, at 6:36 PM, Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: In 13124718-8ee3-4c31-8feb-bd43bc571...@comcast.net, on 04/28/2014 at 01:48 PM, Micheal Butz michealb...@comcast.net said: I think my problem maybe that I am doing a LOAD DE= after the BLDL The DE may not be kosher for APF DE is fine. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html 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: Autorization Code Question
Load de ended with I believe CSV028I not in APF concatenation Sent from my iPhone On Apr 29, 2014, at 8:23 AM, Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: In 060650a7-d2a2-4313-8191-8f57c9a9b...@comcast.net, on 04/29/2014 at 07:28 AM, Micheal Butz michealb...@comcast.net said: Did a explicit load ep= And it didn't abend I'm confused; I thought that you had successfully done a LOAD DE= but that it had an unexpected value in R1. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html 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: Autorization Code Question
But the AC code is in R1 I am getting a csv028i abend under TESTAUTH that the loaded module didn't come from a APF authorized lib I have 2 load lobs in steplib one is APF from PROGXX the other where the load module comes from is Authorized via setprog I abend after the load Thanks Sent from my iPhone On Apr 28, 2014, at 8:42 AM, J R jayare...@hotmail.com wrote: No, the module address is in R0. === Date: Mon, 28 Apr 2014 00:06:34 -0400 From: hal9...@panix.com Subject: Re: Autorization Code Question To: IBM-MAIN@LISTSERV.UA.EDU At 22:46 -0400 on 04/27/2014, MichealButz wrote about Autorization Code Question: I have a module in APF authorized Library that is linkedit AC=1 when I load this module shouldn't the high order byte of R1 be X'01' I do not think the APF Flag can be there. R1 is the where the module is loaded and the high byte needs to be part of the address in AMODE31. Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Autorization Code Question
Yes I did Both libs in the steplib are APF auth One PROGXX one dynamic via setprog double checked the Dsn and vol as I know setprog doesn't do validity checking Thanks Sent from my iPhone On Apr 28, 2014, at 9:38 AM, Nims,Alva John (Al) ajn...@ufl.edu wrote: Question: Is this being run under a TSO session? If so, did you logoff and back on again after the SETPROG was done? Al Nims Systems Admin/Programmer 3 Information Technology University of Florida (352) 273-1298 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: Monday, April 28, 2014 12:29 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Autorization Code Question Prior to this I got an error running under TESTAUTH that the module was loaded from an non-APF authorize data set Apparently this is the problem Sent from my iPhone On Apr 28, 2014, at 12:23 AM, Jon Perryman jperr...@pacbell.net wrote: Yes as long as all datasets in steplib or joblib are APF authorized. Jon Perryman. - Original Message - From: MichealButz michealb...@comcast.net I have a module in APF authorized Library that is linkedit AC=1 when I load this module shouldn't the high order byte of R1 be X'01' -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Autorization Code Question
I just had a thought I am running this under TSO does the loaded program have to be in the authcmd/AUTHPGM of IKJTSOxx parmlib Sent from my iPhone On Apr 28, 2014, at 10:25 AM, Nims,Alva John (Al) ajn...@ufl.edu wrote: Hmm, that was my quick thought, the only other one that I could offer up is this, is the data set SMS, but in the PROGxx member it is specified with VOL(xx) or VOLUME(xx)? I think that can get you in trouble even if you specify the volume it is on. Last of all, does the MVS operator command, D PROG,APF show your data set in the list? Both data sets? I know, silly question, but sometimes when you do this and it does not show up, well, something that you thought was supposed to have work, did not. Al Nims Systems Admin/Programmer 3 Information Technology University of Florida (352) 273-1298 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: Monday, April 28, 2014 9:50 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Autorization Code Question Yes I did Both libs in the steplib are APF auth One PROGXX one dynamic via setprog double checked the Dsn and vol as I know setprog doesn't do validity checking Thanks Sent from my iPhone On Apr 28, 2014, at 9:38 AM, Nims,Alva John (Al) ajn...@ufl.edu wrote: Question: Is this being run under a TSO session? If so, did you logoff and back on again after the SETPROG was done? Al Nims Systems Admin/Programmer 3 Information Technology University of Florida (352) 273-1298 -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: Monday, April 28, 2014 12:29 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Autorization Code Question Prior to this I got an error running under TESTAUTH that the module was loaded from an non-APF authorize data set Apparently this is the problem Sent from my iPhone On Apr 28, 2014, at 12:23 AM, Jon Perryman jperr...@pacbell.net wrote: Yes as long as all datasets in steplib or joblib are APF authorized. Jon Perryman. - Original Message - From: MichealButz michealb...@comcast.net I have a module in APF authorized Library that is linkedit AC=1 when I load this module shouldn't the high order byte of R1 be X'01' - - For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- 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: Autorization Code Question
I think my problem maybe that I am doing a LOAD DE= after the BLDL The DE may not be kosher for APF Authorization Sent from my iPhone On Apr 28, 2014, at 1:43 PM, J R jayare...@hotmail.com wrote: I know. I was responding to Mr. Rosenberg's comment. === Date: Mon, 28 Apr 2014 09:15:40 -0400 From: michealb...@comcast.net Subject: Re: Autorization Code Question To: IBM-MAIN@LISTSERV.UA.EDU But the AC code is in R1 I am getting a csv028i abend under TESTAUTH that the loaded module didn't come from a APF authorized lib I have 2 load lobs in steplib one is APF from PROGXX the other where the load module comes from is Authorized via setprog I abend after the load Thanks Sent from my iPhone On Apr 28, 2014, at 8:42 AM, J R jayare...@hotmail.com wrote: No, the module address is in R0. === Date: Mon, 28 Apr 2014 00:06:34 -0400 From: hal9...@panix.com Subject: Re: Autorization Code Question To: IBM-MAIN@LISTSERV.UA.EDU At 22:46 -0400 on 04/27/2014, MichealButz wrote about Autorization Code Question: I have a module in APF authorized Library that is linkedit AC=1 when I load this module shouldn't the high order byte of R1 be X'01' I do not think the APF Flag can be there. R1 is the where the module is loaded and the high byte needs to be part of the address in AMODE31. Thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- 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: Autorization Code Question
Prior to this I got an error running under TESTAUTH that the module was loaded from an non-APF authorize data set Apparently this is the problem Sent from my iPhone On Apr 28, 2014, at 12:23 AM, Jon Perryman jperr...@pacbell.net wrote: Yes as long as all datasets in steplib or joblib are APF authorized. Jon Perryman. - Original Message - From: MichealButz michealb...@comcast.net I have a module in APF authorized Library that is linkedit AC=1 when I load this module shouldn't the high order byte of R1 be X'01' -- 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
Getting into ISPF/Edit from TSO
Hi, Running a Rexx exec from the READY prompt and creating a dataset would anyone know how to display it in ISPF/Edit Thanks Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Getting into ISPF/Edit from TSO
Thanks I did an altlib command for the Rexx exec but I am still getting an error Message command not found Sent from my iPhone On Apr 2, 2014, at 4:39 PM, John McKown john.archie.mck...@gmail.com wrote: You'll need to start up ISPF from the REXX program pass it the proper parameters. I would create a second REXX program which does the EDIT. Then have the first REXX program start up ISPF with something like: ISPSTART CMD(%REDIT dsn.to.edit) Where REDIT would be something akin to: /* rexx */ parse dsn . address ispexec edit dataset(dsn) Unfortunately, I don't know if ISPF terminates when the user exits the EDIT, or if it goes back to the the ISPF primary option menu. I would _hope_ the former (terminates). On Wed, Apr 2, 2014 at 3:31 PM, Micheal Butz michealb...@optonline.netwrote: Hi, Running a Rexx exec from the READY prompt and creating a dataset would anyone know how to display it in ISPF/Edit Thanks Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Getting into ISPF/Edit from TSO
I am doing this from the ready prompt After login proc executed so all the libraries are allocated Sent from my iPhone On Apr 2, 2014, at 6:36 PM, Dave Salt ds...@hotmail.com wrote: Are all of the ISPF libraries allocated (panels, messages, profile, etc)? You'll need the regular IBM supplied ISPF libraries allocated as well as any libraries that contain your own dialog before invoking ISPF. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Wed, 2 Apr 2014 18:28:17 -0400 From: michealb...@optonline.net Subject: Re: Getting into ISPF/Edit from TSO To: IBM-MAIN@LISTSERV.UA.EDU Thanks I did an altlib command for the Rexx exec but I am still getting an error Message command not found Sent from my iPhone On Apr 2, 2014, at 4:39 PM, John McKown john.archie.mck...@gmail.com wrote: You'll need to start up ISPF from the REXX program pass it the proper parameters. I would create a second REXX program which does the EDIT. Then have the first REXX program start up ISPF with something like: ISPSTART CMD(%REDIT dsn.to.edit) Where REDIT would be something akin to: /* rexx */ parse dsn . address ispexec edit dataset(dsn) Unfortunately, I don't know if ISPF terminates when the user exits the EDIT, or if it goes back to the the ISPF primary option menu. I would _hope_ the former (terminates). On Wed, Apr 2, 2014 at 3:31 PM, Micheal Butz michealb...@optonline.netwrote: Hi, Running a Rexx exec from the READY prompt and creating a dataset would anyone know how to display it in ISPF/Edit Thanks Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- There is nothing more pleasant than traveling and meeting new people! Genghis Khan Maranatha! John McKown -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- 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: Getting into ISPF/Edit from TSO
Forgot the reuse Sent from my iPhone On Apr 2, 2014, at 9:57 PM, Jon Perryman jperr...@pacbell.net wrote: You didn't give any details on the commands being issued. One of the follow should work: alloc ddn(sysuproc) dsn('.clist') shr reuse altlib activate user(clist) Or altlib activate appl(clist) dataset('.clist') Jon Perryman. From: Micheal Butz michealb...@optonline.net To: IBM-MAIN@LISTSERV.UA.EDU Sent: Wednesday, April 2, 2014 3:28 PM Subject: Re: Getting into ISPF/Edit from TSO Thanks I did an altlib command for the Rexx exec but I am still getting an error Message command not found -- 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: Rexx substr not retiring string
That was it thanks Sent from my iPhone On Apr 1, 2014, at 7:26 AM, Andrew Armstrong androidarmstr...@gmail.com wrote: Missing a . after the stem name. Try: execio * DISKW outds (finis stem outvar. -- 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: Rexx substr not retiring string
You were right Sent from my iPhone On Apr 1, 2014, at 5:35 PM, George, William@FTB bill.geo...@ftb.ca.gov wrote: Without seeing your code I'll guess you don't have your single and double quotes correct. -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: Tuesday, April 01, 2014 2:31 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Rexx substr not retiring string I just did that I assigned the final value to outvar.0 And get a error message positional paramter not valid Sent from my iPhone On Apr 1, 2014, at 4:24 PM, Dale R. Smith dale-sm...@columbus.rr.com wrote: On Tue, 1 Apr 2014 14:40:40 -0400, Micheal Butz michealb...@optonline.net wrote: That was it thanks Sent from my iPhone On Apr 1, 2014, at 7:26 AM, Andrew Armstrong androidarmstr...@gmail.com wrote: Missing a . after the stem name. Try: execio * DISKW outds (finis stem outvar. Just a word of caution, you should never use * for the number of records to write with DISKW when using the STEM option. By REXX definition/usage a stem of the form stemname. should have a count of the entries in the stem in variable stemname.0. So in your example, outvar.0 should contain the number of entries in the outvar. stem. If you are creating outvar. yourself, then you must keep count of the number of entries you are creating and set outvar.0 to that number when you are done. Your EXECIO command should then look like this: 'EXECIO' outvar.0 'DISKW OUTDS (FINIS STEM OUTVAR.' So why not use *? It will work most of the time and some of you are probably using it now with no problems. From the TSO REXX Reference on EXECIO: STEM var-name the stem of the list of variables from which information is to be written. To write information from compound variables, which allow for indexing, the var-name should end with a period, MYVAR., for example. When three lines are written to the data set, they are taken from MYVAR.1, MYVAR.2, MYVAR.3. When * is specified as the number of lines to write, the EXECIO command stops writing information to the data set when it finds a null line or an uninitialized compound variable. In this case, if the list contained 10 compound variables, the EXECIO command stops at MYVAR.11. The 0th variable has no effect on controlling the number of lines written from variables. . . . . Let's say you have a REXX program that reads several different files/members and writes those files/members to different outputs. You read the file/member into a stem using DISKR and write the same stem out using DISKW and *. 'EXECIO * DISKR FILEIN (FINIS STEM REC.' /* Lets say 20 records were read, rec.0 = 20 */ 'EXECIO * DISKW FILEOUT (FINIS STEM REC.' /* Writes 20 records out because rec.21 is unassigned rec.21 = 'REC.21' */ (allocate new files to FILEIN and FILEOUT) 'EXECIO * DISKR FILEIN (FINIS STEM REC.' /* Lets say 10 records were read, rec.0 = 10 */ 'EXECIO * DISKW FILEOUT (FINIS STEM REC.' /* Writes 20 records out! rec.1-rec.10 from current file, rec.11-rec.20 from previous file! */ 'EXECIO' rec.0 'DISKW FILEOUT (FINIS STEM REC.' /* Writes 10 records out */ Of course, you could do a REXX Drop rec. command between the reads and that would allow * to work, but why bother? -- Dale R. Smith -- 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 __ CONFIDENTIALITY NOTICE: This email from the State of California is for the sole use of the intended recipient and may contain confidential and privileged information. Any unauthorized review or use, including disclosure or distribution, is prohibited. If you are not the intended recipient, please contact the sender and destroy all copies of this email. -- 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
Rexx calling clist
Hi I took many if your suggestion that in order to get my TSOLIB working have it sitting a clist I coded the simplest possible Rexx exec /* Rexx */ Call CLISTLIB Address TSO LISTALC The CLISTLIB Proc 0 TSOLIB The clist fails horribly it is called by the Rexx exec as I turn on tracing But the proc statement I get invalid command And the TSOLIB I get invalid syntax seems it thinks the clist is a Rexx exec even thought I don't have /* Rexx */ coded in the clist Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rexx calling clist
That's not it I had it in caps For some reason it's not recognizing my clist as a clist Sent from my iPhone On Mar 31, 2014, at 6:18 PM, Dave Salt ds...@hotmail.com wrote: It's been a long time since I coded CLIST but I think Proc should be PROC. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 31 Mar 2014 18:12:18 -0400 From: michealb...@optonline.net Subject: Rexx calling clist To: IBM-MAIN@LISTSERV.UA.EDU Hi I took many if your suggestion that in order to get my TSOLIB working have it sitting a clist I coded the simplest possible Rexx exec /* Rexx */ Call CLISTLIB Address TSO LISTALC The CLISTLIB Proc 0 TSOLIB The clist fails horribly it is called by the Rexx exec as I turn on tracing But the proc statement I get invalid command And the TSOLIB I get invalid syntax seems it thinks the clist is a Rexx exec even thought I don't have /* Rexx */ coded in the clist Sent from my iPhone -- 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: Rexx calling clist
Clist calling Rexx works Sent from my iPhone On Mar 31, 2014, at 6:53 PM, Steve Comstock st...@trainersfriend.com wrote: Try EXEC'ing your CLIST, maybe exec 'library(clistlib)' clist -Steve Comstock On 3/31/2014 4:37 PM, Micheal Butz wrote: That's not it I had it in caps For some reason it's not recognizing my clist as a clist Sent from my iPhone On Mar 31, 2014, at 6:18 PM, Dave Salt ds...@hotmail.com wrote: It's been a long time since I coded CLIST but I think Proc should be PROC. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 31 Mar 2014 18:12:18 -0400 From: michealb...@optonline.net Subject: Rexx calling clist To: IBM-MAIN@LISTSERV.UA.EDU Hi I took many if your suggestion that in order to get my TSOLIB working have it sitting a clist I coded the simplest possible Rexx exec /* Rexx */ Call CLISTLIB Address TSO LISTALC The CLISTLIB Proc 0 TSOLIB The clist fails horribly it is called by the Rexx exec as I turn on tracing But the proc statement I get invalid command And the TSOLIB I get invalid syntax seems it thinks the clist is a Rexx exec even thought I don't have /* Rexx */ coded in the clist Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Rexx calling clist
Right !!! Sent from my iPhone On Mar 31, 2014, at 7:03 PM, Steve Comstock st...@trainersfriend.com wrote: On 3/31/2014 4:54 PM, Micheal Butz wrote: Clist calling Rexx works But isn't your example REXX calling CLIST? That doesn't work. -Steve Sent from my iPhone On Mar 31, 2014, at 6:53 PM, Steve Comstock st...@trainersfriend.com wrote: Try EXEC'ing your CLIST, maybe exec 'library(clistlib)' clist -Steve Comstock On 3/31/2014 4:37 PM, Micheal Butz wrote: That's not it I had it in caps For some reason it's not recognizing my clist as a clist Sent from my iPhone On Mar 31, 2014, at 6:18 PM, Dave Salt ds...@hotmail.com wrote: It's been a long time since I coded CLIST but I think Proc should be PROC. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 31 Mar 2014 18:12:18 -0400 From: michealb...@optonline.net Subject: Rexx calling clist To: IBM-MAIN@LISTSERV.UA.EDU Hi I took many if your suggestion that in order to get my TSOLIB working have it sitting a clist I coded the simplest possible Rexx exec /* Rexx */ Call CLISTLIB Address TSO LISTALC The CLISTLIB Proc 0 TSOLIB The clist fails horribly it is called by the Rexx exec as I turn on tracing But the proc statement I get invalid command And the TSOLIB I get invalid syntax seems it thinks the clist is a Rexx exec even thought I don't have /* Rexx */ coded in the clist Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- 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: Rexx calling clist
Thank you :) Sent from my iPhone On Mar 31, 2014, at 9:25 PM, Steve Comstock st...@trainersfriend.com wrote: On 3/31/2014 6:36 PM, Micheal Butz wrote: Right !!! So, did you try my suggestion? -Steve Sent from my iPhone On Mar 31, 2014, at 7:03 PM, Steve Comstock st...@trainersfriend.com wrote: On 3/31/2014 4:54 PM, Micheal Butz wrote: Clist calling Rexx works But isn't your example REXX calling CLIST? That doesn't work. -Steve Sent from my iPhone On Mar 31, 2014, at 6:53 PM, Steve Comstock st...@trainersfriend.com wrote: Try EXEC'ing your CLIST, maybe exec 'library(clistlib)' clist -Steve Comstock On 3/31/2014 4:37 PM, Micheal Butz wrote: That's not it I had it in caps For some reason it's not recognizing my clist as a clist Sent from my iPhone On Mar 31, 2014, at 6:18 PM, Dave Salt ds...@hotmail.com wrote: It's been a long time since I coded CLIST but I think Proc should be PROC. Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/program-development/simplist.html Date: Mon, 31 Mar 2014 18:12:18 -0400 From: michealb...@optonline.net Subject: Rexx calling clist To: IBM-MAIN@LISTSERV.UA.EDU Hi I took many if your suggestion that in order to get my TSOLIB working have it sitting a clist I coded the simplest possible Rexx exec /* Rexx */ Call CLISTLIB Address TSO LISTALC The CLISTLIB Proc 0 TSOLIB The clist fails horribly it is called by the Rexx exec as I turn on tracing But the proc statement I get invalid command And the TSOLIB I get invalid syntax seems it thinks the clist is a Rexx exec even thought I don't have /* Rexx */ coded in the clist Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Fwd: Rexx substr not retiring string
I originally sent to wrong forum Sent from my iPhone Begin forwarded message: From: Micheal Butz michealb...@optonline.net Date: March 31, 2014 at 11:02:50 PM EDT To: Assembler Language assembler-l...@listserv.uga.edu Subject: Rexx substr not retiring string I have some imbedded JCL in a. sequitial file Problem is it starts at col 2 and I need it shift over to column 1 So I use a stem e.g outvar Do I = 1 to n. /* where n is the number of lines */ Outvar.I = substr(jcl.I,2,81) Afterwards I write out the results execio * DISKW outds (finis stem outvar Outds is the ddname of the dataset that should have the Jcl When I look at the dataset represented by outds It the variable name outvar0,outvar1 But not the data Thanks Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Clist character string compare
My first choice was Rexx however I needed a steplib or in TSO terms a TSOLIB that seems to be a problem whitin Rexx only after you leave the Rexx exec does it take effect at least that's what the IBM doc states Sent from my iPhone On Mar 28, 2014, at 5:39 PM, Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: In of6528a2b6.d0960855-on88257ca9.0016d1c9-88257ca9.0018c...@sce.com, on 03/27/2014 at 09:30 PM, Skip Robinson jo.skip.robin...@sce.com said: The question is not whether it's possible to do anything in CLIST. The question is why bother? Alas, there are still some things that you can do in CLIST but not REXX. Fortunately, you don't need them very often. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html 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: Clist character string compare
My first choice was Rexx however there seems to be a problem with TSOLIB the example in the IBM doc says you push meaning the TSOLIB command takes effect after you leave the exec Sent from my iPhone On Mar 28, 2014, at 12:30 AM, Skip Robinson jo.skip.robin...@sce.com wrote: I wish OP would take a step back and consider why this process must be a CLIST. As a newbie many years ago, I spent inordinate hours mastering CLIST. I became adept at the double/quadruple ampersand and other kludges necessary to make acrobatic string manipulations work as desired. After Rexx appeared in TSO/E in the 80's, I vowed never to write a new CLIST again. That first Rexx incarnation in TSO/E was replete with deficiencies even from a VM/CMS perspective. I stuck with it and coded with one hand on the keyboard and the other on the Rexx manual. The question is not whether it's possible to do anything in CLIST. The question is why bother? Unless you're making a minor modification to an existing, complex CLIST, I suggest (re)writing it in Rexx. That's what lies over the next hill. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile jo.skip.robin...@sce.com From: CM Poncelet ponce...@bcs.org.uk To: IBM-MAIN@LISTSERV.UA.EDU, Date: 03/27/2014 06:50 PM Subject:Re: Clist character string compare Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU Have you tried coding: SET JOBCARD = STR(SUBSTR(2:10,NRSTR(INPUT)))? BTW Are you also sure that '//JOBCARD' starts in column 2 (i.e. at offset 1)? Otherwise change your code to something like: A1: GETFILE INPUT SET B= SYSINDEX(STR(//JOBCARD),NRSTR(INPUT),1) IF B 0 THEN DO SET JOBCARD = STR(SUBSTR(B:B+8,NRSTR(INPUT))) If JOBCARD = STR(//JOBCARD) + Then write got it END /* IF */ ELSE + GOTO A1 ... Cheers, CP Micheal Butz wrote: Hi I cann't seem to get equal looking for a character string in the input file I know that the job card is somewhere in the middle of the file So here is the code A1: GETFILE INPUT SET JOBCARD = STR(SUBSTR(2:10) If JOBCARD = STR(//JOBCARD) Then write got it GOTO A1 I do writes and see the character string however I never get an equal condition on the if statement -- 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
Clist file I/O
Hi, I am writting and reading from the same file in a clist In the first part of the clist There is a BMC program CTMAES That writes to where staprint is allocated to When this program completes I try reading it I do not get a error opening it however on the first read I get an end of file condition it would seem to Me that even though the program that writes to it completed The file I/O has not completed causing the end of file condition Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Clist file I/O
I think the I/O is not complete Until the clist finishes executing So Have one clist Ex clist a write ex clist b --- read Sent from my iPhone On Mar 27, 2014, at 6:09 PM, Micheal Butz michealb...@optonline.net wrote: Hi, I am writting and reading from the same file in a clist In the first part of the clist There is a BMC program CTMAES That writes to where staprint is allocated to When this program completes I try reading it I do not get a error opening it however on the first read I get an end of file condition it would seem to Me that even though the program that writes to it completed The file I/O has not completed causing the end of file condition Sent from my iPhone -- 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: Clist character string compare
Thanks Sent from my iPhone On Mar 27, 2014, at 9:25 PM, Lizette Koehler stars...@mindspring.com wrote: I would turn on CLIST tracing functions CONTROL LIST SYMLIST CONLIST MSG NOFLUSH It should show you your vars and the tests. Lizette -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Micheal Butz Sent: Thursday, March 27, 2014 6:20 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Clist character string compare Hi I cann't seem to get equal looking for a character string in the input file I know that the job card is somewhere in the middle of the file So here is the code A1: GETFILE INPUT SET JOBCARD = STR(SUBSTR(2:10) If JOBCARD = STR(//JOBCARD) Then write got it GOTO A1 I do writes and see the character string however I never get an equal condition on the if statement Sent from my iPhone -- 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
Allocating file in Rex exec
Hi I am allocating a dataset in a Rex exec using the following syntax Alloc fi(myddnam) da('my.pds.name(member)') shr I get an error routine not found Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: BLDL 0 and LLA managed datasets/CSVLLIX1
Thanks so The ONLY to know if the module is LLA managed is if the exit(s) are invoked ILX1 or 2 Sent from my iPhone On Mar 17, 2014, at 9:26 AM, Peter Relson rel...@us.ibm.com wrote: Shmuel has this fully correct This thread was to some extent confusing LLA managing of the directory entry with LLA managing of the module. They are often the same. Not always. When LLA is active, BLDL will always ask LLA if it has the directory entry cached. If it does, LLA will return it to BLDL, BLDL will return it to the invoker. Otherwise, BLDL will do find the directory entry itself. There is nothing in the directory entry that could / would / should care whether the data came from LLA or from I/O. When a fetch is done, the directory entry is used. LLA is asked if, given the directory entry, is LLA managing the data set and member and LLA may indicate yes, and here is the retrieved module. The concatenation number (K byte) in the directory entry indicates which data set within the concatenation has the module. The K byte is a reason that concatenations cannot have more than 256 data sets. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: S0C1 TSO TESTAUTH
That way I have no problems Wondering what's up Sent from my iPhone On Mar 13, 2014, at 6:49 AM, Walt Farrell walt.farr...@gmail.com wrote: On Wed, 12 Mar 2014 11:54:35 -0400, MichealButz michealb...@optonline.net wrote: I am setting a breakpoint at offset +0 in my program and getting a S0C1 at location +E The following is my scenario TESTAUTH �ISP.SISPLPA(ISPF)� CP LOAD �MYLOAD.LIBRARY(MYMOD)� Q MYMO.MYMOD.+0 AT +0 GO � INTO ispf Then from the ispf command line I do TSO MYMOD Why are you putting ISPF in the middle of this? Why not simply do TESTAUTH 'MYLOAD.LIBRARY(MYMOD)' CP and invoke your module directly? -- Walt -- 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: S0C1 TSO TESTAUTH
I had SPSWT in the authcmd and AUTHNAME when I remove it's okay Sent from my iPhone On Mar 13, 2014, at 6:49 AM, Walt Farrell walt.farr...@gmail.com wrote: On Wed, 12 Mar 2014 11:54:35 -0400, MichealButz michealb...@optonline.net wrote: I am setting a breakpoint at offset +0 in my program and getting a S0C1 at location +E The following is my scenario TESTAUTH �ISP.SISPLPA(ISPF)� CP LOAD �MYLOAD.LIBRARY(MYMOD)� Q MYMO.MYMOD.+0 AT +0 GO � INTO ispf Then from the ispf command line I do TSO MYMOD Why are you putting ISPF in the middle of this? Why not simply do TESTAUTH 'MYLOAD.LIBRARY(MYMOD)' CP and invoke your module directly? -- Walt -- 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
Testing out TSO Authorized commands
Hi This my situation I have authorized TSO command actually a program that issues a modeset to get into supervisor state When I run this program under TESTAUTH to debug it And it is in AUTHCMD/AUTHPGM In IKJTSOXX I get a s0c1at the begining of the program However running it standalone I need the table entires to do a modeset Would anyone have an explanation Sent from my iPhone -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Volume Restriction Using an EXIT
One more thing The board is at the end of the month? Sent from my iPhone On Mar 12, 2014, at 11:05 AM, Joel C. Ewing jcew...@acm.org wrote: On 03/12/2014 06:53 AM, mf db wrote: Hello Group, Is there an exit which can help me to restrict a group of ID to access another Volume(Which has list of datasets). For example : JLAB001 must be restricted to access any dataset sitting on JPM009. I am at Z/OS 1.8 level Peter Your wording is unclear: Is the object (1) to only grant access to the data sets on the specific volume to members of the specific group; or (2) to only deny access to the specific volume to members of the specific group, or (3) to allow members of the specific group access to the volume and its data sets but restrict (deny) their access to any other volume,...? And of course it makes a difference whether one is discussing DASD volumes or tape volumes. Aside from that and assuming you are talking about DASD volumes and are using SMS (you really should be), managing DASD data set security on a volume level is not a good approach. Restricting new data set allocation access on system volsers of course makes sense, but can be done with SMS ACS routines and RACF. In an SMS world, access to existing data sets should be a security attribute associated with the data set and not dependent on the volume of residence, and restrictions on target volumes for new data sets would typically be done by requiring all non-system data sets to be under SMS and restricting access to the SMS class or STORGRP associated with those volumes. Data sets typically need to move at some point during their lifetime and their security requirements should go with them; DASD volume volsers and unit addresses may need to change during DASD subsystem hardware upgrades, and usually one would want the security of application and system data on associated volumes to be unaffected by DASD hardware changes. Data set naming conventions should be designed so that security can be based on the data set name and not on the DASD volume of residence. -- Joel C. Ewing,Bentonville, AR jcew...@acm.org -- 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: S0C1 TSO TESTAUTH
I did saw nothing mysterious the the 90EC was replaced by 0A61 I say nothing strange Sent from my iPhone On Mar 12, 2014, at 12:03 PM, Tony Harminc t...@harminc.net wrote: On 12 March 2014 11:54, MichealButz michealb...@optonline.net wrote: [blank lines removed for readability] I am setting a breakpoint at offset +0 in my program and getting a S0C1 at location +E The following is my scenario TESTAUTH 'ISP.SISPLPA(ISPF)' CP LOAD 'MYLOAD.LIBRARY(MYMOD)' Q MYMO.MYMOD.+0 AT +0 GO à INTO ispf Then from the ispf command line I do TSO MYMOD And S0C1 Are you sure that +0 is the entry point of MYMOD? Why not look at the instructions starting at MYMOD.MYMOD.+0 -- surely that will give you some clue as to what happened. While you're there you could look at the registers... Oh yes, and maybe the PSW. 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