Re: IGGCSI00 Catalog Search interface

[Mike Shaw]

Don,

As Kirk pointed out, you can determine that information from the Format 1
DSCB in the VTOC.

If you have MVS/QuickRef installed there, the DSNLIST report that it
produces indicates  LARGE or BASIC or Extended Format as appropriate for
data sets on each DASD volume in the report.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Thu, Mar 14, 2024, 9:19 AM Don Johnson <
02ee771a0785-dmarc-requ...@listserv.ua.edu> wrote:

> Good morning!
>
> I am working with the IGGCSI00 module, and have looked at the field
> descriptions and think I am missing something.
>
> Does anyone know the CSI field name and format where I can discover if a
> file is a BASIC or LARGE DSNtype?
>
> Thanks!
> Don
>
> --
> 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: Recovery routine for IRB

[Mike Shaw]

Robert,

This invoice has been paid for credit to your account tonight.

Mike


On Fri, Mar 1, 2024 at 9:36 AM Peter Relson  wrote:

> If an ESTAE-type recovery routine (whether ESTAE or ESTAEX or ARR or
> IEAARR) is established when the IRB blows up, it will get control.
> Therefore we conclude that that is not the case.
>
> What you have shown is not a "recovery routine for IRB" but rather a
> recovery routine for the mainline that would cover an IRB if that IRB
> happened to run before you terminated and if that IRB blew up so that the
> mainline's recovery was the most recent recovery routine. That would not be
> intrinsically different than if you LINK'd to a routine and that routine
> blew up without recovery.
>
> You have made an assumption that just because you issued SCHEDIRB that the
> IRB will run before the mainline continues. That is not a valid assumption.
> It might run as soon as you release the LOCAL lock, it might not. If you
> are trying to test what happens when an IRB pops on top of your RB and that
> IRB blows up and your RB's recovery gets control, consider doing something
> like WAIT on an ECB that is initialized to 0 and that is never posted. In
> your testcase that would be right after you release the LOCAL lock. That
> would make sure that your mainline did not proceed too far.
>
> I don't know why you want to go the route of CIRB to accomplish your test
> (and if you must use SCHEDIRB, why not use the form that has the system
> initialize the IRB for you and not need you to use CIRB?). Why not use
> STIMER or STIMERM to wait for, say, 0.01 seconds, with an exit? The exit
> routine runs as an IRB.
>
> You have not initialized your ESTAEX execute form from a static list form.
> Whether that's relevant to your problem or not, I have no idea.
>
> But it is easily demonstrated that your scenario is not as you describe,
> otherwise the ESTAEX routine would get control.
> If, for debugging, you want to see if the recovery is in effect (not in
> control) when your IRB gets control, see if the +x'A0' word in the TCB
> pointed to by PSATOLD is non-0. It will be 0 if there is no
> ESTAE/ESTAEX/FESTAE. In the simple case you describe you would expect to
> see a non-0 address there (which locates the STAE Control Block, SCB).
>
> When you are providing a code example and there is any possibility that
> someone will want to assemble it (perhaps even to try it), please make sure
> it assembles or provide guidance on what to do to get it to assemble.
>
> Peter Relson
> z/OS Core Technology Design
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: How read Cyl 0 from within a program?

[Mike Shaw]

I have used this JCL to open a VTOC to read it:

//DD1 DD UNIT=3390,DISP=SHR,DSN=FORMAT4.DSCB,VOL=SER=xx

The VTOC might be adjacent to track zero, but I am not sure the DEB for an
open VTOC would include track zero.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Tue, Feb 13, 2024, 1:19 PM Charles Mills  wrote:

> I am interested in writing a program to read the IPL records from a DASD
> volume. (Read only, not update). I am comfortable with XDAP but how do I
> OPEN a "dataset" that would include cylinder 0?
>
> APF, OPERATIONS and so forth are not out of the question.
>
> Thanks,
> Charles
>
> --
> 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: So Long, and Thanks for All the Fish*

[Mike Shaw]

Godspeed Cheryl...

Mike Shaw



On Mon, Jan 22, 2024, 11:33 PM Cheryl Watson 
wrote:

> * For those too young to remember, check out Wiki
>
> Hi all,
>
> I’m retiring, but first want to send out a thank you to all the
> IBM-Mainers still posting, as well as those who are no longer active.
> IBM-Main has provided a life-line to me at times when I had nowhere else to
> turn. (I remember one night at 3 am, where I was stuck on a problem, and
> found someone who could help me here.)
>
> I’ve found IBM-Main a wonderful place to learn new tricks, ponder the pros
> and cons of different approaches, and learn from some of the brightest in
> the industry. (I have to admit that I tend to ignore the posts that delve
> into the far annals of time, because I’m more focused on what is happening
> now.)
>
> I haven’t been too active recently because Frank Kyne, our outstanding
> Editor and President has been more involved in the technical side of
> things. But I want you all to know how valuable this group has been to me
> since it started. (Yes, I was one of those at the very beginning.)
>
> For more info on our retirement, please see our blog post at
> https://watsonwalker.com/were-retiring/.
>
> Thanks from the bottom of my heart!
>
> All my best,
> Cheryl Watson
> ==
> Cheryl Watson Walker, CEO
> Watson & Walker, Inc.
> Sarasota, FL USA
> www.watsonwalker.com
> Cell/Text: 941-266-6609
> ==
>
>
>
>
>
> --
> 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: sdwagrsv not equal rbgrsave

[Mike Shaw]

+1

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Tue, Jan 23, 2024 at 10:47 AM Tom Harper 
wrote:

> Joseph,
>
> Programs executing in AMODE(31) can and often do store critical data in
> the high halves of registers, so I would always display the full 64-bit
> registers, and not make it a function of AMODE.
>
> Tom Harper
>
> Phoenix Software International
>
> Sent from my iPhone
>
> > On Jan 23, 2024, at 8:03 AM, Joseph Reichman 
> wrote:
> >
> > I had two main objectives in updating file 192
> >
> > First in amode 64 display 64 gpr
> >
> > Second when a abend occurs in a IBM service
> >
> > Be it PC or SVC
> >
> > Report on where in the user program this occurred
> >
> > For SVC this would be in the RB
> >
> > For PC ( which are normally space switching as well as stacking )
> >
> > In the linkage stack
> >
> > Sdwaec2 doesn’t have 64 bit gpr but they exist in the linkage stack
> >
> > Thanks
> >
> >>> On Jan 23, 2024, at 2:31 AM, Jon Perryman 
> wrote:
> >>>
> >>> On Thu, 18 Jan 2024 05:08:17 +, Peter Relson 
> wrote:
> >>>
> >>> 
> >>> I chain backward as its  the only way to do it wrapping around tcbrbp
> and next rb had the registers in the prefix it had SVC 12 maybe SVC 42
> issued that
> >>> 
> >>>
> >>> "Wrapping around tcbrbp" is a strange way to do much of anything.
> >>
> >> Hi Peter,
> >>
> >> Joseph is updating the abend recovery provided on the CBT available for
> public consumption. IBM abend does not always display abend module with
> offset. He is going to great lengths to obtain this information when not
> provided or when SDWAEC2 is different from SDWAEC1.
> >>
> >> I doubt that any vendor would do this because of possible risks. Having
> worked on critical software, the benefit never justified the risk of
> crippling a customer's system.
> >>
> >> I only mention this because you may have some tips for him. For
> instance, Wrapping around TCBRBP is his method for locating the module. Are
> there situations where the overhead could be problematic or worse yet a
> true multi-active task environment encountering problems such as an RB
> being removed. UNIX, CICS and OEM products.
> >>
> >> --
> >> 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
>
>
>
> 
> This e-mail message, including any attachments, appended messages and the
> information contained therein, is for the sole use of the intended
> recipient(s). If you are not an intended recipient or have otherwise
> received this email message in error, any use, dissemination, distribution,
> review, storage or copying of this e-mail message and the information
> contained therein is strictly prohibited. If you are not an intended
> recipient, please contact the sender by reply e-mail and destroy all copies
> of this email message and do not otherwise utilize or retain this email
> message or any or all of the information contained therein. Although this
> email message and any attachments or appended messages are believed to be
> free of any virus or other defect that might affect any computer system
> into
> which it is received and opened, it is the responsibility of the recipient
> to ensure that it is virus free and no responsibility is accepted by the
> sender for any loss or damage arising in any way from its opening or use.
>
> --
> 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 on SSRV entries in system trace table

[Mike Shaw]

Thank you Jim (and Binyamin). I learned something here by examining the
prior PC trace entry.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Thu, Jan 11, 2024 at 12:32 AM Jim Mulder  wrote:

>   We don't want to waste the time and space.  The caller information is in
> the preceding PC trace entry.
>
> Jim Mulder
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Mike Shaw
> Sent: Wednesday, January 10, 2024 5:39 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Question on SSRV entries in system trace table
>
> Anyone,
>
> The doc on SSRV trace table entries in the "z/OS MVS Diagnosis: Tools and
> Service Aids" pub says this:
>
> PSW- ADDRESS-return--:
>
> o For PC/AUTH, supervisor control, and task management: Caller's return
> address if the service was entered by a branch; 0 if the service was
> entered by a PC instruction
>
> In a dump I see that a specific IARV64 REQUEST=GETSTOR macro invocation
> generates a PC instruction and there is no PSW information in that trace
> table entry. Ok. The doc is correct.
>
> Does anyone know WHY there is no PSW saved in SSRV trace entries for
> non-branch-entry system service calls? It makes diagnosis of errors more
> difficult...
>
> Mike Shaw
> MVS/QuickRef Support Group
> Chicago-Soft, Ltd.
>
> --
> 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

Question on SSRV entries in system trace table

[Mike Shaw]

Anyone,

The doc on SSRV trace table entries in the "z/OS MVS Diagnosis: Tools and
Service Aids" pub says this:

PSW- ADDRESS-return--:

o For PC/AUTH, supervisor control, and task management: Caller's
return address if the service was entered by a branch; 0 if the
service was entered by a PC instruction

In a dump I see that a specific IARV64 REQUEST=GETSTOR macro invocation
generates a PC instruction and there is no PSW information in that trace
table entry. Ok. The doc is correct.

Does anyone know WHY there is no PSW saved in SSRV trace entries for
non-branch-entry system service calls? It makes diagnosis of errors more
difficult...

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Can this be done?

[Mike Shaw]

We use EXCP for the I/O to our DB and when customers incorrectly allocate
it as an extended format DS we fail with a S213-B8:

B8An OPEN was attempted against an extended-format data set with a DCB that
specified EXCP. EXCP is not supported for extended-format data sets.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Doft, Ltd.


On Fri, Dec 15, 2023, 11:07 AM Schmitt, Michael 
wrote:

> I wonder if this explains why IBM File Manager doesn't allow Disk Browse
> or Disk Print on PDSEs -- maybe their code using EXCP and they didn't want
> to change it to use media manager.
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Lennie Dymoke-Bradshaw
> Sent: Thursday, December 14, 2023 5:39 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Can this be done?
>
> I am assuming you are speaking of DASD based data sets rather than those
> on tape or any other medium.
>
> I would have said use EXCP until recently. In addition you would need to
> be APF authorised in order to open VSAM datasets using EXCP.
> However, I understand however that there are some undocumented issues
> running EXCP against data sets that are extended format. The DFP Advanced
> Services manual states the following,
> "The EXCP and EXCPVR macro instructions allow you to control the data
> organization based on
> device characteristics. The exceptions to this capability are partitioned
> data sets extended (PDSEs),
> extended format data sets, spooled and dummy data sets, TSO terminals, and
> z/OS UNIX files and
> file systems. They are not supported for user-written applications using
> EXCP."
> It seems likely to me that there are ways of circumventing these
> restrictions. There is a low level interface called the media manager which
> may do what you need. But the manual for this is not available to us mere
> mortals.
> As others have said, use ADRDSSU.
>
> Lennie Dymoke-Bradshaw
> https: //rsclweb.com
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Billy Ashton
> Sent: 14 December 2023 15:44
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Can this be done?
>
> Hey everyone! I have a little down time here at the end of the year with
> our freeze, and I wanted to play with some ideas I have had.
>
> I would like to write a program that can open any kind of file - PDS,
> Sequential, Panvalet, loadlib, and maybe even VSAM components. I want to
> open the file in "raw" format, as if I were going straight to the disk pack
> and scooping up the bytes from the beginning of the allocation to the end.
>
> Is there any way to do this without caring about the catalog RECFM?
> Obviously, the easiest way is through some JCL parameter that says "force
> as PS" but I doubt that is likely. I can't go into more detail at present,
> sorry!
>
> What do you think?
>
> Thank you and best regards,
> Billy Ashton
>
> --
> 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: Assembler programmer wanted

[Mike Shaw]

Gotta be low...

Mike Shaw
MVS/QuickRef Support
Chisoft

On Fri, Dec 1, 2023, 3:23 PM Gord Tomlin 
wrote:

> On 2023-12-01 14:14 PM, Bob Bridges wrote:
> > I think the rate is unusual
>
> Pure curiosity: unusually low or unusually high?
>
> --
>
> Regards, Gord Tomlin
> Action Software International
> (a division of Mazda Computer Corporation)
> Tel: (905) 470-7113, Fax: (905) 470-6507
> Support: https://actionsoftware.com/support/
>
> --
> 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: Access to PDS(E) ISPF statistics outside of TSO/ISPF

[Mike Shaw]

Matt,

I have Assembler code to decode the ISPF stats once you have the directory
entry in-hand. Here is the IBM mapping macro for the ISPF stats in a
directory entry:

 MACRO
 ISPDSTAT ,   Macro from ISP.AISPMACS ISPF DLIB
ISPFDIR  DSECT
ISPVERS  DSX   Version
ISPMOD   DSX   Modification level
ISPFLAGS DSX   Flag byte
ISPSCLM  EQU   X'80'   Stats created by SCLM
*EQU   X'40'   Reserved for ISPF
ISPESTAT EQU   X'20'   Extended statistics
*EQU   X'10'   Reserved for ISPF
*EQU   X'08'   Reserved for ISPF
*EQU   X'04'   Reserved for ISPF
*EQU   X'02'   Reserved for ISPF
*EQU   X'01'   Reserved
ISPMSEC  DSX   '   Seconds portion of Mod Time
* see the description of the TIME DEC macro for the format of
* ISPCDATE and ISPMDATE
ISPCDATE DSCL4 Date Statistics created
ISPMDATE DSCL4 Date Statistics modified
ISPMTIME DSCL2 Time modified HHMM
ISPCLINE DSCL2 Current number of lines
ISPILINE DSCL2 Initial number of lines
ISPMLINE DSCL2 Number of modified lines
ISPUSRID DSCL7 Userid
ISPBLANK DSCL3 Reserved for ISPF
*  Next 10 bytes must not be
*  referenced unless ISPESTAT is
*  ON and SMDE_USRD_LEN = X'14'
 DSCL10Reserved for ISPF
* when ISPESTAT = On and SMDE_USRD_LEN = X'28' then
 ORG   ISPBLANK+1
ISPECLIN DSCL4 Current number of lines
ISPEILIN DSCL4 Initial number of lines
ISPEMLIN DSCL4 Number of modified lines
 MEND


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

On Tue, Oct 10, 2023 at 12:53 PM Matt Hogstrom  wrote:

> I’m looking for a way to access ISPF statistics from Java or C outside of
> a TSO / ISPF environment.  Does such an animal exist out there ?
>
> Matt Hogstrom
> m...@hogstrom.org
>
> “It may be cognitive, but, it ain’t intuitive."
> — Hogstrom
>
>
> --
> 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: Bob Shannon

[Mike Shaw]

Bob was a regular attendee at the IBM ISV meetings in Poughkeepsie for many
years.

He was a technical wizard.

May he rest in peace.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Any recommendations for a 3270 emulator for Android

[Mike Shaw]

+1

Mike Shaw

On Sun, Sep 24, 2023, 7:27 PM W Mainframe <
01304632a58d-dmarc-requ...@listserv.ua.edu> wrote:

> I have used Mocha TN3270 Lite..No issues about itDan
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Sunday, September 24, 2023, 8:26 PM, Charles Mills 
> wrote:
>
> Anyone have personal recommendations for a 3270 emulator for Android
> phones and/or tablets?
>
> Android, NOT Windows -- you would have to pry Vista out of my cold, dead
> fingers.
>
> I certainly don't intend to do heads-down coding on my phone. This is just
> so I could respond to a client emergency without having to lug my laptop
> around.
>
> Thanks!
> Charles
>
> --
> 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: Error messages (a rant and an idea)

[Mike Shaw]

Thanks for the mention, Binyamin and Lionel.

We have spent a lot of hours studying IBM error messages and how they are
issued and relate to each other.

The eight digit OMVS error reason codes are my pet peeve. Some are issued
by the C/C++ runtime modules, some by ZFS support, some by UNIX support
code.

IBM has he BPXMTEXT facility to help with displaying an English explanation
for some of those error codes, but not all.

MVS/QuickRef does display meanings for all those error codes for certain
messages, e.g. if BPXF171E is displayed, we show the possible HFS/ZFS error
codes below its description, on one screen, to save the user time.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.



On Mon, Sep 18, 2023, 10:43 AM Lionel B. Dyck  wrote:

> My guess is that even if IBM were to accept this idea and begin
> implementation that it would take years, perhaps decades, and that they
> would begin with the shell commands/tools.  While I would love to see it
> expand to all of z/OS I wouldn't hold my breath for that to happen, or for
> it to happen in my lifetime.
>
> MVS/QuickRef is one of those products that every, repeat *EVERY* z/OS shop
> should have installed. While some claim Google/etc. could replace it, I
> wouldn't place any bets on that.
>
>
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
>
> “Worry more about your character than your reputation. Character is what
> you
> are, reputation merely what others think you are.”   - - - John Wooden
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of
> Binyamin Dissen
> Sent: Monday, September 18, 2023 9:37 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Error messages (a rant and an idea)
>
> Do you want to put QuickRef out of business?
>
> On Mon, 18 Sep 2023 07:06:48 -0500 "Lionel B. Dyck" 
> wrote:
>
> :>I submitted this IBM Idea and would appreciate your support if you’re
> able
> :>to vote:
> :>
> :>
> https://ibm-z-hardware-and-operating-systems.ideas.ibm.com/ideas/ZOS-I-382
> 7
> :>
> :>The text is:
> :>
> :>Title:
> :>All error messages for shell tools should be complete and NOT require
> :>referencing a Messages and Codes manual :>
> :>Text:
> :>Receiving a message like this (example from DSFS dsadm command):
> IDFS00329E :>Could not set creation parameters, return code 126 reason code
> ED07621A. Is :>confusing and meaningless to the average OMVS shell user.
> They are not used :>to finding a messages and codes manual (which is so
> last
> millennium) and :>using Google/Bing/... is useless in finding this, and
> similar, messages.
> :>
> :>All shell commands that run under OMVS should provide clear, and
> complete,
> :>messages without requiring the user to find a messages and codes manual.
> The :>days of the 1960's and 1970's to
>
> --
> Binyamin Dissen  http://www.dissensoftware.com
>
> Director, Dissen Software, Bar & Grill - Israel
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Why it's importan There a good description of how the system handles an IRB INt to take Seymour's advice

[Mike Shaw]

I know of a product that created a permanent subtask in the *MASTER*
address space by scheduling an SRB to *MASTER*, which then located the
IEEVWAIT task there and issued CIRB to create an IRB associated with
IEEVWAIT, which in turn issued an ATTACH to create a permanent subtask of
IEEVWAIT. The technique was used to create a task that would write SMF
records asynchronously out of *MASTER*, and it worked well.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sun, Sep 17, 2023 at 10:09 AM Seymour J Metz  wrote:

> An IRB is an RB while an SRB, despite the name, is not. An SRB oes away
> once it is dispatched; a page fault schedules a new SRB to resume once the
> page is read in.
>
> GY28-6659-7, OS Release 21. 7 - IBM System/360 Operating System - MVT
> Supervisor - Program Number 360S-CI-535, GY28-6659-7, SERVICES INDIRECTLY
> RELATED TO A TASK
> CONTROL BLOCK, pp. 43-44, at <
> https://bitsavers.org/pdf/ibm/360/os/R21.7_Apr73/plm/GY28-6659-7_MVT_Supervisor_PLM_Rel_21.7_May73.pdf#page=63>
> and SCHEDULING A USER EXIT ROUTINE, pp. 64-67 at <...#page=84>, provides a
> good description that is till relevant to z/OS, although some details have
> changed.
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Tom Brennan 
> Sent: Sunday, September 17, 2023 1:58 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Why it's important to take Seymour's advice
>
> I've never written code that runs as an SRB, but over the years I've
> read about them and seen them in action, such as Omegamon poking code
> into other address spaces to grab data or do things like zap memory.  So
> my simple understanding is an SRB is code that once scheduled, gets run
> first when the dispatcher comes back around to that address space, and
> then (I assume) is removed once it has done its work.
>
> So what's an IRB - Interrupt Request Block?  I've heard the name but
> know nothing about it other than the manual mentions Asynchronous Exits,
> but doesn't seem to go into the details.  So are we talking about code
> that gets executed sometime during interrupt processing, such as when an
> I/O interrupt occurs?
>
> On 9/15/2023 10:54 PM, Michael Stein wrote:
> > On Fri, Sep 15, 2023 at 06:16:59PM -0400, Joseph Reichman wrote:
> >> I did schedule the irb in the ikjeft01 TCB against Seymour's advice
> >> for a return code of zero from schedirb
> >
> > There are likely many ways to do something like what you are trying
> > to do and the IRB idea likely wasn't close to the best, however:
> >
> > * if you have a test system at your disposal where a dump or crash
> >won't hurt others
> >
> > * and you have the time to do a bit of exploring and learning
> >
> > I don't see it as bad, unless you don't learn from it.
> >
> >> However the TMP Estae issued an SDUMP
> >
> > Which is what I'd expect if the code the IRB tried to run had any sort
> > of problem (program check? abend?).  The resulting abend will be passed
> > to that tasks (IKJEFT01) ESTAE and most likely it has no idea what to
> > do about it.  So it took a dump and likely got the RB chain for that
> > task cleaned up (or terminated the task?).
> >
> >> I guess it didn't like me scheduling an irb in its TCB
> >
> > No, my best guess is that IKJEFT01 has no idea anyone would do such
> > a thing.  And if the IRB code ran and terminated normally the IRB would
> > go away and IKJEFT01 would still be there and would never know.
> >
> > Go read the dump and figure out what happened...
> >
> > Find the IJKEFT01 TCB and it's RB chain.  Does it show an IRB on the
> > chain?  Where do the PSWs in the RBs on the chain 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
>
> --
> 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: Why it’s important to take Seymour’s advice

[Mike Shaw]

+1

Since you do not have z/XDC, taking this advice from Rob will save you
hundreds of hours of debugging later, PLUS ensure that your final product
is reliable and as error free as you can make it.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sun, Sep 17, 2023 at 5:38 AM Rob Scott  wrote:

> Joe,
>
> Once again, can I strongly suggest that you pause your functionality
> development for a while and invest some time into :
>
> (O) A robust general purpose recovery routine that can be used in all
> modes (prob/sup and TCB/SRB).
> This routine should focus on grabbing diagnostic information into a
> structure that your mainline code can understand and also modify its
> behaviour based on the program that established it. You can design a
> structure that the establisher passes as a parm on the ESTAE/ARR or FRR.
> Make it as generic as possible so that you can reuse in other projects.
> This would include whether to retry , what regs to restore , whether to
> take SDUMP or TDUMP, whether to issue messages via WTO etc etc
>
> (O) A comprehensive internal trace facility that can help you diagnose
> program flow issues and remove a lot of guesswork when issues arise. Even
> in its simplest form, adding a footprint into an internal circular memory
> buffer can greatly enhance your ability to debug. A few days writing IPCS
> rexx to locate and print out your trace buffer contents could save you
> weeks of head-scratching down the road.
>
> Writing this stuff once and doing a good job on it can gain you years of
> benefit.
>
> Rob Scott
> Rocket Software.
>
> Sent from Outlook for Android<https://aka.ms/AAb9ysg>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Joseph Reichman 
> Sent: Friday, September 15, 2023 11:16:59 PM
> To: IBM-MAIN@LISTSERV.UA.EDU 
> Subject: Why it’s important to take Seymour’s advice
>
> EXTERNAL EMAIL
>
>
>
>
>
> Seymour
>
> First let me wish you a good year
>
> I did schedule the irb in the ikjeft01 TCB against Seymour’s advice for a
> return code of zero from schedirb
>
> However the TMP Estae issued an SDUMP
>
> I guess it didn’t like me scheduling an irb in its TCB
>
> Thanks
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
> 
> Rocket Software, Inc. and subsidiaries ¦ 77 Fourth Avenue, Waltham MA
> 02451 ¦ Main Office Toll Free Number: +1 855.577.4323
> Contact Customer Support:
> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
> Unsubscribe from Marketing Messages/Manage Your Subscription Preferences -
> http://www.rocketsoftware.com/manage-your-email-preferences
> Privacy Policy -
> http://www.rocketsoftware.com/company/legal/privacy-policy
> 
>
> This communication and any attachments may contain confidential
> information of Rocket Software, Inc. All unauthorized use, disclosure or
> distribution is prohibited. If you are not the intended recipient, please
> notify Rocket Software immediately and destroy all copies of this
> communication. Thank you.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Somewhat OT: 3279 front bezel needed

[Mike Shaw]

Jay,

Have you got a 3174 also?

I wrote code in 1981 that invoked GDDM/PGF to write to 3279s. It was fun to
see it display pie charts, bar graphs, etc. Very cool for the times.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Setup Filezila for MF to PC transfers

[Mike Shaw]

Lizette:

Use this as your remote site HLQ in Filezilla:

/_'.'

where '' is the desired TSO/E userid or catalog HLQ like SYS2.

Filezilla eats the quotes and then lists all data sets cataloged under that
userID or HLQ.

You can use the 'File manager' option under the 'File' menu to set that as
your default remote directory.
Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


>

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

Re: Converting Assembler TPUTS to ISPF

[Mike Shaw]

On Tue, 22 Aug 2023, at 17:44, Rupert Reynolds wrote:
>
>   LIBDEF ?
>
> I never tried "being clever" but I wonder if one could dynamically write a
> panel
> definition into a temporary PDS that's been libdeffed, then use the
> DISPLAY
> command to pick up & use that panel definition?
>
>

That works. We have used that technique in the past.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Creating an SMP install tape

[Mike Shaw]

On Tue, Aug 22, 2023, 7:11 AM Clem Clarke 
wrote:

> <...snip...>
>
> What would be the easiest way to create a files that can be installed
> with SMP?



You can use the FROMDS(... ) operand
>
In a function SYSMOD to identify an existing PDSE or PDS on DASD containing
the load modules and other elements of your FUNCTION SYSMOD.

SMP/E MCS usage is a complex topic. You need to read up on ++JCLIN, ++MOD
and ++SRC MCS statements in the SMP/E reference manual.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

>

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

Re: The ultimate (another one!) definition of mainframe

[Mike Shaw]

On Mon, Aug 7, 2023 at 11:24 AM Bill Johnson <
0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:

> <...snip...> There are 10,000+ mainframes <...snip...>


I have seen the 10,000 number several times in this thread...IBM does not
publish their count of installed mainframes AFAIK...how was that number
developed...anybody know?

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Mainframe Makers.... WAS: Ars Technica: The IBM mainframe: How it runs and why it survives

[Mike Shaw]

Seymour Cray worked for CDC before he founded Cray Research, so that makes
sense.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Wed, Aug 2, 2023 at 5:02 PM Grant Taylor <
023065957af1-dmarc-requ...@listserv.ua.edu> wrote:

> On 8/2/23 10:35 AM, Allan Staller wrote:
> > My vague recollection of the CRAY was that is used (at the time)
> > a 370/158 to buffer up all of the data so the CRAY could run full tilt.
>
> That may very well have been a possibility.
>
> I read that the CRAY used a CDC mainframe a it's front end for this
> purpose.
>
> But I would not be at all surprised if an IBM mainframe could function
> equivalently.
>
>
>
> --
> Grant. . . .
>
> --
> 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: Ignorant z/OS question

[Mike Shaw]

I used BTAM to read and write 3270 data streams to a locally attached 3270
back in the early 80's. It was simple to code and worked well.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

On Tue, Jul 25, 2023, 8:43 AM Mark Jacobs <
0224d287a4b1-dmarc-requ...@listserv.ua.edu> wrote:

> I can't confirm, but I think BTAM/SP never made it past MVS/XA and went
> out of support with MVS/ESA.
>
> 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 Tuesday, July 25th, 2023 at 8:02 AM, Seymour J Metz 
> wrote:
>
>
> > BTAM? I remember that MCS on OS/360 used BTAM to support a 2740, but I
> never saw one used in the flesh, and, IAC, it's long dead. IS BTAM/SP still
> a thing?
> >
> > IAC, another usful thing for the OP to read.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> > 
> > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on
> behalf of Mike Schwab [mike.a.sch...@gmail.com]
> > Sent: Tuesday, July 25, 2023 12:48 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Ignorant z/OS question
> >
> > https://www.mail-archive.com/ibmvm@listserv.uark.edu/msg34585.html
> >
> > On Mon, Jul 24, 2023, 06:32 Phil Smith III li...@akphs.com wrote:
> >
> > > Shmuel wrote:
> > >
> > > > That looks like the result of CP, HCD and MCS not specifying the same
> > > > device type. What happens if all three are 3215? What happens if all
> > > > three are 3270?
> > >
> > > I know what CP is :)
> > > HCD and MCS -- I assume one of these is the CONSOLE stuff in CONSOLxx;
> > > which is that, and where is the other one?
> > >
> > > --
> > > For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: How to set a SLIP to catch S0C4 in OMVS separate AS

[Mike Shaw]

Peter,

If you can run GTF on the Zxplore system and capture the output, you might
want to try to use the DEBUG option of the SLIP SET command:


DEBUG



For a SLIP SET trap, allows you to determine why a trap that you set is

not working as you expected by indicating which of the conditions you

established is not being met. DEBUG provides trap information each time

the trap is tested rather than just when it matches.



The generalized trace facility (GTF) and its trace option for SLIP

records must be active. Each DEBUG trace record contains SLIP

information plus two bytes: the first byte contains a value indicating

the failing parameter and the second byte contains zero.



For a description of the DEBUG values, see the SLIP debug trace record

for GTF in z/OS MVS Diagnosis: Tools and Service Aids.



Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sun, Jul 16, 2023 at 3:48 PM Farley, Peter <
031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:

> This is the latest SLIP setup from today which did not catch the abend
> when the python script is executed from an ssh login to z/OS on the Zxplore
> system:
>
>
> SLIP
> SET,ID=PJF1,JOBNAME=Z02446*,COMP=0C4,ACTION=SVCD,AL=(H,P,S),SDATA=(ALLNUC,PSA,RGN,LPA,CSA,SQA,TRT,GRSQ,SUM),END
>
>
> Peter
>
> From: IBM Mainframe Discussion List  On Behalf
> Of Peter Relson
> Sent: Saturday, July 15, 2023 8:26 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How to set a SLIP to catch S0C4 in OMVS separate AS
>
>
>
> What SLIP trap did you try setting? SLIP SET,C=0C4,A=SVCD,END will catch
> every 0C4 that occurs anywhere. That wouldn't be what I'd want for a SLIP
> trap (it's too broad so will hit on things you don't want). But it would
> work. But only once (default match limit for A=SVCD is one). Either there
> was no 0C4 or your SLIP trap asked to filter out the 0C4 that happened or
> your SLIP trap is not active (perhaps because of a previous match reaching
> the match limit). I can think of a lot of ways to create a SLIP trap that
> would not match.
>
>
>
> Gil wrote
>
> 
>
> No assistance, but an observation that SLIP has appeared to have been
>
> specified before fork() came to MVS.
>
>
>
> It would be a good Idea to enhance SLIP to recognize all the progeny
>
> of a job step.
>
> 
>
>
>
> I wouldn't bet that SLIP needs any enhancement in that arena. But perhaps
> once we hear from the OP what he tried that did not work we will form a new
> opinion.
>
>
>
> Peter Relson
>
> z/OS Core Technology Design
>
> --
>
>
> This message and any attachments are intended only for the use of the
> addressee and may contain information that is privileged and confidential.
> If the reader of the message is not the intended recipient or an authorized
> representative of the intended recipient, you are hereby notified that any
> dissemination of this communication is strictly prohibited. If you have
> received this communication in error, please notify us immediately by
> e-mail and delete the message and any attachments from your system.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Where does the IHASLMSG mapping macro live?

[Mike Shaw]

Thanks David/Schmuel. I suppose the macro is not distributed but since it's
in data areas, that's good enough.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Thu, Jul 13, 2023 at 11:07 AM David Spiegel <
0468385049d1-dmarc-requ...@listserv.ua.edu> wrote:

> Hi Mike,
> Please see:
> IHASLMSG mapping - IBM Documentation
> <https://www.ibm.com/docs/en/zos/2.4.0?topic=information-ihaslmsg-mapping>
>
> Regards,
> David
>
> On 2023-07-13 10:55, Mike Shaw wrote:
> > Listers,
> >
> > The doc for the SLIP command's MSGID= operand includes this text
> describing
> > the register contents when a SLIP trap that uses MSGID= is invoked:
> >
> > Register 2 - contains the address of the SLIP message data area, found in
> > mapping macro IHASLMSG.
> >
> > I can't find the IHASLMSG mapping macro anywhere on our z/OS V2R4
> system. I
> > have searched all SYS1 data sets.
> >
> > Does anyone know where that macro lives?
> >
> > Mike Shaw
> > MVS/QuickRef Support Group
> > Chicago-Soft, Ltd.
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email tolists...@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

Where does the IHASLMSG mapping macro live?

[Mike Shaw]

Listers,

The doc for the SLIP command's MSGID= operand includes this text describing
the register contents when a SLIP trap that uses MSGID= is invoked:

Register 2 - contains the address of the SLIP message data area, found in
mapping macro IHASLMSG.

I can't find the IHASLMSG mapping macro anywhere on our z/OS V2R4 system. I
have searched all SYS1 data sets.

Does anyone know where that macro lives?

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: z/OSMF

[Mike Shaw]

Platinum is right. We used to carry Platinum Software DB2 utility msgs in
the MVS/QuickRef DB.

Mike Shaw
Chicago-Soft, Ltd.

On Tue, Jul 11, 2023, 4:29 PM Wayne Bickerdike  wrote:

> *Can anyone remember the major DB2 player was?*
>
>
> *On Mon, Jul 3, 2023 at 8:26 AM Edward Gould
> <04bcc43af339-dmarc-requ...@listserv.ua.edu
> <04bcc43af339-dmarc-requ...@listserv.ua.edu>> wrote:*
>
> *Was it Sterling Software/Platinum?*
>
> --
> 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: Where am I going wrong with XLC __TIMESTAMP__ ?

[Mike Shaw]

Itschak,

Ok. We received no such letter and we are partnerworld members and an ISV
using the ADCD on a zPDT system. This is news to us.

I see that it is for use only to report defects in the ADCD system.

Thanks for that info.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sun, Jul 2, 2023 at 1:50 PM Itschak Mugzach <
0305158ad67d-dmarc-requ...@listserv.ua.edu> wrote:

> Yes. We are an is. (IronSphere). Last week was not the first time we opened
> a ticket. Below is the letter I received from IBM before opening the first
> ticket:
>
> Dear zPDT user,
>
> The entitlement of your PartnerWorld location ID has been updated to
> include the ability to report defects in z/OS products. To report a defect,
> please follow the following steps:
>
>Go to the PartnerWorld web site ( www.ibm.com/partnerworld ) and sign
> in
>to PartnerWorld.
>
>After sign in, go to
>https://www-304.ibm.com/isv/tech/remoteEmail/entryForm.jsp and document
>your findings in PartnerWorld Remote email support. On the "Select area
> of
>your question" please choose "System z z/OS ADCD (defect only)" from the
>pull down.
>
>If this link does not work start at the IBM PartnerWorld home page (
>www.ibm.com/partnerworld ); select Technical (at the left); select
>Support from the list (still at the left); on a new page, select Problem
>Reporting (near the top and in the center); select Entitled email (in
> the
>box); on a new page, look for the Remote email support box in the
> center of
>the page (scrolling may be required) and select Access Remote Email
>Support. Document your findings in PartnerWorld Remote email support. On
>the "Select area of your question" please choose "System z z/OS ADCD
>(defect only)" from the pull down.
>
> Please note, this support allows qualified zPDT users with a process to
> resolve defects only. For other needs such as product configuration
> questions, usability questions, requirements for IBM product enhancements,
> etc. entitlement through another IBM program such as a PartnerWorld Value
> Package/Option for technical support is required. ISVs wishing to purchase
> SW "how-to" support can do so through the PartnerWorld "IBM Systems and
> middleware technical support options for software development" option. This
> covers z/OS and Cross-server IBM middleware products and technologies and
> interfaces to a wide variety of IBM middleware products. Details are
> provided at: *http://www.ibm.com/isv/welcome/guide/pub_value.html*
> <http://www-304.ibm.com/isv/welcome/guide/pub_value.html>
>
>
> בתאריך יום א׳, 2 ביולי 2023 ב-20:45 מאת Mike Shaw <
> techsupp...@quickref.com
> >:
>
> > Itschak,
> >
> > How? Calling the support center? They always ask for a CPU serial number.
> > Are you an ISV?
> >
> > Mike Shaw
> > MVS/QuickRef Support Group
> > Chicago-Soft, Ltd.
> >
> >
> > On Sun, Jul 2, 2023 at 1:18 PM ITschak Mugzach 
> wrote:
> >
> > > Not true. ZPDT users can open tickets and access shops for ptfs.
> > >
> > > ITschak
> > >
> > > בתאריך יום א׳, 2 ביולי 2023 ב-19:59 מאת Mike Shaw <
> > > techsupp...@quickref.com
> > > >:
> > >
> > > > Ed is correct. If you don't license IBM mainframe hardware, you can't
> > get
> > > > full z/OS support. ISVs using zPDT as their sole z/OS development
> host
> > > > can't report problems OR get formal tech support for z/OS. We
> adapt...
> > > >
> > > > Mike Shaw
> > > > MVS/QuickRef Support Group
> > > > Chicago-Soft, Ltd.
> > > >
> > > >
> > > > On Sun, Jul 2, 2023 at 12:33 PM Ed Jaffe <
> edja...@phoenixsoftware.com>
> > > > wrote:
> > > >
> > > > > On 7/2/2023 7:52 AM, David Crayford wrote:
> > > > > > That's interesting. I was of the understanding that PDT customers
> > > were
> > > > > > IBM business partners, in which case had to have access to
> > > > > > Partnerworld and had full access to services to open cases. I now
> > > > > > that's certainly the case for other ISVs that use Dallas systems.
> > > > >
> > > > > For as long as I can remember, only the owner of the Designated
> > Machine
> > > > > (language from the ICA) was entitled to open new cases.
> > > > >
> > > > 

Re: Where am I going wrong with XLC __TIMESTAMP__ ?

[Mike Shaw]

Itschak,

How? Calling the support center? They always ask for a CPU serial number.
Are you an ISV?

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sun, Jul 2, 2023 at 1:18 PM ITschak Mugzach  wrote:

> Not true. ZPDT users can open tickets and access shops for ptfs.
>
> ITschak
>
> בתאריך יום א׳, 2 ביולי 2023 ב-19:59 מאת Mike Shaw <
> techsupp...@quickref.com
> >:
>
> > Ed is correct. If you don't license IBM mainframe hardware, you can't get
> > full z/OS support. ISVs using zPDT as their sole z/OS development host
> > can't report problems OR get formal tech support for z/OS. We adapt...
> >
> > Mike Shaw
> > MVS/QuickRef Support Group
> > Chicago-Soft, Ltd.
> >
> >
> > On Sun, Jul 2, 2023 at 12:33 PM Ed Jaffe 
> > wrote:
> >
> > > On 7/2/2023 7:52 AM, David Crayford wrote:
> > > > That's interesting. I was of the understanding that PDT customers
> were
> > > > IBM business partners, in which case had to have access to
> > > > Partnerworld and had full access to services to open cases. I now
> > > > that's certainly the case for other ISVs that use Dallas systems.
> > >
> > > For as long as I can remember, only the owner of the Designated Machine
> > > (language from the ICA) was entitled to open new cases.
> > >
> > > I was unaware (and am somewhat surprised) that the remote development
> > > contract somehow entitles an ISV using a z/VM guest on IBM's hardware
> in
> > > Dallas to do so.
> > >
> > > It's certainly not true for ISVs enrolled in the z/OS ETP. Everything
> > > must be handled by the IBM Dallas team even if you run the code on your
> > > own Designated Machine...
> > >
> > >
> > > --
> > > Phoenix Software International
> > > Edward E. Jaffe
> > > 831 Parkview Drive North
> > > El Segundo, CA 90245
> > > https://www.phoenixsoftware.com/
> > >
> > >
> > >
> > >
> >
> 
> > > This e-mail message, including any attachments, appended messages and
> the
> > > information contained therein, is for the sole use of the intended
> > > recipient(s). If you are not an intended recipient or have otherwise
> > > received this email message in error, any use, dissemination,
> > distribution,
> > > review, storage or copying of this e-mail message and the information
> > > contained therein is strictly prohibited. If you are not an intended
> > > recipient, please contact the sender by reply e-mail and destroy all
> > copies
> > > of this email message and do not otherwise utilize or retain this email
> > > message or any or all of the information contained therein. Although
> this
> > > email message and any attachments or appended messages are believed to
> be
> > > free of any virus or other defect that might affect any computer system
> > > into
> > > which it is received and opened, it is the responsibility of the
> > recipient
> > > to ensure that it is virus free and no responsibility is accepted by
> the
> > > sender for any loss or damage arising in any way from its opening or
> use.
> > >
> > > --
> > > 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
> >
> --
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Continuous Monitoring
> for z/OS, x/Linux & IBM I **| z/VM coming soon  *
>
> --
> 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: Where am I going wrong with XLC __TIMESTAMP__ ?

[Mike Shaw]

Ed is correct. If you don't license IBM mainframe hardware, you can't get
full z/OS support. ISVs using zPDT as their sole z/OS development host
can't report problems OR get formal tech support for z/OS. We adapt...

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sun, Jul 2, 2023 at 12:33 PM Ed Jaffe 
wrote:

> On 7/2/2023 7:52 AM, David Crayford wrote:
> > That's interesting. I was of the understanding that PDT customers were
> > IBM business partners, in which case had to have access to
> > Partnerworld and had full access to services to open cases. I now
> > that's certainly the case for other ISVs that use Dallas systems.
>
> For as long as I can remember, only the owner of the Designated Machine
> (language from the ICA) was entitled to open new cases.
>
> I was unaware (and am somewhat surprised) that the remote development
> contract somehow entitles an ISV using a z/VM guest on IBM's hardware in
> Dallas to do so.
>
> It's certainly not true for ISVs enrolled in the z/OS ETP. Everything
> must be handled by the IBM Dallas team even if you run the code on your
> own Designated Machine...
>
>
> --
> Phoenix Software International
> Edward E. Jaffe
> 831 Parkview Drive North
> El Segundo, CA 90245
> https://www.phoenixsoftware.com/
>
>
>
> 
> This e-mail message, including any attachments, appended messages and the
> information contained therein, is for the sole use of the intended
> recipient(s). If you are not an intended recipient or have otherwise
> received this email message in error, any use, dissemination, distribution,
> review, storage or copying of this e-mail message and the information
> contained therein is strictly prohibited. If you are not an intended
> recipient, please contact the sender by reply e-mail and destroy all copies
> of this email message and do not otherwise utilize or retain this email
> message or any or all of the information contained therein. Although this
> email message and any attachments or appended messages are believed to be
> free of any virus or other defect that might affect any computer system
> into
> which it is received and opened, it is the responsibility of the recipient
> to ensure that it is virus free and no responsibility is accepted by the
> sender for any loss or damage arising in any way from its opening or use.
>
> --
> 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 batch create a PDSE2 with Generations?

[Mike Shaw]

Lionel has a REXX exec handy for every purpose...  ;-)

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd

On Mon, Jun 26, 2023, 1:30 PM Lionel B. Dyck  wrote:

> You can run this exec to see what the limit is, assuming you don't have
> access to parmlib:
>
> /* -- rexx - *
>  * Get the current MAXGENS_LIMIT *
>  * - */
>  NUMERIC DIGITS 10
>  CVT  = C2D(Storage(10,4))
>  CVTDFA   = C2D(Storage(D2X(CVT + 1216),4))   /* cvt + 4c0 */
>  DFAMGEN  = C2D(Storage(D2X(cvtdfa + 76),4))  /* dfa + 4c */
>  say dfamgen
>
>
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
>
> “Worry more about your character than your reputation. Character is what
> you are, reputation merely what others think you are.”   - - - John Wooden
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Charles Mills
> Sent: Monday, June 26, 2023 12:29 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How batch create a PDSE2 with Generations?
>
> Yeah, I have to run a test to see whether it will fail ugly if I exceed
> the limit, or just cap it at the limit.
>
> Charles
>
> On Mon, 26 Jun 2023 11:23:32 -0500, Lionel B. Dyck 
> wrote:
>
> >Regarding MAXGENS in the JCL - be sure it is less than, or equal to the
> IGDSMSxx MAXGENS_LIMIT specification.
> >
>
> --
> 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: Checkpoint/restart in COBOL applications?

[Mike Shaw]

I used it at two different shops extensively prior to 1983.

Mike

On Sun, Jun 18, 2023, 5:58 PM Radoslaw Skorupka <
0471ebeac275-dmarc-requ...@listserv.ua.edu> wrote:

> My €0.02
> Obviously no one use checkpoint/restart facility nowadays.
> Proper question is: is there anybody (not retired yet) who ever used
> it?   :-)
>
> Yes, you can safely remove it from COBOL.
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
>
>
>
>
>
> W dniu 18.06.2023 o 04:50, Tom Ross pisze:
> > Greetings!
> >
> >Does anyone know if there are people/applications using
> checkpoint/restart in
> > COBOL applications?  The doc only shows it is usable in programs that
> use SORT,
> > I have not heard of customers doing this in years, but someone in
> IBMMAIN would
> > know better than me!  The reason for the question is that IBM is
> considering
> > removing that capability from z/OS and we are wondering how much of an
> impact,
> > if any, this would be on COBOL applications?  (Actually PL/I also, but I
> work
> > in COBOL so kind of focused on that :-)
> >
> > Cheers,
> > TomR  >> COBOL is the Language of the Future! <<
> >
> > --
> > 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: Checkpoint/restart in COBOL applications?

[Mike Shaw]

We used it in 1978 on OS/MVT to write fixed-length tape reels in multi-reel
files, with a checkpoint after each reel ( Assembler application). If a
tape went bad we could restart the job that created the tape at the
checkpoint just before that reel was written, and not have to rerun the
entire job.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sun, Jun 18, 2023, 11:39 AM Seymour J Metz  wrote:

> Checkpoint is an old (as in OS/360 old) facility that comes with
> restrictions that make it less useful than it might otherwise be. I'm not
> sure what the use case is these days.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Bernd Oppolzer [bernd.oppol...@t-online.de]
> Sent: Sunday, June 18, 2023 7:57 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Checkpoint/restart in COBOL applications?
>
> I don't understand what's the implication of z/OS here;
> we are using Smart/Restart, too, but IMO this is only application
> programming,
> no support from the OpSys needed.
>
> Applications running with Smart/Restart write Checkpoints with every DB2
> Commit,
> that is, they record the keys involved with the controlling DB2 cursors
> AND the read and
> write positions of the sequentials files in a Smart/Restart specific
> Checkpoint area
> (which can be a DB2 table, but also sequential files). On restart, the
> DB2 cursors need to be repositioned,
> same goes for the sequential files. But IMO that's all application
> business ...
>
> I don't see how the OpSys is involved here ... other than the basic
> services
> (DB2 Commit and positioning of files) must be provided.
>
> Kind regards
>
> Bernd
>
>
> Am 18.06.2023 um 09:59 schrieb Binyamin Dissen:
> > On Sat, 17 Jun 2023 19:50:01 -0700 Tom Ross  >
> > wrote:
> >
> > :>  Does anyone know if there are people/applications using
> checkpoint/restart in
> > :>COBOL applications?  The doc only shows it is usable in programs that
> use SORT,
> > :>I have not heard of customers doing this in years, but someone in
> IBMMAIN would
> > :>know better than me!  The reason for the question is that IBM is
> considering
> > :>removing that capability from z/OS and we are wondering how much of an
> impact,
> > :>if any, this would be on COBOL applications?  (Actually PL/I also, but
> I work
> > :>in COBOL so kind of focused on that :-)
> >
> > The Smart/Restart product uses it and runs COBOL applications.
> >
> > --
> > Binyamin Dissen 
> >
> http://secure-web.cisco.com/1GniwzBgRoLp7A9NK0WTyHfEFUAyQhFsOyav0rbPRy22MjTjKDzBHd_wIr6AzOFiFwhjTrH30w20GBSsOSabXvJ2Eyl4SXW2nD4Mb1Em0aK6kMuXvkd7KIYArV-yc-rCXdpzQp_pulUrvwZqpWub5By1wb3FW0dXeGo04gTQWwyqNOtfiBjLVMbL1V03gwK7e6sRqArSfa4PwyOkIEanDgB5-P5XUB4qdwzh6hCPyf6J8XFIcSX2QwKZyAX4pOnMjBl7O0Ff57m3jJ8Q9r7R6BiVns2OTCMESuJY2KXP0mfvXHSqSzIfr4WYWZgQ0evHVf3LItLxPT8XcTlc5zGVxV24YdFo7MKdH-4Z5IDStoyplwZf3mmRi4DS8xftPdgjeu9Nf2KTD4T93i41j2uPvkVAbspqHctl-YarIQpU-030/http%3A%2F%2Fwww.dissensoftware.com
> >
> > Director, Dissen Software, Bar & Grill - Israel
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> 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: Mainframe help now available!

[Mike Shaw]

James,

Don't you mean immersion?

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Mon, Jun 12, 2023 at 5:01 PM James FRSolutions 
wrote:

> FR Solutions has programs to help find resources or training emersion for
> new resources for organizations in search of Mainframe professionals.  With
> the marketplace shrinking in the MF skills area, we can help.
> https://www.frsolutionscorp.com/mainframe
>
> --
> 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: [EXTERNAL] Re: zOSMF

[Mike Shaw]

What chaps me the most is that it's not a complete solution. It is being
enhanced "on the fly", release-to-release, with customers as the testers.

The z/OSMF Configuration Guide at the V2R5 level is 400+ pages; the z/OSMF
Programming Guide at the V2R5 level is 1200+ pages! This is NOT a facility
that one learns to use or modify quickly.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Wed, May 24, 2023 at 4:22 PM Phil Smith III  wrote:

> Harris Randy wrote, in part:
> >I do understand the need to atract younger people to the mainframe.
>
> >What I don't understand is why IBM would take away a working method
> >(SERVERPAC) and force those of us with grey to learn something new
> >when we well know how to use what we already have in place. And, a lot
> >of us looking at retirement not t far away.
>
> Well, that one’s easy: Someone thinks z/OSMF does it all, so why would you
> need two things that solve the same problem? Or, being more generous,
> someone thinks z/OSMF can/will do it all, so…
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Are you serious about wanting a better IBM doc RCF-type process?

[Mike Shaw]

+1

I have been working with IBM z/OS documentation for over 40 years and have
submitted many reader comment forms in that time. In that time I have found
and reported typographical errors, inconsistencies, obsolete information,
and even flat-out WRONG statements.

Without real-world feedback from z/OS professionals who actually USE the
documentation, it's accuracy and usability will not improve.

IBM has good technical documentation writers but they are NOT end-users.

Eliminating RCFs disconnects authors of the documentation from consumers of
the documentation...NOT a good idea.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

On Mon, May 22, 2023, 6:05 PM Charles Mills  wrote:

> For those who have not been following this discussion, IBM is on track to
> remove the RCF process as we have known it for forty or so years. Customers
> and ISVs will be limited to a Web pop-up “Was this helpful?” and if you
> answer No, you will be able to briefly justify that answer. There is also
> apparently now no path whatsoever for a customer to open a requirement
> against IBM documentation.
>
> We need a way to provide formatted suggestions for improvements,
> clarifications or corrections to IBM manuals.
>
> If you would like that, then wishing and hoping and grumping will not make
> it happen. Here is what might make it happen:
>
> - You could start by replying with a simple +1 to this post. The IBM
> powers that be do not participate in this forum, but there is strong
> evidence that what happens here sometimes percolates in that direction.
> - You could vote for Peter Farley’s RFE. Find it here:
> https://ibm-z-hardware-and-operating-systems.ideas.ibm.com/ideas/ZOS-I-3691
> (apologies for any fold).
> - If you have an IBM rep at your shop, you could let him or her know. If
> you simply know an IBMer you could tell him or her nicely.
> - If you have contacts who are responsible at your shop for other products
> such as the languages, Db2, CICS, MQ and so forth, you could try to get
> them to chime in. Apparently one of the pushbacks from the documentation
> team is “IBM has 1200 products and our process works fine for all of them –
> what’s wrong with you z/OS people?”
>
> Thank you.
> Charles
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: ispf , way to achieve the last ispf msgid from rexx

[Mike Shaw]

Weizman,

What is the context in which your REXX exec is executing? Is it executing
as an ISPF edit macro, or in some other context?

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.



On Thu, May 11, 2023, 1:23 AM Weizman arbel  wrote:

> Hello  ,
>
> from rexx
> Which command / way to achieve the last ispf msgid
>
> example:
> The result of the command  msgid
> ' The message ID of the last message was "ISRE017 " '
>
> I would like to achieve the  "ISRE017"
> from rexx
>
>
> thanks,
>weizman
>
> --
> 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: Not aging well (know-it-alls)

[Mike Shaw]

On Fri, Apr 7, 2023, 1:02 PM Bill Johnson <
0047540adefe-dmarc-requ...@listserv.ua.edu> wrote:

> <...snip...>

>  I know my character is flawless.

<...snip...>

Wow.

Mike Shaw
MVS/QuickRef Support
Chisoft

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

Re: Is z/OS Name/Token pair retrieval supported from REXX?

[Mike Shaw]

Also excellent. Thank you.

Mike


On Wed, Mar 22, 2023, 4:21 AM Steve Austin  wrote:

> This works for me;
>
> level='0004'x
> name=left(serverName,16)
> token=''x
> retcode=''x
> do until retcode = '0004'x
>   "sleep 2"
>   address LINKPGM "IEANTRT  LEVEL NAME  TOKEN RETCODE"
> end
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of ITschak Mugzach
> Sent: Tuesday, March 21, 2023 5:36 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Is z/OS Name/Token pair retrieval supported from REXX?
>
> It dump the pairs, but you can always use IF and LEAVE...
>
> בתאריך יום ג׳, 21 במרץ 2023 ב-19:24 מאת Paul Gilmartin <
> 042bfe9c879d-dmarc-requ...@listserv.ua.edu>:
>
> > On Tue, 21 Mar 2023 16:51:17 +, Farley, Peter  wrote:
> >
> > >Great routine ITschak.  I made two small improvements to the name and
> > token displays to better handle binary characters (less than '40'x) in
> > each part.
> > >
> > Judicious use of  white space/indention helps/would help legibility.
> >
> > Use of PROCEDURE EXPOSE could help robustness.
> >
> > Does this actually "check for the existence of a specific name/token
> pair"
> > as
> > the OP requested or merely dump the entire table?  Setting a compound
> > symbol would facilitate the former.
> >
> > Was I mistaken about the need to retry in case of concurrent updates?
> >
> >
> > >Updated code for display subroutine:
> > >
> > >/* routine to report on name token pairs */
> > >Donttp:
> > >Parse Arg ptr,title
> > >Say title' level NTTP at 'D2X(ptr)
> > >eye = Storage(D2X(ptr),4)
> > >If eye \= 'NTTH' then Do
> > >Say '** Invalid eye catcher found for NTTP'
> > >Return
> > >End
> > >base = C2D(Storage(D2X(ptr+64),4))
> > >Do While base \= 0
> > >tcbt = C2X(Storage(D2X(base+4),4))
> > >name = Storage(D2X(base+8),16)
> > >token = C2X(Storage(D2X(base+24),16)) nonprint =
> > >verify(name,xrange('40'x)) if nonprint = 0 then
> > >   Say 'Name 'name' from 'tcbt
> > >else do
> > >   name_bin = c2x(substr(name, nonprint))
> > >   name = substr(name, 1, nonprint - 1)' + "'name_bin'"'
> > >   Say 'Name has binary characters: 'name' from 'tcbt End display =
> > >X2C(token)
> > >/* translate out characters between 00 and 3f */ display =
> > >TRANSLATE(display,,XRANGE(,'3f'x),'.')
> > >Say ' Token = 'token' ('display')'
> > >base = C2D(Storage(D2X(base+64),4))
> > >End
> > >Say ''
> > >Return
> >
> > --
> > gil
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> --
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Continuous Monitoring
> for z/OS, x/Linux & IBM I **| z/VM coming soon  *
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> This e-mail message has been scanned and cleared by Google Message
> Security
> and the UNICOM Global security systems. This message is for the named
> person's use only. If you receive this message in error, please delete it
> and notify the sender.
>
> --
> 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: Is z/OS Name/Token pair retrieval supported from REXX?

[Mike Shaw]

God Bless You Itschak!

Thank you.

Mike

On Tue, Mar 21, 2023, 12:17 PM ITschak Mugzach  wrote:

> It does.
>
>
> /* REXX *** */
> /* track down various name token pair pointers */
> NUMERIC DIGITS 10
> /* TCB level */
> tcb = C2D(Storage(21C,4)) /* get current TCB */
> if tcb \= 0 then do
> stcb = C2D(Storage(D2X(tcb+312),4))
> nttp = C2D(Storage(D2X(stcb+200),4))
> If nttp \= 0 then Call donttp nttp,'Task'
> end
> /* ASCB level */
> ascb = C2D(Storage(224,4)) /* get current ascb */
> if ascb \= 0 then do
> assb = C2D(Storage(D2X(ascb+336),4))
> nttp = C2D(Storage(D2X(assb+220),4))
> If nttp \= 0 then Call donttp nttp,'Address space'
> end
>
> /* system level */
> cvt = C2d(Storage(10,4)) /* get CVT pointer */
> ecvt = C2d(Storage(D2x(cvt+140),4)) /* get CVTECVT */
> nttp = C2D(Storage(D2X(ecvt+140),4))
> Call donttp nttp,'System'
> exit 0
> /* routine to report on name token pairs */
> Donttp:
> Parse Arg ptr,title
> Say title' level NTTP at 'D2X(ptr)
> eye = Storage(D2X(ptr),4)
> If eye \= 'NTTH' then Do
> Say '** Invalid eye catcher found for NTTP'
> Return
> End
> base = C2D(Storage(D2X(ptr+64),4))
> Do While base \= 0
> tcbt = C2X(Storage(D2X(base+4),4))
> name = Storage(D2X(base+8),16)
> token = C2X(Storage(D2X(base+24),16))
> Say 'Name 'name' from 'tcbt
> display = X2C(token)
> /* translate out characters between 00 and 3f */
> display = TRANSLATE(display,,XRANGE(,'3f'x),'00'x)
> Say ' Token = 'token' ('display')'
> base = C2D(Storage(D2X(base+64),4))
> End
> Say ''
> Return
>
> ITschak Mugzach
> *|** IronSphere Platform* *|* *Information Security Continuous Monitoring
> for z/OS, x/Linux & IBM I **| z/VM coming soon  *
>
>
>
>
> On Tue, Mar 21, 2023 at 6:15 PM Mike Shaw 
> wrote:
>
> > Listers,
> >
> > The answer to my question is probably "no" since the doc on IEANTRT is
> > silent on this topic.
> >
> > I need to be able to check for the existence of a specific name/token
> pair
> > from a REXX exec, WITHOUT using an external function. The z/OS Authorized
> > Assembler Services reference implies that only Assembler is supported,
> and
> > I have used that interface to create/retrieve/delete name/token pairs,
> but
> > I need to check for the existence of a specific name/token pair from a
> > REXX  exec.
> >
> > ...and I suppose it is a given that there is no (documented) anchored
> chain
> > of name/token pairs that I can run with the Rexx STORAGE function...
> >
> > Mike Shaw
> > MVS/QuickRef Support Group
> > Chicago-Soft, Ltd.
> >
> > --
> > 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

Is z/OS Name/Token pair retrieval supported from REXX?

[Mike Shaw]

Listers,

The answer to my question is probably "no" since the doc on IEANTRT is
silent on this topic.

I need to be able to check for the existence of a specific name/token pair
from a REXX exec, WITHOUT using an external function. The z/OS Authorized
Assembler Services reference implies that only Assembler is supported, and
I have used that interface to create/retrieve/delete name/token pairs, but
I need to check for the existence of a specific name/token pair from a
REXX  exec.

...and I suppose it is a given that there is no (documented) anchored chain
of name/token pairs that I can run with the Rexx STORAGE function...

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Bad backup stories (was: Re: Ransomware in VSAM and DB2)

[Mike Shaw]

1981 - dual 370/168s MP'ed together. A sysprog coworker applied maintenance
to AbendAid, then left town for the weekend. Turns out he  linked RTM in
the nucleus incorrectly and the scheduled  Sunday night IPL failed with a
disabled wait state. We can't find the FDR/SAR tape backup of the sysres.
Tried to IPL SAR from the card reader with a punched card deck, that failed.

Now we are getting desperate; it's 2AM Monday morning. We talked our IBM CE
into removing the HDA from the 3350 sysres and we take it across town to a
friendly MVS shop. He removed the HDA from one of their 3350s, installs our
HDA and we fix the problem there, then he deinstalls our HDA, we take it
back to our shop, reinstall it in our 3350, then IPL just in time for CICS
to come up at 6AM.

A very bad night.

Mike Shaw
QuickRef Support
Chisoft

On Sun, Mar 12, 2023, 1:33 PM Charles Mills  wrote:

> Gee, this is more of a nostalgia thread than most ...
>
> My very first programming job, the tape librarian quit. (Remember tape
> libraries and librarians and manual tape management?). Our boss was too
> cheap to hire a replacement with any overlap in employment dates. So the
> new woman started with no tape librarian experience. Everything seemed to
> be going well for a couple of weeks ... until it turned out that if she got
> a scratch request and could not find the volume -- perhaps it was lying on
> someone's desk or something like that -- she would scratch the closest
> match she *could* find. For example, if the scratch request was for VOLSER
> 274382 and she couldn't find it, she might scratch 274383 because it was
> the closest match she could find. Just trying to do the best job she could
> ...
>
> Charles
>
> --
> 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: Cant SPKA to PSW Key 4

[Mike Shaw]

Joseph,

Yes, but we develop on a zPDT box also. Colesoft is good about negotiating
pricing on z/XDC for small shops.

The drastic productivity improvement that occurs when debugging with z/XDC
makes the license fee worthwhile. I used TSO TEST to debug for over 12
years, then switched to z/XDC for debugging; it  is light-years ahead of
TEST.

Besides, if you are an independent developer operating as an LLC, you could
deduct the annual license fee as a business expense on your tax return.

Mike

On Mon, Feb 27, 2023, 9:05 AM Joseph Reichman  wrote:

> When you say we you are referring to your company
>
> Not you yourself correct ?
>
> > On Feb 27, 2023, at 9:03 AM, Mike Shaw  wrote:
> >
> > +1
> >
> > We have been licensees of z/XDC for over 25 years. It has saved us
> > immeasurable amounts of man-hours.
> >
> > Mike Shaw
> > MVS/QuickRef Support Group
> > Chicago-Soft, Ltd.
> >
> >
> >> On Mon, Feb 27, 2023 at 5:07 AM Rob Scott 
> wrote:
> >>
> >> Joseph
> >>
> >> As others might have suggested, if you are even semi-serious about
> writing
> >> authorized code then I think it would be worth your time talking to Cole
> >> Software about getting z/XDC.
> >>
> >> Independently of that discussion, it might be a good idea to take stock
> of
> >> your current software’s own trace abilities  (and I mean something more
> >> than just putting the odd WTO out).
> >>
> >> It would be a very good investment in your time to build a comprehensive
> >> internal trace capability for your software, something that can support
> all
> >> environments that it can be executed in.
> >>
> >> Even if you are writing authorized code for your own interest/hobby,
> then
> >> believe me that solving this issue is extremely interesting (and
> rewarding).
> >>
> >> The return on investment for this is huge if your code ever reaches a
> >> customer site and you are trying to resolve a problem.
> >>
> >> Rob Scott
> >> Rocket Software
> >>
> >> From: IBM Mainframe Discussion List  On
> Behalf
> >> Of Joseph Reichman
> >> Sent: 26 February 2023 22:36
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: Re: Cant SPKA to PSW Key 4
> >>
> >> EXTERNAL EMAIL
> >>
> >>
> >>
> >> Jim
> >>
> >> How about IDF or tool debug I have been trying to get IDF running so I
> can
> >> debug code running in key 4 but if you say I’m wasting my time ?
> >>
> >>> On Feb 26, 2023, at 5:18 PM, Jim Mulder  >> d10j...@us.ibm.com>> wrote:
> >>>
> >>>  They do not support whatever is in TCBPKF. I have seen code in TSO
> >> which has
> >>> hardcoded x'80'.
> >>>
> >>> Jim Mulder
> >>>
> >>> -Original Message-
> >>> From: IBM Mainframe Discussion List  >> IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Ed Jaffe
> >>> Sent: Saturday, February 25, 2023 9:50 PM
> >>> To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
> >>> Subject: Re: Cant SPKA to PSW Key 4
> >>>
> >>>> On 2/23/2023 6:46 PM, Joseph Reichman wrote:
> >>>> I am trying to change psw storage key from "Normal" key 8 to Key 4
> >>>>
> >>>> SPKA X'40'
> >>>>
> >>>> I have bit 15 of the psw 0 ,meaning I am in supervisor state and get a
> >>>> s0c1 running this code under TESTAUTH
> >>>>
> >>>> I am able to get to PSW key 0 SPKA 0
> >>>>
> >>>> Don't get it
> >>>
> >>> ISTR discovering empirically 30+ years ago that TSO/E TEST and TESTAUTH
> >> support only two execution keys: X'80' and X'00'.
> >>>
> >>> I wondered if in-fact they actually support whatever key is in TCBPKF
> >> and X'00' but never experimented to see if that was the case.
> >>>
> >>> --
> >>> Phoenix Software International
> >>> Edward E. Jaffe
> >>> 831 Parkview Drive North
> >>> El Segundo, CA 90245
> >>> https://www.phoenixsoftware.com/<https://www.phoenixsoftware.com>
> >>>
> >>>
> >>> --
> >>> For IBM-MAIN subscribe / signoff / archive access instructions,
> >>> send email to lists...@listserv.ua.edu<mailto:lists...@

Re: Cant SPKA to PSW Key 4

[Mike Shaw]

+1

We have been licensees of z/XDC for over 25 years. It has saved us
immeasurable amounts of man-hours.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Mon, Feb 27, 2023 at 5:07 AM Rob Scott  wrote:

> Joseph
>
> As others might have suggested, if you are even semi-serious about writing
> authorized code then I think it would be worth your time talking to Cole
> Software about getting z/XDC.
>
> Independently of that discussion, it might be a good idea to take stock of
> your current software’s own trace abilities  (and I mean something more
> than just putting the odd WTO out).
>
> It would be a very good investment in your time to build a comprehensive
> internal trace capability for your software, something that can support all
> environments that it can be executed in.
>
> Even if you are writing authorized code for your own interest/hobby, then
> believe me that solving this issue is extremely interesting (and rewarding).
>
> The return on investment for this is huge if your code ever reaches a
> customer site and you are trying to resolve a problem.
>
> Rob Scott
> Rocket Software
>
> From: IBM Mainframe Discussion List  On Behalf
> Of Joseph Reichman
> Sent: 26 February 2023 22:36
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Cant SPKA to PSW Key 4
>
> EXTERNAL EMAIL
>
>
>
> Jim
>
> How about IDF or tool debug I have been trying to get IDF running so I can
> debug code running in key 4 but if you say I’m wasting my time ?
>
> > On Feb 26, 2023, at 5:18 PM, Jim Mulder  d10j...@us.ibm.com>> wrote:
> >
> >  They do not support whatever is in TCBPKF. I have seen code in TSO
> which has
> > hardcoded x'80'.
> >
> > Jim Mulder
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Ed Jaffe
> > Sent: Saturday, February 25, 2023 9:50 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
> > Subject: Re: Cant SPKA to PSW Key 4
> >
> >> On 2/23/2023 6:46 PM, Joseph Reichman wrote:
> >> I am trying to change psw storage key from "Normal" key 8 to Key 4
> >>
> >> SPKA X'40'
> >>
> >> I have bit 15 of the psw 0 ,meaning I am in supervisor state and get a
> >> s0c1 running this code under TESTAUTH
> >>
> >> I am able to get to PSW key 0 SPKA 0
> >>
> >> Don't get it
> >
> > ISTR discovering empirically 30+ years ago that TSO/E TEST and TESTAUTH
> support only two execution keys: X'80' and X'00'.
> >
> > I wondered if in-fact they actually support whatever key is in TCBPKF
> and X'00' but never experimented to see if that was the case.
> >
> > --
> > Phoenix Software International
> > Edward E. Jaffe
> > 831 Parkview Drive North
> > El Segundo, CA 90245
> > https://www.phoenixsoftware.com/<https://www.phoenixsoftware.com>
> >
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu<mailto: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<mailto:lists...@listserv.ua.edu>
> with the message: INFO IBM-MAIN
>
> 
> Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA
> 02451 ■ Main Office Toll Free Number: +1 855.577.4323
> Contact Customer Support:
> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
> Unsubscribe from Marketing Messages/Manage Your Subscription Preferences -
> http://www.rocketsoftware.com/manage-your-email-preferences
> Privacy Policy -
> http://www.rocketsoftware.com/company/legal/privacy-policy
> 
>
> This communication and any attachments may contain confidential
> information of Rocket Software, Inc. All unauthorized use, disclosure or
> distribution is prohibited. If you are not the intended recipient, please
> notify Rocket Software immediately and destroy all copies of this
> communication. Thank you.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Paddle temporary fix?

[Mike Shaw]

Jim,

Great information; thank you.

I worked for EDS in 1978; they were still running OS/MVT 21.8 at that time,
supporting five Blue Cross and Blue Shield plans in the Northeast.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sat, Feb 25, 2023, 7:49 PM Jim Marshall <
04a082badc31-dmarc-requ...@listserv.ua.edu> wrote:

> The Paddle Project at SHARE was formed in order to provide a means of
> support when IBM stopped supporting the OS/MVT Operating System on IBM 360s
> and ultimately running on the later IBM 4341. IBM had announced the IBM 370
> and its OS/VS R2, later becoming MVS and wanted customers to buy new
> hardware and the new MVS OS. This was in the mid 1970s.
>
> I was in the Air Force and arrived in the Pentagon in early September 1975
> just in time to attend the last IBM OS/MVT Workshop given in order to be a
> SYSProg on a surplus IBM 360/75J. There were quite a few IBM 360s running
> in private industry and Government.
> Many SHARE attendees were still running OS/MVT and Dr Robert (Bob) Rannie,
> Northern Illinois University formed the Paddle Project, mascot an OAR,
> signifying you could join the members in the symbolic CANOE and we would
> all SHARE information paddling, providing our own support. IBM was not
> pleased. Early on a number of attendees also formed a team wearing powder
> blue berets with the “OS Special Forces” patch.
>
> My Data Center was trying to upgrade the IBM 360/75J to an IBM 370/168 but
> the approval process would take years. In the meantime some high priority
> workloads needed to keep running and the more they processed, the Air Staff
> found more things to do.
> Each SHARE the OS/MVT session were overflowing with our IBM Rep, Jerry
> Fineman, attending. One meeting Jerry leaped on the stage, snatched the
> Paddle from Dr Bob, and broke the handle over his knee signifying when
> OS/MVT breaks, IBM would not assist in fixing; no way. Actually in my prior
> assignment out in Colorado, IBM was fully supporting OS/MVT on multiple IBM
> 360/75Js, including some overseas, for a high priority Defense system. In
> fact IBM would later update OS/MVT to run on multiple IBM 3033s. But for
> now all of us were “OWN OUR OWN”, up the creek but “WITH A PADDLE”. Brand X
> vendors including IBM retrofitted, IBM 3330/3350 DASD and Tape drives from
> 556bpi to 6250bpi to run on them.
>
> I help to consolidate and distribute all the know info on OS/MVT plus all
> the performance related enhancements and ZAPS coded some by IBM’ers, but
> SHARE members. I applied all to my IBM 360/75J and could outrun an IBM
> 370/158 on MVS.
>
> Getting back to the broken Paddle, Dr Bob took the broken Paddle back to
> NIU, created an APAR and create a PTF or Paddle Temporary FIX. He drilled
> holes in each end and inserted a Titanium rod and used epoxy; good as new.
> I seem to recall he wrapped tape around broken area to give the illusion it
> was a less than permanent fix.
>
> Sure enough at the next SHARE, Dr Bob was on stage with the Paddle, Jerry
> again leaped onto the stage with malice intent, grabbed the Paddle and in a
> big display of contempt, raised his leg and slapped the Paddle down to
> break it. He limped off the stage for the titanium fix had held.
>
> It tided me over until we upgraded in late 1978, getting the first IBM
> 30XX shipped, an IBM 3032; especially the IBM 360/75J was located in the
> corner with $300M worth of Honeywell Computers. The decision was made to
> keep the IBM 360/75J, upgrade main memory from 1M to 2.5M, all high speed,
> add ITEL 3330s and add a COMTEN 3650 Com Controller to offer Dial-up
> Unclassified Time Sharing. TSO was enhanced with a bunch of TSOCPs, HASP3.1
> was modified and many offices installed RJE’s to keep from walking up to a
> mile to get their output from the data center.
>
> Even though IBM wanted everyone to upgrade to MVS and begin paying for
> parts to the system along with Program Products, the IBM 360 encouraged
> many government sites to use it. After all, the system was stable, was
> fully paid for and depreciated to $0. The software was free along with
> Assembler, COBOL, PL1/F, ALGOL, RPG and JOVIAL. Then there was all the
> SHAREWARE software written by non-IBM’ers showing up on the SHARE tape and
> CBT (Connecticut Bank & Trust) maintained by Arnie Casinghino and later
> picked up by Sam Golob. This free software had source code and was passed
> around all over the world. Most of these compilers still run today even
> with z/OS. Plus users were not restricted to work local to the Data Center.
> It was hard to convince management to upgrade until maintenance issues
> along arose now done by Third Party vendors along with parts availability.
>
> From that point it was into the 1980s and 

Re: Q: Where is LISTDSI kept?

[Mike Shaw]

Steve,

You have to code something like this:

X = LISTDSI(SYSUT1 FILE)
IF (X ¬= 0) THEN DO
   SAY 'DATASET ..' SYSUT1 '.. NOT FOUND'
   SAY SYSREASON
   EXIT
END

instead of what you have, which is

 LISTDSI(SYSUT1 FILE)

I get a -3 return code and this error message when I code LISTDSI the way
you coded it:

IKJ56621I INVALID COMMAND NAME SYNTAX
   +++ RC(-3) +++

As someone else pointed out, LISTDSI is a Rexx TSO/E external function so
it has to be invoked as a function.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Mon, Feb 20, 2023 at 5:04 PM Steve Thompson  wrote:

> I'm wondering this as well. I had it happen before.
>
> Steve Thompson
>
> On 2/20/2023 4:50 PM, Tom Brennan wrote:
> > O/T - This may not be related and I wish I knew more about it,
> > but for a time last year my tombrennansoftware.com email
> > address couldn't send to gmail.com at all.  I believe the
> > Google server was doing a DNS lookup on my address looking for
> > a particular SPF TXT record. I really can't remember, but I
> > think after I set that record up in my DNS I could send notes
> > to gmail.  Maybe Marist does something similar.
> >
> > On 2/20/2023 12:58 PM, Steve Thompson wrote:
> >
> >> ... It doesn't matter what email address I send an email to at
> >> Marist, it gets rejected by IP address.
> >
> > --
> >
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO
> > IBM-MAIN
>
> --
> 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: Q: Where is LISTDSI kept?

[Mike Shaw]

Steve,

If you change the EXEC statement to use PGM=IRXJCL instead of PGM=IKJEFT01
does the result change?

Mike Shaw
QuickRef Support

On Mon, Feb 20, 2023, 2:53 PM Steve Thompson  wrote:

> Thankfully this time I can show the code. One needs to
> understand, sometimes I'm working on something for a client that
> goes ape if I show their code without getting it in writing.
>
> This is how the second step in a PROC is being done which is
> where this code gets invoked:
>
> //.  EXEC PGM=IKJEFT01,..
>
> This is a capture of the code leading into the failure:
>
>
>
>   ADDRESS LINKMVS 'ISPQRY' /* Verify the ISPF environ */
>   xx = RC
>
>   IF xx > 0 THEN DO
>  SAY "ISPQRY did not find a valid ISPF envi
>  SAY "Migration System will terminate with
>  EXIT xx
>   END ; ELSE DO
>  SAY "ISPQRY found valid ISPF environment."
>  SAY "Migration System continues."
>   END
>
>   PARSE ARG UPPER COMMAND_LINE EXCESS
>   SAY "COMMAND_LINE=" COMMAND_LINE
>   SAY "EXCESS PARM =" EXCESS
>
>
>   ADDRESS TSO
>
>   listdsi 'SYSUT1 FILE'
>   XX = RC  /* capture RC */
>
> *XX is -3 when done. *
>
> Meanwhile, anyone have a contact for the TSO-REXX list -- Any
> email to any address at Marist for me is being rejected.
>
> Steve Thompson
>
>
> On 2/20/2023 12:29 PM, ITschak Mugzach wrote:
> > Show us you code.
> >
> > בתאריך יום ב׳, 20 בפבר׳ 2023 ב-19:28 מאת Binyamin Dissen <
> > bdis...@dissensoftware.com>:
> >
> >> Does it work out of live ISPF?
> >>
> >> If so, try running it with TRACE in both environments.
> >>
> >> On Mon, 20 Feb 2023 11:30:27 -0500 Steve Thompson 
> wrote:
> >>
> >> :>Interesting. I have started ISPF, and I have checked that ISPF is
> >> :>active from my REXX code via ISPQRY and comes back with RC=0
> >> :>(active).
> >> :>
> >> :>Later in REXX code I attempt to get INFO on a DD and that is when
> >> :>LISTDSI returns -3.
> >> :>
> >> :>So apparently I need to concatenate some library and I don't have
> >> :>any of the install stuff for this environment
> >> :>
> >> :>I'm not sure that I have access to the CSIs because this is a
> >> :>cloned system.
> >> :>
> >> :>Regards,
> >> :>Steve Thompson
> >> :>
> >> :>On 2/20/2023 11:16 AM, Lars Höglund wrote:
> >> :>> You have to start ISPF
> >> :>>
> >> :>> //BATCHPDF EXEC PGM=IKJEFT01,DYNAMNBR=128,
> >> :>> // PARM='ISPSTART CMD( )'
> >> :>>
> >> :>> //Lasse
> >> :>>
> >> :>> -Ursprungligt meddelande-
> >> :>> Från: IBM Mainframe Discussion List  För
> >> Steve Thompson
> >> :>> Skickat: den 20 februari 2023 17:09
> >> :>> Till: IBM-MAIN@LISTSERV.UA.EDU
> >> :>> Ämne: Q: Where is LISTDSI kept?
> >> :>>
> >> :>> I'm trying to build a TSO BATCH environment and it needs to have the
> >> ISPF Library functions in it.
> >> :>>
> >> :>> So I copied all the DDs that I needed via TSO ISRDDN against my TSO
> >> address space.
> >> :>>
> >> :>> What I am now running into is REXX is giving me a -3 for LISTDSI!!
> >> :>>
> >> :>> Reminds me of the topic:  How long for an experienced z/OS
> sysprog...
> >> :>>
> >> :>> I do not have any documentation for this environment. It was thought
> >> that I wouldn't need it. And it surprised me when using LISTDSI in batch
> >> that it failed. So I've been trying to SRCHFOR LISTDSI under ISRDDN and
> I
> >> find text fields, nothing in alias...
> >> :>>
> >> :>> And since my IP address for my email is still being blocked at
> Marist
> >> (I have a call into them, have no idea when they will call back, and I
> did
> >> send an email to someone off line -- I'm wondering if they got that
> email,
> >> for running MTAs they will know what this is about).
> >> :>>
> >> :>> Bottom line is, I can't use TSO-REXX list for now.
> >> :>>
> >> :>> Steve Thompson
> >> :>>
> >> :>>
> --
> >> :>> For IBM-MAIN subscribe / signoff / archive access instructions, send
> >> email to lists...@li

Re: Missing Values For The 'SDSF DA' Panels - z/OS 2.5

[Mike Shaw]

I meant Brian Westerman...sorry.

Mike

On Sat, Feb 18, 2023, 11:25 AM Mike Shaw  wrote:

> Everyone,:
>
> Brian Western, who is active on this forum, did some of the coding on SDSF
> in its infancy when he was still a teenager.  He has a good story to tell
> about it if you can get it out of him.
>
> Mike Shaw
> MVS/ QuickRef Support
> Chicago-Soft, Ltd
>
> On Sat, Feb 18, 2023, 10:54 AM Jay Maynard  wrote:
>
>> Am I the only one who remembers the original Sysout Display and Search
>> Facility FDP and marvels at what SDSF has become?
>>
>> --
>> 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: Missing Values For The 'SDSF DA' Panels - z/OS 2.5

[Mike Shaw]

Everyone,:

Brian Western, who is active on this forum, did some of the coding on SDSF
in its infancy when he was still a teenager.  He has a good story to tell
about it if you can get it out of him.

Mike Shaw
MVS/ QuickRef Support
Chicago-Soft, Ltd

On Sat, Feb 18, 2023, 10:54 AM Jay Maynard  wrote:

> Am I the only one who remembers the original Sysout Display and Search
> Facility FDP and marvels at what SDSF has become?
>
> --
> 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: determine job that created dataset?

[Mike Shaw]

On Tue, Feb 14, 2023, 5:29 AM Bill Giannelli 
wrote:

> Is there a way to determine what job created a dataset
>

The job name is in the F8 DSCB in the VTOC entry for the dataset IF the
dataset resides in the Extended Addressing Space (EAS) on an Extended
Addressing Volume (EAV).

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Beware IBM PTF UJ09197 (APAR OA63062)

[Mike Shaw]

Or a newbie developer?

I would like to know the background on this one...

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

On Mon, Jan 16, 2023, 2:35 PM Paul Gilmartin <
042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:

> On Sun, 15 Jan 2023 20:51:20 -0500, Tony Harminc wrote:
> >...
> >I guess this mostly article-free English is trying to say that an
> >unspecified field in the ASCB points to something above the line, rather
> >than that the ASCB itself is above the line.
> >
> Even so, there should never have been a need to operate in AMODE 24.
> AMODE 31
> supports accessing storage below-the-line.
>
> Was it lazy code to avoid purifying an impure 24-bit address?
>
> >IHAASCB still says that the ASCB is below the line, and I think a ton of
> >stuff would break it was moved above. That's what the ASSB is for.
>
> --
> 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: dump command not fitting in console

[Mike Shaw]

Bill,


You type

*DUMP COMM=('dump explanatory 'text')*

and ENTER,

and then when prompted you reply

*R nn,ASID=...,SDATA=...*

and so on until done, then reply

*R nn, END*

to complete the request.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Tue, Dec 13, 2022 at 9:10 AM Bill Giannelli 
wrote:

> we have a dump request from IBM but the command with all the parameters is
> not fitting in the console command line.
> any suggestions?
> 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: SPF/SE is available for free

[Mike Shaw]

Michael,

Thank you for this gift to our community. I used SPF/PC and SPF/SE
extensively in the past and thought it was gone forever.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Tue, Nov 1, 2022 at 10:22 AM Michael Knigge 
wrote:

> FYI:
>
> I guess some of you guys use SPF/SE (SPF SourceEdit) from Command
> Technology. The editor was developed by Tim Tetivia, who unfortunately died
> in 2022 as a result of a corona infection. With some research and help from
> other SPF users (namely Peter aka Verizon), it was possible to contact
> Tim's wife Bonnie. She gave us permission to distribute the editor for free
> (sadly the source code is “lost” forever).
>
> On my GitHub (https://github.com/michaelknigge/spf-editor) I made some
> releases available, together with product keys. I also provide a
> “professional” installer created with InnoSetup that installs SPF/SE
> together with some useful macros, file profiles and color schemes (a color
> scheme that makes SPF/SE look like ISPF).
>
> The original releases can be found here:
> https://github.com/michaelknigge/spf-editor/tree/main/binaries
>
> My installers can be found here:
> https://github.com/michaelknigge/spf-editor/releases
>
>
> Bye,
> Michael
>
>
>
> Mit freundlichen Grüßen
>
> Michael Knigge
> Software Engineer
>
> SET GmbH
> Rühmkorffstraße 5
> 30163 Hannover
>
> Telefon: +49 511 330 998 23
> Fax: +49 511 330 998 65
> michael.kni...@set.de<mailto:michael.kni...@set.de>
> https://set.de
> Hinweise zum Datenschutz: https://set.de/datenschutz
>
> Handelsregister: Amtsgericht Hannover HRB 52778
> ​Geschäftsführer: Dr.-Ing. Tobias Baum, Dr.-Ing. Arthur Brack
>
>
> --
> 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: A Million Years

[Mike Shaw]

We use IEBDG to generate separator recordS between concatenated XMIT files
for our LINKLIB, panels, msgs, etc. That sandwich then gets converted to
printable EBCDIC and imbedded within REXX code that will self-unpack those
XMIT files (via TSO/E RECEIVEs) when invoked on z/OS.

Mike



On Tue, Oct 18, 2022 at 9:11 AM Paul Gilmartin <
042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:

> On Tue, 18 Oct 2022 05:23:24 -0400, Mike Shaw wrote:
>
> >We use IEBUPDTE for Assembler source change application. SUPERC can
> compare
> >two source programs and generate a Delta file in IEBUPDTE format.
> >
> But, dammit, the UPDMVS8 option requires that both comparands have
> valid sequence numbers.  UPDCMA8 requires only that the OLD
> comparand have valid sequence numbers.  Why!?
>
> I wrote a script to use UPDCMS8 (not hard to reverse-engineer) and
> convert to IEBUPDTE format, supporting undisciplined coders who
> used non-numbering editors and delivering numbered ++MAC elememts
> to customers.
>
> >We even use IEBDG as part of a process when packaging our product elements
> >for customer download.
> >
> Details?  I'm unfamiliar with IEBDG.  I thought it was for generating test
> data.
>
> --
> 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: A Million Years

[Mike Shaw]

We use IEBUPDTE for Assembler source change application. SUPERC can compare
two source programs and generate a Delta file in IEBUPDTE format.

We even use IEBDG as part of a process when packaging our product elements
for customer download.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

On Mon, Oct 17, 2022, 3:46 PM Seymour J Metz  wrote:

> Yes, but I doubt that it sees much use. As batch update programs go it's
> pretty basic.
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Bill Johnson <0047540adefe-dmarc-requ...@listserv.ua.edu>
> Sent: Monday, October 17, 2022 3:32 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: A Million Years
>
> Is IEBUPDTE still around? I know it could change strings but had limits
> regarding record length.
>
>
> Sent from Yahoo Mail for iPhone
>
>
> On Monday, October 17, 2022, 2:24 PM, Steve Beaver 
> wrote:
>
> A million years ago the  was an IBM Batch Utility to change strings
>
> In a PDS.
>
>
>
> Does anyone remember the name of that utility?
>
>
> --
> 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: QWS3270 on zPDT

[Mike Shaw]

Section 7.1.1 in the I*BM ISV z/PDT Guide and Reference* reference
discusses the Linux-to-z/OS TCP/IP connections and how to define them in
your z/PDT DEVMAP. It's a long section with lots of detail.

Mike

On Wed, Oct 12, 2022 at 12:57 PM Binyamin Dissen 
wrote:

> On Wed, 12 Oct 2022 11:10:48 -0500 Charles Mills  wrote:
>
> :>20 and 21
>
> :>https://en.wikipedia.org/wiki/List_of_TCP_and_UDP_port_numbers
>
> I meant the linux host mapping which maps 3270 to a local port number.
>
>
> :>-Original Message-
> :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Binyamin Dissen
> :>Sent: Wednesday, October 12, 2022 3:54 AM
> :>To: IBM-MAIN@LISTSERV.UA.EDU
> :>Subject: Re: QWS3270 on zPDT
> :>
> :>
> :>BTW, is there a standard FTP like 3270 mapping to 23?
>
> --
> Binyamin Dissen 
> http://www.dissensoftware.com
>
> Director, Dissen Software, Bar & Grill - Israel
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: QWS3270 on zPDT

[Mike Shaw]

23 is the "traditional" TELNET port and unsecured TN3270 uses that.

I have seen secured TN3270 over TLS/SSL use port number 992 in several
cases, which is the "traditional" port number for secured TELNET.

On our z/PDT we use a large 5 digit port number that we picked at random.

QWS3270 will let you specify any port number for either secure or unsecure
TN3270 connection.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Wed, Oct 12, 2022 at 6:54 AM Binyamin Dissen 
wrote:

> On Sun, 9 Oct 2022 10:34:12 -0400 Mike Shaw 
> wrote:
>
> :>The z/PDT emulator supports 3270E connection to the Linux side of the
> box.
> :>If you have a 3270port statement in your IPL profile, it will specify the
> :>local port number that you can use to connect to z/OS via the Linux side
> of
> :>the box. That bypasses TCP/IP altogether. Mine specifies port 3270.
>
> :>If you define a new session to QWS3270 and specify the name or IP address
> :>of the Linux side of the box and a port number of 3270, you can connect
> :>(non-securely) to that port and appear as a channel-attached local 3270
> to
> :>z/OS.
>
> BTW, is there a standard FTP like 3270 mapping to 23?
>
> :>Does that method eliminate the problem you are seeing?
>
> :>Mike Shaw
> :>MVS/QuickRef Support Group
> :>Chicago-Soft, Ltd.
>
> :>On Sun, Oct 9, 2022 at 7:55 AM Binyamin Dissen <
> bdis...@dissensoftware.com>
> :>wrote:
>
> :>> On Fri, 7 Oct 2022 10:05:13 -0400 Mike Shaw 
> :>> wrote:
>
> :>> :>We use QWS3270 on a z/PDT and we have not seen that problem. Are you
> :>> :>running as a locally attached 3270 device address or through TCP/IP
> :>> :>remotely?
>
> :>> TCP/IP, appears to be thru a gateway.
> >
> :>> :>On Fri, Oct 7, 2022, 6:17 AM Binyamin Dissen <
> bdis...@dissensoftware.com
> :>> :>wrote:
>
> :>> :>> I am having a strange issue running QWS3270 against a zPDT system
> (two
> :>> :>> different systems). The screen goes completely blank after a few
> :>> seconds of
> :>> :>> inactivity.
>
> :>> :>> Quick3270 Secure works fine.
>
> :>> :>> Anyone else run into this?
>
> --
> Binyamin Dissen 
> http://www.dissensoftware.com
>
> Director, Dissen Software, Bar & Grill - Israel
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: 50 Years of SAS

[Mike Shaw]

Great stuff Barry. Brings back memories of the IBM world in the seventies.

Tony Barr went on to found Barr Systems. Mr. Barr's history of SAS is here:

http://www.barrsystems.com/about_us/the_company/sas_history.asp

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sun, Oct 9, 2022 at 12:26 PM Barry Merrill  wrote:

>   Fifty years ago today, October 9, 1972, I ran my first SAS Program.
>
>
>   I left the Navy in June, 1972, and in August, my Psychologist friend,
>   Dr. L. Rogers Taylor, now working at State Farm Automobile HQ in
>   Bloomington, IL, suggested I might find a home there and arranged for
>   an interview. At Purdue in 1966, I had written FORTRAN programs for
>   his dissertation, using pattern recognition techniques, cluster
>   analysis, and vector distance tools from my Master's Research in EE at
>   LARS, the Laboratory for Agricultural Remote Sensing. These tools had
>   not been previously used in his then-new field of Industrial
>   Psychology. His actual application analyzed questionnaires completed by
>   Humble Oil Petroleum Engineers, which were then correlated with a
>   separate data file that identified those Engineers who HAD found oil
>   from those that hadn't, to construct a predictive questionnaire (very
>   successfully, he received accolades from his peers for introducing
>   pattern recognition to them).  He arranged for an interview with the
>   Vice President for Data Processing, Dr. Norman Vincent.
>
>   After completing the required HR forms, my escort very nervously drove
>   me to the Corporate HQ Building; he had never even MET a State Farm
>   Corporate VP, let alone be in a VP's office! I immediately clicked
>   with Norm and met the manager of the brand new "Measurement Unit",
>   Dave Vitek, and then spent the day interviewing members of that group
>   (and being interviewed/evaluated by them). I started Sept 18, 1972
>   at $13800.
>
>   In 1972, the state of the art for IBM mainframe computer capacity
>   planning was simple: your company's IBM salesman would visit with your
>   company's vice president for data processing, hand him the contract
>   for a newer and faster and larger computer for only a few million
>   dollars. Dave Vitek had attended (the first?) Boole and Babbage User
>   Group (BBUG) annual meeting, where the idea of actually measuring the
>   computer system utilization was THE topic. Dave decided that rather
>   than just trusting the IBM salesman as your capacity planner, State
>   Farm should be able to figure out how measure its own computers, and
>   Dave got Norm to fund a ten-person Measurement Unit for three years
>   for a feasibility study.
>
>   Steve Cullen had drafted an excellent attack plan to investigate the
>   four possible tools, SMF Accounting, Software Monitors, Hardware
>   Monitors, and Simulation, and in short order, we had Kommand/PACES for
>   accounting, Software Monitors (SYSTEM LEAP and PROGRAM LEAP), Hardware
>   Monitors (TESDATA XRAY), and Simulation (SAM). But, Kommand was only
>   for billing, with only a few canned reports, and with no tool for data
>   extraction, Denny Maguire had started to write PL/1 programs to
>   extract fields directly from the raw SMF records. When he mentioned he
>   wanted to plot his data. I called Purdue's LARS and they sent me the
>  FORTRAN "PLOT" subroutine that I had   written there that did simple
>   plots on line printers, but could also print detailed graphics on
>  CalComp paper plotters.  Denny was still having problems reading the
>  complex data in SMF records, so my PLOT   program was still untested,
>  when, in the September, 1972, Datamation, I found this announcement:
>"The Institute of Statistics at North Carolina State University
>announces the availability of the Statistical Analysis System, a
>package of 100,000 lines, one third each in Fortran, PL/1 and
>Assembler, that does printing, analysis and plotting of data. The
>package is available, including source code, for $100.00."
>
>   I wrote for information, and got typical university documentation,
>   with some pages dittoed, some pages typed, some printed, each on paper
>   of a different color, but I immediately realized the power and
>   simplicity and the beauty of the SAS language and especially of power
>   of its INPUT statement which could clearly handle the complexity of
>   SMF data. However, in their list of supported data field formats,
>   there was no reference to support for Packed Decimal fields. You only
>   need to get seven bytes into an SMF record to encounter a Packed
>   Decimal field, so I called the Institute of Statistics at North
>   Carolina State University, and was connected with Tony Barr, the
>   des

Re: QWS3270 on zPDT

[Mike Shaw]

Binyamin,

The z/PDT emulator supports 3270E connection to the Linux side of the box.
If you have a 3270port statement in your IPL profile, it will specify the
local port number that you can use to connect to z/OS via the Linux side of
the box. That bypasses TCP/IP altogether. Mine specifies port 3270.

If you define a new session to QWS3270 and specify the name or IP address
of the Linux side of the box and a port number of 3270, you can connect
(non-securely) to that port and appear as a channel-attached local 3270 to
z/OS.

Does that method eliminate the problem you are seeing?

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sun, Oct 9, 2022 at 7:55 AM Binyamin Dissen 
wrote:

> On Fri, 7 Oct 2022 10:05:13 -0400 Mike Shaw 
> wrote:
>
> :>We use QWS3270 on a z/PDT and we have not seen that problem. Are you
> :>running as a locally attached 3270 device address or through TCP/IP
> :>remotely?
>
> TCP/IP, appears to be thru a gateway.
>
> :>On Fri, Oct 7, 2022, 6:17 AM Binyamin Dissen  >
> :>wrote:
>
> :>> I am having a strange issue running QWS3270 against a zPDT system (two
> :>> different systems). The screen goes completely blank after a few
> seconds of
> :>> inactivity.
>
> :>> Quick3270 Secure works fine.
>
> :>> Anyone else run into this?
>
> --
> Binyamin Dissen 
> http://www.dissensoftware.com
>
> Director, Dissen Software, Bar & Grill - Israel
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: QWS3270 on zPDT

[Mike Shaw]

We use QWS3270 on a z/PDT and we have not seen that problem. Are you
running as a locally attached 3270 device address or through TCP/IP
remotely?

Mike Shaw
Chicago-Soft, Ltd


On Fri, Oct 7, 2022, 6:17 AM Binyamin Dissen 
wrote:

> I am having a strange issue running QWS3270 against a zPDT system (two
> different systems). The screen goes completely blank after a few seconds of
> inactivity.
>
> Quick3270 Secure works fine.
>
> Anyone else run into this?
>
> --
> Binyamin Dissen 
> http://www.dissensoftware.com
>
> Director, Dissen Software, Bar & Grill - Israel
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: MVS Update

[Mike Shaw]

The 'V' file viewer at www.fileviewer.com will let you view the contents of
an XMIT file on your Windows PC.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Tue, Oct 4, 2022 at 11:04 AM esst...@juno.com  wrote:

> .
> .
>  I was able to obtain CBT830.zip
>  I extracted it, and it creates a xmi file.
>  However I can't open it  CBT830.xmi
>  I tried changing the suffix to doc and docx and txt
>  Is there anything special to open this file ?
>
> Paul
> -- Original Message --
> From: Sri h Kolusu 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: MVS Update
> Date: Mon, 3 Oct 2022 02:59:02 +
>
> Paul,
>
> CBT Tape File 830 contains 926 articles (with their code, as an EBCDIC
> pds) from Xephon's MVS Update magazines, ranging from July 1987 thru
> December 1996.
>
>
> https://bit.listserv.ibm-main.narkive.com/q69XU7Zi/please-explore-cbt-tape-file-830-xephon-mvs-articles
>
> Here is the link to download File # 830 XEPHON MVS articles from 07/1987
> thru 12/1996 EBCDIC
>
> https://www.cbttape.org/ftp/cbt/CBT830.zip
>
> Checking CBT830 it has the following articles from October of 1987
>
> "B2D3A01C"-An on-line MVS/XA CSA monitor -October   1987
> "F863B8BD"-Determining VSAM buffer allocations   -October   1987
> "U75306DC"-Issuing operator commands through JCL -October   1987
> "TE2F0969"-IPOUPDTE  -October   1987
> "YFB389AC"-MVS authorisation -October   1987
> "XA332F6C"-Protecting catalogued tape files  -October   1987
> "Q0F37C0C"-TSO response time monitor -October   1987
> "C813F37C"-Verifying whether a job is currently active   -October   1987
> "C503910D"-Volume pooling using IGGPRE00 -October   1987
> "TD9355BC"-Writing a cross memory program-October   1987
>
> Thanks,
> Kolusu
>
>
> --
> 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: z/OSMF - again, next issue

[Mike Shaw]

It seems to me that z/OSMF is being developed one piece at a time, slowly,
instead of starting with a well-thought out and relatively complet design
ahead of time. Portions are being developed and added, one at a time, as
the need for those portions of the product is discovered. It's like we are
all participants in a giant beta test.

My opinion only...

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Tue, Aug 30, 2022 at 9:01 AM Carmen Vitullo  wrote:

> from what I was told by my teammate, Zsecure version 2.5 requires
> z/osmf, I could be wrong, she could be mistaken, but the issues she's
> having I think would affect Serverpac, or whatever it's called now,
> build JCL and submit JCL.
>
> my case I opened was initially on the errors we were seeing on the
> submit errors, that was not addressed, just the easy stuff, now I have
> to recreate the issue again and make sure I have the correct error
> message for support. typical of z/osmf support; my first case I opened
> for z/osmf issues was open and not resolved for 364 days, so, so far I'm
> ahead of the game I support
>
> Carmen
>
> On 8/30/2022 7:54 AM, Keith Gooding wrote:
> > Just curious - I thought that only Serverpac required the use of z/OSMF
> and CBPDOs are installed using traditional methods. Are there now products
> which have to be installed using z/OSMF ? Is it now possible to install a
> CNPDO using z/OSMF.
> >
> > For the record my experience of z/OSMF for Serverpac installation has
> been positive - I would not want to go back to the ISPF dialogue method.
> >
> > Keith Gooding
> >
> >> On 30 Aug 2022, at 13:37, Carmen Vitullo  wrote:
> >>
> >> I don't recall ever having to work or needing to use a product to
> install or maintain a product that required another product as finicky as
> z/osmf
> >>
> >> at my 2.4 level downloading a product to support that level, the json
> file version was not compatible WTH,
> >>
> >> opening a case with IBM apparently there's an APAR PTF, sorry this is
> just insane using a product built on Java to support a Mainframe product
> and have this much incompatibility :(
> >>
> >> sad, very sad
> >>
> >> MHO
> >>
> >> Carmen
> >>
> >>> On 8/29/2022 8:34 PM, Robert Garrett wrote:
> >>> zOSMF.  A reasonably good idea that has been extremely poorly and
> sloppily implemented.
> >>>
> >>> -Original Message-
> >>> From: IBM Mainframe Discussion List  On
> Behalf Of Carmen Vitullo
> >>> Sent: Monday, August 29, 2022 1:13 PM
> >>> To: IBM-MAIN@LISTSERV.UA.EDU
> >>> Subject: z/OSMF - again, next issue
> >>>
> >>> I'm working with a teammate that is required to use z/osmf to download
> an new zsecure release, we successfully added the portable software
> instance and provide the https server and client parms, updated the
> JOBCARD, the next parts we hunt and peck and guess what to do next, we
> found quite by accident we had to 'complete add' to get to the part to
> submit the job to download the product from IBM, selecting action/submit
> the job we get this error
> >>>
> >>> The request could not be completed because an error occurred. Error:
> >>>
> >>> IZUD999E
> >>>
> >>> Aug 29, 2022, 1:02:08 PM
> >>>
> >>> An error occurred when attempting to contact the application server.
> The server returned HTTP status code: 500.
> >>>
> >>> IZUG857E
> >>>
> >>> the IZU messages are no help, we checked the configuration for the
> system(s) and found nothing configured wrong we saw, the PDS where the JCL
> was stored we submitted via TSO /ISPF successfully, next we went on and
> selected NEXT to move to the next job/process then we got this error An
> error occurred when attempting to contact the application server. The
> server returned HTTP status code: 500.
> >>>
> >>> IZUG857E
> >>>
> >>> Aug 29, 2022, 1:02:45 PM
> >>> I did not see any error in the IZUSVR1 address space or in the syslog.
> >>> my question, has anyone been successful submitting from z/osmf? is
> there somewhere I can check that needs configuring I may have missed?
> >>> thanks
> >>>
> >>> Carmen
> >>>
> >>> --
> >>> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the m

Re: rexx and IDCAMS functions

[Mike Shaw]

AFAIK, APF authorized pgms execute under TSO/E in a sister task to
IKJEFT09...the original IKJEFT09 task is in a wait until the APF authorized
pgm  ends. Maybe the AUTHPGMS list in IKJEFTxx came into being as part of
that mechanism...

Mike

On Mon, Aug 22, 2022, 10:47 AM Paul Gilmartin <
042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:

> On Mon, 22 Aug 2022 09:42:25 -0500, Walt Farrell wrote:
>
> >>I forgot to mention that "IDCAMS" is included on the
> >>SYS1.PARMLIB(IKJTSOxx)) AUTHPGM NAMES list
> >
> >Yes, that would be required in order for your TSO CALL command to invoke
> IDCAMS with APF-authorization.
> >
> Why is such specific authorization required?  Is there some
> associated hazard or cost?
>
> --
> 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: Finding uncatalogued datasets

[Mike Shaw]

Michael,

Look at member QWDSLIST in the MVS/QuickRef JCL library. Comments at top of
member will provide guidance and sort criteria help. Volser masking is
supported.

Mike Shaw
MVS/QuickRef Support Group

On Fri, Jul 22, 2022, 11:19 AM Michael Watkins <
032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:

> The installation where I'm employed has MVS/QuickRef installed, but we do
> not currently use it to find uncataloged datasets.
>
> Can you provide a sample of the batch job using MVS/Quickref to find all
> uncataloged datasets? Preferably one that would employ a mask for volumes
> to exclude, since temporary datasets, restricted to one pool where I work,
> are not cataloged by design.
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Mike Shaw
> Sent: Friday, July 22, 2022 10:11 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Finding uncatalogued datasets
>
> CAUTION: This email originated from outside of the Texas Comptroller's
> email system.
> DO NOT click links or open attachments unless you expect them from the
> sender and know the content is safe.
>
> Jack,
>
> MVS/QuickRef will give you a list of the uncataloged data sets across all
> your online DASD volumes, with one batch job, and you don't need to code
> any DD statements.
>
> Mike Shaw
> MVS/QuickRef Support Group
> Chicago-Soft, Ltd.
>
> On Fri, Jul 22, 2022, 10:00 AM Jack Zukt  wrote:
>
> > Hi all,
> > As a byproduct of what I am working now, I have found out a few
> > uncatalogued datasets. Now I would like to find out all the
> > uncatalogued datasets that are forgotten on the hundred of volumes that
> are out there.
> > Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
> > for each VOLSER. I could write a rexx that would read the DCOLLECT
> > VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
> > VOLSERs but I really would like to use a more standard approach. I
> > seem to remember, from another age, that FDRABR could do it. However
> > Dr. Google has not been able to find me anything to that effect using
> only IBM tools.
> > Do you have any ideas how to go about this?
> > Your help will be, as always, greatly appreciated.
> > Regards,
> > Jack
> >
> > --
> > 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: Finding uncatalogued datasets

[Mike Shaw]

Jack,

MVS/QuickRef will give you a list of the uncataloged data sets across all
your online DASD volumes, with one batch job, and you don't need to code
any DD statements.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

On Fri, Jul 22, 2022, 10:00 AM Jack Zukt  wrote:

> Hi all,
> As a byproduct of what I am working now, I have found out a few
> uncatalogued datasets. Now I would like to find out all the uncatalogued
> datasets that are forgotten on the hundred of volumes that are out there.
> Using ADRDDSU and   (CATLG EQ NO) is not an option as it would need a DD
> for each VOLSER. I could write a rexx that would read the DCOLLECT
> VOLUMES(*) NODATAINFO and generate a JOB for each VOLSER or group of
> VOLSERs but I really would like to use a more standard approach. I seem to
> remember, from another age, that FDRABR could do it. However Dr. Google has
> not been able to find me anything to that effect using only IBM tools.
> Do you have any ideas how to go about this?
> Your help will be, as always, greatly appreciated.
> Regards,
> Jack
>
> --
> 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: z/OS FTP ISPF Client - Available?

[Mike Shaw]

Try FTPB, Lionel Dyck's excellent ISPF FTP tool.

www.lbdsoftware.com

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

On Tue, Jul 19, 2022, 4:05 PM Jasi Grewal <
040674ae00fc-dmarc-requ...@listserv.ua.edu> wrote:

> Greetings,
> I work in an organization where there is a numerous FTP requirements to
> transfer the Data between each z/OS Systems and they don't use NJE.
> I was wondering if there is an FTP ISPF Tool and which can be used to
> transfer data between other z/OS Systems or other Operating Systems.
> It would be interesting to determine if there is a Tool available and
> maybe I can find time to write one this year, if there is none.
> Thank You in advance,Regards,Jasi Grewal.
>
> --
> 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: EXTERNAL: Re: FedEx to move entirely to the cloud [Internal]

[Mike Shaw]

I worked @ Morino Associates with Dr. Artis around 1983-84. I was in
TSO/MON development/support, he was Director of Analytic Systems (MICS).

Anyway, I was there at work early one morning weekday and he happened to be
there in the same room also working. Out of the blue he turns to me and
says "You know Shaw, you are disgustingly clean cut."

I couldn't deny it...

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Wed, Jul 13, 2022 at 3:36 PM Phil Smith III  wrote:

> Karl S Huf wrote:
>
> >I would refer anyone genuinely interested in sibling pend to download and
> review Dr. H. Pat Artis's "Sibling Pend: Like a Wheel Within a Wheel" 1996
> CMG paper (available to download at Dr. Pat's site
> http://www.perfassoc.com
> ).
>
>
>
> Thanks! I had seen that link but wasn't sure I wanted to bother with
> registering etc. since it was so old. As you note, it's still trenchant.
> Good stuff.
>
>
> --
> 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: File Transfer Alternatives - Different Platforms

[Mike Shaw]

We have a Synology NAS RAID server  that Windows and our z/OS system
connect to via FTP.  OSX and Linux can also talk to it via other protocols
. It is very easy to use.

Mike Shaw

On Mon, Jun 27, 2022, 10:17 AM Mark Jacobs <
0224d287a4b1-dmarc-requ...@listserv.ua.edu> wrote:

> This might be a silly question, but are there any solutions out there for
> data access by different platforms other than sending data around the
> internal network? I'm thinking of have a huge storage device where servers,
> Linux, Windows, zOS can access the same data. With data locking so when
> server 'X' is writing the data, no other server can read it, and the
> reverse of course too. No data updates when data is being read.
>
> Mark Jacobs
>
> Sent from [ProtonMail](https://protonmail.com), Swiss-based encrypted
> email.
>
> GPG Public Key -
> https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Some UNIX file usage questions

[Mike Shaw]

If it's APF authorized, the STC can write a user SMF record.Then you don't
have to worry about buffering, writing the data, filling up the output
file, serialization of I/O, any of that stuff. SMF handles all that for you.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Sat, Jun 18, 2022 at 12:51 PM Charles Mills  wrote:

> Hope some of you can help out a dinosaur. 
>
> I am designing a z/OS application (for in-house use, not an ISV product).
> It
> will consist of a started task that runs continuously plus one or more
> small
> reporting programs, one of them to be run daily shortly after midnight. The
> started task will record a very small amount of data (about 24 bytes or so)
> every fifteen minutes, 96 times a day. That data will be input to the
> reporting program(s).
>
> Being a dinosaur, I thought in terms of recording that information in a
> traditional MVS dataset. There are some problems with that: basically if I
> do allocate, open, write, close, de-allocate then I think I am going to
> have
> 24-byte blocks on disk*, which is going to give me really poor track
> utilization; and if I don't, then the report program is not going to be
> able
> to read the dataset due to ENQ contention (absent some sort of special
> "close it for a little while around midnight" logic) and also any abnormal
> termination of the started task (such as an IPL) will cause a loss of data
> -- not a critical issue, but less than desirable.
>
> *Yeah, emulated blocks on emulated tracks. There are of course no real
> tracks anymore. But the emulation is pretty realistic, right down to the
> poor track utilization!
>
> I thought about various approaches such as accumulating the records in
> memory and then writing all 96 of them in a single blast right after
> midnight. That would probably work out and solve the ENQ problem (but not
> the IPL problem). It would unfortunately preclude any ad hoc reporting in
> the middle of the day. And I would still end up with fairly small 2K
> blocks.
>
> This morning I thought "why not a UNIX file?" I can of course look up any
> specific questions in the relevant manuals, but I am just unfamiliar with
> the big picture. Am I correct that (1) there is of course no "physical
> block
> size/track utilization" issue with UNIX files; (2) that shortly after I
> write a record it will be fixed in place and would survive an IPL or other
> abnormal termination of the writing task; and (3) most importantly, the
> report program can read the file while the writing task has it open? Are
> those premises correct? (By "shortly after" I mean that I could live with a
> delay of a few minutes or so; this is not a banking application where
> two-phase commit is critical.)
>
> I picture writing the started task in Rexx, so I would have to write to a
> DD
> name allocated to the UNIX file (either dynamically or with JCL), not with
> "native" C fopen(), fwrite(), etc. Does that change any of the answers?
>
> Anyone see any gotcha's with the UNIX file approach that I seem not to have
> thought of?
>
> Thanks!
>
> Charles
>
> --
> 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: Encrypted dataset - any eye catcher?

[Mike Shaw]

There is a bit in the Format 1 DSCB for the data set, DS1ENCRP, that is on
if the data set is encrypted.

MVS/QuickRef displays a YES or NO value for each data set in its DSNLIST
report. We get that from that bit in the F1 DSCB in the VTOC. You can get
that information without opening the data set.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Wed, Jun 8, 2022 at 3:30 PM Radoslaw Skorupka 
wrote:

> I mean "pervasive encryption" - datasets encrypted using z/OS facilities.
> Usually one can check whether dataset is encrypted by using ISPF/PDF
> Info or LISTCAT.
> However when a dataset is accessed "from outside" - i.e. via shared
> DASD, the result of open attempt is usually an abend x13.
> There are some exceptions, rather low-level like print track. Obviously
> the content is unreadable.
> Now the question: is there any eye catcher or signature which allow to
> recognize it is actually encrypted file, not just bunch of random bytes?
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: "A Rexx" (or "A REXX")

[Mike Shaw]

The phrase that rankles me is "software program". Isn't software always a
program? Can you have software without it being a program? Why not just say
"software"?

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

On Tue, Jun 7, 2022, 10:53 PM Tom Brennan 
wrote:

> I heard that one on a radio advertisement the other day, something like,
> "All your payroll needs in a single software."
> Hurts my ears :)
>
> https://www.paycom.com/learn-more/why-paycom/
>
> On 6/7/2022 3:17 PM, Gord Tomlin wrote:
>
> > A related pet peeve: "a software". Nobody but nobody says "a hardware".
>
> --
> 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: help with abend 60D reason code 14 SDWALSLV value

[Mike Shaw]

Joseph,

I have to comment...many of your initial posts over the months you have
posted on this list lack enough detail for anyone  to help you without
requesting more information.

As others have pointed out many times, it is better to:

1) Only post on this list after you have done thorough desk-checking of
your code first

2) Read and understand all doc on the facility you are trying to use

3) Clearly state the problem you are having

4) Show your code when you post

Based on the power of the z/OS facilities you are trying to use, you should
have a trusted and knowledgeable person checking and/or testing your
code...you can crater a z/OS system quickly if you are not careful...

Opinions expressed are my own...

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

On Wed, Apr 27, 2022, 10:33 AM Joseph Reichman 
wrote:

> Yes that’s because I had a bad ptr for the IARV64 so my first abend was
> for D02 when I did my retry all I was attempting to do was to go somewhere
> in my SRB and set reg 15 with a bad ie non zero return code
>
> However as the documentation points out if your recovery is a FRR and in
> using IEAMSCHD it is that then stack entries made by a PC rtn have to be
> accounted for
>
> I have one more question which I’m sure only you can answer
>
> When I do an Estae and my SDWAGR registers are corrupted
>
> This typically happens in the case above where thru my carelessness I pass
> a bad ptr to an IBM service SVC or PC in that case I can always rely on
> SDWASR regs who’s values are right after I issue Estae since I do this all
> the way in the beginning of the program before I have a chance to make an
> error
>
> I the case of IEAMSCHD both of those registers sets seem to be the same
>
> In which case I have no choice but to percolate. Good news though even
> though I percolate I still get back control after the IEAMSCHD macro and
> SYNCHCOMPADDR is equal to 8 SYNCHCODEADR and SYNCRSNADDR then have
> SDWAABBCC and SDWACRC respectively right ?
>
> > On Apr 27, 2022, at 9:30 AM, Peter Relson  wrote:
> >
> > To be clear: are you saying that when you did not specify SDWALSLV at
> all you get 60D-14, and when you specified it with a value of 1 you did not?
> >
> > 
> > This what I see for 60d 
> > 
> >
> > It is just ridiculous that you continually ignore what someone writes,
> and then post only what you think matters instead of everything.
> >
> > The "explanation" is one piece of the information in the documentation.
> There are also the "actions". They are relevant too. Read them. In
> particular the one I referred to.
> >
> > You never described the order of SETFRR (or implied SETFRR if you
> scheduled the SRB to be given control with an FRR) vs BAKR vs PC. That must
> be understood.
> >
> > If the order is
> > SETFRR A
> > BAKR
> > PC to IARV64
> > PR
> > PR
> >
> > Then if you want to retry within the BAKR code you would need SDWALSLV =
> 1. If you want to retry prior to code running without that linkage stack
> level, then SDWALSLV should be left 0.
> >
> > If the order is
> > BAKR
> > SETFRR A
> > PC to IARV64
> > PR
> > SETFRR D
> > PR
> >
> > It would be 100%y WRONG for you to retry with SDWALSLV=1. That would be
> considered a system integrity error.
> > The retry address has to be owned by you and the retry has to be at the
> linkage stack level associated with that address.
> >
> > 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: How to Get UserID in non-TSO REXX

[Mike Shaw]

This assembler sequence does it by capturing the 8-byte TSO/E userid from
the JSAB; you could use the REXX STORAGE function to do the same:

L R15,PSAAOLDGet A(my ASCB)
L R15,ASCBASSB-ASCB(,R15) Get A(my ASSB)
L R15,ASSBJSAB-ASSB(,R15) Get A(JSAB)
MVC   PRODQUAL,JSABUSID-JSAB(,R15) Save userid

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Wed, Feb 16, 2022 at 2:11 PM Steve Smith  wrote:

> Is there any way to obtain the userid (user name) in REXX running in a
> non-TSO environment?  I know that sysvar does not work in USS, IRXJCL, or
> System REXX TSO=NO.  Whereas mvsvar does (go figure).  It's so fundamental
> that I think I can't be the first one to need this.
>
> --
> sas
>
> --
> 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: What is the audit basis to prevent read access to z/OS PARMLIB's?

[Mike Shaw]

Amen Lionel. SHOWZOS is publicly available. Users can write their own REXX
code using the STORAGE function to display the active APF list on their
system. Security through (attempted) obscurity does not work.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Fri, Feb 4, 2022 at 1:02 PM Lionel B. Dyck  wrote:

> If you want to hide your APF list then you also need to prevent ISRDDN's
> APF option as it displays the APF list very nicely. I'm sure you can
> protect the SDSF APF command, but can you prevent SHOWZOS, and other tools,
> from looking in storage and displaying the list for you?  The fact is that
> you can't.
>
> Perhaps you should, if following the STIG rules for PARMLIB, also prevent
> user access to /etc in your OMVS and other *nix environments.
>
> Lionel B. Dyck <><
> Website: https://www.lbdsoftware.com
> Github: https://github.com/lbdyck
>
> “Worry more about your character than your reputation. Character is what
> you are, reputation merely what others think you are.”   - - - John Wooden
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Edgington, Jerry
> Sent: Friday, February 4, 2022 11:47 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: What is the audit basis to prevent read access to z/OS
> PARMLIB's?
>
> I agree with Ed, for most of the PARMLIB, but the APF list of libraries,
> should be protected, since that is one way someone can get into the OS.
> Provided the person has access to one of those libraries.  So, I tended to
> be, maybe, over protective of the APF and possible LNKLST, depending upon
> the system parms.
>
>
> Jerry Edgington  |  Sr.Technical Analyst IT Technical Operations
> Enterprise Systems
> 400 Broadway  |  Cincinnati, Ohio 45202
> 513.629.1826 direct
> 513.629.1787 fax
> WesternSouthern.com
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Ed Jaffe
> Sent: Friday, February 4, 2022 12:43 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: What is the audit basis to prevent read access to z/OS
> PARMLIB's?
>
> This message was sent from an external source outside of Western &
> Southern's network. Do not click links or open attachments unless you
> recognize the sender and know the contents are safe.
>
> 
>
> On 2/4/2022 7:04 AM, Farley, Peter x23353 wrote:
> > I see the rule but I do not understand the rationale.  Limiting UPDATE
> and ALTER access to systems programmers is logical and reasonable.
> Limiting READ access is not unless there are parameters in PARMLIB not
> available anywhere else that can be used to gain an elevation of authority.
>
> The z/OS STIG is often wrong. I laugh when it protects SYS1.PARMLIB since
> all of our specifications are in SYS2.PARMLIB! LOL
>
> Considering PARMLIB in general, there used to be some passwords in the
> clear that would appear there (e.g., NJE). I have no idea if that's still
> true today.
>
> FWIW, there is absolutely nothing in our PARMLIB that we try to hide from
> end users. We might be naive...
>
>
> --
> Phoenix Software International
> Edward E. Jaffe
> 831 Parkview Drive North
> El Segundo, CA 90245
> https://www.phoenixsoftware.com/
>
>
>
> 
> This e-mail message, including any attachments, appended messages and the
> information contained therein, is for the sole use of the intended
> recipient(s). If you are not an intended recipient or have otherwise
> received this email message in error, any use, dissemination, distribution,
> review, storage or copying of this e-mail message and the information
> contained therein is strictly prohibited. If you are not an intended
> recipient, please contact the sender by reply e-mail and destroy all copies
> of this email message and do not otherwise utilize or retain this email
> message or any or all of the information contained therein. Although this
> email message and any attachments or appended messages are believed to be
> free of any virus or other defect that might affect any computer system
> into
> which it is received and opened, it is the responsibility of the recipient
> to ensure that it is virus free and no responsibility is accepted by the
> sender for any loss or damage arising in any way from its opening or use.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> ---

Re: ISPF Table Display attribute

[Mike Shaw]

John,

The .ATTR control variable in the panel definition can be used to
dynamically change the display attribute of a field in a panel.
body or area section. One of the things it can be set to is  the name of a
dialog variable, preceded by an ampersand. The
variable must contain the name of an input or output field that occurs in
the panel body, .CURSOR, or a blank.  Examples:

.ATTR (.CURSOR) = COLOR(YELLOW) HILITE(REVERSE)
.ATTR ()= HILITE()
.ATTR ()= PAS(ON)

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Thu, Jan 27, 2022 at 8:23 AM John McKown 
wrote:

> I am writing an ISPF application in REXX which does some RACF work. One
> function is to display the RACF ID of users with specific characters in
> their NAME field. Mainly because user managers ask us to do something, like
> REVOKE, but don't know their ID. I have this coded already. But what I'd
> like to do is change the INTENS to either LOW or HIGH depending whether
> they are REVOKED or not in the list of IDs which match the search criteria.
> I don't see a way to do this. I think it would be helpful.
>
> Any ideas? Oh, yes, as always, we a very back level at release 1.12 of
> z/OS. We are still "going away this year" as we have for about the last 10.
>
> --
> 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: Tracking CLIST/Exec Usage

[Mike Shaw]

CA TSO-MON does this handily, but you gotta spend money to get it.

Type 32 SMF records count TSO/E commands, but that would be counts of the
EXEC command without the CLIST name.

If I had to do this on my own, I would write a CSECT that I linked as a
front-end to the EXEC command (IKJCT429) in SYS1.CMDLIB and make my code
the entry point. It would extract the CP parameter list and extract/count
the name of the CLIST/Exec, then write a user SMF record to record usage of
the CLIST/Exec.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Wed, Jan 26, 2022 at 10:40 AM David Spiegel 
wrote:

> Hi List,
> I have been given the task of cleaning up unused software.
> Part of that is identifying which CLISTs/Execs are not being used.
>
> Can someone please suggest a way to do this?
>
> Thank you in advance.
>
> Regards,
> David
>
> --
> 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: IBM Knowledge Center down?

[Mike Shaw]

That was down earlier this morning also. It is up now.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Thu, Jan 20, 2022 at 3:15 PM Sri h Kolusu  wrote:

> Carmen,
>
> Try using the new docs site
>
> https://www.ibm.com/docs/en/products
>
> Thanks,
> Kolusu
>
> --
> 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: IBM Knowledge Center down?

[Mike Shaw]

Same here. Most KC links have been broken for several hours today.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Thu, Jan 20, 2022 at 1:36 PM Carmen Vitullo  wrote:

> I have all my doc for z/os and products local, but I'm looking for some
> new doc for Enterprise Cobol 6.2, someone was asking for new options? and I
> cannot get the IBM's KC from work or home
> Carmen
>
> --
> 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: What not to do on a z/OS system...

[Mike Shaw]

We once had a data check we could not get past on a 3420 tape. This was
around 1980, MVS/SE 1 or thereabouts. The lead sysprog hit stop on the tape
drive, pulled the leading tape portion out of the vacuum column, rubbed it
gently back and forth between his finger and thumb, and slowly released the
tape back into the vacuum column. He hit start on the tape drive and we got
past the data check and read the rest of the data on that tape without a
problem. No blocks were missed.

I thought that was magic at the time...

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Wed, Jan 19, 2022 at 10:31 AM Seymour J Metz  wrote:

> Back in the old days the R/W heads lifted up when you unloaded  a tape and
> moved down when you mounted a new reel. One day an interlock didn't
> interlock and the R/W head mashed the hand of an operator. The damage
> wasn't permanent, but everybody was more cautious after that.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Cameron Conacher [03cfc59146bb-dmarc-requ...@listserv.ua.edu]
> Sent: Wednesday, January 19, 2022 10:22 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: What not to do on a z/OS system...
>
> A very long time ago, (mid seventies I think) I was loading a tape to a
> tape drive.
> A button on my jean jacket trapped the edge of my jacket sleeve inside the
> tape drive when as the glass closed.
> I stood patiently and waited for the tape processing to complete so the
> tape could unload.
>
> After that, I paid more attention when loading tapes.
>
> Thanks,
>
> ...Cameron
>
>
>
>
>
> From: IBM Mainframe Discussion List  On Behalf
> Of Kirk Wolf
> Sent: Wednesday, January 19, 2022 9:41 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [External] Re: What not to do on a z/OS system...
>
> Hooray! Now we've got the kind of thread that is the life blood of
> ibm-main :-)
>
> On Wed, Jan 19, 2022, at 7:21 AM, John McKown wrote:
> > I know of one MVT operator who trapped his girlfriend against a 3725
> > communication controller and dropped a university's entire network.
> > Multiple sites.
> >
> >
>
> Kirk Wolf
> Dovetailed Technologies
>
> http://secure-web.cisco.com/1cn5-HpTYfIreu2cSKoha63Y8gzW7Fj_PXrE92YSaOIYX4-Aa02x-L7Bs1YFxIRmL8cmskPf0sybkr9abzZzF199DWdz0Ykp9FHL5bGGt4xmkeTeL0BR-IP-4bbomeF9cRqRy_bfzwte8ereRwNUBuJpR-zoczTxEh9fDeQfNRfZH6VHksinm_XjXYh733Xljj6PtqiGJfh7s1sGbZ79ymHznTYdxWdHlnBE67BXeYHYTdlkiFdjCovYB674dhzGy5dtMVsQ9iTkQKkBwt6w3SQjmsyzXEUWpv401TIfmhcItrgRlmrX75JqZBHJ-DtzhAY4N-beS9ilUZoOQRfGkSjj2c98ccwmf6vN9GYmKP0lA7nZNPFxlqPHXD-BM9eStbm1z-CBx7m40jwWuZxedUzGR2pA_y2ZoHHg4FdpvEZtlZOvONrzby1iyUtLqEoas/http%3A%2F%2Fdovetail.com
> <
> https://secure-web.cisco.com/1CMNJvovBdp9yBnlyYMX7XDwMols2kkKGgmrwSROSW0hnu2b_NKhNXLtkgwMMcPwd1HBr_ggnaz-jOwBW47DnVEGIt4bpW8COmjVD8XqVin4Eu-x_4HLZpGXoDORG_9Dib3tJq7_ABHXsnB_cOZ6onLOncz6m8qRxHlbuSRz29vFEJgKt_Mra5sXumBbRXeklvWffrMgCdm7h3-uIE-BE2zjT8qDyZa9w1nSg6wnBjmblwuVV6lUkPjJm9NYO7sjt7IIE3oKSuCrBzJhb8dOF5aXoc4vT0JenP__8Xsug2eziZJMK48OUmxY5e-94ngrzsGRHaYOmnzU5tmHh4jet_pvGp2n0pooHyyoGJoI39jy-YnXJwIlOsQ4ks2OtnTA5u6L2rE7KNygGdkGR6GXneZsk9vjAnS0Ih18ujwz99-0vUGfal7K8z518ZueSeQJL/https%3A%2F%2Fisolate.menlosecurity.com%2F1%2F3735928037%2Fhttp%3A%2Fdovetail.com
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu>
> with the message: INFO IBM-MAIN
> 
> American Express made the following annotations
> 
> This e-mail was sent to you by a representative of Amex Bank of Canada,
> P.O. Box 3204, Station "F", Toronto, ON, M1W 3W7,
> http://secure-web.cisco.com/1KQ4NPloEG8UoTOGbFPQjJxOtvxMzNuaQm0niuxD9rLEsJSBBRFuzzJeUKCO4OHuVZBaoqyhT1IGAY2yfG0eTf9xznE7iiI96A5KdI4-hDpM0CwVbJJhTR0Q7nbFAWfS0l2-yiOUqZMzeWTUcoo6eT1Vw34BfkhARWl32asZXCBZYrucuLdCQMiuGXFl_Sd_lhUNNTU0Zpih0CPMu9Fmm1g9F_qoKxho612UoGxp-z-1zrmzRooSUaABglbn-ka8E8CP3Jj1UuD2ElL0fOrNgNu5QJyP4PWvbNa6grKLF4BbDoDo2NJ4GMeNaYxGX09QQVQ2NNwJPW-fYZgIvbVOwyETFeB8IOausstw9sRzOTUupru_1XUhuky47Lco_6fOY2VpXYFze88G-FpwJLhdMqzqU-NjVBFW4-TbnZW1kpxqC_SBezLZaNcLuu94lIPX7/http%3A%2F%2Fwww.americanexpress.ca.
> If you no longer wish to receive these e-mails, please notify the sender by
> reply e-mail.
>
> This e-mail is solely for the intended recipient and may contain
> confidential or privileged information. If you are not the intended
> recipient, any disclosure, copying, use, or distribution of the information
> included in this e-mail is prohibited. If you have received this e-mail 

Re: JES2 mail notification

[Mike Shaw]

All of the REST APIs and external security controls z/OSMF
supports/requires and the need to (eventually) make z/OSMF "easy to use by
an early tenure systems programmer"  have made the beast ponderous. It may
be easy to use at some point in the future but it's sure NOT easy to
install or configure now...

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Tue, Jan 18, 2022 at 12:22 AM Brian Westerman <
brian_wester...@syzygyinc.com> wrote:

> I hate for this to sound like a marketing email, but the difficulty of
> using Jesmail via z/OSMF and several other Jes to email products is (one of
> the) reason(s) we developed SyzMail/z.  There is zero changes needed to the
> system and the install is complete in 5 minutes.  No changes to any JCL or
> exits are necessary.
>
> I have noticed that lately a lot of extra work is being generated by
> trying to do something very simple with extremely sophisticated software.
>
> Brian
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: What determines the effective terminal size?

[Mike Shaw]

ISPF display screen size is also affected by the 'Terminal Characteristics'
section at the bottom of the ISPF option 0 screen. See what you have set
there.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.


On Mon, Dec 6, 2021 at 5:07 AM Christian Svensson <
022ad63487ef-dmarc-requ...@listserv.ua.edu> wrote:

> Hi folks,
>
> I am trying to go back to basics a bit and figure out some things that I
> have always treated as magic.
> Right now it is how a 3270 terminal connected to a z/OS determines the size
> of the terminal. In this case through OSA-ICC (zBC12, OSA-Express5) and not
> TCPIP,
>
> On systems where I have configured VTAM with TCPIP the terminal size seems
> to almost always "just work".
> Let's take a look at an example. I have configured X3270 with model
> "3279-4-E" and oversize set to "133x60".
>
> 1) What does the z/OS VTAM screen look like?
> Over OSA-ICC: 80x24
> Over TCPIP: 80x24
>
> So far so good.
>
> 2) What does the TSO screen look like?
> Over OSA-ICC: 80x24
> Over TCPIP: 80x24
>
> Ok, no change.
>
> 3) What does the ISPF screen look like?
> Over OSA-ICC: 80x24
> Over TCPIP: 133x60
>
> Oh! But why? I do not know! Also, after I exit ISPF back to TSO, the TSO
> screen is now correctly filling the full screen!
>
> I also note that z/VM's login screen seems to behave similarly. Over
> OSA-ICC the size seems to be fixed at 80x24, but over TCPIP it follows what
> I configured X3270 to use.
> Dialing a z/OS VTAM terminal through the z/OS login screen (connected via
> TCPIP) seems to result in a 133x60 screen both in TSO and ISPF. However if
> I ATTACH an OSA-ICC terminal straight to a z/OS guest, ISPF gets 133x60 but
> TSO only 80x24 - *but only if I reconnect to an existing user session.* If
> I log out and try to log in again I get IKT00405I "Screen erase caused by
> error recovery procedure".
>
> As you can see I am a mess when it comes to understanding how this all fits
> together! It seems pretty much random to me, except that TCPIP "almost
> always works" and OSA-ICC "almost never works".
> I would love to learn more, but I don't even know where to begin.
>
> Regards,
>
> --
> 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: ESPIE question (does ESPIE "cover" ATTACH'd sub-tasks)

[Mike Shaw]

On 4/2/2020 1:56 PM, Gord Tomlin wrote:


An irreverent take would be that they enjoy obfuscating abends by 
transforming program checks into U4xxx abends.




Good one Gord. I always wondered why LE did that. It makes_no_sense to me.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd

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

Re: 64-bit application dump analysis [was: RE: Problems with ESTAEX invoked in AMODE 64 . . . ]

[Mike Shaw]

On 3/26/2020 12:11 PM, Farley, Peter x23353 wrote:

Peter,

If SYSABEND and SYSUDUMP don't now and aren't likely to support 64-bit storage 
in the future, then what are application programmers coding 64-bit programs 
(well, 31-bit resident code that uses 64-bit storage areas, to be specific) 
supposed to use for abend debugging?  IPCS?  ISV products?



Yes.

An ESTAE(X), IEATDUMP to dump the storage from the ESTAE(X) exit, and 
IPCS to analyze it. We have been doing that for our non-APF authorized 
application that runs AMODE(64) since z/OS V1R12. z/XDC or TSO/E TEST 
command for interactive debugging.


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Most-used instructions? Just for fun.

[Mike Shaw]

On 12/9/2019 5:52 AM, Binyamin Dissen wrote:

How would one measure this?



The IBM zPDT emulator could easily count them, since it emulates a 
zArchitecture machine by interpreting every machine instruction and 
emulating its operation...I bet IBM has done this for sure...


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

[SUSPECTED SPAM] Re: Instruction speeds

[Mike Shaw]

On 8/12/2019 9:33 PM, Christopher Y. Blaicher wrote:
..> 
JUMPs are faster than BRANCHes.

.


I don't know what you mean by that Chris.

The various types of Jump instructions are just extended mnemonics for 
various types of Branch instructions. JNE generates the same machine 
instruction as BNE, etc.


Do you mean the combined compare and jump instructions like CLGRJ?

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: VTOC reading

[Mike Shaw]

On 6/13/2019 1:43 PM, Lennie Dymoke-Bradshaw wrote:

Rather than do BSAM reads I think it is better to make use of the CVAF macros. 
These make use of the VTOC Index to assist processing. This will present you 
the data set names in alphabetical order.


CVAF is much slower than BSAM, alphabetical order or not. EXCP with 
chained CCWs is much faster, then just sort the DSNs yourself.


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: PL/I TSO Interrupt - Attention handling - SLIP trap X33E / X13E

[Mike Shaw]

On 5/20/2019 3:37 PM, Seymour J Metz wrote:

No and no.

TSO does not support concurrent execution of tasks. When an unauthorized task 
calls an authorized command, the TMP doesn't let the unauthorized task continue 
until the authorized task completes.

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




True for the unauthorized/authorized case Shmuel mentions, but under 
TSO/E, the ISPF main task does attach multiple concurrent tasks, one per 
logical screen...three logical screens, three concurrent tasks:


1 IEAVAR00
2 . IEESB605
3 . . IKJEFT01, JOBSTEP
4 . . . IKJEFT02
5 . . . . IKJEFT09
6 . . . . . ISPF
7 . . . . . . ISPTASK (ISPLLIB)
8 . . . . . . ISPTASK (ISPLLIB)
9 . . . . . . ISPTASK (ISPLLIB)

Task list above courtesy of zXDC...

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: ISPF application setup

[Mike Shaw]

On 3/22/2019 10:14 AM, Steve Smith wrote:




Steve,

Forgot to mention that NEWAPPL is *required* when your application has 
its own application commands defined in an application command table in 
the ISPTLIB concatenation. ISPF can't honor the application commands if 
it can't find the application command table.  The first four characters 
of the application command table name must match the value set by NEWAPPL().


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: ISPF application setup

[Mike Shaw]

On 3/22/2019 10:14 AM, Steve Smith wrote:



I am wondering if there's any significant difference in the two ways.  I
don't really expect to see any difference, just looking to see if some
expert knows that there's better performance or recovery or whatever one
way or the other.



Steve,

We favor and use the first method for simplicity's sake, but either one 
works. We have tried them both over the years. You sorta need a good 
specific reason for using PASSLIB.


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: New look and linking for V2.3 product documentation PDFs

[Mike Shaw]

On 3/14/2019 10:18 PM, Paul Gilmartin wrote:

On Thu, 14 Mar 2019 21:40:18 -0400, Mike Shaw at QUICKREF wrote:

> 

QUICKREF, too?

-- gil

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



No Gil, we convert everything from PDF or HTML to text and then store it 
in our DB.


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd

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

Re: New look and linking for V2.3 product documentation PDFs

[Mike Shaw]

On 3/14/2019 7:07 PM, Paul Gilmartin wrote:

On Mon, 4 Mar 2019 21:35:31 +, Seymour J Metz wrote:


... (I want Bookie back!)


Interesting that the pdfinfo tells me:
 Antenna House PDF Output Library 6.5.1119 (Linux64)
... and:
 https://www.antennahouse.com/
... suggests that they were converted from something else.  Word?  Bookie?  ...?

-- gil



I think IBM keeps a lot of doc internally in DITA format:

 https://en.wikipedia.org/wiki/Darwin_Information_Typing_Architecture

and then uses tooling to export it from DITA markup to HTML or PDF.

Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Examples of roll your own "LIKE()" for data sets?

[Mike Shaw]

On 12/4/2018 12:42 PM, Kirk Wolf wrote:





Are there examples in CBT of code that do similar analysis of DASD
datasets?   Even something that does a good job at deducing
SPACE=(unit,(pri,sec)) is not as simple as one might think.



For standalone code, a RDJFCB will get you a list of the volsers a given 
DSN is allocated on. You can read the VTOC for selected volsers to get 
the SPACE allocation information for a given non-VSAM data set from the 
F1/F2/F3 or F1/F8/F9 DSCBs. You do not need to be APF authorized to read 
a VTOC.


You could also use CVAFDIR, CVAFFILT or CVAFSEQ but they are slower than 
doing it yourself with BSAM or EXCP reads of the VTOC.


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

[Mike Shaw]

On 11/7/2018 3:44 PM, Jim Beck wrote:

All,
..


This is a long shot, but if the data set is allocated on an Extended 
Addressing Volume and EATTR=OPT was specified at allocation time, the 
Format 9 DSCB for the data set contains the jobname and stepname of the 
allocating job, even if the DS was not opened. MVS/QuickRef reports that 
information (QW N=volser).


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Comparison Routine - thanks

[Mike Shaw]

On 10/27/2018 1:56 AM, Peter Morrison wrote:



It turns out that, yes, macro ASAXWC is what I needed (and forgot about).



Peter,

We tried to use ASAXWC to implement pattern matching for DASD volsers in 
our code some years back. The results were not good. It was very very 
slow. We ended up coding our own pattern matching routine that was much 
much faster. Rolling your own for simple pattern matching is sometimes best.


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: BRIF command routine

[Mike Shaw]

On 9/10/2018 4:39 AM, Ron MacRae wrote:

Mike,
That is exactly the info I want, and it works. Thank you.

However ZLINEX does not appear anywhere in the ISRBROBF panel and google 
doesn't find it anywhere related to panels or ISPF.
I've seen ZLINEX, or LINEX in a couple of samples but no definition anywhere

I'm worried I'm using something unsupported that may cease to work in the 
future?

Thanks,

Ron.


Ron,

I wouldn't worry. If it works, use it. That panel has not changed since 
Moses was a corporal. IBM has bigger fish to fry.


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: BRIF command routine

[Mike Shaw]

On 9/7/2018 10:32 AM, Ron MacRae wrote:


Is there a dialog variable that contains the number of the line at the top of 
the screen or any other way to work it out?
I know the rows that have been requested via my read routine but I don't know 
what is currently at top of the screen.



Ron,

If BRIF is using the default ISRBROBA panel to display your data, then 
the variable holding the line number displayed at the top of the screen 
is named ZLINEX. VGET that variable in your code and see if that is what 
you need.


You can browse the ISRBROBA panel definition and find the .ZVARS= line 
in the )BODY section to get the names of all those '.Z' variables 
displayed at the top of the ISRBROBA panel.


Use the PANELID ON command while you are displaying your BRIF'ed data to 
make sure the panel name in use by BRIF is ISRBROBA.


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

[Mike Shaw]

On 7/30/2018 4:47 PM, esst...@juno.com wrote:

Hello,

Do I need to issue a VDEFINE first  for the Variables specified in the VGET. 
Would someone please clarify 
> 

Paul,

Yes. VDEFINEs when you start up, then as many VPUTs and VGETs as needed, 
then VDELETEs when you end execution.


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: Weirdest. Acquisition. Ever. Broadcom buys CA Technologies . The Register

[Mike Shaw]

On 7/13/2018 8:45 AM, Phil Smith III wrote:



Goal was acquired by Legent, which itself was formed when Morino Associates
and Duquesne Systems merged. They didn't use my suggested name for that
merger: Dorito.

I was at Morino Associates when the merger with Duquesne and subsequent 
renaming to 'Legent' occurred. 'Legent' is just an anagram of 'Gentle'; 
the rumor was that the company paid $100k to some firm to come up with 
that name and the new 'skid mark' Legent logo...


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: SUSE splits from Microfocus

[Mike Shaw]

On 7/6/2018 7:18 PM, Bill Johnson wrote:

Holy crap, now there is a blast from my EDS past. I was a member of the first 
GM/EDS transition back in Feb 23, 1986.



I am ex-EDS too...1976 to 1978, back when Ross Perot still gave a speech 
to each graduating SED class...


...I would like to know who owns WAAPDSUT now...EDS sold it for a while 
under the name STANFAST utilities...


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: CLIP?

[Mike Shaw]

On 5/19/2018 5:59 AM, Brian Westerman wrote:

I checked the storage area of boxes (and boxes) of punched cards that my dad left me when 
he died.  (He was an IBM PSR back in the 60's-70's), and sure enough there is a deck (two 
of them) that clearly show "Chg Lbl Id Pgm" on the top and on the 3rd card of 
the deck you can read *CLIP*



That _has_ to be the last surviving card deck incarnation of that 
utility...


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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

Re: ATTACH with RSAPF=YES

[Mike Shaw]

On 5/15/2017 12:45 PM, Greg Dyck wrote:

On 5/15/2017 11:27 AM, Paul Gilmartin wrote:

What does the TSO TMP use to accomplish this?


Extreme care ;-)

It has been a while, but my memory is that the TMP stops all of the
tasks above (or is that below?) it in the task tree and then passes the
request to a special jobstep task (with it's own JSCB) to execute the
command.

Regards,
Greg


Greg is correct; IKJEFT02 and its subtasks are STATUS STOP'ed, and a new 
parallel (sister) task is attached to invoke anything needing APF 
authorization. The TSO/E TSOEXEC command exists to do just that.


Mike Shaw
MVS/QuickRef Support Group
Chicago-Soft, Ltd.

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