Re: Name conflict: CICS macro name IDENTIFY conflicts with MVS macro name IDENTIFY

[Ward Able, Grant]

As stated by IBM Hursley (John Tilling) on the CICS-List,  CICS does not ship 
an IDENTIFY macro!

Regards - Grant.
Telephone Internal: 201496 (London)

EAM - Enterprise Application Middleware

In theory, there's no difference between theory and practice. In practice, 
there is.

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

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden



DTCC Public (White)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: 20 July 2022 14:18
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Name conflict: CICS macro name IDENTIFY conflicts with MVS macro 
name IDENTIFY

ATTENTION: External Email - Be Suspicious of Attachments, Links and Requests 
for Login Information.

IDENTIFY has existed and been documented since Old Man Noach got high on PCP. 
Yes, CICS should have known better.

The RFE wouldn't be for unique names; that ship has sailed. It would be for new 
syntax on COPY.

If your program needs both, you're screwed. Welcome to CM Hell.


--
Shmuel (Seymour J.) Metz
https://nam02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=05%7C01%7Cgwardable%40DTCC.COM%7C84a10466544949519ea508da6a5254cd%7C0465519d7f554d47998b55e2a86f04a8%7C0%7C0%7C637939199102819262%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=RmTDzrKLqfpMeWzgN3LzujQbqe9CNNgHDschdGnwYwY%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Paul Gilmartin [042bfe9c879d-dmarc-requ...@listserv.ua.edu]
Sent: Wednesday, July 20, 2022 9:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Name conflict: CICS macro name IDENTIFY conflicts with MVS macro 
name IDENTIFY

On Wed, 20 Jul 2022 12:18:56 +, Seymour J Metz wrote:

>There is no COPY ddname(member) in HLASM. That sounds like an obvious 
>candidate for an RFE.
>
Hasn't the MVS macro name IDENTIFY existed long enough that CICS should have 
known better?

That's not an RFE; tt's a bug; BAD.  Suppose a program needs both services.


>-Original Message-
>From: Farley, Peter x23353
>Sent: Tuesday, July 19, 2022 2:07 PM
>
>Cross-posted to IBM-MAIN and CICS-L.
>
>We just encountered this.  Our SDLC mechanism has CICS.BASE.MACLIB (an 
>ALIAS for the current product version library) positioned in the 
>assembler translate step BEFORE the SYS1.MACLIB library.  SOP, put all 
>licensed product libraries ahead of base system libraries, right?
>
>Not in this case.  Turns out we have some old assembler ode that uses 
>the MVS IDENTIFY macro for reasonable business purposes, but now the 
>CICS MACLIB ALSO has a macro named IDENTIFY.

--
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
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses. The company accepts no liability for any damage caused by any virus 
transmitted by this email. Message content created by DTCC is automatically 
secured using Transport Layer Security (TLS) encryption and will be encrypted 
and sent through a secure transmission connection if the recipient's system is 
configured to support TLS on the incoming email gateway. If there is no TLS 
configured or the encryption certificate is invalid on the recipient's system, 
the email communication will be sent through an unencrypted channel. 
Organizations communicating with DTCC should be using TLS v1.2 or newer to 
ensure continuation of encrypted communications. DTCC will not be responsible 
for any disclosure of private information or any related security incident 
resulting from an organization's inability to receive secure electronic 
communications through the current version of TLS.

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

Re: Rexx routine to dump all variables when debugging?

[Ward Able, Grant]

I am interested in this routine please!
gwardable at dtcc dot comm

Regards – Grant.
Telephone Internal: 201496 (London)
Telephone External: +44 (0)207 650 1496

EAM – Enterprise Application Middleware

In theory, there's no difference between theory and practice. In practice, 
there is.

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

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden



DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of W 
Mainframe
Sent: 17 February 2022 01:39
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Rexx routine to dump all variables when debugging?

ATTENTION: External Email – Be Suspicious of Attachments, Links and Requests 
for Login Information.

Hey,Provide me your email and I will send a routine to list  rexx variables. In 
my routine you will be able to search variables current rexx pool showing the 
result in sysout or you can start a panel showing a browse of these variables 
to checking or updating.Dan


Sent from Yahoo Mail for iPhone


On Wednesday, February 16, 2022, 6:47 PM, Farley, Peter x23353 
<031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:

Thanks Lionel, I will check that out.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Lionel B. Dyck
Sent: Wednesday, February 16, 2022 12:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Rexx routine to dump all variables when debugging?

The only thing that comes to mind is the STEMEDIT from CBT File 895.  It 
doesn't 'dump' the list but does allow viewing using ISPF.

Perhaps you could take that and adjust to do the 'dump'..


Lionel B. Dyck

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Farley, Peter x23353
Sent: Wednesday, February 16, 2022 11:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Rexx routine to dump all variables when debugging?

Sent to both IBM-MAIN and TSO-REXX

Is there any available routine / function package that a z/OS TSO Rexx program 
can use like the oorexx function SysDumpVariables for debugging purposes?

I have looked through the CBT File001 descriptions and looked at both Mark 
Zelden and Lionel Dyck's pages but found nothing like this available.  My 
google-fu has failed me as well, nothing but the oorexx function turns up in 
any of my searches.

TIA for any pointer or RTFM you can provide.

Peter
--

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.

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




--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses. The company accepts no liability for any damage caused by any virus 
transmitted by this email. Message content created by DTCC is automatically 
secured using Transport Layer Security (TLS) encryption and will be encrypted 
and sent through a secure transmission connection if the recipient's system is 
configured to support TLS on the incoming email gateway. If there is no TLS 
configured or the encryption certificate is invalid on the recipient's system, 
the email communication will be sent through an unencrypted channel. 
Organizations communicating with DTCC should be using TLS v1.2 or newer to 
ensure continuation of encrypted communications. DTCC will not be responsible 
for any disclosure of private information or any related security incident 
resulting from an organization's inability to receive secure electronic 
communications through the current version of TLS.


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

Re: EAGREX0500E Error 5 . Machine storage exhausted or request exceeds limit in REXX

[Ward Able, Grant]

From what I can find, VARSTORAGE only pertains to OUTTRAP:

VARSTORAGE (HIGH)
indicates that CLIST variables and REXX OUTTRAP variables containing output 
from authorized commands invoked by REXX can be kept in storage above the 16M 
line.

Regards – Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

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

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden



DTCC Public (White)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Hobart Spitz
Sent: 15 December 2021 00:39
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EAGREX0500E Error 5 . Machine storage exhausted or request exceeds 
limit in REXX

ATTENTION: External Email – Be Suspicious of Attachments, Links and Requests 
for Login Information.

I don't think anyone has suggested PROFILE VARSTORAGE(HIGH).

On Tuesday, December 14, 2021, Paul Gilmartin < 
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Tue, 14 Dec 2021 23:14:10 +, Gibney, Dave wrote:
>
> >Can you stop with the non-breaking space failing html
> >
> It's not exactly HTML.  I see:
>
> Content-Transfer-Encoding: base64
> Content-Type: text/plain; charset="gb18030"
> ...
> From: =?gb18030?B?aWJtbWFpbg==?= <...>
>
> But still, something was lost in translation.
>
> >> -Original Message-
> >> ...
> >> REGION=0Misstilllikelytobes
> >> u bjecttosystemwidelimits.
> >> IsitpossibletohaveREXXput&
> >> nbsp;STEMandotherstuffinto64bi
> >> tmemory
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


--
OREXXMan
Would you rather pass data in move mode (*nix piping) or locate mode
(Pipes) or via disk (JCL)?  Why do you think you rarely see *nix commands with 
more than a dozen filters, while Pipelines specifications are commonly over 
100s of stages, and 1000s of stages are not uncommon.
REXX is the new C.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses. The company accepts no liability for any damage caused by any virus 
transmitted by this email. Message content created by DTCC is automatically 
secured using Transport Layer Security (TLS) encryption and will be encrypted 
and sent through a secure transmission connection if the recipient's system is 
configured to support TLS on the incoming email gateway. If there is no TLS 
configured or the encryption certificate is invalid on the recipient's system, 
the email communication will be sent through an unencrypted channel. 
Organizations communicating with DTCC should be using TLS v1.2 or newer to 
ensure continuation of encrypted communications. DTCC will not be responsible 
for any disclosure of private information or any related security incident 
resulting from an organization's inability to receive secure electronic 
communications through the current version of TLS.


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

Re: System Programmer Titles

[Ward Able, Grant]

Associate Director :-)

Regards - Grant.
In theory, there's no difference between theory and practice. In practice, 
there is.

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

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden



DTCC Public (White)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Herring, Bobby
Sent: 11 October 2021 21:28
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: System Programmer Titles

ATTENTION: External Email - Be Suspicious of Attachments, Links and Requests 
for Login Information.

I asked this question back in 2004. My boss wants to know if there are any new 
titles to add to the list below.

Mainframe Engineer
Operating Systems Architect
Software Engineer
Software Project Specialist
Software Specialist
System Analyst
System Architect
System Engineer
System Programmer
Systems Programming Specialist
Systems Specialist
Technical Advisor
Technical Analyst
Technical Services Professional
Technical Specialist

What title do you have as a system programmer?

Bobby Herring
Texas Farm Bureau Insurance

From: IBM Mainframe Discussion List  On Behalf Of 
Kirk Wolf
Sent: Wednesday, July 22, 2020 3:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SFTP and z/OS Migration

CAUTION: This email message originated from outside the organization. Do not 
click on links or open attachments unless you recognize the sender and know the 
content is safe.

IBM z/OS OpenSSH is a base feature of z/OS since V2R2.
When you install a new version of z/OS you will get a new version.
There are often migration actions from IBM having to do with /etc/ssh 
configuration settings. When moving releases you would at minimum want to 
review any changes that you made from the IBM /samples and the new /samples and 
merge those as appropriate.

BTW: Here's a quick start guide that we have on customizing IBM z/OS
OpenSSH:
https://nam02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fdovetail.com%2Fdocs%2Fpt-quick-inst%2Findex.htmldata=04%7C01%7Cgwardable%40DTCC.COM%7C1161a2a39fca4fc5a9d308d98cf5ab39%7C0465519d7f554d47998b55e2a86f04a8%7C0%7C1%7C637695809036309237%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000sdata=P8uuZKJqoBa1EA3WXOjTmBo96lmsXi1p3cHVeHpIQzk%3Dreserved=0

Kirk Wolf
https://nam02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fdovetail.com%2Fdata=04%7C01%7Cgwardable%40DTCC.COM%7C1161a2a39fca4fc5a9d308d98cf5ab39%7C0465519d7f554d47998b55e2a86f04a8%7C0%7C1%7C637695809036309237%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000sdata=Wd0ycANdyhwW3mg1RckKxrcqv5eRPyHR27UKc7qi1Pw%3Dreserved=0

On Wed, Jul 22, 2020 at 2:14 PM Roberto Halais 
mailto:roberto.hal...@gmail.com>>
wrote:

> Listers:
>
> My company has decided to forego FTP and go the SFTP way.
>
> I have installed OPENSSH and have SFTP working.
>
> I installed using the IBM user's guide and everything installed in the 
> default libraries.
>
> My concern is, when we migrate to a new z/OS release do I have to do 
> the whole install again?
>
> Can I, from the beginning, install all the SSH libraries in a 
> different filesystem so that when I migrate I can just mount the 
> filesystem and execute.
> And later on install the new version Openssh.
>
> Don't know if I am clear in what I am asking.
>
> Just some tips on facilitating installing under a new release.
>
> 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: Windows FTPS client

[Ward Able, Grant]

With my FTP software (Ipswitch WS_FTP) I have to have a different session for 
zOS and OMVS files. For OMVS files, I have to specify the host type of Unix 
(standard)

Regards – Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

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

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden



DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Ward, Mike S
Sent: 29 July 2021 15:52
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Windows FTPS client

ATTENTION: External Email – Be Suspicious of Attachments, Links and Requests 
for Login Information.

Yes, port 21. I tested hummingbird FTP and when it connects to port 21 for  
FTPS it can access both the OMVS system and z\OS datasets. It's a pricey 
product.



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Joe 
Monk
Sent: Thursday, July 29, 2021 9:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXT] Re: Windows FTPS client

Please Note: This email is from an [EXTERNAL] sender. Do not click on links or 
attachments unless you expect them from the sender and know the content is 
safe. Please contact the Service Desk if you have any concerns regarding this 
message.



Does the same FTP server have access to both Z/os and OMVS datasets?

Maybe there is a different FTP address to get to OMVS files, which would 
communicate with the ZFS filesystem?

Joe

On Thu, Jul 29, 2021 at 9:43 AM Ward, Mike S  wrote:

> I did, I can access the z\OS datasets, but I can't figure out how to 
> do the OMVS files. Could you share that info please.
>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of TSDunlap
> Sent: Thursday, July 29, 2021 9:42 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [EXT] Re: Windows FTPS client
>
> Please Note: This email is from an [EXTERNAL] sender. Do not click on 
> links or attachments unless you expect them from the sender and know 
> the content is safe. Please contact the Service Desk if you have any 
> concerns regarding this message.
>
>
>
> On 7/29/2021 9:54 AM, Ward, Mike S wrote:
> > Hello all, and good day. I was wondering if there are any Windows 
> > FTPS
> (Not SFTP) client recommendations. I'm looking for a client that can 
> handles z/OS datasets as well as OMVS files. Preferably free, but will 
> look at paid for clients also.
> >
> > Thanks.
> >
> >
> > ==
> > This email, and any files transmitted with it, is confidential and
> intended solely for the use of the individual or entity to which it is 
> addressed. If you have received this email in error, please notify the 
> system manager. This message contains confidential information and is 
> intended only for the individual named. If you are not the named 
> addressee, you should not disseminate, distribute or copy this e-mail.
> Please notify the sender immediately by e-mail if you have received 
> this message by mistake and delete this e-mail from your system. If 
> you are not the intended recipient, you are notified that disclosing, 
> copying, distributing or taking any action in reliance on the contents 
> of this information is strictly prohibited.
> >
> > 
> > -- For IBM-MAIN subscribe / signoff / archive access instructions, 
> > send email to lists...@listserv.ua.edu with the message: INFO 
> > IBM-MAIN
>
> Try FileZilla.
>
> --
>
> __
> __
> Regards,
> Thomas Dunlap   Independent Consultant   tsdun...@wowway.com   cell-614
> 975-4801
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> ==
> This email, and any files transmitted with it, is confidential and 
> intended solely for the use of the individual or entity to which it is 
> addressed. If you have received this email in error, please notify the 
> system manager. This message contains confidential information and is 
> intended only for the individual named. If you are not the named 
> addressee, you should not disseminate, distribute or copy this e-mail.
> Please notify the sender immediately by e-mail if you have received 
> this message by mistake and delete this e-mail from your system. If 
> you are not the intended recipient, you are notified that disclosing, 
> copying, distributing or taking any action in reliance on the contents 
> of this information is strictly prohibited.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to 

Re: a Way to stop receiving Post email from my Yahoo email.

[Ward Able, Grant]

I think you have to send an email to the list server - something about NOMAIL, 
but you can try send an email to mailto:lists...@listserv.ua.edu with the 
message: INFO IBM-MAIN

Regards – Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

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

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden



DTCC Public (White)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
seungcheol lee
Sent: 22 February 2021 22:23
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: a Way to stop receiving Post email from my Yahoo email.

ATTENTION: External Email – Be Suspicious of Attachments, Links and Requests 
for Login Information.

Dear,

Would please help remove my email from sending emails? Just want to stay with 
Listsever but help stop receiving those posts from my Yahoo email.

lee_seungch...@yahoo.com

Thanks, Steve

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses. The company accepts no liability for any damage caused by any virus 
transmitted by this email. Message content created by DTCC is automatically 
secured using Transport Layer Security (TLS) encryption and will be encrypted 
and sent through a secure transmission connection if the recipient's system is 
configured to support TLS on the incoming email gateway. If there is no TLS 
configured or the encryption certificate is invalid on the recipient's system, 
the email communication will be sent through an unencrypted channel. 
Organizations communicating with DTCC should be using TLS v1.2 or newer to 
ensure continuation of encrypted communications. DTCC will not be responsible 
for any disclosure of private information or any related security incident 
resulting from an organization's inability to receive secure electronic 
communications through the current version of TLS.


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

Re: Goodbye.

[Ward Able, Grant]

Alles van die beste, Kees.


Regards – Grant.


In theory, there's no difference between theory and practice. In practice, 
there is.

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

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden




DTCC Public (White)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Richards, Robert B.
Sent: 03 August 2020 12:17
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Goodbye.

ATTENTION: External Email – Be Suspicious of Attachments, Links and Requests 
for Login Information.

Kees,

> and where I could answer some questions too.

That is a complete understatement. You gave more answers than you got and the 
community was better off for your presence on this list. Your contributions 
will be missed, and the fact that because of the time difference, you always 
had answers before the East Coast of the US even knew there was a problem! 

Don't cut us off by unsubscribing! Pull a Gen. Douglas MacArthur ("I shall 
return!"). If not, enjoy retirement, knowing that the list will go on, just not 
the same.

Bob

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Vernooij, Kees (ITOP NM) - KLM
Sent: Monday, August 3, 2020 3:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Goodbye.

After more than 41 years working as a mainframe systems programmer, the time 
has come for me to say goodbye.
I enjoyed the mainframe world in all the aspects that I worked with, from SVS 
1.7 to z/OS 2.4, from a 370/158 to a z13s and all other flavours that came and 
went in the past decades.

It was a pleasure and an honour to participate in the ibm-main group, with all 
its high technical skills, that gave me so many answers and where I could 
answer some questions too.
But most I enjoyed the company of this global community, where I met people 
from all over the world, with their unlimited willingness to help others, their 
humour, their rants and their Friday afternoon subjects. I am really gonna miss 
all this.

I will retire on the 11th and unsubscribe then.
I wish you all the best!

Kees.


For information, services and offers, please visit our web site: 
http://www.klm.com. This e-mail and any attachment may contain confidential and 
privileged material intended for the addressee only. If you are not the 
addressee, you are notified that no part of the e-mail or any attachment may be 
disclosed, copied or distributed, and that any other action related to this 
e-mail or attachment is strictly prohibited, and may be unlawful. If you have 
received this e-mail by error, please notify the sender immediately by return 
e-mail, and delete this message.

Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its 
employees shall not be liable for the incorrect or incomplete transmission of 
this e-mail or any attachments, nor responsible for any delay in receipt.
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch 
Airlines) is registered in Amstelveen, The Netherlands, with registered number 
33014286


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

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses. The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: "Everyone wants to retire mainframes"

[Ward Able, Grant]

There's no such thing as The Cloud - it's just someone else's computer...


Regards – Grant.




DTCC Public (White)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mitch Mccluhan
Sent: 09 June 2020 13:51
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: "Everyone wants to retire mainframes"

ATTENTION: External Email – Be Suspicious of Attachments, Links and Requests 
for Login Information.

 Everyone,
I can tell you as a fact that there are a number of things are true.  Many 
"modernization" projects do end up not being completed, no big mainframe shop 
is looking to get off the mainframe, there are a large number of projects 
underway where the client is "modernizing" on the mainframe (language, file 
conversion, DBMS conversion, etc) and lastly (not a lot, but some) there are 
mainframe shops that are going to the zCloud which is essentially moving from 
one data center to another, keeping the mainframe.
Anyone who tells you most (100%?, really?) mainframe users are going to 
distributed or distributed platform cloud are exaggerating the truth.  I know 
this because mainframe modernization is what I do for a living.
Mitch


-Original Message-
From: Bob Bridges 
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Tue, Jun 9, 2020 7:02 am
Subject: "Everyone wants to retire mainframes"

A coworker just sent me this brief article.

https://nam02.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.techrepublic.com%2Farticle%2Feveryone-wants-to-retire-mainframes-but-74-of-modernization-efforts-fail%2Fdata=02%7C01%7Cgwardable%40DTCC.COM%7Cfe5df2a430cb4910820008d80c73d5bb%7C0465519d7f554d47998b55e2a86f04a8%7C0%7C1%7C637273038932904759sdata=ZxLg5w7uOZfrziPaK5scu%2BrGvGtTSjxkIafKyfwlvfE%3Dreserved=0

I'm interested in two aspects of this:

1) The writer uses the word "modernization" quite a bit, and as far as I can 
tell she uses it, without explanation, to mean "switching from mainframes to 
more recently invented platforms".  This is the old assumption we've talked 
about recently.

2) There's a really surprising number in there:

"...almost 100% of survey respondents plan to move legacy applications to the 
cloud this year and the motivation to move is clear:

- 60% strongly agree they will be left behind competitively if they fail to 
modernize
- 33% say modernizing has allowed the company to be more reactive to market 
changes
- 34% say legacy modernization has accelerated digital transformation projects

About three-quarters of leaders said they have started a modernization program 
but failed to complete it"

Can that "almost 100%" claim be true?  I confess that three out of my last 
three clients are talking about eliminating the mainframe, but I supposed it to 
be an anomaly.  Maybe the survey used the word "modernize" and the author 
~assumed~ this must mean dropping the mainframe.

The article also says "Mainframes are still critical to business operations 
with 71% of the Fortune 500 depending on these machines, including 92 of the 
world's 100 largest banks".  Come on - she's telling us that almost ~all~ of 
those companies intend to switch legacy applications to the cloud?  I just 
can't buy that.  ~My~ bank had certainly better not be planning such a move.

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* If a problem has a single neck, it has a simple solution. */

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

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses. The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: Editing HLASM source with Visual Studio - columns 73-80

[Ward Able, Grant]

>>> Is there a batch method to UNNUM all members in a list of PDS's?
I guess you would have to write an EDIT macro.
Then write a REXX exec to invoke that macro for each member 


Regards – Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

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

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden




DTCC Public (White)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Support, DUNNIT SYSTEMS LTD.
Sent: 10 December 2019 16:41
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Editing HLASM source with Visual Studio - columns 73-80

ATTENTION! This email originated outside of DTCC; exercise caution.

Hi Peter,

Thanks for your reply.

>> Maybe press the "Insert" key on your PC keyboard to overtype instead of 
>> inserting characters?
>> Or a combination of insert-on and insert-off typing?

Yes, I know that. My question was in hope that there might be some editor 
setting which keeps anything past a specific column as static, thereby 
mimicking the behavior of ISPF's editor.

>> But first a more general question:  Why in the world are you still using 
>> sequence numbers in 73-80?

Legacy code is many source members in many PDS's. But that bring up another 
question: Is there a batch method to UNNUM all members in a list of PDS's?

>> I haven't had any use or need for sequence numbers in 73-80 on an MVS or 
>> derivative OS in over 3 decades.

As you can read, I am ready to kiss them goodbye.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses. The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: CICS term _BLINK_

[Ward Able, Grant]

Carlos - probably best to ask this on the dedicated CICS list 
cic...@listserv.uga.edu you can subscribe here: 
https://listserv.uga.edu/cgi-bin/wa?SUBED1=CICS-L=1

I don't remember the details, but you would have to turn on an attribute in a 
MAP or in the 3270 datastream.


Regards - Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

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

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden




DTCC Public (White)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
CarlosM Martinez
Sent: 10 December 2019 16:13
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: CICS term _BLINK_

ATTENTION! This email originated outside of DTCC; exercise caution.

Hello all;

one of our programmers wants to make some of the fields in his online App BLINK.

I think it is in the TYPETERM profile in CEDA but his term is AUTOINSTALL'ed So 
if a terminal in CICS is autoinstalled does anyone know

Where in CEDA do I set the extended attributes to make this terminal blink?



Thank you;



Carlos Martinez

SUNY Downstate.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses. The company accepts no liability for any damage caused by any virus 
transmitted by this email.

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

Re: Copying portions of a huge data set

[Ward Able, Grant]

This may be simplistic, but using REXX & EXECIO, as long as you can identify 
the errant data easily enough, you should be able to get this done fairly 
easily. Maybe not as quick as REPRO, but without much hassle. 




Regards – Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

There is no such thing as the Cloud. It is just somebody else’s computer.

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden




DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jesse 1 Robinson
Sent: 25 June 2019 23:31
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Copying portions of a huge data set

ATTENTION! This email originated outside of DTCC; exercise caution.

With 22,807,898 lines in the file, it took a lot of 'inspection' to understand 
why our log print program was getting S0C7. The intrusive user junk always 
starts with 'J E S 2  J O B  L O G'. OTOH every true syslog record seems to 
have an alpha character in position 1 that can be found with "f p'@' 1 word". 
Hence the relevant line numbers can be found easily with alternating ISPF 
browse commands. But very hard to turn into a simple algorithm.

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jerry Whitteridge
Sent: Tuesday, June 25, 2019 1:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Copying portions of a huge data set

Can you only identify the bad data by the line numbers or is there a keyword in 
the log entries that you can include/exclude by ?

Jerry Whitteridge
Delivery Manager / Mainframe Architect
GTS - Safeway Account
602 527 4871 Mobile
jerry.whitteri...@ibm.com

IBM Services

IBM Mainframe Discussion List  wrote on
06/25/2019 01:07:12 PM:

> From: Jesse 1 Robinson 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 06/25/2019 01:08 PM
> Subject: [EXTERNAL] Copying portions of a huge data set Sent by: IBM 
> Mainframe Discussion List 
>
> We have a file that contains one month's worth of syslog/operlog data.
> Unfortunately a user's job output has infiltrated this file at random 
> points by inappropriate use of MSGCLASS. I want to copy the good data 
> (log stuff) to another file and leave the errant user stuff behind. It 
> seems simple, but I can't seem to tweak a utility like REPRO (with 
> SKIP and COUNT) to do what I want. I've browsed the file and 
> identified by line number where each good data starts/ends and where 
> the bad data starts/ends, like this:
>
> 01 - log
> 932964 - job
> 933148 - log
> 0001539016 - job
> ...
> 0022175585 - job
> 0022176053 - EOD log
>
> The output file should contain just the 'log' data. Suggestions?
>
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-543-6132 Office <= NEW
> robin...@sce.com
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: XML File to MQ

[Ward Able, Grant]

If you are using MQ Server, rather than MQ Client, then you can use channel 
compression, which works well for text based data, such as xml files. We use 
these in some of our channels:
 COMPHDR('SYSTEM') COMPMSG('ZLIBFAST')



Regards – Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

There is no such thing as the Cloud. It is just somebody else’s computer.

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden


DTCC Public (White)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ron Thomas
Sent: 05 March 2019 18:39
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: XML File to MQ

ATTENTION! This email originated outside of DTCC; exercise caution.


Hi . I am working in one of the data migration projects where are sending item 
related details to a 3'rd party system .  We have around 300K items and we are 
planning to send through a XML file in 4 batches . One Item has got around 400 
lines of information.

So our question is it ok  to send such huge volume of xml data (75000*400 = 30 
Million lines of data).

what are the kind of failures we see here ? is this approach good in production 
environment ? Would like to get some suggestions on this  .

Regards
Ron T

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: Using IF/THEN/ELSE for return code checking

[Ward Able, Grant]

Thanks Rex

Regards – Grant



DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Pommier, Rex
Sent: 17 January 2019 13:42
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using IF/THEN/ELSE for return code checking

Grant,

Would it work to use an IF-THEN-ELSE in the ADRDSSU step:

IF MAXCC LE 4 THEN SET MAXCC=0

Then you should be able to just check for RC=0 in your IF statement at the end 
of the job 

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Ward Able, Grant
Sent: Thursday, January 17, 2019 3:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Using IF/THEN/ELSE for return code checking

This seems simple and I may be having a senior moment, but I don’t seem to be 
able to get this to work.
I have a number of batch jobs that do ADRDSSU backups, then execute a variable 
number of PROC statements to copy files. 
 TSOBATCH PGM=IKJEFT01 CC=  
 BKDSNPGM=ADRDSSU  CC= 0004 

Each PROC causes a series of steps to execute:
 CLEARIT  PGM=IEBCOPY  CC=  
 COPYSPGM=IEBCOPY  CC=  
 COPYQPGM=IEBCOPY  CC=  
 CLEARIT  PGM=IEBCOPY  CC=  
 COPYBPGM=IEBCOPY  CC=  
 CHKQMGR  PGM=IKJEFT01 CC= 

Then the final step is to check the return codes and issue an alert for RC > 0
//NOTIFY   IF (ABEND | RC > 0) THEN   
//ALERTEXEC PGM=CICCRE01  
//SYSPRINT  DD SYSOUT=*   
//NOTIFYX   ENDIF 

My question is this: how do I code the IF/THEN(/ELSE) to allow for RC=4 from 
step BKDSN? I do not want an alert if this is the case, but any other step > 0 
should give me an alert.

Regards – Grant


DTCC Internal (Green)
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: [External] Re: Using IF/THEN/ELSE for return code checking

[Ward Able, Grant]

I will give this a try in the real world. In my tests it has proven to be 
correct. 
Thanks Jon

Regards – Grant



DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jon Jon
Sent: 17 January 2019 21:51
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [External] Re: Using IF/THEN/ELSE for return code checking

ATTENTION! This email originated outside of DTCC; exercise caution.


Isn't it
   IF (ABEND|¬(RC=0|BKDSN.RC<=4)) THEN
ALERT
   ENDIF

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Using IF/THEN/ELSE for return code checking

[Ward Able, Grant]

This seems simple and I may be having a senior moment, but I don’t seem to be 
able to get this to work.
I have a number of batch jobs that do ADRDSSU backups, then execute a variable 
number of PROC statements to copy files. 
 TSOBATCH PGM=IKJEFT01 CC=  
 BKDSNPGM=ADRDSSU  CC= 0004 

Each PROC causes a series of steps to execute:
 CLEARIT  PGM=IEBCOPY  CC=  
 COPYSPGM=IEBCOPY  CC=  
 COPYQPGM=IEBCOPY  CC=  
 CLEARIT  PGM=IEBCOPY  CC=  
 COPYBPGM=IEBCOPY  CC=  
 CHKQMGR  PGM=IKJEFT01 CC= 

Then the final step is to check the return codes and issue an alert for RC > 0
//NOTIFY   IF (ABEND | RC > 0) THEN   
//ALERTEXEC PGM=CICCRE01  
//SYSPRINT  DD SYSOUT=*   
//NOTIFYX   ENDIF 

My question is this: how do I code the IF/THEN(/ELSE) to allow for RC=4 from 
step BKDSN? I do not want an alert if this is the case, but any other step > 0 
should give me an alert.

Regards – Grant


DTCC Internal (Green)
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: Knowledge Centre - (was Re: Rant)

[Ward Able, Grant]

I have voted for these.
Will these be for ALL Knowledge Centres, or just the z/OS ones?



In theory, there's no difference between theory and practice. In practice, 
there is.

There is no such thing as the Cloud. It is just somebody else’s computer.

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden


DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Marna WALLE
Sent: 07 December 2018 14:50
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Knowledge Centre - (was Re: Rant)

ATTENTION! This email originated outside of DTCC; exercise caution.


Carmen (and others):
As you know, I've been "vocal" about getting KC (at least on the internet) to a 
point where I can better do my job.  We do have some RFEs out there which you 
might want to vote on and which I agree with:

Currently at 19 votes as an Uncommitted Candidate,  "IBM KnowledgeCenter is 
Difficult to Use Especially for Searching within a Manual" (deals with a "one 
book" search and knowing what book you are going to):
https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe_ID=93288

Currently at 20 votes as a "Submitted"  , "IBM KnowledgeCenter is Difficult to 
Use Especially for Searching within a Manual":
https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe_ID=90793

We have had some improvements here, and I do still want a couple more - 
particularly the same-book-search capability.  The RFEs above are the ones that 
I'm watching.

-Marna WALLE
z/OS System Installation and Upgrade
IBM Poughkeepsie

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: ASMA034E

[Ward Able, Grant]

Thanks a lot Greg. I am sure to have fun with that!

Regards – Grant



DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Greg Price
Sent: 15 November 2018 15:18
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ASMA034E

ATTENTION! This email originated outside of DTCC; exercise caution.


On 2018-11-16 1:47 AM, Ward Able, Grant wrote:
> Can someone point me to a reasonably simple example?

If you can do branch instructions then you can do branch-relative instructions. 
Apart from RR instructions (BR, BASR, BALR, BASSM, BSM, BAKR and any others 
I've missed) replace the B that starts the branch instruction mnemonic with BR, 
or as I prefer to do, with J (for jump).

eg. BNH -> JNH and BCT -> JCT and BAS -> JAS etc.

Put all the stuff which needs to be cover by a base register after all the 
instructions, and start the area with a label, and "use" that.

eg.
LARL R11,Static
USING Static,R11
...

Static DC 0D  My module's constants and literals and non-RENT variables


Then all you need to cover is code generated by macros, which is why Peter 
mentioned ARCHLVL (look up the SYSSTATE macro) to cover macros with logic to 
test it, and the IEABRCX macro to cover the rest.

IEABRCX DEFINE
will define and activate the facility where the older "branch"
instructions will be converted to newer "branch relative" instructions when 
encountered by the assembler in the source code.  With IEABRCX you could even 
leave the old branch source code as-is, but personally I prefer to use the 
newer mnemonics to make it obvious that the code is probably not covered by a 
base register, and to keep the listing a bit tidier.

IEABRCX is "better" than IEABRC because you can turn it on and off as needed. 
The most well known scenario where you might was to turn it off (I'd say) is if 
you have a branch table where you use the index register of the 
branch-on-condition instruction to provide an index into a table of branch (or 
even jump) instructions.

That's probably enough to get you started.  Have fun with it.

Cheers,
Greg P.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: ASMA034E

[Ward Able, Grant]

I have been following the ASMA034E discussion and am interested in learning how 
to do the new-fangled relative branching stuff.
Can someone point me to a reasonably simple example? I learned my Assembler in 
the 80's and have been using that way of coding ever since. I think it is time 
to upgrade my so-called skills.

Regards - Grant


DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter Relson
Sent: 15 November 2018 12:45
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ASMA034E

ATTENTION! This email originated outside of DTCC; exercise caution.


A more modern (over 20 years old by now?) would suggest not having a USING for 
your "code" at all, but rather using relative branch with one register set up 
to point to your static data and a USING for that. It is relatively infrequent 
that your static data would exceed 4K, and even if it did you could often use 
long-displacement instructions to access any data that is more than 4K from the 
beginning. In some cases you might be able to take advantage of the "immediate" 
instructions and not even need access to static data.

The IEABRCX macro can help in modules that want to use relative branch, 
particularly if they invoke system macros.
Also be sure to identify the architecture level that macros are allowed to 
assume you are running with, via SYSSTATE ARCHLVL=.

Some macro expansions might need local code register addressability, but that 
is usually easy to provide.

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
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.

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

SDSF using REXX - observing strangeness

[Ward Able, Grant]

X-posting to TSO-REXX and IBM-MAIN



Hi all,

I have an exec that uses SDSF to do some screen-scraping of messages from the 
JES2MSGLG, but I am seeing something weird and I wonder if this is something I 
have done, or a crazy anomaly.

Apologies for any  reformatting that may take place. Does anyone have 
experience of this, or can maybe suggest something I can check/try?



I have triple checked that I am using the correct JOBNAME etc etc.



As you can see, the CICS region is running on  system T001:

SDSF STATUS DISPLAY ALL CLASSESLINE 4-4 (4)

COMMAND INPUT ===>SCROLL ===> CSR

NP   JOBNAME  JobIDOwnerPrty Queue  C  Pos  SAff  ASys Status

 XXF0SMRV STC98586 CICSID 15 EXECUTION  T001  T001 ARMELEM









However, when I check the ACTSYS value, it gets reported as T003. The value I 
am expecting is in variable t2:

   229 *-*   if ACTSYS.rx <> t2

   >C> "ACTSYS.1"

   >V> "T003"

   >V> "T001"

   >O> "1"

   *-*then

   *-*iterate rx



Regards - Grant




DTCC Internal (Green)
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.

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

Re: REXX as JCL replacement

[Ward Able, Grant]

ROC level, you may have to put in 4 (!) ampersands or quotes to
   indicate 1.  More than two levels?  Good luck!!  REXX has no such
   requirement.
   11. Many of these limitations are addressed by complex work-arounds, or
   expensive third-party packages that force you to work in a way dictated by
   the software and not by your business requirements.

There may be other reasons.

Basically, JCL is so far from real a programming language, that I can't 
describe it.

z/VM, like almost all other platforms, gets along swimmingly without a separate 
batch language.  You can issue CMS/zLinux/guest commands, or invoke REXX 
programs to drive any batch process.

Replace your JCL with REXX a little at a time.  Start with the low hanging 
fruit and/or those that have automation requirements that are not addressed in 
existing software.  Focus on those that use DB2 table and PDSEs to store data 
updates, and those JOBs that only have DISP=SHR.  Replace updated PDSs and 
sequential datasets with PDSEs, even if you only have one member.  To be really 
careful, make the changes so that you only have DISP-SHR in your JCL.  Once 
your are satisfied with that, replace the JCL with REXX.  You may have to 
experiment a bit.  Post your questions if you are stuck.

JOB and any JESx control cards will mostly have to stay, and you will need a 
TSO batch step.  I recommend a PROC like this.

*//TSOPROC CMD=PROFILE*
*//   EXEC PGM=IKJEFT01,PARM=''*
*//SYSPROC  DD DISP=SHR,DSN=your site sysproc libs// DD
...//SYSEXEC  DD DISP=SHR,DSN=your site sysexec libs// DD
...//SYSTSPRT DD SYSOUT=**
*//SYSPRINT DD SYSOUT=*Not required, but commonly used.*
*//* Additional commands can be added via SYSTSIN*
*//SYSTSIN  DD DDNAME=SYSINIn case you forget SYSTSIN DD *.*
*//   PEND*

It can be invoked thusly:

*//MYJOBNAM JOB (acct),'M.E.SMITH',MSGCLASS=t,...*
*// JCLLIB ORDER=(MY.JCL.LIB) Optional*
*//   EXEC TSO*
*//SYSTSIN  DD *  Recommended DD to avoid conflicts with SYSIN use.*
*st*

*%myrexpgmalloc reuse dd(sysin) dummy*
*alloc reuse dd(sysut1) shr dsn(in.data)* *alloc reuse dd(sysut2) mod 
dsn(out.data(results)) cyl space(10 10)
dsntype(library)*
*call *(iebgener)*
*//*

In general, all ALLOCs should include REUSE, since you maybe combining multiple 
steps together or other programs might use the same DD.  It doesn't hurt.

Other handy things to add as you need them:

   - A REXX exec to allocate DB2 libraries if you need them.  Accept an arg
   string that identifies the environment if you need to, or interrogate some
   external source of information.
   - A REXX exec to invoke batch ISPF.  Allocate all your ISP*LIBs and
   ISPTABL.  Take an arg string in the form of CMD(...), PGM(...) PARM(...),
   or PANEL(...), and append it to ISPSTART.  Only non-display panels are
   valid in batch.  Include a loop (DO 10 UNTIL RC <> 995; "ISPSTART"
   arg(1); END) in case ISPSTART fails with a 995(?) on an ISPTABL enqueue
   failure.  You must VPUT ZISPFRC to get the return code passed up to the
   caller (IKJEFT01).
   - A REXX function to convert a relative GDG reference to an absolute
   one.  This will let you ALLOC a GDG member.
   - An ALLOC wrapper function (in REXX) to check SYSDSN(), and determine
   if the disposition should be NEW CATALOG or SHR, so you don't have to use
   the finicky MOD.  Then proceed with the "ALLOC REUSE DDNAME(...) ..." , and
   return the RC of ALLOC.  I would use ARG DDNAME DISP DSNAME OPTIONS to
   receive blank delimited values.  Separate concatenated DSNs with abutted
   commas.  A DISP value of "ASIS" could request the condition NEW/SHR
   disposition.  Loop over all the args the same way.  If any allocation
   fails, free them all.

This is your chance to join the 21st century.

I hope this helps.

OREXXMan
JCL is the buggy whip of 21st century computing.  Stabilize it.
Put Pipelines in the z/OS base.  Would you rather process data one character at 
a time (Unix/C style), or one record at a time?
IBM has been looking for an HLL for program products; REXX is that language.

On Wed, Jul 4, 2018 at 3:53 AM, Ward Able, Grant  wrote:

> I seldom post here, but have been intrigued by this thread.
>
> What are the problems (perceived or real) that will be resolved by 
> replacing JCL with REXX?
>
>
>
> Regards - Grant.
>
> In theory, there's no difference between theory and practice. In 
> practice, there is.
>
> There is no such thing as the Cloud. It is just somebody else's computer.
>
> If you don't have time to do it right, when will you have the time to 
> do it over? - John Wooden
>
>
> DTCC Internal (Green)
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Paul Gilmartin
> Sent: 03 July 2018 21:39
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: REXX as JCL replacement
>
>

Re: REXX as JCL replacement

[Ward Able, Grant]

I seldom post here, but have been intrigued by this thread.

What are the problems (perceived or real) that will be resolved by replacing 
JCL with REXX? 



Regards – Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

There is no such thing as the Cloud. It is just somebody else’s computer.

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden


DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: 03 July 2018 21:39
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX as JCL replacement

ATTENTION! This email originated outside of DTCC; exercise caution.


On Tue, 3 Jul 2018 15:39:40 -0400, Tony Thigpen wrote:

>PARSE SOURCE on VSE returns:
>VSE COMMAND TESTREXX PROC IPLLIB.VSE2PDF1.TESTREXX.PROC TESTREXX VSE 
>VSE ?
>
So it would be practical to multipath for compatibility.

>VSE does not have pipelines.
>
z/OS barely has Pipelines.  An obsolete version.  And hard to order.

For more than you want to know about Rexx (in)compatibility, see Dave Alcocks 
http://planetmvs.com/rexxanywhere/index.html

OK.  Thanks. Comparing z/VSE and Z/OS ADDRESS environments, I see:

   z/VSE z/OS

Ref.SC33-6642-10  SA32-0972-30

LINKLike JCL EXEC or Assembler Call   I think this is a relic of 
CMS calling
with only one argument.   conventions.  I've never used 
it.

LINKPGM Like Assembler CALL with multiple Like Assembler CALL; length 
halfwords not
arguments; length halfwords generated generated automatically.
automatically.

LINKMVS n/a   Like Assembler CALL with 
multiple
  arguments; length halfwords 
generated
  automatically.  (This seems 
to be
  z/VSE's LINKPGM.)

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: Rant of the Day - First World Problems

[Ward Able, Grant]

I hate doing a search in the KC, because you seldom get a pointer to what you 
are searching for, but have to divine other searches to get to the data. 

KC SEARCH STINKS!



Regards – Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

There is no such thing as the Cloud. It is just somebody else’s computer.

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden


DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Carmen Vitullo
Sent: 12 June 2018 19:40
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Rant of the Day - First World Problems

ATTENTION! This email originated outside of DTCC; exercise caution.


What bothers me the most, is IIRC, before KC, if I searched for some IBM 
message or APAR or PTF...whatever, a hit on Google sent me to the exact 
selection of the doc, now it just brings me to the TOC of the DOC, and if I 
search again, in KC the search tool does not send itself to highlight or show 
me appropriate content. Bookmanager and PDF lend themself to show me when my 
search content was found.
not just what documents it was found in.
my .0002 cents


Carmen Vitullo

- Original Message -

From: "Alan Young" 
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Tuesday, June 12, 2018 1:26:54 PM
Subject: Re: Rant of the Day - First World Problems

When IBM made the change they should have coordinated with Google to dump the 
current index of the site and initiate a reindex.


Still it was a bit abrupt to do this without warning. A couple of people have 
left comments on the new landing page requesting reinstatement of that 
version's KC.



From: Scott Fagen 
Sent: Tuesday, June 12, 2018 08:35
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Rant of the Day - First World Problems

Just figured I'd do the LISTSERV equivalent of primal scream therapy.

One of the pleasures of Google is the ability to get help on almost anything 
IBM mainframe related by searching for something like:

TSO REXX POS

and you'd get back a pointer to the page in the online library to the POS 
function within the first five or so Google hits. Given that the z/OS 2.1 doc 
has been out there for a very long time, almost all of the "hits" refer to the 
z/OS 2.1 knowledge center.

IBM took down all these books in the last couple of days and now all of these 
hits have been turned to $hit:

Documentation for z/OS V2.1.0 is no longer available in IBM Knowledge Center.

While the product version and release remains in service, you can find 
information in the following formats:
Individual PDFs for downloading: 
https://www.ibm.com/servers/resourcelink/svcoo100.nsf/pages/zosv2r1-pdf-download?OpenDocument
z/OS V2R1 Adobe Indexed Collection (all PDFs with full text search via the free 
Adobe Acrobat Reader): 
http://publibz.boulder.ibm.com/zoslib/pdf/zosv2r1pdfcollection.zip
IBM Knowledge Center plugins for downloading (for use with IBM Knowledge Center 
for z/OS): http://publibz.boulder.ibm.com/zoslib/SSLTBW_2.1.0_4KC.jar.
For information about current releases of this product see 
http://www.ibm.com/support/knowledgecenter/SSLTBW/welcome.

More information and resources are available at the IBM z/OS Internet Library: 
https://www.ibm.com/servers/resourcelink/svcoo100.nsf/pages/zosinternetlibrary?opendocument.

Now, this isn't IBM's fault. However, taking the same search to the z/OS 2.2 KC 
main page gives nothing of value for someone looking for the POS (ironic, huh?) 
function (the search was TSO REXX POS):

- The TSO command environment
- Host command environments for z/OS UNIX processing
- TSO commands, CLISTs, and REXX EXECs
- Using TSO subcommands from a TSO CLIST or REXX exec
- REXX ADDRESS TSO support requirements

Here's Google's #1 hit (that's as far as you have to go) for TSO REXX POS:

POS (Position) - IBM
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.../pos.htm
POS (Position) z/OS TSO/E REXX Reference SA32-0972-00 ... (See also the INDEX 
and LASTPOS functions.) Returns 0 if needle is the null string or is not found 
...

To curtail a possible rathole on this discussion, please don't suggest adding 
"z/OS 2.2" to the Google search. It doesn't help. The Googler simply returns a 
similar set of hits and says it couldn't find "2.2".

POS (Position) - IBM
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2...ibm.zos.../pos.htm
z/OS TSO/E REXX Reference ... returns the position of one string, needle, in 
another, haystack. (See also the INDEX and LASTPOS functions.) Returns 0 if ...
Missing: 2.2 < weird for the most likely hit, no?

I'd be glad to entertain suggestions on how to better negotiate Google (use 
Bing?) or make the IBM KC site return more intelligent results. Whatever 
happened to Watson?

Rant complete,
Scott Fagen
21st Century Software

Re: Assembler calling DSNTAIR

[Ward Able, Grant]

Just a quick note to all who have so kindly responded. I am going to be out of 
the office for this week and will look at these responses in more detail when I 
get back.

I used LINKINST, as this was mentioned in the DB2 KC as my program is AMODE(31) 
RMODE(24). 

Regards – Grant



DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John Gateley
Sent: 15 April 2018 21:10
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Assembler calling DSNTAIR

ATTENTION! This email originated outside of DTCC; exercise caution.


I use this code to get the error message from DSNTIAR

CALL_PARM   DS  0F
PARM_1  DC  A(SQLCA)
PARM_2  DC  A(MSGLEN)
PARM_3  DC  A(MSGSIZE)

MSGSIZE DC  F'72'   LENGTH OF EACH LINE
MSGAREA DS  H,CL(20*72)
ORG MSGAREA
MSGLEN  DC  AL2(20*72)  20 lines of 72 bytes
MSG_TEXTDS  CL72
ORG

LA  R1,CALL_PARM
L   R15,=V(DSNTIAR) DSNTIAR EXPANDS THE ERROR
BASRR14,R15

LA  R4,MSG_TEXT POINT TO FIRST 72 BYTE LINE
LA  R5,20   20 LINES
LOOPEQU *
output  72 bytes to wherever (check >= blanks)
LA  R4,72(,R4)
BCT R5,LOOP

Warning - there could be typos in the above.
You could also check R15 after the call and output a message if not 0. The 
routine used to have 8 lines but in V8 or V9 of DB2 we got RC=4 because the 
message did not fit. As a result we changed to 20 lines.

Hope it helps.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: Assembler calling DSNTAIR

[Ward Able, Grant]

Thanks for the response Shmuel.
COMPLETION CODE  SYSTEM = 0C4  REASON CODE = 0004

I am usually a CICS programmer, so batch abends are slightly foreign to me.
My own program's savearea is addressed by R13. What format? Heck I don't know! 
The DSECT starts with DS 18F, if that helps.
DSNTIAR is linked into my loadmod.

It seems as if I need a serious batch dump debugging refresher!


Regards - Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

There is no such thing as the Cloud. It is just somebody else's computer.

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden


DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Seymour J Metz
Sent: 13 April 2018 16:23
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Assembler calling DSNTAIR

ATTENTION! This email originated outside of DTCC; exercise caution.


What format save area does R13 point to? Is DSNTIAR linked with you or are you 
doing a LOAD? What is the reason code for the 0C4 (I hate the overloading!)? 
Have you looked at the failing code?


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


From: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> on behalf of 
Ward Able, Grant <gwarda...@dtcc.com>
Sent: Friday, April 13, 2018 10:24 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Assembler calling DSNTAIR

I have an Assembler program linked AMODE(31) RMODE(24). It makes SQL calls and 
under some circumstances I will call DSNTIAR to printout the DB2 error & 
diagnostic info.
The call statement I am using for this is:

CALL  DSNTIAR,(SQLCA,(6),LRECL),LINKINST=BASSM,MF=(E,PARM)

Yet I am getting an S0C4 abend in DSNTIAR. I thought that using LINKINST=BASSM 
would have resolved this for me.
Any hints or clues about this?



Regards - Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

There is no such thing as the Cloud. It is just somebody else's computer.

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden


DTCC Internal (Green)
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.

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

Assembler calling DSNTAIR

[Ward Able, Grant]

I have an Assembler program linked AMODE(31) RMODE(24). It makes SQL calls and 
under some circumstances I will call DSNTIAR to printout the DB2 error & 
diagnostic info.
The call statement I am using for this is:

CALL  DSNTIAR,(SQLCA,(6),LRECL),LINKINST=BASSM,MF=(E,PARM)

Yet I am getting an S0C4 abend in DSNTIAR. I thought that using LINKINST=BASSM 
would have resolved this for me.
Any hints or clues about this?



Regards – Grant.

In theory, there's no difference between theory and practice. In practice, 
there is.

There is no such thing as the Cloud. It is just somebody else’s computer.

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden


DTCC Internal (Green)
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: Many arguments to a Rexx function call

[Ward Able, Grant]

I just looked in the REXX Reference manual and found this (which I did not know 
before!):

There can be up to an implementation-defined maximum number of expressions,
separated by commas, between the parentheses. In TSO/E, the implementation
maximum is up to 20 expressions.

Regards – Grant

 


DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jantje.
Sent: 09 April 2018 14:27
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Many arguments to a Rexx function call

ATTENTION! This email originated outside of DTCC; exercise caution.


On Fri, 6 Apr 2018 17:21:19 +, Grinsell, Don  wrote:

>Start your continuation lines with a comma:
>
> RS=ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,
>   ,SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,
>   ,MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR,
>   ,APPLTYPE,APPLNAME,UNIQUE)
>

Commas at the beginning or at the end makes no difference... :

87 +++ 
RS=ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,,SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST,,MONENV,RESOURC
E,EXTRINFO,ACTIVE,CLOSING,FTPERR,,APPLTYPE,APPLNAME,UNIQUE)
IRX0040I Error running ALERTSNB, line 87: Incorrect call to routine

Thanks for the suggestion anyway,

Jantje.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Re: Problem with JCL

[Ward Able, Grant]

Thanks to all who have responded. I have decided to follow the route of having 
a step which will run a REXX exec to do the allocations for me. Far, far easier 
than any other solution I was considering :) 



Regards – Grant.


In theory, there's no difference between theory and practice. In practice, 
there is.

If you don't have time to do it right, when will you have the time to do it 
over? - John Wooden


DTCC Internal (Green)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: 31 January 2018 13:53
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Problem with JCL

ATTENTION! This email originated outside of DTCC; exercise caution.


On Wed, 31 Jan 2018 05:17:42 -0800, Gerhard Adam wrote:

>Why not simply make Part B and Part C, separate jobs and use IEBGENER to 
>submit them to the internal reader based on condition code?

Or use INCLUDE with one or more members that have different content on 
different systems.

Or use ReXX to perform dynamic allocation and invoke programs

--
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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

Problem with JCL

[Ward Able, Grant]

Previously posted to ISPL-List




I have a situation where I need to execute a single JCL procedure, but ONLY 
execute some steps (including the DSN allocations) for part B or part C, 
depending on the return code of part A. The problem I seem to be stuck with is 
that in part B (STEP10 below) I have some datasets defined in the JCL with 
UNIT=SYSDA and VOL=SER=XX. However, if STEPA.RC is not 12, then we are not 
executing in an environment where VOL=SER=XX is available/mounted. I have 
been told that I need to have this whole job as a single unit, so it can 
execute in the different environments as necessary.

Is this feasible? Can it be achieved, or do I have to split the parts B and C 
out into separate discreet bits of JCL? 

//STEPA EXEC PGM=BLAHBLAH
// ...
// ...
//IFDR IF (STEPA.RC = 12) THEN 
//STEP10
// ...
//  ELSE 
//STEP50
// ...
// ENDIF 


Regards - Grant

DTCC Internal (Green)
DTCC DISCLAIMER: This email and any files transmitted with it are confidential 
and intended solely for the use of the individual or entity to whom they are 
addressed. If you have received this email in error, please notify us 
immediately and delete the email and any attachments from your system. The 
recipient should check this email and any attachments for the presence of 
viruses.  The company accepts no liability for any damage caused by any virus 
transmitted by this email.


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