Re: IEA061E replacement ASID shortage

[Peter]

Right now the ASID percentage looks like below. There are some address
space which ends with ADDRESS SPACE IS UNAVAILABLE., May be this are the
consumers. While I can see these kind of tasks are getting manually started
with no issues

Basically where would I hit roadblock based on below values?

These concepts am just trying to understand.

ASID Usage Summary from the ASVT:

  Maximum number of ASIDs:  3020



MAXUSER from IEASYSxx:  3000

 In use ASIDs:   183

  Available ASIDs:  2817



RSVSTRT from IEASYSxx: 5

   RSVSTRT in use: 0

RSVSTRT available: 5



RSVNONR from IEASYSxx:15

   RSVNONR in use:15

RSVNONR available: 0

On Thu, Aug 18, 2022, 8:16 AM Brian Westerman 
wrote:

> 15 is way too low for a site that runs address spaces that are not
> restartable, or at least are not restarted to reuse the reserved ones.
> There is only a small overhead for setting a bunch up and it's not worth
> the chance to IPL to not specify something big.  2500 is not unreasonable
> if you have a lot of address spaces (like SAG stuff) that for some reason
> is not started to reuse the old spaces.
>
> Brian
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: IEA061E replacement ASID shortage

[Brian Westerman]

15 is way too low for a site that runs address spaces that are not restartable, 
or at least are not restarted to reuse the reserved ones.  There is only a 
small overhead for setting a bunch up and it's not worth the chance to IPL to 
not specify something big.  2500 is not unreasonable if you have a lot of 
address spaces (like SAG stuff) that for some reason is not started to reuse 
the old spaces.  

Brian

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

HMC and zombie USB device

[Timothy Sipples]

I don't think it's a "zombie" device. I think it's a real one. It's just a 
device you may not have seen before because it's "hidden."

I'm not the foremost expert in this area, but (guessing) you're probably using 
the Hardware Management Appliance (HMA, a.k.a. vHMC). (Did I guess correctly?) 
If so then you might be seeing evidence of the fact the Support Element has an 
embedded smart card reader and smart card.

"What? These IBM servers have embedded smart card readers and smart cards from 
the factory? I didn't know that!" Yes, they do. There are a whole bunch of 
standard but special security-related features in these machines, and this is 
one of them. How nice you noticed!

If you'd like to learn a bit more then I suggest logging into IBM ResourceLink, 
digging through the Library section for your machine model to find a 
publication that looks useful (such as a "Service Guide" or similar), and then 
you should be able to find some perhaps oblique references to this particular 
design feature.

Hint: Don't try to remove or otherwise interfere with this smart card reader or 
smart card. It could be important equipment. :-)

— — — — —
Timothy Sipples
Senior Architect
Digital Assets, Industry Solutions, and Cybersecurity
IBM zSystems/LinuxONE, Asia-Pacific
sipp...@sg.ibm.com


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

Re: How to set time parameter in TSO/E REXX getmsg function

[Dale R. Smith]

On Wed, 17 Aug 2022 10:54:16 +0900, Nobuhiko Furuya  wrote:

>Hi ALL,
>
>Thank you for your all suggestions.
>But my explanation seemed poor.
>What I would like to do is  specifying the wait time indirectly in
>getmsg as follows.
>But the following code gets errors as I reported.
>
>ARG hsmcmd':'seconds                                    <- get wait
>seconds as a parameter
>hsmid = 'DFHSM'                                             <- set hsmid
>address console "F "hsmid","hsmcmd    <- issue command
>msghsm = getmsg('resp.','SOL','HSM',,seconds)  <- wait the specified seconds
>
>Of course when I specified the wait time directly as follows, it was OK.
>
>msghsm = getmsg('resp.','SOL','HSM',,20)
>
>Best regards,
>
>Nobuhiko Furuya(古谷信彦)
>V-SOL Inc.

Try changing this line from:
ARG hsmcmd':'seconds
to 
ARG hsmcmd':'seconds .

it's possible that the the parameter was entered with a trailing space and now 
it does not have a trailing space.  Try the original program with a trailing 
space, if it fails then try changing the line as I suggested and execute it 
again with a trailing space.  It should work correctly after the change.

-- 
Dale R. Smith 

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

Tape reject by RMM

[Jake Anderson]

Hello

One of the virtual tape in RMM shows rej by tap mgt sys

But when I go to DLM GUI I can see they have data in it

Any procedure to correct this error and I don't know why it went into this
condition


Has anyone seen this error and how was it fixed ?

Jake

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

Re: How to set time parameter in TSO/E REXX getmsg function

[Nobuhiko Furuya]

Hi Shmuel,

Thank you for your comments.
As I reported in another mail, the problem disappeared. The reason is 
unknown.

I will try to use TRACE I when the problem happens again.

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/18 0:00, Seymour J Metz wrote:

What happened to 'CONSOLE ACTIVATE'? I don't believe that it worked correctly 
without that, regardless of how you coded getmsg.

Again, TRACE I is your friend.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Nobuhiko Furuya [furu...@v-sol.co.jp]
Sent: Tuesday, August 16, 2022 9:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to set time parameter in TSO/E REXX getmsg function

Hi ALL,

Thank you for your all suggestions.
But my explanation seemed poor.
What I would like to do is  specifying the wait time indirectly in
getmsg as follows.
But the following code gets errors as I reported.

ARG hsmcmd':'seconds<- get wait
seconds as a parameter
hsmid = 'DFHSM' <- set hsmid
address console "F "hsmid","hsmcmd<- issue command
msghsm = getmsg('resp.','SOL','HSM',,seconds)  <- wait the specified seconds

Of course when I specified the wait time directly as follows, it was OK.

msghsm = getmsg('resp.','SOL','HSM',,20)

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/17 5:32, Mark Zelden wrote:

On Tue, 16 Aug 2022 14:18:41 +0900, Nobuhiko Furuya  wrote:


Thanks. But I can't find how to code it.
I would line to change time value depend on the logic.
How can I resolve this ?

Are you trying to do something that requires the REXX "interpret" instruction?  
Is that what you mean?

https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.4.0%3Ftopic%3Dexpression-using-interpret-instructiondata=05%7C01%7Csmetz3%40gmu.edu%7Cba611a742b994e6d461d08da7ff373ce%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C637962980844423734%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=veLyUq8PnkRIAurC7Hibz73ehYrzb1mePSfiMzSv8lo%3Dreserved=0


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://secure-web.cisco.com/1ac7hX8Wn6rc-3nk8Q9nCsTyPIQhH5DvT8Wup6Ld5tNLbCC_RBgOdbse-u1jN7G4T5_Oc6IqaW5SW48PdDkRVANXQw4mOKKbyLDGcRlhlCTOrc7nnqXMX8FczRUNVUtIdCKx-eanO6MFTqcn2jpOOjQ7swYuZTHkuUyePAqTSLrc-sWIwu87cyLMsv5gdOAc_y-uMUhM44mkjq6SWQo6VxcD5cFFLJjBPEYdLXWRvnpI9-QNX74LrXesOMPZ9k9tIDY21LaAWrq-VqhwJRUjCOy2417qCZlBOYFIPV8Jo53Iq3CA8uctZb7CJxSOg7g-f7z8WeAx3x9BF2JQ06fY_jMqnWLJVithmkLAGQ_s579k026S1MlVp85GiizsUgamislC6aQSQY2ZotLipgEbzzzjTV2C47IuwL2nuX5IB3LThUO6_n1fz-HHb3FhAbu82/http%3A%2F%2Fwww.mzelden.com%2Fmvsutil.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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: 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: How to set time parameter in TSO/E REXX getmsg function

[Nobuhiko Furuya]

Hi Willy,

Thank you for your idea.
I believe "seconds" was entirely numeric.
After I insert your code, it was OK.
But even after I removed your code, it was also OK.
So the problem disappeared.
I'm very confused. There might be some garbages in the string.
Anyway I will try to diagnose if the problem happens again.

Best reagrds,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/17 21:17, Willy Jensen wrote:

You have the statement ARG hsmcmd':'seconds
Could it be that the seconds value is not entirely numeric?
Maybe do something like this:
  
  seconds=word(seconds 2,1)  /* set default =2 */

  if datatype(seconds)<>'NUM' then call error 'bad seconds value "'seconds"'"'

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


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

Live Webcasts at Asia-Pacific Friendly Times

[Timothy Sipples]

If you'd like to learn more about various IBM zSystems, LinuxONE, and z/OS 
technical topics and prefer something at an Asia-Pacific friendly time then I 
suggest signing up for the IBM zSystems APAC Webinar Program mailing list:

https://ibm.biz/apac-webinar-subscription

For example this Friday (August 19, 2022) there's a Webcast covering the z/OS 
Management Facility and what's new in z/OS 2.5. These Webcasts are usually 
every Friday (or most Fridays) for 45 to 60 minutes at the following times 
(examples):

Singapore and Beijing: 11:00 a.m.
Tokyo: 12:00 noon
Mumbai: 8:30 a.m.
Sydney: 1:00 p.m. (AEST)
Honolulu: 5:00 p.m. (Thursday)
Los Angeles: 8:00 p.m. (PDT Thursday)

When the U.S. West Coast shifts to Standard Time this'll even be a bit better 
there (7:00 p.m. Thursday typically).

I believe in early September there are some extra Webcasts scheduled every day 
for one week. Of course you can pick and choose what interests you, and you can 
hop off the mailing list whenever you'd like. (The email volume is pretty low, 
however.) If you join a live Webcast then you can ask questions and usually get 
immediate answers.

— — — — —
Timothy Sipples
Senior Architect
Digital Assets, Industry Solutions, and Cybersecurity
IBM zSystems/LinuxONE, Asia-Pacific
sipp...@sg.ibm.com


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

Worldwide IBM zSystems Security Conference: October 11-14, 2022

[Timothy Sipples]

IBM's biggest security conference for IBM zSystems and LinuxONE will be held 
this year (2022) from October 11 to 14 in Montpellier, France. But it won't be 
TOO big. There's a limit of 200 seats and a sublimit of 4 seats per 
organization. There's no registration or conference fee, and I've heard the 
food is pretty good in France. (Did you know France has Burger King?)

There's a lot to discuss and learn about this year including (my predictions:) 
quantum-safe encryption, continuous compliance, new ransomware/malware recovery 
strategies, confidential computing, enterprise hybrid cloud key management, and 
AI acceleration for real-time fraud prevention and other security-related use 
cases. Lots of experts and many of your peers will be there. And if anyone from 
Asia-Pacific is going please tell my boss I must go too.

For more information please visit:

https://ibm.biz/zsystsecurityWeb

— — — — —
Timothy Sipples
Senior Architect
Digital Assets, Industry Solutions, and Cybersecurity
IBM zSystems/LinuxONE, Asia-Pacific
sipp...@sg.ibm.com


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

Re: Password Resets

[Donald Russell]

I implemented a web page on VM that uses a corporate single sign on and
one-time password server that acts as a proxy.

If you come to my password reset page the wrong way, it redirects the
browser to the SSO page. Once authenticated that proxy adds some useful
headers to the https request.

When my page finally gets the request it sees the info added by the proxy
and puts up a page listing all userids owned by that person and let’s them
provide a new password for one or any/all of them in one shot.

It also unlocks various “terminal lockout” conditions.

The web server id that handles that uses a Diag A0 subcode 60 (vmsecure) to
effect the change. It is also configured to allow the change without the
current password. That allows people to reset forgotten passwords or set an
initial password for newly created userids.

One caveat…. We have a global workforce and sometimes the ascii/ebcdic
translation is different than their terminal emulator. That results in
setting the password fine for web access things but failing for 3270
emulation things.

I haven’t taken the time to sort that out yet. It’s a minor issue.

Don

On Tue, Aug 16, 2022 at 14:34 Steely.Mark  wrote:

> Does your site use a Self Help Password Reset Tool for RACF or TSS ?
>
> We would like the customer to be able to perform this function without
> involving the Help Desk.
>
> Any suggestions ?
>
> 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: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Charles Mills]

Or putting it differently, which of these do you find problematic and which not?

int foo = 12698307;
int foo = 0xC1C2C3;
int foo = 'ABC';

Charles

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

Re: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Charles Mills]

> Can of worms.

No more so that the well-established int foo = 'A';

> Documentation?

I am sure I did not invent the syntax. I saw it somewhere in the docs.

> Portability of e.g. "int foo = 'ABC';":

What about it? Just like the well-established int foo = 'A';

> Blank/null fill?

Just like for the well-established int foo = 'A'; the characters are 
low-order-justified and filled on the high side with zeros.

> left/right justified?

Same as for int x = 1;

> big/small-endian?

No more of an issue than for the well-established int foo = 'A';

Charles

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

Re: Restore from virtual tape

[Mike Schwab]

Dump the one line of characters of each file, the first 44 should be the
Dsn of the contents, the rest will be compressed.

On Wed, Aug 17, 2022, 14:37 Peter  wrote:

> Hello
>
> Is it possible to recover the migrated dataset from the virtual tape
> directly ?
>
> As one of the MCDS got corrupted but I know the virtual tape vol ser
>
> Any JCL that can help to restore by pointing the virtual tape ?
>
>
> Regards
> Peter
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Problems caused by Health Checker?

[Gibney, Dave]

Some might question allowing APF libraries to migrate?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Mike Schwab
> Sent: Wednesday, August 17, 2022 12:49 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Problems caused by Health Checker?
> 
> [EXTERNAL EMAIL]
> 
> So the proper response is to enable recalls if possible, wait to enable
> recalls if recalls will become available, or cancel and leave down until
> recalls can be enabled.  Correct?
> 
> On Wed, Aug 17, 2022, 10:36 Peter Relson  wrote:
> 
> > 
> > One problem we've seen is that sometimes when HZSPROC starts during
> an
> > IPL, it for some reason seems to try to access a migrated dataset (we use
> > FDRABR for dataset migration) and since DFRMM hasn't started yet the
> recall
> > fails. (We don't know what dataset it is trying to access; none of the
> > datasets explicitly in the PROC ever migrate.) Everything seems to freeze
> > until we reply "CANCEL" to the EDG4012D message.
> > 
> >
> > If a particular health check does an allocation/open that results in
> > attempting to recall a migrated data set and results in a WTOR, that
> > particular task would wait for response, but that would have no effect on
> > the running of other checks (HC has 20 tasks available for running of
> > checks; only the single task running the check would be held up). The
> > RACF_SENSITIVE_RESOURCES check does check on the existence of
> > APF-authorized data sets. So perhaps doing that checking does result in
> > recalling the dataset in order to do that validation. I don't know if the
> > recall (versus do not recall) is intentional or an oversight; I will be
> > asking that question of the owners.
> >
> > In any case, there would be no effect on the rest of the HZSPROC address
> > space or the rest of the system.
> >
> > Peter Relson
> > z/OS Core Technology Design
> >
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: LINK monitor status for OSA HMC

[Carmen Vitullo]

you are probably right Tom, we've just upgraded our DR z13s to a z15 
just last year


thanks

Carmen

On 8/17/2022 2:47 PM, Tom Brennan wrote:
I've seen the doc, but it's in a pptx file that I think is normally 
given (in its entirety) only to IBMers and resellers.  It could be 
other places, I just don't know.


This phrase, "10GbE does NOT auto-negotiate to a slower speed" appears 
in the z15 and z16 versions of that file, but not in the z14 version. 
So something may have changed with the newer cards.


On 8/17/2022 11:22 AM, Jake Anderson wrote:

I just trusted the network guy that inspite of setting auto negotiate it
didn't worked.

Not sure if IBM has documented this anywhere about the 
incompatibility with

10g - 1g

On Wed, Aug 17, 2022, 10:00 PM Tom Brennan 
wrote:

So just for me, you're saying it's a 10G card, and like IBM doc says 
10G
cards won't negotiate.  So if the switch is max 1G that seems to 
explain

the problem.

But the solution is interesting.  IBM says the customer should never
swap SFP's in the I/O cards.  Sounds like you did and it fixed the
problem, which is really why I'm asking because I've seen other
customers swap SFP's and cause more problems than it's worth.

Either way, glad to hear it's working now.

On 8/16/2022 8:56 PM, Jake Anderson wrote:
So I did wrap plug test to ensure the ports were fine and they were 
good


So after finally replacing the 10g SFP with 1G SFP from  z14 fixed 
this

issue. Unfortunately the auto negotiate didn't helped.



On Wed, Aug 17, 2022, 12:42 AM Mark Zelden  wrote:

Jumping in at the middle, so I apologize. I probably missed 
something.


Is this something that just stopped working or isn't working with 
a CPU

upgrade?  In a recent upgrade
I did we had some OSA OSE ports that wouldn't activate and that is 
due

to

the 1G speed but after
talking to the LAN / WAN network team I found the switch was hard 
coded

at

100M.  No one knows
why... lost history from z9, z196, z12, z13 upgrades.. Maybe 
printers or

something had to have that
long ago. (OSA OSE ports support SNA and TCPIP for those not in the
know).

Anyway, changing it to auto negotiate on the switch fixed it. I 
did have

to disable / re-enable the
port on the HMC for it to connect, so it wasn't just a switch 
change to

fix it.   Luckily we ran into
the problem on our DR box upgrade first where it wasn't a real 
problem

and

we knew what to do for 3 CPCs
in production (2 OSE ports on each) and actually swapped them all 
to 1G

prior to the z15 upgrades.

Now onto the next challenge in that z/OS 2.6 will not support the SNA
connections currently in use on
the OSEs.  Turns out none are really used any more except on 2 
LPARs to

connect to
AIX machines and those connections need to be migrated to Enterprise
Extender.  We have a little
time though. :)

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
Systems Programming expert at

http://search390.techtarget.com/ateExperts/





On Mon, 15 Aug 2022 23:14:49 -0700, Tom Brennan <
t...@tombrennansoftware.com> wrote:


Is it a 10G (1 port) or 1G (2 port) OSA card?  10G cards won't

negotiate

speed, from what I've seen.

On 8/15/2022 10:21 PM, Jake Anderson wrote:

Hi

The OSA port is connected with working cable LC-LC MM fibre to 
the 1g

switch. From the Cisco switch it has been set as auto negotiate to

yes.


Still from the mainframe the port doesn't show up the LED 
indication

at

all. I tried toggling standby/online but still no luck. Ran port
diagnostics too with no error.


Not sure where to look. Has anyone faced a similar issue and 
have any

idea

on what needs to be done?

Jake

On Sat, Aug 13, 2022, 1:57 AM Radoslaw Skorupka <

r.skoru...@hotmail.com



wrote:


What's your question?
Link monitor means no physical connection to the switch, which 
means

you

card will not work.
Reason? A lot of, including broken cable, improper cable (MM 
instead

of

SM and vice versa), bad connection (Tx to Tx...), disabled port on

the

switch...


--
Radoslaw Skorupka
Lodz, Poland



W dniu 10.08.2022 o 07:19, Jake Anderson pisze:

Hello

Cross posted

I apologize for my ignorance.

I was looking for the status of one of our OSA card under OSA

advanced
facilities under HMC. For one of their PCHPID belonging to OSA 
shows

the

port status as 'LINK MONITOR'

When I checked with my network team if their switch sees the MAC

address

of

my OSA port but they don't see it.

    From the physical cabling perspective what do I need to do?

Z14 zr1

Jake


-- 


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




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

Re: Problems caused by Health Checker?

[Mike Schwab]

So the proper response is to enable recalls if possible, wait to enable
recalls if recalls will become available, or cancel and leave down until
recalls can be enabled.  Correct?

On Wed, Aug 17, 2022, 10:36 Peter Relson  wrote:

> 
> One problem we've seen is that sometimes when HZSPROC starts during an
> IPL, it for some reason seems to try to access a migrated dataset (we use
> FDRABR for dataset migration) and since DFRMM hasn't started yet the recall
> fails. (We don't know what dataset it is trying to access; none of the
> datasets explicitly in the PROC ever migrate.) Everything seems to freeze
> until we reply "CANCEL" to the EDG4012D message.
> 
>
> If a particular health check does an allocation/open that results in
> attempting to recall a migrated data set and results in a WTOR, that
> particular task would wait for response, but that would have no effect on
> the running of other checks (HC has 20 tasks available for running of
> checks; only the single task running the check would be held up). The
> RACF_SENSITIVE_RESOURCES check does check on the existence of
> APF-authorized data sets. So perhaps doing that checking does result in
> recalling the dataset in order to do that validation. I don't know if the
> recall (versus do not recall) is intentional or an oversight; I will be
> asking that question of the owners.
>
> In any case, there would be no effect on the rest of the HZSPROC address
> space or the rest of the system.
>
> 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: LINK monitor status for OSA HMC

[Tom Brennan]

I've seen the doc, but it's in a pptx file that I think is normally 
given (in its entirety) only to IBMers and resellers.  It could be other 
places, I just don't know.


This phrase, "10GbE does NOT auto-negotiate to a slower speed" appears 
in the z15 and z16 versions of that file, but not in the z14 version. 
So something may have changed with the newer cards.


On 8/17/2022 11:22 AM, Jake Anderson wrote:

I just trusted the network guy that inspite of setting auto negotiate it
didn't worked.

Not sure if IBM has documented this anywhere about the incompatibility with
10g - 1g

On Wed, Aug 17, 2022, 10:00 PM Tom Brennan 
wrote:


So just for me, you're saying it's a 10G card, and like IBM doc says 10G
cards won't negotiate.  So if the switch is max 1G that seems to explain
the problem.

But the solution is interesting.  IBM says the customer should never
swap SFP's in the I/O cards.  Sounds like you did and it fixed the
problem, which is really why I'm asking because I've seen other
customers swap SFP's and cause more problems than it's worth.

Either way, glad to hear it's working now.

On 8/16/2022 8:56 PM, Jake Anderson wrote:

So I did wrap plug test to ensure the ports were fine and they were good

So after finally replacing the 10g SFP with 1G SFP from  z14 fixed this
issue. Unfortunately the auto negotiate didn't helped.



On Wed, Aug 17, 2022, 12:42 AM Mark Zelden  wrote:


Jumping in at the middle, so I apologize. I probably missed something.

Is this something that just stopped working or isn't working with a CPU
upgrade?  In a recent upgrade
I did we had some OSA OSE ports that wouldn't activate and that is due

to

the 1G speed but after
talking to the LAN / WAN network team I found the switch was hard coded

at

100M.  No one knows
why... lost history from z9, z196, z12, z13 upgrades.. Maybe printers or
something had to have that
long ago. (OSA OSE ports support SNA and TCPIP for those not in the
know).

Anyway, changing it to auto negotiate on the switch fixed it. I did have
to disable / re-enable the
port on the HMC for it to connect, so it wasn't just a switch change to
fix it.   Luckily we ran into
the problem on our DR box upgrade first where it wasn't a real problem

and

we knew what to do for 3 CPCs
in production (2 OSE ports on each) and actually swapped them all to 1G
prior to the z15 upgrades.

Now onto the next challenge in that z/OS 2.6 will not support the SNA
connections currently in use on
the OSEs.  Turns out none are really used any more except on 2 LPARs to
connect to
AIX machines and those connections need to be migrated to Enterprise
Extender.  We have a little
time though. :)

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
Systems Programming expert at

http://search390.techtarget.com/ateExperts/





On Mon, 15 Aug 2022 23:14:49 -0700, Tom Brennan <
t...@tombrennansoftware.com> wrote:


Is it a 10G (1 port) or 1G (2 port) OSA card?  10G cards won't

negotiate

speed, from what I've seen.

On 8/15/2022 10:21 PM, Jake Anderson wrote:

Hi

The OSA port is connected with working cable LC-LC MM fibre to the 1g
switch. From the Cisco switch it has been set as auto negotiate to

yes.


Still from the mainframe the port doesn't show up the LED indication

at

all. I tried toggling standby/online but still no luck. Ran port
diagnostics too with no error.


Not sure where to look. Has anyone faced a similar issue and have any

idea

on what needs to be done?

Jake

On Sat, Aug 13, 2022, 1:57 AM Radoslaw Skorupka <

r.skoru...@hotmail.com



wrote:


What's your question?
Link monitor means no physical connection to the switch, which means

you

card will not work.
Reason? A lot of, including broken cable, improper cable (MM instead

of

SM and vice versa), bad connection (Tx to Tx...), disabled port on

the

switch...


--
Radoslaw Skorupka
Lodz, Poland



W dniu 10.08.2022 o 07:19, Jake Anderson pisze:

Hello

Cross posted

I apologize for my ignorance.

I was looking for the status of one of our OSA card under OSA

advanced

facilities under HMC. For one of their PCHPID belonging to OSA shows

the

port status as 'LINK MONITOR'

When I checked with my network team if their switch sees the MAC

address

of

my OSA port but they don't see it.

From the physical cabling perspective what do I need to do?

Z14 zr1

Jake


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

Re: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Kirk Wolf]

This is one of those rare cases when Gil stays on topic and also I agree 
completely ;-)

In the C standards, these are “multi-character integer character constants”  
aka multi-chars and resolve to type int.
All of the issues that Gil points out are "implementation dependent"


Kirk Wolf
Dovetailed Technologies, LLC
http://coztoolkit.com
Dovetailed Technologies: +1 636.300.0901

Note: Our website and domain name have changed from dovetail.com to 
coztoolkit.com


On Wed, Aug 17, 2022, at 2:19 PM, Paul Gilmartin wrote:
> On Wed, 17 Aug 2022 13:30:09 -0500, Charles Mills wrote:
> 
> >> Some C compilers allow longer character constants
> >
> >It is an option for the IBM XLC compiler. I will leave looking up the 
> >specific option as an exercise for the reader.
> >
> >I recall beyond a shadow of a doubt that on the XLC compiler for Z I have 
> >used
> >
> >int foo = 'ABCD';
> >
> Can of worms.
> 
> Documentation?
> 
> Portability of e.g. "int foo = 'ABC';":
> 
> Blank/null fill?
> 
> left/right justified?
> 
> big/small-endian?
> 
> -- 
> 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

Restore from virtual tape

[Peter]

Hello

Is it possible to recover the migrated dataset from the virtual tape
directly ?

As one of the MCDS got corrupted but I know the virtual tape vol ser

Any JCL that can help to restore by pointing the virtual tape ?


Regards
Peter

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

Re: Password Resets

[Tony Harminc]

On Tue, 16 Aug 2022 at 17:34, Steely.Mark  wrote:

Does your site use a Self Help Password Reset Tool for RACF or TSS ?
>
> We would like the customer to be able to perform this function without
> involving the Help Desk.
>
> Any suggestions ?
>

/plug
My employer Beta Systems Software offers two such products, with all kinds
of other optional features.

I would suggest when looking for such a tool that you ensure the vendor
actually knows a bunch about RACF (and TSS/ACF2) and isn't just remotely
issuing ALU (or TSS REPLACE) commands.

And yes, we eat our own dogfood and use our own reset tools in production.
/eplug

No salesman will call (unless you ask).

Tony H.

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

Re: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Paul Gilmartin]

On Wed, 17 Aug 2022 13:30:09 -0500, Charles Mills wrote:

>> Some C compilers allow longer character constants
>
>It is an option for the IBM XLC compiler. I will leave looking up the specific 
>option as an exercise for the reader.
>
>I recall beyond a shadow of a doubt that on the XLC compiler for Z I have used
>
>int foo = 'ABCD';
>
Can of worms.

Documentation?

Portability of e.g. "int foo = 'ABC';":

Blank/null fill?

left/right justified?

big/small-endian?

-- 
gil

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

Re: LINK monitor status for OSA HMC

[Carmen Vitullo]

I'm not sure it was documented but when we installed our z15 processor, 
10G OSA cards the IBM reseller told us these cards do not negotiate 
down, it was an action item we needed to verify with our switch folks to 
see if they can support 10G cards


Carmern

On 8/17/2022 1:22 PM, Jake Anderson wrote:

I just trusted the network guy that inspite of setting auto negotiate it
didn't worked.

Not sure if IBM has documented this anywhere about the incompatibility with
10g - 1g

On Wed, Aug 17, 2022, 10:00 PM Tom Brennan 
wrote:


So just for me, you're saying it's a 10G card, and like IBM doc says 10G
cards won't negotiate.  So if the switch is max 1G that seems to explain
the problem.

But the solution is interesting.  IBM says the customer should never
swap SFP's in the I/O cards.  Sounds like you did and it fixed the
problem, which is really why I'm asking because I've seen other
customers swap SFP's and cause more problems than it's worth.

Either way, glad to hear it's working now.

On 8/16/2022 8:56 PM, Jake Anderson wrote:

So I did wrap plug test to ensure the ports were fine and they were good

So after finally replacing the 10g SFP with 1G SFP from  z14 fixed this
issue. Unfortunately the auto negotiate didn't helped.



On Wed, Aug 17, 2022, 12:42 AM Mark Zelden  wrote:


Jumping in at the middle, so I apologize. I probably missed something.

Is this something that just stopped working or isn't working with a CPU
upgrade?  In a recent upgrade
I did we had some OSA OSE ports that wouldn't activate and that is due

to

the 1G speed but after
talking to the LAN / WAN network team I found the switch was hard coded

at

100M.  No one knows
why... lost history from z9, z196, z12, z13 upgrades.. Maybe printers or
something had to have that
long ago. (OSA OSE ports support SNA and TCPIP for those not in the
know).

Anyway, changing it to auto negotiate on the switch fixed it. I did have
to disable / re-enable the
port on the HMC for it to connect, so it wasn't just a switch change to
fix it.   Luckily we ran into
the problem on our DR box upgrade first where it wasn't a real problem

and

we knew what to do for 3 CPCs
in production (2 OSE ports on each) and actually swapped them all to 1G
prior to the z15 upgrades.

Now onto the next challenge in that z/OS 2.6 will not support the SNA
connections currently in use on
the OSEs.  Turns out none are really used any more except on 2 LPARs to
connect to
AIX machines and those connections need to be migrated to Enterprise
Extender.  We have a little
time though. :)

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
Systems Programming expert at

http://search390.techtarget.com/ateExperts/




On Mon, 15 Aug 2022 23:14:49 -0700, Tom Brennan <
t...@tombrennansoftware.com> wrote:


Is it a 10G (1 port) or 1G (2 port) OSA card?  10G cards won't

negotiate

speed, from what I've seen.

On 8/15/2022 10:21 PM, Jake Anderson wrote:

Hi

The OSA port is connected with working cable LC-LC MM fibre to the 1g
switch. From the Cisco switch it has been set as auto negotiate to

yes.

Still from the mainframe the port doesn't show up the LED indication

at

all. I tried toggling standby/online but still no luck. Ran port
diagnostics too with no error.


Not sure where to look. Has anyone faced a similar issue and have any

idea

on what needs to be done?

Jake

On Sat, Aug 13, 2022, 1:57 AM Radoslaw Skorupka <

r.skoru...@hotmail.com

wrote:


What's your question?
Link monitor means no physical connection to the switch, which means

you

card will not work.
Reason? A lot of, including broken cable, improper cable (MM instead

of

SM and vice versa), bad connection (Tx to Tx...), disabled port on

the

switch...


--
Radoslaw Skorupka
Lodz, Poland



W dniu 10.08.2022 o 07:19, Jake Anderson pisze:

Hello

Cross posted

I apologize for my ignorance.

I was looking for the status of one of our OSA card under OSA

advanced

facilities under HMC. For one of their PCHPID belonging to OSA shows

the

port status as 'LINK MONITOR'

When I checked with my network team if their switch sees the MAC

address

of

my OSA port but they don't see it.

From the physical cabling perspective what do I need to do?

Z14 zr1

Jake

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: 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: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Charles Mills]

> Some C compilers allow longer character constants

It is an option for the IBM XLC compiler. I will leave looking up the specific 
option as an exercise for the reader.

I recall beyond a shadow of a doubt that on the XLC compiler for Z I have used

int foo = 'ABCD';

Charles

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

Re: LINK monitor status for OSA HMC

[Jake Anderson]

I just trusted the network guy that inspite of setting auto negotiate it
didn't worked.

Not sure if IBM has documented this anywhere about the incompatibility with
10g - 1g

On Wed, Aug 17, 2022, 10:00 PM Tom Brennan 
wrote:

> So just for me, you're saying it's a 10G card, and like IBM doc says 10G
> cards won't negotiate.  So if the switch is max 1G that seems to explain
> the problem.
>
> But the solution is interesting.  IBM says the customer should never
> swap SFP's in the I/O cards.  Sounds like you did and it fixed the
> problem, which is really why I'm asking because I've seen other
> customers swap SFP's and cause more problems than it's worth.
>
> Either way, glad to hear it's working now.
>
> On 8/16/2022 8:56 PM, Jake Anderson wrote:
> > So I did wrap plug test to ensure the ports were fine and they were good
> >
> > So after finally replacing the 10g SFP with 1G SFP from  z14 fixed this
> > issue. Unfortunately the auto negotiate didn't helped.
> >
> >
> >
> > On Wed, Aug 17, 2022, 12:42 AM Mark Zelden  wrote:
> >
> >> Jumping in at the middle, so I apologize. I probably missed something.
> >>
> >> Is this something that just stopped working or isn't working with a CPU
> >> upgrade?  In a recent upgrade
> >> I did we had some OSA OSE ports that wouldn't activate and that is due
> to
> >> the 1G speed but after
> >> talking to the LAN / WAN network team I found the switch was hard coded
> at
> >> 100M.  No one knows
> >> why... lost history from z9, z196, z12, z13 upgrades.. Maybe printers or
> >> something had to have that
> >> long ago. (OSA OSE ports support SNA and TCPIP for those not in the
> >> know).
> >>
> >> Anyway, changing it to auto negotiate on the switch fixed it. I did have
> >> to disable / re-enable the
> >> port on the HMC for it to connect, so it wasn't just a switch change to
> >> fix it.   Luckily we ran into
> >> the problem on our DR box upgrade first where it wasn't a real problem
> and
> >> we knew what to do for 3 CPCs
> >> in production (2 OSE ports on each) and actually swapped them all to 1G
> >> prior to the z15 upgrades.
> >>
> >> Now onto the next challenge in that z/OS 2.6 will not support the SNA
> >> connections currently in use on
> >> the OSEs.  Turns out none are really used any more except on 2 LPARs to
> >> connect to
> >> AIX machines and those connections need to be migrated to Enterprise
> >> Extender.  We have a little
> >> time though. :)
> >>
> >> 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
> >> Systems Programming expert at
> http://search390.techtarget.com/ateExperts/
> >>
> >>
> >>
> >>
> >> On Mon, 15 Aug 2022 23:14:49 -0700, Tom Brennan <
> >> t...@tombrennansoftware.com> wrote:
> >>
> >>> Is it a 10G (1 port) or 1G (2 port) OSA card?  10G cards won't
> negotiate
> >>> speed, from what I've seen.
> >>>
> >>> On 8/15/2022 10:21 PM, Jake Anderson wrote:
>  Hi
> 
>  The OSA port is connected with working cable LC-LC MM fibre to the 1g
>  switch. From the Cisco switch it has been set as auto negotiate to
> yes.
> 
>  Still from the mainframe the port doesn't show up the LED indication
> at
>  all. I tried toggling standby/online but still no luck. Ran port
>  diagnostics too with no error.
> 
> 
>  Not sure where to look. Has anyone faced a similar issue and have any
> >> idea
>  on what needs to be done?
> 
>  Jake
> 
>  On Sat, Aug 13, 2022, 1:57 AM Radoslaw Skorupka <
> r.skoru...@hotmail.com
> >>>
>  wrote:
> 
> > What's your question?
> > Link monitor means no physical connection to the switch, which means
> >> you
> > card will not work.
> > Reason? A lot of, including broken cable, improper cable (MM instead
> of
> > SM and vice versa), bad connection (Tx to Tx...), disabled port on
> the
> > switch...
> >
> >
> > --
> > Radoslaw Skorupka
> > Lodz, Poland
> >
> >
> >
> > W dniu 10.08.2022 o 07:19, Jake Anderson pisze:
> >> Hello
> >>
> >> Cross posted
> >>
> >> I apologize for my ignorance.
> >>
> >> I was looking for the status of one of our OSA card under OSA
> advanced
> >> facilities under HMC. For one of their PCHPID belonging to OSA shows
> >> the
> >> port status as 'LINK MONITOR'
> >>
> >> When I checked with my network team if their switch sees the MAC
> >> address
> > of
> >> my OSA port but they don't see it.
> >>
> >>From the physical cabling perspective what do I need to do?
> >>
> >> Z14 zr1
> >>
> >> Jake
> >>
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions,
> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >>

Re: LINK monitor status for OSA HMC

[Tom Brennan]

So just for me, you're saying it's a 10G card, and like IBM doc says 10G 
cards won't negotiate.  So if the switch is max 1G that seems to explain 
the problem.


But the solution is interesting.  IBM says the customer should never 
swap SFP's in the I/O cards.  Sounds like you did and it fixed the 
problem, which is really why I'm asking because I've seen other 
customers swap SFP's and cause more problems than it's worth.


Either way, glad to hear it's working now.

On 8/16/2022 8:56 PM, Jake Anderson wrote:

So I did wrap plug test to ensure the ports were fine and they were good

So after finally replacing the 10g SFP with 1G SFP from  z14 fixed this
issue. Unfortunately the auto negotiate didn't helped.



On Wed, Aug 17, 2022, 12:42 AM Mark Zelden  wrote:


Jumping in at the middle, so I apologize. I probably missed something.

Is this something that just stopped working or isn't working with a CPU
upgrade?  In a recent upgrade
I did we had some OSA OSE ports that wouldn't activate and that is due to
the 1G speed but after
talking to the LAN / WAN network team I found the switch was hard coded at
100M.  No one knows
why... lost history from z9, z196, z12, z13 upgrades.. Maybe printers or
something had to have that
long ago. (OSA OSE ports support SNA and TCPIP for those not in the
know).

Anyway, changing it to auto negotiate on the switch fixed it. I did have
to disable / re-enable the
port on the HMC for it to connect, so it wasn't just a switch change to
fix it.   Luckily we ran into
the problem on our DR box upgrade first where it wasn't a real problem and
we knew what to do for 3 CPCs
in production (2 OSE ports on each) and actually swapped them all to 1G
prior to the z15 upgrades.

Now onto the next challenge in that z/OS 2.6 will not support the SNA
connections currently in use on
the OSEs.  Turns out none are really used any more except on 2 LPARs to
connect to
AIX machines and those connections need to be migrated to Enterprise
Extender.  We have a little
time though. :)

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
Systems Programming expert at http://search390.techtarget.com/ateExperts/




On Mon, 15 Aug 2022 23:14:49 -0700, Tom Brennan <
t...@tombrennansoftware.com> wrote:


Is it a 10G (1 port) or 1G (2 port) OSA card?  10G cards won't negotiate
speed, from what I've seen.

On 8/15/2022 10:21 PM, Jake Anderson wrote:

Hi

The OSA port is connected with working cable LC-LC MM fibre to the 1g
switch. From the Cisco switch it has been set as auto negotiate to yes.

Still from the mainframe the port doesn't show up the LED indication at
all. I tried toggling standby/online but still no luck. Ran port
diagnostics too with no error.


Not sure where to look. Has anyone faced a similar issue and have any

idea

on what needs to be done?

Jake

On Sat, Aug 13, 2022, 1:57 AM Radoslaw Skorupka 


wrote:


What's your question?
Link monitor means no physical connection to the switch, which means

you

card will not work.
Reason? A lot of, including broken cable, improper cable (MM instead of
SM and vice versa), bad connection (Tx to Tx...), disabled port on the
switch...


--
Radoslaw Skorupka
Lodz, Poland



W dniu 10.08.2022 o 07:19, Jake Anderson pisze:

Hello

Cross posted

I apologize for my ignorance.

I was looking for the status of one of our OSA card under OSA advanced
facilities under HMC. For one of their PCHPID belonging to OSA shows

the

port status as 'LINK MONITOR'

When I checked with my network team if their switch sees the MAC

address

of

my OSA port but they don't see it.

   From the physical cabling perspective what do I need to do?

Z14 zr1

Jake


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

[P H]

The 1U SE/HMC chassis did have an internal USB attached Smart Reader. This was 
always present! You would have to take it apart to access this USB attached 
devices 

Regards

Parwez Hamid​

From: IBM Mainframe Discussion List  on behalf of 
Radoslaw Skorupka 
Sent: 16 August 2022 22:32
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: HMC and zombie USB device

As many of us know HMC reports all external devices connected via USB -
mice, keyboards, pendrives, etc.
That's good from security point of view.
However I noticed some HMC (2.15) report *non-existent* device. Yes, I
checked it thoroughly. Imagine pizza-box HMC machine and all the cables
and ports clearly visible. No place to hidden plug or USB hub. However
the HMC reports Gemalto SmartCard Reader.
SmartCard reader is typical equipment of TKE, but not HMC. And it is
*not connected* externally. And I strongly doubt it could be connected
internally - 1U chassis cannot contain SmartCard reader hidden inside.
Yes, I'm pretty sure the HMC reports that device - I restarted HMC and
observed all the messages. There is absolutely no way someone
plugged/unplugged it during the process.

Any clue?

--
Radoslaw Skorupka
Lodz, Poland

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

[Steely.Mark]

You can try this REXX exec. 

/* REXX -
 +--+
 ¦ Name:   LSTJOBS  ¦
 ¦ Type:   REXX exec¦
 ¦ Purpose:Display a list of Address Spaces that are active ¦
 ¦ Release:MVS/ESA v4.1   and TSO/E v2.1¦
 ¦ Programmer: Paul S. Waterhouse   ¦
 ¦ Date:   1/24/92  ¦
 ¦ Abstract:   A REXX EXEC to list jobs or find an executing¦
 ¦ address space.   ¦
 ¦  ¦
 ¦ Call Format:  LSTJOBS({V¦N¦S},{G¦J¦X¦D},{jobname¦asid})  ¦
 ¦  ¦
 ¦   When: Args are null LSTJOBS()  ¦
 ¦ a list of jobs is displayed. ¦
 ¦  ¦
 ¦ V = View List¦
 ¦ Displays list of address spaces on CRT.  ¦
 ¦ N = No View  ¦
 ¦ Nothing is displayed ¦
 ¦ S = Stack Table  ¦
 ¦ Places table entries on data stack.  ¦
 ¦ Does not display results.¦
 ¦  ¦
 ¦ G = Generic Jobname Match¦
 ¦ J = Explicit Jobname Match   ¦
 ¦   Returns a 1 if one or more names   ¦
 ¦   meet criteria. ¦
 ¦   Returns a 0 if no names meet criteria. ¦
 ¦ X = Hexadecimal ASID ¦
 ¦ D = Decimal ASID ¦
 ¦   Returns a 0 if ASID not active ¦
 ¦   Retunrs a 1 if ASID is active  ¦
 ¦  ¦
 ¦  ¦
 ¦  ¦
 ¦ Logic: Extracts address of CVT (at x'10')¦
 ¦Extracts address of ASVT (CVTASVT) CVT+556¦
 ¦Invoke GETSMFID to get SMF-ID of this system  ¦
 ¦Get maximum number of users.  ¦
 ¦Get address of masters ASCB.  ¦
 ¦Display all ACTIVE or UNUSEABLE ASVT entries. ¦
 ¦ - A Table is built containing:   ¦
 ¦   c_ascb_name. = stc/jobname ¦
 ¦   c_ascb_asid. = ASID (decimal)  ¦
 ¦   c_ascb_asix. = ASID (Hex)  ¦
 ¦If arg1 is null then table is displayed.. ¦
 ¦If arg1 is J then table is scanned for name   ¦
 ¦   if name not found then RC = 0  ¦
 ¦  else exit rc 1  ¦
 ¦If arg1 is X then table is scanned for ASID x'arg2' (hex) ¦
 ¦If arg1 is d then table is scanned for ASID arg2 (dec)¦
 ¦  else exit rc 1  ¦
 +--+ */
/* CLRSCRN */
"clear"
trace

 /*-+
  ¦  Parse Arguments and Verify Values  ¦
  *-*/

  parse upper arg c_view, c_type, c_value .

 /*-+
  ¦  Set numeric digits to accomodate BIG hex numbers in decimal¦
  *-*/

  numeric digits 10

 /*-+
  ¦  Check Syntax and Set Defaults  ¦
  *-*/

 /*-+
  ¦  arg1 - VIEW¦
  ¦ Must be null, V(iew) N(o view) or S(tack results)   ¦
  *-*/

  select
when c_view = "" then
 do
   c_view = "V"
 end
when c_view ¬= "S" & c_view ¬= "V" & c_view ¬= "N" then
 do
   exit 16
 end
  otherwise
 

Re: IEA061E replacement ASID shortage

[Carmen Vitullo]

+ 1 on going thru the setup and starting the health checker. I have it 
running on one system in my PLEX, my team and the operations staff does 
not want it running everywhere, I'm not so sure we need to with shared 
parmlib, catalog, sysres and zfs but it really helps me manage the 
system and review some migration / toleration issues / actions for the 
next OS release



Carmen


On 8/17/2022 10:37 AM, Rob Scott wrote:

Rather than install another utility/tool, I would strongly recommend that you 
configure and activate HealthChecker – there are just so many useful reports 
within it.

Rob Scott
Rocket Software

From: IBM Mainframe Discussion List  On Behalf Of 
Peter
Sent: 17 August 2022 16:29
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEA061E replacement ASID shortage

EXTERNAL EMAIL



Unfortunately we didn't enable the health checker

Any other utility which can report?

On Wed, Aug 17, 2022, 7:21 PM Rob Scott 
mailto:rsc...@rocketsoftware.com>> wrote:


These days a much easier way to find out which jobnames are responsible is
to browse the IEA_ASIDS healthcheck (you can use the “S” action from the
SDSF “CK” screen).

Example from one of our test systems :

IEAVEH010I
Summary of ASID availability
ASIDs Limit Avail InUse Total
Normal 204 3219 877 4096
Replacement 100 1568 432 2000

IEAVEH061I The system has been IPLed for between 11 and 12 days. On the
average 36 ASIDs have become non-reusable per day. At the current rate
of depletion, the system will run out of ASIDs in 132 days.

IEAVEH012I Permanently non-reusable ASIDs by jobname
ADHCA91A (81)
ADHBAC1A (20)
ADH1QDA8 (17)
ADH1DC1A (10)
OMPQ33S (9)
OMPERZ1S (9)
L7BAIRLM (9)


Rob Scott
Rocket Software

From: IBM Mainframe Discussion List 
mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf
Of kekronbekron
Sent: 17 August 2022 15:11
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEA061E replacement ASID shortage

EXTERNAL EMAIL



Another example of what was once findable in TechDocs, is now missing.
A search engine found it though -
https://www.ibm.com/support/pages/system/files/inline-files/Non_Reusable_ASIDs.pdf
<
https://www.ibm.com/support/pages/system/files/inline-files/Non_Reusable_ASIDs.pdf
This goes into some detail, so hopefully you'll get more info from this.

- KB

--- Original Message ---
On Wednesday, August 17th, 2022 at 7:29 PM, Peter 
> > wrote:



Hello

As per the manual

The number of ASIDs available for replacing non-reusable address spaces

has

dropped below 5% of the value specified in IEASYSxx with the RSVNONR
specification.

Is there a way to know which resources causes this depletion of replace
ASID ?

The RSVNONR value is 15 in our system

We just did the IPL a week before and it caused this message

As per MXI

The total ASID number shows 3000
Number of free ASID : 2815

z/OS 2.4



Any pointers are appreciated

Regards
Peter

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

with the message: 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

Re: IEA061E replacement ASID shortage

[Rob Scott]

Rather than install another utility/tool, I would strongly recommend that you 
configure and activate HealthChecker – there are just so many useful reports 
within it.

Rob Scott
Rocket Software

From: IBM Mainframe Discussion List  On Behalf Of 
Peter
Sent: 17 August 2022 16:29
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEA061E replacement ASID shortage

EXTERNAL EMAIL



Unfortunately we didn't enable the health checker

Any other utility which can report?

On Wed, Aug 17, 2022, 7:21 PM Rob Scott 
mailto:rsc...@rocketsoftware.com>> wrote:

> These days a much easier way to find out which jobnames are responsible is
> to browse the IEA_ASIDS healthcheck (you can use the “S” action from the
> SDSF “CK” screen).
>
> Example from one of our test systems :
>
> IEAVEH010I
> Summary of ASID availability
> ASIDs Limit Avail InUse Total
> Normal 204 3219 877 4096
> Replacement 100 1568 432 2000
>
> IEAVEH061I The system has been IPLed for between 11 and 12 days. On the
> average 36 ASIDs have become non-reusable per day. At the current rate
> of depletion, the system will run out of ASIDs in 132 days.
>
> IEAVEH012I Permanently non-reusable ASIDs by jobname
> ADHCA91A (81)
> ADHBAC1A (20)
> ADH1QDA8 (17)
> ADH1DC1A (10)
> OMPQ33S (9)
> OMPERZ1S (9)
> L7BAIRLM (9)
>
>
> Rob Scott
> Rocket Software
>
> From: IBM Mainframe Discussion List 
> mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf
> Of kekronbekron
> Sent: 17 August 2022 15:11
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: IEA061E replacement ASID shortage
>
> EXTERNAL EMAIL
>
>
>
> Another example of what was once findable in TechDocs, is now missing.
> A search engine found it though -
> https://www.ibm.com/support/pages/system/files/inline-files/Non_Reusable_ASIDs.pdf
> <
> https://www.ibm.com/support/pages/system/files/inline-files/Non_Reusable_ASIDs.pdf
> >
>
> This goes into some detail, so hopefully you'll get more info from this.
>
> - KB
>
> --- Original Message ---
> On Wednesday, August 17th, 2022 at 7:29 PM, Peter mailto:dbajava...@gmail.com%0b>> > wrote:
>
>
> > Hello
> >
> > As per the manual
> >
> > The number of ASIDs available for replacing non-reusable address spaces
> has
> > dropped below 5% of the value specified in IEASYSxx with the RSVNONR
> > specification.
> >
> > Is there a way to know which resources causes this depletion of replace
> > ASID ?
> >
> > The RSVNONR value is 15 in our system
> >
> > We just did the IPL a week before and it caused this message
> >
> > As per MXI
> >
> > The total ASID number shows 3000
> > Number of free ASID : 2815
> >
> > z/OS 2.4
> >
> >
> >
> > Any pointers are appreciated
> >
> > Regards
> > Peter
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to 
> > lists...@listserv.ua.edu>
> with the message: 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 

Re: Problems caused by Health Checker?

[Peter Relson]

One problem we've seen is that sometimes when HZSPROC starts during an
IPL, it for some reason seems to try to access a migrated dataset (we use
FDRABR for dataset migration) and since DFRMM hasn't started yet the recall
fails. (We don't know what dataset it is trying to access; none of the
datasets explicitly in the PROC ever migrate.) Everything seems to freeze
until we reply "CANCEL" to the EDG4012D message.


If a particular health check does an allocation/open that results in attempting 
to recall a migrated data set and results in a WTOR, that particular task would 
wait for response, but that would have no effect on the running of other checks 
(HC has 20 tasks available for running of checks; only the single task running 
the check would be held up). The RACF_SENSITIVE_RESOURCES check does check on 
the existence of APF-authorized data sets. So perhaps doing that checking does 
result in recalling the dataset in order to do that validation. I don't know if 
the recall (versus do not recall) is intentional or an oversight; I will be 
asking that question of the owners.

In any case, there would be no effect on the rest of the HZSPROC address space 
or the rest of the system.

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

Re: IEA061E replacement ASID shortage

[Peter]

Unfortunately we didn't enable the health checker

Any other utility which can report?

On Wed, Aug 17, 2022, 7:21 PM Rob Scott  wrote:

> These days a much easier way to find out which jobnames are responsible is
> to browse the IEA_ASIDS healthcheck (you can use the “S” action from the
> SDSF “CK” screen).
>
> Example from one of our test systems :
>
> IEAVEH010I
> Summary of ASID availability
> ASIDs   Limit Avail InUse Total
> Normal204  3219   877  4096
> Replacement   100  1568   432  2000
>
> IEAVEH061I The system has been IPLed for between 11 and 12 days. On the
> average 36 ASIDs have become non-reusable per day. At the current rate
> of depletion, the system will run out of ASIDs in 132 days.
>
> IEAVEH012I Permanently non-reusable ASIDs by jobname
>   ADHCA91A (81)
>   ADHBAC1A (20)
>   ADH1QDA8 (17)
>   ADH1DC1A (10)
>   OMPQ33S  (9)
>   OMPERZ1S (9)
>   L7BAIRLM (9)
>
>
> Rob Scott
> Rocket Software
>
> From: IBM Mainframe Discussion List  On Behalf
> Of kekronbekron
> Sent: 17 August 2022 15:11
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: IEA061E replacement ASID shortage
>
> EXTERNAL EMAIL
>
>
>
> Another example of what was once findable in TechDocs, is now missing.
> A search engine found it though -
> https://www.ibm.com/support/pages/system/files/inline-files/Non_Reusable_ASIDs.pdf
> <
> https://www.ibm.com/support/pages/system/files/inline-files/Non_Reusable_ASIDs.pdf
> >
>
> This goes into some detail, so hopefully you'll get more info from this.
>
> - KB
>
> --- Original Message ---
> On Wednesday, August 17th, 2022 at 7:29 PM, Peter  > wrote:
>
>
> > Hello
> >
> > As per the manual
> >
> > The number of ASIDs available for replacing non-reusable address spaces
> has
> > dropped below 5% of the value specified in IEASYSxx with the RSVNONR
> > specification.
> >
> > Is there a way to know which resources causes this depletion of replace
> > ASID ?
> >
> > The RSVNONR value is 15 in our system
> >
> > We just did the IPL a week before and it caused this message
> >
> > As per MXI
> >
> > The total ASID number shows 3000
> > Number of free ASID : 2815
> >
> > z/OS 2.4
> >
> >
> >
> > Any pointers are appreciated
> >
> > Regards
> > Peter
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu
> with the message: 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: clarification on SDWAEPA. (was ...SWDAEPA)

[Joseph Reichman]

Seymour knows it all 

> On Aug 17, 2022, at 11:24 AM, Seymour J Metz  wrote:
> 
> I believe that he has an ALIAS for every CSECT, in which case I don't see an 
> issue.
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Michael Stein [m...@zlvfc.com]
> Sent: Wednesday, August 17, 2022 11:04 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)
> 
>> On Wed, Aug 17, 2022 at 10:50:34AM -0400, Joseph Reichman wrote:
>> I have a number of CSECT in my main module
>> I always do a link eploc= to every CSECT
> 
> That's not very clear since LINK transfers control to a load module
> not a CSECT.  A load module contains one or more CSECTs.
> 
> A load module can have alias entries each of which would start executing
> at the same or different entry points some of which might be in different
> CSECTs.
> 
> Is every one of your CSECTs a separate load module?
> 
> What are you really doing?
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: clarification on SDWAEPA. (was ...SWDAEPA)

[Seymour J Metz]

I believe that he has an ALIAS for every CSECT, in which case I don't see an 
issue.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Michael Stein [m...@zlvfc.com]
Sent: Wednesday, August 17, 2022 11:04 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)

On Wed, Aug 17, 2022 at 10:50:34AM -0400, Joseph Reichman wrote:
> I have a number of CSECT in my main module
> I always do a link eploc= to every CSECT

That's not very clear since LINK transfers control to a load module
not a CSECT.  A load module contains one or more CSECTs.

A load module can have alias entries each of which would start executing
at the same or different entry points some of which might be in different
CSECTs.

Is every one of your CSECTs a separate load module?

What are you really doing?

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

[Rob Scott]

These days a much easier way to find out which jobnames are responsible is to 
browse the IEA_ASIDS healthcheck (you can use the “S” action from the SDSF “CK” 
screen).

Example from one of our test systems :

IEAVEH010I
Summary of ASID availability
ASIDs   Limit Avail InUse Total
Normal204  3219   877  4096
Replacement   100  1568   432  2000

IEAVEH061I The system has been IPLed for between 11 and 12 days. On the
average 36 ASIDs have become non-reusable per day. At the current rate
of depletion, the system will run out of ASIDs in 132 days.

IEAVEH012I Permanently non-reusable ASIDs by jobname
  ADHCA91A (81)
  ADHBAC1A (20)
  ADH1QDA8 (17)
  ADH1DC1A (10)
  OMPQ33S  (9)
  OMPERZ1S (9)
  L7BAIRLM (9)


Rob Scott
Rocket Software

From: IBM Mainframe Discussion List  On Behalf Of 
kekronbekron
Sent: 17 August 2022 15:11
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEA061E replacement ASID shortage

EXTERNAL EMAIL



Another example of what was once findable in TechDocs, is now missing.
A search engine found it though - 
https://www.ibm.com/support/pages/system/files/inline-files/Non_Reusable_ASIDs.pdf

This goes into some detail, so hopefully you'll get more info from this.

- KB

--- Original Message ---
On Wednesday, August 17th, 2022 at 7:29 PM, Peter 
mailto:dbajava...@gmail.com>> wrote:


> Hello
>
> As per the manual
>
> The number of ASIDs available for replacing non-reusable address spaces has
> dropped below 5% of the value specified in IEASYSxx with the RSVNONR
> specification.
>
> Is there a way to know which resources causes this depletion of replace
> ASID ?
>
> The RSVNONR value is 15 in our system
>
> We just did the IPL a week before and it caused this message
>
> As per MXI
>
> The total ASID number shows 3000
> Number of free ASID : 2815
>
> z/OS 2.4
>
>
>
> Any pointers are appreciated
>
> Regards
> Peter
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with 
> the message: 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

Re: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Paul Gilmartin]

On Wed, 17 Aug 2022 14:48:27 +, Seymour J Metz wrote:

>Unlike PL/I, C treats characters and strings differently. C uses apostrophes 
>for character constants, which are limited to single characters, either 
>explicitly or due to a backslash (\) escape sequence. IMHO the message should 
>be an error, not a warning.
>
I haven't the C standard handy.  IIRC, the treatment of multi-character 
constants is
implementation-dependent.  So an error or a warning is permitted.  Or,
int X = 'XYZ';
could quietly be treated as:
X  DC CL4'XYZ'

The z/OS C/C++ Ref. mentions "multicharacter literals" but says precious little 
about
their semantics.

-- 
gil

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

Re: clarification on SDWAEPA. (was ...SWDAEPA)

[Joseph Reichman]

No but as I said I’m able to get to the minor CDE which I typically am being 
one of many linked together csects 

> On Aug 17, 2022, at 11:04 AM, Michael Stein  wrote:
> 
> On Wed, Aug 17, 2022 at 10:50:34AM -0400, Joseph Reichman wrote:
>> I have a number of CSECT in my main module
>> I always do a link eploc= to every CSECT 
> 
> That's not very clear since LINK transfers control to a load module
> not a CSECT.  A load module contains one or more CSECTs.
> 
> A load module can have alias entries each of which would start executing
> at the same or different entry points some of which might be in different
> CSECTs.
> 
> Is every one of your CSECTs a separate load module?
> 
> What are you really doing?
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: clarification on SDWAEPA. (was ...SWDAEPA)

[Joseph Reichman]

Hope I’m not saying but I am just quoting from the assembler services guide 
ARR’s provide recovery for stacking PC routines 

What I am saying seems the meat of a recovery is the same be it FRR ESTAE ARR 
just used in different environments 

> On Aug 17, 2022, at 11:04 AM, Michael Stein  wrote:
> 
> On Wed, Aug 17, 2022 at 10:50:34AM -0400, Joseph Reichman wrote:
>> I have a number of CSECT in my main module
>> I always do a link eploc= to every CSECT 
> 
> That's not very clear since LINK transfers control to a load module
> not a CSECT.  A load module contains one or more CSECTs.
> 
> A load module can have alias entries each of which would start executing
> at the same or different entry points some of which might be in different
> CSECTs.
> 
> Is every one of your CSECTs a separate load module?
> 
> What are you really doing?
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: clarification on SDWAEPA. (was ...SWDAEPA)

[Michael Stein]

On Wed, Aug 17, 2022 at 10:50:34AM -0400, Joseph Reichman wrote:
> I have a number of CSECT in my main module
> I always do a link eploc= to every CSECT 

That's not very clear since LINK transfers control to a load module
not a CSECT.  A load module contains one or more CSECTs.

A load module can have alias entries each of which would start executing
at the same or different entry points some of which might be in different
CSECTs.

Is every one of your CSECTs a separate load module?

What are you really doing?

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

Re: How to set time parameter in TSO/E REXX getmsg function

[Seymour J Metz]

What happened to 'CONSOLE ACTIVATE'? I don't believe that it worked correctly 
without that, regardless of how you coded getmsg.

Again, TRACE I is your friend.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Nobuhiko Furuya [furu...@v-sol.co.jp]
Sent: Tuesday, August 16, 2022 9:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to set time parameter in TSO/E REXX getmsg function

Hi ALL,

Thank you for your all suggestions.
But my explanation seemed poor.
What I would like to do is  specifying the wait time indirectly in
getmsg as follows.
But the following code gets errors as I reported.

ARG hsmcmd':'seconds<- get wait
seconds as a parameter
hsmid = 'DFHSM' <- set hsmid
address console "F "hsmid","hsmcmd<- issue command
msghsm = getmsg('resp.','SOL','HSM',,seconds)  <- wait the specified seconds

Of course when I specified the wait time directly as follows, it was OK.

msghsm = getmsg('resp.','SOL','HSM',,20)

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/17 5:32, Mark Zelden wrote:
> On Tue, 16 Aug 2022 14:18:41 +0900, Nobuhiko Furuya  
> wrote:
>
>> Thanks. But I can't find how to code it.
>> I would line to change time value depend on the logic.
>> How can I resolve this ?
> Are you trying to do something that requires the REXX "interpret" 
> instruction?  Is that what you mean?
>
> https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.4.0%3Ftopic%3Dexpression-using-interpret-instructiondata=05%7C01%7Csmetz3%40gmu.edu%7Cba611a742b994e6d461d08da7ff373ce%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C637962980844423734%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=veLyUq8PnkRIAurC7Hibz73ehYrzb1mePSfiMzSv8lo%3Dreserved=0
>
>
> 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://secure-web.cisco.com/1ac7hX8Wn6rc-3nk8Q9nCsTyPIQhH5DvT8Wup6Ld5tNLbCC_RBgOdbse-u1jN7G4T5_Oc6IqaW5SW48PdDkRVANXQw4mOKKbyLDGcRlhlCTOrc7nnqXMX8FczRUNVUtIdCKx-eanO6MFTqcn2jpOOjQ7swYuZTHkuUyePAqTSLrc-sWIwu87cyLMsv5gdOAc_y-uMUhM44mkjq6SWQo6VxcD5cFFLJjBPEYdLXWRvnpI9-QNX74LrXesOMPZ9k9tIDY21LaAWrq-VqhwJRUjCOy2417qCZlBOYFIPV8Jo53Iq3CA8uctZb7CJxSOg7g-f7z8WeAx3x9BF2JQ06fY_jMqnWLJVithmkLAGQ_s579k026S1MlVp85GiizsUgamislC6aQSQY2ZotLipgEbzzzjTV2C47IuwL2nuX5IB3LThUO6_n1fz-HHb3FhAbu82/http%3A%2F%2Fwww.mzelden.com%2Fmvsutil.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

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

Re: clarification on SDWAEPA. (was ...SWDAEPA)

[Seymour J Metz]

Is your code a good candidate for an ARR?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Wednesday, August 17, 2022 10:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)

I have a number of CSECT in my main module
I always do a link eploc= to every CSECT
First thing I do at every CSECT is establish
An Estae passing parms such CSECT name
And retry address
I also always use the same base register
And have a branch around eyecatcher of CSECT name and date

In my standard recovery which I use for all my code if don’t find a sdwaname I 
do chain the rb comparing the CSECT name to the CDENAME
I do check if it’s a major or minor CDE since in my code it’s typically minor

This seems to work when I have gotten abends and by work I mean I have 
eventually been able to retrieve my registers

I also delete the Estae on the way out if the CSECT

I didn’t see this method in any IBM books
Or share

So I am asking Peter yourself  if it’s  good practice

> On Aug 17, 2022, at 10:28 AM, Seymour J Metz  wrote:
>
> Is "the user's code" only the code that did the ESTAE or also the subroutine 
> that it called?
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Joseph Reichman [reichman...@gmail.com]
> Sent: Wednesday, August 17, 2022 10:08 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)
>
> Seymour
>
> I understand my point being that when sdwaname is not present and sdwarbad is
>
> The registers at offset X’18’ of the SDWA are not yours
> Neither is the abending PSW
>
> To get as close as possible to the users code to the abend is chaining the rb 
> from sdwarbad
>
> A good idea
>
>> On Aug 17, 2022, at 9:37 AM, Seymour J Metz  wrote:
>>
>> Are Mr. Ng's excellent SHARE presentations available online? They are, of 
>> course, not official, but they can be exceedingly helpful.
>>
>> Are there redbooks on diagnosis?
>>
>>
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>>
>> 
>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>> Peter Relson [rel...@us.ibm.com]
>> Sent: Wednesday, August 17, 2022 8:51 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)
>>
>>  Where can I find a definitive write-up on how ESTAE recovery works 
>> and how to use it?
>>
>> The doc is the doc. Whether it is "definitive" is up to you to decide.
>> Since there is no single "right way" to write a recovery routine, whether 
>> ESTAE-type or FRR, it borders on impossible to provide something definitive 
>> regarding "how to use it". There are tips, there are considerations, etc. It 
>> depends on what you want to accomplish.
>>
>> Aside from the assembler (and authorized assembler) services reference(s) 
>> for the relevant macros, the guidance is in the authorized assembler 
>> services guide's "Providing recovery" section.
>>
>> Perhaps you can share some of what you found difficult to understand (and/or 
>> what you found missing) so that the information can be improved.
>> Maybe you have specific questions that are not addressed.
>>
>> Peter Relson
>> z/OS Core Technology Design
>>
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

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

Re: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Michael Stein]

On Wed, Aug 17, 2022 at 10:16:17AM +0300, Binyamin Dissen wrote:
> I have inherited some C code.
> 
>   str2 = str2 ¦ 'xF0'; 
>   str1 = str1 >> 4;
>   str1 = str1 ¦ 'xF0';  
> 
> These receive
> 
> CCN4118 Character constant 'xF0' has more than 1 character.  

Yes, in C single quotes are character (1 byte) constants.  Double
quotes are \0 terminated string of characters.

Some C compilers allow longer character constants if they fit
in an integer which is what is going on in your example.
 
> 10995440 = x'A7C6F0' = 'xF0'

> 2. This is very old cold, not compiled for years (decades?). Was there
>a point in C compiler history where 'this was ever a valid hex constant?

This isn't a hex constant, it's a character constant holding more than
1 character (in an int).

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

C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Colin Paice]

it is a lucky accident that it works.

if this was xFA it would OR it with  0X..C1 which is the hex for A and
not what you wanted.
Colin

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

Re: clarification on SDWAEPA. (was ...SWDAEPA)

[Joseph Reichman]

I have a number of CSECT in my main module
I always do a link eploc= to every CSECT 
First thing I do at every CSECT is establish
An Estae passing parms such CSECT name 
And retry address 
I also always use the same base register 
And have a branch around eyecatcher of CSECT name and date 

In my standard recovery which I use for all my code if don’t find a sdwaname I 
do chain the rb comparing the CSECT name to the CDENAME
I do check if it’s a major or minor CDE since in my code it’s typically minor 

This seems to work when I have gotten abends and by work I mean I have 
eventually been able to retrieve my registers 

I also delete the Estae on the way out if the CSECT 

I didn’t see this method in any IBM books 
Or share 

So I am asking Peter yourself  if it’s  good practice 

> On Aug 17, 2022, at 10:28 AM, Seymour J Metz  wrote:
> 
> Is "the user's code" only the code that did the ESTAE or also the subroutine 
> that it called?
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Joseph Reichman [reichman...@gmail.com]
> Sent: Wednesday, August 17, 2022 10:08 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)
> 
> Seymour
> 
> I understand my point being that when sdwaname is not present and sdwarbad is
> 
> The registers at offset X’18’ of the SDWA are not yours
> Neither is the abending PSW
> 
> To get as close as possible to the users code to the abend is chaining the rb 
> from sdwarbad
> 
> A good idea
> 
>> On Aug 17, 2022, at 9:37 AM, Seymour J Metz  wrote:
>> 
>> Are Mr. Ng's excellent SHARE presentations available online? They are, of 
>> course, not official, but they can be exceedingly helpful.
>> 
>> Are there redbooks on diagnosis?
>> 
>> 
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>> 
>> 
>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>> Peter Relson [rel...@us.ibm.com]
>> Sent: Wednesday, August 17, 2022 8:51 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)
>> 
>>  Where can I find a definitive write-up on how ESTAE recovery works 
>> and how to use it?
>> 
>> The doc is the doc. Whether it is "definitive" is up to you to decide.
>> Since there is no single "right way" to write a recovery routine, whether 
>> ESTAE-type or FRR, it borders on impossible to provide something definitive 
>> regarding "how to use it". There are tips, there are considerations, etc. It 
>> depends on what you want to accomplish.
>> 
>> Aside from the assembler (and authorized assembler) services reference(s) 
>> for the relevant macros, the guidance is in the authorized assembler 
>> services guide's "Providing recovery" section.
>> 
>> Perhaps you can share some of what you found difficult to understand (and/or 
>> what you found missing) so that the information can be improved.
>> Maybe you have specific questions that are not addressed.
>> 
>> Peter Relson
>> z/OS Core Technology Design
>> 
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Seymour J Metz]

Unlike PL/I, C treats characters and strings differently. C uses apostrophes 
for character constants, which are limited to single characters, either 
explicitly or due to a backslash (\) escape sequence. IMHO the message should 
be an error, not a warning.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
Sent: Wednesday, August 17, 2022 3:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: C compile: INFORMATIONAL CCN4118 **name** C F1:2008  Character 
constant 'xF0' has more than 1 character.

I have inherited some C code.

  str2 = str2 ¦ 'xF0';
  str1 = str1 >> 4;
  str1 = str1 ¦ 'xF0';

These receive

CCN4118 Character constant 'xF0' has more than 1 character.

Examining the source4 it appears the intent is for 0xF0

1. Why would this be a mere informational message? Seems like it should be a
warning. that the sizes do not match.

The code generated is


*str2 = str2 ¦ 'xF0';
  SLR  r0,r0
  IC   r0,str2(,r13,157)
  Or0,=F'10995440'
  Nr0,=F'255'
  STC  r0,str2(,r13,157)
*str1 = str1 >> 4;
  SLR  r0,r0
  IC   r0,str1(,r13,156)
  SRA  r0,4
  Nr0,=F'255'
  STC  r0,str1(,r13,156)
*str1 = str1 ¦ 'xF0';
  SLR  r0,r0
  IC   r0,str1(,r13,156)
  Or0,=F'10995440'
  Nr0,=F'255'
  STC  r0,str1(,r13,156)

10995440 = x'A7C6F0' = 'xF0'

2. This is very old cold, not compiled for years (decades?). Was there a point
in C compiler history where 'this was ever a valid hex constant?

--
Binyamin Dissen 
http://secure-web.cisco.com/1migAFmtAPN_23mBVeDiu-PcLHoaTptHEV1bWf0n3YrzyB1Uy0SXsBP1uzTX8wSAn4-DPZUsU-_qzT8SbayVXo2EZbCir2Tfx9QeOzjyGxw_g_KYhh7gbCn9B3jeArTzhOtHhMNrYEpB00xRSITNW4msCg3wNr1t0GBMc6ETzt-Rq9aaeg5dp3w0jKXB-WQDy0wImP9zMKRnbxDTa-a3NuFXz-lsDTyVM0EtRRHfFq2VooTQgwfmXKxfcsbSqllRPwI0mX6J2FC7gIcbfAZwSk_dITnjwfrhd_tqE273ycjKnTZg4IEqxV538L06VI4j2BGTO1cT6sxnx88x9prTlyu5FDdfABUBUWFmVFb4ZfNMovnEE60CO7fspZO085ot9gRHJ_JXl_jZfujp1eJgqw7wOdYXTwAdbeb4zk8McOOtT7XeUIkpuoeMyUVFkkmvxfMGFwN9gT_m-VzpP-UA-Jw/http%3A%2F%2Fwww.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: rexx and IDCAMS functions

[Seymour J Metz]

None: the Initiator provides a pointer to H'length',C'parm', not to a CPPL. 
IDCAMS does not expect a CPPL since it is not a TSO command.

Now, if you enter LISTC at the READY prompt, the Terminal Monitor Program 
creates a CPPL and does an ATTACH for LISTC


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Wednesday, August 17, 2022 10:25 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

On Wed, 17 Aug 2022 14:07:23 +, Seymour J Metz wrote:

>Yes, and for IDCAMS that parameter list is a pointer to a half word length 
>followed by a character string, which is not the   Command Processor Parameter 
>List (CPPL) that TSO commands require. If you insist on doing ADDRESS LINKMVS 
>for, e.g., RENAME, then you must provide your own  command buffer, UPT, PSCB 
>and ECT pointers, instead of letting ADDRESS TSO do it for you.
>
What component provides those things in the case of //STEP  EXEC  PGM=IDCAMS?

>When the only tool in your toolbox is a pipe, everything looks like a filter.

--
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: clarification on SDWAEPA. (was ...SWDAEPA)

[Seymour J Metz]

Is "the user's code" only the code that did the ESTAE or also the subroutine 
that it called?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Wednesday, August 17, 2022 10:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)

Seymour

I understand my point being that when sdwaname is not present and sdwarbad is

The registers at offset X’18’ of the SDWA are not yours
Neither is the abending PSW

 To get as close as possible to the users code to the abend is chaining the rb 
from sdwarbad

A good idea

> On Aug 17, 2022, at 9:37 AM, Seymour J Metz  wrote:
>
> Are Mr. Ng's excellent SHARE presentations available online? They are, of 
> course, not official, but they can be exceedingly helpful.
>
> Are there redbooks on diagnosis?
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Peter Relson [rel...@us.ibm.com]
> Sent: Wednesday, August 17, 2022 8:51 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)
>
>  Where can I find a definitive write-up on how ESTAE recovery works and 
> how to use it?
>
> The doc is the doc. Whether it is "definitive" is up to you to decide.
> Since there is no single "right way" to write a recovery routine, whether 
> ESTAE-type or FRR, it borders on impossible to provide something definitive 
> regarding "how to use it". There are tips, there are considerations, etc. It 
> depends on what you want to accomplish.
>
> Aside from the assembler (and authorized assembler) services reference(s) for 
> the relevant macros, the guidance is in the authorized assembler services 
> guide's "Providing recovery" section.
>
> Perhaps you can share some of what you found difficult to understand (and/or 
> what you found missing) so that the information can be improved.
> Maybe you have specific questions that are not addressed.
>
> Peter Relson
> z/OS Core Technology Design
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

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

Re: rexx and IDCAMS functions

[Paul Gilmartin]

On Wed, 17 Aug 2022 14:07:23 +, Seymour J Metz wrote:

>Yes, and for IDCAMS that parameter list is a pointer to a half word length 
>followed by a character string, which is not the   Command Processor Parameter 
>List (CPPL) that TSO commands require. If you insist on doing ADDRESS LINKMVS 
>for, e.g., RENAME, then you must provide your own  command buffer, UPT, PSCB 
>and ECT pointers, instead of letting ADDRESS TSO do it for you.
> 
What component provides those things in the case of //STEP  EXEC  PGM=IDCAMS?

>When the only tool in your toolbox is a pipe, everything looks like a filter.

-- 
gil

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

Re: rexx and IDCAMS functions

[Seymour J Metz]

Side note: some IDCAMS functions require APF authorization; ADDRESS TSO 'CALL 
*(IDCAMS)' will work for those but ADDRESS LINKMVS 'IDCAMS' will not.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Wednesday, August 17, 2022 9:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

Hi Gil,
I am late to the party ...
IDCAMS Commands in TSO are not the same as IDCAMS Commands  in IDCAMS.
For example, this works in TSO, but, it does not work in IDCAMS:
LISTC EN('SYS1.LINKLIB)
(In IDCAMS "EN" is not a valid abbreviation for ENTRY, but, in TSO it is
valid.)
Also, when invoking IDCAMS in TSO (i.e. CALL *(IDCAMS)), the TSO PREFIX
is irrelevant.

Regards,
David

On 2022-08-17 08:38, Paul Gilmartin wrote:
> On Wed, 17 Aug 2022 03:57:48 +, Seymour J Metz  wrote:
>
>> The TSO commands that front-end IDCAMS expect a CPPL; you need ADDRESS TSO.;
>>
> That would imply that:
>  //STEP  EXEC  PGM=IDCAMS
> wouldn't work since it provides no CPPL.  LINKMVS provides an interface
> compatible with EXEC  PGM=.
>
>> 
>> From:  Paul Gilmartin
>> Sent: Tuesday, August 16, 2022 2:36 PM
>>
>> Is this something that can't be done with ADDRESS LINKMVS IDCAMS?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: 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: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Binyamin Dissen]

Interesting.

So the code actually works.

On Wed, 17 Aug 2022 11:24:31 +0100 Colin Paice  wrote:

:> :>>SLR  r0,r0 clear
:>register 2
:>:>>IC   r0,str2(,r13,157)  load the one
:>character into it
:>:>>Or0,=F'10995440' OR  this with
:>0x00A7C6F0'  (=F'10995440')  which is  a7=x c6=F f0=0   = X F 0
:>:>>Nr0,=F'255'   clear the
:>top 3 bytes .. keep the lower byte
:>:>>STC  r0,str2(,r13,157)  store the
:>character
:>
:>So basically the code is oring the character with 0xf0 - which by luck is
:>what you wanted.
:>
:>
:>On Wed, 17 Aug 2022 at 10:05, Binyamin Dissen 
:>wrote:
:>
:>> Quite possible.
:>>
:>> To confirm, it is '\xf0' with surrounding quotes of \xF0 without quotes. Or
:>> both?
:>>
:>>
:>> On Wed, 17 Aug 2022 09:31:18 +0200 Bernd Oppolzer <
:>> bernd.oppol...@t-online.de>
:>> wrote:
:>>
:>> :>Could it be that the source has been transferred in any way?
:>> :>
:>> :>It would be valid, if there was a backslash before the hex constant,
:>> :>like below;
:>> :>backslash, followed by x, followed by two hex digits is a single char in
:>> C.
:>> :>
:>> :>str2 = str2 ¦ '\xF0';
:>> :>
:>> :>HTH, kind regards
:>> :>
:>> :>Bernd
:>> :>
:>> :>
:>> :>
:>> :>Am 17.08.2022 um 09:16 schrieb Binyamin Dissen:
:>> :>> I have inherited some C code.
:>> :>>
:>> :>>str2 = str2 ¦ 'xF0';
:>> :>>str1 = str1 >> 4;
:>> :>>str1 = str1 ¦ 'xF0';
:>> :>>
:>> :>> These receive
:>> :>>
:>> :>> CCN4118 Character constant 'xF0' has more than 1 character.
:>> :>>
:>> :>> Examining the source4 it appears the intent is for 0xF0
:>> :>>
:>> :>> 1. Why would this be a mere informational message? Seems like it
:>> should be a
:>> :>> warning. that the sizes do not match.
:>> :>>
:>> :>> The code generated is
:>> :>>
:>> :>>
:>> :>> *str2 = str2 ¦ 'xF0';
:>> :>>SLR  r0,r0
:>> :>>IC   r0,str2(,r13,157)
:>> :>>Or0,=F'10995440'
:>> :>>Nr0,=F'255'
:>> :>>STC  r0,str2(,r13,157)
:>> :>> *str1 = str1 >> 4;
:>> :>>SLR  r0,r0
:>> :>>IC   r0,str1(,r13,156)
:>> :>>SRA  r0,4
:>> :>>Nr0,=F'255'
:>> :>>STC  r0,str1(,r13,156)
:>> :>> *str1 = str1 ¦ 'xF0';
:>> :>>SLR  r0,r0
:>> :>>IC   r0,str1(,r13,156)
:>> :>>Or0,=F'10995440'
:>> :>>Nr0,=F'255'
:>> :>>STC  r0,str1(,r13,156)
:>> :>>
:>> :>> 10995440 = x'A7C6F0' = 'xF0'
:>> :>>
:>> :>> 2. This is very old cold, not compiled for years (decades?). Was there
:>> a point
:>> :>> in C compiler history where 'this was ever a valid hex constant?
:>> :>>
:>> :>> --
:>> :>> 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
:>>
:>> --
:>> 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

--
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: IEA061E replacement ASID shortage

[kekronbekron]

Another example of what was once findable in TechDocs, is now missing.
A search engine found it though - 
https://www.ibm.com/support/pages/system/files/inline-files/Non_Reusable_ASIDs.pdf

This goes into some detail, so hopefully you'll get more info from this.

- KB

--- Original Message ---
On Wednesday, August 17th, 2022 at 7:29 PM, Peter  wrote:


> Hello
>
> As per the manual
>
> The number of ASIDs available for replacing non-reusable address spaces has
> dropped below 5% of the value specified in IEASYSxx with the RSVNONR
> specification.
>
> Is there a way to know which resources causes this depletion of replace
> ASID ?
>
> The RSVNONR value is 15 in our system
>
> We just did the IPL a week before and it caused this message
>
> As per MXI
>
> The total ASID number shows 3000
> Number of free ASID : 2815
>
> z/OS 2.4
>
>
>
> Any pointers are appreciated
>
> Regards
> Peter
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: clarification on SDWAEPA. (was ...SWDAEPA)

[Joseph Reichman]

Seymour 

I understand my point being that when sdwaname is not present and sdwarbad is 

The registers at offset X’18’ of the SDWA are not yours 
Neither is the abending PSW 

 To get as close as possible to the users code to the abend is chaining the rb 
from sdwarbad

A good idea 

> On Aug 17, 2022, at 9:37 AM, Seymour J Metz  wrote:
> 
> Are Mr. Ng's excellent SHARE presentations available online? They are, of 
> course, not official, but they can be exceedingly helpful.
> 
> Are there redbooks on diagnosis?
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Peter Relson [rel...@us.ibm.com]
> Sent: Wednesday, August 17, 2022 8:51 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)
> 
>  Where can I find a definitive write-up on how ESTAE recovery works and 
> how to use it?
> 
> The doc is the doc. Whether it is "definitive" is up to you to decide.
> Since there is no single "right way" to write a recovery routine, whether 
> ESTAE-type or FRR, it borders on impossible to provide something definitive 
> regarding "how to use it". There are tips, there are considerations, etc. It 
> depends on what you want to accomplish.
> 
> Aside from the assembler (and authorized assembler) services reference(s) for 
> the relevant macros, the guidance is in the authorized assembler services 
> guide's "Providing recovery" section.
> 
> Perhaps you can share some of what you found difficult to understand (and/or 
> what you found missing) so that the information can be improved.
> Maybe you have specific questions that are not addressed.
> 
> Peter Relson
> z/OS Core Technology Design
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: rexx and IDCAMS functions

[Seymour J Metz]

Yes, and for IDCAMS that parameter list is a pointer to a half word length 
followed by a character string, which is not the   Command Processor Parameter 
List (CPPL) that TSO commands require. If you insist on doing ADDRESS LINKMVS 
for, e.g., RENAME, then you must provide your own  command buffer, UPT, PSCB 
and ECT pointers, instead of letting ADDRESS TSO do it for you.

When the only tool in your toolbox is a pipe, everything looks like a filter.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of W 
Mainframe [01304632a58d-dmarc-requ...@listserv.ua.edu]
Sent: Wednesday, August 17, 2022 6:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

You should use Rexx LINKMVS host command processor to call programs using a 
parameter list.
For example to call a Cobol program :
Rexx :
rxv1='data1'rxv2='data2'Address linkmvs 'cobsamp rxv1 rxv1'(each rexx variable 
in linkmvs will be an address in plist)
Cobol :
linkage section01 rxv1 pic x(10).01 rxv2 pic x(20).procedure division using 
rxv1 rxv2.

Dan



Sent from Yahoo Mail for iPhone


On Wednesday, August 17, 2022, 12:58 AM, Seymour J Metz  wrote:

The TSO commands that front-end IDCAMS expect a CPPL; you need ADDRESS TSO.;


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Lizette Koehler [stars...@mindspring.com]
Sent: Tuesday, August 16, 2022 10:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

I am actually using LINKMVS  and that is getting the error

I want my general user to be able to do things without knowing idcams

Lizette

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Tuesday, August 16, 2022 2:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

On Tue, 16 Aug 2022 14:18:54 -0700, Lizette Koehler  wrote:

>I am going to write a process in REXX using things like DCOLLECT  LISTC
>etc..
>
>I am running into S913-70
>
Have you looked at: 
?

>I am trying to figure out what I need to do to resolve it
>
>Something in RACF? Pads  IKJTSOxx??
>
More details?  What is your code so far?

Is this something that can't be done with ADDRESS LINKMVS IDCAMS?

--
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: Simple JOBGROUP or Simple User

[kekronbekron]

Hello Rob,

> SDSF does provide information and actions for jobgroups, but we are just a 
> user of the JES2 SSI interface that allows us a view into that aspect of JES 
> functionality.

Ah, that is true. This is JES2 functionality indeed.
Will have to review the Ideas site one of these days...

- KB

--- Original Message ---
On Wednesday, August 17th, 2022 at 1:23 PM, Rob Scott 
 wrote:


> KB,
>
> > > SDSF folks at Rocket... job groups need some love too.
>
>
> SDSF does provide information and actions for jobgroups, but we are just a 
> user of the JES2 SSI interface that allows us a view into that aspect of JES 
> functionality.
>
> I suggest raising an RFE and then it will be assessed by the relevant 
> development team (JES2 for base jobgroup functionality and SDSF for the "JG" 
> panel interaction).
>
> RFEs are the best way to help influence future development plans especially 
> if you can garner support from user group communities like Share and GSE.
>
> Rob Scott
> Rocket Software
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf Of 
> kekronbekron
>
> Sent: 17 August 2022 03:47
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Simple JOBGROUP or Simple User
>
> EXTERNAL EMAIL
>
>
>
>
>
> SDSF folks at Rocket... job groups need some love too.
> This feature could be very useful when used in ad-hoc job suites or workflows.
> Ones that are too infrequent to warrant going into the scheduler.
> Too frequent that submitting one job after another is a bore.
>
> Kicking off a chain and letting jobs do their magic, parallel where parallel 
> is needed, serial where serial is, etc.
>
> - KB
>
> --- Original Message ---
> On Wednesday, August 17th, 2022 at 6:54 AM, Peter Vels peter.v...@gmail.com 
> wrote:
>
>
>
> > Roger is correct; you don't need both CONCURRENT statements. In fact,
> > you'll get an error with two. Note that the syntax is CONCURRENT NAME=
> > job.
> >
> > Also, what does $D GRPDEF show?
> > If you are seeing CONCURRENT_MAX=0 (which is the default) then change
> > it to
> > 2 (or more if you like) with command: $T GRPDEF,CONCURRENT_MAX=2
> >
> > This worked for me:
> >
> > //DRCPYFC JOBGROUP
> >
> > //DRCPYFC1 GJOB
> >
> > // CONCURRENT NAME=DRCPYFC2
> >
> > //DRCPYFC2 GJOB
> >
> > //DRCPYFC ENDGROUP
> >
> > //* ---
> >
> > //DRCPYFC1 JOB (ACCT#),'DR COPY ',CLASS=A,
> >
> > // MSGCLASS=X,REGION=800M
> >
> > // SCHEDULE JOBGROUP=DRCPYFC
> >
> > //STUFF1 EXEC PGM=IEFBR14
> >
> > //DRCPYFC2 JOB (ACCT#),'DR COPY ',CLASS=A,
> >
> > // MSGCLASS=X,REGION=800M
> >
> > // SCHEDULE JOBGROUP=DRCPYFC
> >
> > //STUFF2 EXEC PGM=IEFBR14
> >
> > Regards,
> >
> > Peter
> >
> > On Wed, 17 Aug 2022 at 06:52, Roger W Suhr suhr...@gmail.com wrote:
> >
> > > Hi,
> > >
> > > Maybe you can try this:
> > >
> > > //DRCPYFC JOBGROUP
> > > //DRCPYFC1 GJOB
> > > // CONCURRENT NAME=DRCPYFC2
> > >
> > > I'm not sure you need two CONCURRENT statement
> > >
> > > Roger W. Suhr
> > >
> > > suhr...@gmail.com
> > >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On
> > > Behalf Of Tom Longfellow
> > > Sent: Tuesday, August 16, 2022 16:40
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Simple JOBGROUP or Simple User
> > >
> > > My forehead is bruised from beating it against the wall. I am trying
> > > to set up a simple JOBGROUP with two simultaneous jobs. Here is my
> > > JCL (excerpted for brevity) //DRCPYFC JOBGROUP
> > > //DRCPYFC1 GJOB
> > > // CONCURRENT=DRCPYFC2
> > > //DRCPYFC2 GJOB
> > > // CONCURRENT=DRCPYFC1
> > > //DRCPYFC ENDGROUP
> > > //* ---
> > > //DRCPYFC1 JOB (ACCT#),'DR COPY ',CLASS=A, // MSGCLASS=X,REGION=800M
> > > // SCHEDULE JOBGROUP=DRCPYFC
> > > //* stuff to do
> > > //DRCPYFC2 JOB (ACCT#),'DR COPY ',CLASS=A, // MSGCLASS=X,REGION=800M
> > > // SCHEDULE JOBGROUP=DRCPYFC
> > > //* more stuff to do
> > >
> > > Jes is rejecting this masterpiece with:
> > >
> > > $HASP100 DRCPYFC ON INTRDR FROM TSU17899 TECHXXX
> > > $HASP1110 DRCPYFC -- Illegal JOBGROUP card - card not valid within
> > > JOBGROUP
> > > $HASP1110 DRCPYFC -- Illegal JOBGROUP card - card not valid within
> > > JOBGROUP IRR010I USERID TECH905 IS ASSIGNED TO THIS JOB.
> > > $HASP DRCPYFC -- ENDGROUP card - JOBGROUP DRCPYFC contains
> > > errors
> > >
> > > I tweak, I read the manual (many times). But must be missing something.
> > > It did run once, but sequentially - not concurrently. I added
> > > CONCURRENT cards and this is where I am.
> > >
> > > What funny little JES syntax did I miss? I modeled this on the
> > > sample in the book.
> > >
> > > 
> > > -- For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@listserv.ua.edu with the message: INFO
> > > IBM-MAIN
> > >
> > > 
> > > 

IEA061E replacement ASID shortage

[Peter]

Hello

As per the manual

The number of ASIDs available for replacing non-reusable address spaces has
dropped below 5% of the value specified in IEASYSxx with the RSVNONR
specification.

Is there a way to know which resources causes this depletion of replace
ASID ?

The RSVNONR value is 15 in our system

We just did the IPL a week before and it caused this message

As per MXI

The total ASID number shows 3000
Number of free ASID : 2815

z/OS 2.4



Any pointers are appreciated

Regards
Peter

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

Re: rexx and IDCAMS functions

[David Spiegel]

Hi Gil,
I am late to the party ...
IDCAMS Commands in TSO are not the same as IDCAMS Commands  in IDCAMS.
For example, this works in TSO, but, it does not work in IDCAMS:
LISTC EN('SYS1.LINKLIB)
(In IDCAMS "EN" is not a valid abbreviation for ENTRY, but, in TSO it is 
valid.)
Also, when invoking IDCAMS in TSO (i.e. CALL *(IDCAMS)), the TSO PREFIX 
is irrelevant.


Regards,
David

On 2022-08-17 08:38, Paul Gilmartin wrote:

On Wed, 17 Aug 2022 03:57:48 +, Seymour J Metz  wrote:


The TSO commands that front-end IDCAMS expect a CPPL; you need ADDRESS TSO.;


That would imply that:
 //STEP  EXEC  PGM=IDCAMS
wouldn't work since it provides no CPPL.  LINKMVS provides an interface
compatible with EXEC  PGM=.



From:  Paul Gilmartin
Sent: Tuesday, August 16, 2022 2:36 PM

Is this something that can't be done with ADDRESS LINKMVS IDCAMS?


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

Re: rexx and IDCAMS functions

[Seymour J Metz]

No, it implies no such thing. IDCAMS is not a TSO command. ADDRESS LINKMVS 
IDCAMS is legitimate, subject to authorization;ADDRESS LINKMVS DELETE, ADDRESS 
LINKMVS RENAME, etc., arenot.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Wednesday, August 17, 2022 8:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

On Wed, 17 Aug 2022 03:57:48 +, Seymour J Metz  wrote:

>The TSO commands that front-end IDCAMS expect a CPPL; you need ADDRESS TSO.;
>
That would imply that:
//STEP  EXEC  PGM=IDCAMS
wouldn't work since it provides no CPPL.  LINKMVS provides an interface
compatible with EXEC  PGM=.

>
>From:  Paul Gilmartin
>Sent: Tuesday, August 16, 2022 2:36 PM
>
>Is this something that can't be done with ADDRESS LINKMVS IDCAMS?

--
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: clarification on SDWAEPA. (was ...SWDAEPA)

[Seymour J Metz]

Are Mr. Ng's excellent SHARE presentations available online? They are, of 
course, not official, but they can be exceedingly helpful.

Are there redbooks on diagnosis?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Peter Relson [rel...@us.ibm.com]
Sent: Wednesday, August 17, 2022 8:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)

 Where can I find a definitive write-up on how ESTAE recovery works and 
how to use it?

The doc is the doc. Whether it is "definitive" is up to you to decide.
Since there is no single "right way" to write a recovery routine, whether 
ESTAE-type or FRR, it borders on impossible to provide something definitive 
regarding "how to use it". There are tips, there are considerations, etc. It 
depends on what you want to accomplish.

Aside from the assembler (and authorized assembler) services reference(s) for 
the relevant macros, the guidance is in the authorized assembler services 
guide's "Providing recovery" section.

Perhaps you can share some of what you found difficult to understand (and/or 
what you found missing) so that the information can be improved.
Maybe you have specific questions that are not addressed.

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: clarification on SDWAEPA. (was ...SWDAEPA)

[Seymour J Metz]

After LINK EP=FOO, if foo does an ESTAE, loads R15 with the address of bar and 
then does a BASR R14,R15, the SDWARBAD field will be for foo, not for bar. 


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Wednesday, August 17, 2022 9:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: clarification on SDWAEPA. (was ...SWDAEPA)

Peter

I have a question and or guidance

When the sdwaname is not present and sdwarbad is

Would chaining the rb get you to where your program called the service that 
abended


> On Aug 17, 2022, at 8:51 AM, Peter Relson  wrote:
>
>  Where can I find a definitive write-up on how ESTAE recovery works 
> and how to use it?
>
> The doc is the doc. Whether it is "definitive" is up to you to decide.
> Since there is no single "right way" to write a recovery routine, whether 
> ESTAE-type or FRR, it borders on impossible to provide something definitive 
> regarding "how to use it". There are tips, there are considerations, etc. It 
> depends on what you want to accomplish.
>
> Aside from the assembler (and authorized assembler) services reference(s) for 
> the relevant macros, the guidance is in the authorized assembler services 
> guide's "Providing recovery" section.
>
> Perhaps you can share some of what you found difficult to understand (and/or 
> what you found missing) so that the information can be improved.
> Maybe you have specific questions that are not addressed.
>
> Peter Relson
> z/OS Core Technology Design
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

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

Re: rexx and IDCAMS functions

[Robert S. Hansel (RSH)]

Hi Lizette,

What, if any, ICH408I messages do you see in SYSLOG.

Do you have the necessary FACILITY STGADMIN profile permissions to perform 
these functions?

Regards, Bob

Robert S. Hansel
Lead RACF Specialist
RSH Consulting, Inc.  *** Celebrating our 30th Anniversary ***
617-969-8211
www.linkedin.com/in/roberthansel
www.twitter.com/RSH_RACF
www.rshconsulting.com


-Original Message-
Date:Tue, 16 Aug 2022 14:18:54 -0700
From:Lizette Koehler 
Subject: rexx and IDCAMS functions

I am going to write a process in REXX using things like DCOLLECT  LISTC
etc..

 

I am running into S913-70

 

I am trying to figure out what I need to do to resolve it

 

Something in RACF? Pads  IKJTSOxx??

 

 

Anu guidance appreciated

 

Lizette

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

Re: Simple JOBGROUP or Simple User

[Tom Longfellow]

Thanks for the ACTIVATE reference.  We are at z/OS 2.4 and have had mode z22 
active for years.  Good catch though.

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

Re: clarification on SDWAEPA. (was ...SWDAEPA)

[Joseph Reichman]

Peter 

I have a question and or guidance 

When the sdwaname is not present and sdwarbad is 

Would chaining the rb get you to where your program called the service that 
abended


> On Aug 17, 2022, at 8:51 AM, Peter Relson  wrote:
> 
>  Where can I find a definitive write-up on how ESTAE recovery works 
> and how to use it?
> 
> The doc is the doc. Whether it is "definitive" is up to you to decide.
> Since there is no single "right way" to write a recovery routine, whether 
> ESTAE-type or FRR, it borders on impossible to provide something definitive 
> regarding "how to use it". There are tips, there are considerations, etc. It 
> depends on what you want to accomplish.
> 
> Aside from the assembler (and authorized assembler) services reference(s) for 
> the relevant macros, the guidance is in the authorized assembler services 
> guide's "Providing recovery" section.
> 
> Perhaps you can share some of what you found difficult to understand (and/or 
> what you found missing) so that the information can be improved.
> Maybe you have specific questions that are not addressed.
> 
> 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: Simple JOBGROUP or Simple User

[Peter Vels]

"All the functions of job groups are only available when JES2 is in the z22
$ACTIVATE mode. The current $ACTIVATE mode can be displayed using the $D
ACTIVATE command. " -
https://www.ibm.com/docs/en/zos/2.4.0?topic=statements-configuring-activating-job-groups

Does that help?

On Wed, 17 Aug 2022 at 22:48, Tom Longfellow <
03e29b607131-dmarc-requ...@listserv.ua.edu> wrote:

> Frustrations continue.
>
> I took out the second CONCURRENT.
> I checked and corrected the CONCURRENT_MAX GRPDEF value from 0 to 3.
>
> The input jobs streams still do not pass JES2 Converter.
>
> $HASP1110 DRCPYXC  -- Illegal JOBGROUP card -  card not
> valid within JOBGROUP
>
> I cannot find that 'reason' in the manuals/
> My best guess is that JOBGROUP is not valid within JOBGROUP.   I have only
> coded the one JOBGROUP statement.   Why does JES hate me so?
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: clarification on SDWAEPA. (was ...SWDAEPA)

[Peter Relson]

 Where can I find a definitive write-up on how ESTAE recovery works and 
how to use it?

The doc is the doc. Whether it is "definitive" is up to you to decide.
Since there is no single "right way" to write a recovery routine, whether 
ESTAE-type or FRR, it borders on impossible to provide something definitive 
regarding "how to use it". There are tips, there are considerations, etc. It 
depends on what you want to accomplish.

Aside from the assembler (and authorized assembler) services reference(s) for 
the relevant macros, the guidance is in the authorized assembler services 
guide's "Providing recovery" section.

Perhaps you can share some of what you found difficult to understand (and/or 
what you found missing) so that the information can be improved.
Maybe you have specific questions that are not addressed.

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

Re: Simple JOBGROUP or Simple User

[Tom Longfellow]

Frustrations continue.

I took out the second CONCURRENT.
I checked and corrected the CONCURRENT_MAX GRPDEF value from 0 to 3.

The input jobs streams still do not pass JES2 Converter.

$HASP1110 DRCPYXC  -- Illegal JOBGROUP card -  card not
valid within JOBGROUP  

I cannot find that 'reason' in the manuals/
My best guess is that JOBGROUP is not valid within JOBGROUP.   I have only 
coded the one JOBGROUP statement.   Why does JES hate me so?

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

Re: rexx and IDCAMS functions

[Paul Gilmartin]

On Wed, 17 Aug 2022 03:57:48 +, Seymour J Metz  wrote:

>The TSO commands that front-end IDCAMS expect a CPPL; you need ADDRESS TSO.;
> 
That would imply that:
//STEP  EXEC  PGM=IDCAMS
wouldn't work since it provides no CPPL.  LINKMVS provides an interface
compatible with EXEC  PGM=.

>
>From:  Paul Gilmartin
>Sent: Tuesday, August 16, 2022 2:36 PM
>
>Is this something that can't be done with ADDRESS LINKMVS IDCAMS?

-- 
gil

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

Re: How to set time parameter in TSO/E REXX getmsg function

[Willy Jensen]

You have the statement ARG hsmcmd':'seconds  
Could it be that the seconds value is not entirely numeric?
Maybe do something like this:
 
 seconds=word(seconds 2,1)  /* set default =2 */
 if datatype(seconds)<>'NUM' then call error 'bad seconds value "'seconds"'"'

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

Re: How to set time parameter in TSO/E REXX getmsg function

[Willy Jensen]

re "why do you recommend the REXX/SDSF API rather than TSO GETMSG"
I think it is simpler to use and saves one RACF definition (CONSOLE class).

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

Re: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Bernd Oppolzer]

In C, char constants are syntactically the same as int constants.

You have two choices to write hex int or char constants:

the "int" flavor:  0xf0

the "char" flavor: '\xf0'

or simply 240

or (this is ill-fated IMO) 0360 ...
because a leading zero makes the number an octal number in C

So, yes, if you choice to use the char representation, you have to code 
apostrophes, not quotes.


(IMO, apostrophe = ', quote = ")

HTH, kind regards

Bernd


Am 17.08.2022 um 11:05 schrieb Binyamin Dissen:

Quite possible.

To confirm, it is '\xf0' with surrounding quotes of \xF0 without quotes. Or
both?


On Wed, 17 Aug 2022 09:31:18 +0200 Bernd Oppolzer 
wrote:

:>Could it be that the source has been transferred in any way?
:>
:>It would be valid, if there was a backslash before the hex constant,
:>like below;
:>backslash, followed by x, followed by two hex digits is a single char in C.
:>
:>str2 = str2 ¦ '\xF0';
:>
:>HTH, kind regards
:>
:>Bernd
:>



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

Re: rexx and IDCAMS functions

[W Mainframe]

You should use Rexx LINKMVS host command processor to call programs using a 
parameter list. 
For example to call a Cobol program :
Rexx :
rxv1='data1'rxv2='data2'Address linkmvs 'cobsamp rxv1 rxv1'(each rexx variable 
in linkmvs will be an address in plist)
Cobol :
linkage section01 rxv1 pic x(10).01 rxv2 pic x(20).procedure division using 
rxv1 rxv2.

Dan 



Sent from Yahoo Mail for iPhone


On Wednesday, August 17, 2022, 12:58 AM, Seymour J Metz  wrote:

The TSO commands that front-end IDCAMS expect a CPPL; you need ADDRESS TSO.;


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Lizette Koehler [stars...@mindspring.com]
Sent: Tuesday, August 16, 2022 10:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

I am actually using LINKMVS  and that is getting the error

I want my general user to be able to do things without knowing idcams

Lizette

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Tuesday, August 16, 2022 2:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

On Tue, 16 Aug 2022 14:18:54 -0700, Lizette Koehler  wrote:

>I am going to write a process in REXX using things like DCOLLECT  LISTC
>etc..
>
>I am running into S913-70
>
Have you looked at: 
?

>I am trying to figure out what I need to do to resolve it
>
>Something in RACF? Pads  IKJTSOxx??
>
More details?  What is your code so far?

Is this something that can't be done with ADDRESS LINKMVS IDCAMS?

--
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: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Colin Paice]

 :>>SLR  r0,r0 clear
register 2
:>>IC   r0,str2(,r13,157)  load the one
character into it
:>>Or0,=F'10995440' OR  this with
0x00A7C6F0'  (=F'10995440')  which is  a7=x c6=F f0=0   = X F 0
:>>Nr0,=F'255'   clear the
top 3 bytes .. keep the lower byte
:>>STC  r0,str2(,r13,157)  store the
character

So basically the code is oring the character with 0xf0 - which by luck is
what you wanted.


On Wed, 17 Aug 2022 at 10:05, Binyamin Dissen 
wrote:

> Quite possible.
>
> To confirm, it is '\xf0' with surrounding quotes of \xF0 without quotes. Or
> both?
>
>
> On Wed, 17 Aug 2022 09:31:18 +0200 Bernd Oppolzer <
> bernd.oppol...@t-online.de>
> wrote:
>
> :>Could it be that the source has been transferred in any way?
> :>
> :>It would be valid, if there was a backslash before the hex constant,
> :>like below;
> :>backslash, followed by x, followed by two hex digits is a single char in
> C.
> :>
> :>str2 = str2 ¦ '\xF0';
> :>
> :>HTH, kind regards
> :>
> :>Bernd
> :>
> :>
> :>
> :>Am 17.08.2022 um 09:16 schrieb Binyamin Dissen:
> :>> I have inherited some C code.
> :>>
> :>>str2 = str2 ¦ 'xF0';
> :>>str1 = str1 >> 4;
> :>>str1 = str1 ¦ 'xF0';
> :>>
> :>> These receive
> :>>
> :>> CCN4118 Character constant 'xF0' has more than 1 character.
> :>>
> :>> Examining the source4 it appears the intent is for 0xF0
> :>>
> :>> 1. Why would this be a mere informational message? Seems like it
> should be a
> :>> warning. that the sizes do not match.
> :>>
> :>> The code generated is
> :>>
> :>>
> :>> *str2 = str2 ¦ 'xF0';
> :>>SLR  r0,r0
> :>>IC   r0,str2(,r13,157)
> :>>Or0,=F'10995440'
> :>>Nr0,=F'255'
> :>>STC  r0,str2(,r13,157)
> :>> *str1 = str1 >> 4;
> :>>SLR  r0,r0
> :>>IC   r0,str1(,r13,156)
> :>>SRA  r0,4
> :>>Nr0,=F'255'
> :>>STC  r0,str1(,r13,156)
> :>> *str1 = str1 ¦ 'xF0';
> :>>SLR  r0,r0
> :>>IC   r0,str1(,r13,156)
> :>>Or0,=F'10995440'
> :>>Nr0,=F'255'
> :>>STC  r0,str1(,r13,156)
> :>>
> :>> 10995440 = x'A7C6F0' = 'xF0'
> :>>
> :>> 2. This is very old cold, not compiled for years (decades?). Was there
> a point
> :>> in C compiler history where 'this was ever a valid hex constant?
> :>>
> :>> --
> :>> 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
>
> --
> 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: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Binyamin Dissen]

Quite possible.

To confirm, it is '\xf0' with surrounding quotes of \xF0 without quotes. Or
both?


On Wed, 17 Aug 2022 09:31:18 +0200 Bernd Oppolzer 
wrote:

:>Could it be that the source has been transferred in any way?
:>
:>It would be valid, if there was a backslash before the hex constant, 
:>like below;
:>backslash, followed by x, followed by two hex digits is a single char in C.
:>
:>str2 = str2 ¦ '\xF0';
:>
:>HTH, kind regards
:>
:>Bernd
:>
:>
:>
:>Am 17.08.2022 um 09:16 schrieb Binyamin Dissen:
:>> I have inherited some C code.
:>>
:>>str2 = str2 ¦ 'xF0';
:>>str1 = str1 >> 4;
:>>str1 = str1 ¦ 'xF0';
:>>
:>> These receive
:>>
:>> CCN4118 Character constant 'xF0' has more than 1 character.
:>>
:>> Examining the source4 it appears the intent is for 0xF0
:>>
:>> 1. Why would this be a mere informational message? Seems like it should be a
:>> warning. that the sizes do not match.
:>>
:>> The code generated is
:>>
:>>
:>> *str2 = str2 ¦ 'xF0';
:>>SLR  r0,r0
:>>IC   r0,str2(,r13,157)
:>>Or0,=F'10995440'
:>>Nr0,=F'255'
:>>STC  r0,str2(,r13,157)
:>> *str1 = str1 >> 4;
:>>SLR  r0,r0
:>>IC   r0,str1(,r13,156)
:>>SRA  r0,4
:>>Nr0,=F'255'
:>>STC  r0,str1(,r13,156)
:>> *str1 = str1 ¦ 'xF0';
:>>SLR  r0,r0
:>>IC   r0,str1(,r13,156)
:>>Or0,=F'10995440'
:>>Nr0,=F'255'
:>>STC  r0,str1(,r13,156)
:>>
:>> 10995440 = x'A7C6F0' = 'xF0'
:>>
:>> 2. This is very old cold, not compiled for years (decades?). Was there a 
point
:>> in C compiler history where 'this was ever a valid hex constant?
:>>
:>> --
:>> 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

--
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: Simple JOBGROUP or Simple User

[Rob Scott]

KB,

>> SDSF folks at Rocket... job groups need some love too.

SDSF does provide information and actions for jobgroups, but we are just a user 
of the JES2 SSI interface that allows us a view into that aspect of JES 
functionality.

I suggest raising an RFE and then it will be assessed by the relevant 
development team (JES2 for base jobgroup functionality and SDSF for the "JG" 
panel interaction).

RFEs are the best way to help influence future development plans especially if 
you can garner support from user group communities like Share and GSE.

Rob Scott
Rocket Software



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
kekronbekron
Sent: 17 August 2022 03:47
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Simple JOBGROUP or Simple User

EXTERNAL EMAIL





SDSF folks at Rocket... job groups need some love too.
This feature could be very useful when used in ad-hoc job suites or workflows.
Ones that are too infrequent to warrant going into the scheduler.
Too frequent that submitting one job after another is a bore.

Kicking off a chain and letting jobs do their magic, parallel where parallel is 
needed, serial where serial is, etc.

- KB

--- Original Message ---
On Wednesday, August 17th, 2022 at 6:54 AM, Peter Vels  
wrote:


> Roger is correct; you don't need both CONCURRENT statements. In fact,
> you'll get an error with two. Note that the syntax is CONCURRENT NAME=
> job.
>
> Also, what does $D GRPDEF show?
> If you are seeing CONCURRENT_MAX=0 (which is the default) then change
> it to
> 2 (or more if you like) with command: $T GRPDEF,CONCURRENT_MAX=2
>
>
>
> This worked for me:
>
>
>
> //DRCPYFC JOBGROUP
>
> //DRCPYFC1 GJOB
>
> // CONCURRENT NAME=DRCPYFC2
>
> //DRCPYFC2 GJOB
>
> //DRCPYFC ENDGROUP
>
> //* ---
>
> //DRCPYFC1 JOB (ACCT#),'DR COPY ',CLASS=A,
>
> // MSGCLASS=X,REGION=800M
>
> // SCHEDULE JOBGROUP=DRCPYFC
>
> //STUFF1 EXEC PGM=IEFBR14
>
> //DRCPYFC2 JOB (ACCT#),'DR COPY ',CLASS=A,
>
> // MSGCLASS=X,REGION=800M
>
> // SCHEDULE JOBGROUP=DRCPYFC
>
> //STUFF2 EXEC PGM=IEFBR14
>
>
> Regards,
>
> Peter
>
>
> On Wed, 17 Aug 2022 at 06:52, Roger W Suhr suhr...@gmail.com wrote:
>
> > Hi,
> >
> > Maybe you can try this:
> >
> > //DRCPYFC JOBGROUP
> > //DRCPYFC1 GJOB
> > // CONCURRENT NAME=DRCPYFC2
> >
> > I'm not sure you need two CONCURRENT statement
> >
> > Roger W. Suhr
> >
> > suhr...@gmail.com
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On
> > Behalf Of Tom Longfellow
> > Sent: Tuesday, August 16, 2022 16:40
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Simple JOBGROUP or Simple User
> >
> > My forehead is bruised from beating it against the wall. I am trying
> > to set up a simple JOBGROUP with two simultaneous jobs. Here is my
> > JCL (excerpted for brevity) //DRCPYFC JOBGROUP
> > //DRCPYFC1 GJOB
> > // CONCURRENT=DRCPYFC2
> > //DRCPYFC2 GJOB
> > // CONCURRENT=DRCPYFC1
> > //DRCPYFC ENDGROUP
> > //* ---
> > //DRCPYFC1 JOB (ACCT#),'DR COPY ',CLASS=A, // MSGCLASS=X,REGION=800M
> > // SCHEDULE JOBGROUP=DRCPYFC
> > //* stuff to do
> > //DRCPYFC2 JOB (ACCT#),'DR COPY ',CLASS=A, // MSGCLASS=X,REGION=800M
> > // SCHEDULE JOBGROUP=DRCPYFC
> > //* more stuff to do
> >
> > Jes is rejecting this masterpiece with:
> >
> > $HASP100 DRCPYFC ON INTRDR FROM TSU17899 TECHXXX
> > $HASP1110 DRCPYFC -- Illegal JOBGROUP card - card not valid within
> > JOBGROUP
> > $HASP1110 DRCPYFC -- Illegal JOBGROUP card - card not valid within
> > JOBGROUP IRR010I USERID TECH905 IS ASSIGNED TO THIS JOB.
> > $HASP DRCPYFC -- ENDGROUP card - JOBGROUP DRCPYFC contains
> > errors
> >
> > I tweak, I read the manual (many times). But must be missing something.
> > It did run once, but sequentially - not concurrently. I added
> > CONCURRENT cards and this is where I am.
> >
> > What funny little JES syntax did I miss? I modeled this on the
> > sample in the book.
> >
> > 
> > -- For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: 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


Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
Main Office Toll Free Number: +1 855.577.4323

Re: C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Bernd Oppolzer]

Could it be that the source has been transferred in any way?

It would be valid, if there was a backslash before the hex constant, 
like below;

backslash, followed by x, followed by two hex digits is a single char in C.

str2 = str2 ¦ '\xF0';

HTH, kind regards

Bernd



Am 17.08.2022 um 09:16 schrieb Binyamin Dissen:

I have inherited some C code.

   str2 = str2 ¦ 'xF0';
   str1 = str1 >> 4;
   str1 = str1 ¦ 'xF0';

These receive

CCN4118 Character constant 'xF0' has more than 1 character.

Examining the source4 it appears the intent is for 0xF0

1. Why would this be a mere informational message? Seems like it should be a
warning. that the sizes do not match.

The code generated is


*str2 = str2 ¦ 'xF0';
   SLR  r0,r0
   IC   r0,str2(,r13,157)
   Or0,=F'10995440'
   Nr0,=F'255'
   STC  r0,str2(,r13,157)
*str1 = str1 >> 4;
   SLR  r0,r0
   IC   r0,str1(,r13,156)
   SRA  r0,4
   Nr0,=F'255'
   STC  r0,str1(,r13,156)
*str1 = str1 ¦ 'xF0';
   SLR  r0,r0
   IC   r0,str1(,r13,156)
   Or0,=F'10995440'
   Nr0,=F'255'
   STC  r0,str1(,r13,156)

10995440 = x'A7C6F0' = 'xF0'

2. This is very old cold, not compiled for years (decades?). Was there a point
in C compiler history where 'this was ever a valid hex constant?

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

C compile: INFORMATIONAL CCN4118 **name** C F1:2008 Character constant 'xF0' has more than 1 character.

[Binyamin Dissen]

I have inherited some C code.

  str2 = str2 ¦ 'xF0'; 
  str1 = str1 >> 4;
  str1 = str1 ¦ 'xF0';  

These receive

CCN4118 Character constant 'xF0' has more than 1 character.  

Examining the source4 it appears the intent is for 0xF0

1. Why would this be a mere informational message? Seems like it should be a
warning. that the sizes do not match.

The code generated is


*str2 = str2 ¦ 'xF0';  
  SLR  r0,r0   
  IC   r0,str2(,r13,157)   
  Or0,=F'10995440' 
  Nr0,=F'255'  
  STC  r0,str2(,r13,157)   
*str1 = str1 >> 4; 
  SLR  r0,r0   
  IC   r0,str1(,r13,156)   
  SRA  r0,4
  Nr0,=F'255'  
  STC  r0,str1(,r13,156)   
*str1 = str1 ¦ 'xF0';  
  SLR  r0,r0   
  IC   r0,str1(,r13,156)   
  Or0,=F'10995440' 
  Nr0,=F'255'  
  STC  r0,str1(,r13,156)   

10995440 = x'A7C6F0' = 'xF0'

2. This is very old cold, not compiled for years (decades?). Was there a point
in C compiler history where 'this was ever a valid hex constant?

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