Re: Researching Destination z article on non-US mainframes

[Timothy Sipples]

I'm largely in agreement with Brian and Martin, although I can think of
some more country-specific differences, in no particular order:

1. Encryption still has some "odd" national boundaries.

2. Network reach and quality still vary a lot, and thus branch/channel
architectures vary to some extent. Some of the countries in Africa, for
example, are struggling with network infrastructure.

3. The geographic risks are different when considering, and reconsidering,
disaster recovery. Many clients in Japan, for example, do not view two data
centers separated by a "metro" distance to be adequate, primarily because
of earthquake risks.

4. I recall a couple clients asking if IBM Z machines could be placed on
moving (or at least movable) vehicles. Short answer: yes. You might be able
to guess what they were thinking. It was/is logical.

5. There are a few internationally embargoed countries.

6. There are some brand new mainframe countries from time to time.

7. Each country has a unique history, culture, business climate, and other
factors that have some impact on the IT sector and talent development.

8. Regulations vary, and some regulations can have significant impact on
IT. Europe's GDPR initiative is a recent, topical example.

9. Some countries have "odd" deadlines that might, for example, have some
"odd" effects on batch workload patterns.

10. Some countries have crazy high peaks that can influence IT, such as
Black Friday for the U.S. retail industry and Lunar New Year in many
countries.

11. Forced antitrust-related splits, forced mergers (e.g. "bad bank"
liquidations), Brexit, and other such phenomena can impact IT in
interesting ways.

12. A few countries use different calendars, and there are sometimes
timezone changes and such oddities that have mainframe impact, at least if
you run your mainframe on local time instead of UTC. (Not necessarily a
good idea.)

13. Currency changes can have mainframe impact, as the introduction of the
euro did many years ago.


Timothy Sipples
IT Architect Executive, Industry Solutions, IBM z Systems, AP/GCG/MEA
E-Mail: 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: Researching Destination z article on non-US mainframes

[Bruce Hewson]

Hello Gabe,

some points to check out. I am based in Singapore, and have been here for the 
last 20 years supporting a large mainframe datacenter.

o. Daylight Savings Time changes - we don't do that at the system level. Any 
country that does have DST changes must have supporting code in application.

o. Fonts etc - must be aware of the requirements of the various ASIAN 
languages, and be able to provide suitable fonts and code translations.

o. The effects of different laws in different countries, and ensuring the data 
center complies with all. Both in program code, and personal behavior.

o. Surviving time zone differences between Singapore and all other places.

o. Hardware/software - we get very good support.

o. Patience is required when dealing with users - different language skills, 
different cultural impacts, varying knowledge levels.

o. Crypto support - US export laws can be an issue.


Regards
Bruce

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

Re: How to erase TS7740 data before scrap

[Timothy Sipples]

The IBM TS7740 is a virtual tape library.

1. How about DFSMSrmm EDGINERS ERASE? Other media managers, e.g. CA 1, have
analogous functions.

2. If you have DITTO/ESA, there's an ERT (Erase Tape) feature that might
work.

3. You could completely refill the virtual tapes with new "data." Maybe an
endless repeating string containing your favorite poem?

4. There are some vendor products available, e.g. Dino-Software's XTINCT
and Innovation Data Processing's FATS/ERASE. Although please check with
them to make sure they can handle *virtualized* tape properly.

5. Supervised physical destruction and degaussing (of the disks) works.
However, this option is inconsistent with claiming all of your TS7740's
residual value.

6. Some combination of the above -- which would be prudent, I think, just
in case one of the methods didn't correctly and completely work. And when
you perform these tasks I'd do it from a system (LPAR) that doesn't have
access to any real data, and with the TS7740 completely removed from other
z/OS instances. From a "sysprog" LPAR, for example. I wouldn't try to do
this from a "production" LPAR, out of an abundance of caution. Also, please
be sure you aren't erasing your only copy of data that you still want to
keep! :-)


Timothy Sipples
IT Architect Executive, Industry Solutions, IBM z Systems, AP/GCG/MEA
E-Mail: 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 erase TS7740 data before scrap

[Edward Gould]

> On Aug 10, 2017, at 5:16 PM, Mike Schwab  wrote:
> 
> How are tracks provisioned?
> If fixed provisioning, then ICKDSF TRKFMT CYL(0,14) CYCLES(1) will
> write b'', b'', and b'01010101' or b'10101010' for the
> full track for three erasing writes to each track.  Increase 1 for
> more erases.  Erase all tracks in all cylinders of all volumes.
> If dynamic provisioning, then erase all volumes with extra erases to
> catch the excess capacity above the capacity of the volumes.

Mike,

I think it depends on ICKDSF and which command is used to format the volume.
Its been 20 or 30 years since the 3380 came out but IMSM the fast initialize 
does it differently than the full initialize.
My memory is sketchy here but I *THINK* a EOF is written on each track if a 
fast init is used. I will defer to you on the full init.
I learned of the fast init from a good friend at the WSC. I started using it 
and never had awn issue.

Ed
> 
> On Thu, Aug 10, 2017 at 9:49 AM, Carlos Bodra - Pessoal
>  wrote:
>> We are replacing IBM TS7740 with new TS7760 and need to do a Cluster Cleanup
>> (FC 4017 – This feature is a factory default button, clear all data, all
>> tables, etc..). IBM says that this feature is withdrawn and no more
>> available.
>> 
>> 
>> 
>> What can we use in place of it or any suggestion about how to clear data
>> from it?
>> 
>> 
>> 
>> 
>> 
>> Carlos Bodra
>> 
>> IBM System Certified System z
>> 
>> São Paulo - Brazil
>> 
>> 
>> 
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> 
> 
> -- 
> Mike A Schwab, Springfield IL USA
> Where do Forest Rangers go to get away from it all?
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: How to erase TS7740 data before scrap

[Mike Schwab]

How are tracks provisioned?
If fixed provisioning, then ICKDSF TRKFMT CYL(0,14) CYCLES(1) will
write b'', b'', and b'01010101' or b'10101010' for the
full track for three erasing writes to each track.  Increase 1 for
more erases.  Erase all tracks in all cylinders of all volumes.
If dynamic provisioning, then erase all volumes with extra erases to
catch the excess capacity above the capacity of the volumes.

On Thu, Aug 10, 2017 at 9:49 AM, Carlos Bodra - Pessoal
 wrote:
> We are replacing IBM TS7740 with new TS7760 and need to do a Cluster Cleanup
> (FC 4017 – This feature is a factory default button, clear all data, all
> tables, etc..). IBM says that this feature is withdrawn and no more
> available.
>
>
>
> What can we use in place of it or any suggestion about how to clear data
> from it?
>
>
>
>
>
> Carlos Bodra
>
> IBM System Certified System z
>
> São Paulo - Brazil
>
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



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

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

Re: MSGIEW2678S Module contains one or more deferred classes

[Frank Swarbrick]

I can't find any specific documentation.  I learned about them "through the 
grapevine".


From: IBM Mainframe Discussion List  on behalf of 
Giliad Wilf <00d50942efa9-dmarc-requ...@listserv.ua.edu>
Sent: Thursday, August 10, 2017 12:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MSGIEW2678S Module contains one or more deferred classes

On Wed, 9 Aug 2017 22:18:51 +, Frank Swarbrick 
 wrote:

>There was a post to ibm-main by Allan Kielstra of IBM compiler development (I 
>think) on May 10, 2017 (How are Program Object sections with Defer attribute 
>loaded?) that discusses how the writable static area (WSA) is used in COBOL V5 
>and COBOL V6.  Briefly, this is how I understand it.  If the "NOWSOPT" 
>compiler option is used (the default in COBOL V5) then all COBOL 
>working-storage is placed in the WSA.  If the "WSOPT" compiler option is used 
>then working-storage is separately allocated upon initial entry to the program 
>and the address of the WS is placed in the WSA.
>
>Hopefully I got that all right!
>

Everyone talks about WSOPT vs NOWSOPT compiler option, but I can't find them 
documented in COBOL documentation library.
Are WSOPT and NOWSOPT some nicknames of the accurate terms?
Where are they documented?

--
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: MSGIEW2678S Module contains one or more deferred classes

[Tony Harminc]

On 10 August 2017 at 08:05, Peter Relson  wrote:
> 
> And the resulting IEW2678S makes sense in that context, because there
> is nowhere known to IEWBLODI for the deferred classes to be loaded
> from. So asking IBM to support deferred classes in IEWBLODI (or
> IEWBLOAD, which is the same thing except without the IDENTIFY), makes
> little sense. What might make sense would be an option on these two
> functions to force all deferred classes to be loaded at the same time
> as the non-deferred ones.
> 
>
> I'd have actually said that there is nowhere known to IEWBLODI for the
> deferred classes to be
> loaded *to* (rather than *from*). It is LE that needs the instantiation of
> the C_WSA deferred class.
> And LE might need more than one of them, depending on the application.

Well, yes... I take your point, but I'm also not sure I'm wrong. When
I said "nowhere known to IEWBLODI for the deferred classes to be
loaded from", I was thinking that IEWBLODI takes input from
, and builds an executable in storage. Other than having an
option to load all classes at that time (as I suggested), all IEWBLODI
could do would be to build some in-storage metadata along with the
ready-to-run executable, that would indicate where to load the
deferred classes *from* when the time comes. But because the
 that is the source of the executable code could be any
combination of PDS[E], Unix file, object deck(s), GOFF files, or even
data created dynamically by the invoker of IEWBLODI, there is no clear
place for this putative metadata to point to. I know nothing of how
the actual loading of deferred classes is triggered or implemented,
but  has to know where to find them. And that's the *from* I
was talking about.

Tony H.

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

Re: list of cobol load modules and their cobol version

[Roy Reynolds]

Many thanks for your recommendations!  Roy

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

Re: COBOL STOP RUN enhancement

[Frank Swarbrick]

Unfortunately not for free.  You can buy it from ISO, ANSI, or other standards 
site for your country.

ISO: https://www.iso.org/standard/51416.html - CHF 198

ANSI: 
https://webstore.ansi.org/RecordDetail.aspx?sku=INCITS%2FISO%2FIEC+1989%3A2014+%5B2014%5D
 - USD 133

IBM has already implemented a couple of "ISO 2002 COBOL" features: floating 
comments (with COBOL V5), dynamic storage allocation (with COBOL V6), and 
enhanced INITIALIZE statement (also with COBOL V6).

From: IBM Mainframe Discussion List  on behalf of 
John McKown 
Sent: Thursday, August 10, 2017 11:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL STOP RUN enhancement

On Thu, Aug 10, 2017 at 12:13 PM, Frank Swarbrick <
frank.swarbr...@outlook.com> wrote:

> This would not be an extension.  It is part of the COBOL 2002 and COBOL
> 2014 ISO standards.  It's up the the implementer to define the behavior.  I
> am suggesting the behavior.
>

Hum, is there a place on the Web to read these standards? Preferably for
free.



>
> Is it worth spending time/money on?  Well, that's a different question.  ;)
>
> Frank
>
>
>


--
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

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

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

Re: Any SMF statistics available for LOAD of a program?

[Farley, Peter x23353]

Thanks for the suggestion Peter, but we are currently only at V2.1 and I don't 
know when we will next be upgrading or to what version.

Is that feature going to be (or has been?) back-ported to V2.1?

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter Relson
Sent: Thursday, August 10, 2017 7:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Any SMF statistics available for LOAD of a program?

You could also write something of your own, as of z/OS 2.2, using the 
CSVFETCH exit which was developed specifically to help get products out of 
front-ending the contents supervisor SVC's.

Peter Relson
z/OS Core Technology Design
--

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

Re: Any SMF statistics available for LOAD of a program?

[Farley, Peter x23353]

Thanks Joel, I think someone else also suggested a similar approach.

We're considering the alternatives but will likely not use a fee-based 
commercial product due to budget constraints.

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joel C. Ewing
Sent: Thursday, August 10, 2017 11:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Any SMF statistics available for LOAD of a program?

When there are only specific load modules in specific libraries for
which tracking is needed, there IS an approach that does not require any
fancy new measurement tools or software, but does require cooperation
from the RACF administrator.  It is possible to set up RACF Program
profiles specific to the load modules and libraries in question, not to
restrict access  to the load modules, but to allow the enabling of RACF
auditing of all access to the modules, which results in generation of
RACF SMF records when access occurs.  It's been some time since I've
done this (for some modules that were an issue during Y2K remediation),
but I'm pretty sure RACF auditing can be set to cut a record for any
module access, initial program load or dynamic fetch.  Those RACF SMF
records can be extracted and accumulated for what is deemed a sufficient
period of time.  Although not elegant, RACF also includes standard
reporting tools that will format and list information from the RACF SMF
records.

You will of course have to make a judgment of how long  a period (days,
months, years) RACF SMF data must continue to be collected and analyzed
before there is a high confidence all important references have been
occurred and been recorded.

If RACF Program profiles are not already in use at the installation, one
must of course be careful to set things up properly to preserve existing
default access before enabling.
Joel C. Ewing

On 08/09/2017 01:10 PM, Farley, Peter x23353 wrote:
> Yes it is important to the organization, but since apparently no SMF record 
> has this information for dynamically LOADed programs there is no real point 
> to asking for DAF or any other SMF reporting tool to be used.
>
> Knowing the module name loaded is kind of the point - that's what we need to 
> know.  There are very few application load libraries but many thousands and 
> more of programs and more than that in jobs using those programs all day long 
> and all night long.
>
> Not having any keys to the system programmer kingdom I would not have any 
> access to a test system even if I knew it existed.  And a test system would 
> probably not be very much help anyway due to the large number of potential 
> main-program users of the subroutines that would need to be individually 
> tested one at a time.  This is a need to get LOAD information for several 
> shop-wide utility subroutines potentially used across the enterprise.  It is 
> a needle-in-a-haystack problem to find the one place that a seldom-used but 
> possibly critical utility routine is actually used at run time.  Sometimes 
> actual use of a utility routine is data dependent, and you may or may not 
> have the data available to drive particular program usage at any given time.
>
> As several fictional characters in the entertainment world have opined, "It's 
> complicated".
>
> Having LOADed program statistics in SMF historical data would, of course, 
> solve the problem immediately, but we don't have those.
>
> Thanks for the suggestions and for trying to help.  Appreciated.
>
> Peter
>
>> -Original Message-
>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>> Behalf Of retired mainframer
>> Sent: Wednesday, August 09, 2017 1:06 PM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: Any SMF statistics available for LOAD of a program?
>>
>> If the problem you are trying to solve is important to the organization, ask 
>> the people who can run DAF for what you need and let them sanitize the 
>> output for you.
>> Alternately, if the number of libraries containing the modules in question 
>> is not too large and you can convince the security admins to help, you could 
>> create dataset profiles for the libraries in WARNING mode with access NONE.
>> Every load would then generate a message in the system log.  It wouldn't 
>> tell you which module was loaded but it would tell you which library was 
>> being accessed by which job step.
>>
>> For a brute force method, if you have a test system you can use, recreate 
>> the libraries without the members.  As each LOAD fails, add that member.
>> When the jobs finally run successfully, any members not added are likely 
>> unused.
>>
>>> -Original Message-
>>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
>>> On Behalf Of Farley, Peter x23353
>>> Sent: Wednesday, August 09, 2017 8:02 AM
>>> To: IBM-MAIN@LISTSERV.UA.EDU
>>> Subject: Re: Any SMF statistics available for LOAD of a program?
>>>
>>> Unfortunately I have no access 

Re: COBOL STOP RUN enhancement

[Farley, Peter x23353]

Nope.  ISO charges for everything, and it is not usually cheap either.

BTDTGTTS

The only possible "free" place I can think of might be a university or college 
CS department that already paid for it and makes it available to CS students.  
But non-students/faculty might not have access even then.

And most such programs aren't teaching COBOL any more.  Or even caring anything 
at all about it.

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Thursday, August 10, 2017 1:19 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL STOP RUN enhancement

On Thu, Aug 10, 2017 at 12:13 PM, Frank Swarbrick < 
frank.swarbr...@outlook.com> wrote:

> This would not be an extension.  It is part of the COBOL 2002 and 
> COBOL
> 2014 ISO standards.  It's up the the implementer to define the 
> behavior.  I am suggesting the behavior.
>

​Hum, is there a place on the Web to read these standards? Preferably ​for free.

>
> Is it worth spending time/money on?  Well, that's a different 
> question.  ;)
>
> Frank
--

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

Re: Any SMF statistics available for LOAD of a program?

[Rob Barbour]

Hi Peter,

There is a product called P-Tracker that will give you that 
information.   Since it "see's" everything loaded it can give you the 
program and call sequences as well as when, who, where, it was 
loaded.People use this for asset management, but programmers use it 
to determine call sequences (like in Y2K and Euro to find program and 
subroutine usage, where, etc).


For more info see www.esaigroup.com/products/ptracker.htm 



P.S. I am not sure if SoftAudit is marketed any more.

--
Best Regards,
Rob Barbour
Enterprise Systems Associates, Inc ("ESAi")
UCF Research Park
3259 Progress Drive
Orlando,  Florida  32826USA
Toll Free: 1-866-GO-4-ESAI (1-866-464-3724)
www.ESAIGroup.com/products 

twitter.com/ESAiSoftware 

Performance... Productivity for DB2... Services...
BCV4 -  DB2, SAP, PeopleSoft Clones/Refreshes in Minutes vs Days
BCV5/BCV6 -  Save 90% in CPU & Clock Time for DB2 Refresh / Migrate
XDM - Test Data Mgmt & Masking for DB2,Oracle, SQL Server et.al.
ULT4DB2 - Faster, Better Value in DB2 Log Analyzers w/ PROP, & Audit
BPA4DB2 - Save $, Improve DB2 Performance with Buffer Pool Analyzer
XM4DB2 - Proactive Approach for DB2,Performance, & Dynamic SQL
SQLQC - Find, Analyze, Improve SQL Quality Control and Performance

INSPECT-CPU - Improve CICS Application Performance with ICPU

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

Re: COBOL STOP RUN enhancement

[John McKown]

On Thu, Aug 10, 2017 at 12:13 PM, Frank Swarbrick <
frank.swarbr...@outlook.com> wrote:

> This would not be an extension.  It is part of the COBOL 2002 and COBOL
> 2014 ISO standards.  It's up the the implementer to define the behavior.  I
> am suggesting the behavior.
>

​Hum, is there a place on the Web to read these standards? Preferably ​for
free.



>
> Is it worth spending time/money on?  Well, that's a different question.  ;)
>
> Frank
>
>
>


-- 
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

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

Re: COBOL STOP RUN enhancement

[Frank Swarbrick]

This would not be an extension.  It is part of the COBOL 2002 and COBOL 2014 
ISO standards.  It's up the the implementer to define the behavior.  I am 
suggesting the behavior.

Is it worth spending time/money on?  Well, that's a different question.  ;)

Frank


From: IBM Mainframe Discussion List  on behalf of 
John McKown 
Sent: Thursday, August 10, 2017 6:04 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL STOP RUN enhancement

On Wed, Aug 9, 2017 at 6:43 PM, Frank Swarbrick  wrote:

> I am curious to hear opinions on something.  The current COBOL standard
> has an enhancement to the STOP RUN statement.  There are two new options,
> the ERROR phrase and the NORMAL phrase.  My first thought is that the
> NORMAL phrase could replace the RETURN-CODE special register, which is a
> non-standard IBM extension, for setting register 15 and thus the return
> code back to the OS.  An example is:
>
> STOP RUN WITH NORMAL STATUS 16
>
> This would set R15 to a value of 16 and then terminate the run-unit
> normally.  Essentially the same as moving 16 to RETURN-CODE and then doing
> a STOP RUN.  The advantage to it, other than being supported by the COBOL
> standard, is that the RETURN-CODE special register can be unintentionally
> set (usually back to zero) if you do a CALL statement after setting
> RETURN-CODE.
>
> My further thinking is that perhaps the ERROR phrase of STOP RUN could
> cause an intentional abend.
>
> STOP RUN WITH ERROR STATUS 1234
>
> This could cause a U1234 abend (or possibly a specific user abend with the
> 1234 being the "reason code"), which in turn would cause the run unit to
> "abnormally terminate" and do whatever abend processing your shop does.
>
> Currently I believe the recommendation is to call the CEE3ABD routine (or
> CEE3AB2), and in the past one might call ILBOABN0.  Or in the case of our
> shop (I don't know the history/reasoning behind this) do an intentional
> data exception or division by zero.
>
> Anyway it seems to me that an "official" COBOL method of doing this could
> be worthwhile.  I don't know if other languages such as C or PL/I have
> something similar.  All thoughts are welcome (preferably agreeing with me
> ).
>
>
PL/I has the STOP statement. But it is like COBOL's STOP RUN in that it
does not have any specification for a return code. C can use the exit()
function, which can take an integer value which is the return code. But
nothing has the equivalent of the 'ERROR STATUS' functionality that you
mentioned.

In IBM speak "how much are you will to pay for this feature and what other
improvements are you willing to abandon or delay to implement this
instead?" IBM tends to not look favorably upon extending ANSI COBOL unless
there is a real need or money to be made.

Oh, and it does seem like a good idea to me. That and around $10 might get
you a cheap cuppa at Starbucks.


--
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

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

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

Re: ISPF LINE COMMAND

[Paul Gilmartin]

On Thu, 10 Aug 2017 09:05:25 -0500, John McKown wrote:
>
>Put a "C" (Copy)on line 2. On lines 3 through 11 put an "AK" (After Keep)
>and a single "A" (After) on line 12.​
> 
Can this be used in connection with the eXXclude command to copy before/after
(all) selected lines?

-- gil

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

Re: Testing zOS 2.3 ?

[Paul Gilmartin]

On Thu, 10 Aug 2017 08:26:15 -0500, Elardus Engelbrecht wrote:

>Peter wrote:

>>>Is anyone performing any kind of testing on zOS 2.3 and found any defects or 
>>>any gotchas ?
>
>Lizette gave you a good URL (summary of changes) for your info.
>
>Here is another interesting URL (what is new for consideration) for you:
>
>https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.e0za100/chnewfu.htm
>
>Have fun until the GA date!
>
Also:
http://www-03.ibm.com/systems/z/os/zos/library/bkserv/
http://publibz.boulder.ibm.com/zoslib/pdf/c27843007.zip

-- gil

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

Re: COBOL STOP RUN enhancement

[David W Noon]

On Thu, 10 Aug 2017 07:04:02 -0500, John Mckown
(john.archie.mck...@gmail.com) wrote about "Re: COBOL STOP RUN
enhancement" (in

How to erase TS7740 data before scrap

[Carlos Bodra - Pessoal]

We are replacing IBM TS7740 with new TS7760 and need to do a Cluster Cleanup
(FC 4017 – This feature is a factory default button, clear all data, all
tables, etc..). IBM says that this feature is withdrawn and no more
available.

 

What can we use in place of it or any suggestion about how to clear data
from it?

 

 

Carlos Bodra

IBM System Certified System z

São Paulo - Brazil

 


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

Re: ISPF LINE COMMAND

[Vernooij, Kees (ITOPT1) - KLM]

For more completeness, there is also BK and OK. 
See Help - Line commands - Move/Copy commands.

Kees.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of John McKown
> Sent: 10 August, 2017 16:18
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ISPF LINE COMMAND
> 
> On Thu, Aug 10, 2017 at 9:12 AM, Feller, Paul
> 
> wrote:
> 
> > John is correct..
> >
> > This is how I've used it.
> >
> > Command ===>
> > ** **
> > c1 Line to copy
> > ak0002 Other lines
> > ak0003 Other lines
> > ak0004 Other lines
> > a5 Other lines
> > 06 Other lines
> > ** **
> >
> >
> > ** 
> > 01 Line to copy
> > 02 Other lines
> > 03 Line to copy
> > 04 Other lines
> > 05 Line to copy
> > 06 Other lines
> > 07 Line to copy
> > 08 Other lines
> > 09 Line to copy
> > 10 Other lines
> > ** 
> >
> > Thanks..
> >
> > Paul Feller
> > AGT Mainframe Technical Support
> >
> >
> ​Just for completeness, the "AK" / "A" can also be ​be used with the
> "CC".."CC" like:
> 
> CC0001 LINE 1 to copy
> 02 LINE 2 to copy
> CC0003 LINE 3 to copy
> AK0004 LINE after which to copy
> ​A5 Another LINE after which to copy​
> 
> 01 LINE 1 to copy
> 02 LINE 2 to copy
> 03 LINE 3 to copy
> 04 Line after which to copy
> 05 LINE 1 to copy
> 06 LINE 2 to copy
> 07 LINE 3 to copy
> 08 Another LINE after which to copy
> 09 LINE 1 to copy
> 10 LINE 2 to copy
> 11 LINE 3 to copy
> 
> 
> --
> If you look around the poker table & don't see an obvious sucker, it's
> you.
> 
> Maranatha! <><
> John McKown
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

For 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

Re: ISPF LINE COMMAND

[Burrell, Todd]

I believe there is a way to do this with AK, but it requires commands on each 
line.  Not painful for a few lines, but ugly for say 500 lines.  Here's a REXX 
exec I have that will read dataset names from an input file and create output 
cards.   You can alter the cards to be whatever you want. 


/*  REXX EXEC TO READ INPUT DATASET LIST AND CREATE OUTPUT  */  
DATASETS. = ''  
LINES. = '' 
"ALLOCATE FILE(INPUTFIL) DA('ZPN6.VEMER00.DATASETS') SHR"   
'EXECIO * DISKR INPUTFIL (FINIS STEM DATASETS.' 
'FREE FILE(INPUTFIL)'   
"ALLOCATE FILE(OUTFIL) DA('ZPN6.TSO.JCL(OS390210)') SHR"
J = 1   
DO I = 1 TO DATASETS.0  
   DSN = STRIP(SUBSTR(DATASETS.I,1,44)) 
 LINES.J = ' DEFINE NVSAM(NAME('DSN') -'
   J = J + 1
 LINES.J = 'VOL(**) DEVT())  '  
   J = J + 1
 END
 'EXECIO * DISKW OUTFIL (FINIS STEM LINES.' 
 'FREE FILE(OUTFIL)'


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John Dawes
Sent: Thursday, August 10, 2017 9:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ISPF LINE COMMAND

  G'Day,
Is there a line command equivalent to ROSCOE line command using CR?  Let me 
explain.
01 HSEND FIXCDS D TESTJOB.D286.T2041375.TTQM0003   DELETE -
02    PATCH(X'06' BITS(0.1.)) ODS(SYSTEST.FIXCDS)
03 HSEND FIXCDS D TESTJOB.D286.T2101225.TTQM0003   DELETE -
04 HSEND FIXCDS D TESTJOB.D286.T2120595.TTQM0003   DELETE -
05 HSEND FIXCDS D TESTJOB.D286.T2141244.TTQM0003   DELETE -
06 HSEND FIXCDS D TESTJOB.D286.T2203302.TTNRON70   DELETE -
07 HSEND FIXCDS D TESTJOB.D286.T2221294.TTQM0003   DELETE -
08 HSEND FIXCDS D TESTJOB.D288.T1345356.TMDMDE21   DELETE -
09 HSEND FIXCDS D TESTJOB.D295.T1345250.TMDMDE21   DELETE -
10 HSEND FIXCDS D TESTJOB.D298.T1045337.TPDMDE21   DELETE -
11 HSEND FIXCDS D TESTJOB.D299.T1345302.TMDMDE21   DELETE -
12 HSEND FIXCDS D TESTJOB.D300.T1045286.TPDMDE21   DELETE - In 
the above member I would like to copy line 02    PATCH(X'06' 
BITS(0.1.)) ODS(SYSTEST.FIXCDS) after each HSEND command.
In ROSCOE (miss it dearly)  all I had to do is type CR in 02 and an A in 
03 up to 12.  Does ISPF have something similar?
Thanks in advance 


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



This email transmission and any accompanying attachments may contain CSX 
privileged and confidential information intended only for the use of the 
intended addressee. Any dissemination, distribution, copying or action taken in 
reliance on the contents of this email by anyone other than the intended 
recipient is strictly prohibited. If you have received this email in error 
please immediately delete it and notify sender at the above CSX email address. 
Sender and CSX accept no liability for any damage caused directly or indirectly 
by receipt of this email.


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

Re: ISPF LINE COMMAND

[John McKown]

On Thu, Aug 10, 2017 at 9:12 AM, Feller, Paul 
wrote:

> John is correct..
>
> This is how I've used it.
>
> Command ===>
> ** **
> c1 Line to copy
> ak0002 Other lines
> ak0003 Other lines
> ak0004 Other lines
> a5 Other lines
> 06 Other lines
> ** **
>
>
> ** 
> 01 Line to copy
> 02 Other lines
> 03 Line to copy
> 04 Other lines
> 05 Line to copy
> 06 Other lines
> 07 Line to copy
> 08 Other lines
> 09 Line to copy
> 10 Other lines
> ** 
>
> Thanks..
>
> Paul Feller
> AGT Mainframe Technical Support
>
>
​Just for completeness, the "AK" / "A" can also be ​be used with the
"CC".."CC" like:

CC0001 LINE 1 to copy
02 LINE 2 to copy
CC0003 LINE 3 to copy
AK0004 LINE after which to copy
​A5 Another LINE after which to copy​

01 LINE 1 to copy
02 LINE 2 to copy
03 LINE 3 to copy
04 Line after which to copy
05 LINE 1 to copy
06 LINE 2 to copy
07 LINE 3 to copy
08 Another LINE after which to copy
09 LINE 1 to copy
10 LINE 2 to copy
11 LINE 3 to copy


-- 
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

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

Re: ISPF LINE COMMAND

[Feller, Paul]

John is correct..

This is how I've used it.

Command ===> 
** **
c1 Line to copy  
ak0002 Other lines   
ak0003 Other lines   
ak0004 Other lines   
a5 Other lines   
06 Other lines   
** **


** 
01 Line to copy
02 Other lines 
03 Line to copy
04 Other lines 
05 Line to copy
06 Other lines 
07 Line to copy
08 Other lines 
09 Line to copy
10 Other lines 
** 

Thanks..

Paul Feller
AGT Mainframe Technical Support

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Thursday, August 10, 2017 09:10
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF LINE COMMAND

@John,

I thought I knew all the line commands.  Now I need to run over to z/OS and try 
this out.

Thanks for the info

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of John McKown
> Sent: Thursday, August 10, 2017 7:05 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ISPF LINE COMMAND
> 
> On Thu, Aug 10, 2017 at 8:55 AM, John Dawes < 00ff0e22811f-dmarc-
> requ...@listserv.ua.edu> wrote:
> 
> >   G'Day,
> > Is there a line command equivalent to ROSCOE line command using CR?
> > Let me explain.
> > 01 HSEND FIXCDS D TESTJOB.D286.T2041375.TTQM0003   DELETE
> > -
> > 02PATCH(X'06' BITS(0.1.)) ODS(SYSTEST.FIXCDS)
> > 03 HSEND FIXCDS D TESTJOB.D286.T2101225.TTQM0003   DELETE
> > -
> > 04 HSEND FIXCDS D TESTJOB.D286.T2120595.TTQM0003   DELETE
> > -
> > 05 HSEND FIXCDS D TESTJOB.D286.T2141244.TTQM0003   DELETE
> > -
> > 06 HSEND FIXCDS D TESTJOB.D286.T2203302.TTNRON70   DELETE
> > -
> > 07 HSEND FIXCDS D TESTJOB.D286.T2221294.TTQM0003   DELETE
> > -
> > 08 HSEND FIXCDS D TESTJOB.D288.T1345356.TMDMDE21   DELETE
> > -
> > 09 HSEND FIXCDS D TESTJOB.D295.T1345250.TMDMDE21   DELETE
> > -
> > 10 HSEND FIXCDS D TESTJOB.D298.T1045337.TPDMDE21   DELETE
> > -
> > 11 HSEND FIXCDS D TESTJOB.D299.T1345302.TMDMDE21   DELETE
> > -
> > 12 HSEND FIXCDS D TESTJOB.D300.T1045286.TPDMDE21   DELETE
> > -
> > In the above member I would like to copy line 02PATCH(X'06'
> > BITS(0.1.)) ODS(SYSTEST.FIXCDS) after each HSEND command.
> > In ROSCOE (miss it dearly)  all I had to do is type CR in 02 and
> > an A in 03 up to 12.  Does ISPF have something similar?
> > Thanks in advance
> >
> 
> ​Yes,
> 
> Put a "C" (Copy)on line 2. On lines 3 through 11 put an "AK" (After Keep) and
> a single "A" (After) on line 12.​
> 
> 
> --
> If you look around the poker table & don't see an obvious sucker, it's you.
> 
> Maranatha! <><
> John McKown
> 

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

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

Re: ISPF LINE COMMAND

[John Dawes]

John,I tried it out and it did what I asked for.  A massive thanks.

  From: John McKown 
 To: IBM-MAIN@LISTSERV.UA.EDU 
 Sent: Thursday, 10 August 2017, 10:05
 Subject: Re: ISPF LINE COMMAND
   
On Thu, Aug 10, 2017 at 8:55 AM, John Dawes <
00ff0e22811f-dmarc-requ...@listserv.ua.edu> wrote:

>  G'Day,
> Is there a line command equivalent to ROSCOE line command using CR?  Let
> me explain.
> 01 HSEND FIXCDS D TESTJOB.D286.T2041375.TTQM0003              DELETE
> -
> 02    PATCH(X'06' BITS(0.1.)) ODS(SYSTEST.FIXCDS)
> 03 HSEND FIXCDS D TESTJOB.D286.T2101225.TTQM0003              DELETE
> -
> 04 HSEND FIXCDS D TESTJOB.D286.T2120595.TTQM0003              DELETE
> -
> 05 HSEND FIXCDS D TESTJOB.D286.T2141244.TTQM0003              DELETE
> -
> 06 HSEND FIXCDS D TESTJOB.D286.T2203302.TTNRON70              DELETE
> -
> 07 HSEND FIXCDS D TESTJOB.D286.T2221294.TTQM0003              DELETE
> -
> 08 HSEND FIXCDS D TESTJOB.D288.T1345356.TMDMDE21              DELETE
> -
> 09 HSEND FIXCDS D TESTJOB.D295.T1345250.TMDMDE21              DELETE
> -
> 10 HSEND FIXCDS D TESTJOB.D298.T1045337.TPDMDE21              DELETE
> -
> 11 HSEND FIXCDS D TESTJOB.D299.T1345302.TMDMDE21              DELETE
> -
> 12 HSEND FIXCDS D TESTJOB.D300.T1045286.TPDMDE21              DELETE
> -
> In the above member I would like to copy line 02    PATCH(X'06'
> BITS(0.1.)) ODS(SYSTEST.FIXCDS) after each HSEND command.
> In ROSCOE (miss it dearly)  all I had to do is type CR in 02 and an A
> in 03 up to 12.  Does ISPF have something similar?
> Thanks in advance
>

​Yes,

Put a "C" (Copy)on line 2. On lines 3 through 11 put an "AK" (After Keep)
and a single "A" (After) on line 12.​


-- 
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

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

   

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

Re: ISPF LINE COMMAND

[Lizette Koehler]

@John,

I thought I knew all the line commands.  Now I need to run over to z/OS and try 
this out.

Thanks for the info

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of John McKown
> Sent: Thursday, August 10, 2017 7:05 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ISPF LINE COMMAND
> 
> On Thu, Aug 10, 2017 at 8:55 AM, John Dawes < 00ff0e22811f-dmarc-
> requ...@listserv.ua.edu> wrote:
> 
> >   G'Day,
> > Is there a line command equivalent to ROSCOE line command using CR?
> > Let me explain.
> > 01 HSEND FIXCDS D TESTJOB.D286.T2041375.TTQM0003   DELETE
> > -
> > 02PATCH(X'06' BITS(0.1.)) ODS(SYSTEST.FIXCDS)
> > 03 HSEND FIXCDS D TESTJOB.D286.T2101225.TTQM0003   DELETE
> > -
> > 04 HSEND FIXCDS D TESTJOB.D286.T2120595.TTQM0003   DELETE
> > -
> > 05 HSEND FIXCDS D TESTJOB.D286.T2141244.TTQM0003   DELETE
> > -
> > 06 HSEND FIXCDS D TESTJOB.D286.T2203302.TTNRON70   DELETE
> > -
> > 07 HSEND FIXCDS D TESTJOB.D286.T2221294.TTQM0003   DELETE
> > -
> > 08 HSEND FIXCDS D TESTJOB.D288.T1345356.TMDMDE21   DELETE
> > -
> > 09 HSEND FIXCDS D TESTJOB.D295.T1345250.TMDMDE21   DELETE
> > -
> > 10 HSEND FIXCDS D TESTJOB.D298.T1045337.TPDMDE21   DELETE
> > -
> > 11 HSEND FIXCDS D TESTJOB.D299.T1345302.TMDMDE21   DELETE
> > -
> > 12 HSEND FIXCDS D TESTJOB.D300.T1045286.TPDMDE21   DELETE
> > -
> > In the above member I would like to copy line 02PATCH(X'06'
> > BITS(0.1.)) ODS(SYSTEST.FIXCDS) after each HSEND command.
> > In ROSCOE (miss it dearly)  all I had to do is type CR in 02 and
> > an A in 03 up to 12.  Does ISPF have something similar?
> > Thanks in advance
> >
> 
> ​Yes,
> 
> Put a "C" (Copy)on line 2. On lines 3 through 11 put an "AK" (After Keep) and
> a single "A" (After) on line 12.​
> 
> 
> --
> If you look around the poker table & don't see an obvious sucker, it's you.
> 
> Maranatha! <><
> John McKown
> 

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

Re: ISPF LINE COMMAND

[Lizette Koehler]

I am not aware of such a feature.  However, you could write a REXX/ISPF 
Function that will generate the control cards with an ISPF SKEL. 

I have done that many times when I needed to create IDCAM DEFINE statements 
that spanned more than one line.

Also, if you have not done so, there is an ISPF List that might also be helpful

To join, go to this URL

ISPFhttps://listserv.nd.edu/cgi-bin/wa?A0=ispf-l

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of John Dawes
> Sent: Thursday, August 10, 2017 6:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: ISPF LINE COMMAND
> 
>   G'Day,
> Is there a line command equivalent to ROSCOE line command using CR?  Let me
> explain.
> 01 HSEND FIXCDS D TESTJOB.D286.T2041375.TTQM0003   DELETE -
> 02PATCH(X'06' BITS(0.1.)) ODS(SYSTEST.FIXCDS)
> 03 HSEND FIXCDS D TESTJOB.D286.T2101225.TTQM0003   DELETE -
> 04 HSEND FIXCDS D TESTJOB.D286.T2120595.TTQM0003   DELETE -
> 05 HSEND FIXCDS D TESTJOB.D286.T2141244.TTQM0003   DELETE -
> 06 HSEND FIXCDS D TESTJOB.D286.T2203302.TTNRON70   DELETE -
> 07 HSEND FIXCDS D TESTJOB.D286.T2221294.TTQM0003   DELETE -
> 08 HSEND FIXCDS D TESTJOB.D288.T1345356.TMDMDE21   DELETE -
> 09 HSEND FIXCDS D TESTJOB.D295.T1345250.TMDMDE21   DELETE -
> 10 HSEND FIXCDS D TESTJOB.D298.T1045337.TPDMDE21   DELETE -
> 11 HSEND FIXCDS D TESTJOB.D299.T1345302.TMDMDE21   DELETE -
> 12 HSEND FIXCDS D TESTJOB.D300.T1045286.TPDMDE21   DELETE -
> In the above member I would like to copy line 02PATCH(X'06'
> BITS(0.1.)) ODS(SYSTEST.FIXCDS) after each HSEND command.
> In ROSCOE (miss it dearly)  all I had to do is type CR in 02 and an A in
> 03 up to 12.  Does ISPF have something similar?
> Thanks in advance
> 
> 

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

Re: ISPF LINE COMMAND

[John McKown]

On Thu, Aug 10, 2017 at 8:55 AM, John Dawes <
00ff0e22811f-dmarc-requ...@listserv.ua.edu> wrote:

>   G'Day,
> Is there a line command equivalent to ROSCOE line command using CR?  Let
> me explain.
> 01 HSEND FIXCDS D TESTJOB.D286.T2041375.TTQM0003   DELETE
> -
> 02PATCH(X'06' BITS(0.1.)) ODS(SYSTEST.FIXCDS)
> 03 HSEND FIXCDS D TESTJOB.D286.T2101225.TTQM0003   DELETE
> -
> 04 HSEND FIXCDS D TESTJOB.D286.T2120595.TTQM0003   DELETE
> -
> 05 HSEND FIXCDS D TESTJOB.D286.T2141244.TTQM0003   DELETE
> -
> 06 HSEND FIXCDS D TESTJOB.D286.T2203302.TTNRON70   DELETE
> -
> 07 HSEND FIXCDS D TESTJOB.D286.T2221294.TTQM0003   DELETE
> -
> 08 HSEND FIXCDS D TESTJOB.D288.T1345356.TMDMDE21   DELETE
> -
> 09 HSEND FIXCDS D TESTJOB.D295.T1345250.TMDMDE21   DELETE
> -
> 10 HSEND FIXCDS D TESTJOB.D298.T1045337.TPDMDE21   DELETE
> -
> 11 HSEND FIXCDS D TESTJOB.D299.T1345302.TMDMDE21   DELETE
> -
> 12 HSEND FIXCDS D TESTJOB.D300.T1045286.TPDMDE21   DELETE
> -
> In the above member I would like to copy line 02PATCH(X'06'
> BITS(0.1.)) ODS(SYSTEST.FIXCDS) after each HSEND command.
> In ROSCOE (miss it dearly)  all I had to do is type CR in 02 and an A
> in 03 up to 12.  Does ISPF have something similar?
> Thanks in advance
>

​Yes,

Put a "C" (Copy)on line 2. On lines 3 through 11 put an "AK" (After Keep)
and a single "A" (After) on line 12.​


-- 
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

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

ISPF LINE COMMAND

[John Dawes]

  G'Day,
Is there a line command equivalent to ROSCOE line command using CR?  Let me 
explain.
01 HSEND FIXCDS D TESTJOB.D286.T2041375.TTQM0003   DELETE -
02    PATCH(X'06' BITS(0.1.)) ODS(SYSTEST.FIXCDS)  
03 HSEND FIXCDS D TESTJOB.D286.T2101225.TTQM0003   DELETE -
04 HSEND FIXCDS D TESTJOB.D286.T2120595.TTQM0003   DELETE -
05 HSEND FIXCDS D TESTJOB.D286.T2141244.TTQM0003   DELETE -
06 HSEND FIXCDS D TESTJOB.D286.T2203302.TTNRON70   DELETE -
07 HSEND FIXCDS D TESTJOB.D286.T2221294.TTQM0003   DELETE -
08 HSEND FIXCDS D TESTJOB.D288.T1345356.TMDMDE21   DELETE -
09 HSEND FIXCDS D TESTJOB.D295.T1345250.TMDMDE21   DELETE -
10 HSEND FIXCDS D TESTJOB.D298.T1045337.TPDMDE21   DELETE -
11 HSEND FIXCDS D TESTJOB.D299.T1345302.TMDMDE21   DELETE -
12 HSEND FIXCDS D TESTJOB.D300.T1045286.TPDMDE21   DELETE -
In the above member I would like to copy line 02    PATCH(X'06' 
BITS(0.1.)) ODS(SYSTEST.FIXCDS) after each HSEND command.
In ROSCOE (miss it dearly)  all I had to do is type CR in 02 and an A in 
03 up to 12.  Does ISPF have something similar?
Thanks in advance 


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

Re: Testing zOS 2.3 ?

[Elardus Engelbrecht]

Peter wrote:

>>Is anyone performing any kind of testing on zOS 2.3 and found any defects or 
>>any gotchas ?

Lizette gave you a good URL (summary of changes) for your info.

Here is another interesting URL (what is new for consideration) for you:

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.e0za100/chnewfu.htm

Have fun until the GA date!

Groete / Greetings
Elardus Engelbrecht

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

Re: Testing zOS 2.3 ?

[Elardus Engelbrecht]

Peter wrote:

>Is anyone performing any kind of testing on zOS 2.3 and found any defects or 
>any gotchas ?

It depends... but you (and the rest of prospective z/OS v2.3 users) will _not_ 
get any info at this stage.

What do you have in mind? What type of tests? From what z/OS version do you 
want to upgrade?


As Tom Conley said ... "They could tell ya, but then they'd have to kill ya."

He is not making fun of you, but I believe it is at this time too early to ask 
for details of those testing. [1]

Wait until 2017-09-29 according to [2] when it is GA, then you can ask again to 
big blue and IBM-MAIN.

Groete / Greetings
Elardus Engelbrecht

[1] - I know (it was told to me years ago) that big blue is testing themselves 
and also ask some vendors and clients to do testing after signing a NDA of 
course.

[2] - Datasheet - 
https://www-01.ibm.com/common/ssi/cgi-bin/ssialias?htmlfid=ZSD00998USEN;

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

Re: COBOL STOP RUN enhancement

[Allan Staller]

Both methods would need to be supported. How many COBOL programs exist with 
"MOVE x to RETURN-CODE. STOP RUN."
So what (other than standards "compliance") is the benefit to IBM to implement?



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Frank Swarbrick
Sent: Wednesday, August 9, 2017 6:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: COBOL STOP RUN enhancement

I am curious to hear opinions on something.  The current COBOL standard has an 
enhancement to the STOP RUN statement.  There are two new options, the ERROR 
phrase and the NORMAL phrase.  My first thought is that the NORMAL phrase could 
replace the RETURN-CODE special register, which is a non-standard IBM 
extension, for setting register 15 and thus the return code back to the OS.  An 
example is:

STOP RUN WITH NORMAL STATUS 16

This would set R15 to a value of 16 and then terminate the run-unit normally.  
Essentially the same as moving 16 to RETURN-CODE and then doing a STOP RUN.  
The advantage to it, other than being supported by the COBOL standard, is that 
the RETURN-CODE special register can be unintentionally set (usually back to 
zero) if you do a CALL statement after setting RETURN-CODE.

My further thinking is that perhaps the ERROR phrase of STOP RUN could cause an 
intentional abend.

STOP RUN WITH ERROR STATUS 1234

This could cause a U1234 abend (or possibly a specific user abend with the 1234 
being the "reason code"), which in turn would cause the run unit to "abnormally 
terminate" and do whatever abend processing your shop does.

Currently I believe the recommendation is to call the CEE3ABD routine (or 
CEE3AB2), and in the past one might call ILBOABN0.  Or in the case of our shop 
(I don't know the history/reasoning behind this) do an intentional data 
exception or division by zero.

Anyway it seems to me that an "official" COBOL method of doing this could be 
worthwhile.  I don't know if other languages such as C or PL/I have something 
similar.  All thoughts are welcome (preferably agreeing with me ).

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


::DISCLAIMER::


The contents of this e-mail and any attachment(s) are confidential and intended 
for the named recipient(s) only.
E-mail transmission is not guaranteed to be secure or error-free as information 
could be intercepted, corrupted,
lost, destroyed, arrive late or incomplete, or may contain viruses in 
transmission. The e mail and its contents
(with or without referred errors) shall therefore not attach any liability on 
the originator or HCL or its affiliates.
Views or opinions, if any, presented in this email are solely those of the 
author and may not necessarily reflect the
views or opinions of HCL or its affiliates. Any form of reproduction, 
dissemination, copying, disclosure, modification,
distribution and / or publication of this message without the prior written 
consent of authorized representative of
HCL is strictly prohibited. If you have received this email in error please 
delete it and notify the sender immediately.
Before opening any email and/or attachments, please check them for viruses and 
other defects.



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

Re: Any SMF statistics available for LOAD of a program?

[Edward Gould]

> On Aug 9, 2017, at 3:35 PM, Charles Mills  wrote:
> 
>> Softaudit says it can do it, they would have to front end the SVC.
> I believe they do or did. 
> 
> 


Then I would suggest you look elsewhere. Back in Y2K era a package was bought 
over my objections that did that very same thing front end the SVC. I raised my 
voice in protest and was ignore.
We installed the package and when the system got busy on Monday morning all 
hell broke loose. DB2 went bananas and users everywhere were yelling about the 
time and dates on their reports. 
I suggested firmly that we back the product out and basically was told to leave 
the room. The squabbled in a meeting room for two hours while our system was 
down. The door opened and everyone followed out. The VP came over to me and he 
told me to de install the product. A day or two later I was talking to one of 
the participants in the closed door meeting. Early on it was decided to 
de-install. The rest of the time was finger pointing as to who was at fault and 
who was going to pay for the software and the outage.

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

Re: Testing zOS 2.3 ?

[Lizette Koehler]

I guess I am not sure what you are looking for.

When z/OS V2.3 is GA then it would have gone through QA by IBM and Pre Release 
sites.  Any issues would have been addressed at that point if they were found.

Next, the  migration guide for z/OS V2.3 that would be presented at Share which 
will provide areas you need to review.

Other than those events which should cover most questions about z/OS V2.3, what 
else would you be looking for?

I found this link that may be helpful

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.e0zm100/e0z3msoc_V2R3_GA.htm

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Peter
> Sent: Wednesday, August 09, 2017 11:06 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Testing zOS 2.3 ?
> 
> Hi
> 
> Is anyone performing any kind of testing on zOS 2.3 and found any defects or
> any gotchas ?
> 
> Peter
> 

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

Re: MSGIEW2678S Module contains one or more deferred classes

[Peter Relson]

And the resulting IEW2678S makes sense in that context, because there
is nowhere known to IEWBLODI for the deferred classes to be loaded
from. So asking IBM to support deferred classes in IEWBLODI (or
IEWBLOAD, which is the same thing except without the IDENTIFY), makes
little sense. What might make sense would be an option on these two
functions to force all deferred classes to be loaded at the same time
as the non-deferred ones.


I'd have actually said that there is nowhere known to IEWBLODI for the 
deferred classes to be
loaded *to* (rather than *from*). It is LE that needs the instantiation of 
the C_WSA deferred class.
And LE might need more than one of them, depending on the application.

IBM would almost certainly decline to support deferred classes in these 
services and would decline to provide an option like the one mentioned.

But I share the question asked in one of the posts about a steplib. 
Wouldn't it make more sense to have the test versions of these modules in 
a different steplib, with the same module names and not do anything 
strange at run-time? Is it not feasible to have the JCL accommodate this?

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: COBOL STOP RUN enhancement

[John McKown]

On Wed, Aug 9, 2017 at 6:43 PM, Frank Swarbrick  wrote:

> I am curious to hear opinions on something.  The current COBOL standard
> has an enhancement to the STOP RUN statement.  There are two new options,
> the ERROR phrase and the NORMAL phrase.  My first thought is that the
> NORMAL phrase could replace the RETURN-CODE special register, which is a
> non-standard IBM extension, for setting register 15 and thus the return
> code back to the OS.  An example is:
>
> STOP RUN WITH NORMAL STATUS 16
>
> This would set R15 to a value of 16 and then terminate the run-unit
> normally.  Essentially the same as moving 16 to RETURN-CODE and then doing
> a STOP RUN.  The advantage to it, other than being supported by the COBOL
> standard, is that the RETURN-CODE special register can be unintentionally
> set (usually back to zero) if you do a CALL statement after setting
> RETURN-CODE.
>
> My further thinking is that perhaps the ERROR phrase of STOP RUN could
> cause an intentional abend.
>
> STOP RUN WITH ERROR STATUS 1234
>
> This could cause a U1234 abend (or possibly a specific user abend with the
> 1234 being the "reason code"), which in turn would cause the run unit to
> "abnormally terminate" and do whatever abend processing your shop does.
>
> Currently I believe the recommendation is to call the CEE3ABD routine (or
> CEE3AB2), and in the past one might call ILBOABN0.  Or in the case of our
> shop (I don't know the history/reasoning behind this) do an intentional
> data exception or division by zero.
>
> Anyway it seems to me that an "official" COBOL method of doing this could
> be worthwhile.  I don't know if other languages such as C or PL/I have
> something similar.  All thoughts are welcome (preferably agreeing with me
> ).
>
>
​PL/I has the STOP statement. But it is like COBOL's STOP RUN in that it
does not have any specification for a return code. C can use the exit()
function, which can take an integer value which is the return code. But
nothing has the equivalent of the 'ERROR STATUS' functionality that you
mentioned.

In IBM speak "how much are you will to pay for this feature and what other
improvements are you willing to abandon or delay to implement this
instead?" IBM tends to not look favorably upon extending ANSI COBOL unless
there is a real need or money to be made.

Oh, and it does seem like a good idea to me. That and around $10 might get
you a cheap cuppa at Starbucks.​


-- 
If you look around the poker table & don't see an obvious sucker, it's you.

Maranatha! <><
John McKown

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

Re: Any SMF statistics available for LOAD of a program?

[Peter Relson]

You could also write something of your own, as of z/OS 2.2, using the 
CSVFETCH exit which was developed specifically to help get products out of 
front-ending the contents supervisor SVC's.

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: Testing zOS 2.3 ?

[Tom Conley]

On 8/10/2017 2:04 AM, Peter wrote:

Hi

Is anyone performing any kind of testing on zOS 2.3 and found any defects
or any gotchas ?

Peter



They could tell ya, but then they'd have to kill ya.

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

Re: Researching Destination z article on non-US mainframes

[Richards, Robert B.]

Ditto!

In my case, lots of usermods for local language stuff (Arabic).

The biggest difference is usually in hardware costs (Uplifts by EMEA, local 
country, even local branch).

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Martin Packer
Sent: Thursday, August 10, 2017 4:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Researching Destination z article on non-US mainframes



In my (also) worldwide experience the challenges my customers face are VERY 
similar wherever you are.

Cheers, Martin

Sent from my iPad

> On 10 Aug 2017, at 09:04, Brian Westerman 
> 
wrote:
>
> I have installed and supported mainframes all over the world, all over
Europe, Africa, Asia, Australia, Middle East, South America, USA, and even in 
Iceland, Greenland and the South (and almost-north) Poles and I don't really 
understand the question I guess.  The installation and support is almost 
identical.  The users are obviously using them differently, but in general they 
are quite similar.  Were you expecting something "odd" with non-US mainframe 
users or sites?  Do they speak other languages, yes, does it matter to the 
mainframe, not really.  What differences are you looking for?  I mostly see 
similarities, and maybe I'm just looking beyond differences to see them, but I 
probably need more information on what you're looking for to be able to respond 
better.
>
> Brian Westerman
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,  send 
>email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN 
>Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU


--
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: Researching Destination z article on non-US mainframes

[Martin Packer]

In my (also) worldwide experience the challenges my customers face are VERY
similar wherever you are.

Cheers, Martin

Sent from my iPad

> On 10 Aug 2017, at 09:04, Brian Westerman 
wrote:
>
> I have installed and supported mainframes all over the world, all over
Europe, Africa, Asia, Australia, Middle East, South America, USA, and even
in Iceland, Greenland and the South (and almost-north) Poles and I don't
really understand the question I guess.  The installation and support is
almost identical.  The users are obviously using them differently, but in
general they are quite similar.  Were you expecting something "odd" with
non-US mainframe users or sites?  Do they speak other languages, yes, does
it matter to the mainframe, not really.  What differences are you looking
for?  I mostly see similarities, and maybe I'm just looking beyond
differences to see them, but I probably need more information on what
you're looking for to be able to respond better.
>
> Brian Westerman
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU


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

Re: Researching Destination z article on non-US mainframes

[Brian Westerman]

I have installed and supported mainframes all over the world, all over Europe, 
Africa, Asia, Australia, Middle East, South America, USA, and even in Iceland, 
Greenland and the South (and almost-north) Poles and I don't really understand 
the question I guess.  The installation and support is almost identical.  The 
users are obviously using them differently, but in general they are quite 
similar.  Were you expecting something "odd" with non-US mainframe users or 
sites?  Do they speak other languages, yes, does it matter to the mainframe, 
not really.  What differences are you looking for?  I mostly see similarities, 
and maybe I'm just looking beyond differences to see them, but I probably need 
more information on what you're looking for to be able to respond better.

Brian Westerman

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

Re: Researching Destination z article on non-US mainframes

[ITschak Mugzach]

if i recall correctly, `there is a brazilian startup that uses a mainframe
as a gaming server.

Itschak

On Thu, Aug 10, 2017 at 7:22 AM, Gabe Goldberg  wrote:

> Hi, Gord -- thanks for requesting clarification!
>
> For this article, I'm interested in IBM mainframe usage outside the US.
> Canada is of interest whether or not mainframe experiences there are
> similar to US, included but not limited to issues dealing with IBM. If it's
> all similar to the US, I'll mention that and if it's different, I'll
> explore that.
>
> Gord Tomlin  said:
>
> On 2017-08-08 15:37, Gabe Goldberg wrote:
> > If you're running a non-US mainframe
>
> Hi Gabe,
>
> To clarify: do you mean an IBM mainframe that happens to be situated
> outside the US, a mainframe (non-IBM) that originated outside the US, or
> both?
>
> Also, is Canada of interest to you? I think you would find the
> experiences very similar to those of US users, other than those related
> to dealing with IBM.
>
> --
>
> Regards, Gord Tomlin
> Action Software International
> (a division of Mazda Computer Corporation)
> Tel: (905) 470-7113, Fax: (905) 470-6507
>
> --
> Gabriel Goldberg, Computers and Publishing, Inc.   g...@gabegold.com
> 3401 Silver Maple Place, Falls Church, VA 22042   (703) 204-0433
> LinkedIn: http://www.linkedin.com/in/gabegoldTwitter: GabeG0
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
ITschak Mugzach
*|** IronSphere Platform* *|** Automatic ISCM**  (Information Security
Contiguous Monitoring) **|  *

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

Re: MSGIEW2678S Module contains one or more deferred classes

[Giliad Wilf]

On Wed, 9 Aug 2017 22:18:51 +, Frank Swarbrick 
 wrote:

>There was a post to ibm-main by Allan Kielstra of IBM compiler development (I 
>think) on May 10, 2017 (How are Program Object sections with Defer attribute 
>loaded?) that discusses how the writable static area (WSA) is used in COBOL V5 
>and COBOL V6.  Briefly, this is how I understand it.  If the "NOWSOPT" 
>compiler option is used (the default in COBOL V5) then all COBOL 
>working-storage is placed in the WSA.  If the "WSOPT" compiler option is used 
>then working-storage is separately allocated upon initial entry to the program 
>and the address of the WS is placed in the WSA.
>
>Hopefully I got that all right!
>

Everyone talks about WSOPT vs NOWSOPT compiler option, but I can't find them 
documented in COBOL documentation library.
Are WSOPT and NOWSOPT some nicknames of the accurate terms?
Where are they documented?

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

Testing zOS 2.3 ?

[Peter]

Hi

Is anyone performing any kind of testing on zOS 2.3 and found any defects
or any gotchas ?

Peter

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