Re: IDCAMS

[Micheal Butz]

What if the JCL has disp=mod

Sent from my iPhone

> On Dec 30, 2014, at 10:54 PM, John McKown  
> 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 
> 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

IDCAMS

[Micheal Butz]

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: Invoking a clist using IKJEFTSR

[Micheal Butz]

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  wrote:
> 
>> On Wed, 24 Dec 2014 18:07:30 -0500, Micheal Butz  
>> 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

Re: Invoking a clist using IKJEFTSR

[Micheal Butz]

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  wrote:
> 
>> On Wed, 24 Dec 2014 17:23:33 -0500, Micheal Butz  
>> 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

[Micheal Butz]

I think I would have to call IKJTSOEV 
To set up a TSO environment in a batch program before I called IKJEFTSR 

Sent from my iPhone

> On Dec 24, 2014, at 9:03 AM, Micheal Butz  wrote:
> 
> 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  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

--
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

[Micheal Butz]

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  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

Invoking a clist using IKJEFTSR

[Micheal Butz]

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

[Micheal Butz]

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

[Micheal Butz]

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  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  
> 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  wrote:
>>>> 
>>>> On 27 August 2014 16:48, Micheal Butz  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

[Micheal Butz]

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  wrote:
> 
>> On 27 August 2014 16:48, Micheal Butz  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

Re: Recovery routines

[Micheal Butz]

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  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"  
> 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

[Micheal Butz]

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  wrote:
> 
> Thanks
> Sent from my iPhone
> 
>> On Aug 27, 2014, at 5:50 AM, Rob Scott  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  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  wrote:
>>>>> 
>>>>> On Tue, 26 Aug 2014 18:02:01 -0400, Micheal Butz 
>>>>>  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

[Micheal Butz]

Thanks
Sent from my iPhone

> On Aug 27, 2014, at 5:50 AM, Rob Scott  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  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  wrote:
>>>> 
>>>> On Tue, 26 Aug 2014 18:02:01 -0400, Micheal Butz  
>>>> 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

[Micheal Butz]

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  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  wrote:
>>> 
>>> On Tue, 26 Aug 2014 18:02:01 -0400, Micheal Butz  
>>> 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

[Micheal Butz]

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  wrote:
> 
>> On Tue, 26 Aug 2014 18:02:01 -0400, Micheal Butz  
>> 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: Recovery routines

[Micheal Butz]

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  
> 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 
> 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  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  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

[Micheal Butz]

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  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  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  
>>>>> 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
>>>>> 
>>>>> 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.
>>>>> 
>>>>> 
>>>>>> On Tue, Aug 26, 2014 at 3:23 PM, Micheal Butz  
>>>>>> 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

[Micheal Butz]

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  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  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  
>>>> 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
>>>> 
>>>> 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.
>>>> 
>>>> 
>>>>> On Tue, Aug 26, 2014 at 3:23 PM, Micheal Butz  
>>>>> 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

[Micheal Butz]

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  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  
>>> 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
>>> 
>>> 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.
>>> 
>>> 
>>>> On Tue, Aug 26, 2014 at 3:23 PM, Micheal Butz  
>>>> 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

[Micheal Butz]

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  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
> 
> 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.
> 
> 
>> On Tue, Aug 26, 2014 at 3:23 PM, Micheal Butz  
>> 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

Recovery routines

[Micheal Butz]

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: ISPLLIB as a task library

[Micheal Butz]

Thanks I misread it

Sent from my iPhone

> On Aug 25, 2014, at 7:19 AM, Binyamin Dissen  
> wrote:
> 
> On Sun, 24 Aug 2014 08:20:59 -0400 "Shmuel Metz (Seymour J.)"
>  wrote:
> 
> :>In
> :>,
> :>on 08/22/2014
> :>   at 02:56 PM, MichealButz  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 
> 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

[Micheal Butz]

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)"  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

[Micheal Butz]

I sysudump as I allocated it to my TSO session

Sent from my iPhone

> On Aug 21, 2014, at 2:57 AM, Anthony Thompson  
> 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

[Micheal Butz]

I'll check thanks

Sent from my iPhone

> On Aug 13, 2014, at 3:04 PM, Jon Perryman  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" 
>  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: Return code 8 from open

[Micheal Butz]

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  
> 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: Rational Development and Test (RD&T) aka z/OS on a PC

[Micheal Butz]

Perpetual is forever

Sent from my iPhone

> On Aug 7, 2014, at 9:43 AM, Walt Farrell  wrote:
> 
> Regarding use of RD&T 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 RD&T 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 (RD&T) aka z/OS on a PC

[Micheal Butz]

Ball park

Sent from my iPhone

> On Aug 7, 2014, at 1:10 AM, Ed Gould  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: Rational Development and Test (RD&T) aka z/OS on a PC

[Micheal Butz]

How much does this cost

Sent from my iPhone

> On Aug 6, 2014, at 9:45 PM, Thomas Conley  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 (RD&T) 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: Dynamic Alocation question

[Micheal Butz]

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  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: Dynamic Alocation question

[Micheal Butz]

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"  
> 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: IEAMSCHD question

[Micheal Butz]

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 
>  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

[Micheal Butz]

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

[Micheal Butz]

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  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  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  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<http://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: return code from SYSEVENT TRANSWAP ENTRY=BRANCH

[Micheal Butz]

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  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: TSO Test does not support 65-bit (actually 64-bit) debugging?

[Micheal Butz]

Thanks 

For your help

Sent from my iPhone

> On Jul 9, 2014, at 4:52 PM, Walt Farrell  wrote:
> 
>> On Wed, 9 Jul 2014 14:26:59 -0400, Micheal Butz  
>> 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=all13be9&DT=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: TSO Test does not support 65-bit (actually 64-bit) debugging?

[Micheal Butz]

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  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  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?

[Micheal Butz]

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  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

[Micheal Butz]

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  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"  wrote:
>> 
>> Offlist.
>> 
>> In <1908540722417708.wa.walt.farrellgmail@listserv.ua.edu>, on
>> 07/07/2014
>>   at 05:50 AM, Walt Farrell  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 
>> 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?

[Micheal Butz]

Why cann't you display the values of access registers

Sent from my iPhone

> On Jul 7, 2014, at 9:56 AM, Kirk Wolf  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  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: SVC 99 APF Authorized Library

[Micheal Butz]

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: SVC 99 APF Authorized Library

[Micheal Butz]

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  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
>>>  wrote:
>>> 
>>> MichealButz wrote:
>>>

Re: SVC 99 APF Authorized Library

[Micheal Butz]

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 
>  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

[Micheal Butz]

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: IKJPOSIT question

[Micheal Butz]

THAT WAS IT

Thanks 

Sent from my iPhone

> On Jun 30, 2014, at 9:45 AM, Walt Farrell  wrote:
> 
>> On Mon, 30 Jun 2014 06:59:49 -0400, Micheal Butz  
>> 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: IKJPOSIT question

[Micheal Butz]

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 
>  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: IKJTSOxx Auth pgm cmds PC rtns

[Micheal Butz]

Because I aurhorized and in authcmd

Sent from my iPhone

> On Jun 27, 2014, at 4:59 PM, DanD  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: IKJTSOxx Auth pgm cmds PC rtns

[Micheal Butz]

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  wrote:
> 
>> On Fri, 27 Jun 2014 11:01:36 -0400, MichealButz  
>> 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

[Micheal Butz]

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  wrote:
> 
>> On 27 June 2014 10:38, Micheal Butz  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

[Micheal Butz]

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
>> 
>> 
>> --
>> 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: error invoking IKJEFTSR from Authotized progam

[Micheal Butz]

Thanks 

Sent from my iPhone

> On Jun 24, 2014, at 4:39 PM, Walt Farrell  wrote:
> 
>> On Tue, 24 Jun 2014 13:51:27 -0400, Micheal Butz  
>> 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
> 
> From TSO/E Programming Services (z/OS V1.13 version of the book),
> 
> IKJEFTSR specifically allows you to invoke authorized functions from an 
> unauthorized application program. It maintains system security by running an 
> invoked authorized function in its own isolated environment.
> 
> However, to maintain system security, an authorized application program can 
> use the TSO/E service facility to invoke only authorized programs or 
> commands, or CLISTs consisting of only authorized programs and commands. 
> 
> 
> In other words, you cannot use IKJEFTSR to do what you want.
> 
> You can find this online at 
> http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ikj4b790/23.1.2?SHELF=all13be9&DT=2011062238
>  or http://preview.tinyurl.com/q7xo5z2
> 
> -- 
> 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: error invoking IKJEFTSR from Authotized progam

[Micheal Butz]

I did set it to zero 

Sent from my iPhone

> On Jun 24, 2014, at 1:51 PM, Micheal Butz  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  
>> 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 
>> 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 
>> 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: error invoking IKJEFTSR from Authotized progam

[Micheal Butz]

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  
> 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 
> 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 
> 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: LISTA data in a SVC dump

[Micheal Butz]

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  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 
> 
>  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

[Micheal Butz]

Thanks I was using PROGXX 

Sent from my iPhone

On Jun 10, 2014, at 8:05 AM, Peter Relson  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

[Micheal Butz]

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  wrote:
> 
>> On Mon, 9 Jun 2014 05:43:29 -0400, MichealButz  
>> 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

Re: CSVQUERY Anomaly

[Micheal Butz]

1.13

Sent from my iPhone

> On Jun 9, 2014, at 5:21 AM, Elardus Engelbrecht 
>  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: LOAD DE= generates the CSV019I abend

[Micheal Butz]

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  wrote:
> 
>> On Thu, 29 May 2014 10:15:37 -0400, Micheal Butz  
>> 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: Communicating with CSVLLIX1 thru TCBUSER

[Micheal Butz]

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  
> 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 
> 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

LOAD DE= generates the CSV019I abend

[Micheal Butz]

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

Communicating with CSVLLIX1 thru TCBUSER

[Micheal Butz]

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

Re: An LLA managed dataset automatically generates CSV019I abend

[Micheal Butz]

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  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  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 
>>>>  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: An LLA managed dataset automatically generates CSV019I abend

[Micheal Butz]

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  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 
>>>  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

Where can CSVLLIX1 reside

[Micheal Butz]

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: LLA questions

[Micheal Butz]

Yes thru TASID 

Sent from my iPhone

> On May 27, 2014, at 11:36 AM, "Shmuel Metz (Seymour J.)" 
>  wrote:
> 
> In
> ,
> on 05/26/2014
>   at 07:37 PM, MichealButz  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  
> 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: TPUT in FULLSCR problems

[Micheal Butz]

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  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

[Micheal Butz]

I checked my out buffer that's not my code the proof being my display displays 
correctly

It's after I hit  that the problems occurs 

Sent from my iPhone

> On May 23, 2014, at 5:53 PM, Gerhard Postpischil  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

[Micheal Butz]

Yes but why these printable ebcdic codes

Sent from my iPhone

> On May 15, 2014, at 3:02 PM, Alan Field  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" 
> 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 
> 
> 
> 
> 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 
>> 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: TSO 3270 Data Stream question

[Micheal Butz]

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  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

[Micheal Butz]

Yes I have as I was running under TESTAUTH 

Sent from my iPhone

> On May 15, 2014, at 2:30 PM, Gerhard Postpischil  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: 378-14 Abend In TSO Verify exit

[Micheal Butz]

Excellent I allocate SYSUDUMP to my logon proc

Sent from my iPhone

> On May 12, 2014, at 10:09 AM, Binyamin Dissen  
> 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"
>  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

[Micheal Butz]

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.)" 
>  wrote:
> 
> In <060650a7-d2a2-4313-8191-8f57c9a9b...@comcast.net>, on 04/29/2014
>   at 07:28 AM, Micheal Butz  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

[Micheal Butz]

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.)" 
>  wrote:
> 
> In <13124718-8ee3-4c31-8feb-bd43bc571...@comcast.net>, on 04/28/2014
>   at 01:48 PM, Micheal Butz  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

[Micheal Butz]

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  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  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

[Micheal Butz]

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)"  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)"  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  wrote:
>>> 
>>> Yes as long as all datasets in steplib or joblib are APF authorized.
>>> 
>>> Jon Perryman.
>>> 
>>> 
>>> - Original Message -
>>>> From: MichealButz 
>>>> 
>>>> 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

[Micheal Butz]

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)"  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  wrote:
>> 
>> Yes as long as all datasets in steplib or joblib are APF authorized.
>> 
>> Jon Perryman.
>> 
>> 
>> - Original Message -
>>> From: MichealButz 
>>> 
>>> 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

[Micheal Butz]

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  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

[Micheal Butz]

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  wrote:
> 
> Yes as long as all datasets in steplib or joblib are APF authorized.
> 
> Jon Perryman.
> 
> 
> - Original Message -
>> From: MichealButz 
>> 
>> 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

Re: Getting into ISPF/Edit from TSO

[Micheal Butz]

Forgot the reuse

Sent from my iPhone

> On Apr 2, 2014, at 9:57 PM, Jon Perryman  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 
>> 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: Getting into ISPF/Edit from TSO

[Micheal Butz]

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  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  
>>> 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 
>>> wrote:
>>> 
>>>> 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

[Micheal Butz]

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  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 wrote:
> 
>> 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

Getting into ISPF/Edit from TSO

[Micheal Butz]

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: Rexx substr not retiring string

[Micheal Butz]

You were right 

Sent from my iPhone

> On Apr 1, 2014, at 5:35 PM, "George, William@FTB"  
> 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"  
>>> wrote:
>>> 
>>> On Tue, 1 Apr 2014 14:40:40 -0400, Micheal Butz  
>>> wrote:
>>> 
>>> That was it thanks
>>> 
>>> Sent from my iPhone
>>> 
>>>> On Apr 1, 2014, at 7:26 AM, Andrew Armstrong  
>>>> 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

Re: Rexx substr not retiring string

[Micheal Butz]

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"  
> wrote:
> 
>> On Tue, 1 Apr 2014 14:40:40 -0400, Micheal Butz  
>> wrote:
>> 
>> That was it thanks
>> 
>> Sent from my iPhone
>> 
>>> On Apr 1, 2014, at 7:26 AM, Andrew Armstrong  
>>> 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

Re: Rexx substr not retiring string

[Micheal Butz]

That was it thanks 

Sent from my iPhone

> On Apr 1, 2014, at 7:26 AM, Andrew Armstrong  
> 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

Fwd: Rexx substr not retiring string

[Micheal Butz]

I originally sent to wrong forum

Sent from my iPhone

Begin forwarded message:

> From: Micheal Butz 
> Date: March 31, 2014 at 11:02:50 PM EDT
> To: Assembler Language 
> 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: Rexx calling clist

[Micheal Butz]

Thank you :)

Sent from my iPhone

> On Mar 31, 2014, at 9:25 PM, Steve Comstock  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  
>>>> 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  
>>>>> 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  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

Re: Rexx calling clist

[Micheal Butz]

Right !!!

Sent from my iPhone

> On Mar 31, 2014, at 7:03 PM, Steve Comstock  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  
>>> 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  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

[Micheal Butz]

Clist calling Rexx works

Sent from my iPhone

> On Mar 31, 2014, at 6:53 PM, Steve Comstock  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  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

[Micheal Butz]

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  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

Rexx calling clist

[Micheal Butz]

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: Clist character string compare

[Micheal Butz]

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  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 
> 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 
> 
> 
> 
> 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

Re: Clist character string compare

[Micheal Butz]

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.)" 
>  wrote:
> 
> In
> ,
> on 03/27/2014
>   at 09:30 PM, Skip Robinson  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  
> 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

[Micheal Butz]

Thanks 

Sent from my iPhone

> On Mar 27, 2014, at 9:25 PM, Lizette Koehler  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

Clist character string compare

[Micheal Butz]

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

Re: Clist file I/O

[Micheal Butz]

Thanks 

I got one more I'll start a new thread 

Sent from my iPhone

> On Mar 27, 2014, at 8:10 PM, Scott Ford  wrote:
> 
> Micheal:
> 
> 
> When your second clist want to read the file(data) , allocate the file as 
> disp=old…
> 
> it works when you have it ….
> 
> 
> Regards,
> 
> Scott
> 
> www.identityforge.com  &
> 
> www.idmworks.com
> 
> 
> 
> 
> 
> From: Micheal Butz
> Sent: ‎Thursday‎, ‎March‎ ‎27‎, ‎2014 ‎7‎:‎13‎ ‎PM
> To: IBM Mainframe Discussion List
> 
> 
> 
> 
> 
> 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  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
> 
> --
> 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 file I/O

[Micheal Butz]

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  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

Clist file I/O

[Micheal Butz]

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

Allocating file in Rex exec

[Micheal Butz]

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

[Micheal Butz]

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  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