Apologies to Binyamin and the list

[michealbutz]

Hi

 

I was in some loop and I invoked the SETFRR mltiple times thus when I
percolated I gave control to my own recevoery

 

Sorry :(


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Recovery Routine not Percolating

[michealbutz]

o ASCB  JOE
 LRR2,R15   Point to Entry
 L R2,0(,R2)Point to Ascb
 LRR5,R2
*
 L R2,USER_PARM Restore Paramter
 ICM   R6,B'',SDWAECB@
*
*   XMEM POST WITH ASCB KILLS ALL REGS BESIDES R9
*
 STM   R0,R15,SAVE_REGS
 LRR9,R13
 POST  (R6),   X
   C'MRC', X
   ASCB=(R5),  X
   ECBKEY=0,   X
   LINKAGE=BRANCH, X
   ERRET=ISSMES
 LRR13,R9
 LMR0,R15,SAVE_REGS   Restore
*
CONTIN   DS   0H
 LR   R1,R4
 SETRP RC=0
 LR14,SAVE14
 XR   R15,R15
 BSM  0,R14
ISSMES   WTO 'ERROR POSTING..',LINKAGE=BRANCH
 BCONTIN
*
MOVELAST MVC   0(0,R8),0(R9)
 LTORG
*-*  579
*MAP WORK AREA*  580
*-*  581
*-*  588
*OTHER DSECTS *  589
*-*  590
WS_DSECT DSECT
SAVE14   DSA
USER_PARM DS   A
SAVE_REGS DS   16F
SDWA_ADDRESS DS A
SDWA_LEN DSF
WS_LEN   EQU  *-WS_DSECT
 IHASDWA
 ESTPARM
 CVT  DSECT=YES,LIST=YES
 IHAASVT
 IHAPSA
 IHAFRRS
 END 592


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Binyamin Dissen
Sent: Thursday, June 16, 2016 2:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Recovery Routine not Percolating

On Thu, 16 Jun 2016 13:51:47 -0400 michealbutz <michealb...@comcast.net>
wrote:

:>Hi
:>
:>
:>
:>It seems my Recovery Routine a FRR for a SRB is getting called repeatdly
:>again again for the same abend at the same location.

How many times did you schedule the SRB?

How do you know it is being called repeatedly?

:>I thought if I did SETRP RC=0 it should percolate and go to the next
:>recovery on the Chain I double checked and R1 points to the SDWA.

It should.

:>After the SETRP I do a BSM 0,R14.  

Show the complete code of the FRR.

--
Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me, you
should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems, especially
those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Recovery Routine not Percolating

[michealbutz]

Hi

 

It seems my Recovery Routine a FRR for a SRB is getting called repeatdly
again again for the same abend at the same location.

 

I thought if I did SETRP RC=0 it should percolate and go to the next
recovery on the Chain I double checked and R1 points to the SDWA.

 

After the SETRP I do a BSM 0,R14.  


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

XMEM annomly issues

[michealbutz]

Well

 

I was able to Post  the adress space seems like I am having issuing getting
the data there

 

First the Enivorment this code is a FRR of a SRB so I guess this primary the
Address space I scheduled it from is Home I am try ing to move it Seconday
the data is the SDWA 

 

I have WTO it looked right in The seconday Addres space running under
TESTAUTH I display the data its not correct the parms to the FRR are the ECB
an Address (pirivate of the secondary ) the asid

 

*   Get Storage For SDWA   

 *  

  LAR0,((SDWAEND-SDWA)+(SDWASEND-SDWARC1)+(SDWAIEND-SDWARC2)

+(SDWALEND-SDWARC3)+(SDWAEEND-SDWARC4)+(SDWAPEND-SDWAPTR

S)+(SDWAPTRS-SDWAPEND)+(SDWAREND-SDWANRC1)+(SDWASEN-SDWA

NRC2)+(SDWADEND-SDWANRC3))  

  STR0,SDWA_LEN 

  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),SP=0,OWNER=PRIMARY   

  STR6,SDWA_ADDRESS 

  LAR7,SDWAEND-SDWA 

  LRR11,R7  

  LRR10,R4  

  MVCL  R6,R10  

  L R8,SDWAXPAD ADDRESS SDWA EXTENSION PTRS 

  L R10,SDWADSRP-SDWAPTRS(R8)  ADDREESS  RECORDABLE XTNS

  MVC   0(SDWAREND-SDWANRC1,R6),0(R10) move 

  LAR6,SDWAREND-SDWANRC1(,R6)   

  L R10,SDWASRVP-SDWAPTRS(R8)  DDRESS OF RECORDABLE XTNSION 

  LAR11,SDWASEND-SDWARC1

  LRR7,R11  

  MVCL  R6,R10  

  L R10,SDWAXIOM-SDWAPTRS(R8) ADDRESS OF RECORDERABLE EXT   

  MVC   0(SDWAIEND-SDWARC2,R6),0(R10) DD CMP

  LAR6,SDWAIEND-SDWARC2(,R6)

  L R10,SDWAXSPL-SDWAPTRS(R8) ADDRESS OF RECORDABLE XTNSION 

  MVC   0(SDWASEN-SDWANRC2,R6),0(R10) DD CMP

  LAR6,SDWASEN-SDWANRC2(,R6)

 L R10,SDWAXLCK-SDWAPTRS(R8) ADDRESS OF
RECORDABLE XTNSION 

MVC   0(SDWALEND-SDWARC3,R6),0(R10) DD CMP


   LAR6,SDWALEND-SDWARC3(,R6)


   L R10,SDWADSPP-SDWAPTRS(R8) ADDRESS OF
RECORDABLE XTNSION 

 MVC   0(SDWADEND-SDWANRC3,R6),0(R10) DD CMP


  LAR6,SDWADEND-SDWANRC3(,R6)


   L R10,SDWAXEME-SDWAPTRS(R8) ADDRESS OF RECORDABLE
XTNSION 

 LAR11,SDWAEEND-SDWARC4


LRR7,R11


MVCL  R6,R10


  L R2,USER_PARMGet Paramter Area
Back  

USING ESTPARM,R2


 *  

 LAR8,1


*  

 AXSET AX=(R8)Give us Authority TO MOVE TO
SRV 

*  

  XRR5,R5


*  

 ICM   R5,B'0011',SERVASID Get Server asid


*  

   SSAR  R5  Set it SASN


*  

LAM   AR0,AR15,=16F'0'Zero it out


*  

 ICM   R8,B'',SDWA@ADRGet Server Address   

  L R9,SDWA_ADDRESS Get our Address 

  

*   

*   

  XRR0,R0


  L R0,SDWA_LEN


*   

  LAM   AR8,AR8,=F'1'  Secondary alet


*   

 SAC   512 Asc Ar mode  

*   

MVC_LOOP DS0H   

 C R0,=F'255' 

Release code paramter of IEAVRLS2

[michealbutz]

Hi

 

I have a question about the 3rd paramter of IEAVRLS2 target_du_release_code
it is specfied as 4 bytes. Is this the same as the 4th paramter of the Pause
service release code this is specfied as being 3 bytes

 

Thanks 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

XMEM and Swap ability

[michealbutz]

Hi,

 

Transferring data between 2 address spaces weather its MVCP/MVCS or AR mode
there is always the possibility of a S0C4. 

 

What the best way of making sure the target Address Space is Swapped in.
Doing XMEM post to  the target address space  to do a SYSEVENT ?  

 

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Dataset space information

[michealbutz]

thanks that maybe a lot easier 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Rob Scott
Sent: Tuesday, May 3, 2016 4:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Dataset space information

If you need to find the space info for a single dataset - use CAMLST SEARCH to 
get the F1-DSCB and then CAMLST SEEK to process the F3-DSCBs.

For PDS/Es - you need to use FAMS (not a public interface).

For VSAM you can also use IGGCSI00

For bulk dataset info requests - you can use the DCOLLECT output and 
post-process it.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of michelbutz
Sent: Tuesday, May 3, 2016 9:23 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Dataset space information

This all started by me trying to find out how space was taken by a dataset DSCB 
info which led me to CVAFDIR It needed the DEB of the VTOC Maybe I should of 
used OBTAIN/CAMLIST

Sent from my iPhone

> On May 3, 2016, at 4:09 PM, J R  wrote:
>
> The RDJFCB doesn't care too much about the DCB other than for the DDNAME and 
> where to put the copy of the JFCB.
>
> I'm not really sure what you're trying to do.  Unless you actually want to 
> access your dataset rather than its DSCB, why do you want to access the VTOC?
>
> Back in the '60s, this sort of thing was in the System Programmer's Guide.  
> It may be in Using Datasets or something similar now.
>
> However , you've lost me now.  I don't know why you need the DEB.  But you 
> should be able to get to it from the DCB.
>
> Sent from my iPhone
>
>> On May 3, 2016, at 15:54, michelbutz  wrote:
>>
>> Okay then the DCB on the open type=j is for the VTOC how about the 
>> DCB for the RDJFCB The original DCB in my program was for VB Dataset 
>> I hate bothering everybody is this documented anywhere i.e how to get 
>> the deb of the VTOC
>>
>>
>> Sent from my iPhone
>>
>>> On May 3, 2016, at 3:44 PM, J R  wrote:
>>>
>>> You should use BSAM, ie. READ, not GET, KEYLEN=44, BLKSIZE=140? (Not sure, 
>>> it's been a long time). Then read until you see your damage in the key 
>>> area. Or, if you are more adventurous, you could use BDAM and search 
>>> directly for the key you are interested in.
>>>
>>> Sent from my iPhone
>>>
 On May 3, 2016, at 15:11, michelbutz  wrote:

 Something strange is bombed on the open Message IEC141I the dataset 
 it in the message is sys1.vtoc The DCB whose DSCB I am trying to 
 access is a VB have that  DCB on the open type=j

 Sent from my iPhone

> On May 3, 2016, at 2:35 PM, J R  wrote:
>
> Do the RDJFCB first, *then* move the 44X'4' to JFCBDSNM.
>
> Sent from my iPhone
>
>> On May 3, 2016, at 14:30, michelbutz  wrote:
>>
>> I am still getting return code 4 in R15 CVSTAT is 8
>>
>> I first move 44X'04' to JFCBDSNM
>> I then do a READJFCB FILE
>> Everything is okay I get R15 = 0
>> I then do OPEN FILE,TYPE=J
>> R15 = 0
>> I then do ICM. R11,B'0111',DCBDEBA XC 
>> BUFLIST(BFLHLN+BFLELN),BUFLIST OI  BFLHFL,BFLHDSCB MVI. BFLHNOE,1 
>> LA. R6,DS1FMTID ST. R6,BFLEBUF OI.  BFLEFL,BFLECHR MVI.
>> BFLELTH,DSCBLTH
>>
>> CVAFDIR ACCESS=READ,DSN=DSN,BUFLIST=BUFLIST,DEB=(R11)
>>
>> I get rerun code 4 in R15 and CVSTAT is 08 invalid DEB
>>
>> Sent from my iPhone
>>
>>> On May 3, 2016, at 1:56 PM, J R  wrote:
>>>
>>> Nope.
>>>
>>> Sent from my iPhone
>>>
 On May 3, 2016, at 13:55, Staller, Allan  
 wrote:

 ITYM 44x'40'

 

 So, as I posted before:

 VTOC DSN is 44X'4'

 This email   including attachments   may contain confidential 
 information. If you are not the intended recipient, do not copy, 
 distribute or act on it. Instead, notify the sender immediately and 
 delete the message.

 ---
 --- For IBM-MAIN subscribe / signoff / archive access 
 instructions, send email to lists...@listserv.ua.edu with the
 message: 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
>
> 

Acessing storage in a other address space

[michealbutz]

Hi

 

I am trying to access storage in a other address space

 

I am logged on to TSOA and am running the following code under TESTAUTH

 

  L R5,0(,R5) 

  USING ASCB,R5   

  L R6,ASCBASSB   

  USING ASSB,R6   

  MVC   STOKENC,ASSBSTKN   Get the job's STOKEN   

  MODESET KEY=ZERO,MODE=SUP   

  XR R1,R1

 

 

 

  ALESERV ADD,  X

STOKEN=STOKENC, X

CHKEAX=NO,  X

ACCESS=PUBLIC,  X

ALET=ALET,  X

 

 

 LA  R0,111 

 STORAGE OBTAIN,   X

   LENGTH=(R0),X

   ADDR=(R9),  X

   SP=0,   X

   BNDRY=DBLWD,X

   ALET=ALET

 

LATER ON I go to into access register mode 

SAC 512

 

And Move data to the storage area

after doing so I versify the move under TESTAUTH

 

Via 

 

L 9R? AR(9) L(111) XC

 

However in the target address space using TASID Storage View Option 

the data I see at the address is not there, I am still under TESTAUTH at
this

point (meaningthe task hasn't ended) in the first address space

 

both ALESERV and Storage have return code zeros

 

Thanks in Advance  

 

  


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Address/Name of a PC rtn

[michealbutz]

hi

 

would anyone know how to get the address or name of a PC rtn

 

Thsnks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

IEAVAPE2/IEAVPSE2 another address space

[michealbutz]

 

 

Hi

 

The documentation says that IEAVAPE2/IEAVPSE2 Can pause any Task or Srb in
the system

 

I got/allocated stoken or ASSBSTKN of the target address space I wanted to
pause via IEAVAPE2  successful return code

 

When I tried to run IEAVPSE2 the service never returned fronm the BALR it
just hung (this was with the linakge branch parm)

 

I ran this under TESTAUTH (to ensure everything was correct) 

 

When I cancelled the target address space IEAVPSE2 returned from the balr
with a zero return code

 

The documentation seemed to indcate I could this pause another address space

 

Thanks 

 

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IEAVAPE2/IEAVPSE2 another address space

[michealbutz]

 
because several requestors can read a resource at the same time. The CMS and 
local locks do not provide shared access to resources. Each unit of work that 
requests the CMS or the local lock must obtain exclusive access, even though 
shared access might be enough. The latch manager and the ISGENQ macro allow 
programs to request shared or exclusive access to resources.ScopeThe CMS lock 
and the latch manager can be used to serialize resources only within a single 
MVS system. The local lock is restricted to a single address space. The ISGENQ 
macro can be used to serialize resources across multiple MVS systems (as well 
as a single MVS system).Cross memory environmentWith a cross memory environment 
established, your application can use the CMS lock, latch manager, or local 
lock to serialize resources across address spaces within a single MVS system. 
When the latch manager is being used in a cross memory environment, the current 
latch set must reside in the primary address space.Unit of workThe CMS lock, 
local lock, and latch manager are available to programs that run in task or SRB 
mode. The ISGENQ macro is available only to programs that run in task mode (SRB 
routines cannot issue ENQ/DEQ).Minimum authorizationPrograms must run in 
supervisor state and PSW key 0 to obtain the CMS or local lock, and supervisor 
state or PKM 0-7 to obtain a latch. The ISGENQ macro is available to programs 
running in problem state with any PSW key. Supervisor state, PSW key 0-7, or 
APF authorization is required for certain types of ISGENQ requests.Set-up 
requiredThe CMS lock, local lock, and the ISGENQ macro do not require 
applications to perform any set-up; the system creates the required structures. 
Before your application can use the latch manager to serialize resources, the 
application must create one or more latch sets.Default recovery actionFor the 
local and CMS locks, the system releases owned and pending serialization 
requests when the last functional recovery routine (FRR) percolates. For the 
ISGENQ macro the system releases owned or pending serialization requests during 
task or address space termination. (See "Releasing the Resource" in z/OS MVS 
Programming: Assembler Services Guide for more discussion about what happens 
when a task associated with an ENQ terminates before the ENQ is released.)
For performance reasons, and because SRBs might not want to release owned 
latches when errors occur, the system does not release owned latch requests 
during task or address space termination. The system does, however, release 
pending latch requests when the requestor's home address space terminates.

In all cases, the application programmer needs to understand the default 
recovery action for the service that is used. For more information on how to 
create a recovery environment, see the information that discusses recovery and 
termination.



Parent topic: Serialization

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Friday, October 16, 2015 8:34 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEAVAPE2/IEAVPSE2 another address space

On Fri, Oct 16, 2015 at 6:27 AM, michealbutz <michealb...@comcast.net>
wrote:

> Hi
>
> The documentation says that IEAVAPE2/IEAVPSE2 Can pause any Task or 
> Srb in the system
>
> I got/allocated stoken or ASSBSTKN of the target address space I 
> wanted to pause via IEAVAPE2  successful return code
>
> When I tried to run IEAVPSE2 the service never returned fronm the BALR 
> it just hung (this was with the linakge branch parm)
>
> I ran this under TESTAUTH (to ensure everything was correct)
>
> When I cancelled the target address space IEAVPSE2 returned from the 
> balr with a zero return code
>
> The documentation seemed to indcate I could this pause another address 
> space
>

​Can you give a reference? I ask because I read here:
https://www-01.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieaa200/ieavpse.htm


IEAVPSE2 — Pause service
Description

Call Pause to make the current task or SRB nondispatchable. When you pause a 
task or SRB, it remains nondispatchable until a Release or Transfer specifying 
the same PET is called. That is, the program issuing the Pause does not receive 
control back until after the Release or Transfer occurs.
At that time, the returned release_code will contain a value supplied by the 
associated Release or Transfer request.

If a Release service specifying the same PET is called before Pause, the system 
returns control immediately to the calling program, and the task or SRB is not 
paused.

When you use Pause, it returns an updated PET; you use this updated PET to 
either deallocate or reuse the PE.
​

​Reading this, I take it to mean that the "dispatchable unit" which issues the 
IEAVPSE2 call is the one which is paused. I gather what you want is a way

Re: S0C4 running Disasembler ASMDASM

[michealbutz]

I tried it with sysprint and syspuch all going to sysout=* same thing
ASMDASM is link edited as AMODE ANY RMODE 24 AC=0

Thanks 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of John Eells
Sent: Tuesday, August 25, 2015 10:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S0C4 running Disasembler ASMDASM

You pointed the SYSPRINT DD statement to a RECFM=U data set?  If you sent it
to SYSOUT, perhaps you'd get a more easily understood message.

michealb...@comcast.net (michealbutz) wrote:

 If this helps great all it says is ASMDASM bombed in the beginning of 
 the module at offset X'48'

 I would think the S0C4 points to missing DD card but I have 
 SYSLIB,SYSPRINT,SYSIN pointing to a load modue csect
snip

--
John Eells
z/OS Technical Marketing
IBM Poughkeepsie
ee...@us.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: S0C4 running Disasembler ASMDASM 2 2 Loadlibs

[michealbutz]

Hi

I have 2 loadlibs HLA.SAS... amd HL.A.AS

tHE FIRST SEEMS TO BE WORKING THANKS

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of John Eells
Sent: Tuesday, August 25, 2015 10:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S0C4 running Disasembler ASMDASM

You pointed the SYSPRINT DD statement to a RECFM=U data set?  If you sent it
to SYSOUT, perhaps you'd get a more easily understood message.

michealb...@comcast.net (michealbutz) wrote:

 If this helps great all it says is ASMDASM bombed in the beginning of 
 the module at offset X'48'

 I would think the S0C4 points to missing DD card but I have 
 SYSLIB,SYSPRINT,SYSIN pointing to a load modue csect
snip

--
John Eells
z/OS Technical Marketing
IBM Poughkeepsie
ee...@us.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

S0C4 running Disasembler ASMDASM

[michealbutz]

Hi,

 

I lost the source to one of my progs while running the Disassembler I got a
S0C4

 

below is my JCL PRINTPUT is the loadmodule PRINTPDS is a CSECT whithin

 

would anyone have an idea why

 

Thanks

 

  your edit profile using the command RECOVERY ON.

//IBMUSER$ JOB 'micheal','SYSPROG',NOTIFY=SYSUID,MSGLEVEL=(1,1)

//DISASM EXEC PGM=ASMDASM,PARM='COPYRIGHTOK,HEX'  

//STEPLIB DD DSN=HLA.AASMMOD2,DISP=SHR

//SYSLIB DD DSN=IBMUSER.TEST.LOADLIB,DISP=SHR 

//SYSPRINT DD DSN=IBMUSER.TEST.DISASSEM(PRINTPDS),DISP=SHR

//**SPRINT DD SYSOUT=*

//SYSPUNCH DD SYSOUT=*

//SYSUDUMP DD SYSOUT=*

//SYSINDD  *

PRINTPUT PRINTPDS   


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: S0C4 running Disasembler ASMDASM

[michealbutz]

If this helps great all it says is ASMDASM bombed in the beginning of the
module at offset X'48'

I would think the S0C4 points to missing DD card but I have
SYSLIB,SYSPRINT,SYSIN pointing to a load modue csect


Thanks
   J E S 2  J O B  L O G  --  S Y S T E M  S 0 W 1  --  N O 
 

07.54.06 JOB00060  TUESDAY,   25 AUG 2015 

07.54.06 JOB00060  IRR010I  USERID IBMUSER  IS ASSIGNED TO THIS JOB.

07.54.07 JOB00060  ICH70001I IBMUSER  LAST ACCESS AT 06:40:58 ON TUESDAY,
AUGUST
07.54.07 JOB00060  $HASP373 IBMUSER$ STARTED - INIT 1- CLASS A-
SYS 
07.54.07 JOB00060  IEF403I IBMUSER$ - STARTED - TIME=07.54.07

07.54.12 JOB00060  IEA995I SYMPTOM DUMP OUTPUT  735

   735 SYSTEM COMPLETION CODE=0C4  REASON CODE=0004

   735  TIME=07.54.07  SEQ=00125  CPU=  ASID=001C

   735  PSW AT TIME OF ERROR  078D   800074A8  ILC 4  INTC
04   
   735ACTIVE LOAD MODULE   ADDRESS=7460
OFFSET=0048

0048



0048


   735NAME=ASMDASM

   735DATA AT PSW  74A2 - 801050D0  E00450E0  D00818DE

   735GR 0: 7FFBB028_0064   1: _6FE8

   735   2: _0040   3: _008D89D4

   735   4: _008D89B0   5: _008F8588

  F1=HELP  F2=SPLIT F3=END   F4=RETURNF5=IFIND F6=BOOK

   6: _008C9FC8   7: _00FBB880   
   8: _   9: _008D2CB0   
   A: _   B: _8460   
   C: _80007460   D: _6F50   
   E: _00FDC5A0   F: _80007460   
  END OF SYMPTOM DUMP
12 JOB00060  IEF450I IBMUSER$ DISASM - ABEND=S0C4 U REASON=0004  
 TIME=07.54.12   
12 JOB00060  -  -TIMINGS (MINS.)-
12 JOB00060  -STEPNAME PROCSTEPRC   EXCP   CONN   TCB   SRB  
12 JOB00060  -DISASM*S0C4221  0   .07   .00  
12 JOB00060  IEF404I IBMUSER$ - ENDED - TIME=07.54.12
12 JOB00060  -IBMUSER$ ENDED.  NAME-SYSPROG  TOTAL TCB CPU TI
12 JOB00060  $HASP395 IBMUSER$ ENDED 
 JES2 JOB STATISTICS --  
UG 2015 JOB EXECUTION DATE   
 12 CARDS READ   
  6,327 SYSOUT PRINT RECORDS 
LP  F2=SPLIT F3=END   F4=RETURNF5=IFIND F6=BOOK  
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Charles Mills
Sent: Tuesday, August 25, 2015 10:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S0C4 running Disasembler ASMDASM

a S0C4? Did it perhaps come with a module name, a PSW, and registers?

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of michealbutz
Sent: Tuesday, August 25, 2015 6:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: S0C4 running Disasembler ASMDASM

Hi,

 

I lost the source to one of my progs while running the Disassembler I got a
S0C4

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

RACF syntax to permit TSO user to use TESTAUTH

[michealbutz]

Hi

 

would anyone know the  RACF command syntax for a TSO id to be authorized to
use TESTAUTH

 

Thanks   


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Console messages which has precedence and related questions

[michealbutz]

Hi,

 

If you have an extended console installed in your program via
MCSOPER/MCSOPMSG Does the issuing program get the message before it is
displayed on the console 

 

If so can you delete before it is displayed via dom

 

Secondly can you search for specific message e.g. IEE... or the best you can
do is search for command responses those operator/system messages that
require a response

 

Thirdly is the data space created in the home address space I would assume
so why would it be in common

 

thanks 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

S0C4 At Entry to SRB routine

[michealbutz]

Hi,

 

I am at my wits end I have tried all sorts of things I am getting S0C4 at
right at the entry point to my SRB routine my SRB rtn does even take off it
goes directly to the   FRR routine looking at the SDWAABCC its 940C4 

 

*

 STORAGE OBTAIN, 

   LENGTH=(R0),  

   ADDR=(R12),   

   KEY=0,

   SP=227

*

 SPKA  0 

*

 STR12,SRBEPXStore Entry Point   

 OCSRBEPX,=X'8000'   Turn on high order bit  

 LAR5,VSMFRR-VSMLOC(,R12) R9 -- frr Code

 STR5,SRBFRR Store FRR   

 LAR8,SRBFLAG-VSMLOC(,R12)   

 MVI   0(R8),X'00'   

 OCSRBFRR,=X'8000'   Turn on high order bit  

 LAR5,PARMS-VSMLOC(,R12)  Get parms addr 

 STR4,0(R5)  

 STR5,FRRPARM

 OCFRRPARM,=X'8000'  

 LRR4,R12Point to Csa

 LAR5,VSRBLEN   len  

 STR6,INBUFPTR  Store Buffer pointer 

 LAR6,VSMLOC 

 LRR7,R5 

 MVCL  R4,R6 Move to csa 

 

a little later

 

*---*  

* Schedule the SRB  *  

*---*  

 LAR12,SRBEPX  Entry point 

 LAR11,PARMADD Srb Param   

 LAR9,SRBFRR   FRR Address 

*LAR2,FRRPARM  Frr Paramters   

 XRR2,R2   

*  

 IEAMSCHD EPADDR=(R12),

   PRIORITY=GLOBAL,

   ENV=STOKEN, 

   TARGETSTOKEN=WSSTOKEN,  

   PARM=(R11), 

   FRRADDR=(R9),   

   SDWALOC31=YES,  

   FLAGS=(R8), 

 

The next adress points to LR R13,1

*-*

 * *

 * SRB CODE*

 * *

 * R2 -- Point to 24 Bit 24 byte paramter area*

 * *

 *bytes 0 - 3 Address of Retry routine *

 *bytes 4 - 7 area of storage LSQA,PVT etc *

 *bytes 8 - 11 R13 *

 *-*

 VSMLOC   DS0D  

  DROP  R3  

  LRR5,R15  

  USING VSMLOC,R5 Entry Point   

  LRR10,R14   SAVE RETURN ADDRESS   

  LRR13,R1  

 *DROP  R13 

 

 

 

 

 

 

 

 

   


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IEAMSCHD no FRR param

[michealbutz]

So All I have to do is set what I want in  the 24 bytes R2 is pointing to 

thanks so much   

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Rob Scott
Sent: Monday, June 15, 2015 11:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEAMSCHD no FRR param

Apologies, the FRR=YES was copied from the Auth Asm Services Guide 
description of the reg contents at SRB entry and refers to the keyword on 
SCHEDULE.

The appropriate keyword on IEAMSCHD is FRRADDR= with a value that is not 
NOFRR

As stated before, you do not have to code anything, the system will prime R2 
for your SRB to use on entry.

Rob Scott
Principal Software Engineer
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 michelbutz
Sent: 15 June 2015 15:50
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEAMSCHD no FRR param

Rob

With all you due respect I looked at the IEAMSCHD macro in Sys1.maclibb

And all I see is FRRADDR= a pointer the FRR routine I don't see FRR= parameter

If I code FRRADDR= address of my FRR routine Am I supposed to prime R2 with the 
FRR parameter area

Sent from my iPhone

 On Jun 15, 2015, at 8:41 AM, Rob Scott rsc...@rocketsoftware.com wrote:

 No.

 On entry to your SRB, the *system* sets R2 to the FRR parameter area pointer 
 if you code FRR=YES on IEAMSCHD.

 See the doc on IEAMSCHD in Auth Asm Services Guide.

 Rob Scott
 Principal Software Engineer
 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 michelbutz
 Sent: 15 June 2015 13:34
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: IEAMSCHD no FRR param

 Wow
 So I prime R2
 And R2 has to be 24 key 0 I guess I can use LSQA shouldn't bump heads 
 with the os Thanks

 Sent from my iPhone

 On Jun 15, 2015, at 4:31 AM, Rob Scott rsc...@rocketsoftware.com wrote:

 When SRB receives control from IEAMSCHD, R2 contains a 24-bit address of the 
 FRR parameter area.

 You can pass parameters to your FRR from your SRB by using this address.

 Your FRR can establish addressability to whatever you store there by using 
 the SDWAPARM field.

 Note that you will need to be in Key0 to store at this address.

 Rob Scott
 Principal Software Engineer
 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 michelbutz
 Sent: 14 June 2015 19:30
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: IEAMSCHD no FRR param

 The IEAMSCHD has a FRRADDR parm
 But doesn't have an input param for paramters to FRR routine

 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  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/GlobalSubscriptionManagementEmailFoote
 r _SubscriptionCenter.html Privacy Policy - 
 http://www.rocketsoftware.com/company/legal/privacy-policy
 

 This communication and any attachments may contain confidential information 
 of Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
 prohibited. If you are not the intended recipient, please notify Rocket 
 Software immediately and destroy all copies of this communication. Thank you.

 -
 - For IBM-MAIN subscribe / signoff / archive access instructions, 
 send email to lists...@listserv.ua.edu with the message: 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
 

 

Unable to get dump under TESTAUTH

[michealbutz]

Hi,

 

I am getting a S0C1 debugging my program under TESTAUTH when I do a Where to
see where I bombed It display's a 31 bit private address with the message
not whitin any program extents it look close to an area I did a storage
obtain sp=0 I thought adding a dsn LRECL=133 RECFM=FBM to SYSUDUMP would
give me dump but after the abort the dataset was empty   


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

EXSPATxx member

[michealbutz]

Hi,

 

will settting SPINRCVY to SPIN allow a CPU to sping endlesssly 

 

as leaving out the SPINTIME paramter seem to make it default to 40 seconds

 

if not is there a way to make a CPU keep spining and have z/os take no
action

 

 

thanks 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Recovery routines

[MichealButz]

My main focus is saving the SDWA in a SVC dump as that is the best audit
trail of what has happened I have read chapter 8 the Assembler Services
guide If there is a better source of information please let me know
Thanks
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Jon Perryman
Sent: Monday, September 01, 2014 2:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Recovery routines

Dump suppression or the dump options probably suppressed the dump.

Use MVS command SL SET,ID=xx,COMP=0C4,JOBNAME=,ACTION=SVCD,END.  Note
that if your recovery routine has the same abend, then you will need to
issue SL SET,ID=xx2,COMP=0C4,JOBNMAE=xxx,ACTION=NODUMP,MATCHLIM=1,END  after
the first SL command so that you capture the correct dump data.ou

Also be aware that z/OS produces S0C4 abends that are never seen. Use of
JOBNAME= will ignore most of them. If this is not sufficient, then you will
need to find the info apar that describes how to ignore these S0C4 abends.

Jon Perryman

On Sunday, August 31, 2014 2:14 PM, MichealButz michealb...@comcast.net
wrote:
 
Thanks For your help I did confirm that my recovery routine  was entered I
have to find out was I the SDUMP wasn't generated


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: 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

[MichealButz]

Thanks For your help I did confirm that my recovery routine  was entered I
have to find out was I the SDUMP wasn't generated  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Jon Perryman
Sent: Friday, August 29, 2014 5:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Recovery routines

Supervisor state, AR mode and key 0 don't affect execution of an ESTAE. If
as you say (ESTAE is set and you BALR to another routine), then your ESTAE
will be called. Either you are not telling us everything we need to know or
you are telling us something that is wrong. This is why we the source would
be extremely helpful because we are just guessing.

If you are telling us everything, then the only possibility is that your
ESTAE routine is also abending with a S0C4. Did you analyze the dump? Try
changing your ESTAE program so that DC X'' ABEND is the first statement.
This will cause a S0C1 to be displayed if your ESTAE get's control. Your
ESTAE may be running in the wrong key to analyze the abend.

Jon Perryman



On Friday, August 29, 2014 8:19 AM, MichealButz michealb...@comcast.net
wrote:
 
I do establish the estaex in the cmdproc the authorized program at the time
it is in problem state ASC primary I load a program BALR to it at the time
of the abend Iam in Supervisor state ASC AR storage key 0   does that
matter. For my recovery routine to get control 

What I wll do under TESTAUTH is do a LISTTCB at the time I establish 
the esate(x) and another LISTTCB when I am in ASC AR supervisor state 
storage key 0 and see it thr TCB is the same


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: 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

[MichealButz]

I do establish the estaex in the cmdproc the authorized program at the time it 
is in problem state ASC primary I load a program BALR to it at the time of the 
abend Iam in Supervisor state ASC AR storage key 0   does that matter
For my recovery routine to get control 

What I wll do under TESTAUTH is do a LISTTCB at the time I establish the 
esate(x) and another LISTTCB when I am in ASC AR supervisor state storage key 0 
and see it thr TCB is the same

Thankx 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Rob Scott
Sent: Friday, August 29, 2014 5:35 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Recovery routines

Your AUTHxxx cmdproc runs under the parallel authorized TMP whilst all other 
tasks in the address space are STATUS STOPed.

The ESTAE environment established by the caller will NOT be invoked for any 
abends in the cmdproc running on the parallel task structure.

To handle abends in the AUTHxxx cmdproc - it must establish its own recovery 
environment.

You can read the documentation about IKJEFTSR in the TSO/E Programming Services 
manual for more information in this area.

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: 28 August 2014 13:05
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Recovery routines

ISPF is not part of the equation
Is plain vanilla TSO
The second program is loaded and balr'ed to The library is APF authorized

My question is the abend occurs in a different environment then from where the 
estae(x) was established E.g XMEM authorized etc does the recovery rtn get 
control

Thanks
Sent from my iPhone

 On Aug 28, 2014, at 1:27 AM, Jon Perryman jperr...@pacbell.net wrote:

 TSO CMDPGM is how your program was invoked from the ISPF display. How did 
 your program call the next program? Was it thru ISPEXEC SELECT PGM or 
 assembler LINK or ??? If it was ISPEXEC, then your problem is that ISPF is 
 setting an ESTAE. If it's thru LINK then maybe ISPF is intercepting the SVC.

 If the problem is ISPF setting the ESTAE then calling ISPEXEC CONTROL SUBTASK 
 CLEAR from the second program may resolve your problem.

 TSO is complicating your question and causing your confusion. TSO violates 
 the restriction when you run authorized programs when unauthorized libraries 
 are in the steplib/joblib/calllib concatenations. To ensure unauthorized 
 programs never have access to an authorized environment, TSO must take 
 extraordinary measures to make sure these programs never have access to an 
 authorized environment. You see this by the use of authpgm and authcmd.

 I bring this up as a WARNING because you somehow call another program from 
 under AUTHCMD authorized program. You must take extreme care not to allow a 
 program from an UNAUTHORIZED library otherwise you expose your entire system. 
 If you don't use standard call methods (e.g. LINK), then you have an exposure 
 that must be fixed.

 In TSO, authorized programs are executed under a special authorized task. 
 This will cause programs to run authorized to execute in another TCB. But for 
 your ESTAE, this is not specifically important. What's important is where the 
 called program executes versus your program. Set a slip for the abend to take 
 a dump. In the trace table, you estae and the the abend should have the same 
 TCB. If not, then TSO is probably at fault. If not, you can see who sets an 
 estae after your ESTAE. If ISPF is setting it, then You can look where your 
 both programs are running. If they are under the same TCB then maybe you can 
 see if which ISPF function is somehow setting the ESTAE..

 Jon Perryman



 On Wednesday, August 27, 2014 3:02 PM, Micheal Butz michealb...@comcast.net 
 wrote:

 I want to accomplish to have complete coverage for my program
 By that I mean anytime I get an abend in any state I want my recovery 
 routine to get control

 Sent from my iPhone

 On Aug 27, 2014, at 5:56 PM, Tony Harminc t...@harminc.net wrote:

 On 27 August 2014 16:48, Micheal Butz michealb...@comcast.net wrote:
 I have question I understand that an authorized command run under a 
 different tmp

 Well, a different task structure.

 Is that always meaning the same program while in problem state runs 
 Under one tmp and when I switch to Supervisor under another

 No - it doesn't work that way at all. Once it's been decided that a 
 command will run APF authorized, it is dispatched under a different 
 task structure, while the unauthorized stuff is all status stopped.
 If you are able to switch to supervisor state, you were authorized 
 by definition (or IBM will fix it PDQ!), so you won't be running 
 under the unauthorized branch.

 If so I established my estae(x) In Problems state and I abended in 
 

Re: Recovery routines

[MichealButz]

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 

- Original Message -

From: Micheal Butz michealb...@comcast.net
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Wednesday, August 27, 2014 4:47:13 AM
Subject: Re: Recovery routines 

It is declared as authorized in IKJTSOxx what is the significance of that I'll 
research it thanks 

Sent from my iPhone 

 On Aug 27, 2014, at 5:25 AM, Rob Scott rsc...@rocketsoftware.com wrote: 
 
 This is where you need to do some elimination of certain factors : 
 
 (1) Does your ESTAE actually work? 
 Test it by doing a link to a dummy program and forcing that dummy 
 program to abend
 
 (2) Is it related to the TSO command environment? 
 Test this by using TSO dummy and re-test using the dummy program 
 from (1)
 
 (3) Is there something special about the TSO command processor? 
 For example, is it declared in AUTHxxx in IKJTSOxx ? (If so - this 
 explains your problem)
 
 (4) Is it related to ISPF services
 Add some ISPF services to your dummy program and re-test
 
 
 
 Rob Scott
 Lead Developer
 Rocket Software
 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA
 Tel: +1.781.684.2305
 Email: rsc...@rs.com
 Web: www.rocketsoftware.com
 
 
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
 On Behalf Of Micheal Butz
 Sent: 27 August 2014 00:54
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: Recovery routines
 
 It was a TSO command processor
 Which I execute from within
 ISPF   With following syntax
 TSO CMDPGM
 
 
 
 Sent from my iPhone
 
 On Aug 26, 2014, at 7:39 PM, Walt Farrell walt.farr...@gmail.com wrote: 
 
 On Tue, 26 Aug 2014 18:02:01 -0400, Micheal Butz michealb...@comcast.net 
 wrote: 
 
 It hasn't retried
 
 I establish an estaex in the begining Of My program then load 
 another program The second program gets a S0C4 I get an ISP message 
 re a S0C4 and the program ends my routine Never has a chance to 
 examine It point is if everything is still 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

[MichealButz]

Very vanilla TSO command processor executed from within ISPF  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ron Graham
Sent: Wednesday, August 27, 2014 10:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Recovery routines

After you establish your ESTAE, do you call any ISPF services?  

I had problems with my ESTAE getting control because ISPF would establish an 
ESTAE after mine.  ISPF's ESTAE would get control first and my ESTAE would 
never be called.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of MichealButz
Sent: Wednesday, August 27, 2014 9:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
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 

- Original Message -

From: Micheal Butz michealb...@comcast.net
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Wednesday, August 27, 2014 4:47:13 AM
Subject: Re: Recovery routines 

It is declared as authorized in IKJTSOxx what is the significance of that I'll 
research it thanks 

Sent from my iPhone 

 On Aug 27, 2014, at 5:25 AM, Rob Scott rsc...@rocketsoftware.com wrote: 
 
 This is where you need to do some elimination of certain factors : 
 
 (1) Does your ESTAE actually work? 
 Test it by doing a link to a dummy program and forcing that dummy 
 program to abend
 
 (2) Is it related to the TSO command environment? 
 Test this by using TSO dummy and re-test using the dummy program 
 from (1)
 
 (3) Is there something special about the TSO command processor? 
 For example, is it declared in AUTHxxx in IKJTSOxx ? (If so - this 
 explains your problem)
 
 (4) Is it related to ISPF services
 Add some ISPF services to your dummy program and re-test
 
 
 
 Rob Scott
 Lead Developer
 Rocket Software
 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA
 Tel: +1.781.684.2305
 Email: rsc...@rs.com
 Web: www.rocketsoftware.com
 
 
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
 On Behalf Of Micheal Butz
 Sent: 27 August 2014 00:54
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: Recovery routines
 
 It was a TSO command processor
 Which I execute from within
 ISPF   With following syntax
 TSO CMDPGM
 
 
 
 Sent from my iPhone
 
 On Aug 26, 2014, at 7:39 PM, Walt Farrell walt.farr...@gmail.com wrote: 
 
 On Tue, 26 Aug 2014 18:02:01 -0400, Micheal Butz michealb...@comcast.net 
 wrote: 
 
 It hasn't retried
 
 I establish an estaex in the begining Of My program then load 
 another program The second program gets a S0C4 I get an ISP message 
 re a S0C4 and the program ends my routine Never has a chance to 
 examine It point is if everything is still 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

TPUT fullscr NOT working getting abend 66D

[MichealButz]

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

Re: PLPA enty

[MichealButz]

Thanks that was it

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Norbert Friemel
Sent: Monday, August 18, 2014 2:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PLPA enty

On Sun, 17 Aug 2014 22:37:48 -0400, MichealButz wrote:

Hi

Did all that in fact I deleted USER.LPALIB and when I look at TASID - 
LPA it is still there

Forgot CLPA? 
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2e2c3/54.8.9

Norbert Friemel


Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
On Behalf Of John McKown
Sent: Sunday, August 17, 2014 9:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PLPA enty

I assume that you have IPL'd after changing PARMLIB. Did you review the IPL 
messages? If IPL/NIP has some problem with your data set, it will just issue a 
message and continue on. Some of the problems that I know off, off-hard are:

(1) data set is not catalogued in the MASTER catalog _and_ the volser is not 
specified in the LPALSTxx member either. I.e. it is cataloged in a USER 
catalog pointed to by an ALIAS.

(2) The DSN is not on the catalogued volume, if using the MASTER 
catalog;

(3) the DSN's volser is specified in the LPALSTxx member, but the DSN 
isn't on the volume specified;

(4) the DSN isn't a PDS. I.e. it is a PDSE or something else 
(sequential, BDAM, VSAM). OK, those last are unlikely! grin/



On Sun, Aug 17, 2014 at 8:06 PM, MichealButz
wrote:

 Hi,



 I put my loadlib library in LPALSTXX or specifically 01 that is what 
 is pointed to by LPA member on the active IEASYS

 When I use TASID to look at LPA libs I see all of them except the one 
 I added

 Am I missing something



 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

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

PLPA enty

[MichealButz]

Hi,

 

I put my loadlib library in LPALSTXX or specifically 01 that is what is
pointed to by LPA member on the active IEASYS 

When I use TASID to look at LPA libs I see all of them except the one I
added 

Am I missing something

 

Thanks 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: PLPA enty

[MichealButz]

Hi

Did all that in fact I deleted USER.LPALIB and when I look at TASID - LPA it 
is still there

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Sunday, August 17, 2014 9:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PLPA enty

I assume that you have IPL'd after changing PARMLIB. Did you review the IPL 
messages? If IPL/NIP has some problem with your data set, it will just issue a 
message and continue on. Some of the problems that I know off, off-hard are:

(1) data set is not catalogued in the MASTER catalog _and_ the volser is not 
specified in the LPALSTxx member either. I.e. it is cataloged in a USER catalog 
pointed to by an ALIAS.

(2) The DSN is not on the catalogued volume, if using the MASTER catalog;

(3) the DSN's volser is specified in the LPALSTxx member, but the DSN isn't on 
the volume specified;

(4) the DSN isn't a PDS. I.e. it is a PDSE or something else (sequential, 
BDAM, VSAM). OK, those last are unlikely! grin/



On Sun, Aug 17, 2014 at 8:06 PM, MichealButz michealb...@comcast.net
wrote:

 Hi,



 I put my loadlib library in LPALSTXX or specifically 01 that is what 
 is pointed to by LPA member on the active IEASYS

 When I use TASID to look at LPA libs I see all of them except the one 
 I added

 Am I missing something



 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

Return code 8 from open

[MichealButz]

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

Re: Return code 8 from open

[MichealButz]

Just checked no messages

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Jon Perryman
Sent: Wednesday, August 13, 2014 3:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Return code 8 from open

In this case, I would expect it to be in the job log for the TSO user.


Jon Perryman

On Wednesday, August 13, 2014 11:58 AM, Hardee, Chuck
chuck.har...@thermofisher.com wrote:
 
He said he found that the SVC 99 allocate worked via ISRDDN.
It would seem to me that his program is being executed in a TSO session.

My question would be, would that message be written to the job log
representing his session, the terminal screen as part of his output, or is
it being held by TSO for him to ask for it?


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Dynamic Alocation question

[MichealButz]

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 ?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Hardee, Chuck
Sent: Monday, August 04, 2014 6:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Dynamic Alocation question

Michael,

As far as I know, the answer to your question is, YES.
Your dynamic allocation request to concatenate datasets is the same whether
you dynamically allocated them or if they came pre-allocated at runtime. 
You always use DDNames in the concatenation list, never dataset names.

Your S99VERB would be S99VRBCC in your DYNALLOC control block.
Then, your text unit to allocate 2 DDs, DDN1 and DDNAME2, would be:

DC  S(DCCDDNAM),S(2),S(5),CL5'DDN01',S(7),CL7'DDNAME2'

The 2 is the number of DDNames in the list and the list follows
immediately with length/DDName pairs.
The text unit, DDName count and DDName lengths are all halfwords.

There are some implications with respect to de-concatenation, but you'll
need to read up on those yourself.
They can be found in the MVS Authorized Assembler Services Guide, Chapter
26. Requesting dynamic allocation functions.


Hope this helps.

Chuck

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 MichealButz
Sent: Sunday, August 03, 2014 9:45 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Dynamic Alocation question

I keep on getting 0360 In the S99ERROR filed

 

Invalid text key

 

I have the following question can I dynamically concatenate a dataset to one
the wasn't dynamically allocated and if so what would the text key be for
the ddname X'0001' DALDDNAM or X'0055' Return ddname

 

I have looked for documentation and couldn't find any

 

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

[MichealButz]

THANK YOU

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Hardee, Chuck
Sent: Monday, August 04, 2014 8:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Dynamic Alocation question

If the dataset is not allocated in your JCL, then yes, you must allocate it
and you will need to use the DALRTDDN to have the SVC 99 processor return to
your program the DDName it generated and then you will need to supply that
DDName in the list of DDNames you want to concatenate.

Alternatively, you can allocate it and supply your own DDName in which case
you would use that DDName in the concatenation list.

As to the concatenation of anything using involving ISPLLIB, TASKLIB or
STEPLIB, I have never attempted anything with them so I can't answer your
question. I would, however, suggest you find a copy of the MVS Authorized
Assembler Services Guide, and read Chapter 26. Requesting dynamic allocation
functions. There is a discussion of what happens during dynamic
concatenation and its effects on allocations involving DDs that were
preexisting versus dynamically created, etc.

Whether it will be a problem or not for you I can't say, but play around
with ISPLLIB, TASKLIB and/or STEPLIB very cautiously. Especially if you are
going to de-concatenate something you have concatenated yourself.

Chuck

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

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Hardee, Chuck
Sent: Monday, August 04, 2014 6:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Dynamic Alocation question

Michael,

As far as I know, the answer to your question is, YES.
Your dynamic allocation request to concatenate datasets is the same whether
you dynamically allocated them or if they came pre-allocated at runtime. 
You always use DDNames in the concatenation list, never dataset names.

Your S99VERB would be S99VRBCC in your DYNALLOC control block.
Then, your text unit to allocate 2 DDs, DDN1 and DDNAME2, would be:

DC  S(DCCDDNAM),S(2),S(5),CL5'DDN01',S(7),CL7'DDNAME2'

The 2 is the number of DDNames in the list and the list follows
immediately with length/DDName pairs.
The text unit, DDName count and DDName lengths are all halfwords.

There are some implications with respect to de-concatenation, but you'll
need to read up on those yourself.
They can be found in the MVS Authorized Assembler Services Guide, Chapter
26. Requesting dynamic allocation functions.


Hope this helps.

Chuck

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 MichealButz
Sent: Sunday, August 03, 2014 9:45 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Dynamic Alocation question

I keep on getting 0360 In the S99ERROR filed

 

Invalid text key

 

I have the following question can I dynamically concatenate a dataset to one
the wasn't dynamically allocated and if so what would the text key be for
the ddname X'0001' DALDDNAM or X'0055' Return ddname

 

I have looked for documentation and couldn't find any

 

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

Re: Dynamic Alocation question

[MichealButz]

Thanks so much

-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

Re: Dynamic Alocation question

[MichealButz]

Hi,

 

I don't think steplib will work but I will try the TASKLIB from TSOLIB I
think coming from there it is still APF authorized


25.2.2.1 JCL DD statement facilities not supported by dynamic allocation


 

Table 25-2
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/iea2a8c0/25.2.2.
1?SHELF=iea2bkb4DT=20110614135151#TBLMJFIG4  lists JCL DD statement
facilities that cannot be used in dynamic allocation. 

 


 Table 25-2. JCL DD Statement Facilities Not Supported by Dynamic   
 Allocation 


 Restricted DDnames

 JOBCAT, STEPCAT, JOBLIB, and font color=#ffSTEPLIB/font
color=#ff   


 Keyword Parameters

 CHKPT, DDNAME, DLM, and DSID   


 Positional Parameters 

 *, DATA, and DYNAM 


 Selected  
 Subparameters of  
 Keywords  
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   

 Keyword   Subparameter Not Supported   

 DCB   reference to ddname of a previous
   step 

   CYLOFL   
   NTM  
   RKP  

 DISP  PASS specification   

 DSN   reference to ddname (as in *.ddname) 
   ISAM area name   

 SPACE ABSTR specification  

 UNIT  AFF  

 VOLUMERETAIN specification 

   REF=ddname   



 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Micheal Butz
Sent: Monday, August 04, 2014 9:25 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Dynamic Alocation question

 

Correct I am writing an authorized TSO command processor and would like to
concatenated it to STEPLIB/TASKLIB TSOLIB 

 

Sent from my iPhone

 

 On Aug 4, 2014, at 9:06 AM, Hardee, Chuck 
mailto:chuck.har...@thermofisher.com chuck.har...@thermofisher.com wrote:

 

 Correct, but there are implications.

 It has to do with whether the allocations were dynamically created or not,
and whether you will be de-concatenating them or not. That's why I keep
telling the OP to locate a copy of the MVS Authorized Assembler Services
Guide and read Chapter 26. Requesting dynamic allocation functions. There's
some implications of what happens to datasets and concatenation groups that
have the permanent attribute, for example, that need to be known before you
go and slap DDNames into a single concatenation group.

 

 I'm sort of think that the OP is writing something for use under TSO/ISPF
because of his query about STEPLIB, TASKLIB and ISPLLIB, which then implies
that he may need to preserve a concatenation group, like STEPLIB, before he
adds to it so that when his program terminates he can put it back like it
was.

 

 C-

 

 Charles (Chuck) Hardee

 Senior Systems Engineer/Database Administration CCG Information 

 Technology Thermo Fisher Scientific

 300 Industry Drive

 Pittsburgh, PA 15275

 Direct: 724-517-2633

 FAX: 412-490-9230

  mailto:chuck.har...@thermofisher.com chuck.har...@thermofisher.com

 

 

 -Original Message-

 From: IBM Mainframe Discussion List [ mailto:IBM-MAIN@LISTSERV.UA.EDU
mailto:IBM-MAIN@LISTSERV.UA.EDU] 

 On Behalf Of Charles Mills

 Sent: Monday, August 04, 2014 8:59 AM

 To:  mailto:IBM-MAIN@LISTSERV.UA.EDU 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
mailto:IBM-MAIN@LISTSERV.UA.EDU] 

 On Behalf Of MichealButz

 Sent: Monday, August 04, 2014 8:45 AM

 To:  mailto:IBM-MAIN@LISTSERV.UA.EDU IBM-MAIN@LISTSERV.UA.EDU

 Subject: Re: Dynamic Alocation question

 

 Hi, does this mean If I want

Dynamic Alocation question

[MichealButz]

I keep on getting 0360 In the S99ERROR filed

 

Invalid text key

 

I have the following question can I dynamically concatenate a dataset to one
the wasn't dynamically allocated and if so what would the text key be for
the ddname X'0001' DALDDNAM or X'0055' Return ddname

 

I have looked for documentation and couldn't find any

 

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

LLA question

[MichealButz]

The way I understand the documentation coding a LIBRARIES(...) MEMBERS(
will automatically make the member from the that library LLA managed 

 

I start S LLA,SUB=MSTR,LLA=01 where the lla parmlib member is CSVLLA01 I am
also assuming that the library has to be somewhere in the search order

 

Job/step/task/linklist

 

However when I do D LLA,STATS I fail to see LLA doing a fetch

 

 

thanks 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: LLA question

[MichealButz]

Does the dataset have to be in the linklst for LLA to manage it ?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Friday, August 01, 2014 11:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: LLA question

MichealButz wrote:

The way I understand the documentation coding a LIBRARIES(...) MEMBERS( 
will automatically make the member from the that library LLA managed

I start S LLA,SUB=MSTR,LLA=01 where the lla parmlib member is CSVLLA01 
I am also assuming that the library has to be somewhere in the search 
order

However when I do D LLA,STATS I fail to see LLA doing a fetch

WAD. Fetch is only for NEW address spaces.

Review 'SETPROG LNKLST' to see how to make changes so existing address spaces 
can do those fetches.

As usual - be careful you don't crash your running address spaces...

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

Invoking CSVLLIX1

[MichealButz]

HI,

 


I was under the assumption that the following would enable CSVLLIIX1 for a
module

 

1)  Defining the library and module in CSVLLA01 

2)  Starting LLA with the following syntax S LLA,SUB=MSTR,LLA=01

3)  Defining with the exit with the following in my program

  CSVDYNEX REQUEST=ADD,
X 

   EXITNAME=CSVLLIX1,  X 

   STATE=ACTIVE,   X 

   MODNAME=SGBLLIX1,   X 

   MODADDR=AA.LLA_ADDRESS, X 

   PARAM=AA.LLA_PARAM, X 

   STOKEN=AA.ADRSSTKN, X 

   POS=FIRST,  X 

   RETCODE=AA.RETCODE, X 

   RSNCODE=AA.RSNCODE,MF=(E,DYN_PARM)

*

 

 

I get a return code 0 from the above but the exit isn't invoked 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

return code from SYSEVENT TRANSWAP ENTRY=BRANCH

[MichealButz]

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

Re: SVC 99 APF Authorized Library

[MichealButz]

Thanks that’s what I wanted to know 

 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Walt Farrell
Sent: Monday, July 07, 2014 6:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SVC 99 APF Authorized Library

On Mon, 7 Jul 2014 02:50:11 -0400, Micheal Butz michealb...@comcast.net wrote:

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 ?

You should be able to use SVC99 to dynamically allocate an authorized library, 
OPEN a DCB that points to that DD, and then issue a LOAD _from that DCB_. That 
would avoid the 306 abend.

However, while running authorized you cannot do anything to allow a LOAD from 
the original DCB, which is for a non-APF-authorized concatenation.

--
Walt

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SVC 99 APF Authorized Library

[MichealButz]

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
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Monday, July 07, 2014 7:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SVC 99 APF Authorized Library

On Mon, 7 Jul 2014 05:50:23 -0500, Walt Farrell wrote:

You should be able to use SVC99 to dynamically allocate an authorized library, 
OPEN a DCB that points to that DD, and then issue a LOAD _from that DCB_. That 
would avoid the 306 abend.

However, while running authorized you cannot do anything to allow a LOAD from 
the original DCB, which is for a non-APF-authorized concatenation.
 
But I wonder how he came to be running authorized with the original DCB 
(STEPLIB/TASKLIB?) a non-APF-authorized concatenation?

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

SVC 99 APF Authorized Library

[MichealButz]

Hi,

 

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 ?

 

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

unable to set second level error message for IKJPOSIT operand

[MichealButz]

Hi,

 

I have a IKJPOSIT operand defined as a dataset the documentation says that
in VALIDCK exit the 3rd parameter is the address of second level message

 

I set R15 to 4 set the address of my message to in this field  and all I get
is the standard IKJ message invalid dataset with 8 characters I entered for
the dataset

 

I have also tried adding a prompt= to the PCE for this IKJPOSIT initializing
it with blanks and then moving my message to that area

 

Neither method generates a second level error message with R15 = 4. All I
get is the standard IKJ. invalid dataset

 

Thanks   


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IKJPOSIT question

[MichealButz]

 -





   
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Anthony Thompson
Sent: Monday, June 30, 2014 4:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IKJPOSIT question

Quote ' I am looking for to enter a string following a keyword towards that
end I use IKJPOSIT SPACE,VALIDCK='

Making a positional parameter follow a keyword doesn't make much sense to
me.

For further help, I think you'll need to supply:

1) the intended syntax of your command;
2) the parameters passed to IKJPARS (the IKJPARM macro and all the following
IKJ* macros through to the IKJENDP macro);
3) what you entered on your TSO session to cause the error message.

Ant.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of MichealButz
Sent: Monday, 30 June 2014 10:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IKJPOSIT question

I am looking for to enter a string following a keyword towards that end I
use IKJPOSIT SPACE,VALIDCK=

I am looking to enter program name which is up to a 8 byte character string

When I enter the string it comes back to me  IKJ56712I INVALID KEYWORD 

I don't understand this as there isn't keyword it's a positional operand  


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IKJPOSIT question

[MichealButz]

I have changed it around and am testing it thank you 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Walt Farrell
Sent: Monday, June 30, 2014 9:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IKJPOSIT question

On Mon, 30 Jun 2014 06:59:49 -0400, Micheal Butz michealb...@comcast.net 
wrote:

The whole scenario was interactive

Bottom line why when I use IKJPOSIT  with DSNAME operand And I enter a 
8 character load module does it come back with invalid keyword

Because, I believe, positional operands must come before keyword operands. So 
anything entered after the first keyword operand must also be a keyword operand.

--
Walt

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

IKJ macro question

[MichealButz]

Hi,

 

I have the following IKJ macros defined in my program for the IKJUNFKD I
initially use a eight byte character program name if this program name
proves to be 

Invalid I look for the user to re-enter a dsn where it could be found
however I get a message back from the parser it's an invalid parameter for a
dsn string e.g. with periods

 

I thought IKJUNFLD should take any parameters

 

 

ABCD IKJPARM DSECT=PARSEAT 

ASID IKJKEYWD  

 IKJNAME  'ASID',SUBFLD=ASIDF  

*  

   

PROG IKJUNFLD VERIFCK=PROGLOOK  


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

IKJPOSIT question

[MichealButz]

An 

 

I am looking for to enter a string following a keyword towards that end I
use IKJPOSIT SPACE,VALIDCK=

 

I am looking to enter program name which is up to a 8 byte character string

 

When I enter the string it comes back to me  IKJ56712I INVALID KEYWORD 

 

I don't understand this as there isn't keyword it's a positional operand  


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

[MichealButz]

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
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 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 john.archie.mck...@gmail.com
wrote:
 
 No. If the PC routine does not require APF authorization, then the 
 IKJTSOnn AUTH... entry isn't relevant. As an example, the STORAGE 
 macro does a PC to do its magic, not an SVC. But a program which uses 
 the STORAGE macro doesn't need to be in the list(s) mentioned. Only 
 programs which are linked as AC=1 and which you want to be invoked by 
 TSO with APF authorization active need to be listed.
 
 
 On Fri, Jun 27, 2014 at 8:57 AM, MichealButz michealb...@comcast.net
 wrote:
 
 Hi,
 
 
 
 I know if you want to run authorized code under TSO you have to place 
 it in IKJTSOxx AUTHCMD/PGM
 
 
 
 What if that code generates a PC rtn does TMP know of it
 
 
 
 
 
 Thanks
 
 
 -
 - For IBM-MAIN subscribe / signoff / archive access instructions, 
 send email to lists...@listserv.ua.edu with the message: INFO 
 IBM-MAIN
 
 
 
 --
 There is nothing more pleasant than traveling and meeting new people!
 Genghis Khan
 
 Maranatha! 
 John McKown
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions, send 
 email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: 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

[MichealButz]

Why cant I issue simple TSO command via IKJEFTSR because my code is
authorized I don't understand the idea behind it

I would like to keep everything local to my TSO address space I am not
trying to do anything kooky I have a recovery rtn and MVS message interfere
with it so I am just trying to do PROFILE NOWTMSG

I don't understand why TCAS doesn't let me do it

But maybe there is a good reason

Thanks 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Rob Scott
Sent: Friday, June 27, 2014 11:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IKJTSOxx Auth pgm cmds PC rtns

If you have a PC-owning service-providing server address space, then you
could probably dispense with AUTHPGM/CMD/TSF entries completely and keep
your client code in normal problem state key 8.

Your non-auth client can ask the server address space to perform any
authorized functions on its behalf and communicate via some sort of request
queue and SUSPEND/RESUME logic.   

Attempting to turn your TSO user address space into a PC-owning
service-providing address space to circumvent authority issues is an idea
that is so bad it defies description - please say that you are not
considering that.

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: 27 June 2014 16:02
To: IBM-MAIN@LISTSERV.UA.EDU
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
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 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 
 john.archie.mck...@gmail.com
wrote:
 
 No. If the PC routine does not require APF authorization, then the 
 IKJTSOnn AUTH... entry isn't relevant. As an example, the STORAGE 
 macro does a PC to do its magic, not an SVC. But a program which uses 
 the STORAGE macro doesn't need to be in the list(s) mentioned. Only 
 programs which are linked as AC=1 and which you want to be invoked by 
 TSO with APF authorization active need to be listed.
 
 
 On Fri, Jun 27, 2014 at 8:57 AM, MichealButz michealb...@comcast.net
 wrote:
 
 Hi,
 
 
 
 I know if you want to run authorized code under TSO you have to place 
 it in IKJTSOxx AUTHCMD/PGM
 
 
 
 What if that code generates a PC rtn does TMP know of it
 
 
 
 
 
 Thanks
 
 
 -
 - For IBM-MAIN subscribe / signoff / archive access instructions, 
 send email to lists...@listserv.ua.edu with the message: INFO 
 IBM-MAIN
 
 
 
 --
 There is nothing more pleasant than traveling and meeting new people!
 Genghis Khan
 
 Maranatha! 
 John McKown
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions, send 
 email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: 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

Re: IKJTSOxx Auth pgm cmds PC rtns

[MichealButz]

Rob
With all due to respect and I mean that sincerely I have number of TSO
commands that would make life easier it boggles my mind that because I am
authorized I can't use them

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Rob Scott
Sent: Friday, June 27, 2014 11:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IKJTSOxx Auth pgm cmds PC rtns

It is well documented in the TSO manuals that IKEFTSR will not allow
authorized programs to issue unauthorized commands.

All authorized command/program activity in TSO runs under a parallel
authorized TMP jobstep - running commands and programs that were not
designed (or tested) to be invoked authorized is an obvious integrity
exposure.

As far as NOWTPMSG, it might be useful to investigate if it is *supported*
to change the UPT settings manually - see UPTWTP and UPTNCOM in IKJUPT.  

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: 27 June 2014 16:29
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IKJTSOxx Auth pgm cmds PC rtns

Why cant I issue simple TSO command via IKJEFTSR because my code is
authorized I don't understand the idea behind it

I would like to keep everything local to my TSO address space I am not
trying to do anything kooky I have a recovery rtn and MVS message interfere
with it so I am just trying to do PROFILE NOWTMSG

I don't understand why TCAS doesn't let me do it

But maybe there is a good reason

Thanks 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Rob Scott
Sent: Friday, June 27, 2014 11:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IKJTSOxx Auth pgm cmds PC rtns

If you have a PC-owning service-providing server address space, then you
could probably dispense with AUTHPGM/CMD/TSF entries completely and keep
your client code in normal problem state key 8.

Your non-auth client can ask the server address space to perform any
authorized functions on its behalf and communicate via some sort of request
queue and SUSPEND/RESUME logic.   

Attempting to turn your TSO user address space into a PC-owning
service-providing address space to circumvent authority issues is an idea
that is so bad it defies description - please say that you are not
considering that.

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: 27 June 2014 16:02
To: IBM-MAIN@LISTSERV.UA.EDU
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
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 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 
 john.archie.mck...@gmail.com
wrote:
 
 No. If the PC routine does not require APF authorization, then the 
 IKJTSOnn AUTH... entry isn't relevant. As an example, the STORAGE 
 macro does a PC to do its magic, not an SVC. But a program which uses 
 the STORAGE macro doesn't need to be in the list(s) mentioned. Only 
 programs which are linked as AC=1 and which you want to be invoked by 
 TSO with APF authorization active need to be listed.
 
 
 On Fri, Jun 27, 2014 at 8:57 AM, MichealButz michealb...@comcast.net
 wrote:
 
 Hi,
 
 
 
 I know if you want to run authorized code under TSO you have to place 
 it in IKJTSOxx AUTHCMD/PGM
 
 
 
 What if that code generates a PC rtn does TMP know of it
 
 
 
 
 
 Thanks

error invoking IKJEFTSR from Authotized progam

[MichealButz]

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

Second level error TSO verify exit not displaying

[MichealButz]

Hi,

 

I am setting the both VEPLMSG1 and VEPLMSG2 and their associated length set
R15 to 4 yet only VEPLMSG1 display's

 

The doc says that either rc 4 or 12 will display both

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

LISTA data in a SVC dump

[MichealButz]

Hi,

 

Would anyone know the command to use to find the data referenced by the
LISTA parameter in a IPCS dump

 

Thanks  


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

[MichealButz]

Binyamin the  ST command dumps SDUMP parameter list offset +8 is the LISTA
address

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Binyamin Dissen
Sent: Monday, June 16, 2014 7:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: LISTA data in a SVC dump

On Mon, 16 Jun 2014 06:52:54 -0400 Micheal Butz michealb...@comcast.net
wrote:

:The LISTA parameter of SDUMP I referenced data in another address space
what IPCS command could I use to find it 

The LD line command shows what storage is in the dump. There is also a
command which shows the SDUMP(X) plist - look it up.

: On Jun 16, 2014, at 6:28 AM, Don Poitras sas...@sas.com wrote:
:
: Do you mean something analogous to the LISTA TSO command? If so, : try
SYS1.SBLSCLI0(IEFDDSUM). e.g. on the IPCS command line with the : dump
open, issue:
:
: IP IEFDDSUM
:
: In article
!!AAAYADO3kaXBOTJGmkWYxtxnvxbCgAAAEKq0BAYS3xBMsL0zpf+R
1vkBAA==@comcast.net you wrote:
: Hi,
:
: Would anyone know the command to use to find the data referenced by the
: LISTA parameter in a IPCS dump

--
Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


Should you use the mailblocks package and expect a response from me, you
should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems, especially
those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CSVQUERY Anomaly

[MichealButz]

It still is referenced by common below is my PROG01 entry

 LPA ADD MODNAME(USERMOD) DSNAME(USER.TEST.LOAD) FIXED

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Greg Price
Sent: Monday, June 09, 2014 4:44 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CSVQUERY Anomaly

On 9/06/2014 2:43 PM, 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

 Indicating the program is in CSA. Additionally I added the OUTVALID 
 param and it indicates that all three attribute bytes are valid

If you did it via the SETPROG command then it is in CSA.
To get it not be in CSA you have to get it loaded at IPL time before CSA
exists.  AT least, AFAIK.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: 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 D LPA output diag column ?

[MichealButz]

Would anyone know what the diag info and what the flags mean ? 

FLAGS  MODULEENTRY PT  LOAD PT   LENGTHDIAG 
  DFP  USERMODDACEE 80C87000  00C87000  1310  02075EA8


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Micheal Butz
Sent: Monday, June 09, 2014 7:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CSVQUERY Anomaly

Did both but I still only get x'04' from attr3

Sent from my iPhone

 On Jun 9, 2014, at 7:20 AM, Walt Farrell walt.farr...@gmail.com wrote:
 
 On Mon, 9 Jun 2014 05:43:29 -0400, MichealButz michealb...@comcast.net
wrote:
 
 It still is referenced by common below is my PROG01 entry
 
 LPA ADD MODNAME(USERMOD) DSNAME(USER.TEST.LOAD) FIXED
 
 So, did you add it via a SETPROG command or not?
 
 --
 Walt
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions, send 
 email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

CSVQUERY Anomaly

[MichealButz]

Hi,

 

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

Indicating the program is in CSA. Additionally I added the OUTVALID param
and it indicates that all three attribute bytes are valid

 

 

Thanks   


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

An LLA managed dataset automatically generates CSV019I abend

[MichealButz]

Hi,

 

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

 

This doesn't make sense to me

 

Thanks 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

LLA questions

[MichealButz]

Hi,

 

I have an APF authorized library, That is LLA managed via LIBRARIES
statement in CSVLLAXX in parmlib

 

This library is in my steplib along with another APF authorized library

 

I am getting CSV019I (Library not accessed from a APF lib) abend even though
the dataset is in my APF authorized steplib

 

Is this the abend because the library is LLA managed

 

Second I have a LLA exit (CSVLLIX1) enabled my questions is when does the
exit get invoked 

 

L do  a BLDL before I do a load DE of the module does it the exit get
invoked when I do the bldl ? load ?

 

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

CSV019I Clarification

[MichealButz]

Hi 

 

I have an APF authorized module running of out of the LNKLIST I try to load
a module from an non apf dsn concatenation and get CSV019I abend

I am in problem state key 8 when I do this 

 

It seems than once I am in a APF concatenation library even though I am in
problem state key 8 I can't load anything from a NON apf dsn concatenation

 

  


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

TPUT in FULLSCR problems

[MichealButz]

Hi,

 

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 

 

1)  I have check the contests running under TESTAUTH

  

2)  The problem happens after I hit ENTER  in response to a user
question.

 

While under TESTAUTH I make a breakpoint after the TPUT and TESTAUTH font is
larger the same font as my output message

 

The message happens under TESTAUTH when I hit the enter key when I finally
get to the top of a  new screen (repeated times hitting enter) the TESTAUTH
font returns to normal mode

 

And the problem seems to go away below is the code

 

Thanks in advance   

 

*  

 STFSMODE ON,INITIAL=YES   

*  

 STTMPMD ON

*  

 STLINENO LINE=1   



 TPUT  PROG_MES1,PGMESS_LEN,FULLSCR

 

 TGET  BUFFER,BUFFER_LEN,ASIS  

 

 STFSMODE OFF  

*  

 STTMPMD OFF   

*  

 LRR13,R5  

*OIBUFFER+6,X'40'Ensure Uppercase  

 CLI   BUFFER+6,C'N' Q. Get Out

 BERETURNyes;  


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

TSO 3270 Data Stream question

[MichealButz]

Hi,

 

I am doing TSO TPUT’s in Full screen mode I copied some code from the
following URL www.tommysprinkle.com/mvs/P3270/sbaxlate.com

 

Which has code to translate a ROW and COLUMN into a sba (screen buffer
address) 

 

I have 10 lines which I try to TPUT in lines 1 – 10 using the following
codes X’11XXYY1DF8’ where XX and YY is the screen buffer address. I do fine
till row 5

 

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 

 

 

Thanks

 

SET_BUF  DS   0H   

 ST   XLNK,SAVE_BUF

 L R0,ROW  

 L R1,COL  

 BCTR  R0,0

 BCTR  R1,0

 MHR0,=H'80'   

 ARR1,R0   

 SLL   R1,2

 STCM  R1,B'0010',SBACMD   

 SRL   R1,2

 STCM  R1,B'0001',SBACMD+1 

 NCSBACMD(2),=X'3F3F'  

 TRSBACMD(2),TABLE 

 L XLNK,SAVE_BUF   

 BRXLNK 

 

 

TABLEDCX'40C1C2C3C4C5C6C7C8C94A4B4C4D4E4F'   ABCDEFGHI¢.(+|  

 DCX'50D1D2D3D4D5D6D7D8D95A5B5C5D5E5F'  JKLMNOPQR!$*);¬  

 DCX'6061E2E3E4E5E6E7E8E96A6B6C6D6E6F'  -/STUVWXYZ¦,%_?  

 DCX'F0F1F2F3F4F5F6F7F8F97A7B7C7D7E7F'  0123456789:#@'=



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

378-14 Abend In TSO Verify exit

[MichealButz]

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   

 *  

 *  

  LOAD EP=AAALLIX1  

  SLL  R1,8  Get rid of auth code   

  SRL  R1,5  Length is in double words  

  ST   R1,LLA_LENGTH

  ST   R0,LLA_EXIT  

  LR7,LLA_LENGTH Get Length 

 *  

 *  MOVE TO KEY 0 STORAGE   

 *  

  MODESET MF=(E,SUP_ON)  Athorize us

 *  

  STORAGE OBTAIN,LENGTH=(R7),ADDR=(R6),SP=224   

 *  

  O R6,=X'8000'   31 BIT AM MODE

  STR6,LLA_ADDR   Save Address  

  LRR1,R7 Prime Length  

  L R0,LLA_EXIT 

  MVCL  R6,R0 Move program  

  L R9,PSAAOLD-PSA(,R0) 

ZZ   USING ASCB,R9  

  L R8,ZZ.ASCBASSB   

  USING ASSB,R8  

  MVC   ADRSSTKN,ASSBSTKN

 PRIME_JOB DS   0H   

  LAR8,JOB_NAME  

 

  CSVDYNEX REQUEST=ADD, X

EXITNAME=CSVLLIX1,  X

STATE=ACTIVE,   X

MODNAME=AAALLIX1,   X

MODADDR=LLA_ADDR,   X

STOKEN=ADRSSTKN,X

POS=FIRST,  X

RETCODE=RETCODE,X

RSNCODE=RSNCODE,MF=(E,DYN_PARM)  

*  

*  

*  

  LR15,X'21C'Get Current TCB

  USING TCB,R15 

  LA   R14,LLA_AREA 

  XC   LLA_AREA(LLA_LEN),LLA_AREA Clear Area

  MVC  LLA_PGM,AA.NAME  

  ST   R14,TCBUSER  

  MODESET MF=(E,SUP_OFF)

 

 

Later on I delete the exit and free up the storage

 

 

 CSVDYNEX REQUEST=DELETE,   X

EXITNAME=CSVLLIX1,  X

MODNAME=SGBLLIX1,   X

FORCE=NO,   X

RETCODE=RETCODE,X

RSNCODE=RSNCODE,MF=(E,DYN_PARM)  

 

  L R6,LLA_ADDR  

  L R7,LLA_LENGTH

 *   

  STORAGE RELEASE,LENGTH=(R7),ADDR=(R6),SP=224   

 

 *MODESET MF=(E,SUP_OFF)   

Autorization Code Question

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

 

 

Thanks  


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

S0C1 TSO TESTAUTH

[MichealButz]

Hi

 

I am setting a breakpoint at offset +0 in my program and getting a S0C1 at
location +E

 

The following is my scenario

 

 

TESTAUTH ‘ISP.SISPLPA(ISPF)’ CP

 

LOAD ‘MYLOAD.LIBRARY(MYMOD)’

Q MYMO.MYMOD.+0

AT +0

GO  à INTO ispf

Then from the ispf command line I do TSO MYMOD

 

 

And S0C1 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

IS the DCB represented by TCBJLB valid for FIND

[MichealButz]

Hi,

 

Would anyone know if the DCB represented by TCBJLB valid for the FIND macro
?

 

 

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Number of entries in the TIOT

[MichealButz]

When scanning the TIOT IS there and end marker,  how do I know I have
scanned all the DDnames ?

 

Thanks 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

TSO test confusion ?

[MichealButz]

Hi,

 

I get the following results under TESTAUTH which I don't understand

 

 

000910 58F0 021C0021C   972  L R15,X'21C'  

000914  973 TCBLOOP  DS0H 

 

 

 

  Enter X to Terminate using log/list defaults   

 IKJ57024I AT +914   

 TESTAUTH

L 21C.   

 021C.  008DE4E0 

 TESTAUTH

L 15R

 15R  008AD478   

 TESTAUTH

 

 

  


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

What TCB or TCBJLB is reprensted by TSOLIB

[MichealButz]

Hi,

 

I know that TSOLIB adds a load library to the search chain and somewhere
there is a TCBJLB represented by this is there any way to determine 

What TCB that would be.

 

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: What TCB or TCBJLB is reprinted by TSOLIB

[MichealButz]

TCBJLB-DCBTIO should have that offset okay SNAP should show these 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Gerhard Postpischil
Sent: Wednesday, January 29, 2014 11:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: What TCB or TCBJLB is reprensted by TSOLIB

On 1/29/2014 11:00 AM, MichealButz wrote:
 I know that TSOLIB adds a load library to the search chain and 
 somewhere there is a TCBJLB represented by this is there any way to 
 determine

 What TCB that would be.

Yes; take a dump of the address space and chase the TCB chain, the TCBJLBs,
and see what the TCBTIO fields point to.

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: FIND macro Failed with TCBJLB

[MichealButz]

No its not zero

I was testing under TESTAUTH and made sure that TCBJLB reflected the TCB
from LISTTCB

I was hoping to pick up the library from TSOLIB and yes I did try BLDL   it
failed as well, when use a DCB 0f 0 for BLDL it works with the member from
TSOLIB

I was wondering if there was anything special about the DCB obtained from
TCBJLB

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Gerhard Postpischil
Sent: Sunday, January 26, 2014 1:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: FIND macro Failed with TCBJLB

On 1/25/2014 10:09 PM, MichealButz wrote:
 Can I use the DCB represented by TCBJLB with the FIND macro as I am 
 getting a rc 4 not found , and I know the member is there

1) Is TCBJLB zero?

2) What happens when you use BLDL instead?

3) Show your work - do you have the correct member name and register
contents?

You've been posting to this list long enough to have spent some time
learning how to solve problems on your own. Typically it takes less time to
force a dump and inspect your registers and storage than to get a reply
here.


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

With What macros Can the DCB specified by TCBJLB be used for

[MichealButz]

Hi,

 

I have tried a whole slew of macros with DCB specified by TCBJLB and none
give a clean return code from OPEN, CLOSE FIND,BLDL

 

The only one thing I was successful in using it was to get the offset within
the TIOT of that entry  

 

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: With What macros Can the DCB specified by TCBJLB be used for

[MichealButz]

First 

TSOLIB ACTIVATE DATASET('IBMUSER.TEST.LOAD')
 READY  
Then

BROWSEIBMUSER.TEST.LOAD Browse
substituted
 Command ===  Scroll ===
PAGE
Name Prompt Alias-of  Size   TTR  ACAM
RM  
 . DACEE131000091E01 31
24 
   **End**

 

Look If its in the task lib

L R15,X'21C'
L R7,TCBJLB-TCB(,R15)   

FIND  (R7),AA.NAME,D


LR1,R7  
LA0,AA.NAME 
LTR   1,1   
BNZ   *+16  
LA15,8  
LA0,16  
B *+8   
LCR   1,1   
SVC   18

LTR   R15,R15   
BNZ   STEP_LIB

  
 The listtcb proves that I have the right TCB and TCBJLB values

 TESTAUTH   
AT +8E6 
 TESTAUTH   
GO  
 IKJ57024I AT +8E6  
 TESTAUTH   
L 15R   
 15R  008B1478  
 TESTAUTH   
AT +8EA 
 TESTAUTH   
GO  
 IKJ57024I AT +8EA  
 TESTAUTH   
L 7R
  7R  0002EF60  
 TESTAUTH   
IKJ57652I TCB LOCATED AT 8B1478

RBP   PIE   DEB   TIO   CMP   TRN   MSS   PKF   
008FD358      008D2FD0    448B8A80  7F529700  80

FLGSLMP  DSP  LLS   JLB   JPQ   
000401  FF   FE   008B1668  0002EF60  

 
l 3r?+10 l(48)  xc 
 00065BB8.  C4C1C3C5 C5404040 00091E00 052C0009  *DACEE   *
2300 C2E2 00131013 1000  *..BS*
 00065BD8.  88020101 0100    *h...*

And I get rc 4 from FIND 
15R  0004 
TESTAUTH  



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Binyamin Dissen
Sent: Sunday, January 26, 2014 11:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: With What macros Can the DCB specified by TCBJLB be used for

That would suggest that you did not do it properly.

I would suggest taking an abend after the FIND or BLDL and confirm that the
addresses are what you expect.Show all your code.



On Sun, 26 Jan 2014 10:32:55 -0500 MichealButz michealb...@optonline.net
wrote:

:Hi,
:
:
:
:I have tried a whole slew of macros with DCB specified by TCBJLB and none
:give a clean return code from OPEN, CLOSE FIND,BLDL : : : :The only
one thing I was successful in using it was to get the offset within :the
TIOT of that entry : : : :Thanks : :
:--
:For IBM-MAIN subscribe / signoff / archive access instructions, :send
email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


Should you use the mailblocks package and expect a response from me, you
should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems, especially
those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: With What macros Can the DCB specified by TCBJLB be used for

[MichealButz]

Hi,

I believe I don't have the right TCB to access TSOLIB I need the TCB for
IKJEFT01

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of MichealButz
Sent: Sunday, January 26, 2014 10:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: With What macros Can the DCB specified by TCBJLB be used for

Hi,

 

I have tried a whole slew of macros with DCB specified by TCBJLB and none
give a clean return code from OPEN, CLOSE FIND,BLDL

 

The only one thing I was successful in using it was to get the offset within
the TIOT of that entry  

 

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

FIND macro Failed with TCBJLB

[MichealButz]

Hi,

 

Can I use the DCB represented by TCBJLB with the FIND macro as I am getting
a rc 4 not found , and I know the member is there


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

rentrant Open

[MichealButz]

Hi

 

I must be doing something wrong in my MF=L and MF=E open here is my code

As I get s0c4

 

Thanks

 

3 STEP_LIB DS0H

4  MVC   STEPLIB(DCBLNGPO),STEPLIBX

5  LAR8,STEPLIB

6  OPEN  ((R8)),MODE=31,MF=(E,OPEN_LIST)   

9+*

0+*

2+ LA1,OPEN_LIST   

3+ STR8,0+4(,1)   Store DCB

4+ LR0,1  Set param

5+ SR1,1  Set indic

6+ SVC   19   Issue OPE

 

 

8 STEPLIBX DCB DDNAME=STEPLIB,RECFM=U,DSORG=PO,MACRF=R

1+*   DATA CONTROL BLOCK  

2+*   

   OPEN_LIST OPEN STEPLIB,MODE=31,MF=L 

 

+OPEN_LIST DC   0F'0'

+ DCAL1(128) 

+ DCAL3(0)   

+ DCA(STEPLIB)


 

STEPLIB  DSCL(DCBLNGPO)

 

 

 

IEC130I  0  0  DD STATEMENT MISSING 

IEC999I IGC0001I,IBMUSER,ISPFPROC 

IEA995I SYMPTOM DUMP OUTPUT   

SYSTEM COMPLETION CODE=0C4  REASON CODE=0004  

 TIME=06.49.52  SEQ=00027  CPU=  ASID=0040

 PSW AT TIME OF ERROR  078C2000   80E19EAA  ILC 2  INTC 04

   NO ACTIVE MODULE FOUND 

   NAME=UNKNOWN   

   DATA AT PSW  00E19EA4 - 42421831  0E02B20A  0050A7F4   

***


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Authorized ISPF command Failure

[MichealButz]

Hi,

 

I have a command processor using APF services 

 

I put the entry in IKJTSO00 AUTHCMD and AUTHPGM

 

In Addtion I put an entry in ISPTCM with bit '20' indicating is a authorized
command and still

 

I get 

Authorized command 'SPSWT'. Return code = 20. Reason code = 56. 

ISPD250  Invocation error - System error encountered invoking authorized

command 'SPSWT'.

*** 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Error Adding CSVLLIX1 using CSVDYNEX with modaddr paramter

[MichealButz]

Hi,

 

I am getting the following return code when try to add CSVLLIX1 with the
moaddr parameter of CSVDYNEX

The AMODE of the program is correct = 31 As The high order bit of the
address is one

With the dsname parameter I get a RC of 0   R15 = 8 , R0
= 827 

Below is my code 

 

*  Add LLA exit CSVLLIX1 in case module is LLA MA

*

  LOAD EP=CSVLLIX1

  ST   R0,LLA_EXIT

  L R9,PSAAOLD-PSA(,R0)   

 ZZ   USING ASCB,R9   

  ICM   R8,B'',ZZ.ASCBJBNI

  BZSTARTTSK  

  MVC   JOB_NAME,0(R8)

  B PRIME_JOB 

 STARTTSK DS0H

  ICM   R8,B'',ZZ.ASCBJBNS

  MVC   JOB_NAME,0(R8)

 PRIME_JOB DS   0H

  LAR8,JOB_NAME   

 *

  L R10,LLA_EXIT  

  CSVDYNEX REQUEST=ADD,   

EXITNAME=CSVLLIX1,

STATE=ACTIVE, 

MODNAME=CSVLLIX1, 

MODADDR=(R10),

JOBNAME=(R8), 

POS=FIRST,

RETCODE=RETCODE,  

RSNCODE=RSNCODE,MF=(E,DYN_PARM)   

 

Program defination

 

Name Prompt Alias-of  Size   TTR  ACAM
RM   

 . CSVLLIX1 006000480B01 31
ANY  

 

 

 

R15 = 08  

   

  R0 = 0827 

   

  

  

  CSVDYNEXRSNBADAMODE   

   

 Meaning: Program error. For an ADD,   

 MODIFY, or REPLACE request: one of the

 following occurred:   

   

 °   An exit routine with AMODE=31 is  

 being added to an exit that requires  

 that its exit routines have AMODE=24. 

   

 °   An exit routine with AMODE=24 is  

 being added to an exit that requires  

 that its exit routines have AMODE=31. 

   

 Action: Make sure the AMODE attributes of 

 the exit routine to be added conform to   

 the exit definition.

 

 

2.5.3 Exit Routine Environment

 

 

CSVLLIX1 receives control in the following environment: 

 

 

• Enabled for interrupts. 

 

 

• In supervisor state and in primary ASC mode with the primary ASID equal to
the home ASID. 

 

 

• In AMODE 31 and RMODE ANY. 

 

 

• Under a content supervisor's SVRB within the user's address space. 

 

 

• With no locks or ENQs held. 

 

 

• Under any task that might issue a LINK, LOAD, XCTL, or ATTACH macro. 

 

 

 

Subtopics:

 

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

TSO TESTAUTH requires Apf Authorized environment ?

[MichealButz]

Hi,

 

After using TESTAUTH many times I got the message listed below

 

I don't know what is meant by a APF Authorized Environment I tried running
the logon proc 

 

With a APF Steplib and with out a Steplib however I still get the message

 

Thanks

 

IKJ57802I THE TESTAUTH COMMAND HAS BEEN TERMINATED BECAUSE IT HAS NOT BEEN
INVO

KED IN AN APF AUTHORIZED ENVIRONMENT.



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: TSO TESTAUTH requires Apf Authorized environment ?

[MichealButz]

Thanks 

Had an error in IKJTSO00



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Charles Mills
Sent: Sunday, January 05, 2014 1:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO TESTAUTH requires Apf Authorized environment ?

TESTAUTH is used to test authorized programs and therefore needs an
authorized environment.

The Authorized Program Facility (APF) is a facility of z/OS that allows
installations to identify datasets that contain system or user programs that
potentially can use sensitive system functions. APF is described in the IBM
publications z/OS MVS Initialization and Tuning Reference and z/OS MVS
Programming: Authorized Assembler Services Guide.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of MichealButz
Sent: Sunday, January 05, 2014 10:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: TSO TESTAUTH requires Apf Authorized environment ?

Hi,

 

After using TESTAUTH many times I got the message listed below

 

I don't know what is meant by a APF Authorized Environment I tried running
the logon proc 

 

With a APF Steplib and with out a Steplib however I still get the message

 

Thanks

 

IKJ57802I THE TESTAUTH COMMAND HAS BEEN TERMINATED BECAUSE IT HAS NOT BEEN
INVO

KED IN AN APF AUTHORIZED ENVIRONMENT.



--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: 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

TSO FULL SCREEN MODE UNDER ISPF

[MichealButz]

Hi,

 

Would anyone know to display TSO FULL SCREEN UNDER ISPF


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Invoking CSVLLIX1

[MichealButz]

Hi,

 

I have coded LIBRARIES with a MEMBER  in  CSVLLA00 of the module I would
like to monitor 

I start LLA LLA=00

 

Then in a program I have the following CSVDSYNEX macro invocations

However CSVLLIX1 never gets invoked

 

 *  

 CSVDYNEX REQUEST=UNDEFINE,

   EXITNAME=CSVLLIX1,  

   RETCODE=RETCODE,

   RSNCODE=RSNCODE,MF=(E,DYN_PARM) 

*  

 CSVDYNEX REQUEST=DEFINE,  

   EXITNAME=CSVLLIX1,  

   AMODE=DEFINED,  

   REENTRANT=REQ,  

   PERSIST=TASK,   

   EXITTYPE=PROGRAM,   

   RETCODE=RETCODE,

   RSNCODE=RSNCODE,MF=(E,DYN_PARM) 

*  

 LR15,RETCODE  

 LTR  R15,R15  

 BZ   DO_LOAD  

 TPUT ERRDEF,L'ERRDEF  

DO_LOAD  DS   0H   

 LOAD EP=CSVLLIX1,GLOBAL=(YES,F)   

 ST   R0,LLA_EXIT

 L R10,LLA_EXIT 

CSVDYNEX REQUEST=ADD,  

  EXITNAME=CSVLLIX1,   

  STATE=ACTIVE,

  MODNAME=CSVLLIX1,

  MODADDR=(R10),   

  JOBNAME=ANY, 

  POS=FIRST,   

  RETCODE=RETCODE, 

  RSNCODE=RSNCODE,MF=(E,DYN_PARM)


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DESERV function get DCB address

[MichealButz]

Thanks for your help

 Two questions

 Does BLDL or DESERV have anyway of differentiating between
TASKLIB/STEPLIB/JOBLIB I think not. TCBJLIB represents the first library
looked at be it TASK STEP or JOB
 Second is there anyway of getting the associated DSN  name

Thanks 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Peter Relson
Sent: Sunday, December 01, 2013 1:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DESERV function get DCB address

unfortunately DESERV
FUNC=GET needs a real DCB address as opposed to the zero used invoking 
BLDL

You need to supply a DCB address that represents a concatenation in which 
the member for which you are seeking the directory entry exists.

BLDL happens to support 0 as asking to search
tasklib(s)
steplib/joblib
lnklst
DESERV does not.

TCBJLB of the jobstep program task is either joblib or steplib.
TCBJLB of subtasks of that task, when different, is a tasklib.

So where is the member? If it's in the lnklst, then use the DCB pointed to 
by CVTLINK.
If you don't know where it is, then you may need to do what the system 
does to locate a module:
search every tasklib up to/through the ASCBXTCB TCB using its DCB
search the LNKLST using its DCB
And if that's not where your member is, then you need to search where it 
is. In some situations, for example, ISPLLIB is used not as a tasklib.
Of course it was not even stated why BLDL was being used. 

In some scenarios, it is necessary first to eliminate the possibility that 
the module is in LPA and not the LNKLST (perhaps by CSVQUERY). 

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: TCBJLB doesn't point to a DCB

[MichealButz]

I was confused by the documentation DCB= is the address where the DCB resides so

 Instead of coding MVC WSDCB,TCBJLB
DCB= is a parm on the DESERV 

DCB=WSDCB,

I coded L RX,TCBJLB

   DCB=(RX),

That worked

When the TASK/STEP/JOB  is specified I get X'05' for both BLDL Or DESERV for 
the library is found in When its in the LINKLIST I get a X'01' correctly so 
indicating linklist
For both BLDL/DESERV
   

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of DASDBILL2
Sent: Sunday, December 01, 2013 2:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TCBJLB doesn't point to a DCB

Confusion seems rampant.  Please post the hexadecimal display of the first 48 
(decimal 48, or hex '30') bytes of the TCB in question.  Then post the same 
number of bytes at the beginning of the DCB in question. 

Bill Fairchild 

Franklin, TN 

- Original Message -

From: Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Friday, November 29, 2013 3:55:40 PM
Subject: Re: TCBJLB doesn't point to a DCB 

In 5737414652770988.wa.woodagozemail.com...@listserv.ua.edu, on
11/29/2013
   at 11:25 AM, Andy Wood woo...@ozemail.com.au said: 

Why would you expect a TCB to match the DCB DSECT? Clearly, at that 
point he is talking about TCB+X'28, not DCB+X'28'.

Whoops! 

That would be a 24-bit address, not a 31-bit address, and bits 0-7 should be 
zeroed. Which still leaves the question of whether DESERVE will make a special 
case of the linklist DCB. 
  

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: 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: DESERV function get DCB address

[MichealButz]

Two questions 

  1) can BLDL or DESERV differentiate between TASK  STEP or JOBLIB

 2) is there any way to get DSN name given a DCB I seem to recall RDJFCB
doing that but that was with EXLST pram on the DCB   

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Scott Ford
Sent: Sunday, December 01, 2013 2:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DESERV function get DCB address

Sorry a 'bit' more

Scott ford
www.identityforge.com
from my IPAD

'Infinite wisdom through infinite means'


 On Dec 1, 2013, at 2:35 PM, Scott Ford scott_j_f...@yahoo.com wrote:
 
 Michel,
 
 Can you impart a big more information on what your trying to accomplish ?
 
 Scott ford
 www.identityforge.com
 from my IPAD
 
 'Infinite wisdom through infinite means'
 
 
 On Dec 1, 2013, at 2:03 PM, MichealButz michealb...@optonline.net
wrote:
 
 Thanks for your help
 
 Two questions
 
 Does BLDL or DESERV have anyway of differentiating between 
 TASKLIB/STEPLIB/JOBLIB I think not. TCBJLIB represents the first 
 library looked at be it TASK STEP or JOB Second is there anyway of 
 getting the associated DSN  name
 
 Thanks
 
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
 On Behalf Of Peter Relson
 Sent: Sunday, December 01, 2013 1:36 PM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: DESERV function get DCB address
 
 unfortunately DESERV
 FUNC=GET needs a real DCB address as opposed to the zero used 
 invoking
 BLDL
 
 You need to supply a DCB address that represents a concatenation in 
 which the member for which you are seeking the directory entry exists.
 
 BLDL happens to support 0 as asking to search
 tasklib(s)
 steplib/joblib
 lnklst
 DESERV does not.
 
 TCBJLB of the jobstep program task is either joblib or steplib.
 TCBJLB of subtasks of that task, when different, is a tasklib.
 
 So where is the member? If it's in the lnklst, then use the DCB 
 pointed to by CVTLINK.
 If you don't know where it is, then you may need to do what the 
 system does to locate a module:
 search every tasklib up to/through the ASCBXTCB TCB using its DCB 
 search the LNKLST using its DCB And if that's not where your member 
 is, then you need to search where it is. In some situations, for 
 example, ISPLLIB is used not as a tasklib.
 Of course it was not even stated why BLDL was being used. 
 
 In some scenarios, it is necessary first to eliminate the possibility 
 that the module is in LPA and not the LNKLST (perhaps by CSVQUERY).
 
 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
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions, send 
 email to lists...@listserv.ua.edu with the message: 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

TCBJLB doesn't point to a DCB

[MichealButz]

The documentation says the TCBJLB points to a DCB of the first library
searched for a LOAD module for a program running under that task

 

I have looked at various TCB's PSATOLD ASXBFTCB and if that address were a
DCB at offset X'28' there would be a CL8 DDname

 

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

DESERV function get DCB address

[MichealButz]

Hi,

 

I having been using BLDL to get program directory information I found the
macro to not give correct results.

So I have moved on to DESERV FUNC=GET,PDSDE=BLDL_LIST unfortunately DESERV
FUNC=GET needs a real DCB address as opposed to the zero used invoking BLDL

Any suggestions 

 

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: 047 Abend

[MichealButz]

I added the program to both IKJTSO00 AUTHPGM and ISPTCM setting flags X'2B'

And I still get an 047 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Scott Ford
Sent: Sunday, November 24, 2013 12:31 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: 047 Abend

Yep I agree with Walt..also what does the actual program( code ) look like
so we can see it was it Linked or binded correctly ?

Scott ford
www.identityforge.com
from my IPAD

'Infinite wisdom through infinite means'


 On Nov 24, 2013, at 11:38 AM, Walt Farrell walt.farr...@gmail.com wrote:
 
 On Sun, 24 Nov 2013 01:03:00 -0500, MichealButz
michealb...@optonline.net wrote:
 
 I am running a TSO command processor that has authorized code the 
 load library is APF authorized.
 
 
 
 I set it to the beginning of the search chain with TSOLIB
 
 
 
 I also have the ISPF library ISP.SISPLPA apf Authorized
 
 
 
 So when I do the following @ the READY prompt TESTAUTH
'ISP.SISPLPA(ISPF)'
 CP  + ENTER + RUN
 
 
 
 I then execute the program from the ISPF Main Menu it runs ok
 
 
 
 Without  TESTAUTH I get a 047 abend ?
 
 You haven't told us everything. For example, how, precisely, are you
invoking it from the ISPF main menu?
 
 --
 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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

3270 Data Stream Attribute Bytes

[MichealButz]

Hi,

 

I am trying to use 3270 Datastream Attribute Bytes under TSO using TPUT
could somebody point me to where these bytes and their meanings are defined

 

Thanks

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

TESTAUTH LISTPSW not displaying CC for TAR

[MichealButz]

Hi,

 

I am running a program under TESTAUTH which executes the TAR instruction,
after executing the inst under TESTAUTH I do a LISTPSW the CC is always 0

Well the DOC says in the ALET is 0 then a CC should be set at 8

 

I run the following instruction under TESTAUTH

  LAM   AR5,AR5,=F'0' 

  TAR   AR5,AR5   

  BC8,OKAY

  NOP   OKAY  

 OKAY DS0H

I then a do a LISTPSW and 

LAM   AR5,AR5,=F'0' 

  TAR   AR5,AR5   

  BC8,OKAY

  NOP   OKAY  

 OKAY DS0H

 

 IKJ57652I PSW LOCATED AT 8DD3F8 

   XRXXXTIE   KEY  XMWP  AS CC  PROGMASK  EA BA  INSTR ADDR  

   01118   1101  00 00 0  1   00065EB6 

 

According to the doc the CC should be a 8

 

Resulting Condition Code:

0 Access-list-entry token (ALET) is 

 hex

1 ALET designates the dispatchable-unit access

 list and does not cause exceptions in accessregister

 translation (ART)

2 ALET designates the primary-space access

 list and does not cause exceptions in ART

3 ALET is 0001 hex or causes exceptions

 in ART


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

0C4 reason code 4 TSO command processor returning from verify exit

[MichealButz]

Hi,

 

I am getting S0C4 reason code 4 after I return from a TSO verify exit
IKJUNFLD VERIFCK=PROGLOOK

 

Points to note 

 

.I display all the registers on entry and they are the same on exit
with the exception of R15 which is 0

 

.Since a S0C4/4 says you are trying to access storage which is in
different key that you are in, I did a LISTPSW  and I am in KEY 8 on entry
and exit

 

.The documentation for the verify exit is very sparse it doesn't say
what registers are on entry and what they should be on exit

 

.I am using CSVQUERY and BLDL in my exit both should run in the
environment I am in. I have AMODE=31,RMODE=ANY however I believe I was
loaded below the line.

 

 

Any help appreciated I can post the code if necessary

 

Thanks   


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: 0C4 reason code 4 TSO command processor returning from verify exit

[MichealButz]

 go back 
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lizette Koehler
Sent: Tuesday, October 15, 2013 10:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: 0C4 reason code 4 TSO command processor returning from verify
exit

I think it would be helpful if you could post the Summary Dump from the
abend.  PSW and REGs

Also, is this an APF Authorized module?  Is it running from an APF
Authorized Library?  Is it marked RENT?

Thanks

Lizette


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of MichealButz
Sent: Tuesday, October 15, 2013 7:36 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: 0C4 reason code 4 TSO command processor returning from verify exit

Hi,

 I am getting S0C4 reason code 4 after I return from a TSO verify exit
IKJUNFLD VERIFCK=PROGLOOK


Points to note 

.I display all the registers on entry and they are the same on exit
with the exception of R15 which is 0

.Since a S0C4/4 says you are trying to access storage which is in
different key that you are in, I did a LISTPSW  and I am in KEY 8 on entry
and exit

.The documentation for the verify exit is very sparse it doesn't say
what registers are on entry and what they should be on exit

.I am using CSVQUERY and BLDL in my exit both should run in the
environment I am in. I have AMODE=31,RMODE=ANY however I believe I was
loaded below the line.

 
Any help appreciated I can post the code if necessary

 

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

Re: TSOLIB BLDL abend

[MichealButz]

Binyamin

The program is a TSO command processor so. using a TSOLIB is analogous
to ?
I did a TSOLIB ACTIVATE dataset right before running my code under test

*  
 BLDL 0,LIST_ADDR  
*  
 LTR R15,R15q. Prog Fou
 BZ  PROG_FOUND
NO_PROG  DS  0H
 LA  R15,4 
*MVC VAL_MSG,=A(NOTFND)
 B   PROG_RETURN   
PROG_FOUND DS  0H  
 LOAD DE=LIST_ADDR,LSEARCH=YES 
 XR  R15,R15  

LIST_ADDR DS  0H  
  DC   X'0001' 
  DC   X'003C' 
 NAME DS   CL8 
  Dc   100X'00'

Running under TEST
Right after BLDL r15 has a zero
The program AADDD is @ displacement 3 
15R   
 TESTAUTH  

0001003C C1C1C4C4 C4404040 000C1F00  *AADDD   * 
052C000C 2400 02E2 00120812  *...S* 
0800 88020101    *h...*
This the CODE right after the LOAD DE=

CE NOT FOUND   FAILED BECAUSE DIRECTORY ENTRY IS NOT
VALID F
OR A LOAD MODULE.

 CSV003I REQUESTED MODULE  

CCC


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Binyamin Dissen
Sent: Wednesday, October 09, 2013 4:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSOLIB BLDL abend

Show your code.

On Wed, 9 Oct 2013 15:31:24 -0400 Micheal Butz michealb...@optonline.net
wrote:

:Hi
:I am using TSOLIB to stage a load library. When I use BLDL to search :For
a module in. That load lib I get a zero r.c from R15.
:
:However on a subsequent load de= I abend for invalid directory : :
:mRNA is :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

--
Binyamin Dissen bdis...@dissensoftware.com http://www.dissensoftware.com

Director, Dissen Software, Bar  Grill - Israel


Should you use the mailblocks package and expect a response from me, you
should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems, especially
those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: TSOLIB BLDL abend

[MichealButz]

The doc says list_addr okay I'll try name 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Godfrey
Sent: Wednesday, October 09, 2013 9:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSOLIB BLDL abend

DE is pointing to the wrong thing. Try DE=NAME instead.

Bill

On Wed, 9 Oct 2013 18:44:52 -0400, MichealButz wrote:

Binyamin

The program is a TSO command processor so. using a TSOLIB is 
analogous to ?
I did a TSOLIB ACTIVATE dataset right before running my code under test

*
 BLDL 0,LIST_ADDR
*
 LTR R15,R15q. Prog Fou
 BZ  PROG_FOUND
NO_PROG  DS  0H
 LA  R15,4
*MVC VAL_MSG,=A(NOTFND)
 B   PROG_RETURN
PROG_FOUND DS  0H
 LOAD DE=LIST_ADDR,LSEARCH=YES
 XR  R15,R15

LIST_ADDR DS  0H
  DC   X'0001'
  DC   X'003C'
 NAME DS   CL8
  Dc   100X'00'


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

TAR Instruction

[MichealButz]

Hi,

 

I am using the TAR instruction to test if a ALET has been passed to a
subroutine via AR1. The instruction I use is TAR AR1,AR1.

I run this program under TESTAUTH. After executing this instruction under
TESTAUTH I issue a LISTPSW command and get the following bit pattern under
CC column 10 .

This would seem to indicate a condition code 3 which means that the access
register doesn't contain an ALET.

However when I do a STAM of AR1 and look at what's in this storage area I
see the contents of the ALET


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN