IARST64 OWNER SECONDARY ?

[Joe Reichman]

There doesn't seem to be any documentation on what this parm means. Seems
like I would have to do a SSAR to point to the secondary asid and I am
guessing the storage would reside in that asid and reference it with AR
value of 1 ?


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

was rc 38

[Joe Reichman]

Wasn't the usall s0c4 rc 4 or 10 or 11 but 38 when I looked at the registers
in TEST none had the high order bit on regardless I did a LLGTR and it
solved my problem

 

thanks


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

Re: In what context/amode BSAM/BPAM READ with SF64

[Joe Reichman]

Charles 

As an aside LE has too many problems I am using Metal I like the flexibility it 
has no I/O routines so I am using my own thus ran into the problem seem like 
read can run in 31 or 24
Seems LIKE SF64 only works for extended datasets


Thanks  
-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Sunday, November 17, 2019 2:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: In what context/amode BSAM/BPAM READ with SF64

And for those exits that must be RMODE 24 all you really need is a little stub 
in BTL storage that upgrades its AMODE and branches to the real exit logic. The 
advantage is that you do not need a "real" AMODE 24 load module; you get just 
GETMAIN the BTL storage and move a few bytes of code into it.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Greg Price
Sent: Saturday, November 16, 2019 11:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: In what context/amode BSAM/BPAM READ with SF64

On 2019-11-17 5:40 PM, Joseph Reichman wrote:
> I  normally do all I/O in amode 24 because of the EODAD of AL3 the 
> open having an AL3 for the  DCB

Unless you have an old ESA or even older XA system, there's no need to do I/O 
in amode24 these days.  Just use amode31.

The AL3 pointers will restrict you to rmode24, but that's a different story.

If the only DCB exits you use are EODAD and/or SYNAD, and you want to go
rmode31 (or rmodeany if you prefer) then you can supply their 4-byte address in 
the DCBE macro.  But you do not need 4-byte pointers to them to use amode31.

About the only amode24 code for z/OS I write these days is for exits where only 
amode24 is supported.  DCB exits pointed to by DCBEXLST may be in this boat, as 
are the SYSIN and SYSPRINT (and other DD ??) exits used for supplying data to 
and consuming data from calls to the IDCAMS program.

Sometimes in rmode31 programs I GETMAIN BTL storage and load the code for DCB 
exits, but this technique is not required for EODAD and SYNAD exits due to 
their DCBE support.

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

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

Abend cross memory post

[Joe Reichman]

.hi
I am getting an abend on xmem post I’ll post the macro

POST  (R4),X
  (R7), 
X
  ASCB=(R2),  X
  ECBKEY=0,  X
  ERRET=ISSMES,  X
  LINKAGE=SYSTEM,  X
  MF=(E,S_DUMP.PSTDSECT)   

I am stepping thru this under testauth and up unitl PC instruction
Of the post everything is okay 
I have checked the paramters 4 points to a ECB in CSA
R2 points to the right ASCB 
I display both from storage in TASID
The ECB has the 80 bit on followed by the RB
The ASCB at offset x’24’ has the right asid 
I then make a breakpoint at the instruction after the post pc
And my estae recovery routine 
Execution goes to the recovery routine
List below is the SDWA
The abend code is 460 which isn’t documented
The SDWANAME is zeros because I am running in supervisor state
However the SDWAMODN is Nucleus
And SDWACSCT points to  csect IEAVESLK

Any suggestion how to further debug this would be appreciated
thanks   
   L 1R? L(255) M(2) XC 
 
 008B08D0.   84602000 0004000D   *d-..*  
   FF040061  8400 84073000  *.../d...d...*  

 008B08F0.  9EC6963C 9EC6952C 0038 0BE0  *.Fo..Fn.*  
 1E85B734 029AE580 017559B0 8002B3E0  *.eV.*
  
 008B0910.   00FB7880    **  
 8175387C 000C 008B4198   *a..@...q*
  
 008B0930.    040C1000 8128B24E  *a..+*  
  0002000D 7F485400 070C1000 9EC6952C  *"Fn.*   
   
 008B0950.  00020061 7F485400 8002B3E0 9EC7BAB4  *.../"G..*  
  00FB7880 1EC693D0 1E85B734 1EC6F5EC  *.Fl..e...F5.*   
   
 008B0970.  1EC6F5EC 0002B3E0 1EC6F614 0098  *.F5..F6q*  
 1EC7B072 00F99280 1EC7B000 1EC7BA6A  *.G...9k..G...G..*
  
 008B0990.  030E 1EC6963C E6000730   *.Fo.W...*  
      **
  
 008B09B0.    04020001 1000  **  
  008B0A60  00*...-... *
  
 008B09CF.       **  
      **
  
 008B09EF.  3800 0040D5E4 C3D3C5E4 E2C9C5C1  *. NUCLEUSIEA*  
E5C5E2D3 D200  8B0A  *VESLK...* 
 

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

Re: Using Pseudo Post

[Joe Reichman]

I am using Quick Post Here is the code

 L R4,RECOV#ECB 
 L R8,RECOV#ECB Get ECB Address   
 L R4,0(,R4)get ecb   
 N R4,=X'3FFF'  Turn of wait post bit 
 ICM   R7,B'1000',=X'40'Insret Post bit   
 LAR11,5  try 5 times   
 
CSLOOP   DS0H 
 CSR4,R7,0(R8)
 BZPOSTDONE   
 STIMER  WAIT,DINTVL=TWOSECS   WAIT A COUPLE  
 WTO   'ERROR POSTING...' 
 BCT   R11,CSLOOP 
Sent from Mail for Windows 10

From: Charles Mills
Sent: Monday, March 19, 2018 6:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using Pseudo Post

Did you code ASCB= (correctly). You need that even if the ECB is in common.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joe Reichman
Sent: Monday, March 19, 2018 3:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using Pseudo Post

The ECB is in Fixed CSA running under a different Address space for some reason 
even after posted the task is still not dispatched I know this because I have 
placed a WTO right after
 
I am running under TESTAUTH and can observe the ECB  before with the 80 bit and 
the RB and after with 40 bit using TASID with the storage view function

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

[Joe Reichman]

The ECB is in Fixed CSA running under a different Address space for some reason 
even after posted the task is still not dispatched
I know this because I have placed a WTO right after
 
I am running under TESTAUTH and can observe the ECB  before with the 80 bit and 
the RB and after with 40 bit using TASID with the storage view function

  

Sent from Mail for Windows 10

From: Peter Relson
Sent: Monday, March 19, 2018 6:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using Pseudo Post

It is not a "Pseudo Post", it is a "Quick Post". 
It does not "eliminate the requirement to use the CS instruction", as the 
example clearly shows it using CS.

If you have addressability to the ECB, you can use this. If you do not, 
you cannot.
This has nothing to do with swappability (although if you have 
cross-memory access to another address space, then that address space is 
required to be non-swappable).

Usually you will not have addressability to a different address space's 
private storage and thus must use cross-memory post (i.e, POST with ASCB) 
OR, better, IEAMSXMP (as provided via OA49677).
Unless you can guarantee that your target space cannot terminate and that 
the ECB is safe to post, most uses of cross-memory post have an intrinsic 
system integrity flaw that can only be addressed by doing some validation 
of the intended target address space and task (which XM post cannot do, 
but which IEAMSXMP can, because it has more information at its disposal).

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: PC rtn AKM=(0:15) Getting S0C2 REASON 002 MY APOLGIES BINYIAMIN was right I had the wrong PC number he knows me to well thank you

[Joe Reichman]

 


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

Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002 Posted code

[Joe Reichman]

From: Joe Reichman [mailto:reichman...@gmail.com] 
Sent: Tuesday, January 9, 2018 2:44 PM
To: 'IBM Mainframe Discussion List' <IBM-MAIN@LISTSERV.UA.EDU>
Subject: 

 

This is the program that is causing the abend 

 

  TESTRCOV AMODE 31

TESTRCOV RMODE ANY

 YREGS

AR0   EQU  0

AR1   EQU  1

AR2   EQU  2

AR3   EQU  3

AR4   EQU  4

AR5   EQU  5

AR6   EQU  6

AR7   EQU  7

AR8   EQU  8

AR9   EQU  9

AR10  EQU  10

AR11  EQU  11

AR12  EQU  12

AR13  EQU  13

AR14  EQU  14

AR15  EQU  15

**

*   Address Space Recovery Rtn|6

* |7

*  Determine Address Space  and Type of Abend |8

* |9

*  Give user OPtion of Sdump  |   10

*++   34

 LRR3,R15

 USING TESTRCOV,R3

 LRR4,R1  Save Sdwa Address

 LRR10,R14

 WTO   'In TESTrcov rtn ..'

*

**---*41

** SET ADDRESSABILITY SDWA EXTENSION *42

**---*43

 USING WS_DSECT,R13

 USING SDWA,R4  Address SDWA

 LRR7,R4

 L R4,SDWAXPAD  Get Record Able Area

 DROP  R4

 USING SDWAPTRS,R4

 L R4,SDWASRVP

 DROP  R4

 USING SDWARC1,R4

 CLI   SDWATYPE,SDWATFRR   Is This a FRR

 BNE   IS_ESTAENo Must Be Is An Estae

 LRR13,R0  Point to work area

 STR10,SAVE14

 STR7,SDWADDR

 B PROCESS

IS_ESTAE DS0H

 STR10,SAVE14

 STR7,SDWADDR

 TESTAUTH FCTN=1,STATE=YES,KEY=YES

 BZPROCESS

 LRR4,R7

 DROP  R4

 USING SDWA,R4

 ICM   R2,B'',SDWAPARM  Get Paramters

*L R2,0(,R2)

 STR2,USER_PARM

 USING ESTPARM,R2

 ICM   R6,B'',SDWAPC Get PC control

 USING HRPCRTN,R6

 LMH   R15,15,HRATSQ

 L R8,HRSTNO

 LRR7,R4Hold R4

 L R4,=F'-1'

*--

 PC0(R8)Make us Authorized
< PC rtn

*

Program creating PC rtn

 

TESTRCOV CSECT
00010076

TESTRCOV AMODE 31
00011076

TESTRCOV RMODE 31
00012076

 YREGS
0002

AR0  EQU   0
00020153

AR1  EQU   0
00020253

AR2  EQU   0
00020353

AR3  EQU   0
00020453

AR4  EQU   0
00020553

AR5  EQU   0
00020653

AR6  EQU   0
00020753

AR7  EQU   0
00020853

AR8  EQU   0
00020953

AR9  EQU   0
00021053

ARA  EQU   0
00021153

ARB  EQU   0
00021253

ARC  EQU   0
00021353

ARD  EQU   0
00021453

ARE  EQU   0
00021553

ARF  EQU   0
00021653

 STM   R14,R12,12(R13)
00022053

 LRR8,R15ESTABLISH ADDRESSABILITY
00030016

 USING TESTRCOV,R8
00030176

 LRR14,R13
00030236

 LAR13,SAVEAREA
00030336

 STR14,SAVEAREA+4
00030436

 LAR0,WS_LEN
00030588

 STORAGE OBTAIN,LENGTH=(R0),ADDR=(R5)
00030789

 LRR10,R13
00030888

 LRR13,R5
00030988

 USING WS_DSECT,R13
00031088

 STR10,4(,R13)
00031188

*
00031388

 LA
R0,((SDWAEND-SDWA)+(SDWASEND-SDWARC1)+(SDWAIEND-SDWARC2)X00031476

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

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

   NRC2)+(SDWADEND-SDWANRC3))
00031776

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

 LA R0,24
00031976

 B XMEM
00032199

*STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),SP=227
00032299

*USING ESTPARM,R7
00032699

*
00033377

*-*
00033485

* LOAD TESTAUTH AND MAKE MAKE IT A PC RTN *
00033585

*-*
00033685

*
00033785

* GIVE US ABILITY TO DO ALL XMEM STUFF
00033885

 
00033985

XMEM DS0H
00034096

 XCECB,ECB
00034299

 LAR1,ECB
00034399

 XRR1,R1
00034499

 MODESET KEY=ZERO,MODE=SUP
00034599

 LA R0,LESTPARM+HRPCNMS
00034699

 STORAGE OBTAIN,LENGTH=(R0),ADDR=(R5),SP=228
00034799

 L R3,16
00034899

 USING CVT,R3
00034999

 STR5,CVTUSER
00035099

 USING ESTPARM,R5

Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

[Joe Reichman]

I just ran the program again under TESTAUTH and did a WHERE after I got the 
abend from TESTAUTH its pointing to the inst right after the PC thing is the PC 
rtn does what it is supposed to do and I can continue executing   

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Wayne Driscoll
Sent: Monday, January 8, 2018 9:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

Are you sure the 0C2 is occurring at the PC instruction, not because your 
program is in problem state when issuing the ETDEF or ETCON macros? I would run 
outside of TESTAUTH, so I could get a dump and then look at the PC table 
definitions to ensure they are what you are expecting.
Wayne Driscoll
Rocket Software
Note - All opinions are strictly my own.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joe Reichman
Sent: Monday, January 8, 2018 7:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

I have an OLD ESA/390 Pops book I am quoting from

 "if the current PSW specifies problem state the current PSW-key mask in 
control register 3 is tested against the AKM and PSW key mask are anded and if 
the result I zero a privilege operation is recognized"

So If I am in problem state the AKM field which I specified as everything 0
- 15 determines if the PC is a privileged operation

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Monday, January 8, 2018 7:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

S0C2 is not a key problem, it is a state problem. Does your S0C2 PSW show 
supervisor state?

Is there any possible cause for S0C2 *other* than "you tried a privileged op 
code but you were not in supervisor state"?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joe Reichman
Sent: Monday, January 8, 2018 3:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: PC rtn AKM=(0:15) Getting S0C2 REASON 002

Hi



I have a PC rtn defined in the following way with AKM=(0:15) meaning all keys 
can access



 ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,   X

  STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING





And yet while running under TESTAUTH I get the following ABEND



IKJ56641I TESTPRGK ENDED DUE TO ERROR

IKJ56640I SYSTEM ABEND CODE 0C2   REASON CODE 0002

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: 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 ■ Main Office Toll Free Number: +1 855.577.4323 
Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
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

Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

[Joe Reichman]

I have an OLD ESA/390 Pops book I am quoting from 

 "if the current PSW specifies problem state the current PSW-key mask in
control register 3 is tested against the AKM and PSW key mask are anded and
if the result I zero a privilege operation is recognized"

So If I am in problem state the AKM field which I specified as everything 0
- 15 determines if the PC is a privileged operation

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Charles Mills
Sent: Monday, January 8, 2018 7:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

S0C2 is not a key problem, it is a state problem. Does your S0C2 PSW show
supervisor state?

Is there any possible cause for S0C2 *other* than "you tried a privileged op
code but you were not in supervisor state"?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joe Reichman
Sent: Monday, January 8, 2018 3:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: PC rtn AKM=(0:15) Getting S0C2 REASON 002

Hi

 

I have a PC rtn defined in the following way with AKM=(0:15) meaning all
keys can access

 

 ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,   X

  STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING

 

 

And yet while running under TESTAUTH I get the following ABEND

 

IKJ56641I TESTPRGK ENDED DUE TO ERROR

IKJ56640I SYSTEM ABEND CODE 0C2   REASON CODE 0002   

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

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

PC rtn AKM=(0:15) Getting S0C2 REASON 002

[Joe Reichman]

Hi

 

I have a PC rtn defined in the following way with AKM=(0:15) meaning all
keys can access

 

 ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,   X

  STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING

 

 

And yet while running under TESTAUTH I get the following ABEND

 

IKJ56641I TESTPRGK ENDED DUE TO ERROR

IKJ56640I SYSTEM ABEND CODE 0C2   REASON CODE 0002   

  


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

Storage Key question

[Joe Reichman]

Hi,

 

I executed IVSK instruction and got a value in bits 24 - 31 of R1 of X'A0' 

 

Looking at Pops book its say bits 24 - 31 are broken up as the following 24
- 27 is access control bit 28 fetch bit and 29 - 31 all zeros

 

So that means X'A0' is storage key A (typically  ranging from 0 - F)  fetch
bit is 0 

 


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

Various 052 abends with LINKAGE=SYSTEM calls in SRB

[Joe Reichman]

Hi

 

I am getting intermittent abends with a couple of macros that use
linkage=system in a SRB

 

 

The first is with AXSET macro

 

LAR2,1  Give us the

AXSET AX=(R2)   Power  



XRR8,8  Clear r8   

ICM   R8,B'0011',NOW.HASID Get Server Asid  

SSAR  R8Set secondary Asid

 

The reason code for the AXSET is 0101

 

The Abends happens (sometimes) after the PC  0(14) call in the AXSET

 

To other is in the VSMLOC macro again after the PC  0(14) The reason code in
the VSMLOC is 0103

 

>From my understanding there is no restriction using LINKAGE=SYSTEM in a SRB

 

Thanks

 


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

PGSER FIX returns CC = 18A Reason=35000301

[Joe Reichman]

Hi,

 

 

I am getting an error for PGSER Fix that the storage has not been getmain'ed

 

I have tried different subpool(s)  0 and 10 with same result AND same
address was returned

 

Here is the storage macro whose storage I am trying to fix

 

 

 USING VALSTOR,R3   

 LAR0,4095 GET LENGTH   

 AHR0,=H'1' 

 STORAGE OBTAIN,   X

   LENGTH=(R0),X

   ADDR=(R7),  X

   BNDRY=PAGE, X

   SP=10,  X

   LOC=(31,31)  

 

 

 *  

 *   Page Fix Ws till SRB completes 

 *  

  LRR7,R13 Point to beg of WS   

  LAR8,4095(,R7)   4K   

  LAR8,1(,R8)   

 

 

 

 *   

  PGSER R,  X

FIX,X

A=(R7), X

EA=(R8),X

ECB=0


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

PGSER R,FIX question

[Joe Reichman]

Hi

 

It is my understanding the I can page fix any storage whiting a page, the
storage does not have to start on page boundary.

 

I am getting a 18A abend with R0= 35000301 indicating   The page had not
been obtained by a GETMAIN macro

 

Here is my STORAGE OBTAIN

 

STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),BNDRY=PAGE,SP=0

 

The PGSER

 

  PGSER R,  X

 FIX,X

A=(R7),   X

ASCB=(R8), X

 

R7 points to X'88' within that page, it is executed from a SRB to page fix
storage in the scheduling address space for a few instructions while I move
data in 

 

 

PS I have the address space swapped  in before I issue the IEAMSCHD  

  


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

Re: Question about VSMLIST and LSQA

[Joe Reichman]

Sorry Binyamin

Didn't see your reply the VSM Descriptor when looking for LSQA allocated has
zeros for the TCB field

thanks   

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Binyamin Dissen
Sent: Sunday, July 30, 2017 2:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about VSMLIST and LSQA

On Sat, 29 Jul 2017 21:48:24 -0400 Joe Reichman <reichman...@gmail.com>
wrote:

:>Since LSQA is System Private Storage how come there isn't a TCB associated
:>with it

Who said there isn't?

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

VSMLIST and LSQA question

[Joe Reichman]

Hi

 

Since LSQA is System Private Storage how come there isn't a TCB associated
with it

 

thanks

 


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

Question about VSMLIST and LSQA

[Joe Reichman]

Hi

 

Since LSQA is System Private Storage how come there isn't a TCB associated
with it

 

thanks 


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

Re: Assembly Error IEAMSCHD I can't see it may be you can and can Help thanks

[Joe Reichman]

I just cut and past the "RTMRADDR"  from the documentation site and it
assembled don't understand 

thanks 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Feller, Paul
Sent: Sunday, February 26, 2017 12:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Assembly Error IEAMSCHD I can't see it may be you can and can
Help thanks

The way I read the MACRO I would think this would be the order.  Switch PARM
and RTMRADDR around.

  IEAMSCHD EPADDR=SRB_EPA,  X1208
ENV=STOKEN, X1209
TARGETSTOKEN=TARGETSTOKN,   X1210
PRIORITY=GLOBAL,X1211
FRRADDR=FRR_EPA,X1211
KEYVALUE=INVOKERKEY,X1211
PARM=CSAWORK,   X1211
RTMRADDR=RTM_EPA,   X1211
SYNCH=NO 1216

Thanks..

Paul Feller
AGT Mainframe Technical Support

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joe Reichman
Sent: Saturday, February 25, 2017 23:03
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Assembly Error IEAMSCHD I can't see it may be you can and can
Help thanks

  STR2,USERSTOR  1205
  LAR2,D#RMTR-D#SRBCD(,R3)  GET RESOURCE MGR TERMINATION 1206
  STR2,RTM_EPA   1206
 1207
  IEAMSCHD EPADDR=SRB_EPA,  X1208
ENV=STOKEN, X1209
TARGETSTOKEN=TARGETSTOKN,   X1210
PRIORITY=GLOBAL,X1211
FRRADDR=FRR_EPA,X1211
KEYVALUE=INVOKERKEY,X1211
RTMRADDR=RTM_EPA,   X1211
PARM=CSAWORK,   X1211
SYNCH=NO 1216
Page 
 ORKAREA,R10  LOOK,R11   
 urce Statement  HLASM R6.0  2017/02/25 2
 MACDATE -12/18/12-<4>   
  8, POSITIONAL ARGUMENT(S), "RTMRADDR=RTM_EPA" CANNOT BE USED. NO PX01-I
lp  F2=Split F3=Exit  F4=ExpandF5=Rfind F6=Rchange   


How's this 

Thanks
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lizette Koehler
Sent: Saturday, February 25, 2017 11:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Assembly Error IEAMSCHD I can't see it may be you can and can
Help thanks

For me I cannot really see the issue.  I cannot see the continuation part of
your macro.

Are your continuations in the correct column?

Did you start the next line in the right column?

The error message seems to be truncated, can you repost it?

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Joe Reichman
> Sent: Saturday, February 25, 2017 9:10 PM
> To: IBM-MAIN@LISTSERV.UA.EDU <mailto:IBM-MAIN@LISTSERV.UA.EDU>
> Subject: Assembly Error IEAMSCHD I can't see it may be you can and can 
> Help thanks
> 
> Hi
> 
> 
> 
> I put the parameters in the right order from what I see
> 
> 
> 
> 
> 
> 
> 
> 1387  IEAMSCHD EPADDR=SRB_EPA,
> 
> ENV=STOKEN,
> 
> TARGETSTOKEN=TARGETSTOKN,
> 
> PRIORITY=GLOBAL,
> 
> FRRADDR=FRR_EPA,
> 
> KEYVALUE=INVOKERKEY,
> 
> RTMRADDR=RTM_EPA,
> 
> PARM=CSAWORK,
> 
> SYNCH=NO
> 
> PLAY
> 
> 00',R9  WORKAREA,R10  LOOK,R11
> 
> Stmt   Source Statement  HLASM R6.
> 
> 1388+*   MACDATE -12/18/12-<4>
> 
> 1389+ 8, POSITIONAL ARGUMENT(S), "RTMRADDR=RTM_EPA" CANNOT BE
> 
> +   OSITIONAL ARGUMENTS ARE ALLOWED.
> 
> 1390 *
> 
> 
> 

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu <mailto:l

Re: Assembly Error IEAMSCHD I can't see it may be you can and can Help thanks

[Joe Reichman]

  STR2,USERSTOR  1205
  LAR2,D#RMTR-D#SRBCD(,R3)  GET RESOURCE MGR TERMINATION 1206
  STR2,RTM_EPA   1206
 1207
  IEAMSCHD EPADDR=SRB_EPA,  X1208
ENV=STOKEN, X1209
TARGETSTOKEN=TARGETSTOKN,   X1210
PRIORITY=GLOBAL,X1211
FRRADDR=FRR_EPA,X1211
KEYVALUE=INVOKERKEY,X1211
RTMRADDR=RTM_EPA,   X1211
PARM=CSAWORK,   X1211
SYNCH=NO 1216
Page 
 ORKAREA,R10  LOOK,R11   
 urce Statement  HLASM R6.0  2017/02/25 2
 MACDATE -12/18/12-<4>   
  8, POSITIONAL ARGUMENT(S), "RTMRADDR=RTM_EPA" CANNOT BE USED. NO PX01-I
lp  F2=Split F3=Exit  F4=ExpandF5=Rfind F6=Rchange   


How's this 

Thanks
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lizette Koehler
Sent: Saturday, February 25, 2017 11:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Assembly Error IEAMSCHD I can't see it may be you can and can
Help thanks

For me I cannot really see the issue.  I cannot see the continuation part of
your macro.

Are your continuations in the correct column?

Did you start the next line in the right column?

The error message seems to be truncated, can you repost it?

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Joe Reichman
> Sent: Saturday, February 25, 2017 9:10 PM
> To: IBM-MAIN@LISTSERV.UA.EDU <mailto:IBM-MAIN@LISTSERV.UA.EDU> 
> Subject: Assembly Error IEAMSCHD I can't see it may be you can and can 
> Help thanks
> 
> Hi
> 
> 
> 
> I put the parameters in the right order from what I see
> 
> 
> 
> 
> 
> 
> 
> 1387  IEAMSCHD EPADDR=SRB_EPA,
> 
> ENV=STOKEN,
> 
> TARGETSTOKEN=TARGETSTOKN,
> 
> PRIORITY=GLOBAL,
> 
> FRRADDR=FRR_EPA,
> 
> KEYVALUE=INVOKERKEY,
> 
> RTMRADDR=RTM_EPA,
> 
> PARM=CSAWORK,
> 
> SYNCH=NO
> 
> PLAY
> 
> 00',R9  WORKAREA,R10  LOOK,R11
> 
> Stmt   Source Statement  HLASM R6.
> 
> 1388+*   MACDATE -12/18/12-<4>
> 
> 1389+ 8, POSITIONAL ARGUMENT(S), "RTMRADDR=RTM_EPA" CANNOT BE
> 
> +   OSITIONAL ARGUMENTS ARE ALLOWED.
> 
> 1390 *
> 
> 
> 

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

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

Assembly Error IEAMSCHD I can't see it may be you can and can Help thanks

[Joe Reichman]

Hi

 

I put the parameters in the right order from what I see 

 

 

  

1387  IEAMSCHD EPADDR=SRB_EPA,

ENV=STOKEN,   

TARGETSTOKEN=TARGETSTOKN, 

PRIORITY=GLOBAL,  

FRRADDR=FRR_EPA,  

KEYVALUE=INVOKERKEY,  

RTMRADDR=RTM_EPA, 

PARM=CSAWORK, 

SYNCH=NO  

PLAY  

00',R9  WORKAREA,R10  LOOK,R11

Stmt   Source Statement  HLASM R6.

1388+*   MACDATE -12/18/12-<4>

1389+ 8, POSITIONAL ARGUMENT(S), "RTMRADDR=RTM_EPA" CANNOT BE 

+   OSITIONAL ARGUMENTS ARE ALLOWED.  

1390 *

 


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

Re: VSMLIST

[Joe Reichman]

I am Looking for Storage that was GetMain'ed and Page'ed out 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Jim Mulder
Sent: Tuesday, February 21, 2017 4:11 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: VSMLIST

> I'm trying to find data for PGSER FIX
> 
> would VSMLIST.  For free space give me address of storage that have 
> been allocated but paged out


  No, VSM (and hence VSMLIST) knows nothing about if or where any virtual
storage is backed.

Jim Mulder z/OS Diagnosis, Design, Development, Test  IBM Corp. 
Poughkeepsie NY


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

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

TPROT question

[Joe Reichman]

Hi,

 

If I would like to access say 20 bytes of core (to see if I have both fetch
and store capability) I would have to loop incrementing B1 checking against
TCBPKF (where TCB is pointing to PSATOLD)

 

 

 LA   R0,20

 LAR2,STORSCESS

LOOP   TPR0T  0(R2),TCBPKF

 BC 7,CANTACESS   

 LA R2,1(,R2)

 BCT  R0,LOOP

 

Thanks 

 


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

FW: FRR Clarification One More Thing I forgot

[Joe Reichman]

 

 

From: Joe Reichman [mailto:reichman...@gmail.com] 
Sent: Saturday, February 11, 2017 7:16 PM
To: 'IBM Mainframe Discussion List' <IBM-MAIN@LISTSERV.UA.EDU>
Subject: FRR Clarification 

 

Hi,

 

When trying to cover my code I always choose an FRR If I am in Supervisor
State

 

*   Always get an SDWA

 

*   Would get control before an ESTAE

 

*   Also a ESATE only covers an RB while a FRR cover a TCB

 

 

 

So If I'm In  SRB mode I have no choice in task mode I can code EUT=YES.
However now looking over the Doc "Once a program activates an EUT FRR it
cannot issue an SVC's"  

 

So while SETFRR is providing coverage the program cant issue any SVC's?  

 

  

 


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

FRR Clarification

[Joe Reichman]

Hi,

 

When trying to cover my code I always choose an FRR If I am in Supervisor
State

 

*   Always get an SDWA

 

*   Would get control before an ESTAE

 

 

 

 

So If I'm In  SRB mode I have no choice in task mode I can code EUT=YES.
However now looking over the Doc "Once a program activates an EUT FRR it
cannot issue an SVC's"  

 

So while SETFRR is providing coverage the program cant issue any SVC's?  

 

  

 


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

Re: IEAVPSE2 in type 2 SVC

[Joe Reichman]

Peter,

Sorry I was clear I meant can I use IEAVPSE2 service in a type 2 SVC  the
service never returned  (which would be normal as it is suspended) However I
did get an abend and I am thinking it is due to not being able to use
IEAVPSE2 In a type 2 SVC thing is for those SVC which it says cannot suspend
their caller, it allows for using a WAIT macro. As you pointed out with a
type 1 SVC that may not be true


>That means suspend macro
It might not be limited to SUSPEND. Usually they would use the spelling
SUSPEND rather than suspend or mention the macro. Suspending is usually a
more general term that can also include things like "wait".

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Peter Relson
Sent: Tuesday, January 17, 2017 8:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEAVPSE2 in type 2 SVC

>For type 2 says can not suspend their caller
This sounds wrong. And while it might be true that a type 1 SVC can suspend
its caller (the table indicates that it is), it would have to be the case
that when it did, the SVC in effect terminated so that the "resume" did not
occur within the SVC. Suspending a locally-locked work unit (and having it
keep the local lock) is almost always a bad idea (there is the concept of
"stop" which is what the system does for things like page-fault and the
system may do so when the work unit has the local lock).

>That means suspend macro
It might not be limited to SUSPEND. Usually they would use the spelling
SUSPEND rather than suspend or mention the macro. Suspending is usually a
more general term that can also include things like "wait".

>Would anyone know about ieavpse2
IEAVPSE2 does not use a type 2 SVC. It uses a type 6 SVC.
The new pause-multiple does use a type 2 SVC. And of course the invoking
work unit is "paused" until the appropriate time.

Keep in mind that, in general, rules that are documented for users might not
apply to what the system itself does.

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: IEAVPSE2 in type 2 SVC

[Joe Reichman]

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Peter Relson
Sent: Tuesday, January 17, 2017 8:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEAVPSE2 in type 2 SVC

>For type 2 says can not suspend their caller
This sounds wrong. And while it might be true that a type 1 SVC can suspend
its caller (the table indicates that it is), it would have to be the case
that when it did, the SVC in effect terminated so that the "resume" did not
occur within the SVC. Suspending a locally-locked work unit (and having it
keep the local lock) is almost always a bad idea (there is the concept of
"stop" which is what the system does for things like page-fault and the
system may do so when the work unit has the local lock).

>That means suspend macro
It might not be limited to SUSPEND. Usually they would use the spelling
SUSPEND rather than suspend or mention the macro. Suspending is usually a
more general term that can also include things like "wait".

>Would anyone know about ieavpse2
IEAVPSE2 does not use a type 2 SVC. It uses a type 6 SVC.
The new pause-multiple does use a type 2 SVC. And of course the invoking
work unit is "paused" until the appropriate time.

Keep in mind that, in general, rules that are documented for users might not
apply to what the system itself does.

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: Current work unit

[Joe Reichman]

Jim Mulder said the Current work unit is in the Web

I looked at that and saw a field WEBUPTR however the documentation says it
not always valid

If an SRB is suspended another SRB could be next to run not necessarily a
TCB

I just downloaded the latest RD seems like you guys (IBM) included
omegamon

I am not sure if Omegamon for Z/OS is there I am also not sure if it would
tell me what's running on a CPU 

Oh well.. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Peter Relson
Sent: Sunday, January 15, 2017 9:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Current work unit

>If PSATOLD is zero
> Would the current workunit
>Be PSAAOLD->ASXBFSRB first SRB of the home address space ?

No it would not be. There is not necessarily any control block representing
that SRB.
For example, for an SRB scheduled with the SCHEDULE macro, once dispatched,
the control block is the responsibility of the scheduled routine to deal
with as it sees fit. The system will never look at again. 
If the SRB needs to be suspended, then the system will create a new block
(SSRB and auxiliary blocks) to manage the status.

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

Multi SRB

[Joe Reichman]

Hi

 

Follow up question to my earlier post  can there be multiple SRB's executing
the same piece code  in the same address space 


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

Re: Multitasking question

[Joe Reichman]

Ed,

That term is okay the issue I have is with the term Multitasking is MultiRBing  
 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Tuesday, December 27, 2016 12:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Multitasking question

On 12/27/2016 9:41 AM, Joe Reichman wrote:
> The RB's associated with the task/TCB differentiate the programs but 
> the code can live in same private address - range
>
> Correct ?

Yes. That is essentially the definition of reentrant code.

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

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

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

Multitasking question

[Joe Reichman]

Hi

 

Unlike other programming platforms where a program is associated with a
thread or in z/os jargon Task

 

There can be number of programs running in the same private address space
under one Task aka TCB

 

The RB's associated with the task/TCB differentiate the programs but the
code can live in same private address - range

 

Correct ?   


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

Re: ftp connection dies ?

[Joe Reichman]

I am running the program under test so 


Using the programming interface EZAFTPKS I have this issue, using the batch job 
PGM=FTP It always works

Would know what the ftp configuration data set would be ?



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Godfrey
Sent: Sunday, October 16, 2016 5:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ftp connection dies ?

How much time passes between your OPEN and your USER commands?

If you are running your code under TEST with a breakpoint between OPEN and 
USER, and you let 30 seconds pass before resuming, the IIS FTP server will drop 
the connection.

Or your IIS "unauthenticatedTimeout" might be set to something less than 30 
seconds.

Bill

On Sun, 16 Oct 2016 15:13:29 -0400, Joe Reichman wrote:

>
>
>Hi
>
>
>
>I am hoping someone can help me
>
>
>
>This my trace output my traceid is JOE the trace is saying I must first 
>issue OPEN seems like I have done this I don't understand
>
>
>
>
>
> Date - 10/16/2016  Time - 18:52:31  Process ID - 33619975  
> TC
>
>JOE SCMD >OPEN 10.0.0.205 21
>
>
>JOE Connecting to:   10.0.0.205 port: 21.
>
>
>JOE 220 Microsoft FTP Service
>
>
>JOE Command(00-10--220):
>
>
>JOE SCMD <
>
>
>JOE SCMD >User Reichman
>
>
>JOE *** Control connection with 10.0.0.205 dies.
>
>
>JOE You must first issue the 'OPEN' command
>
>
>JOE Command(26-19--   ):
>
>
>JOE SCMD <
>
>

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

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

ftp connection dies ?

[Joe Reichman]

 

Hi

 

I am hoping someone can help me

 

This my trace output my traceid is JOE the trace is saying I must first
issue OPEN seems like I have done this I don't understand  

 

 

 Date - 10/16/2016  Time - 18:52:31  Process ID - 33619975  TC

JOE SCMD >OPEN 10.0.0.205 21


JOE Connecting to:   10.0.0.205 port: 21.


JOE 220 Microsoft FTP Service


JOE Command(00-10--220):


JOE SCMD <


JOE SCMD >User Reichman


JOE *** Control connection with 10.0.0.205 dies.


JOE You must first issue the 'OPEN' command


JOE Command(26-19--   ):


JOE SCMD <


 

 

 

 


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

intermittent errors using FTP program Interface EZAFTPKS

[Joe Reichman]

 

Hi

 

I am getting intermittent errors using the FTP program interface

 

The Client Error Code is X'0A' or 10 FTP_SESSION_ERROR

 

This happens when I issue the User Reichman joecool   -- User Id and
password SCMD

 

The INIT works okay so Does the Open 

 

Thing is sometimes it works I am at loss to find out why it doesn't work
when it fails 

 

 

Thanks   

 


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

FTP_SESSION_ERROR using EZAFTPKS

[Joe Reichman]

I am getting a x'0A' or 10 in the FCAI_CEC field of the FCAI map field The
documentation for Client Error code says this is a sockets error

 

This return code is coming on the User Subcommand

 

Thing I have a batch job with the same parameters that is working fine

 

So the batch job has the following cards

 

10.0.0.205 21

Reichman joecool

PUT 'IBMUSER.TEST.SYSPRINT(LISTING)'

 

For the programming interface 

 

I do the INIT command works fine RC 0

Then SCMD OPEN 10.0.0.205 21 works fine  RC 0

 

Then I have SCMD User Reichman joecool I get rc 3 and Fcai_CEC = 0A

 

I run this code under TSO TEST and like the batch job 

 

I allocate SYSFTPD to TCPIP.FTP.DATA

 

   


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

Re: S99ERROR = 21C For & UNIT=VIO

[Joe Reichman]

Just NODECK but it still looked for SYSLIN I allocated with VIO but dummied
it got the Asssembly list  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Edward Gould
Sent: Monday, September 26, 2016 4:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S99ERROR = 21C For & UNIT=VIO

What options did you pass to the assembler?

Ed

> On Sep 25, 2016, at 7:00 AM, Joseph Reichman 
wrote:
> 
> Well
> 
> I was able to allocate the datasets run Or BASSM to the assembler
> 
> But I cann't find the sysprint dataset
> 
> I had disp=(new,catlg)
> 
> Thanks
> 
> I am going to change the name and see
> 
>> On Sep 25, 2016, at 7:52 AM, J R  wrote:
>> 
>> SA23-1371-05
>> 
>> z/OS V2R2 MVS Authorized Assembler Services Guide
>> 
>> Chapter 26. Requesting dynamic allocation functions
>> 
>> Page 646.
>> 
>> Sent from my iPhone
>> 
>> On Sep 25, 2016, at 00:38, Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>> 
>> On Sun, 25 Sep 2016 02:02:43 +, J R wrote:
>> 
>> From the FM:
>> 
>> Verb code 01 - Dsname allocation text units
>> 
>> Dsname specification - Key = '0002'
>> 
>> DALDSNAM specifies the name of the data set to be allocated. The data set
name can contain special characters, if the data set name is enclosed in
apostrophes. The system cannot catalog a data set name enclosed in
apostrophes; it will use a disposition of KEEP instead. The data set name
can contain system symbols. See the information on using system symbols in
z/OS MVS Initialization and Tuning Reference for more information.
>> 
>> The maximum length of the data set name is 44 characters, excluding any
enclosing apostrophes and compressing any double apostrophes within the data
set name.
>> 
>> Example: To specify the temporary dsname , code: KEY # LEN PARM
>> 
>>   0002   0001   0005   50 D3 D6 C1 C4
>> 
>> Unless I'm badly missing the context (which FM?) this is an egregious 
>> hodgepodge of Assembler syntax, JCL syntax, and DYNALLOC specification.
>> By experiment several decades ago:
>> 
>> o I could create data sets with outrageous names; internal blanks, 
>> NUL characters ...  Administrators complained to me when they were 
>> unable to scratch them with the utility they used.
>> 
>> o I don't believe apostrophes, single or double, were necessary.
>> I could have built the DALDSNAM TU with a sequence of AL1(nnn) 
>> constants.
>> 
>> o '&' means nothing to DYNALLOC.  The example simply refers to a data 
>> set name beginning with the AL1(80) byte.  Temporary DSNs and 
>> DISP=PASS are handled by JCL and the initiator.
>> 
>> o I don't know whether DYNALLOC substitutes system symbols (it came 
>> about after my experiments).  But I believe that's done (only?) by 
>> JCL processing.
>> 
>> o JCL, from an overabundance of caution, believes any data set name 
>> surrounded by apostrophes is ineligible for catalog processing.
>> (I need to try DSN='SYS1.MACLIB' to see whether it works.)
>> 
>> o DISABLE(DSNCHECK) profoundly changes the rules.  I don't know which 
>> services respect or enforce this.  I doubt that JCL will allow 
>> catalog processing of data set names containing special characters or 
>> even consecutive periods or qualifiers longer than 8 characters 
>> despite DISABLE(DSNCHECK)'s being in effect.
>> 
>> -- 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
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: 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: S99ERROR = 21C For &

[Joe Reichman]

I have a SYSOUT dataset in my program it too is SVC 99

Right after the SVC 99 I am able to 3.4 the name

This is at a test breakpoint while test is still running

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Sunday, September 25, 2016 5:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S99ERROR = 21C For &

On Fri, 23 Sep 2016 17:17:03 -0400, Joe Reichman wrote:
>
>I am trying to dynamic allocate files for HLASM  When I get to SYSLIN
> 
Here's a solution in Rexx.  BPXWDYN is a friencly wrapper for SVC 99.
It writes SYSPRINT and SYSTERM to catalogued data sets.  It's serially 
reusable.  If you can convert the BPXWDYN options to SVC 99 TUs, it should work 
similarly.

/*Rexx */ signal on novalue;  /*
   Doc: ASSEMBLE ASMASAMP with HLASM.  Catalog SYSPRINT and SYSTERM.
*/
trace R

RC = BPXWDYN( 'alloc dd(SYSPRINT) dsn('userid()'.TEMP.SYSPRINT) mod catalog 
msg(2)' )
RC = BPXWDYN( 'alloc dd(SYSPRINT) dsn('userid()'.TEMP.SYSPRINT) shr reuse   
msg(2)' )

RC = BPXWDYN( 'alloc dd(SYSTERM)  dsn('userid()'.TEMP.SYSTERM)  mod catalog 
msg(2)' )
RC = BPXWDYN( 'alloc dd(SYSTERM)  dsn('userid()'.TEMP.SYSTERM)  shr reuse   
msg(2)' )

RC = BPXWDYN( 'alloc dd(SYSLIB)   dsn(SYS1.MACLIB)  shr reuse   
msg(2)' )
RC = BPXWDYN( 'alloc dd(SYSIN)dsn(SYS1.SAMPLIB(ASMASAMP))   shr reuse   
msg(2)' )

P1 = 'NOOBJECT,NODECK'
address 'LINKMVS' 'ASMA90 P1'

-- gil

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

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

Re: S99ERROR = 21C For & UNIT=VIO SYSOUT Class Question

[Joe Reichman]

Yes that means and I can't believe this The Assembler doesn't close SYSprint
is that possible ?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of J R
Sent: Sunday, September 25, 2016 2:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S99ERROR = 21C For & UNIT=VIO SYSOUT Class Question

No.  It's the FREE or end-of-step that triggers the DISP.  Did you try the
DALCLOSE that you mentioned?

Sent from my iPhone

> On Sep 25, 2016, at 14:18, Joseph Reichman <reichman...@gmail.com> wrote:
> 
> This is all very surprising to me
> 
> Doesn't the assembler CLOSE sysprint
> 
> If so wouldn't the CLOSE catalogue the dataset
> 
>>> On Sep 25, 2016, at 2:15 PM, Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>>> 
>>> On Sun, 25 Sep 2016 13:47:15 -0400, Joe Reichman wrote:
>>> 
>>> Charles I don't know if this solution will work for me I would like 
>>> to FTP the assembler listing to my PC
>>> 
>>> Don't think can do this with a SYSOUT class
>> Perhaps you can with the FTP command QUOTE FILETYPE=JES
>> 
>>> I was able to allocate the datasets run Or BASSM to the assembler
>> Is BASSM preferable to LINK?
>> 
>>> But I cann't find the sysprint dataset I had disp=(new,catlg)
>> What DSNAME?  Do you have other data sets with the same prefix?
>> Be alert to FTP's conventions regarding data set prefixes.
>> 
>> -- 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

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: 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: S99ERROR = 21C For & UNIT=VIO SYSOUT Class Question

[Joe Reichman]

Charles I don't know if this solution will work for me I would like to FTP
the assembler listing to my PC 

Don't think can do this with a SYSOUT class  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Charles Mills
Sent: Sunday, September 25, 2016 11:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S99ERROR = 21C For & UNIT=VIO

You know you can allocate to SYSOUT with SVC 99 as well as a dataset? Look
into the "SPIN" options so that it is available after the assembler ends,
without waiting for your STC to end,

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joseph Reichman
Sent: Sunday, September 25, 2016 5:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S99ERROR = 21C For & UNIT=VIO

Well 

I was able to allocate the datasets run Or BASSM to the assembler 

But I cann't find the sysprint dataset

I had disp=(new,catlg)

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

[Joe Reichman]

Just looked at it so

I am assuming the Assembler will close the SYSPRINT dataset when it is done
so if I have text unit DALCLOSE I should be able to see it as soon as the
assembler is done "BR or BSM 0,14"

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Charles Mills
Sent: Sunday, September 25, 2016 11:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU"DOES 
Subject: Re: S99ERROR = 21C For &  UNIT=VIO

You know you can allocate to SYSOUT with SVC 99 as well as a dataset? Look
into the "SPIN" options so that it is available after the assembler ends,
without waiting for your STC to end,

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joseph Reichman
Sent: Sunday, September 25, 2016 5:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S99ERROR = 21C For & UNIT=VIO

Well 

I was able to allocate the datasets run Or BASSM to the assembler 

But I cann't find the sysprint dataset

I had disp=(new,catlg)

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

[Joe Reichman]

thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Charles Mills
Sent: Sunday, September 25, 2016 11:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S99ERROR = 21C For & UNIT=VIO

You know you can allocate to SYSOUT with SVC 99 as well as a dataset? Look
into the "SPIN" options so that it is available after the assembler ends,
without waiting for your STC to end,

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joseph Reichman
Sent: Sunday, September 25, 2016 5:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S99ERROR = 21C For & UNIT=VIO

Well 

I was able to allocate the datasets run Or BASSM to the assembler 

But I cann't find the sysprint dataset

I had disp=(new,catlg)

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

[Joe Reichman]

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of J R
Sent: Saturday, September 24, 2016 10:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S99ERROR = 21C For & UNIT=VIO

If you specify NODECK you shouldn't need SYSLIN. 

Sent from my iPhone

> On Sep 24, 2016, at 22:23, Joseph Reichman <reichman...@gmail.com> wrote:
> 
> I wonder if I can dummy SYSLIN as I just want the assembler listing
> 
> 
> 
>> On Sep 24, 2016, at 10:15 PM, J R <jayare...@hotmail.com> wrote:
>> 
>> FM says you can have a DSN :  
>> 
>> Example: To specify the temporary dsname , code: KEY # LEN PARM
>> 
>> 0002   0001   0005   50 D3 D6 C1 C4
>> 
>> Have you tried UNIT=SYSALLDA?
>> 
>> Sent from my iPhone
>> 
>>> On Sep 24, 2016, at 22:05, Joseph Reichman <reichman...@gmail.com>
wrote:
>>> 
>>> So If I code DALSTATS = 04 and DALNDISP = 04 Which is 
>>> disp=(NEW,DELETE)
>>> 
>>> It should work I don't have a dataset name
>>> 
>>> Regardless S99ERROR is 21C
>>> 
>>> 
>>> 
>>>> On Sep 24, 2016, at 9:46 PM, Charles Mills <charl...@mcn.org> wrote:
>>>> 
>>>> Well, yeah, it has to be temporary -- you can't catalog a dataset in
VIO!
>>>> 
>>>> SVC 99 will let you allocate a temporary dataset -- I think it was a
back-reference you were trying to do before? That won't work.
>>>> 
>>>> IIRC the basic SVC 99 temporary dataset strategy is to omit the DSN
key.
>>>> 
>>>> What are you trying to do? Allocate a dataset that will be used in turn
by two programs that you will call, like an assembler and the binder? That
works just fine. Just choose a DD name, or let SVC 99 choose one, and pass
that name to both programs.
>>>> 
>>>> You may or may not want to specify UNIT=VIO. I think the usual
technique these days is to let SMS pick a unit type. It may well pick VIO
for a temporary dataset.
>>>> 
>>>> Charles
>>>> 
>>>> -Original Message-
>>>> From: IBM Mainframe Discussion List 
>>>> [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joe Reichman
>>>> Sent: Saturday, September 24, 2016 5:46 PM
>>>> To: IBM-MAIN@LISTSERV.UA.EDU
>>>> Subject: Re: S99ERROR = 21C For & UNIT=VIO
>>>> 
>>>> Hi
>>>> 
>>>> I have UNIT=VIO
>>>> 
>>>> I just read where this can only be specified on a temporary dataset 
>>>> and as I have been told I can't do that with SVC 99
>>>> 
>>>> --

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

[Joe Reichman]

Hi

I have UNIT=VIO

I just read where this can only be specified on a temporary dataset and as I 
have been told I can't do that with SVC 99  

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Friday, September 23, 2016 6:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S99ERROR = 21C For &

On Fri, 23 Sep 2016 17:34:25 -0400, Farley, Peter x23353 wrote:
>
>When you allocate it yourself you have to supply a real name or don't provide 
>a name at all, but I don't know if SVC99 allows that, check the docs for SVC99 
>for the DSNAME unit.
> 
It's allowed.  BPXWDYN( 'alloc rtddn(NAME) ...' ) implements it in Rexx.  I use 
it regularly to avoid conflicts with otherwise allocated DDNAMEs.  I pass the 
returned NAME's value to a utility (for me, usually IEBGENER, but could be 
HLASM) by using the alternate DDNAME list described in the Utilities manual, 
probably elsewhere.

Yes, the generated name persists only for the job step (or UNIX fork) but you 
can use the SYSLIN passed to HLASM as SYSLIN for Binder in the same EXEC, or 
simply use it in generated 'INCLUDE' NAME'(member)' Binder commands.

Hmmm.  I don't know how to use BPXWDYN (or SVC 99) to generate a DSName and a 
DDNAME but let me supply the member name.  I suspect this is supported by SVC 
99 but BPXWDYN may have no interface for it.

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

S99ERROR = 21C For &

[Joe Reichman]

hI,

 

I am trying to dynamic allocate files for HLASM  When I get to SYSLIN 

 

I get a 21C return code which the doc says has something to do with my
dataset name

 

I just use whats in proc ASMAC which is DSN=&

 

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

[Joe Reichman]

Thanks so much :) 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of J R
Sent: Sunday, September 18, 2016 12:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SVC 99 Quick Question

No!

Sent from my iPhone

> On Sep 18, 2016, at 12:31, Joe Reichman <reichman...@gmail.com> wrote:
> 
> Hi
> 
> 
> 
> I am allocating a new ds using SVC 99 does the order the Text Units matter
?
> or as long as I have them all there
> 
> 
> 
> 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

SVC 99 Quick Question

[Joe Reichman]

Hi

 

I am allocating a new ds using SVC 99 does the order the Text Units matter ?
or as long as I have them all there

 

Thanks

 

 


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

FW: FTP_NEEDS_CONNECTION return From EZAFTPKS interface

[Joe Reichman]

Hi

 

I originally posted on the TCP/IP list but saw FTP issues on IBMMAIN 

 

From: Joe Reichman [mailto:reichman...@gmail.com] 
Sent: Tuesday, September 13, 2016 8:21 AM
To: 'ibmtc...@vm.marist.edu' <ibmtc...@vm.marist.edu>
Subject: FTP_NEEDS_CONNECTION return From EZAFTPKS interface

 

Hi

 

I got the above error from EZAFTPKS interface

I get a successful return code from INIT

Open

User name Password

 

But I Fail on PUT with the above error code

 

I have a batch FTP job which successfully transferred a file to my windows
PC 

 

Thanks


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

Deleting FRR

[Joe Reichman]

Hi,

 

I have a FRR covering a SRB it not a parameter on the SCHEDULE or IEAMSCHD
but rather invoked inside the SRB. The documentation says to delete it just
code SETFRR D,WORKREGS However I am guessing it has to be in the context of
the SRB or in the FRR on the SETRP REMREC=YES

But that's only in the retry routine ?

 




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

RDW corruption

[Joe Reichman]

Hi,

 

I have a program that generates a corrupted RDW The file is a VB file. I
coded a synad exit but it didn't take (it was never given control)

 

When I go into ISPF and I do a max down I can see where ISPF can't read the
next record as I get "* * * I/O error detected, i/o terminated * * *"

 

As there anything/exit I can do to capture this the program seems to go to
EOJ  


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

Re: subscribing options

[Joe Reichman]

You are right it was just because it was my work e-mail thanks
 
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Tuesday, July 12, 2016 8:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: subscribing options

On Tue, Jul 12, 2016 at 6:58 AM, Joe Reichman <reichman...@gmail.com> wrote:

> Hi
>
>
>
> I would like to subscribe to IBM-MAIN on my Work Email but since its 
> work I would only like to receive messages that I have posted to as 
> opposed to my personal e-mail where I receive all messages
>
> Can anyone point me in the direction
>
>
​I think this list is "all or nothing". You cannot receive only messages which 
​you yourself posted and their replies (i.e. a "thread"). You can do a "digest" 
- all emails for the day, sent at the end of the day; "normal" - receive 
individual messages during the day; "nomail" - don't receive any messages at 
all (like ur on vacation). I don't know of any mailing list which has a 
"solicited only" (threads in which I participated) selection. I can envision 
setting up such a thing, but I don't think anyone has.

As an aside, this might be considered a bit "silly". Supposed everybody set 
such an option? The discussion would be very limited because nobody would ever 
receive an original email. Some might even consider it to be a bit "rude" - "I 
can talk to you at any time, but don't talk to me without my permission." . I'm 
sure that's not your intent. I wanted something like this way back when too. 
Now, I just use a gmail account which I access via http://mail.google.com 
instead of "local delivery".


> Thanks
>

--
"Pessimism is a admirable quality in an engineer. Pessimistic people check 
their work three times, because they're sure that something won't be right.
Optimistic people check once, trust in Solis-de to keep the ship safe, then 
blow everyone up."
"I think you're mistaking the word optimistic for inept."
"They've got a similar ring to my ear."

>From "Star Nomad" by Lindsay Buroker:

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

subscribing options

[Joe Reichman]

Hi

 

I would like to subscribe to IBM-MAIN on my Work Email but since its work I
would only like to receive messages that I have posted to as opposed to my
personal e-mail where I receive all messages

Can anyone point me in the direction 

 

Thanks 


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

Re: Character data returned from

[Joe Reichman]

So let me post the code

SET  = 2
SET LINE = (&)
SET  = 16
SET LINE1 = ()
SET KEYWORD = (50:54,)
IF  = OPEN/* HERE IS WHERE THE ERROR OCCURS IF KEYWORD IS '*' */


.
.
 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of CM Poncelet
Sent: Thursday, July 7, 2016 12:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Character data returned from 

 will not necessarily work. If so, use SYSSCAN (its default value is
16).

E.g.
SET SYSSCAN = 2/* note: 0 will interpret all &'s as data including 
 set it to 1, 2 or 3 etc. as appropriate */  SET
SYSSCAN = 16

CP


Lizette Koehler wrote:

>And if that does not work, then show the code you are using.
>
>Include how you set the variable,
>What the variable contains,
>And what you are using for ( )
>
>CONLIST, SYMLIST, LIST is helpful.
>
>Lizette
>
>
>  
>
>>-Original Message-
>>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
>>On Behalf Of Lizette Koehler
>>Sent: Wednesday, July 06, 2016 2:31 PM
>>To: IBM-MAIN@LISTSERV.UA.EDU
>>Subject: Re: Character data returned from 
>>
>>So you may also want to join, if you have not done so, the TSO REXX 
>>list.  We speak CLIST There.
>>TSO REXX  http://www2.marist.edu/htbin/wlvindex?TSO-REXX
>>Go to bottom of webpage to join
>>
>>
>>Try using 
>>
>>Lizette
>>
>>
>>
>>
>>>-Original Message-
>>>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
>>>On Behalf Of Joseph Reichman
>>>Sent: Wednesday, July 06, 2016 12:49 PM
>>>To: IBM-MAIN@LISTSERV.UA.EDU
>>>Subject: Character data returned from 
>>>
>>>Hi
>>>
>>>Is there anyway to check that  converted the variable in question 
>>>to valid characters
>>>
>>>After the  if do a compare in which case the variable had an '*'
>>>and I am getting "expression with operators out of sequence
>>>
>>>  
>>>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions, send 
>email to lists...@listserv.ua.edu with the message: 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: Character data returned from

[Joe Reichman]

Its all clist

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Steve Beaver
Sent: Wednesday, July 6, 2016 5:40 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Character data returned from 

In REXX use TRACE I

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lizette Koehler
Sent: Wednesday, July 6, 2016 4:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Character data returned from 

And if that does not work, then show the code you are using.

Include how you set the variable,
What the variable contains,
And what you are using for ( )

CONLIST, SYMLIST, LIST is helpful.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Lizette Koehler
> Sent: Wednesday, July 06, 2016 2:31 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Character data returned from 
> 
> So you may also want to join, if you have not done so, the TSO REXX 
> list.  We speak CLIST There.
> TSO REXX  http://www2.marist.edu/htbin/wlvindex?TSO-REXX
> Go to bottom of webpage to join
> 
> 
> Try using 
> 
> Lizette
> 
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List 
> > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman
> > Sent: Wednesday, July 06, 2016 12:49 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Character data returned from 
> >
> > Hi
> >
> > Is there anyway to check that  converted the variable in 
> > question to valid characters
> >
> > After the  if do a compare in which case the variable had an '*'
> > and I am getting "expression with operators out of sequence
> >
> 

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

[Joe Reichman]

I am scanning input cards which all have characters A - Z there is one card
with a * that causes the problem

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lizette Koehler
Sent: Wednesday, July 6, 2016 5:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Character data returned from 

And if that does not work, then show the code you are using.

Include how you set the variable,
What the variable contains,
And what you are using for ( )

CONLIST, SYMLIST, LIST is helpful.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Lizette Koehler
> Sent: Wednesday, July 06, 2016 2:31 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Character data returned from 
> 
> So you may also want to join, if you have not done so, the TSO REXX 
> list.  We speak CLIST There.
> TSO REXX  http://www2.marist.edu/htbin/wlvindex?TSO-REXX
> Go to bottom of webpage to join
> 
> 
> Try using 
> 
> Lizette
> 
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List 
> > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman
> > Sent: Wednesday, July 06, 2016 12:49 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Character data returned from 
> >
> > Hi
> >
> > Is there anyway to check that  converted the variable in 
> > question to valid characters
> >
> > After the  if do a compare in which case the variable had an '*'
> > and I am getting "expression with operators out of sequence
> >
> 

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

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

Re: TSO TEST and SYSOUTTRAP/SYSOUTLINE

[Joe Reichman]

e:
>>>>> 
>>>>> I use SYSOUTTRAP in Rexx all the time for ordinary commands. There is 
>>>>> indeed a huge difference between Rexx and Clist vis a vis 'subcommand 
>>>>> mode'. An example of subcommand mode is the SEND command under OPER. 
>>>>> Another is LIST under ACCOUNT. TEST runs in practice almost entirely in 
>>>>> subcommand mode. 
>>>>> 
>>>>> In a Clist, the exec retains control when running in subcommand mode. In 
>>>>> Rexx, the exec loses control in subcommand mode, so successive commands 
>>>>> must be 'stacked' ahead of time via QUEUE. Trouble is that in TEST, 
>>>>> subsequent command operands usually depend on the result of previous 
>>>>> commands, which makes QUEUEing commands ahead of time nearly impossible. 
>>>>> 
>>>>> I don't recall ever trying SYSOUTTRAP in TEST.  
>>>>> 
>>>>> .
>>>>> .
>>>>> .
>>>>> J.O.Skip Robinson
>>>>> Southern California Edison Company Electric Dragon Team Paddler 
>>>>> SHARE MVS Program Co-Manager
>>>>> 323-715-0595 Mobile
>>>>> 626-302-7535 Office
>>>>> robin...@sce.com
>>>>> 
>>>>> -Original Message-
>>>>> From: IBM Mainframe Discussion List 
>>>>> [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman
>>>>> Sent: Sunday, July 03, 2016 9:18 AM
>>>>> To: IBM-MAIN@LISTSERV.UA.EDU
>>>>> Subject: (External):Re: TSO TEST and SYSOUTTRAP/SYSOUTLINE
>>>>> 
>>>>> I don't think the clist SYSOUTTRAP/SYSOUTTRAP Work to trap TEST 
>>>>> output maybe Rexx OUTTRAP does didn't try that
>>>>> 
>>>>> 
>>>>> 
>>>>>> On Jul 3, 2016, at 9:16 AM, Rupert Reynolds wrote:
>>>>>> 
>>>>>> TEST behaves differently (or did, when I used it in the 90s) in CLIST. 
>>>>>> As I remember it, the CLIST that starts TEST keeps running for 
>>>>>> the TEST session, so the next line of a CLIST after the TEST 
>>>>>> command itself can be subcommands such as AT and GO.
>>>>>> 
>>>>>> As I remember it, there were important differences in SYSOUTTRAP 
>>>>>> as well. I had a small collection of REXX and CLIST that could be 
>>>>>> run in TEST to do things such as single step and redisplay 
>>>>>> registers, storage, code, PSW and so on, almost half way to a full 
>>>>>> screen debugger.
>>>>>> 
>>>>>> I found the differences meant I had to mix REXX and CLIST to get 
>>>>>> the job done.
>>>>>> 
>>>>>> Roops
>>>>>>> On 3 Jul 2016 12:53, "Joseph Reichman" wrote:
>>>>>>> 
>>>>>>> Thanks so much 珞
>>>>>>> 
>>>>>>> Joe Reichman
>>>>>>> 8045 Newell St Apt 403
>>>>>>> Silver Spring MD 20910
>>>>>>> Home (240) 863-3965
>>>>>>> Cell (917) 748 -9693
>>>>>>> 
>>>>>>>>> On Jul 3, 2016, at 7:38 AM, Mike Shorkend
>>>>>>>> wrote:
>>>>>>>> 
>>>>>>>> I am not sure about CLIST but for REXX, the following will 
>>>>>>>> place each output line into  a the stem variable 'test'.
>>>>>>>> 
>>>>>>>> /* REXX */
>>>>>>>> x=outtrap('test.')
>>>>>>>> push "end"
>>>>>>>> PUSH "go"
>>>>>>>> PUSH "at +0"
>>>>>>>> "test 'sys1.linklib(iefbr14)'"
>>>>>>>> say "number of trapped lines is"  test.0 do i = 1 to test.0  
>>>>>>>> say test.i end
>>>>>>>> 
>>>>>>>> HTH
>>>>>>>> 
>>>>>>>> Mike
>>>>>>>> 
>>>>>>>> 
>>>>>>>>> On 29 June 2016 at 15:21, Joseph Reichman
>>>>>>> wrote:
>>>>>>>>> 
>>>>>>>>> Hi
>>>>>>>>> 
>>>>>>>>> Does any one know if capturing TEST output Into CLIST 
>>>>>>>>> variables is possible
>>>>>>>>> 
>>>>>>>>> 
>>>>>>>>> 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: Relationship of C signals to z/OS terminology?

[Joe Reichman]

Sent from my MetroPCS 4G Android deviceCharles Mills charl...@mcn.org 
wrote:I have looked in the manuals but I can't find this. Is there anywhere any
documentation mapping the relationship between z/OS events as we have known
and loved them for years, and C signals?

I have figured out that SIGILL = S0C1 and SIGEGV = S0C4. SIGFPE is pretty
obvious.

But what exactly in the z/OS world does SIGABND catch? Not every ABEND --
I've figured that out. What does a console CANCEL command cause? SIGTERM?

It would seem like this must be documented somewhere but I don't see it.

Charles 

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

[Joe Reichman]

You are right its the least I can do for free help sorry


Sent from my MetroPCS 4G Android devicePeter Relson rel...@us.ibm.com 
wrote:Found out the problem it's not supported on Z/OS 1.7

Please help the readers of this fine forum by including information about 
your z/OS release, particularly when you post about experiences on 
unsupported releases.

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