Re: TCP/IP to JES3

[Paul Gilmartin]

On Fri, 22 Sep 2023 20:59:11 +, Schmitt, Michael wrote:

>Thanks, I overlooked the "interacting with JES topic".
>
>Looks like you can GET (receive) sysout but not PUT.
>
>I suppose a worst case solution would be to wrap the output in JCL, where the 
>JCL executes code to build LRECL=133 lines from instream data and then copy 
>that to SYSOUT.
>  
FTP limits JESLRECL to 254 which may be sufficient to avoid the "JCL executes 
code to build."

(I assume IEBGENER step with instream SYSUT1.)

254!?  Antique JES3 limit.  Both JES2 and JES3 allow far more nowadays.
Time for an RFE^H^H^HIdea?

-- 
gil

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

Re: Risk/Reward ASVT in 31 bit storage

[Mark Zelden]

On Fri, 22 Sep 2023 16:10:37 -0500, Mark Zelden  wrote:

>On Fri, 22 Sep 2023 19:50:43 +, Mark Jacobs  
>wrote:
>
>>So nothing more than that. IMHO it doesn't seem too worthwhile in most 
>>environments. Thanks however.
>>
>>Mark Jacobs 
>>
>
>I agree.  I never did it except in sandbox environments and usually wait a 
>couple of 
>releases for changing things like that, but never did it in production.  The 
>problem is 
>homegrown code that may be floating around in production environments that
>you don't know about.  I'm often surprised about the kinds of things I discover
>running as part of batch jobs when some need to research a problem
>comes up.
>

I was going to site my own ASIDLIST program on my web site / CBT file 434,
but I just looked and I forgot I updated it in 2016 to support ASVT above the
line. :)   So that is indeed a long time that this option has been available
and all software should support it by now.   The REXX version needed no
changes of course (ASIDLRX).  

Off subject:  I would really like to (also) extend my appreciation to the list
owner - Darren Evans-Young - for cracking down on off subject posts and
all the nostalgia posts etc.  I have actually had time this week to follow the
list from the web archives and keep up with posts with my super busy
schedule.
Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html

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

Re: TCP/IP to JES3

[Steve Thompson]

I'm going for the bonus points:  NJE/RJE. I was just reading on 
this by accident while working on a tool to do a JES3 to JES2 
migration (JOBs, not the sysprog work, not that far into AI yet 
;-) ).


So there is a way to do that between those nodes.

Steve Thompson

On 9/22/2023 4:25 PM, Schmitt, Michael wrote:

Is there a way to transfer sysout type data from a remote, non-mainframe 
system, into a JES3 spool? From which already existing tasks will grab the 
output according to destination, class, writer, etc.

Such as, use some product or capability to connect and transfer to a TCP/IP 
port.

Most of what I see is going the other direction, answering the question of "how do I 
get this report from the JES spool to my printer/pc/file server/etc?" But I need to 
get it into JES3, because the existing report distribution software wants to grab it from 
there.

I thought I remembered being able to inject jobs into the IEFRDER via FTP, and 
thought perhaps could also transfer to sysout, but don't see it in the 
Communications Server manual.

Bonus points for a solution that will also work with JES2, after the inevitable 
end-of-support for JES3.

__
Michael Schmitt | DXC Apps Development | MassMutual
(737) 910-8248 | michael.schm...@dxc.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: Risk/Reward ASVT in 31 bit storage

[Mark Zelden]

On Fri, 22 Sep 2023 19:50:43 +, Mark Jacobs  
wrote:

>So nothing more than that. IMHO it doesn't seem too worthwhile in most 
>environments. Thanks however.
>
>Mark Jacobs 
>

I agree.  I never did it except in sandbox environments and usually wait a 
couple of 
releases for changing things like that, but never did it in production.  The 
problem is 
homegrown code that may be floating around in production environments that
you don't know about.  I'm often surprised about the kinds of things I discover
running as part of batch jobs when some need to research a problem
comes up.

You can also move the LCCA and PCCA above the line via CBLOC in DIAGxx. 
That was introduced in z/OS 1.9 and the default in z/OS 1.12, so you should
be running with it.  ASVT option was in z/OS 2.1 and still isn't above by
default (maybe z/OS 3.1? I haven't looked).  

All my sandbox LPARs have this coded and I'm sure system software is all
fine since z/OS 2.3.  I think I added ASVT even in z/OS 2.1 in my sandboxes
after all software had z/OS 2.1 maintenance or versions running. 

CBLOC VIRTUAL31(IHALCCA,IHAPCCA,IHAASVT) 

Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html

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

Re: SCHEDIRB with CIRB

[Michael Stein]

On Fri, Sep 22, 2023 at 04:50:23PM -0400, Joseph Reichman wrote:
> Micheal 
> 
> Thanks for looking at it I see 8E76D0 at IQETCB

Oh, I mangled it when aliging the hex data, the 0s are from the 64 bit address
high word...

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

Re: SDSF and JESSPOOL

[Michael Babcock]

I don’t know where the build JCL came from cuz it was here before I got
here.  I’ll keep that in mind too, thanks!

On Fri, Sep 22, 2023 at 2:35 PM Mark Zelden  wrote:

> On Thu, 21 Sep 2023 06:50:01 -0500, Michael Babcock 
> wrote:
>
> >Thanks Rob!   That’s the explanation I needed!   However, I did create a
> >ISF*.** profile with a UACC of ALTER but it still didn’t work because I
> >didn’t have NOFAILRC4 (I assume).
> >
> >On Thu, Sep 21, 2023 at 2:52 AM Rob Scott 
> wrote:
> >
> >> Michael
> >>
> >> Although we strongly recommend JESSPOOL (and OPERCMDS) being active, you
> >> can use successfully use SDSF without it.
> >>
> >> The big difference in z/OS 2.5 is that SDSF will no longer fall back to
> >> any legacy ISFPRMxx authority keywords on the GROUP statements when SAF
> >> returns RC=4.
> >>
> >> How SDSF handles SAF RC=4 (returned when the ESM cannot make a
> >> determination - for example the class not active or no matching
> profile) is
> >> governed by the AUXSAF(FAILRC4/NOFAILRC4) keyword on the CONNECT
> statement
> >> in ISFPRMxx.
> >>
> >> The default value of FAILRC4 means that SDSF will translate RC=4 from
> SAF
> >> into a "denied" response, whereas NOFAILRC4 will translate to "allowed".
> >>
> >> So you could keep JESSPOOL inactive and use AUXSAF(NOFAILRC4) on your
> >> rescue system ...
>
> 
>
> If this happens to be a modified version of my onepack JCL from my web
> site / CBT file 434, when I put out the z/OS 2.5 version it will have
> CONNECT AUXSAF(NOFAILRC4) in the ISFPRM00 member that is
> supplied by default.
>
> Best Regards,
>
> Mark
> --
> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
> ITIL v3 Foundation Certified
> mailto:m...@mzelden.com
> Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: TCP/IP to JES3

[Seymour J Metz]

NJE over TCP/IP.


From: IBM Mainframe Discussion List  on behalf of 
Schmitt, Michael 
Sent: Friday, September 22, 2023 4:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: TCP/IP to JES3

Is there a way to transfer sysout type data from a remote, non-mainframe 
system, into a JES3 spool? From which already existing tasks will grab the 
output according to destination, class, writer, etc.

Such as, use some product or capability to connect and transfer to a TCP/IP 
port.

Most of what I see is going the other direction, answering the question of "how 
do I get this report from the JES spool to my printer/pc/file server/etc?" But 
I need to get it into JES3, because the existing report distribution software 
wants to grab it from there.

I thought I remembered being able to inject jobs into the IEFRDER via FTP, and 
thought perhaps could also transfer to sysout, but don't see it in the 
Communications Server manual.

Bonus points for a solution that will also work with JES2, after the inevitable 
end-of-support for JES3.

__
Michael Schmitt | DXC Apps Development | MassMutual
(737) 910-8248 | michael.schm...@dxc.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: TCP/IP to JES3

[Schmitt, Michael]

Thanks, I overlooked the "interacting with JES topic".

Looks like you can GET (receive) sysout but not PUT.

I suppose a worst case solution would be to wrap the output in JCL, where the 
JCL executes code to build LRECL=133 lines from instream data and then copy 
that to SYSOUT.


We used to transfer files this way: run a job on system A, where the job takes 
the file and converts it into instream data, embeds it in a job it constructs, 
submits that job that routes to system B, where it executes and unloads the 
instream data back into a file. In fact, I still have the JCL for that trick 
using TSO XMIT as the conversion program, for sending data between systems that 
are only connected by JES (and you don't want to go to the remote system to 
receive the file.)

To top that, I think I have a job that finds and collects a file and all of its 
dependencies, converts that all into instream data, builds and routes a job to 
a remote system, where it runs a program, takes the output files from that 
program, converts all of that, puts it into a job, routes it back to the 
original system, where the jobs runs and converts the files back and saves them!

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Lionel B Dyck
Sent: Friday, September 22, 2023 3:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TCP/IP to JES3

Try FTP with filetype=jes

Lionel B. Dyck <
Website: http://www.lbdsoftware.com/
Sent from my iPhone 15 Pro

Worry more about your character than your reputation.  Character is what you 
are, reputation merely what others think you are." - John Wooden

> On Sep 22, 2023, at 3:26 PM, Schmitt, Michael  wrote:
>
> Is there a way to transfer sysout type data from a remote, non-mainframe 
> system, into a JES3 spool? From which already existing tasks will grab the 
> output according to destination, class, writer, etc.
>
> Such as, use some product or capability to connect and transfer to a TCP/IP 
> port.
>
> Most of what I see is going the other direction, answering the question of 
> "how do I get this report from the JES spool to my printer/pc/file 
> server/etc?" But I need to get it into JES3, because the existing report 
> distribution software wants to grab it from there.
>
> I thought I remembered being able to inject jobs into the IEFRDER via FTP, 
> and thought perhaps could also transfer to sysout, but don't see it in the 
> Communications Server manual.
>
> Bonus points for a solution that will also work with JES2, after the 
> inevitable end-of-support for JES3.
>
> __
> Michael Schmitt | DXC Apps Development | MassMutual
> (737) 910-8248 | michael.schm...@dxc.com
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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



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

Re: SCHEDIRB with CIRB

[Joseph Reichman]

Micheal 

Thanks for looking at it I see 8E76D0 at IQETCB

+0  (4)  link
+4  (4) 00026A6C IQEPARAM
+8  (4) 008AA7a8 IQEIRB
+c  (4)  IQETCB

why isn't IQETCB set?  I see 8E76D0 at that location 

I am begging to think that because I am running under TESTAUTH the IRB is
getting dispatched


_008AA7A8   >77B8    010F404E 9FF01E81 *>..
+.0.a*
_008AA7B8078D  9FF01E80  008AA80C 008FEA90
*.0y.*
_008AA7C80001  FF735894  852CAB40 052CBB3F  *...me..
*
_008AA7D8808CACD0    008CACA8 008CACD0
*...y*
_008AA7E8008CACD8    008C9AB8 052CCB3E
*...Q*
_008AA7F8008CA2C0  008CA2C0  852CB72C 808FEA90
*..s...s.e...*
_008AA808008AA80C    00026A6C 008AA7A8
*..y%..xy*
_008AA818008E76D0     
**


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Michael Stein
Sent: Friday, September 22, 2023 4:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SCHEDIRB with CIRB

On Fri, Sep 22, 2023 at 01:58:00PM -0400, Joseph Reichman wrote:
> I am posting my code in addition to some displays I captured as I am 
> getting the feeling my IRB was not dispatched for some reason
> 
> So here is the code in my STIMER routine from where I issue the 
> SCHEDIRB pointing to the IQE generated  by the CIRB

I don't see why you need the stimer routine.  The description of SCHEDIRB
says that is for "directed IRB" where you specify your IRB is to run before
the specified RB.

> Here using LOOK is a display of the IRB Address 8AA7A8 don't know Why 
> RBEPA has bit 0 a 0 looking at the RBOPSW it's a 0 LAST CMD  - 8AA7A8

{storage display text realligned..}

_008AA7A8   >77B8    010F404E 9FF01E81 *>..
+.0.a*
_008AA7B8078D  9FF01E80  008AA80C 008FEA90
*.0y.*
_008AA7C80001  FF735894  852CAB40 052CBB3F  *...me..
*
_008AA7D8808CACD0    008CACA8 008CACD0
*...y*
_008AA7E8008CACD8    008C9AB8 052CCB3E
*...Q*
_008AA7F8008CA2C0  008CA2C0  852CB72C 808FEA90
*..s...s.e...*
_008AA808008AA80C    00026A6C 008AA7A8
*..y%..xy*
_008AA818008E76D0     
** 

The RB mapping includes fields for all types of RBs: PRB, SVRB, IRB, SIRB
and perhaps for types & flavors which don't exist anymore (since before
MVT).  A lot of these fields overlap as they aren't used at them same time.

Looking at our IRB:

+0  (4) 77B8 address of problem program save area
+8  (2) 010f length of RB in double words
+a  (1) 40  is an IRB
+b  (1) 4d  ? bits about has IQE, don't return IQE
+c  (4) 9ff01e81 rbepa, looks like low bit is flag bit for mode=defined
+10 (8) 078d 9ff01e80 -> psw
+18 (4) 008aa80c list orig for iqe
+60 (4) 008aa80c rbnexav => @ next avail IEQ
+64 (.) ..IQE.. 

The IQE:   00026A6C 008AA7A8  

+0  (4)  link
+4  (4) 00026A6C IQEPARAM
+8  (4) 008AA7a8 IQEIRB
+c  (4)  IQETCB

why isn't IQETCB set?  

https://www.ibm.com/docs/en/zos/2.1.0?topic=routines-using-cirb-macro-initia
lize-irb

The same TCB needs to be used to allocate the storage for the IRB and to
free it, thus CIRB needs the TCB address in addition to the TCB address in
the IQE (task to run the IRB).

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

[Lionel B Dyck]

Try FTP with filetype=jes 

Lionel B. Dyck <
Website: www.lbdsoftware.com
Sent from my iPhone 15 Pro

Worry more about your character than your reputation.  Character is what you 
are, reputation merely what others think you are." - John Wooden 

> On Sep 22, 2023, at 3:26 PM, Schmitt, Michael  wrote:
> 
> Is there a way to transfer sysout type data from a remote, non-mainframe 
> system, into a JES3 spool? From which already existing tasks will grab the 
> output according to destination, class, writer, etc.
> 
> Such as, use some product or capability to connect and transfer to a TCP/IP 
> port.
> 
> Most of what I see is going the other direction, answering the question of 
> "how do I get this report from the JES spool to my printer/pc/file 
> server/etc?" But I need to get it into JES3, because the existing report 
> distribution software wants to grab it from there.
> 
> I thought I remembered being able to inject jobs into the IEFRDER via FTP, 
> and thought perhaps could also transfer to sysout, but don't see it in the 
> Communications Server manual.
> 
> Bonus points for a solution that will also work with JES2, after the 
> inevitable end-of-support for JES3.
> 
> __
> Michael Schmitt | DXC Apps Development | MassMutual
> (737) 910-8248 | michael.schm...@dxc.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: TCP/IP to JES3

[Mike Schwab]

RJE3780?
https://github.com/wa6our/RJE3780
https://www.cq-comm.com/3780.htm

On Fri, Sep 22, 2023 at 3:26 PM Schmitt, Michael
 wrote:
>
> Is there a way to transfer sysout type data from a remote, non-mainframe 
> system, into a JES3 spool? From which already existing tasks will grab the 
> output according to destination, class, writer, etc.
>
> Such as, use some product or capability to connect and transfer to a TCP/IP 
> port.
>
> Most of what I see is going the other direction, answering the question of 
> "how do I get this report from the JES spool to my printer/pc/file 
> server/etc?" But I need to get it into JES3, because the existing report 
> distribution software wants to grab it from there.
>
> I thought I remembered being able to inject jobs into the IEFRDER via FTP, 
> and thought perhaps could also transfer to sysout, but don't see it in the 
> Communications Server manual.
>
> Bonus points for a solution that will also work with JES2, after the 
> inevitable end-of-support for JES3.
>
> __
> Michael Schmitt | DXC Apps Development | MassMutual
> (737) 910-8248 | michael.schm...@dxc.com
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

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

TCP/IP to JES3

[Schmitt, Michael]

Is there a way to transfer sysout type data from a remote, non-mainframe 
system, into a JES3 spool? From which already existing tasks will grab the 
output according to destination, class, writer, etc.

Such as, use some product or capability to connect and transfer to a TCP/IP 
port.

Most of what I see is going the other direction, answering the question of "how 
do I get this report from the JES spool to my printer/pc/file server/etc?" But 
I need to get it into JES3, because the existing report distribution software 
wants to grab it from there.

I thought I remembered being able to inject jobs into the IEFRDER via FTP, and 
thought perhaps could also transfer to sysout, but don't see it in the 
Communications Server manual.

Bonus points for a solution that will also work with JES2, after the inevitable 
end-of-support for JES3.

__
Michael Schmitt | DXC Apps Development | MassMutual
(737) 910-8248 | michael.schm...@dxc.com



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

Re: SCHEDIRB with CIRB

[Michael Stein]

On Fri, Sep 22, 2023 at 01:58:00PM -0400, Joseph Reichman wrote:
> I am posting my code in addition to some displays I captured as I am getting
> the feeling my IRB was not dispatched for some reason 
> 
> So here is the code in my STIMER routine from where I issue the SCHEDIRB
> pointing to the IQE generated  by the CIRB

I don't see why you need the stimer routine.  The description of
SCHEDIRB says that is for "directed IRB" where you specify your IRB
is to run before the specified RB.

> Here using LOOK is a display of the IRB Address 8AA7A8 don't know Why
> RBEPA has bit 0 a 0 looking at the RBOPSW it's a 0
> LAST CMD  - 8AA7A8

{storage display text realligned..}

_008AA7A8   >77B8    010F404E 9FF01E81 *>.. +.0.a*
_008AA7B8078D  9FF01E80  008AA80C 008FEA90  *.0y.*
_008AA7C80001  FF735894  852CAB40 052CBB3F  *...me.. *
_008AA7D8808CACD0    008CACA8 008CACD0  *...y*
_008AA7E8008CACD8    008C9AB8 052CCB3E  *...Q*
_008AA7F8008CA2C0  008CA2C0  852CB72C 808FEA90  *..s...s.e...*
_008AA808008AA80C    00026A6C 008AA7A8  *..y%..xy*
_008AA818008E76D0       ** 

The RB mapping includes fields for all types of RBs: PRB, SVRB, IRB,
SIRB and perhaps for types & flavors which don't exist anymore (since
before MVT).  A lot of these fields overlap as they aren't used at them
same time.

Looking at our IRB:

+0  (4) 77B8 address of problem program save area
+8  (2) 010f length of RB in double words
+a  (1) 40  is an IRB
+b  (1) 4d  ? bits about has IQE, don't return IQE
+c  (4) 9ff01e81 rbepa, looks like low bit is flag bit for mode=defined
+10 (8) 078d 9ff01e80 -> psw
+18 (4) 008aa80c list orig for iqe
+60 (4) 008aa80c rbnexav => @ next avail IEQ
+64 (.) ..IQE.. 

The IQE:   00026A6C 008AA7A8  

+0  (4)  link
+4  (4) 00026A6C IQEPARAM
+8  (4) 008AA7a8 IQEIRB
+c  (4)  IQETCB 

why isn't IQETCB set?  

https://www.ibm.com/docs/en/zos/2.1.0?topic=routines-using-cirb-macro-initialize-irb

The same TCB needs to be used to allocate the storage for the IRB 
and to free it, thus CIRB needs the TCB address in addition to
the TCB address in the IQE (task to run the IRB).

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

Re: Risk/Reward ASVT in 31 bit storage

[Mark Jacobs]

So nothing more than that. IMHO it doesn't seem too worthwhile in most 
environments. Thanks however.

Mark Jacobs 

Sent from ProtonMail, Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com


--- Original Message ---
On Friday, September 22nd, 2023 at 3:45 PM, Mark Zelden  
wrote:


> On Fri, 22 Sep 2023 16:30:31 +, Mark Jacobs markjac...@protonmail.com 
> wrote:
> 
> > I know what the risks are in moving the ASVT into 31 bit storage, but I 
> > don't see any benefits. Can someone enlighten me?
> > 
> > Mark Jacobs
> 
> 
> Isn't it obvious? Slightly more 24-bit storage for programs needing below the 
> line private.
> And I do mean slightly. It is about 4K per 1000 entries. I guess you would 
> add up
> MAXUSER and RSVNONR to know what you are using now. Each ASVT entry is
> 4 bytes in SQA <16M, so less SQA means more private.
> 
> Best Regards,
> 
> Mark
> --
> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
> ITIL v3 Foundation Certified
> mailto:m...@mzelden.com
> Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Risk/Reward ASVT in 31 bit storage

[Mark Zelden]

On Fri, 22 Sep 2023 16:30:31 +, Mark Jacobs  
wrote:

>I know what the risks are in moving the ASVT into 31 bit storage, but I don't 
>see any benefits. Can someone enlighten me?
>
>Mark Jacobs
>

Isn't it obvious?  Slightly more 24-bit storage for programs needing below the 
line private.  
And I do mean slightly.   It is about 4K per 1000 entries.  I guess you would 
add up
MAXUSER and RSVNONR to know what you are using now.  Each ASVT entry is
4 bytes in SQA <16M, so less SQA means more private.  

Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html

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

Re: SDSF and JESSPOOL

[Mark Zelden]

On Thu, 21 Sep 2023 06:50:01 -0500, Michael Babcock  
wrote:

>Thanks Rob!   That’s the explanation I needed!   However, I did create a
>ISF*.** profile with a UACC of ALTER but it still didn’t work because I
>didn’t have NOFAILRC4 (I assume).
>
>On Thu, Sep 21, 2023 at 2:52 AM Rob Scott  wrote:
>
>> Michael
>>
>> Although we strongly recommend JESSPOOL (and OPERCMDS) being active, you
>> can use successfully use SDSF without it.
>>
>> The big difference in z/OS 2.5 is that SDSF will no longer fall back to
>> any legacy ISFPRMxx authority keywords on the GROUP statements when SAF
>> returns RC=4.
>>
>> How SDSF handles SAF RC=4 (returned when the ESM cannot make a
>> determination - for example the class not active or no matching profile) is
>> governed by the AUXSAF(FAILRC4/NOFAILRC4) keyword on the CONNECT statement
>> in ISFPRMxx.
>>
>> The default value of FAILRC4 means that SDSF will translate RC=4 from SAF
>> into a "denied" response, whereas NOFAILRC4 will translate to "allowed".
>>
>> So you could keep JESSPOOL inactive and use AUXSAF(NOFAILRC4) on your
>> rescue system ...



If this happens to be a modified version of my onepack JCL from my web 
site / CBT file 434, when I put out the z/OS 2.5 version it will have
CONNECT AUXSAF(NOFAILRC4) in the ISFPRM00 member that is
supplied by default.   

Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html

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

SCHEDIRB with CIRB

[Joseph Reichman]

Hi

I am posting my code in addition to some displays I captured as I am getting
the feeling my IRB was not dispatched for some reason 

So here is the code in my STIMER routine from where I issue the SCHEDIRB
pointing to the IQE generated  by the CIRB

STIMER   DS   0D
 STM  R14,R12,12(R13)   
*   
 LRR2,R15   
 DROP  R3   
 USING STIMER,R2
 LRR10,R13  
 L R13,4(,R1)Get Save area  
 DROP  R13  
 USING TIMERSVE,R13 
 STR10,4(R13)   
*   
 LAR5,IRBPTR
O R5,=X'8000'
 ST  R5,IRBADD

*LAR5,IRBADD

*

 L R4,PSATOLD

 USING TCB,R4

 L R4,TCBJSTCB

*

*

 SETLOCK
OBTAIN,TYPE=LOCAL,MODE=UNCOND,REGS=SAVE
*

 CIRB EP=(R5),
X
   SVAREA=YES,
X
   RETIQE=YES,
X
   STAB=DYN,
X
   WKAREA=255,
X
BRANCH=YES,
X
AMODE=DEFINED

 *

  USING RBBASIC,R1

  L R5,RBNEXAVGet IQE
Pointer
  USING IQESECT,R5

  STR5,IQEADD

  STR1,IQEIRB

  LAR15,PLIST

  STR15,IQEPARAM

  STR4,IQETCB

 *

 *

 *

  SCHEDIRB IQEPTR=IQEADD,
X
MF=(E,IRBLST)

 *

  SETLOCK RELEASE,TYPE=LOCAL,REGS=SAVE

 *

 *

  LR13,4(,R13)

  XR   R15,R15

  LR14,12(R13)

  LM   R0,R12,20(R13)

  BR   R14

  DROP  R13

  USING WORKAREA,R13

  DROP  R2

 IRBPTR   DS0D

 *  
*

 STM   R14,R12,12(R13)

 LRR5,R15

 USING IRBPTR,R5

 LRR10,R1Save
Plist pointer 
 LOAD  EP=GETVECT

 STR0,0(R10) Store
Pointer  
 XRR15,R15

 L R14,12(R13)

 LMR0,R12,20(R13)

 BRR14

 DROP  R5


Here is a SJ display from SDSF to can see my IRB
Right before IKJEFT01



NP   TCB  RB   Type Program
Storage FreeStor   CPU-Ti
 008FD6A0  TCB
839680   134584  0.0
 008FD6A0 008FFF98 PRB  IEAVAR00
0.0
  008FED90 TCB
71680094120  0.6
  008FED90008E7ED8 PRB  IEFSD060
0.0
  008FED90008FEC80 PRB  IEESB605
0.0
   008E76D0TCB
794624   101152  0.0
   008E76D0   008AA7A8 IRB
0.0
   008E76D0   008FEA90 PRB  IKJEFT01
0.0
008B8E88   TCB
12288 

Risk/Reward ASVT in 31 bit storage

[Mark Jacobs]

I know what the risks are in moving the ASVT into 31 bit storage, but I don't 
see any benefits. Can someone enlighten me?

Mark Jacobs

Sent from [ProtonMail](https://protonmail.com), Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com

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

Re: zOSMF Workflows

[Jousma, David]

Thanks for that Kurt!

Dave Jousma
Vice President | Director, Technology Engineering





From: IBM Mainframe Discussion List  on behalf of 
Kurt Quackenbush 
Date: Friday, September 22, 2023 at 8:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: zOSMF Workflows
> There is something somewhat rudimentary in the create workflow screen with 
> the pulldown, but I dont know if thats zOSMF doing that, or the browser doing 
> that. But then that would likely be just for me? z/OSMF, not your browser, 
> manages


> There is something somewhat rudimentary in the create workflow screen with 
> the pulldown, but I dont know if thats zOSMF doing that, or the browser doing 
> that.   But then that would likely be just for me?



z/OSMF, not your browser, manages the pulldown of previous workflow definition 
files, and it is managed per user.



> What if we had a public workflow that we expected many people to use to 
> provision xyz?



Check out z/OSMF Management Services Catalog (zMSC).  You create a catalog of 
services from which to select, where a service is a workflow.

https://urldefense.com/v3/__https://www.ibm.com/support/z-content-solutions/management-services/__;!!MwwqYLOC6b6whF7V!iGiwecNffyrE3FlfTv6lRzxNDGNxYPZyFco_LlDCCzt3p6eP3do1ivzZ1nz3RtL_j0VzglCikvLBt2c$



Kurt Quackenbush

IBM  |  z/OS SMP/E and z/OSMF Software Management  |  ku...@us.ibm.com



Chuck Norris never uses CHECK when he applies PTFs.



--

For IBM-MAIN subscribe / signoff / archive access instructions,

send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

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

Re: z/OS 3.1 Announcement - Helpful links

[Albertus de Wet]

Thanks Marna

I did finally manage to place the order for 3.1 and you are correct, no
Semeru 17 in the list. I will have to order that from the CBPDO order list.

Thanks for your help. The key was the product ID!

On Thu, Sep 21, 2023 at 11:57 AM Marna WALLE  wrote:

> Hi Bert,
> 9/19/2023 was the date, but there might have been the merest of lags
> between the CBPDO and ServerPac checklists on Shopz. I just checked, and
> I'm seeing:
>
> [5655-ZOS]  z/OS V3 Base 3.01.00
>
> available for both CBPDO and ServerPac (z/OSMF portable software instance).
>
> As expected, since this is a new program number, I am seeing the
> "Unlicensed" icon, meaning I'll have to take a stop into the world of
> humans to entitle me to it.
>
> Let me know if you don't see 5655-ZOS on the ServerPac ordering
> checklist.
>
> Also - if I could suggest - please do read my blog about the right levels
> of Java/Semeru to order and expect to run with z/OS 3.1.  This is important
> to get right if you want your portable software instance to be packaged
> with the Java(s) you'll need.
> https://www.marnasmusings.com/2023/08/having-your-java-and-drinking-it-too.html
> .  As of today, I don't see Semeru 17, 5655-UA1, on the ServerPac checklist
> just yet.  It is only on the CBPDO checklist right now.  I am expecting
> that Semeru 17 should be on the ServerPac checklist very soon.
>
> -Marna WALLE
> z/OS System Install and Upgrade
> IBM Poughkeepsie
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Given an SVC DUMP is SRB mo0de, how can one find the DUCT?

[Joseph Reichman]

It’s in the STCB for tasks don’t remember the exact name but you’ll find it 

And in the LCCA for SRBs you’ll find it there it. 
Again don’t remember the exact name but you’ll find it 

> On Sep 22, 2023, at 8:39 AM, Binyamin Dissen  
> wrote:
> 
> I want to figure out which address binds the DU has.
> 
> IPCS does not allow access to the real address in CR2.
> 
> Where might I find the virtual pointer to the DUCT?
> 
> --
> Binyamin Dissen 
> http://www.dissensoftware.com
> 
> Director, Dissen Software, Bar & Grill - Israel
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: zOSMF Workflows

[Kurt Quackenbush]

> There is something somewhat rudimentary in the create workflow screen with 
> the pulldown, but I dont know if thats zOSMF doing that, or the browser doing 
> that.   But then that would likely be just for me?

z/OSMF, not your browser, manages the pulldown of previous workflow definition 
files, and it is managed per user.

> What if we had a public workflow that we expected many people to use to 
> provision xyz?   

Check out z/OSMF Management Services Catalog (zMSC).  You create a catalog of 
services from which to select, where a service is a workflow.
https://www.ibm.com/support/z-content-solutions/management-services/

Kurt Quackenbush
IBM  |  z/OS SMP/E and z/OSMF Software Management  |  ku...@us.ibm.com

Chuck Norris never uses CHECK when he applies PTFs.

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

Given an SVC DUMP is SRB mo0de, how can one find the DUCT?

[Binyamin Dissen]

I want to figure out which address binds the DU has.

IPCS does not allow access to the real address in CR2.

Where might I find the virtual pointer to the DUCT?

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

Director, Dissen Software, Bar & Grill - Israel

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

Re: zOSMF Workflows

[Patrick Loftus]

I don't see such a panel either, but you can view an active or archived 
Workflows properties to see the definition file used.
Perhaps you could just have a document with a list of workflows and their 
definition file locations?
Regards
Patrick

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Dave Jousma
Sent: Friday, September 22, 2023 12:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: zOSMF Workflows

All,

I have been thinking about this for awhile,, but cant seem to find the answer.  
 So asking my fellow listers if I am missing something.   Workflows are a one 
and done affair, and for repeatable processes you need to add it again.The 
problem is that the filesystem location for the workflows are usually buried in 
various installation manuals, not always easy to find.  Lately, I have been 
working with the zCX workflows to provision, alter, upgrade, etc.

My question is that it would be nice if there were a panel that would 
optionally bookmark all of the various workflow definition files that have been 
used or might be used again?   I dont see that?  Am I missing something?   
There is something somewhat rudimentary in the create workflow screen with the 
pulldown, but I dont know if thats zOSMF doing that, or the browser doing that. 
  But then that would likely be just for me?

What if we had a public workflow that we expected many people to use to 
provision xyz?   

I'm sure there is an answer to this, I'm just not picking up on it.

Dave

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

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

zOSMF Workflows

[Dave Jousma]

All,

I have been thinking about this for awhile,, but cant seem to find the answer.  
 So asking my fellow listers if I am missing something.   Workflows are a one 
and done affair, and for repeatable processes you need to add it again.The 
problem is that the filesystem location for the workflows are usually buried in 
various installation manuals, not always easy to find.  Lately, I have been 
working with the zCX workflows to provision, alter, upgrade, etc.

My question is that it would be nice if there were a panel that would 
optionally bookmark all of the various workflow definition files that have been 
used or might be used again?   I dont see that?  Am I missing something?   
There is something somewhat rudimentary in the create workflow screen with the 
pulldown, but I dont know if thats zOSMF doing that, or the browser doing that. 
  But then that would likely be just for me?

What if we had a public workflow that we expected many people to use to 
provision xyz?   

I'm sure there is an answer to this, I'm just not picking up on it.

Dave

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

Re: Connect direct sign on issue

[Sathish Kumar]

Hi Steve,

No not defined the user id


Thanks

On Fri, 22 Sept, 2023, 12:24 am Steve Beaver, <
050e0c375a14-dmarc-requ...@listserv.ua.edu> wrote:

> Have you defined the user to C:D?
>
> Regards,
>
>
> Steve
>
>
>
> 
>
> This electronic mail (including any attachments) may contain information
> that is privileged, confidential, and/or otherwise protected from
> disclosure to anyone other than its intended recipient(s). Any
> dissemination or use of this electronic email or its contents (including
> any attachments) by persons other than the intended recipient(s) is
> strictly prohibited. If you have received this message in error, please
> notify us immediately by reply email so that we may correct our internal
> records. Please then delete the original message (including any
> attachments) in its entirety. Thank you
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Sathish Kumar
> Sent: Thursday, September 21, 2023 12:18 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Connect direct sign on issue
>
> Hi Team,
>
> I am upgrading Connect Direct 6.2. While bringing up the 6.2 connect direct
> task came up fine I didn't see any error in the task log but while invoking
> the panel I saw the below error
>
> User is not defined to security system. (Racf/Topsecret)
>
> I given username and password but it's showing invalid password not sure.
>
> Any suggestions?
>
> 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