Re: Generate a data set with record numbers?

[Retired Mainframer]

Look up the SEQNUM operand in your sort reference

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Schmitt, Michael
Sent: Friday, September 15, 2023 1:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Generate a data set with record numbers?

I want to generate a data set that has the record number on each line, such
as:

RECORD 1
RECORD 2
RECORD 3

Or

RECORD 1
RECORD 2
RECORD 3

Perhaps I want to generate 1,000 records. Or 10,000.

The question is, what's the simplest way to do this with a *standard* z/OS
utility (i.e. that comes with z/OS), or with a standard sort product (e.g.
DFSORT or SyncSort), where it is all in a self-contained job?

I thought of IEBDG or IEBGENER but I don't see where you can tell it to
generate a sequence number in the records it is building. Is it there and
I'm just missing it?


I came up with two solutions:

A. IEBGENER to copy instream REXX into a PDS, then IRXJCL to execute it. The
REXX exec generates the records.

Or

B. IEBDG to generate a file of N records that just say "RECORD", followed by
a SORT that uses INREC to modify the record to contain the RECNUM. The sort
would just copy the records.


Both of these solutions are two steps.

I'm curious if there's a simpler solution that I haven't thought of.

--
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: There are good bosses and then there are the other kind

[Retired Mainframer]

I always gave my bosses two choices:
Tell me what to do and I'll do it.
Tell me what you want and I'll see that you get it.

It took a while for some to figure out that the second was a better option.
A few never did.

Very few could compare to your Mr. Condon but they were indeed a pleasure.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Thursday, September 7, 2023 3:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: There are good bosses and then there are the other kind

I remember with fondness an old warrant officer who

 1. Had firm ideas about what he wanted.
 2' Ensured that we understood what he wanted.
 3. Insisted that we give him what he wanted.
 4. Got out of our way and let us do our jobs.
 5. Had our backs.

On item 4, I don't mean that he was aloof; he was always available if we
wanted to discuss things. But I never saw him micromanaging.

Mr. Condon, wherever you are, it was a pleasure working for you.

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

Re: ASM call by value

[Retired Mainframer]

Sorry but no.

Structures are passed by value.  Modifying an element of the structure in the 
called function has no effect on the value of the structure element as seen by 
the calling function.

Arrays on the other hand are passed by address.  The modified value of an 
element of the array in the called function is visible to the calling 
function.  In techno speak, the value parameter received by the called 
function is the address of the first element of the array and has type 
"pointer to element type."  In other words,
 myfunc(arrayname);
is identical to
 myfunc([0]);

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Tony Thigpen
Sent: Sunday, March 26, 2023 3:34 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ASM call by value

Structures are passed by address, not value.

Tony Thigpen

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

Re: I want to cry

[Retired Mainframer]

Look in the System Codes manual.  047 means a program that is not running 
"authorized" requested a service that only one that is running "authorized" 
can access.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Hank Oerlemans
Sent: Thursday, February 2, 2023 7:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: I want to cry

Customer : Could you please have a look and help us to fix the issue .
Customer log :  IEA992I SLIP TRAP ID=S047 MATCHED.

ME :
1. Hire a sysprog
2. RTFM
3. Google Play and hit update
4. Apple store and hit update
5. Check calendar and mortgage and see when I can retire
6. Tears welling up realising I can't actually say any of 1-4.

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

Re: Title of book -- Naming Convention thing for SMPE

[Retired Mainframer]

It is in chapter 10 of "Standard Packaging Rules for z/OS-Based Products," 
SC23-3695-10.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Steve Thompson
Sent: Wednesday, September 14, 2022 4:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Title of book -- Naming Convention thing for SMPE

Once upon a time I had a copy of a book that gave the naming
convention for naming elements for SMPE so that one would not
conflict with IBM either in LPA, or LNKLST, etc. And one could
even share a common CSI.

I know it has to have been updated by now (my copy was from back
about 1997).

Anyone know the name of that book, or if it got renamed, or... ?

Regards,
Steve Thompson

--
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: dfsort - Reformat file

[Retired Mainframer]

"It didn't work" doesn't tell us very much.  How did the results differ from 
what you wanted?

Is it always four blanks in field 1, two in field 2, two in field 3, and 2 in 
field 4?  Is the length of each field constant across all the records?  If so, 
then does
BUILD=(5,8,15,5,22,21,45,5)
come close to what you want?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Ron Thomas
Sent: Monday, September 5, 2022 10:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: dfsort - Reformat file

Hi ,

We have a input PIPE DELIMITED file as follows of lrecl = 80. Need to remove 
the leading spaces with out disturbing the 3 column values

1652087|..0049|..OPTICAL |..0170|
2130994|..0006|..STATIONERY  |..0716|
2199447|..0078|..SERVE OVER PIZZA|..0410|
2199449|..0078|..SERVE OVER PIZZA|..0410|

o/p has to be

1652087|0049|OPTICAL |0170|
2130994|0006|STATIONERY  |0716|
2199447|0078|SERVE OVER PIZZA|0410|
2199449|0078|SERVE OVER PIZZA|0410|

i used OUTREC BUILD=(1,80,SQZ=(SHIFT=LEFT)) and it didn't work out

Could someone pls let me know how to make this ?

Thanks
Ron T

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

Re: Using SORT to generate sequential Dates

[Retired Mainframer]

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Thursday, June 30, 2022 3:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using SORT to generate sequential Dates

On Thu, 30 Jun 2022 22:22:08 +, Sri h Kolusu  wrote:

>>>I tried this in Rexx.  I found it astonishingly hard to get "the end of the 
>>>current month".
>
>DFSORT has plethora of date related functions that can get the last day of 
>month, Quarter and year quite easily in either Gregorian format or Julian 
>format.
>
So it accounts for thee switch from Julian to Gregorian in Catholic countries 
in 1582
and in Protestant countries in 1752?

-- 
gil

How come you didn't ask about the lunar calendar used in Israel or the one 
used in Muslim countries?

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

Re: IBM ordered to pay $1.6b to BMC

[Retired Mainframer]

There are numerous examples in the history of this group where members have 
pilloried articles (and authors) that demonstrate a significant lack of 
understanding about the mainframe.

It was initially amusing (now it's just boring) that some members don't seem 
inclined to apply the same critical restraint to themselves.

How did we survive before kill files?

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

Re: Publicly available site for SA23-7832-13 zArch PoOP for z16?

[Retired Mainframer]

I clicked on the link and downloaded SA22-7832-13 with no problem.  Page ii 
contains the following:

"Fourteenth Edition (May, 2022)
This edition obsoletes and replaces z/Architecture Principles of Operation, 
SA22-7832-12."

It also contains the following disclaimer to keep the lawyers happy:

"The reader should be aware of the fact that this publication contains many 
symbols, such as superscripts, that may not display correctly with any given 
hardware or software. The definitive version of this publication is the 
hardcopy version."

I'm curious if anyone has put out information on where such incorrect displays 
occur. I also wonder how may customers order the hard copy.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Farley, Peter x23353
Sent: Friday, June 3, 2022 7:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Publicly available site for SA23-7832-13 zArch PoOP for z16?

Thanks for that link, but those are all the ones up to the -12 edition, not 
including the new -13 edition yet.

Peter

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

Re: Fall back STP Adjustments

[Retired Mainframer]

I think the answer is both.  AT 0700 UTC it will be 0200 CDT.  After an 
infinitely small interval, it will still be 0700 UTC but will be 0100 CST.  At 
the time of transition, either CST is correct (or maybe neither are).

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Carmen Vitullo
Sent: Monday, November 1, 2021 10:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Fall back STP Adjustments

I hate to beat a dead horse as it relates to time change, but this year we 
have a new z15 and the new HMC version. we're setup currently for automatic 
adjustment, my question is that's not in the doc I have; the time will change 
@7PM UTC time according to the doc, so that means 2AM Central time? or 1AM 
central time
thanks
Carmen (mostly confused)

--
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: Question about negative indexes

[Retired Mainframer]

Use LGH instead of LH (or maybe even LGHI).  If you are not in AMODE 64, you 
probably don't care about messing with the high order half of the register. 
In this case, the low order bits of the register will contain the same value 
they would have contained with LH.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bernd Oppolzer
Sent: Saturday, October 23, 2021 3:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about negative indexes

So this means that

LA   2,ITEM+10
LH   3,=H'-5'
LA   2,0(2,3)

will put the address ITEM+5 in register 2, at least in AMODE 24/31?

With AMODE 64, this will be a problem, because the LH instruction only
fills the right half
of the 64 bit register 3, right?

Is there a way to do this right in all AMODEs?
For positive indexes? (only, if we assume the left half to be zero?)

Thanks, kind regards

Bernd

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

Re: SMPe GIM30206E

[Retired Mainframer]

At my last site, the Quality Control folks would not accept anything higher 
than a four on a job they were required to review.  This was a result of some 
product teams bamboozling them on 8s and 12s in the past.  Management did not 
like it when the customers discovered delivery errors.  Once QC was required 
to review system updates as part of new security practices, 4 became the limit 
for SMPE also.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mark Jacobs
Sent: Friday, September 3, 2021 10:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMPe GIM30206E

Look at the SMP/e CAUSER report and see what is/are the hold reasons. Then it 
depends on what they are. Bypass or not. There's no need to exclude them. Just 
expect an RC=8 on the apply.

Mark Jacobs

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

Re: display alias definition

[Retired Mainframer]

Would the LISTCAT ALL output for the alias show a SYMBOLICRELATE rather than a 
RELATE parameter?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Giannelli
Sent: Wednesday, August 25, 2021 2:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: display alias definition

how might I display or report how an alias is defined?
I am trying to determine is a system symbol was used to create the alias and 
"resolve" the name i.e.

ALIAS "*.RTE.LINK" points to "*.RTE2104.LINK"
but I want to make sure it was defined with "*.RTE$SYMBOL..LINK"
thanks
Bill

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

Re: How to compare parameters in one z/Os with parameters in another z/OS

[retired mainframer]

Don't the various $D commands show the settings actually in effect, not 
necessarily the settings in PARMLIB?  Don't the effects of $T and other 
modifications survive JES2 restarts until a cold start occurs?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Ed Jaffe
> Sent: Monday, June 14, 2021 8:08 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How to compare parameters in one z/Os with parameters in another 
> z/OS
> 
> On 6/14/2021 6:29 AM, Arthur wrote:
> > Are there (supported?) ways to generate parmlib members from what's
> > actually in effect? (ISTR that JES2 does.)
> 
> Is this possible in JES2? How does it work?
> 
> 
> --
> Phoenix Software International
> Edward E. Jaffe
> 831 Parkview Drive North
> El Segundo, CA 90245
> https://www.phoenixsoftware.com/

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

Re: JCL PARM issue

[retired mainframer]

Forget the enclosing quotes and the JCL quote-doubling rules.  Show us the 
exact text you want PCR2GREP to see when it executes.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Ze'ev Atlas
> Sent: Sunday, December 13, 2020 11:32 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: JCL PARM issue
> 
> What am I doing wrongI have doubled every single quote within the string, that
> should be:'''abc¬*' PCRE2.TESTLIB(GRPIN)''
> ||| | +-+ 
> |||++|+
> --+where the external quotes are the enclosing quotes.So the actual 
> PARM field
> looked like:
> // EXEC RUNGREP,TEST='-- Test 15 -',// 
> PARM1='abc¬*''
> PCRE2.TESTLIB(GRPIN)'''
> ++TEST8 EXEC
> PGM=PCR2GREP, ++  PARM=
>IEFC653I SUBSTITUTION JCL - PGM=PCR2GREP,PARM=''abc¬*'
> Why does JCL drop the rest of PARM1?Thank you all
> 
> Ze'ev Atlas

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

Re: Can a non-admin restrict others from viewing one of their own MVS data sets?

[retired mainframer]

Were you careful to follow you system's standard regarding discrete vs
generic fully qualified dataset profiles?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Frank Swarbrick
> Sent: Friday, November 06, 2020 4:25 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Can a non-admin restrict others from viewing one of their own
MVS data
> sets?
> 
> Thanks!  I was successfully able to use the Security System (RACF) panels
to add a
> dataset profile for a dataset with my HLQ, with UACC(NONE).  I had another
> developer who would normally have access try to view it and he was
blocked.  Didn't
> really expect for this to work, but glad it did.

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

Re: JES2 Policies

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of R.S.
> Sent: Thursday, November 05, 2020 4:20 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: JES2 Policies
> 
> Joe,
> 
> And I'm pretty sure no business department is interested in ACCNT field
> and its content. Believe me or not: IT is a tool to achieve business
> goal, but the details, guts, fields, commas are NOT in the scope of
> business focus. They want working application, it is up to IT how to do
> it. Changing ACCNT or classes are not strategic.
> BTW: Gadi's further explanation sched more light on that.
> That's why I proposed solution for real need.  Not just abstract
> excercise to solve.
> 
> --
> Radoslaw Skorupka
> Lodz, Poland

Why would you think that?  When I was working, our office had several different 
contracts active simultaneously.  Many were "cost plus" rather than "fixed 
fee."  It was not unusual to spend a portion of each day on different ones.  We 
were required to daily document our time on each to the nearest tenth of an 
hour.  Similarly, when we logged on to TSO or submitted a batch job, we were 
required to specify the account field that corresponded to that contract.  We 
had an exit (IEFACTRT?) that captured this along with job statistics, such as 
CPU time, I/O counts, etc and cut appropriate SMF records.  These formed the 
basis for billing the customers.  It was also used by management to determine 
how accurate initial estimates were and then refine our process for estimating 
future bids.

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

Re: Exit06 and Jes2parm for class timelimit

[retired mainframer]

My JES2 manual says Exit 6 modifies the C/I text.  The job class value applies 
regardless of how the C\I text got its value (from the JCL or the exit).  From 
this I infer that the job time limit will be the minimum value specified in the 
C/I or in the parm.

Waiting for someone with experience to chime in.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Peter
> Sent: Monday, November 02, 2020 9:01 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Exit06 and Jes2parm for class timelimit
> 
> Hello
> 
> We have a exit EXIT06  to limit the execution of some jes classes and also
> we have the same  jes classes defined in JES2PARM with the different time
> limit .
> 
> So the question is out of two values which takes the precedence ?

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

Re: HSM problem

[retired mainframer]

What values are assigned to the CDSVERSIONBACKUP sub-parameters?  Are they
the same as the SYSUT2 DD statement in your IEBGENER job?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Gadi Ben-Avi
> Sent: Thursday, October 15, 2020 1:04 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: HSM problem
> 
> Hi,
> We're installing HSM on a new z/OS v2.4 partition.
> HSM starts and seems to be OK.
> When I issue the F HSM,BACKVOL CDS  command, I get:
> ARC0744E MCDS COULD NOT BE BACKED UP, RC=0024,  677
> ARC0744E (CONT.) REAS=. MIGRATION, BACKUP, FRBACKUP, DUMP,
> AND
> ARC0744E (CONT.) RECYCLE HELD.
> 
> RC 24 says that a scratch tape could not be allocated.
> 
> When I run a simple IEBGENER job to write to tape, there are no problems.
> 
> What can the problem be?
> 
> Gadi
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: C RTL regcomp() fails with more than 9 (groups)

[retired mainframer]

One of C's less frequently used features is automatic string literal 
concatenation.  The expression 
 "AB"   "cd"
will be compiled as
 "ABcd"
as long as the components (could be more than two) are separated only by white 
space.

So if the problem really is related to line length (your line has 74 
characters), you could break it up into as many shorter literals as you like 
with each on a new line (and even indented for easier reading).

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Kirk Wolf
> Sent: Monday, October 05, 2020 8:41 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: C RTL regcomp() fails with more than 9 (groups)
> 
> Can be demonstrated with the following test program.  This works fine with
> regcomp() on linux and other RE platforms (PCRE, javascript, python, etc).
> 
> /* test regcomp with more than 9 (groups).
>On z/OS V2R3, fails with:
>Invalid regular expression '...' - (rc=8) \( \) or ( ) imbalance
> 
> 
> #include 
> #include 
> #include 
> 
> int main(int argc, char** argv) {
> 
> int failed = 0;
> char buf[100];
> regex_t rx;
> const char* testRE =
> "(^a1$)|(^a2$)|(^a3$)|(^a4$)|(^a5$)|(^a6$)|(^a7$)|(^a8$)|(^a9$)|(^a10$)";
> int rc = regcomp(, testRE, REG_EXTENDED | REG_NOSUB);
> if (rc) {
> regerror(rc, , buf, sizeof(buf));
> fprintf(stderr, "Invalid regular expression '%s' - (rc=%d) %s\n",
> testRE, rc, buf);
> failed = 1;
> }
> return failed;
> }
> 
> Switching to BREs, doesn't help. Something probably didn't fit in 80 bytes
> :-)
> Really sucks.
> 
> Kirk Wolf
> Dovetailed Technologies
> http://dovetail.com
> 
> PS> I can find no documented limit of "9" groups here:
> https://pubs.opengroup.org/onlinepubs/007904875/basedefs/xbd_chap09.html

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

Re: How get a user to use his own catalog rather than master?

[retired mainframer]

Users probably need read access to mcat so they can access SYS1.MACLIB and 
others like it.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Jesse 1 Robinson
> Sent: Thursday, September 17, 2020 5:06 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How get a user to use his own catalog rather than master?
> 
> Maybe I need a make-up class at Saturday morning vocab class. Then again 
> maybe it's
> a distinction without a difference. Here's why you do *not* want to 
> over-grant update
> access to the master catalog.
> 
> -- For the average user, there should be some user catalog pointed to by an 
> alias in
> mcat. There is no need for access to mcat. All ucats need to be managed and 
> subjected
> to regular housekeeping.
> 
> -- For someone who genuinely needs update or greater access to the master 
> catalog,
> failure to create a ucat alias causes *all* data sets created by the user to 
> go into mcat.
> This insidious result can go unnoticed for a long period. Getting the mcat 
> cleaned up
> can be arduous, time consuming, and disruptive.
> 
> As for whether gratuitous update access to mcat is a 'security' or an 
> 'integrity' problem,
> extensive damage is possible. Simply deleting ucat aliases from mcat can 
> bring a
> system to its knees. This is without touching a single customer data set. 
> Don't let it
> happen.
> 
> .
> .
> 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

Re: How to determine which SMP CSI is used

[retired mainframer]

Do both CSIs contain a global zone?  Normally, one would contain the global 
zone and point to the other for the target or distribution zone, or both.  

If both have global zones, do they contain any FMIDs in common?  If not, the 
one with the FMID for your PTFs is the one you want.

By run time library, I assume you mean target dataset or file.  Since almost 
everyone recommends against applying updates to active ones, should any CSI 
point to one currently in use?

Regardless of which dataset a DDDEF points to, it can always be overridden by 
JCL when the updates are actually applied.  DDDEFs can also be changed at any 
time.  So whether some point to your current datasets or not, you don't know if 
they did at the time updates were applied.

The only way to know which dataset were used when an update was applied is to 
look at the SMPE listing produced when the update was applied.  Hopefully your 
change control process keeps these, at least for audit purposes.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Bill Giannelli
> Sent: Wednesday, August 19, 2020 6:12 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: How to determine which SMP CSI is used
> 
> I have a component, DB2 Query Monitor, that I need to apply PTFs to. I have 
> found 2
> CSIs. How do I determine which CSI was used for the currently running "Run 
> Time
> Libraries"?
> thanks
> Bill

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

Re: Help with technique to identify data for last time/date an event occurred

[retired mainframer]

If you specify the key as job name plus date plus time and sort descending
and keep only 1, DFSORT should give you what you want.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Lizette Koehler
> Sent: Friday, July 24, 2020 11:25 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Help with technique to identify data for last time/date an event
occurred
> 
> I have the following data
> 
> 
> 
> JOBN1 JOBNO  DATE-RAN  TIME-RAN  Condition-Code
> 
> JOB123123456  22Jul20201000   0
> 
> JOB123123356  22Jul2020   0
> 
> JOB123120056  22Jul20200100   0
> 
> JOB123A  121156  22Jul20201300   0
> 
> JOB123B  122356  22Jul20200100   0
> 
> JOB123B  125656  22Jul20201325   0
> 
> JOB123C  120956  22Jul20201300   0
> 
> JOB123D  121756  22Jul20202300   0
> 
> 
> 
> 
> 
> I am not sure what would be the best way to get the following output
> 
> 
> 
> I just want the job (plus details) from the last run.  So if a job name
runs
> 10 times, what is the very last time it ran
> 
> 
> 
> JOB123123456  22Jul20201000   0
> 
> JOB123B  125656  22Jul20201325   0
> 
> JOB123C  120956  22Jul20201300   0
> 
> JOB123D  121756  22Jul20202300   0
> 
> 
> 
> 
> 
> I can put it in an Excel and possibly use LAST or MIN/MAX functions
> 
> 
> 
> I can probably code REXX to do this
> 
> 
> 
> Maybe even DFSORT/ICETOOL
> 
> 
> 
> 
> 
> Just not sure what would be the easiest.  I will have several million
> entries where I just need the last time a specific job ran.
> 
> 
> 
> 
> 
> 
> 
> Thanks
> 
> 
> 
> 
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Storage & tape question

[retired mainframer]

You might want to consider whether transportability is an issue.  How do you 
get your backups to your disaster recovery site?  The systems I worked on were 
prohibited from connecting to public networks.

You might also want to consider operational security.  If your new storage 
device is physically on line, it is subject to things like accidental data 
deletion and damage from a power surge, fire, or EMP.  A tape drive in a secure 
vault could probably survive the next mass extinction.

And after you resolve all the technical issues, somebody should still bring up 
cost.  It's not just acquisition cost per megabyte but things like equipment 
footprint, power, air conditioning, maintenance.  And don't forget planned 
obsolescence.  Mine was one of the last sites in the company (country?) to use 
9345s.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of kekronbekron
> Sent: Sunday, July 05, 2020 5:13 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Storage & tape question
> 
> Hello List,
> 
> Just wondering ... assuming there's a primary storage product out there that 
> can store
> how-many-ever hoo-haa-bytes, and is a good product in general, it should make 
> sense
> to begin eliminating all tape (3490/3590) use right?
> First, ML1 & ML2 in HSM, then HSM itself, then rebuild jobs to write to disk, 
> or do
> SMS/ACS updates to make it all disk reads/writes.
> 
> Looking at the current storage solutions out there, this is possible, right?
> What would be the drawbacks (assume that primary storage is super 
> cost-efficient, so
> there's no need to archive anything).
> 
> - KB
> 
> --
> 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: Assembler question

[retired mainframer]

The assembler reflects the architecture of the machine.  Originally, you could 
not load a 32-bit integer (called a full word) into a register from memory 
unless the address was properly aligned.  Attempting to do so would cause the 
instruction to terminate and a program check interrupt (specification 
exception) to occur.  There were similar alignment restrictions on halfword 
integers, single and doubleword floating point values, and address values.

Some things have changed in the ensuing 50+ years.  Some misalignments no 
longer cause an interrupt, merely a degradation in performance.  Some newer 
more complex instructions come with new different alignment requirements.

When you specify an operand with an implied length and alignment, the assembler 
will automatically add padding as necessary before the operand to insure the 
implied alignment.  That is why your original DS F was shifted two bytes to the 
right.  The assembler also provides a way to override this default behavior for 
individual operands.  You do this by specify the desired length.  If you had 
coded DS FL4, your operand would have abutted the previous halfword operand.  
Whether this would have produced the desired result when you executed your 
program is a different issue.

If you haven't done so already, you can download the Principles of Operation 
manual which discusses the hardware in considerable detail.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Nguyen Dt
> Sent: Sunday, July 05, 2020 8:24 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Assembler question
> 
> Thank you all for your inputs,
> 
> I am over the problem now.
> In fact what i tried to do is to Move some fields to my output fields and 
> then write it
> as a report. (It is a Db2 performance report, the input are from the trace 
> buffers with
> the macros given by Db2 libraries)
> 
> So my program is roughly like this
> READ Buffer on QW... variables
> 
> MVC OW...,QW...
> 
> 
> OW... are the output fields i defined it exactly as in the DSECT got from the 
> macros.
> As it is an output field, the position is important  (and it is why i 
> detected a problem in
> the positions of my fields)
> Its is OK now with OW... variables defined as characters CLx
> 
> (PS: When i use NOALIGN , the program abends at execution ...)
> 
> As i learn assembler "on the flight" , there is some important things that i 
> don' t
> understand , such as the alignment  This is something we don't care in 
> cobol , rexx
>  Can you tell me why assembler has the alignment in words that are easy to
> understand and visualize in my little head ?
> 
> Thank you again.
> Duc
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: TSO/E SUBMIT exit

[retired mainframer]

As near as I can tell, the system as delivered uses the OPER resource of the 
TSOAUTH class only to control access to the OPERATOR command.  If you want to 
control the ability to issue JES commands from batch without an exit, you will 
need to update the access list for other classes and profiles.  You could 
duplicate the access list for TSOAUTH(OPER) for each of the profiles 
controlling the commands in question but it might be easier to follow Lizette's 
suggestion and control access to a specific set of job classes and use the JES2 
JOBCLASS initialization statements to allow only those classes to issue 
commands.  Depending on how carefully you want to control which commands are 
issued, you might need to play with the OPERCMDS class also.

The JESJOBS resource class can be used to control the ability to submit jobs 
with names that do not match the userid plus a character.

Other exits, such as IKJEFF53 may also be affected by these actions.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Robert Hahne
> Sent: Wednesday, May 06, 2020 1:35 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: TSO/E SUBMIT exit
> 
> Hello listers ,
> 
>  I understand this is a RACF question . But thought someone can help me here 
> . We
> have a requirement where TSO submit exit IKJEFF10 needs to be eliminated .
> Currently it is written to ensure only those users with TSOAUTH(OPER) are 
> allowed
> to submit jobs with any name . Rest of the users are only allowed to submit 
> jobs that
> begins with their USERID .
> 
> Also , the users are not allowed to issue JES commands in batch unless they 
> have
> TSOAUTH(OPER) . Can we get both of these requirements done using RACF profiles
> ?
> 
> Any pointers are highly appreciated
> 
> Regards,
> Robert

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

Re: Serverpac job RACFDLTA

[retired mainframer]

If you don't get any better ideas, DBSYNC from the RACF Goodies page might
help

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Gibney, Dave
> Sent: Tuesday, May 05, 2020 11:01 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Serverpac job RACFDLTA
> 
> I am installing the archived z/OS 2.3 Serverpac on a z/OS 2.1 system.
When I tried
> to merge my z/OS 2.1 configuration into the 2.3 configuration, I received
a message
> that the old was created by a level of the Installation dialogue too old
to merge. So I
> didn't get a RACFDLTA job generated.
>Given that the RACFDRV/RACFTGT jobs are 1. Not at all a good idea to
run as
> delivered. 2. A real pain to manually evaluate. 3. Even the RACLIST job is
going to be
> tedious to evaluate.
>I was wondering if someone could provide an example RACFDLTA job hat I
could
> muck and see if I can get some useful info from?
> 
>   cross posted to IBM-MAIN and RACF-L
> 
> Dave Gibney

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

Re: Strange code Generation from XL\C Metal C

[retired mainframer]

The LY instruction is picking up the file descriptor (think DD name) so the
IO accesses the correct file.  

The memcpy statement doesn't care what file the data came from.   You are
copying whatever is currently in the buffer to reclen and it is obvious that
the buffer is at the start of your structure/class.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Joseph Reichman
> Sent: Tuesday, April 28, 2020 6:44 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Strange code Generation from XL\C Metal C
> 
> I am using a pointer to buffer to read in data the data name is
> thread_ptr->buffer buffer is define char[2100]
> 
> 
> 
> Here is code when I call the read  notice it bumps register 4 21000 bytes
to
> get the address of buffer
> 
> _read(thread_ptr->fh, _ptr->buffer[0], reclen);
> 
>  L 2,@113thread_ptr
> 
>  LY4,21000(0,2)(*)threadstor.threadstor.fh
> 
>  LLH   14,@123reclen
> 
> "IBMUSER.DBGR.SERVER(OPENFILE)"   Page   68
> 
> R14
> 
> rce Statement  HLASM R6.0  2020/04/28 21.34
> 
>  L 0,#WSA_1
> 
>  L 15,=V(@READ)
> 
>  LA1,224(,13)  #MX_TEMP1
> 
>  ST4,224(,13)  #MX_TEMP1
> 
>  ST2,228(,13)  #MX_TEMP1
> 
>  ST14,232(,13) #MX_TEMP1
> 
>  MVC   8(4,13),#NAB_1+4
> 
>  SAC   0
> 
>  BASR  14,15
> 
>  SAC   512
> 
> 
> 
> Here is code where I am trying to copy pos 10 of buffer for 2 bytes notice
> there is no LY for 21000 to get to buffer ?
> 
> 
> 
> memcpy(, _ptr->buffer[10],2);
> 
>   L 14,@113thread_ptr
> 
>   CPYA  2,14
> 
>   MVC   @123reclen,10(14)
> 
> 
> 
> 
> 
> 
> --
> 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: XL C\C ++ sizeof of datatypes

[retired mainframer]

If operand is a type (as opposed to variable name), the parentheses are
required.  If the operand is an expression (including a solitary variable
name), the parentheses are optional.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Seymour J Metz
> Sent: Monday, April 27, 2020 3:20 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: XL C\C ++ sizeof of datatypes
> 
> I don't understand why, but after listing it as an operator K gives it
as "sizeof (size
> of an object)" and all of the examples have parentheses around the type.
Of course,
> something like "sizeof (struct tnode) " really does need the parentheses.
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> 
> From: IBM Mainframe Discussion List  on behalf
> of Farley, Peter x23353 
> Sent: Monday, April 27, 2020 1:30 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: XL C\C ++ sizeof of datatypes
> 
> Joe,
> 
> In C the "sizeof" keyword is an OPERATOR, not a function.  Instead of
> "sizeof(shorttype)" you should code "sizeof shorttype".
> 
> Peter
> 
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Joseph Reichman
> Sent: Sunday, April 26, 2020 9:58 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: XL C\C ++ sizeof of datatypes
> 
> HI
> 
>I am looking in the XL C docs lang reference user guide programming
guide
> 
> For the length of the following data types
> 
>   Short , int long and I cannot seem to find it
> 
> frustrated
> 
>   I coded a program
> 
> Int len;
> 
> Unsigned short shortype;
> 
> Int len = sizeof(shorttype);
> 
>But the compiler seemed to comment the above statement
and not
> generate the assembler ps (I am running metal c);
> 
> Any help appreciate it
> --
> 
> 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

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

Re: XL C\C ++ sizeof of datatypes

[retired mainframer]

You may see the operator with parentheses more often than without but that
does not change the nature of the keyword.  Any function with the same name
as a keyword causes undefined behavior.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Charles Mills
> Sent: Monday, April 27, 2020 2:46 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: XL C\C ++ sizeof of datatypes
> 
> I think both are correct, and in my experience I have seen the function
much
> more than the operator.
> 
> https://www.educative.io/edpresso/what-is-the-sizeof-function-in-c
> 
> Charles
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Farley, Peter x23353
> Sent: Monday, April 27, 2020 10:31 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: XL C\C ++ sizeof of datatypes
> 
> Joe,
> 
> In C the "sizeof" keyword is an OPERATOR, not a function.  Instead of
> "sizeof(shorttype)" you should code "sizeof shorttype".
> 
> Peter
> 
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of
> Joseph Reichman
> Sent: Sunday, April 26, 2020 9:58 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: XL C\C ++ sizeof of datatypes
> 
> HI
> 
>I am looking in the XL C docs lang reference user guide programming
guide
> 
> For the length of the following data types
> 
>   Short , int long and I cannot seem to find it
> 
> frustrated
> 
>   I coded a program
> 
> Int len;
> 
> Unsigned short shortype;
> 
> Int len = sizeof(shorttype);
> 
>But the compiler seemed to comment the above statement
> and not generate the assembler ps (I am running metal c);
> 
> Any help appreciate it
> --
> 
> 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

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

Re: XL C\C ++ sizeof of datatypes

[retired mainframer]

Don't allow extraneous factors (such as optimization or argument promotions)
to obfuscate the information you want.  If you want the sizes of the types,
print the sizes of the types.

#include 
int main(void)
{
 printf("%zd %zd %zd", sizeof(short), sizeof(int), sizeof(long));
 return 0;
 }

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Joseph Reichman
> Sent: Sunday, April 26, 2020 6:58 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: XL C\C ++ sizeof of datatypes
> 
> HI
> 
>I am looking in the XL C docs lang reference user guide programming
guide
> For the length of the following data types
>   Short , int long and I cannot seem to find it
> frustrated
> 
>   I coded a program
> 
> Int len;
> Unsigned short shortype;
> Int len = sizeof(shorttype);
> 
>But the compiler seemed to comment the above statement
> and not generate the assembler ps (I am running metal c);
> 
> Any help appreciate it

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

Re: Here we go again

[retired mainframer]

In addition to SSNs, the same set of numbers is used for EINs (employers), 
ITINs (non-residents), and ATINs (adoptees in process).  There may be others 
but those are the ones I see as a (currently idle) AARP volunteer tax preparer.

Some numbers are also reserved, such as 111-00- for the spouse's unknown 
SSN when the filing status is Married Filing Separate.

In view of the fact the SSNs assigned to people no longer living are still 
being used for employment and tax fraud, reusing numbers would really muddy the 
waters.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Joe Monk
> Sent: Tuesday, April 21, 2020 10:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Here we go again
> 
> 9 digits = 999,999,999. There afe only 350,000,000 in the USA.
> 
> Joe
> 
> On Tue, Apr 21, 2020 at 10:08 AM Paul Gilmartin <
> 000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
> 
> > On Tue, 21 Apr 2020 08:45:14 +, Seymour J Metz wrote:
> >
> > >My guess is that they needed to update the online application to support
> > the new legislation,
> > >...
> > Meanwhile, how close is the 9-digit SSN space to saturation?
> >
> > -- gil
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: HOSTNAMES on Z/OS TCPIP

[retired mainframer]

According to my old references, if the Unix file exists, it is used.  If
not, the system searches for one of several possible z/OS datasets.   Check
your current z/OS Communications Server IP Configuration Guide.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of esst...@juno.com
> Sent: Thursday, March 12, 2020 7:59 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: HOSTNAMES on Z/OS TCPIP
> 
> Hi,..I was previously on a Z/OS 2.2 system where I would update
> hostnames and IP Address in a Unix directory (/SYSTEM/etc/HOSTS)
> .
> When I transfered to a different division within the same company I am
> working on a z/OS 2.3 system, where Host Names and their associated
> IP Address's are stored in a Sequential File (TCP.HOSTNAME.LOCAL).
> .
> So here is my questions:
> How do I properly derive/navigate/determine if a System is using
> a USS directory or a MVS file to maintain its TCP HOST Names ?
> .
> Is this specified  in UNIX System Services directory/configuration ?
> Is this specified  in a TCPIP dataset ? Which Dataset ?
> Is this specidied in a RESOLVER dataset ? Which Dataset ?.Paul D'Angelo*

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

Re: Metal C using Z/OS macros in C macros

[retired mainframer]

Since period is a double, it is reasonable to assume that it has a non-zero 
fractional part.  When its value is stored in secs, the fractional part is 
truncated (the entire value is converted to integer).   So if period contained 
5.12, sec will contain 5.  When an arithmetic operator operates on two 
different types (such as double and int), the value the "lower rank" operand is 
converted to the type of the "higher rank" operand.  In this case, microsecs 
will be evaluated as 5.12-5.00.

The only time microsecs will evaluate to zero is when period just happens to 
contain an exact integer value.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Peter Bishop
> Sent: Sunday, January 19, 2020 4:20 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Metal C using Z/OS macros in C macros
> 
> Hi David,
> 
> Thanks for sharing this snippet.
> 
> I'm not a C person, so I have a dumb question:  how does the value of 
> microSecs not
> equal zero?  From my naive view it would seem to be the difference between two
> things that are the same, with period having been equated to secs in the 
> previous
> statement.  I am guessing it may have something to do with microSecs and 
> period
> being doubles where secs is an integer, but it may have nothing to do with 
> that.
> Probably time for RTFM, which begs the question of which FM to R.
> 
> Thanks again in advance for any elaboration while I try to find the answer,
> Peter
> 
> On Sun, 19 Jan 2020 18:50:17 +0800, David Crayford 
> wrote:
> 
> >The XLC compiler supports named operands in __asm blocks which are much
> >easier to understand.
> >
> >/** Constant for TOD clock unit for a second */
> >static const uint64_t TOD_TIME_SEC = 0xF424LLU;
> >
> >int nanoSleep(double period) {
> >   int rc;
> >   int secs = period;
> >   double microSecs = period - secs;
> >   uint64_t timerUnits = (secs * TOD_TIME_SEC) + (microSecs * TOD_TIME_SEC);
> >   __asm (" STIMER WAIT,MICVL=%[micvl]\n"
> >  " ST 15,%[rc]"
> > : [rc]"=m"(rc)
> > : [micvl]"m"(timerUnits)
> > : "r15");
> >   return rc;
> >}
> >
> >
> >On 2020-01-18 12:31 AM, Farley, Peter x23353 wrote:
> >> The %0 and %1 are parameters to the __asm function, it will do the 
> >> substitution of
> the 2nd and 3rd parameter in the __asm(...) invocation into the %0 and %1 
> spots in
> the 1st parameter.
> >>
> >> And I concur with your description - the *invocation* of the "SETUP(...)" 
> >> macro
> will specify the variables to be used and *those* variables are the ones that 
> need to be
> defined, "xx" and "yy" in your example.
> >>
> >> If the OP (Mr. Reichman) codes the *invocation* of the SETUP macro as 
> >> follows:
> >>
> >> SETUP(supstate,key)
> >>
> >> Then both "supstate" and "key" must be defined C variables.
> >>
> >> The __asm function does not *define* variables, it just *uses* them.  The 
> >> variables
> mentioned in an __asm invocation must already be defined in the C code.
> >>
> >> Peter
> >>
> >> -Original Message-
> >> From: IBM Mainframe Discussion List  On
> Behalf Of retired mainframer
> >> Sent: Friday, January 17, 2020 11:06 AM
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: Re: Metal C using Z/OS macros in C macros
> >>
> >> In you C code, when you "invoke" the macro, you would provide the values 
> >> of the
> two macro parameters.  Something like
> >>  SETSUP(xx,yy)
> >> It is the xx and yy that would show up inside the two parenthetical 
> >> expressions in
> the generated code.  Keep in mind that a C macro performs simple text 
> substitution
> long before the actual compilation starts.
> >>
> >> Based on the generated code you show, you would not terminate the above
> invocation with a semicolon.
> >>
> >> I've never used __asm but is
> >> __asm ( " MODESET KEY=%0,MODE=%1 \n" : "=s"(xx), "=s"(yy) ) what you
> want the compiler to see?
> >>
> >> Are you using %0 and %1 to mean the macro parameters?  That is not the way 
> >> C
> macros work.
> >>
> >> It looks like there should be a line continuation back slash following the 
> >> left brace.
> I don't think you want the one that follows the right brace since there is no 
> following
> lin

Re: Metal C using Z/OS macros in C macros

[retired mainframer]

The C standard identifies four types of name spaces.  Three are for labels, 
tags (structure, union, and enum), and ordinary identifiers.   There is a 
separate name space of the fourth type for the members of each structure or 
union.  I don't know if C++ has additional ones.

C++ encourages using the new operator rather than the malloc function.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Paul Gilmartin
> Sent: Saturday, January 18, 2020 7:05 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Metal C using Z/OS macros in C macros
> 
> On Sat, 18 Jan 2020 18:35:17 -0800, retired mainframer wrote:
> 
> >The requirement for the struct keyword when using the tag name is 
> >C-specific.  C++
> decided the tag by itself was sufficient for the compiler to determine it is 
> the name of a
> struct type.
> >
> Does this imply that structure tags are not in a separate namespace,
> therefore that they must have names different from other identifiers?
> 
> >You appear to be compiling in XL as C code and in MVSC as C++ code.  There 
> >are
> other differences in the languages that can cause code to compile 
> successfully in one
> but not the other.  For example, in C there is an implicit conversion between 
> any
> pointer to object type and pointer to void while C++ requires a cast.
> 
> That can make malloc() a nuisance.

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

Re: Metal C using Z/OS macros in C macros

[retired mainframer]

 -Original Message-
> >>> From: IBM Mainframe Discussion List [mailto:IBM-
> m...@listserv.ua.edu]
> >>> On Behalf Of Farley, Peter x23353
> >>> Sent: Friday, January 17, 2020 8:31 AM
> >>> To: IBM-MAIN@LISTSERV.UA.EDU
> >>> Subject: Re: Metal C using Z/OS macros in C macros
> >>>
> >>> The %0 and %1 are parameters to the __asm function, it will do the
> >>> substitution of the 2nd and 3rd parameter in the __asm(...) invocation
> >>> into the %0 and %1 spots in the 1st parameter.
> >>>
> >>> And I concur with your description - the *invocation* of the "SETUP(...)"
> >>> macro will specify the variables to be used and *those* variables are
> >>> the ones that need to be defined, "xx" and "yy" in your example.
> >>>
> >>> If the OP (Mr. Reichman) codes the *invocation* of the SETUP macro as
> >>> follows:
> >>>
> >>> SETUP(supstate,key)
> >>>
> >>> Then both "supstate" and "key" must be defined C variables.
> >>>
> >>> The __asm function does not *define* variables, it just *uses* them.
> >>> The variables mentioned in an __asm invocation must already be defined
> >>> in the C code.
> >>>
> >>> Peter
> >>>
> >>> -Original Message-
> >>> From: IBM Mainframe Discussion List  On
> >>> Behalf Of retired mainframer
> >>> Sent: Friday, January 17, 2020 11:06 AM
> >>> To: IBM-MAIN@LISTSERV.UA.EDU
> >>> Subject: Re: Metal C using Z/OS macros in C macros
> >>>
> >>> In you C code, when you "invoke" the macro, you would provide the
> >>> values of the two macro parameters.  Something like
> >>>   SETSUP(xx,yy)
> >>> It is the xx and yy that would show up inside the two parenthetical
> >>> expressions in the generated code.  Keep in mind that a C macro
> >>> performs simple text substitution long before the actual compilation
> >> starts.
> >>>
> >>> Based on the generated code you show, you would not terminate the
> >>> above invocation with a semicolon.
> >>>
> >>> I've never used __asm but is
> >>>  __asm ( " MODESET KEY=%0,MODE=%1 \n" : "=s"(xx), "=s"(yy) ) what you
> >>> want the compiler to see?
> >>>
> >>> Are you using %0 and %1 to mean the macro parameters?  That is not the
> >>> way C macros work.
> >>>
> >>> It looks like there should be a line continuation back slash following
> >>> the left brace.  I don't think you want the one that follows the right
> >>> brace since there is no following line.
> >>>
> >>>> -Original Message-
> >>>> From: IBM Mainframe Discussion List  On
> >>>> Behalf Of Joseph Reichman
> >>>> Sent: Friday, January 17, 2020 5:22 AM
> >>>> To: IBM-MAIN@LISTSERV.UA.EDU
> >>>> Subject: Metal C using Z/OS macros in C macros
> >>>>
> >>>> Just wondering if I can do something like this
> >>>>
> >>>> #define SETSUP(supstate,key) \
> >>>> {
> >>>> __asm ( " MODESET KEY=%0,MODE=%1 \n" : "=s"(supstate), "=s"(key) )  \
> >>>> }   \
> >>>>
> >>>> Seems like the variables have to be defined
> >>>
> >>> --
> >>>
> >>> 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
> >>
> >> --
> >> 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
> >>
> > --
> > Scott Ford
> > IDMWORKS
> > z/OS Development
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Metal C using Z/OS macros in C macros

[retired mainframer]

In you C code, when you "invoke" the macro, you would provide the values of
the two macro parameters.  Something like
SETSUP(xx,yy)
It is the xx and yy that would show up inside the two parenthetical
expressions in the generated code.  Keep in mind that a C macro performs
simple text substitution long before the actual compilation starts.

Based on the generated code you show, you would not terminate the above
invocation with a semicolon.

I've never used __asm but is
   __asm ( " MODESET KEY=%0,MODE=%1 \n" : "=s"(xx), "=s"(yy) )
what you want the compiler to see?

Are you using %0 and %1 to mean the macro parameters?  That is not the way C
macros work.

It looks like there should be a line continuation back slash following the
left brace.  I don't think you want the one that follows the right brace
since there is no following line.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Joseph Reichman
> Sent: Friday, January 17, 2020 5:22 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Metal C using Z/OS macros in C macros
> 
> Just wondering if I can do something like this
> 
> #define SETSUP(supstate,key) \
>  {
>  __asm ( " MODESET KEY=%0,MODE=%1 \n" : "=s"(supstate), "=s"(key) )  \
>  }   \
> 
> Seems like the variables have to be defined

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

Re: how to compare active parameter with the parameter in member

[retired mainframer]

It probably depends on which parameters for what subsystem.  JES2 has a series 
of $D commands to display the current parameters which you can then compare to 
the text in the parameter member.  z/OS has a similar set of operands to the 
DISPLAY command that somewhat mirror the various parameter members.  Other 
subsystems and ISV products may or may not have something similar.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Jason Cai
> Sent: Tuesday, December 17, 2019 9:48 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: how to compare active parameter with the parameter in member
> 
> Hi all
> 
>  After some paramters were changed dynamically , these paremeters didn't be 
> changed
> in members .
> 
> Next IPL, we will lost these changes.
> 
>  Is there any way to compare active parameters  with the parameters in 
> members?
> 
>  Any thoughts/comments/suggestions would be greatly appreciated
> 
> Best Regards,
> 
> Jason Cai

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

Re: SMFPRMFxx SYS SUBSYS and EXITs question

[retired mainframer]

>From Init & Tuning Ref:

You can specify exits on the SYS and SUBSYS statements of SMFPRMxx.
Your choice of SYS or SUBSYS depends on the scope of work you want to
influence (system-wide or subsystem-wide), as follows:

 On the SYS parameter, specify the exits that are to affect work
throughout
the system, regardless of the subsystem that processes the work.

 On the SUBSYS parameter, specify the exits that are to affect work
processed by a particular SMF-defined subsystem (JES2, JES3, STC, ASCH,
or TSO) and no other subsystem specific exit points will be taken.

The SUBSYS specification overrides the SYS specification. Use SUBSYS to
make exceptions to your SYS specification for particular subsystems.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Nick Varley
> Sent: Tuesday, November 26, 2019 4:28 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SMFPRMFxx SYS SUBSYS and EXITs question
> 
> In an SMFPRMxx member if you have this:
> 
> ...
> SYS(NOTYPE(4,5,20,34,35,40)
> EXITS(IEFU83,IEFU84,IEFU85,IEFACTRT,IEFUJV,IEFUSI,
>IEFUJP,IEFUSO,IEFUJI,IEFUTL))
> SUBSYS(STC,EXITS(IEFUJP,IEFUSO))
> ...
> 
> then why would the IEFU83/84/85 exits not fire for SMF records coming from
STCs?
> Documentation seems to imply that the SYS settings are the
default/back-stop for all
> things.
> 
> We needed to make the last line read like this to make it work:
> 
> ...
>  SUBSYS(STC,EXITS(IEFU83,IEFU84,IEFU85,IEFUJP,IEFUSO))
> ...
> 
> The question:
>   Does the list of exits in the SUBSYS specification overwrite all those
in SYS, that is,
> in this case, it reduces the list of exits from the ten in the SYS
specification to just the
> two that are explicitly listed?
> 
> Any pointers would be welcome!
> 
> Thanks,
> Nick.
> 
> Nick Varley
> Director, Customer Support
> p +44 (0) 1823 226012 | m +44 (0) 7766 806780
> nick.var...@syncsort.com
> 
> We organise data everywhere,
> to keep the world working
> Syncsort Limited
> 2 Tangier Central
> Castle Street
> Taunton
> TA1 4AS
> UK
>
www.syncsort.com
-
> -
> ATTENTION: --
> Syncsort Limited is a limited company registered in England and Wales.
Registered
> number: 01373158. Registered office: 3rd Floor, The Pinnacle, 20 Tudor
Road,
> Reading, RG1 1NH. VAT: GB295525177
> The information contained in this message (including any files transmitted
with this
> message) may contain proprietary, trade secret or other confidential
and/or legally
> privileged information. Any pricing information contained in this message
or in any
> files transmitted with this message is always confidential and cannot be
shared with
> any third parties without prior written approval from Syncsort. This
message is
> intended to be read only by the individual or entity to whom it is
addressed or by their
> designee. If the reader of this message is not the intended recipient, you
are on notice
> that any use, disclosure, copying or distribution of this message, in any
form, is strictly
> prohibited. If you have received this message in error, please immediately
notify the
> sender and/or Syncsort and destroy all copies of this message in your
possession,
> custody or control.
> 
> --
> 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: AUTHPGM in IKJTSOxx

[retired mainframer]

Peter's message from 4.5 hours ago explains what happens if the program is not 
in AUTHPGM.  It also explains that TSO sets up the environment when the program 
is in AUTHPGM and part of that environment insures the requirements he 
described are met.

Without the AUTHPGM list, how would TSO know which programs should run 
authorized and which should not?  There are authorized programs that need 
authorization only for certain functions and can run under TSO without 
authorization for other (more common) functions.  You don't want to waste 
system resources setting up the environment for the vast majority of TSO 
activities that don't need it.

Any site that allows an authorized program to violate system integrity deserves 
what it gets.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Leonardo Vaz
> Sent: Saturday, November 16, 2019 9:21 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: AUTHPGM in IKJTSOxx
> 
> Thanks for the input. Peter said something about making sure non authorized 
> units of
> work are non dispatchable while the authorized program runs, is this 
> something the
> authorized program added to AUTHPGM has to do or something that TSO does? If 
> it
> is something that TSO already does, then why limit TSO to only run authorized
> programs on the AUTHPGM list? What is the harm of allowing any authorized
> programs as long as they don’t violate system integrity.
> 
> I’m still curious.
> zLeo

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

Re: AUTHPGM in IKJTSOxx

[retired mainframer]

If the program does not reside in an APF authorized library, placing it in 
AUTHPGM does not give it any extra authority.  It will waste some system 
resources to create the authorized environment that is implied as necessary.

If it is in an authorized library, it needs to take the exact same precautions 
any other homegrown program that runs authorized would need to take.  When you 
authorize any program, you are trusting it not to violate your system's 
integrity.  How it earns that trust varies from site to site but I expect most 
have additional requirements above and beyond normal release procedures.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Leonardo Vaz
> Sent: Saturday, November 16, 2019 7:30 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: AUTHPGM in IKJTSOxx
> 
> I am curious now, does a custom homegrown program have to take extra 
> precautions
> to be placed under AUTHPGM? What would those be?
> 
> Regards,
> zLeo

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

Re: DFDSS backup retore

[retired mainframer]

In your first message, the LLQ was G0449V00.  Now it is G0303V00.  Are we still 
talking about the same issue?

One more time, the original error message did not relate to the label or DSN.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Nai, Dean
> Sent: Thursday, November 14, 2019 4:49 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: DFDSS backup retore
> 
> Hi Mark,
> 
>Ran the job with the NORUN part and it got a RC=0. Not sure what that 
> proved but
> maybe something. I then dumped the tape label and it looks good although as we
> know it only shows the last 17 characters. I used one of the other tapes that 
> had the
> same error for the tape label dump.
> 
> L.SMFLGB.G0303V00   19.287  99.000   U25458  200P 
>1274
> 1274   SYSFBK1W/BACKUP

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

Re: DFDSS backup retore

[retired mainframer]

The error has nothing to do with labels.  DFDSS processed 32 blocks of data and 
reported a problem when reading the 33rd.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Jesse 1 Robinson
> Sent: Wednesday, November 13, 2019 4:18 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: DFDSS backup retore
> 
> Unlikely to be your problem, but we actually had the following scenario 
> recently. We
> use 'STK' virtual tape VSMx. After a system crash of some sort, we got the 
> ubiquitous
> warning to 'run a tape audit'. We've seen this message for years. Somehow it 
> was
> overlooked in this case, and no 'audit' was run. We started getting similar 
> errors for
> mismatching tape labels. Damndest thing. We finally ran the STK tape audit. 
> The
> problem disappeared totally. Maybe the weirdest thing I ever saw.
> 
> .
> .
> 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 Edward Finnell
> Sent: Wednesday, November 13, 2019 3:30 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: DFDSS backup retore
> 
> Only way to find out is run TAPEMAP on INDD1 VOLSER.
> 
> In a message dated 11/13/2019 5:11:20 PM Central Standard Time,
> dean@doit.nh.gov writes:
> ADR012I (SCH)-DSSU (01), 2019.317 14:11:07 DFSMSDSS PROCESSING
> COMPLETE. HIGHEST RETURN CODE IS 0008 FROM:
> TASK001
> 
> 
> --
> 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: DFDSS backup retore

[retired mainframer]

Since the JCL specified the volser, why do you think the catalog was used at 
all?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Carmen Vitullo
> Sent: Wednesday, November 13, 2019 12:57 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: DFDSS backup retore
> 
> I want to assume the tapes used to restore the volume are cataloged and you 
> are using
> the catalog?
 


> >> -Original Message-
> >> From: IBM Mainframe Discussion List  On
> >> Behalf Of Nai, Dean
> >> Sent: Wednesday, November 13, 2019 11:55 AM
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: DFDSS backup retore
> >>
> >> Has anyone ever run into a problem where they have full volume backups that
> produce
> >> a ADR370E message when trying to restore? That message says the label and 
> >> DSN
> on
> >> the tape don't match although I know they do. Any thoughts?
> >>
> >> Control cards:
> >>
> >> Restore -
> >> Admin -
> >> Inddname(indd1) outddname(outdd1) -
> >> Full purge copyvolid
> >>
> >> //indd1 dd
> >> dsn=backup.dly.smflgb.g0449v00,label=(1,sl),unit=tape,disp=old,vol=ser=tap001
> >> //outdd1 dd vol=ser=sc560c,unit=3390,disp=old
> >>
> >> Dean Nai
> >
> >--
> >For IBM-MAIN subscribe / signoff / archive access instructions,
> >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: DFDSS backup retore

[retired mainframer]

Please provide the complete error message.

The error message does not address tape labels.  (A wrong label would produce a 
system error before DFDSS got to the tape.)  It says the sequence number of 
data records is wrong.  This may indicate a corrupt file.

What system level are you at.  There is a 5 year old APAR that addresses this 
issue.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Nai, Dean
> Sent: Wednesday, November 13, 2019 11:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: DFDSS backup retore
> 
> Has anyone ever run into a problem where they have full volume backups that 
> produce
> a ADR370E message when trying to restore? That message says the label and DSN 
> on
> the tape don't match although I know they do. Any thoughts?
> 
> Control cards:
> 
> Restore -
> Admin -
> Inddname(indd1) outddname(outdd1) -
> Full purge copyvolid
> 
> //indd1  dd
> dsn=backup.dly.smflgb.g0449v00,label=(1,sl),unit=tape,disp=old,vol=ser=tap001
> //outdd1 dd vol=ser=sc560c,unit=3390,disp=old
> 
> Dean Nai

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

Re: STGADMIN.DPDSRN Confusion

[retired mainframer]

When you list the dataset in 3.4, you have to specify the volume on the input 
panel.  Then it will present the override option.  When you rename the data set 
this way, the catalog will not be updated.  The assumption being that no one 
would rename a dataset actually in use.  This feature is designed to let you 
rename a different dataset with the same name since the ENQ does not track the 
volume.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Mark Jacobs
> Sent: Wednesday, October 16, 2019 11:35 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: STGADMIN.DPDSRN Confusion
> 
> I was informed via a private communication that IDCAMS (or IEHPROGM) doesn't
> take advantage of this facility class resource, just ISPF/PDF.
> 
> When I tried to rename it in 3.4, it's telling me that the data set is in 
> use, and it's not
> giving me the option to bypass the enq and rename the data set. I'd like to 
> understand
> why.
> 
> Mark Jacobs
> 
> 
> Sent from ProtonMail, Swiss-based encrypted email.
> 
> GPG Public Key -
> https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com
> 
> ‐‐‐ Original Message ‐‐‐
> On Wednesday, October 16, 2019 2:25 PM, Mike Schwab
>  wrote:
> 
> > I think it is cataloged to that volume. Uncatalog no scratch that dataset.
> >
> > On Wed, Oct 16, 2019 at 9:16 AM Mark Jacobs
> > 0224d287a4b1-dmarc-requ...@listserv.ua.edu wrote:
> >
> > > I'm attempting to rename an inuse non-vsam dataset, even with read access 
> > > to the
> STGADMIN.DPDSRN.SYS1.* profile, it's failing with these error messages.
> > > IGD17060I DELETE/RENAME FAILED BECAUSE DATA SET IS OPEN
> > > ON VOLUME Z22C02
> > > DATA SET IS SYS1.PROD.PARMLIB.NEW
> > > IEC614I RENAME FAILED - RC 008, DIAGNOSTIC INFORMATION IS
> (040B0446),
> > > STEP2,Z22C02,SYS1.PROD.PARMLIB.NEW
> > > DATA SET NAME IS IN USE BUT YOU HAVE AUTHORITY TO OVERRIDE
> THIS TEST
> > > IGD17056I RENAME FAILED, DUPLICATE DATA SET NAME ON VOLUME
> Z22C02
> > > DATA SET IS SYS1.PROD.PARMLIB.NEW.ORIG
> > > X'04' X'0B' ENQRET X'46'
> > > Validate DADSM RENAME request; enqueue on SYSDSN failed. Also, the caller
> has appropriate RACF READ authority to be able to specify that the data set 
> being
> renamed is not the data set in use.
> > > See Renaming a Data Set That Might be in Use in z/OS DFSMSdfp Advanced
> Services.Sent from ProtonMail, Swiss-based encrypted email.
> > > What am I missing here?
> > > Mark Jacobs
> > > GPG Public Key -
> https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com
> > >
> > > For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > --
> >
> > 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

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

Re: [SUSPECTED SPAM] Catalog that does not exist in VVDS

[retired mainframer]

Please show the message the leads you to believe this situation exists.
That will provide a big clue regarding how to correct it.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of (K.K.Paradox)T.Kobayashi
> Sent: Friday, October 04, 2019 1:47 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [SUSPECTED SPAM] Catalog that does not exist in VVDS
> 
> Hello,
> 
> A catalog name that does not exist in the VVDS records remains.
> Is there a way to remove (or change to the exist catalog name) this?

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

Re: Tracing RACF?

[retired mainframer]

To recap:
   PROTECTALL is off.
   No RACF profile protects the DSN in question.
   The MCAT is protected by a profile.
   An admin creates the non-SMS dataset TEST which gets catalogued in the MCAT.
   A non-admin deletes the dataset which results in an orphan catalog entry.
   You are surprised.

Why?
   The data set is completely unprotected.  The fact that it is on a non-SMS 
volume or catalogued in the MCAT makes very little difference.  Under these 
conditions, ANY USER IS AUTHORIZED to edit the contents or delete the dataset.  
There are probably other actions available.  The user may even be able to 
rename the data set to XTEST which would result in it being no longer 
catalogued in addition to the orphan entry.  The user may be able to rename the 
data set to DSN that gets catalogued in a UCAT which would result in two 
catalog entries (a correct UCAT and an orphan MCAT).
   If the admin had specified a STORCLAS when creating the dataset, it would 
have been placed on an SMS volume.  I don't think anything would have changed 
(except possibly for the rename).
   If the admin had used a DSN that meets your ACS qualifications but is still 
not protected by a profile, the previous paragraph would still apply
   If the admin had used a DSN that is catalogued in a UCAT but is still not 
protected by a profile, the data set is still completely unprotected but now 
you will not be left with an orphan catalog entry.
   If the admin had specified KEEP instead of CATLG, the dataset would still be 
unprotected but there would not be an MCAT entry to be orphaned.

The catalog structure has nothing to do with data set protection.  The fact 
that SMS data sets must be catalogued would prevent your non-admin from 
creating TEST in the first place but once it is created the barn door is wide 
open.

The fact that PROTECTALL is off and you have many unprotected data sets is a 
major security hole.  Any unprotected data set is just a problem waiting to 
bite you.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Sean Gleann
> Sent: Thursday, October 03, 2019 5:17 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Tracing RACF?
> 
> You mean, did I actually specify a volser on the "Data Set List Utility"
> panel?
> In all cases up to now, the answer is 'No'.
> But your query prompted a couple of experiments, all to no avail I'm afraid.
> If I do specify the volser as well as the dsn, the only difference is that
> the 'delete confirmation' panel that opens up has an extra option in it.
> Instead of just "Set data set delete confirmation off", I also get
> "Uncatalog data set upon deletion" - which is already selected with a '/'.
> If I allow the deletion to go ahead with that selection, the only
> difference is that I don't get to see a RACF violation on the MCAT. The
> file still gets removed from the volume, leaving the orphaned MCAT entry
> behind, just as before - but now I don't know about the uncatalog failure.
> Regards
> Sean

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

Re: Tracing RACF?

[retired mainframer]

When the 3.4 list was requested, was a volser specified on the panel?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Sean Gleann
> Sent: Wednesday, October 02, 2019 12:45 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Tracing RACF?
> 
> Answering 'retired mainframer's questions (and I'll probably be joining you
> within the next year)
> 
>  *What is the status of the SETROPTS PROTECTALL option?*
>  A 'SETROPTS LIST' shows: 'PROTECT-ALL OPTION IS NOT IN EFFECT'. I
> tried switching that with 'setropts protectall(warning)', but the sheer
> volume of output that is generated swamps everything else.
> *Is there any data set profile that covers the dataset?*
>  No - filenames 'TEST' and 'TEST1' (the ones I have been using for
> this) are not specifically identified anywhere in RACF
> *Is there a global access checking table entry that covers the dataset?*
>  Not sure exactly what this means, so I don't know how to check. But
> see previous answer
> *Does the non-admin user have the OPERATIONS attribute?*
>  No.
> *Is there a DASDVOL profile that covers the non-SMS volume in question?*
>  Yes - the DBSYNC output shows 'redefine dasdvol v* uacc(none)',
> followed by 'permit v* class(dasdvol) reset' (and 'v*' covers the volids
> involved).  After that, there are no specific permissions defined
> *And what command is the non-admin user issuing to perform the delete?*
>  Just a simple 'D' against the file in an ISPF 3.4 list.
> 
> Regards
> Sean
> 
> 
> 
> 
> On Tue, 1 Oct 2019 at 16:32, retired mainframer 
> wrote:
> 
> > And what command is the non-admin user issuing to perform the delete?
> >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List  On
> > > Behalf Of retired mainframer
> > > Sent: Tuesday, October 01, 2019 5:37 AM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Re: Tracing RACF?
> > >
> > > What is the status of the SETROPTS PROTECTALL option?
> > >
> > > Is there any data set profile that covers the dataset?
> > >
> > > Is there a global access checking table entry that covers the dataset?
> > >
> > > Does the non-admin user have the OPERATIONS attribute?
> > >
> > > Is there a DASDVOL profile that covers the non-SMS volume in question?
> > >
> > > > -Original Message-
> > > > From: IBM Mainframe Discussion List  On
> > > > Behalf Of Sean Gleann
> > > > Sent: Tuesday, October 01, 2019 3:10 AM
> > > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > > Subject: Re: Tracing RACF?
> > > >
> > > > Joao: yes, I have tried that, but it really doesn't give the
> > information
> > > > that I want - I can see the monitored user creating and deleting file,
> > but
> > > > I don't see anything about the RACF profiles that were used.
> > > >
> > > > Having said that, I have managed to move things along.
> > > > The situation I now have is that an 'ordinary' user of my system(s) -
> > as
> > > > opposed to an 'administrator' user (there are three of us at this
> > site) -
> > > > cannot update the MCAT, so creating files that do not have the user's
> > id as
> > > > the first qualifier is now impossible.
> > > > 'Administrators', on the other hand, can create and delete files at
> > will.
> > > > All of which is OK as far as I'm concerned.
> > > >
> > > > But (there's always a 'but'...)
> > > > If an admin user creates a file named 'TEST' (for instance), the file
> > is
> > > > not covered by my SMS rules, and so it gets placed on one of the 5
> > > > non-SMS-controlled disks that my PARMLIB(VATLSTxx) member identifies as
> > > > being mounted 'PRIVATE'. I'd rather that didn't happen, but we're
> > talking
> > > > about an 'admin'-type user here, and they're supposed to know what
> > they're
> > > > doing, so things are OK up to this point.
> > > > But now it appears that a non-admin user can delete the file, but not
> > > > uncatalog it. The file disappears from the selected disk's VTOC, but
> > the
> > > > MCAT entry remains since the user is not allowed to update the MCAT. If
> > > > this is allowed to continue I'll end up with an MCAT full of orphan
> > entries.
> > > >
> > > > As I say, I've managed to move things along a bit, so my

Re: Tracing RACF?

[retired mainframer]

And what command is the non-admin user issuing to perform the delete?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of retired mainframer
> Sent: Tuesday, October 01, 2019 5:37 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Tracing RACF?
> 
> What is the status of the SETROPTS PROTECTALL option?
> 
> Is there any data set profile that covers the dataset?
> 
> Is there a global access checking table entry that covers the dataset?
> 
> Does the non-admin user have the OPERATIONS attribute?
> 
> Is there a DASDVOL profile that covers the non-SMS volume in question?
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> > Behalf Of Sean Gleann
> > Sent: Tuesday, October 01, 2019 3:10 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Tracing RACF?
> >
> > Joao: yes, I have tried that, but it really doesn't give the information
> > that I want - I can see the monitored user creating and deleting file, but
> > I don't see anything about the RACF profiles that were used.
> >
> > Having said that, I have managed to move things along.
> > The situation I now have is that an 'ordinary' user of my system(s) - as
> > opposed to an 'administrator' user (there are three of us at this site) -
> > cannot update the MCAT, so creating files that do not have the user's id as
> > the first qualifier is now impossible.
> > 'Administrators', on the other hand, can create and delete files at will.
> > All of which is OK as far as I'm concerned.
> >
> > But (there's always a 'but'...)
> > If an admin user creates a file named 'TEST' (for instance), the file is
> > not covered by my SMS rules, and so it gets placed on one of the 5
> > non-SMS-controlled disks that my PARMLIB(VATLSTxx) member identifies as
> > being mounted 'PRIVATE'. I'd rather that didn't happen, but we're talking
> > about an 'admin'-type user here, and they're supposed to know what they're
> > doing, so things are OK up to this point.
> > But now it appears that a non-admin user can delete the file, but not
> > uncatalog it. The file disappears from the selected disk's VTOC, but the
> > MCAT entry remains since the user is not allowed to update the MCAT. If
> > this is allowed to continue I'll end up with an MCAT full of orphan entries.
> >
> > As I say, I've managed to move things along a bit, so my original query
> > about 'Tracing RACF' is no longer an issue.
> > Right now, I'm trying to improve my system's security so that users can
> > create/delete their own files, but cannot do that to anyone else's, nor to
> > files that are not covered by SMS.
> 
> --
> 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: Tracing RACF?

[retired mainframer]

What is the status of the SETROPTS PROTECTALL option?

Is there any data set profile that covers the dataset?

Is there a global access checking table entry that covers the dataset?

Does the non-admin user have the OPERATIONS attribute?

Is there a DASDVOL profile that covers the non-SMS volume in question?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Sean Gleann
> Sent: Tuesday, October 01, 2019 3:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Tracing RACF?
> 
> Joao: yes, I have tried that, but it really doesn't give the information
> that I want - I can see the monitored user creating and deleting file, but
> I don't see anything about the RACF profiles that were used.
> 
> Having said that, I have managed to move things along.
> The situation I now have is that an 'ordinary' user of my system(s) - as
> opposed to an 'administrator' user (there are three of us at this site) -
> cannot update the MCAT, so creating files that do not have the user's id as
> the first qualifier is now impossible.
> 'Administrators', on the other hand, can create and delete files at will.
> All of which is OK as far as I'm concerned.
> 
> But (there's always a 'but'...)
> If an admin user creates a file named 'TEST' (for instance), the file is
> not covered by my SMS rules, and so it gets placed on one of the 5
> non-SMS-controlled disks that my PARMLIB(VATLSTxx) member identifies as
> being mounted 'PRIVATE'. I'd rather that didn't happen, but we're talking
> about an 'admin'-type user here, and they're supposed to know what they're
> doing, so things are OK up to this point.
> But now it appears that a non-admin user can delete the file, but not
> uncatalog it. The file disappears from the selected disk's VTOC, but the
> MCAT entry remains since the user is not allowed to update the MCAT. If
> this is allowed to continue I'll end up with an MCAT full of orphan entries.
> 
> As I say, I've managed to move things along a bit, so my original query
> about 'Tracing RACF' is no longer an issue.
> Right now, I'm trying to improve my system's security so that users can
> create/delete their own files, but cannot do that to anyone else's, nor to
> files that are not covered by SMS.

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

Re: casting with XL C\C++ compiler

[retired mainframer]

Maybe you would like to show us some real code?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Joseph Reichman
> Sent: Thursday, September 26, 2019 8:40 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: casting with XL C\C++ compiler
> 
> Hi
> 
> Seems like a lot the casting I was able to do with the Visual Studio C\C++
> compiler I am not able to do with XL C\C++ compiler
> 
> A  specific case  struct * pointer the I would like to assign a char[1200]
> via Struct pointer *
> 
> Buffer char[1200]
 
This should have generated an error also.  Perhaps you meant
char Buffer[1200]; 
 
> pointer =  (pointer) generates an error

Assuming that you simply omitted the definition of pointer, something like
   struct x *pointer;
then the assignment would look like
pointer = (struct x*)Buffer;

While the & doesn't hurt in this case, it is superfluous because Buffer is
an array.  But since C is case sensitive, buffer is completely different
from Buffer.
 
> any guidance appreciated

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

Re: HSM question

[retired mainframer]

Look at the VERSIONS operand of the SETSYS command and the ALTERDS command

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Gadi Ben-Avi
> Sent: Wednesday, September 11, 2019 12:15 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: HSM question
> 
> OK,
> So how do I tell HSM to keep more than one backup version?
> 
> Gadi
> 
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Gibney, Dave
> Sent: Wednesday, September 11, 2019 10:09 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: HSM question
> 
> MGMTCLAS won't matter for Non-SMS datasets
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> > Behalf Of Gadi Ben-Avi
> > Sent: Tuesday, September 10, 2019 11:39 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: HSM question
> >
> > Hi,
> > I wanted to restore a PDS backed up by HSM.
> > When I looked, I only found one backup version of the PDS.
> > When I looked through the HSM logs, I found that it was backed up many
> > times.
> >
> > The PDS is on a NON-SMS volume.
> > The addvol statement for the volume is:
> > ADDVOL vv UNIT(3390) PRIMARY(AUTODUMP(SUNDAY) AB)
> >
> > Sunday is defined as:
> > DEFINE DUMPCLASS(SUNDAY DAY(6) -
> >RETPD(27) AUTOREUSE NORESET  -
> >DATASETRESTORE VTOCCOPIES(0))
> >
> > The default management class says to keep 20 versions of backups:
> >
> > What am I doing wrong?
> > I am running z/OS v2.2.
> >
> > Thanks
> >
> > Gadi
> >
> >
> > --
> > 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
> 
> Email secured by Check Point
> 
> --
> 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: WEEDING OUT DSNS WITH CATALOG ENTRIES ONLY

[retired mainframer]

I think you are looking for the DIAGNOSE command found in the AMS manual.  It 
will compare the BCS and VVDS and identify mismatches in either direction.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of esmie moo
> Sent: Tuesday, August 13, 2019 7:37 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: WEEDING OUT DSNS WITH CATALOG ENTRIES ONLY
> 
> Gentle Readers,
> Is there a way of weeding out dsns with cataloged entries only.  I tried 
> DFDSS logical
> backup with NORUN option but it did not give me the desired results.  I coded 
> the
> VOLSER of the disk to no avail.  I am doing this exercise in preparation of 
> removing
> old dasd but experiences of the past jobs failed because the dsn is not 
> accessible
> Any suggestions would be helpful and welcomed.Here is an example of my jcl:
> //NORUN   EXEC
> PGM=ADRDSSU,REGION=4096K,PARM='TYPRUN=NORUN'  //*DFDSS1   E
> XEC PGM=ADRDSSU,REGION=4096K,TIME=1440  //DASD1DD
> UNIT=SYSALLDA,VOL=SER=PROD91,DISP=SHR  //TAPE1  DD
> DSN=SYS2.CLOGR1.CLOGR2.LOGICAL,DISP=(,CATLG,DELETE), // U
> NIT=3490,TRTCH=COMP,LABEL=(1,SL) //SYSPRINT
> DD  SYSOUT=*  //SYSMAP   DD
> SYSOUT=*   //SYSINDD  *
>DUMP DATASET(INCLUDE(SYS2.ORDMS.FILES.PROD))  -
>   SPHERE   -
>SELECTMULTI(FIRST)   -
>LOGINDDNAME(DASD1)  -
> OUTDD(TAPE1) OPT(4) ALLDATA(*) ALLEXCP -
>  TOL(ENQF)
>   /*
> 
> 
> 
> 
> --
> 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: dfsort: Sort job to get price variance records

[retired mainframer]

Why are two records desired for 96.12 but only one for 95.12?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Ron Thomas
> Sent: Thursday, August 01, 2019 8:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: dfsort: Sort job to get price variance records
> 
> Ok Elardus.
> 
> I will paste the requirement and output files  generated again
> 
> We have a FB File LRECL = 80 bytes and here below is the layout. Buy_price is 
> at
> position 65 of length 10 bytes . We need to pull those item nbrs
> which has same UPC,Vendor nbr ,State Code but there is price difference. Could
> anyone let me know how this to be done using dfsort.
> 
> Input file :-
> 
> ITEM NUMBER   UPC_NBR   VendorNbr STATE_CODE
>   BUY_PRICE
> 50338 789997580026.00 36052910DF  96.12
> 50338 789997580026.00 36052910DF  96.12
> 50338 789997580026.00 36052910DF  95.12
> 50318 789997580026.00 36052910DF  95.12
> 50318 789997580026.00 36052911DF  95.12
> 50318 789997580026.00 36052911DF  95.12
> 
> Desired o/p
> 
> 50338 789997580026.00 36052910DF  96.12
> 50338 789997580026.00 36052910DF  96.12
> 50338 789997580026.00 36052910DF  95.12

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

Re: Friday!

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Gary Weinhold
> Sent: Monday, July 22, 2019 7:50 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Friday!
> 
> I almost remember how to do it on an IBM 1620 

Simply the best machine ever for teaching programming.

IIRC, it was a Transmit Record instruction with the destination one byte beyond 
the source.  At the end of memory it would wrap back to zero and run forever.

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

Re: problem with FTP from Windows 10 to z/OS

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Paul Gilmartin
> Sent: Tuesday, May 21, 2019 4:14 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: problem with FTP from Windows 10 to z/OS
> 
> On Tue, 21 May 2019 17:40:13 -0500, Kevin Merkley wrote:
> >
> >In the instructions for customers, I added a part on how to use the script, 
> >especially
> for those that are doing the FTP from Windows 10. It actually seems to be a 
> "cleaner",
> more user-friendly way for them to perform this task.
> >
> What if they aren't afflicted with Windows?
 
Then they probably don't read threads with Windows 10 in the title.

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

Re: Sort - File split

[retired mainframer]

Do you need to pull 100 specified numbers, 100 random numbers, or the first 100 
numbers?

If the first 100: Sort on key with EQUALS specified.  Add a sequence number to 
the output record and use the WHEN=GROUP function to increment the sequence 
number only when the key changes.  Stop when the sequence number reaches 100.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Ron Thomas
> Sent: Tuesday, May 21, 2019 3:26 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Sort - File split
> 
> Hi .
> 
> i have FB file with lrecl 5000 and here below is layout. key is first 11 
> bytes PO number
> 
> 102016|  31859949  ||  1613QTTR|  1
> 102016|  31859949  ||  1613QTTR|  1
> 102016|  31859949  ||  1613QTTR|  1
> 102016|  31859949  ||  1613QTTR|  1
> 102016|  31859949  ||  1613QTTR|  1
> 102016|  31859949  ||  1613QTTR|  1
> 102016|  31859949  ||  1613QTTR|  1
> 102016|  31859949  ||  1613QTTR|  1
> 104152|  32412273  ||  2373QTBO|  1
> 104152|  32412273  ||  2373QTBO|  1
> 104152|  32412273  ||  2373QTBO|  1
> 104152|  32412273  ||  2373QTBO|  1
> 104152|  32412273  ||  2373QTBO|  1
> 
> Here i need to pull 100 PO numbers . one PO has multiple rows  & hence  when 
> we
> pull all details of one PO should come in the output file. So how in DFSORT 
> this can
> be done ?

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

Re: Appending timestamp to the file

[retired mainframer]

I'm confused

How does a BUILD statement with 12 comma constants produce output which 
contains only 3 commas?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Ron Thomas
> Sent: Friday, May 03, 2019 9:53 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Appending timestamp to the file
> 
> Hi . We are appending the timestamp to a CSV file and when we do the same  we 
> see
> the microsecond part is different  for all the rows . Is there a way to make 
> it same for
> all of the rows ?
> 
> Here below is the control card we used
> 
> OUTREC PARSE=(%01=(ENDBEFR=C'|',FIXLEN=4),
>   %02=(ENDBEFR=C'|',FIXLEN=9),
>   %03=(ENDBEFR=C'|',FIXLEN=7),
>   %04=(ENDBEFR=C'|',FIXLEN=11),
>   %05=(ENDBEFR=C'|',FIXLEN=2),
>   %06=(ENDBEFR=C'|',FIXLEN=4),
>   %07=(ENDBEFR=C'|',FIXLEN=3),
>   %08=(ENDBEFR=C'|',FIXLEN=2),
>   %09=(ENDBEFR=C'|',FIXLEN=10),
>   %10=(ENDBEFR=C'|',FIXLEN=10),
>   %11=(ENDBEFR=C'|',FIXLEN=05)),
> BUILD=(%01,C',',%02,C',',
>%03,C',',%04,C',',
>%05,C',',%06,C',',
>%07,C',',%08,C',',
>%09,C',',%10,C',',DATE=(4MD-),C'-',TIME(24.),C'.',SEQNUM,6,ZD,
>C',',%11,C',')
> 
> The o/p we are getting as follows
> 
> ITBR800X  ,IT800X,2019-05-03-11.44.40.01,33
> ITBR800X  ,IT800X,2019-05-03-11.44.40.02,33
> ITBR800X  ,IT800X,2019-05-03-11.44.40.03,33
> ITBR800X  ,IT800X,2019-05-03-11.44.40.04,33
> ITBR800X  ,IT800X,2019-05-03-11.44.40.05,33
> ITBR800X  ,IT800X,2019-05-03-11.44.40.06,33
> ITBR800X  ,IT800X,2019-05-03-11.44.40.07,33
> ITBR800X  ,IT800X,2019-05-03-11.44.40.08,33
> ITBR800X  ,IT800X,2019-05-03-11.44.40.09,33

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

Re: report for dataset recall from tape

[retired mainframer]

The HSM LIST and REPORT commands should provide the information you are looking 
for.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Bill Giannelli
> Sent: Saturday, March 30, 2019 4:37 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: report for dataset recall from tape
> 
> Hello,
> First let me clarify, i am not a storage person. I am a Db2 Systems 
> Programmer. We
> manually migrated some Db2 tablespace datasets from DASD to tape(first 
> stopping the
> object). Afterwards, the dataset was recalled but Db2 issued a data 
> inconsistency error
> (00C20110). I have a PMR opened with IBM DFHSM (as per IBM Db2 support
> instructions). My question is this, what reports could I run to get 
> documentation for
> IBM showing when the dataset was migrated and when it was recalled? Can I get 
> a
> "history report" showing anything that occurred to the dataset?
> Any advice would be appreciated!
> thank you
> Bill

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

Re: Utility to parse fullword delimited flat file

[retired mainframer]

Have you considered DFSORT?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Frank Swarbrick
> Sent: Thursday, March 28, 2019 9:16 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Utility to parse fullword delimited flat file
> 
> Does anyone know of a standard z/OS utility that could parse a flatfile
that has
> fullword delimited records?  That is, there is a fullword length followed
by the record,
> followed by another fullword length field and another record, etc.  It
would then write
> (sans length header) each record to a VB file.
> 
> Rather than writing my own program to parse it...

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

Re: Highly technical question - how do I only get my posts?

[retired mainframer]

Put a special sequence of characters in the subject of your post and configure 
your mail reader to flush any IBM-MAIN messages without this sequence.  
Unfortunately, this will also cause you to miss any replies from people who 
respond to the digest without updating the title.

Set your account to NOMAIL.  When you wish to ask a question, set it to MAIL, 
post your question, wait for a few days while people reply, and then set it 
back to NOMAIL.  You will receive more mail those few days than just the 
responses to your question but it should not be too onerous to hit the delete 
key.

Set your account to NOMAIL permanently and browse threads you start via the 
archives.

Any of these approaches will cause you to miss the fact that someone posted a 
question almost identical to yours and already received an answer.  Reponses to 
redundant questions frequently result in a recommendation to search the 
archives.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of william giannelli
> Sent: Friday, March 15, 2019 2:28 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Highly technical question - how do I only get my posts?
> 
> I just want to see replies to my posts…..

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

Re: Highly technical question - how do I only get my posts?

[retired mainframer]

A highly philosophical response here...

If you don't see anyone else's posts, how would you know to respond?

If you originate a question, how would you see the answers?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Bill Giannelli
> Sent: Friday, March 15, 2019 8:31 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Highly technical question - how do I only get my posts?
> 
> A HIGHLY TECHNICAL question here..
> How do I get emails of only my posts and not ALL the posts from everyone?
> thanks
> Bill
> 
> --
> 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 obtain DSN's of SL Tape using CBTTAPE

[retired mainframer]

Is the user ID the job is run under authorized to use BLP?

Do you not have a tape management system that could report this without even 
mounting the tape?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Hilario Garcia
> Sent: Wednesday, March 13, 2019 5:45 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: How obtain DSN's of SL Tape using CBTTAPE
> 
> The problem I have is that I do not know how many files there are in 
> cartridges that
> have been
> recorded as SL.
> 
> I am trying to use the TAPEMAP program of the CBTTAPE.
> 
> My jcl has the following format:
> 
> // STEP0010 EXEC PGM=TAPEMAP
> // STEPLIBDD DSN=CBTTAPE.LINKLIB,DISP =SHR
> // SYSPRINT DD SYSOUT=*
> // AMSDUMP DD SYSOUT=*
> // SYSUT1DD DISP=OLD,
> //UNIT=3490,LABEL=(,BLP,EXPDT=98000),
> //VOL=(,RETAIN ,, SER= PUNLIB)
> 
> Messages I receive from the system:
> 
> IEF233A M 0581, PUNLIB ,, TAPEMAP, STEP0010, 173
> SYS19072.T143538.RA000.TAPEMAP.R0100030
> IEC502E RK 0581, PUNLIB, SL, TAPEMAP, STEP0010
> IEC501A M 0581, PUNLIB, NL ,, TAPEMAP, STEP0010,
> SYS19072.T143538.RA000.TAPEMAP.R0100
> 
> The system detects that the cartridge is SL (I have it encoded as BLP) to 
> obtain
> a list of all the files and DCB of the files in the cartridge.
> 
> I am not using any ATL.
> 
> Thank you very much in advance.

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

Re: How do I get a lower-case value into a "long" symbol?

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Charles Mills
> Sent: Friday, March 01, 2019 8:30 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How do I get a lower-case value into a "long" symbol?
> 
> Assembler, allegedly the model for JCL, gets both of those right.
> 
> (From memory)
> 
>  SETC 'Don''t'
> XDC   C''
> 
> Gives you a constant of "Don't" (and no syntax error).
> 
> C on the other hand does not substitute for symbols -- C calls them macros -- 
> inside a
> character constant.
> 
> #define FOO Don't
> char x[] = "FOO"; gives you a constant of "FOO". You have to jump through 
> some real
> hoops to get a symbol into a character literal.

It doesn't seem like much of a hoop.

#define FOO "Don't"
char x[] = FOO; creates an array of 6 char containing 'D', 'o', 'n', , 't', 
and '\0'.  What doesn't work for you?

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

Re: Dynamic allocation on Non SMS

[retired mainframer]

Since they are not managed by ACS and you apparently did not specify a 
storclas, it would be much more surprising if they ended up on an SMS volume 
instead of a non-SMS one.  This is how things work when SMS is not a factor in 
the allocation.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Peter
> Sent: Saturday, February 23, 2019 11:47 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Dynamic allocation on Non SMS
> 
> Hi
> 
> Some of my datasets are picking up a non SMS volumes dynamically even
> without specifying a volser and the HLQ is not part of ACS routines .
> 
> How is it possible for a HLQ to pick a non SMS volumes while doing a
> dynamic allocation ?

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

Re: VTL - ISMF Question

[retired mainframer]

When you say scratch pool do you mean remove from HSM entirely or do you
mean mark as available to HSM?

Whichever you decide, you can set the ISMF report to a dataset and write a
REXX to parse it and generate DELVOL commands.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Gadi Ben-Avi
> Sent: Wednesday, February 13, 2019 6:16 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: VTL - ISMF Question
> 
> Hi,
> 
> When I look at the list of scratch volumes in ISMF, I see lots of volumes
with the
> status 'REJ BY TAP MGT SYS'
> I know that if I alter them and select Scratch, they will be returned to
the scratch pool.
> 
> Is there a way to do this in Batch or for all of the volumes in one
operation.
> I have more than 500 of these volumes.

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

Re: HSM question - ML2 tapes no longer avaialble

[retired mainframer]

Two recommendations below

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Allan Staller
> Sent: Wednesday, February 13, 2019 7:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: HSM question - ML2 tapes no longer avaialble
> 
> For each affected volser:
> 
> HSEND LIST TTOC(volser) ODS(x)
> HDEL 'datasetname' for each indicated dataset.

Add the PURGE operand to the HDEL command in case any datasets have long
retention.
 
> HSEND RECYCLE ALL EXECUTE PERCENTVALID(0)

HDELVOL volser MIGRATION(PURGE)
might be safer (will not affect any other empty tapes).
 
> HTH,
> 
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Tony Thigpen
> Sent: Wednesday, February 13, 2019 9:00 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: HSM question - ML2 tapes no longer avaialble
> 
> Several years ago, the HSM tapes were migrated from 3490 to 3590.
> 
> At that time, two 3490 tapes were unreadable so the systems programmer
just skipped
> the recycle and went on to the next tape. So, now I have 2
> 3490 tapes still in my CDS and I want to remove them. These tapes were
created back
> in 2001, so we are just going to write-off the data on the tapes as
'aged-out'.
> 
> What is the proper procedure to eliminate these volumes from HSM?
> 
> --
> Tony Thigpen

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

Re: DFHSM FIXCDS before start-up?

[retired mainframer]

Why would overwriting the CDSs during a CDS backup be a problem?  You still
have the media they were restored from and can recreate that version at
will.

If you don't want to run a special ARCCMDxx and you don't want to issue the
FIXCDS command manually, what other approach did you have in mind?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Gibney, Dave
> Sent: Monday, February 04, 2019 3:19 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: DFHSM FIXCDS before start-up?
> 
> I am refining our DR procedures. After I restore the DFHSM CDSs from the
most
> recent back-up, I need to update so as to  not overwrite that back-up with
the next
> occurrence of CDS backup. The fine manual says to use FIXCDS S MHCR
> PATCH(X'B1' nnn) to set the next back-up number.
> FIXCDS requires an active DFHSM. Is there a supported way to make this
update
> BEFORE starting DFHSM on the recovered system?
> 
> I have thought of running DFHSM itself with a specifically tailored parm
to come up,
> FIXCDS, and stop, but this seems overkill. I can also do it "manually"
during the steps
> documented for first IPL of recovered system, but this is more prone to
error or
> omission.  S DFHSM is in my COMMNDxx parmlib member.
> 
> Dave Gibney
> Information Technology Services
> Washington State University
> 
> 
> --
> 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: IPL wait state clarification

[retired mainframer]

Would changing the load parm to 522400M to display progress messages help 
isolate the problem.

What volume is SYS1.PARMLIB on?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Peter
> Sent: Monday, February 04, 2019 1:36 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: IPL wait state clarification
> 
> Hi Mike
> 
> It's a mini system I built, Res volume , IODF volume are same as 5224.
> 
> I have defined LOAD00 in SYS1.PARMLIB.
> 
> So the load address is 5224
> And load parm is 522400
> 
> Before disconnecting the master catalogued I did verified that SYS1.PARMLIB
> was catalogued under the Mini system master catalogued.

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

Re: Newbie SMP/E questions

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Bob Bridges
> Sent: Tuesday, January 29, 2019 8:07 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Newbie SMP/E questions
> 
> Question #1) We started by applying a PTF - call it A for simplicity - and its
> prerequisite B.  We did that last August and then the project languished for 
> the sake of
> other priorities.  Now we're working on it again and we want to restore those 
> two PTFs
> and do the APPLY again.  Why?  Well, partly because it was 'way back in 
> August and
> we're uncertain about exactly how we did it back then.  We know more now.  
> Partly

My solution to this problem is to save the complete listing (everything SDSF 
would give me) of every SMPE run in a PDS and with a member name that reflects 
the chronology.  For example: $0001R and $0002R for the receives, $0003P for 
the apply check, $0004P for the apply and $0005C for the accept check, etc.  
Many jobs had to be run more than once and they are all there for later review.

> because we know more now and we want to practice it better.  I dunno, partly 
> because
> we just want to.  I think maybe we bypassed some HOLDs back then too.
> 
> Anyway, we attempted the RESTORE, but we got lots and lots of error messages
> saying we need to include other PTFs in the RESTORE.  Some of these have an

This is caused by the lack of accepts you describe below.  One solution might 
be to accept the ones that were applied years ago since you are not likely to 
restore any of them.

> indirect connection to A and B; B superceded at least three of them, for 
> example,
> which I can see were applied some years ago.  Others have no relation to our 
> PTFs that
> I can discern.  I haven't yet found the place in the User's Guide that 
> explains these
> relationship and their relevance.  Can someone give a helpful explanation?

The LIST SYSMODS command is your friend.
 
> Question #2) So far as we can tell by issuing LIST XREF commands, whoever ran 
> this
> thing in the past never did any ACCEPT, ever, except for the original 
> function code.  I
> see at least 11 PTFs that were applied (including our two), but the 
> distribution library
> shows no PTFs for any module I've yet LISTed.  If true, does that mean that 
> to do a
> RESTORE of our two PTFs we'll have to RESTORE everything back to the plain-
> vanilla base?

The basic function of the restore command is to replace "updated" but not 
accepted data in your target libraries with the "original" data in the 
distribution library.  Since the related PTFs don't exist in the DLIB, there 
are only two choices.  Put them there by accepting them as described above or 
include them in the restore.  If you choose the latter, you don't need to 
manually include them.  You can use the GROUP operand to have SMPE do it for 
you.

My preference while learning SMPE is to use the CHECK operand on every command 
before firing for effect.
 
> Question #3) My partner the not-sysprog has in mind that maybe we need to set 
> aside
> this CSI (which is dedicated to Top Secret) and create another one starting 
> with the
> base software and build up from there.  I didn't realize this could be done, 
> but she
> thinks she can do it.  If it'll work, I like it; we'll know in that case what 
> we have, which
> we do not at present.  Anyone have any thoughts on this plan?

If you do this, make sure you specify different target and distribution 
libraries.  You don't want your testing to step on production.  On the other 
hand, LIST is still your friend.

> Question #4) This is a less-important add-on:  In both the online 
> documentation and
> the User's Guide, I read if I'm doing a RESTORE and name PTFs A and B, 
> including
> the GROUP operand causes SMP/E to add whatever other PTFs are required for 
> various
> reasons.  It doesn't seem to, though; it names them and complains about them, 
> but
> doesn't add them to the list.  Have I misunderstood something?  I'm loathe to 
> believe
> the documentation is flat wrong.

Use the CHECK operand to test.  Look at the third and fourth paragraphs in the 
description of the GROUP operand in the SMPE Commands manual

If you still have questions, show us the exact command you issue and a sample 
of the error messages.
 

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

Re: Restore dataset with a different prefix

[retired mainframer]

RENAMEU will let you change the HLQ but will not let you change the number of 
qualifiers in the DSN.

However, if you have a small number of HLQs to deal with, you could restore to 
a set of relate HLQs.  For example, RENAMEU=((SYS1.**, 
ZSYS1.**),(TCPIP.**,ZTCPIP.**),...)

Then you can list all the Z* datasets in ISPF 3.4 and use the block command 
feature to run a simple REXX that uses the AMS ALTER command to change the "Z" 
to "TSO1.".  

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Jake Anderson
> Sent: Monday, January 28, 2019 8:05 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Restore dataset with a different prefix
> 
> Hi
> 
> Cross posted.
> 
> Can we back up an entire volume to a virtual tape and restore all the
> dataset in a different volume with  new prefix to all the restored dataset.
> 
> For example : TCPIP.SEZALOAD as TSO1.TCPIP.SEZALOAD
> 
> One way I know is to do renameunconditional and restore it, but since I
> have a big list of dataset and doing for each dataset is going to be time
> consuming.
> 
> Is there any other way to achieve this ? Where while restoring all the
> datasets gets a PREFIX of TSO1.
> 
> Jake
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: To know VTOC and Index from volume

[retired mainframer]

If there is nothing better on the CBT tape, you can always use IEHLIST.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Peter
> Sent: Tuesday, January 15, 2019 1:29 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: To know VTOC and Index from volume
> 
> Hi
> 
> Is it possible to fetch VTOC and INDEX allocation value used during
> initialisation from an existing initialised volume ?
>

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

Re: Adding 90 seconds to 8 byte TOD FIELD

[retired mainframer]

Look at the assembled contents of your address literal.  The * does not
refer to the location of the LA instruction but the address of the literal
itself.

Are you sure that your DC did not skip some bytes to force doubleword
alignment?  If it did, your B instruction points to the wrong place.   If it
didn't skip for this run, are you sure it won't the next time you make a
change.

What is your aversion to using labels?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Joseph Reichman
> Sent: Wednesday, December 26, 2018 5:39 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Adding 90 seconds to 8 byte TOD FIELD
> 
> Thanks
> 
> I changed that however doesn't seem like I am getting out of the wait as I
> put a WTO after the code and IT didn't execute
> 
> Thanks
> 
> WAIT  ANOP
> L R15,CVTPTR
> USING CVT,R15 GET CVT ADDRESS
> L R15,CVTECVT
> DROP  R15
> USING ECVT,R15   GET ECVT ADDRESS
> L R15,ECVTXTSW X'384'(R15)  GET
> ECVTXTSW ADDRESS
> LAR1,=A(*+10)  PARAMTER LIST
> BASR  R14,R15  GO THERE
> B *+12
> DCFDS12'90E6'  90 SECOND WAIT
> LM15,2,SAVER
> 
> 
> 
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of
> Peter Relson
> Sent: Wednesday, December 26, 2018 8:19 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Adding 90 seconds to 8 byte TOD FIELD
> 
> >LR15,16  GET CVT ADDRESS
> >LR15,X'8C'(R15)  GET ECVT ADDRESS
> >LR15,X'384'(R15)  GET ECVTXTSW ADDRESS
> >LAR1,=A(*+10)  PARAMTER LIST
> 
> Macros such as IHAPSA, CVT, and IHAECVT are provided for a reason -- so
that
> you don't need to hard-code offsets and in so doing make your code less
> readable and less maintainable.
> 
> Why do you avoid them?  z/OS macros themselves might hard-code offsets
> because we don't necessarily want to impose a requirement on the invoker
> that they include other macros. But if you're writing your own code, you
> should insist on imposing that requirement on yourself.
> 
> Peter Relson
> z/OS Core Technology Design
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu   with the
> message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: "first previous"?

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Paul Gilmartin
> Sent: Saturday, December 01, 2018 12:13 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: "first previous"?
> 
> From Program Management UG and Ref:
> 
> A SYMPATH specification applies to all SYMLINK specifications that 
> precede it,
> back to the first previous SYMPATH.
> 
> The word "previous" seems superfluous here.  I wonder whether it means
> "very first SYMPATH" or "nearest previous SYMPATH?

I always took it to mean the latter.

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

Re: Storage question

[retired mainframer]

RACF protects datasets, not dataset names.  If catalog services has access
to the UCAT and the DSNs are catalogued "normally," 3.4 will list the DSNs
with no problem.  You won't be able to do anything with the datasets but
that is a different issue.

DSNs that are not catalogued normally, or at all, can still be listed by
specifying the specific catalog or volume, as appropriate.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Sankaranarayanan, Vignesh
> Sent: Thursday, November 22, 2018 12:28 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Storage question
> 
> Hello again List!
> 
> Is there a way to produce a listing of datasets (given the HLQs) based
entirely
> on VTOCs?
> The assumption would be that the following are no longer available:
> 
>   1.  RACF profile HLQ.*
>   2.  RACF user/group named 'HLQ'
>   3.  Alias named 'HLQ' defined to some UCAT
> 
> When the above 3 are true, I would think that we can't find the datasets
in
> 3.4, but can from the ISMF Dataset screen.
> My luck with the ISMF Dataset screen is inconsistent.. so would prefer
> another scalable or repeatable approach.
> 
> Thanks!
> 
> - Vignesh
> Mainframe Infrastructure
> 
> 
> MARKSANDSPENCER.COM
> 
> Unless otherwise stated above:
> Marks and Spencer plc
> Registered Office:
> Waterside House
> 35 North Wharf Road
> London
> W2 1NW
> 
> Registered No. 214436 in England and Wales.
> 
> Telephone (020) 7935 4422
> Facsimile (020) 7487 2670
> 
> www.marksandspencer.com
> 
> Please note that electronic mail may be monitored.
> 
> This e-mail is confidential. If you received it by mistake, please let us
know
> and then delete it from your system; you should not copy, disclose, or
> distribute its contents to anyone nor act in reliance on this e-mail, as
this is
> prohibited and may be unlawful.
> 
> --
> 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 tell what allocated a dataset never opened

[retired mainframer]

Did you mean for your question to ask what created the dataset as opposed to 
what is currently allocating it?  If so, the creation date in the DSCB will 
tell where to search the SMF records for the catalog update that should have 
occurred when the dataset was created.

If not and the dataset already exists, what makes you think any current jobs 
are allocating it?  I don't know abut SVC99 but having a DD statement specify 
the dataset but the job never opening it will not generate an SMF record nor 
query RACF.  In this case, changing the DSN and creating a profile that will 
preclude its recreation is probably the best way to catch a job with an unused 
DD statement.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Jim Beck
> Sent: Thursday, November 8, 2018 9:30 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How to tell what allocated a dataset never opened
> 
> Thank you all for the input.  The datasets already exist and testing with an
> allocate then free in TSO does not show any updating in the SMF60 record for
> the VVDS NVR records. :(  I like the see-who-complains approach, but
> unfortunately most of the victims will be end users, and the developers of
> the CLISTs/Rexx/dialog are usually long gone, so the brown water will come
> back to us!
> 
> The IGD104I messages list both the dataset name and DDNAME for the TSO
> users, so if there are no other suggestions, I'll let the owner of the retired
> system pour over the OPERLOGs then scan for the DDNAMEs.
> 
> Jim
> 
> --
> 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: filter program

[retired mainframer]

In ISPF, edit the dataset or file, then X ALL followed by F filter-text ALL 

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Jason Cai
> Sent: Wednesday, November 7, 2018 1:22 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: filter program
> 
> Hi all
> 
>  When we use filter command in oplerlog to show the messages that we
> want ,it is very convenient.
> 
> for  example:
> 
> filter msgid=IEF* or filter msgid=*E
> 
> We want to code a filter program to do it for PS file, could you know how
to
> code it?

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

Re: DEVSUPxx question

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Edward Gould
> Sent: Thursday, November 01, 2018 3:14 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: DEVSUPxx question
> 
> > On Nov 1, 2018, at 2:36 AM, Giliad Wilf <00d50942efa9-dmarc-
> requ...@listserv.ua.edu> wrote:
> >
> > In short, your DEVSUPxx should have been coded like this:
> >
> > NON_VSAM_XTIOT=YES,
> > COMPACT=YES,
> > MEDIA1=11,
> > MEDIA2=12
> >
> > ...rather than like this:
> >
> > NON_VSAM_XTIOT=YES,
> > COMPACT=YES,
> > MEDIA1=11,
> > MEDIA2=21
> 
> OK, I give what is the difference between the two?
> Ed

12 vs 21

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

Re: DFSORT to insert missing values

[retired mainframer]

Example 12 in the INREC control statement section of the DFSORT Application 
Programming Guide (SC26-7523-04) seems pretty close to what you want.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Gil Cardenas
> Sent: Monday, October 29, 2018 5:06 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: DFSORT to insert missing values
> 
> Sorry for the long winded explanation but need to set the context of the 
> issue.
> 
> Background:
> I have a print file (LRECL=133, RECFM=FBA) that I am working with that 
> contains
> report data and is a rather large file 2,000 cylinders.
> 
> I need to extract some statistics from the file but the format needs some 
> tweaking to
> make the records consistent.
> 
> There are two types of records, a report online record and possibly (not 
> always) a report
> offline record.
> 
> The dataset is so large that it is difficult to move around.  I can exclude 
> all of the
> headers and blank lines in the file and reduce the size of the dataset to 
> about half or
> 1,000 cyl which is still fairly hefty.
> 
> I am very limited to the tools I can use and the only real utility I can use 
> is DFSORT.
> I am familiar with the typical use of DFSORT but do not have any experience 
> using
> the IFTHEN/WHEN GROUP/PUSH commands and although I can follow some of the
> online examples, none really match what I am trying to do.
> 
> Request:
> I would like to generate statistics from these records, i.e. number of 
> online/offline
> entries per report but I need to make them consistent by identifying each 
> record as
> belonging to a report.
> 
> For example, after removing all the headers and blank lines from the dataset 
> so I am
> only working with the data, REPORT01 is an online report version and right 
> below it I
> need to insert/replace the following "CART" records with REPORT01 so that they
> identify to that report and so on.
> 
> IOW, extract columns 1-10 for the report name, go to the next record and if 
> first 4
> characters are blank, insert the previous record's report name.
> 
> This way, all records will have an identity that I can then hopefully process 
> in smaller
> chunks.
> 
> 
>  REPORT  ID  DATE/TIME   CREATEDPAGESSTATUS   DATASET-NAME
> --     ---   
> REPORT0110/13/2018  02:30.05  55ACTIVE   MYDSN.ARCHIVE.V6...
> REPORT0110/12/2018  02:30.06  57ACTIVE   MYDSN.ARCHIVE.V6...
>UNIT   VOL SER   EXP DATE SEQ NUM   MIGR DATASET NAME
>   ---   --   ---   -
>CART   004016   02/10/20460016 MYDSN.MIG.D9930.U02...
>CART   013773   02/16/20460003 MYDSN.MIG.D9930BU.V...
>  REPORT  ID  DATE/TIME   CREATEDPAGESSTATUS   DATASET-NAME
> 
> --     ---   
> REPORT0209/30/2018  14:01.03   4MIGRATED MYDSN.ARCHIVE.V6...
>UNIT   VOL SER   EXP DATE SEQ NUM   MIGR DATASET NAME
>   ---   --   ---   -
>CART   002363   01/31/20431109 MYDSN.MIG.D9925.U14...
>CART   024147   01/08/20460030 MYDSN.MIG.D9925BU.V...
> REPORT0206/30/2018  14:00.48   4MIGRATED MYDSN.ARCHIVE.V6...
>UNIT   VOL SER   EXP DATE SEQ NUM   MIGR DATASET NAME
>   ---   --   ---   -
>CART   002363   01/31/20431016 MYDSN.MIG.D9925.U14...
>CART   008034   10/22/20450015 MYDSN.MIG.D9925BU.V...
> 
> Hope this make sense!

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

Re: Defining Global Volume Catalog

[retired mainframer]

The only reference I can find for Global Volume Catalog is for CA VTape.  If
that is the system you will be using, the Global VCAT is just a VSAM dataset
that you can define in any catalog (and on any volume) you choose.  You just
need to insure that the HLQ of the Global VCAT's DSN relates to the catalog
you want.  Defining a dataset in any catalog, including the master catalog,
does not require an IPL.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Gadi Ben-Avi
> Sent: Monday, October 22, 2018 11:40 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Defining Global Volume Catalog
> 
> Hi,
> I am in the process of defining things for using a new TS7760.
> We've never had a tape library before.
> 
> I would like to define the Global Volume Catalog with a high level
qualifier other than
> SYS1.
> How do I tell SMS to use a Global Volume Catalog with a high level
qualifier other
> than SYS1?
> 
> The HLQ I want to use will cause the new catalog to be defined in the
master catalog.
> 
> Can this be done without a IPL?
> 
> I will be doing this on systems running z/OS v2.1 and v2.2.

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

Re: SDSF on batch problem

[retired mainframer]

Do the batch job and TSO user run under the same RACF user name and group?  
Does the batch job name start with the TSO user name?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Hilario Garcia
> Sent: Thursday, October 04, 2018 4:50 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SDSF on batch problem
> 
> Hello ITschak,
> 
> The installation use RACF. I had test to use IKJEFT01 and call SDSF on
> batch and I have the same problema.
> 
> I don't have why use different GRPNAME in online and batch.

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

Re: Tape Migration

[retired mainframer]

How did you copy TEST01 to PROD01.  When the dataset was initially created, the 
HDR1 label contained the text "TEST01" at offset 21.  When copied to PROD01, if 
the program treated all the files as data, then the header and trailer labels 
were probably copied verbatim.  That means that the header on PROD01 still 
contains the text "TEST01" and that is the reason for the label mismatch error.

Note that every dataset on this tape has this problem.

You can get around this two ways:

1 - Use the same program to copy PROD01 to a new tape named TEST01.  Then the 
HDR1 label for all the datasets will match and you can use your existing JCL.

2 - Use BLP, not NL.  Each dataset on the tape consists of three files.  The 
first contains the header labels; the second contains the dataset; and the 
third contains the trailer labels.  Dataset 1 consists of files 1-3; dataset 2 
consists of files 4-6; and dataset 17 consists of files 49-51.  Change your 
tape DD statement to "LABEL=(50,BLP)".  Since only the last 17 characters of 
the DSN are present in the labels, a security exposure exists for long DSNs.  
Therefore, some tape management systems have options to restrict the use of 
BLP.  You may need to check with the data admin folks.  

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of venkat kulkarni
> Sent: Wednesday, September 19, 2018 1:54 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Tape Migration
> 
> Hello Group,
> 
> Is there any way to bypass label written inside the tape and let system use
> the name of tape we provide. like below.
> 
> We are getting below issue, while restoring BKUP.PROH19.TP dataset from
> PROD01 tape. But we encountered issue because initially BKUP.PROH19.TP
> dataset was backed up into  TEST01 tape and then we copied TEST01 into
> PROD01 and now we trying to recover data from PROD01.
> 
> Is there any way to solve this issue. TEST01 and PROD01 are VTL tape
> volume.
> 
> //S1EXEC PGM=ADRDSSU,REGION=0M
> //** DBACCT DATA
> //SYSPRINT DD  SYSOUT=*
> //DASD1DD  UNIT=3390,VOL=SER=REST01,DISP=OLD
> //TAPE DD UNIT=359D,DISP=(,PASS),DSN=BKUP.PROH19.TP,LABEL=(17,SL),
> //VOL=SER=(PROD01)
> //SYSINDD  *
>  RESTORE -
>   INDDNAME(TAPE) -
>   OUTDDNAME(DASD1) -
>   DATASET(INCLUDE(USS19.PROD.ETC)) -
>   RENAMEU(USS19.PROD.ETC,TRB01.USS19.PROD.ETC.PROD01) -
>   CATALOG -
>   TOL(ENQF)
> /*
> 
> O/P as below.
> 14.46.02 JOB00070  TUESDAY,   18 SEP 2018 
> 14.46.02 JOB00070  IRR010I  USERID TRB01IS ASSIGNED TO THIS JOB.
> 14.46.03 JOB00070  ICH70001I TRB01LAST ACCESS AT 14:39:45 ON
> TUESDAY,
> SEPTEM
> 14.46.03 JOB00070  $HASP373 TRB01RS  STARTED - INIT A- CLASS A-
> SYS
> 14.46.03 JOB00070  IEF403I TRB01RS - STARTED - TIME=14.46.03
> 14.46.03 JOB00070 *IEF233A M 0FA3,PROD01,,TRB01RS,S1
> 14.46.03 JOB00070  IEC502E R 0FA3,TEST01,SL,TRB01RS,S1
> 14.46.03 JOB00070 *IEC501A M 0FA3,PROD01,SL,,TRB01RS,S1
> 14.46.03 JOB00070 *IEC514D DCK OR LBL ERR 0FA3,PROD01,TRB01RS,S1
> 14.46.03 JOB00070 *65 IEC514D REPLY 'M'-UNLOAD OR 'A'-ABEND

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

Re: how to catalog page dataset to new MCAT

[retired mainframer]

Will your Z110S and Z210M systems run simultaneously in different LPARs?  If 
so, then you do not want to copy the catalog entry.  This will cause both 
systems to try to use the same page dataset on the same volume.  In this case 
you need to define new page datasets for Z210M.  See the "DEFINE PAGESPACE" 
command in your "Access Method Services for Catalogs" manual.

If the two systems will run in the same LPAR (obviously not simultaneously) and 
you really want to use the same page datasets for both, then you need to 
determine the names of the datasets in the current system.  Look up the "D ASM" 
command in your "MVS System Commands" manual.  Then you can copy the catalog 
entries to your new master catalog **and** update the PAGE parameter in your 
new IEASYSxx.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of johnnydeep san
> Sent: Saturday, September 15, 2018 4:19 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: how to catalog page dataset to new MCAT
> 
> I used  todd's jcl  and it ran fine but still getting same issue .
> 
>REPRO INDATASET(CATALOG.Z110S.MASTER) -
> 00210004
>  OUTDATASET(CATALOG.Z210M.MASTER) -
>  00220004
>  LEVEL(SYS1.PLPA.PAGE)-
>  00221004
>  MERGECAT
>  00222004
> IDC01460I THE NUMBER OF ENTRIES MERGED WAS 0
> 
> IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
> 
> 
> 
> Should pagedatast locate in new master catalog(CATALOG.Z210M.MASTER)
> volume ? .
> I haven't  any page datasets in  new master catalog volume, it's located in
> old  master catalog  volume . how to make understand this page datasets to
> new master catalog ? .guide me.

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

Re: how to catalog page dataset to new MCAT

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of johnnydeep san
> Sent: Friday, September 14, 2018 4:05 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: how to catalog page dataset to new MCAT
> 
> Hi All,
> 
> I have created new master- catalog and load my system from it .While IPL'g
> sys throw below
> 
>  IEA920I PAGE DATA SET  SYS1.PLPA.PAGE
>  NOT LOCATED
>  IEA922D REPLY 'DSN=DSNAME' OR 'IGNORE'

If the dataset already exists on your page volume, the advice from Paul and 
Todd should work.  If it does not exist, you need to define it with IDCAMS.  
One of the parameters will let you specify the catalog.

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

Re: How to delete strange files on dasd

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Hilario Garcia
> Sent: Wednesday, September 12, 2018 4:51 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: How to delete strange files on dasd
> 
> Hello dear colleagues,
> 
> For unknown reasons I have a volume with the following content in the vtoc:
> 
> Command - Enter "/" to select action Dsorg Recfm Lrecl Blksz
> -- 
> -
>  ** SYSUT1.T0849100 PS U 0 666
>  ** SYSUT1.T1350305 PS U 0 666
>  ** SYSUT1.T1352121 PS U 0 666
>  ** SYSUT2.T0849100 PS U 0 666
>  ** SYSUT2.T1350305 PS U 0 666
>  ** SYSUT2.T1352121 PS U 0 666
>  ** SYSUT3.T0849100 PS U 0 87
>  ** SYSUT3.T1350305 PS U 0 87
>  ** SYSUT3.T1352121 PS U 0 87
> 
> Any recommendations how can I delete these entries? What utility can I use 
> for its
> elimination?

What have you tried?  With what results?

Are the datasets catalogued?  Is the pack SMS managed?

I used to successfully delete uncatalogued orphan datasets using a DD statement 
of the form below in an IEFBR14 step (note that the dataset name is in single 
quotes):

//DD1  DD DISP=(OLD,DELETE),UNIT=3390,VOL=SER=USERN1,
//DSN='SYS08077.T094023.RA000.LZSEC08.R0100089'

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

Re: JES2 Spool Data Set Browse (SDSB) sample

[retired mainframer]

It sure would be nice to know which suggestion was so awesome

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Chris Cantrell
> Sent: Tuesday, August 21, 2018 12:29 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: JES2 Spool Data Set Browse (SDSB) sample
> 
> This works awesome!
> It is what I ended up using.
> Thanks for everyone's comments.
> 
> --
> 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: SMF type 119 (FTP) subtypes 70 and 72

[retired mainframer]

It usually helps if you provide details regarding what you have tried and what 
results you see.

Sub type 3 is for FTP client events.  Since subtypes 70 and 72 are for FTP 
server events, you should not see them for the same event that generated 
subtype 3.  Are you logging on to the FTP server from an external source, such 
as a PC?

To generate a subtype 72, you need a logon failure.  How are you trying to 
force this event?

To generate a subtype 70, a transfer needs to complete.  Do you see an 
indication on the external system that one did?

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Pierre Fichaud
> Sent: Friday, August 10, 2018 1:19 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SMF type 119 (FTP) subtypes 70 and 72
> 
> I am trying to generate these on my system at Dallas. I'm reading the doc on 
> them and
> trying stuff but no luck. Can someone suggest something ? I can get sub-types
> 1,2,3,5,6 and 7. According to IBM, I should get them all for type 119 but ...

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

Re: RACF Special User Revoked System

[retired mainframer]

When an incorrect password is entered the requisite number of times for a user 
with SYSTEM SPECIAL, a WTOR is presented to the operator.  The user is not 
revoked unless the operator responds to that WTOR specifying the user should be 
revoked.  If that is indeed what happened, the operator needs some additional 
training.

The fact that one user has been revoked should not prevent any other user from 
logging on.  What happens when a different user tries?  If all user logons 
fail, it is a different issue.  What updates were made to the system when this 
started happening?

The message is a TSO message (specifically from the logon command processor), 
not a RACF one.  My manual says the message number should be 56443, not 6644.  
Which version of TSO are you running?  The message addresses a reconnect issue. 
 What happens when the user logs on without specifying reconnect?

Does your system have only one user with SYSTEM SPECIAL?  Another user with 
proper authority should be able to resume the revoked user.

Are batch jobs being affected?  If not, the problem may be limited to TSO.  A 
batch job may be able to resume the user

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of saurabh khandelwal
> Sent: Saturday, August 04, 2018 4:20 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: RACF Special User Revoked System
> 
> Hello Group,
> 
> We are facing issue that someone by mistake used wrong password on special
> user and this end up revoking anybody to login to our system .
> 
> RACF is not allowing anybody to login. But strange part is, we dont see any
> outstanding message on console related to this special user. But when this
> yser try to login to system we get below message,
> 
> IKJ5644I TSOLOGON RECONNECT REJECT - USER ACCESS REVOKED BY
> RACF
> 
> Now, is there any way to solve this issue apart from flash copy of older
> RACF dataset disk . Is there any resume command or some thing else we can
> use from console to make the system available for rest of users.

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

Re: Need help with ISPF Dialogue Manager and VGET

[retired mainframer]

Is NAME-LIST a valid name?  Does it equate to a full word boundary?
(Recommend changing EQU * to DS 0F to insure there is no padding before the
first parameter.)

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of esst...@juno.com
> Sent: Monday, July 30, 2018 1:45 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Need help with ISPF Dialogue Manager and VGET
> 
> Hello,
> .
> I need some clarification on using the ISPF VGET Service in an Assembler
Program,
> the examples I've found were not much help.
> .
> .
> I have a CLIST which issues a VPUT for three Fields
> Name, City,  STATE. These variable are placed on the SHARED POOL.
> The CLIST then invokes an Assembler Program which should issue a VGET
> for the three variables and write them to a VSAM dataset.
> .
> In the examples I found I never see the Variables for the VGET defined
> in the program.
> .
> I suspect I need to first issue a VDEFINE, with a Name List, Variable
> list, Format List and Length List  prior to issuing the VGET.
> .
> THE VGET SERVICE only identifies a name-list like
> NAME-LIST EQU *
>   DC  A(3)
>   DC  A(0)
>   DC  CL8'NAME '
>   DC  CL8'CITY '
>   DC  CL8'STATE'
> .
> Do I need to issue a VDEFINE first  for the Variables specified in the
VGET. Would
> someone please clarify 

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

Re: SPOOL Volumes

[retired mainframer]

Will adding "$ZSPOOL volser" to the initialization deck immediately after
the SPOOLDEF statement prevent JES from using the volume?

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Steely.Mark
> Sent: Thursday, July 12, 2018 10:30 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SPOOL Volumes
> 
> We are z/OS v2.2.  During a DR exercise most times a cold start is
performed for JES2. I
> noticed that a volume (that is currently online but not currently  used by
JES2 in production)
> was discovered and put into use by the JES2 cold start.
> 
> This was not a problem at DR but is there a way to specify not to allocate
this volume
> during the cold start.  I know I could vary the volume offline , or rename
the dataset on the
> volume or rename the volume.
> 
> Any other ways to do this.

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

Re: DFSORT - a quick way to compare two huge files

[retired mainframer]

Is there some reason SUPERC is not appropriate for this task?

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of R.S.
> Sent: Friday, July 06, 2018 4:04 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: DFSORT - a quick way to compare two huge files
> 
> We have two output files, rather huge ones (rather gigabytes than MB's)
> with LRECL~1500, FB.
> The goal is to compare them and find different records.
> While I have some ideas how to do it (even ISPF Compare or ICETOOL) I
> don't think it would effective.

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

Re: CPU Utilization

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Peter Hunkeler
> Sent: Tuesday, July 03, 2018 10:10 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: CPU Utilization
> 
> >No, IEFUTL is called INSIDE an Address Space as often as specified in
SMFPRMxx in
> statement JWT.
> 
> 
>  and it would also be called when the CPU time used exceeds the time
limit of the job or
> step (TIME= parameter). But this means also that the exit is most never
called.

But if you specify the desired time on the job statement (the OP said 30
min?), IEFUTL would get called and could take the desired action (extend for
another 30 after generating some console message?).

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

Re: CPU Utilization

[retired mainframer]

You might look at IEFUTL in the MVS Installation Exits manual to see if it can 
do what you want.

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of saurabh khandelwal
> Sent: Tuesday, July 03, 2018 4:42 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: CPU Utilization
> 
> Hello Group,
> 
> We have requirement to trigger alert to operator console, once CPU
> utilization for any address space or any Job or any running STC  reach to
> certain pre defined number. Like any job or address space or STC consuming
> CPU for more then 30 min etc , operator should get alter on his console.
> 
> 
> Is there any way to implement this process using rexx, netview or any other
> way .

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

Re: ICEGENER to the rescue again?

[retired mainframer]

Possibly because
   1 - If some lines don't have numbers, the member is technically not
numbered.
   2 - A member that is not numbered can have real data in 73-80.
   3 - Blanking out real data with the unnum command is undesirable.

Presumably, if unnum fails for this reason, you would double check before
issuing the renum command.

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Paul Gilmartin
> Sent: Monday, June 25, 2018 2:13 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ICEGENER to the rescue again?
> 
> On 2018-06-25, at 12:07:00, Mike Schwab wrote:
> 
> > Unnum doesn't work if all lines don't have numbers.  So you have to
> > renum then unnum.
> >
> Can anyone think of a reason for this?  Cui bono?
> 
> -- gil
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: SMF type 80 (RACF) records

[retired mainframer]

It would seem the easiest way is to add the ONLYAT operand to one of the 
commands that supports it, such as AG.

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Pierre Fichaud
> Sent: Monday, June 25, 2018 8:57 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SMF type 80 (RACF) records
> 
> SMF type 80 records contain RACF data.
> 
> I want to see the RACF data for the relocation section where SMF80DTP has a 
> value of
> 44(X'2C').
> This contains "any section data, except BASE".
> These can be generated by many event codes.
> Can someone supply a RACF command that will cause this data to be generated?
> 
> I want to also see the RACF data for the extended relocation section where 
> SMF80TP2 has
> a value of 301(X'12D)'
> This contains "command segment data".
> These exist for the event codes 9,10,12,13.
> Can someone supply a RACF command that will cause this data to be generated?

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

Re: ARC0104I INVALID INITIALIZATION COMMAND

[retired mainframer]

Back when I had this issue, my only choice was to count responses and then 
count commands.  Some of the commands had relatively unique responses which 
assisted in synching my counts.  Based on your question, it appears that newer 
versions of HSM don't provide any additional information.

If you have the time and a sandbox LPAR, you could start HSM with only the 
first 10 commands and look for the error.  Then add 10 more in each iteration.  
This will reduce the span of commands to be checked.

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Ed Jaffe
> Sent: Thursday, June 21, 2018 11:01 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: ARC0104I INVALID INITIALIZATION COMMAND
> 
> I recently noticed we're receiving the following (maybe three times) on
> the MVS log during HSM startup:
> 
> ARC0104I INVALID INITIALIZATION COMMAND

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

Re: Tape thickness

[retired mainframer]

The ECMA standard for 3480 specifies a length of at least 165 m, a width of
12.65 mm +/- 0.025, and a thickness between 0.0259 mm and 0.0337 mm
(approximately 30 um).

I could not find a standard for the 3592 with 1000 m of tape.  Since 1) the
volume inside the cassette is about the same as the 3480 and 2) the length
has increased by a factor of 6.7, then the thickness needs to decrease by
the same factor, making your estimate of 5 um seem very reasonable.

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of R.S.
> Sent: Sunday, May 20, 2018 6:18 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Tape thickness
> 
> Out of curiosity: what is magnetic tape thickness?
> How did it changed since times of 3480?
> 
> Note, 3480 cart contained 160 meters of tape, current cart has almost
> same dimensions but contains 1072m of tape.
>  From my very rough calculations it's order of magnitude 5 um
> (micrometers), but it's just quick and dirty calculation.

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

Re: [EXTERNAL] Re: HLQ change of SMP/E files

[retired mainframer]

There are always other things to be mindful of.  Think of other places the HLQ 
WHYNOT could appear.  

Do any of the SYSMODs for this product contain ++JCLIN statements?  Did the 
vendor supply any JCLIN commands?

Do any of the product elements that contain text, such as MAC, SRC, or DATA, 
contain dataset names (some products include sample JCL procedures)?  

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Sankaranarayanan, Vignesh
> Sent: Tuesday, May 01, 2018 6:53 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: [EXTERNAL] Re: HLQ change of SMP/E files
> 
> Thanks John. Hope you're doing alright.
> 
> So will a ZONEEDIT be all, or are there other things to be mindful of?
> 
> – Vignesh
> Mainframe Infrastructure
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of John McKown
> Sent: Tuesday 01-May-2018 18:46
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [EXTERNAL] Re: HLQ change of SMP/E files
> 
> On Tue, May 1, 2018 at 7:44 AM, Sankaranarayanan, Vignesh <
> vignesh.v.sankaranaraya...@marks-and-spencer.com> wrote:
> 
> > Hello All,
> >
> > A scenario for your consideration...
> >
> > Let's assume I have SMPE.* as the usual location for my SMP/E files
> > (CSI, SMP*, DIST and TARG files).
> > There is now a product installed elsewhere... at WHYNOT.*
> >
> > If I am to move everything from WHYNOT.* to SMPE.*, will DDDEFs be the
> > only thing to fully list out and modify?
> > Both the HLQs just go to different VOLSER, i.e., they're not SMS managed.
> >
> > Thoughts... ? Is this possible, is this worth trying?
> >
> 
> ​I'm a bit light headed today due to a medical procedure yesterday. But if my 
> brain is not
> lying to me, you want to do a "mass rename" of the DDDEFs in SMP/E. If so, 
> then look at
> the SMP/E ZONEEDIT command.
> 
> SET BOUNDRY(...)
> ZONEEDIT DDDEF
> CHANGE DATASET(WHYNOT.*,SMPE.*)
> ENDZONEDIT
> 

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

Re: Does anyone have a sample program to list in storage RACLISTED profiles.

[retired mainframer]

SETR LIST will produce the data you want.  You will need to extract the one
section of data you want from the complete list of settings it produces.

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Roach, Dennis
> Sent: Wednesday, April 18, 2018 10:14 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: FW: Does anyone have a sample program to list in storage
RACLISTED profiles.
> 
> I am looking for something to list the in storage RACLISTED profiles.
> What I am trying to do is get a final merged version of a member/group
profile.
> 
> Dennis Roach, CISSP

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