Re: conditional JCL - Reinvent the wheel?

[David Spiegel]

Hi Colin,
Add a TSO Step in which a CLIST/Rexx does a "LU Userid", trap the output 
and if your program "sees" ICH30001I UNABLE TO LOCATE USER ENTRY, avoid 
the DELUSER.


Regards,
David

On 2021-11-10 07:29, Colin Paice wrote:

I'm looking at ways of doing customisation, and want an easy way to
run/omit steps.
For example
ADDUSER  ZZZ NAME('COLINS')NOPASSWORD -
OMVS(AUTOUID  ASSIZE(25600)  THREADS(512))

being a good person, I also want to provide a delete step
DELUSER Z.
My fantasy JCL looks like
// SET DELUSER='NO'
// SET DEFUSER=YES
// SET...

//IF  (DELUSER='YES')
..
DELUSER 
//ENDIF
//IF  (DEFUSER='YES')
..
ADDUSER  ..
//ENDIF
...

So the first time,  you set DELUSER=NO, DEFUSER=YES... and run it. the
second time
you set DELUSER=YES, DEFUSER=YES, and to give up,and clean up you set
DELUSER=YES, DEFUSER=NO.

What is the best way of doing this?

The JCL 'IF' statement uses RC, or ABEND, and not on set variables.

Ive set up a small program "COND",PARM='A = ' which sets RC = 0 if they
are the same,
so now I can use
//DELUSER EXEC PGM=COND,PARM='DELUSER = YES'
//DEFUSER EXEC PGM=COND,PARM='DEFUSER = YES'
//DELETE EXEC PGM=... ,COND=(0,NE,DELUSER)
//DEFINE  EXEC PGM=...,COND=(0,NE,DEFUSER)

Is there a better way of doing this?   I would prefer one job, because I
want to do global edit of myuserid to Z etc

In the past Ive put the deletes inline with the define, but the output
looks messy, because the  first time delete fails.

Colin

--
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 has lost it completely

[David Spiegel]

Hi Bill,
You said: "... Now to drag the aging IBMers. ..."
the blurb said: "... step inside the Drag Queens´ Palace ..."
Did you choose "drag" because IBM used it, or, is this strictly coincidence?

Regards,
David


On 2021-11-09 13:38, Bill Johnson wrote:

Looks relevant to me. IBM getting into the 21st century finally. Now to drag 
the aging IBMers.

Hello IBM Community Friends,

The IBM Community Festival 2021 starts on Monday, 8 November. Now is the time 
to access our session grids and search, filter and favorite the sessions you 
want to attend on topics from AI and automation to IBM Z®. Looking for fun and 
engaging activities? Dance with DJ Rich Girl, learn about the magical world of 
bees, explore your inner yoga geek, or step inside the Drag Queens´ Palace for 
the most fun interactive bingo game of your life. We invited Madrid's most 
famous drag queen bingo hosts to bring us a fabulous online version 17 November 
at 4:00 PM PT.

What to look forward to at the festival:

- 20 user groups participating

- 54 IBM Champions speaking
- 35-plus IBM distinguished technologists
- 60-plus IBM client sessions
- 200-plus technical sessions
- 240-plus speakers

Sign into IBM Expert TV and begin building your agenda now. We are experts 
together everywhere.

See you soon!


Sent from Yahoo Mail for iPhone


On Tuesday, November 9, 2021, 1:30 PM, zMan  wrote:

https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fcontentsharing.net%2Factions%2Femail_web_version.cfm%3Fmessage_id%3D21010227%26user_id%3DIBMCORPdata=04%7C01%7C%7C8c9f82950dfa4da1e05808d9a3b03313%7C84df9e7fe9f640afb435%7C1%7C0%7C637720799511696846%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=ev1w0XVCr%2FVQvZK9wxzQla4hEaBlaB24AfECqr5BZoY%3Dreserved=0

That’s the “View in browser” from an email a friend forwarded, with the
user-specific bits filed off.



And this relates to ANY part of IBM’s business…how?


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

Re: formatting help

[David Spiegel]

Hi Joe,
If all else fails, maybe you should make a PDF document out of your 
MS-Word document and send it as an attachment?


Regards,
David

On 2021-10-31 16:15, Joseph Reichman wrote:

Before I send it looks okay I have outlook I went to file -> options -> mail
it has options for compose However when I did a google for "reply to" for
outlook the response I got back Was that if you are replying and the message
you replying is in one format say RTF or HTML outlook cann't change your
reply to plain text -Original Message- From: IBM Mainframe
Discussion List On Behalf Of Tom Brennan Sent: Sunday, October 31, 2021 4:08
PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: formatting help Here's a screen
I just copy/pasted into the Thunderbird email client. Before sending I see
each line separated correctly, however the longer lines wrap around. That
could be just local and they may not wrap after emailing. Let's see...
Log/List Function keys Colors Environ Identifier Help

-- CBT ISPF Settings Command ===> Options Print Graphics Enter "/" to select
option Family printer type 2 Command line at bottom Device name . . . .
Panel display CUA mode Aspect ratio . . . 0 Long message in pop-up Tab to
action bar choices Tab to point-and-shoot fields General / Restore
TEST/TRACE options Input field pad . . N / Session Manager mode Command
delimiter . ; / Jump from leader dots Edit PRINTDS Command Always show split
line Enable EURO sign Member list options Enter "/" to select option /
Scroll member list Allow empty member list Allow empty member list (nomatch)
/ Empty member list for edit only Terminal Characteristics Screen format 3
1. Data 2. Std 3. Max 4. Part Terminal Type 3 1. 3277 2. 3277A 3. 3278 4.
3278A 5. 3290A 6. 3278T 7. 3278CF 8. 3277KN 9. 3278KN 10. 3278AR 11. 3278CY
12. 3278HN 13. 3278HO 14. 3278IS 15. 3278L2 16. BE163 17. BE190 18. 3278TH
19. 3278CU 20. DEU78 21. DEU78A 22. DEU78T 23. DEU90A 24. SW116 25. SW131
26. SW500 27. 3278GR 28. 3278L1 29. OTHER On 10/31/2021 11:07 AM, Joseph
Reichman wrote: > Have a visita 3270 > > When I originally responded to
Peter Relson I noticed in outlook sent > it was a big jumble > > I then cut
then entire response and just hit to break the > lines > > When done I did a
sent it > > But then I noticed once again it was jumbled > > This time I did
the same from outlook cookies the text from sent > folder without rtf format
still came out one big line when I looked in > the sent folder
-- For
IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN Scanned by McAfee
and confirmed virus-free. Find out more here: 
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fbit.ly%2F2zCJMrOdata=04%7C01%7C%7C3b6f892b00544806111908d99cab424c%7C84df9e7fe9f640afb435%7C1%7C0%7C637713081693802385%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=qXtsBYFRpCcqPoYpJLKiJWFnNHmXYs12Xtd17GAVYyg%3Dreserved=0

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

FTP from IBMLink Fails on EZA2897I

[David Spiegel]

Hi,
Problem solved ...
The FTP Step must include:
//CEEOPTS DD *
ENVAR(GSK_PROTOCOL_TLSV1_2=ON)

Please see:
https://knowledge.broadcom.com/external/article/208752/ftp-to-supportftpbroadcomcom-receives-s.html

Regards,
David

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

FTP from IBMLink Fails on EZA2897I

[David Spiegel]

Hi,
I used to be able to FTP my Order from IBMLink to my z/OS system.
This no longer works and I am getting EZA2897I.

My //SYSFTPD has a valid KEYRING.
Which other statements do  I need to make this work?
(I remember seeing  a note that as of April, 2021 there would be changes 
to FTP security in IBMLink.)


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

Re: Question about negative indexes

[David Spiegel]

Hi Joe,
You are forgetting that '=H' creates a storage area of a half-byte, 
which is addressed by the RX Instruction.

Here is what happens:
  Active Usings: None
  Loc  Object Code    Addr1 Addr2  Stmt   Source 
Statement  HLASM R6.0  2021/10/23 20.37

00    0 A 1 TEST CSECT
 R:F  0   2  USING *,15
00 4820 F008    8 3  LH 2,=H'-5'
  4 END
08 FFFB   5    =H'-5'

Regards,
David

On 2021-10-23 20:18, Joe Monk wrote:

OK then explain this:

LH is an RX format instruction. What are the D, X and B values if the
second operand is simply =H'-5'?

Joe

On Sat, Oct 23, 2021 at 6:49 PM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:


On Sat, 23 Oct 2021 18:36:54 -0500, Joe Monk wrote:


LH is an RX instruction.

So, LH 3,=H'-5' would give an addressing exception, no? Because the second
operand is treated as coming from storage? So that would be a negative
address?


No.


If you said LH 3,0(=H'-5',2), that would give you ITEM+5?


You have a bad use-versus-mention conflation.  The value of an
object is not the address of that object.




On Sat, Oct 23, 2021 at 6:01 PM Bernd Oppolzer wrote:

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

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


I agree.

-- gil

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


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


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

Re: Mainframe Modernization

[David Spiegel]

"... With Java and shared classes, it keeps a copy of the compiled 
classes in a data space. "

Hmm ... Sounds (functionally) like LLA/VLF.

On 2021-10-22 05:21, Colin Paice wrote:

With Java and shared classes, it keeps a copy of the compiled classes in a
data space. You can now "save" the latest image to disk, and reload that
next time you run.  If you save it every day, you  will be able to restore
the latest and greatest optimised version.
Without the shared classes, the first use  after IPL is slow, the second is
much faster.  See "Some of the mysteries of Java shared classes"


On Fri, 22 Oct 2021 at 08:52, Andrew Rowley 
wrote:


On 22/10/2021 2:46 am, A T & T Management wrote:

 Java, it has to be translated each time it run, provided you know

the language and it's been debugged.  Schools may teach it but they too
want to make money and look good because they can say it's modern and that
is what they push.  Any CEO or executive who doesn't look at the total cost
is doomed to fail.
Don't write off Java too quickly. I previously posted about Software
Drag Racing, which was a competition to test the speed of different
languages.

In the initial test on z/OS, Java was over 3 1/2 times faster than C++.
With some tweaking, C++ ran as fast as Java, but not significantly faster.

The results are written up here:

https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.blackhillsoftware.com%2Fnews%2F2021%2F08%2F10%2Fjava-vs-c-drag-racing-on-z-os%2Fdata=04%7C01%7C%7C51fe13f38fde46feae6b08d9953d67de%7C84df9e7fe9f640afb435%7C1%7C0%7C637704913299328393%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=P8SGNWwrhdsY4zjIL9a0PTOhnihTknXaYivvWbEaA7M%3Dreserved=0

If you have a zIIP and your general purpose CPs are not full speed, Java
might be the fastest language on your system by a big margin... and it
doesn't count against general purpose CP usage.

Java will compile to machine code where it makes a difference to
performance. Just in Time compilation has some performance advantages:
- it can optimize for the exact hardware
- it can leave out infrequently used code paths and compile them later
if they are actually required, making the machine code smaller and more
efficient
- it can monitor the code execution and recompile the hottest parts with
extra optimizations

IBM also talks a lot about RNI and processor cache... it turns out
garbage collection is good for cache efficiency too. It moves all the
active data into a smaller chunk of memory, which makes better use of
processor cache and is good for your RNI.

If you have well defined, well understood programs that are big CPU
users, it certainly could be worth rewriting them in Java.

(Knowing the language and debugging programs applies to any language...
and I'm not denying you can write large programs and inefficient code in
Java as much as in any other language.)

Andrew Rowley
Black Hill Software

--
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: [EXTERNAL] Re: Mainframe Modernization

[David Spiegel]

I would've said Shmegoogle (a takeoff on Shmegheggi)

On 2021-10-21 12:34, Ed Jaffe wrote:

On 10/21/2021 9:16 AM, allan winston wrote:

When I Google "TSO PIPE", I found that it is a command within Netview.
BatchPipes is a completely different program product.


Google Schmoogle...

The message id shown in my example (BPW00256I) is documented in 
Appendix C of IBM BatchPipes OS/390 V2R1 BatchPipeWorks Users Guide: 
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fibmdocs.pocnet.net%2FSA22-7457-00.pdfdata=04%7C01%7C%7C351110e1c98f4b0dee9f08d994b0bfc8%7C84df9e7fe9f640afb435%7C1%7C0%7C637704309218589125%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=sWJ8JQQpDqvyK2Bgpeh0GCX1jaUlRwLYxd32dwXwT8s%3Dreserved=0


 READY
pipe
 BPW00256I Enter a pipeline specification
 READY



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

Re: Rexx Detecting Value of MSG

[David Spiegel]

Hi Roops,
Thank you for the suggestion.
Unfortunately, I do not have UPDATE Access to the calling CLIST.
If your assumption is correct, it looks like I will have to Front End my 
Rexx Exec with a CLIST that determines MSG/NOMSG and then calls Rexx 
with an argument for this.


Regards,
David

On 2021-10-20 06:25, Rupert Reynolds wrote:

Reading that page, MSG seems to revert to default if you use EXEC to start
a new script.

Pass it in as a parameter from CLIST and set it again?

Roops

On Wed., Oct. 20, 2021, 03:45 David Spiegel, 
wrote:


Hi Steve.
I read that too, but, it does not seem to work in my case (Rexx Exec
called by CLIST).

Thanks and regards,
David

On 2021-10-19 22:24, Steve Horein wrote:

Maybe this?


https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.4.0%3Ftopic%3Dtef-msgdata=04%7C01%7C%7C589f8979d5194863e04d08d993b3fcc5%7C84df9e7fe9f640afb435%7C1%7C0%7C637703223569362818%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=JwaHnUOWLu8a3%2F%2BKk%2FaRs%2Bv0UqjJDSDQHiLGA7sCoOg%3Dreserved=0

On Tue, Oct 19, 2021 at 9:03 PM David Spiegel 
wrote:


Hi,
I am writing a Rexx Exec which is  invoked from a CLIST.
I would like the Rexx Exec to be able to obtain the value (set by the
calling CLIST) of CONTROL MSG/NOMSG .
Can someone suggest a method to do this (without resorting to

Assembler)?

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
.


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

Re: Rexx Detecting Value of MSG

[David Spiegel]

Hi Steve.
I read that too, but, it does not seem to work in my case (Rexx Exec 
called by CLIST).


Thanks and regards,
David

On 2021-10-19 22:24, Steve Horein wrote:

Maybe this?
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.4.0%3Ftopic%3Dtef-msgdata=04%7C01%7C%7C1abc391437fb4a175dae08d99370bfce%7C84df9e7fe9f640afb435%7C1%7C0%7C637702934774024379%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=tB3Jw2X1Yaqg7vRn8BCz1H3AWbbCtsGK33LvgpUjwUM%3Dreserved=0

On Tue, Oct 19, 2021 at 9:03 PM David Spiegel 
wrote:


Hi,
I am writing a Rexx Exec which is  invoked from a CLIST.
I would like the Rexx Exec to be able to obtain the value (set by the
calling CLIST) of CONTROL MSG/NOMSG .
Can someone suggest a method to do this (without resorting to Assembler)?

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
.


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

Rexx Detecting Value of MSG

[David Spiegel]

Hi,
I am writing a Rexx Exec which is  invoked from a CLIST.
I would like the Rexx Exec to be able to obtain the value (set by the 
calling CLIST) of CONTROL MSG/NOMSG .

Can someone suggest a method to do this (without resorting to Assembler)?

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

Re: Vector examples?

[David Spiegel]

Hi Charles,
The link did not work for me.

Regards,
David

On 2021-10-18 20:21, Charles Mills wrote:

Is this useful?

https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fpages%2Fsites%2Fdefault%2Ffiles%2Finline-files%2F%24FILE%2Fvecdata=04%7C01%7C%7C80013d9f99304dd2f6c208d9929678c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637701997273942311%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=PNNvbLtJk8mRjOqrBwJOGWqVk5eGCJeVZQgnPMoKlhc%3Dreserved=0
tor_optimization.pdf

The second example has a VL in it.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Phil Smith III
Sent: Monday, October 18, 2021 2:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Vector examples?

I'm doing some crude experimentation with some vector instructions. I
haven't found any samples yet; this seems like it might should work:

   VL1,WORK1

where WORK1 is a doubleword-aligned value, but it program checks with a data
exception. So obviously I'm confused. Anyone grok how these are supposed to
work? I've looked at PofOp and it's probably there somewhere, but I didn't
find it. Too many Vwhatever instructions!

  


Thanks in advance for any pointers.

  


...phsiii


--
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: PAX/TRS zFS

[David Spiegel]

Hi Gil,
Thank you for the suggestions.

Here is a job that actually worked. (The DSNAMES have been scrubbed.)
// SET DS=MY
//CREATE  EXEC PGM=IEFBR14
//PAX  DD  DISP=(,CATLG),
// UNIT=SYSALLDA,
// DATACLAS=DCZFSEXT,
// STORCLAS=SCZFSEXT,
// SPACE=(CYL,(1000,500),RLSE),
// RECFM=U,BLKSIZE=27998,
// DSN=
//STEP001 EXEC PGM=BPXBATCH
//STDOUT   DD  SYSOUT=*
//STDERR   DD  SYSOUT=*
//STDPARM  DD  *
SH pax -wzvf  "//'MY.PAX'"
  /MyDirectory
//STEP002 EXEC PGM=IKJEFT01
//SYSTSPRT DD  SYSOUT=*
//SYSTSIN  DD  *
CALL *(BPXWDYN) +
 'ALLOC DD(SYSUT1) +
 DSN(''MY.PAX'') +
 SHR REUSE MSG(WTP)'
CALL *(AMATERSE) 'SPACK'
//SYSPRINT DD  SYSOUT=*
//SYSUT2   DD  DISP=(,CATLG),
// UNIT=SYSALLDA,
// DATACLAS=DCZFSEXT,
// STORCLAS=SCZFSEXT,
// SPACE=(CYL,(1000,500),RLSE),
// RECFM=FB,LRECL=1024,BLKSIZE=27648
// DSN=


Regards,
David

On 2021-10-13 10:48, Paul Gilmartin wrote:

On Wed, 13 Oct 2021 10:24:06 -0400, David Spiegel wrote:


I agree with your hypothesis ... the PAX fails because it cannot get an
Exclusive ENQ on MY.PAX

With respect to the spawned (PAX) Address Space, though, it is possible
that the spawn itself could take longer than the Batch Job switching
steps and defeat the entire purpose.


I consider that unlikely, but I call few things impossible when others have
suggested them earlier in the thread.


I think coding a SLEEP (or equivalent) in the TSO input could prevent this.


I'll suggest:
 //SYSTSIN  DD. *
 call *(BPXWDYN) 'alloc dd(sysut1) dsn(''my.pax'') shr reuse msg(WTP)'
 call *(BPXBATCH)
 call *(BPXWDYN) 'alloc dd(sysut1) dsn(''my.pax'') shr reuse msg(WTP)'
 ...
I've found that BPXWDYN( ... msg(WTP)) gives the best diagnostics.
<https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.5.0%3Ftopic%3Dservices-bpxwdyn-text-interface-dynamic-allocation-dynamic-outputdata=04%7C01%7C%7Cd721ac79ff9d46687bbf08d98e58a686%7C84df9e7fe9f640afb435%7C1%7C0%7C637697333751478444%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=VN8pDIH6UN6gAA73uXkTH5eg5U0BkzR0G5bOsZQEG5U%3Dreserved=0>

-- gil

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

Re: PAX/TRS zFS

[David Spiegel]

I agree with your hypothesis ... the PAX fails because it cannot get an 
Exclusive ENQ on MY.PAX


With respect to the spawned (PAX) Address Space, though, it is possible 
that the spawn itself could take longer than the Batch Job switching 
steps and defeat the entire purpose.

I think coding a SLEEP (or equivalent) in the TSO input could prevent this.

Regards,
David

On 2021-10-13 10:07, Paul Gilmartin wrote:

On Wed, 13 Oct 2021 09:36:51 -0400, David Spiegel wrote:

How does changing the allocation for SYSUT1 from JCL to DYNALLOC change
anything ... they're both non-Exclusive ENQs?


If a DD statement exists in a job the Initiator issues the needed ENQ at the
beginning of the job and it's in effect through all earlier steps.

The initiator never sees the DYNALLOC.

My guess is that pax runs in a different (forked) address space so its attempt
to allocate OLD conflicts with the SHR in the job's address space.

-- 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: PAX/TRS zFS

[David Spiegel]

Hi Gil,
How does changing the allocation for SYSUT1 from JCL to DYNALLOC change 
anything ... they're both non-Exclusive ENQs?


Regards,
David

On 2021-10-13 08:58, Paul Gilmartin wrote:

On Mon, 11 Oct 2021 14:03:11 -0400, David Spiegel wrote:

I am trying to PAX and TRS a zFS.

When I run a Step to PAX followed by a Step to TRS, I get:
pax: //'MY.PAX': EDC5061I An error occurred when attempting to define a
file to the system.
(I tried TAR and got the same result.)
When I run the PAX in one job and the TRS in another job, it works.
Has anyone seen this behaviour? (I'm on z/OS V2.4)


Have you tried any tests to confirm or refute the ENQ conflict hypothesis?
If it's ENQ, try the following change to STEP02:
o Remove "//SYSUT1   DD  DISP=SHR,DSN=MY.PAX"
o Change EXEC to:
 //STEP002 EXEC PGM=IKJEFT01
 //SYSTSIN. DD  *
 ALLOCATE DD(SYSUT) DSN('MY.PAX') SHR
 CALL *(AMATERSE) 'SPACK'
 /*


Here is the JCL:
//STEP001 EXEC PGM=BPXBATCH
//STDOUT   DD  SYSOUT=*
//STDERR   DD  SYSOUT=*
//STDPARM  DD  *
SH pax -wzvf  "//'MY.PAX'" /src/
//STEP002 EXEC PGM=AMATERSE,PARM=SPACK
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DISP=SHR,DSN=MY.PAX
//SYSUT2   DD  DISP=(,CATLG),
// UNIT=SYSALLDA,
// DATACLAS=DCZFSEXT,
// STORCLAS=SCZFSEXT,
// SPACE=(CYL,(1000,500),RLSE),
// RECFM=FB,LRECL=1024,BLKSIZE=27648,
// DSN=MY.PAX.TRS


-- 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: System Programmer Titles

[David Spiegel]

Hi john,
I am aware of this vague reference, but, I meant that since the advent 
of affordable home computers until rather recently, this was not 
available (approximately 30 years).
Not only that, but, if they caught you doing it, they would the sue the 
(expletive deleted) out of you. Just ask Roger Bowler.


Regards,
David

On 2021-10-12 11:45, John McKown wrote:

Found this: 
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fproducts%2Fz-development-test-environmentdata=04%7C01%7C%7C0ca393e29ddc4916e30e08d98d9773d0%7C84df9e7fe9f640afb435%7C1%7C0%7C637696503937389127%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=4gjhVaw9zgZ%2B3lIJ%2F5MVamPaHt3swyD9YvA6aN3n8fQ%3Dreserved=0

There is a "Learner's Edition" for "eligible students and hobbyists" just a
"Contact us" without a price.

On Tue, Oct 12, 2021, 09:46 David Spiegel  wrote:


Hi Bob,
Not allowing people to run z/OS on Intel may be a larger mistake.

Regards,
David

On 2021-10-12 10:36, Richards, Robert B. (CTR) wrote:

The biggest mistake "HAL" made was dissolving PSRs and SEs. They often

provided the marketing folks with potential sales leads way before the
manglers knew they needed stuff because the worker bees would ask for
information about future HW and SW in advance of speaking to the higher
ups! Speaking from personal experience on *both sides* of that fence.

Bob

-Original Message-
From: IBM Mainframe Discussion List  On

Behalf Of Bill Ogden

Sent: Tuesday, October 12, 2021 10:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: System Programmer Titles

I was a Systems Engineer (with progressive title levels) for 30 years

(starting in 1966)  with you-know-who, so I became a little curious about
the exact meaning of the title.  Over the years I discovered there was
really no specific meaning to it.  I am an electrical engineer but no one
ever checked on that as a condition for the title. Other Systems Engineers
(for the same BIG company) had various backgrounds and most were not
Engineers in a University sense or license sense. We were usually known as
SEs within the industry.

As a general view (at that time, when the industry was younger and
different) the SEs often formed a link between the practical customer

world (meaning technical management, sysprogs, programmers, etc) and the
home company processes (software development, blue sky marketing, technical
support, etc, etc). It was a good job and, in my opinion, it is a bit
unfortunate that the particular niche has mostly disappeared. Some of us
were more on the systems programming side (myself), some a bit on the
technical hardware side (myself also, but this was not common), some on the
mostly marketing side, etc, etc. It was a slightly random mixture but
seemed to work well at the time-but that was too many years ago!

Today, I think one can flip coins to decide on a particular meaning for

the title.

Bill Ogden


--
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: System Programmer Titles

[David Spiegel]

Hi Bob,
Not allowing people to run z/OS on Intel may be a larger mistake.

Regards,
David

On 2021-10-12 10:36, Richards, Robert B. (CTR) wrote:

The biggest mistake "HAL" made was dissolving PSRs and SEs. They often provided 
the marketing folks with potential sales leads way before the manglers knew they needed 
stuff because the worker bees would ask for information about future HW and SW in advance 
of speaking to the higher ups! Speaking from personal experience on *both sides* of that 
fence.

Bob

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Ogden
Sent: Tuesday, October 12, 2021 10:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: System Programmer Titles

I was a Systems Engineer (with progressive title levels) for 30 years (starting 
in 1966)  with you-know-who, so I became a little curious about the exact 
meaning of the title.  Over the years I discovered there was really no specific 
meaning to it.  I am an electrical engineer but no one ever checked on that as 
a condition for the title. Other Systems Engineers (for the same BIG company) 
had various backgrounds and most were not Engineers in a University sense or 
license sense. We were usually known as SEs within the industry.

As a general view (at that time, when the industry was younger and
different) the SEs often formed a link between the practical customer world 
(meaning technical management, sysprogs, programmers, etc) and the home company 
processes (software development, blue sky marketing, technical support, etc, 
etc). It was a good job and, in my opinion, it is a bit unfortunate that the 
particular niche has mostly disappeared. Some of us were more on the systems 
programming side (myself), some a bit on the technical hardware side (myself 
also, but this was not common), some on the mostly marketing side, etc, etc. It 
was a slightly random mixture but seemed to work well at the time-but that 
was too many years ago!

Today, I think one can flip coins to decide on a particular meaning for the 
title.

Bill Ogden


--
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: System Programmer Titles

[David Spiegel]

Hi Cameron,
How about Big K'nacker? (Sounds something like Conacher)

Regards,
David

On 2021-10-12 09:42, Cameron Conacher wrote:

I tried o get "King" once, but that did not get very far.

Thanks,

…….Cameron




-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Brian Westerman
Sent: Tuesday, October 12, 2021 1:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: System Programmer Titles

I am leaning towards "He who shall not be called after midnight without invoking his 
considerable wrath", but I don't think it would fit on my card.

Brian

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
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, 
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.americanexpress.ca%2Fdata=04%7C01%7C%7Caf4d6a2c3106486a8c3d08d98d863038%7C84df9e7fe9f640afb435%7C1%7C0%7C637696429814019714%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=U8cK8ReKKfUR4JZ2aHxL37ooX3Y%2BPm3bxzElt3QI%2BoE%3Dreserved=0.
 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 in error, please notify 
the sender by reply e-mail and immediately and permanently delete this e-mail 
and any attachments. Thank you.

American Express a fait les remarques suivantes
Ce courriel vous a été envoyé par un représentant de la Banque Amex du Canada, C.P. 3204, 
succursale F, Toronto (Ontario) M1W 3W7, 
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.americanexpress.ca%2Fdata=04%7C01%7C%7Caf4d6a2c3106486a8c3d08d98d863038%7C84df9e7fe9f640afb435%7C1%7C0%7C637696429814019714%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=U8cK8ReKKfUR4JZ2aHxL37ooX3Y%2BPm3bxzElt3QI%2BoE%3Dreserved=0.
 Si, par la suite, vous ne souhaitez plus recevoir ces courriels, veuillez en aviser les 
expéditeurs par courriel.

Ce courriel est réservé au seul destinataire indiqué et peut renfermer des 
renseignements confidentiels et privilégiés. Si vous n’êtes pas le destinataire 
prévu, toute divulgation, duplication, utilisation ou distribution du courriel 
est interdite. Si vous avez reçu ce courriel par erreur, veuillez en aviser 
l’expéditeur par courriel et détruire immédiatement le courriel et toute pièce 
jointe. Merci.

--
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: System Programmer Titles

[David Spiegel]

Large Systems Infrastructure Support
Another one: Mainframe Administrator (I really dislike this one in 
particular.)


On 2021-10-11 16:28, Herring, Bobby wrote:

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

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

What title do you have as a system programmer?

Bobby Herring
Texas Farm Bureau Insurance

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

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

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

BTW: Here's a quick start guide that we have on customizing IBM z/OS
OpenSSH:
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fdovetail.com%2Fdocs%2Fpt-quick-inst%2Findex.htmldata=04%7C01%7C%7C06bd05653b2a4076928208d98cf5acaf%7C84df9e7fe9f640afb435%7C1%7C0%7C637695809175524138%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Jx%2BXTc3mHzYwn%2F2sx96TwbALtMWz8fAuPyfFcW7tyEo%3Dreserved=0

Kirk Wolf
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fdovetail.com%2Fdata=04%7C01%7C%7C06bd05653b2a4076928208d98cf5acaf%7C84df9e7fe9f640afb435%7C1%7C0%7C637695809175524138%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Uyp2%2BWnPfnfLrxuNiLr0XdI7j3LTGfwtDFvHim%2FWEgU%3Dreserved=0

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


Listers:

My company has decided to forego FTP and go the SFTP way.

I have installed OPENSSH and have SFTP working.

I installed using the IBM user's guide and everything installed in the
default libraries.

My concern is, when we migrate to a new z/OS release do I have to do
the whole install again?

Can I, from the beginning, install all the SSH libraries in a different
filesystem so that when I migrate I can just mount the filesystem and
execute.
And later on install the new version Openssh.

Don't know if I am clear in what I am asking.

Just some tips on facilitating installing under a new release.

Thank you.

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


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with 
the message: INFO IBM-MAIN
[https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.txfb-ins.com%2FTFBICImages%2Fjdpower.jpgdata=04%7C01%7C%7C06bd05653b2a4076928208d98cf5acaf%7C84df9e7fe9f640afb435%7C1%7C0%7C637695809175524138%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=oJNL%2F6MDK%2BAWZtJ9vSLuX%2Bc1SPnEzWguKcRo58A29WU%3Dreserved=0]

Re: PAX/TRS zFS

[David Spiegel]

Hi Gil,
Every time I've used Windows as a "waystation", I've never had a problem 
with TRS Files.


Regards,
David

On 2021-10-11 15:10, Paul Gilmartin wrote:

On Mon, 11 Oct 2021 14:51:23 -0400, David Spiegel wrote:

"... "An error occurred" is woefully inadequate.  Were other errors
logged? ..." No


No comment on my ENQ hypothesis?  Thinking further, BPXBATCH probably
forks (see BPXBATSL), then shell exec pax forks to a third ASID while the TRS
step is holding ENQ SHR on the data set.  pax (probably via C/C++ RTL)
attempts a contending ENQ EXC on OPEN WRITE.

Dear IBM, Please copy allocation messages to stderr when an error occurs.  OK?


"... Why bother with TRS?  Doesn't your "pax -z" achieve comparable
compression?
(Often a second compression expands the file.  Or, pax without the -z,
then TRS.) ..."I want a robust backup Dataset which can survive
downloads/uploads to non-z/OS platforms.


If the "pax -z" output file is pre-allocated RECFM=FB, it should be comparably
robust.  And those non-z/OS platforms are unlikely to be savvy to TRS.
(But are they just waystations?  I've found Linux pax unable to deal with
z/OS "pax -z" unless I pipe it through gunzip.)


The Dataset and File Names have been masked; /src/ is not MOUNTd at Root

Regards,
David

On 2021-10-11 14:40, Paul Gilmartin wrote:

On Mon, 11 Oct 2021 14:03:11 -0400, David Spiegel wrote:

I am trying to PAX and TRS a zFS.

When I run a Step to PAX followed by a Step to TRS, I get:
pax: //'MY.PAX': EDC5061I An error occurred when attempting to define a
file to the system.


"An error occurred" is woefully inadequate.  Were other errors logged?

Why bother with TRS?  Doesn't your "pax -z" achieve comparable compression?
(Often a second compression expands the file.  Or, pax without the -z, then 
TRS.)

Time warp?  A subsequent TRS step causes the earlier pax step to fail!?

Does the initiator issue an ENQ because of TRS that somehow causes pax
to fail?  (Remember pax probably forks to a separate ASID.)

(Is /src/ really mounted on root?)

(It's regrettable that pax doesn't support a temp DSN.)


(I tried TAR and got the same result.)
When I run the PAX in one job and the TRS in another job, it works.
Has anyone seen this behaviour? (I'm on z/OS V2.4)

Here is the JCL:
//STEP001 EXEC PGM=BPXBATCH
//STDOUT   DD  SYSOUT=*
//STDERR   DD  SYSOUT=*
//STDPARM  DD  *
SH pax -wzvf  "//'MY.PAX'" /src/
//STEP002 EXEC PGM=AMATERSE,PARM=SPACK
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DISP=SHR,DSN=MY.PAX
//SYSUT2   DD  DISP=(,CATLG),
// UNIT=SYSALLDA,
// DATACLAS=DCZFSEXT,
// STORCLAS=SCZFSEXT,
// SPACE=(CYL,(1000,500),RLSE),
// RECFM=FB,LRECL=1024,BLKSIZE=27648,
// DSN=MY.PAX.TRS


-- 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: PAX/TRS zFS

[David Spiegel]

Yes, dynamically allocated

On 2021-10-11 15:10, Carmen Vitullo wrote:

is  the DD for MY.PAX dynamically allocated ?

I've never wrote to a MVS datasets using pax

Carmen


On 10/11/2021 1:03 PM, David Spiegel wrote:

Hi,
I am trying to PAX and TRS a zFS.

When I run a Step to PAX followed by a Step to TRS, I get:
pax: //'MY.PAX': EDC5061I An error occurred when attempting to define 
a file to the system.

(I tried TAR and got the same result.)
When I run the PAX in one job and the TRS in another job, it works.
Has anyone seen this behaviour? (I'm on z/OS V2.4)

Here is the JCL:
//STEP001 EXEC PGM=BPXBATCH
//STDOUT   DD  SYSOUT=*
//STDERR   DD  SYSOUT=*
//STDPARM  DD  *
SH pax -wzvf  "//'MY.PAX'" /src/
//STEP002 EXEC PGM=AMATERSE,PARM=SPACK
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DISP=SHR,DSN=MY.PAX
//SYSUT2   DD  DISP=(,CATLG),
// UNIT=SYSALLDA,
// DATACLAS=DCZFSEXT,
// STORCLAS=SCZFSEXT,
// SPACE=(CYL,(1000,500),RLSE),
// RECFM=FB,LRECL=1024,BLKSIZE=27648,
// DSN=MY.PAX.TRS

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: PAX/TRS zFS

[David Spiegel]

Hi Gil,
"... "An error occurred" is woefully inadequate.  Were other errors 
logged? ..." No


"... Why bother with TRS?  Doesn't your "pax -z" achieve comparable 
compression?
(Often a second compression expands the file.  Or, pax without the -z, 
then TRS.) ..."I want a robust backup Dataset which can survive 
downloads/uploads to non-z/OS platforms.


The Dataset and File Names have been masked; /src/ is not MOUNTd at Root

Regards,
David

On 2021-10-11 14:40, Paul Gilmartin wrote:

On Mon, 11 Oct 2021 14:03:11 -0400, David Spiegel wrote:

I am trying to PAX and TRS a zFS.

When I run a Step to PAX followed by a Step to TRS, I get:
pax: //'MY.PAX': EDC5061I An error occurred when attempting to define a
file to the system.


"An error occurred" is woefully inadequate.  Were other errors logged?

Why bother with TRS?  Doesn't your "pax -z" achieve comparable compression?
(Often a second compression expands the file.  Or, pax without the -z, then 
TRS.)

Time warp?  A subsequent TRS step causes the earlier pax step to fail!?

Does the initiator issue an ENQ because of TRS that somehow causes pax
to fail?  (Remember pax probably forks to a separate ASID.)

(Is /src/ really mounted on root?)

(It's regrettable that pax doesn't support a temp DSN.)


(I tried TAR and got the same result.)
When I run the PAX in one job and the TRS in another job, it works.
Has anyone seen this behaviour? (I'm on z/OS V2.4)

Here is the JCL:
//STEP001 EXEC PGM=BPXBATCH
//STDOUT   DD  SYSOUT=*
//STDERR   DD  SYSOUT=*
//STDPARM  DD  *
SH pax -wzvf  "//'MY.PAX'" /src/
//STEP002 EXEC PGM=AMATERSE,PARM=SPACK
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DISP=SHR,DSN=MY.PAX
//SYSUT2   DD  DISP=(,CATLG),
// UNIT=SYSALLDA,
// DATACLAS=DCZFSEXT,
// STORCLAS=SCZFSEXT,
// SPACE=(CYL,(1000,500),RLSE),
// RECFM=FB,LRECL=1024,BLKSIZE=27648,
// DSN=MY.PAX.TRS


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

PAX/TRS zFS

[David Spiegel]

Hi,
I am trying to PAX and TRS a zFS.

When I run a Step to PAX followed by a Step to TRS, I get:
pax: //'MY.PAX': EDC5061I An error occurred when attempting to define a 
file to the system.

(I tried TAR and got the same result.)
When I run the PAX in one job and the TRS in another job, it works.
Has anyone seen this behaviour? (I'm on z/OS V2.4)

Here is the JCL:
//STEP001 EXEC PGM=BPXBATCH
//STDOUT   DD  SYSOUT=*
//STDERR   DD  SYSOUT=*
//STDPARM  DD  *
SH pax -wzvf  "//'MY.PAX'" /src/
//STEP002 EXEC PGM=AMATERSE,PARM=SPACK
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DISP=SHR,DSN=MY.PAX
//SYSUT2   DD  DISP=(,CATLG),
// UNIT=SYSALLDA,
// DATACLAS=DCZFSEXT,
// STORCLAS=SCZFSEXT,
// SPACE=(CYL,(1000,500),RLSE),
// RECFM=FB,LRECL=1024,BLKSIZE=27648,
// DSN=MY.PAX.TRS

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

Re: Mainframe ransomware solution

[David Spiegel]

Hi Bob,
This reminds me of a story from the early '90s, when I worked for a 
multi-national food company. (I actually worked for more than one.)

One of the Help Desk guys decided to customize "his own" TPX screen.
He made it say "Welcome to Hell".
When I got in, I booted DOS (IBM PS/2 Model 70), started Windows 3.1 and 
then started PCOMM.
As soon as I noticed the "greeting", I walked over to the Help Desk and 
nonchalantly asked Billy if he had customized anything since 17:00 the 
day before.
He admitted to changing the greeting, but, had no clue that he would be 
affecting 2,000 users coast to coast.
After a string of blue words including: "Lard Tunderin' Jeezus" (hat's 
Newfoundland-speak for what we now call Whiskey Tango Foxtrot), he 
removed it.
I pointed out to him that he was fortunate that I arrived before the 
president. He would've bought me a coffee, but, we had free coffee at 
work, one of the perqs (a bad pun).


Regards,
David

On 2021-10-11 10:22, Bob Bridges wrote:

Managers have no sense of humour where it doesn't matter.  Well, some managers.

I still remember fondly my messing with a coworker's PC menu.  I don't remember which 
menu system we were using at the time, but Roberto had found some little gag app that 
would display a blimp for a few seconds with your selected message scrolling across it.  
So while he was out I fixed up his menu so that when he fired up Word, it would 1) 
display the blimp ("Roberto is a doofus!"), 2) erase the blimp call from the 
Word menu option so it would look normal, and 3) start Word.  The Harvard Graphics option 
would put the blimp back in his Word option.  So until he figured out the pattern, it 
would display the blimp at seemingly random intervals, but whenever he looked at the Word 
option under the covers there was nothing there.

I was also charmed by a (different) coworker who modified his copy of PC DOS; instead of "Bad 
command or file name", it said "Say what, hippo fingers?".  I never bothered until 
just now to verify that those two messages are exactly the same length; I just assumed that his 
replacement was no longer than the official text.

All very harmless.  I guess I'm just not a serious hacker.

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

/* While mathematicians often do not have much humility, we all have lots of 
experience with humiliation.  -Dan Goldston, in his acceptance speech for the 
prestigious Cole Prize */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of CM 
Poncelet
Sent: Sunday, October 10, 2021 22:23

This reminds me of someone at a Company I worked for, can't remember which, where some programmer had displayed a prompt for 
whatever to which an end-user replied "f*@k" - upon which the program then replied, "Your place or mine?" 
Needless to say, management was not amused by this and the programmer was given a "good talking to" if not then 
also put on "garden leave". 
  
--- On 10/10/2021 15:52, PINION, RICHARD W. wrote:

The only thing I ever put on a system, similar to that, was a TSO program which 
produced a crude picture of the one finger salute.  You could put whatever 
message you wanted on the hand.  Silly me, I had the program executing at TSO 
logon.  Management was not amused.

-Original Message-
From: Peter Sylvester
Sent: Sunday, October 10, 2021 9:36 AM
You could have "protected" the VM systems as much as you want, if a "friend" 
send you an exec/script/clist and you execute it. the was actually created as small joke by a 
student at one of the EARN/BITNET nodes who did not see that it could escape from the site.

my old friend Helmut on the neighbour node detected "patient 0". It rapidely 
entered vnet which was shutdown (to remove all copies afaik), earn bitnet was saved by 
Eric Thomas by filtering in rscs. You had to execute it, a global social attack/joke, not 
like the other real worm in sendmail

--- On 08/10/2021 16:43, David Spiegel wrote:

"... What about the Christmas Card Worm? ..."

That was AFAIK on a VM system, not, an MVS 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: Mainframe ransomware solution

[David Spiegel]

Hi Bob,
From what I recall, the bad guys had "READ" to the RACF Database. (It 
helps to have incompetent SecAdmin staff and auditors.)
They downloaded it and then dictionary-attacked it easily, because there 
was no password limitation and there was no trivial-password-exclusion list.
Also, NVAS had no security. That is, once in, the hackers could logon to 
any 3270 application from the main panel.


Regards,
David

On 2021-10-08 10:54, Bob Bridges wrote:

The way I read in the long Polish article about the Logica hack, when I researched it back 
in 2013, is that there was speculation about USS and about an HTTP flaw, but the forensics 
folks in the end thought they probably got hold of a password in the good old-fashioned way 
and went from there.  They did indeed find and exploit USS configuration goofs.  And the 
HTTP flaw is real 
(https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fnvd.nist.gov%2Fvuln%2Fdetail%2FCVE-2012-5955data=04%7C01%7C%7Ccd9662019d7c471e41b208d98a6b83b3%7C84df9e7fe9f640afb435%7C1%7C0%7C637693016700068298%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=URXCTpLeeXlb7WraJx2DMcyoy1AfPLKyhn3Nc1jECxQ%3Dreserved=0),
 but Logica's post-hack report doesn't mention it; so they, at least, didn't think it 
figured into the original break-in or in the culprits' activities afterward.

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

/* I've never hated a man enough to give him his diamonds back.  -Zsa-Zsa Gabor 
*/

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Thursday, October 7, 2021 18:49

Assuming you don't count Logica. ("Oh, that wasn't a real mainframe hack, they came 
in through USS.")

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Johnson
Sent: Thursday, October 7, 2021 3:21 PM

You’d have to be a poorly run shop to permit any of those to occur. Maybe 
that’s why mainframe hacks have actually never happened

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

[David Spiegel]

Hi R'Shmuel; AMV"SH,
"... What about the Christmas Card Worm? ..."

That was AFAIK on a VM system, not, an MVS system.

Regards,
David

On 2021-10-08 10:35, Seymour J Metz wrote:

Historically, there have been many poorly run shops. Prior to MVS, older 
systems were wide open and even systems with storage protection were swiss 
cheeses.

  07F0
  0A0C

Didn't somebody delete an unsecured system data set during IBM's MVS 
demonstration at SHARE? What about the Christmas Card Worm?


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7Cb18204aadece408d669708d98a68dbc6%7C84df9e7fe9f640afb435%7C1%7C0%7C637693005274413450%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Uk8NcyJRnMxMoFv7faM3sA3HSM1HafQ6QJvHBBzpUiA%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Bill Johnson [0047540adefe-dmarc-requ...@listserv.ua.edu]
Sent: Thursday, October 7, 2021 6:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Mainframe ransomware solution

You’d have to be a poorly run shop to permit any of those to occur. Maybe 
that’s why mainframe hacks have actually never happened.Biden successfully 
extracted 124,000 from Afghanistan in a few weeks. Amazing.


Sent from Yahoo Mail for iPhone


On Thursday, October 7, 2021, 2:12 PM, Charles Mills  wrote:

And assuming you never make a mistake. Never leave an APF data set unprotected. Never 
give the wrong person console authority. Fully understand APF on UNIX. Never have a Rexx 
PDS used by privileged users that is modifiable by others. Have no magic SVCs. Have no 
flawed APF code, no APF "tools" available inappropriately.

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: IBM JCL Expert preview in today's announcement letter

[David Spiegel]

Hi Gil,
That's why I said "usually".
Another is a Model DSCB (usually required for GDG Bases).

Regards,
David

On 2021-10-06 11:19, Paul Gilmartin wrote:

On Wed, 6 Oct 2021 10:33:14 -0400, David Spiegel wrote:

...
Besides not needing DCB, DSORG is usually useless as well.


Perhaps useless in JCL.  In Rexx I've needed to code DSORG(PS) to read a PDS 
directory.

-- 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: IBM JCL Expert preview in today's announcement letter

[David Spiegel]

Hi Bob,
I learned JCL in the mid '70s (45 years ago).
Placing DISP first makes the JCL line up a lot more than placing DSN first.
Besides not needing DCB, DSORG is usually useless as well.

Regards,
David

On 2021-10-06 09:57, Bob Bridges wrote:

Just a side comment, you may be in the minority putting DISP first, but the minority 
isn't tiny; my observation is that a lot of folks do it.  I sometimes do myself -- I like 
making parms line up, it often makes them easier to read -- but alas, my habit is still 
to put it after the DSN.  Always in the same order, in fact, so I guess I have a 
"standard" even though it's peculiar to me:

   //DDNAME   DD DSN=DATA.SET.NAME,DISP=(,CATLG),
   //DCB=(DSORG=PS,RECFM=VB,LRECL=1028[,BLKSIZE=half-tracK]),
   //[UNIT=something,]SPACE=(CYL,(5,20),RLSE)

Yeah, I still do DCB=(...).  I learned JCL forty years ago.  I hear it's no 
longer needed, but I'm used to it.  Sue me.

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

/* When I heated my home with oil, I used an average of 800 gallons a year.  I 
have found that I can keep comfortably warm for an entire winter with slightly 
over half that quantity of beer.   -Dave Barry, _Postpetroleum Guzzler_ */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Wednesday, October 6, 2021 08:32

 JED provides complete JCL validation, reformatting
 and enforcement of JCL standards.  ...

What's a "standard"  Suppose a site has a standard for naming job steps.
Can it enforce that?  Or only "standards" in the view of the JED author.

In DD statements I habitually code DISP as the first option.  I may be in a minority.  Does JED enforce 
ordering of options?  Might it require or prohibit "DCB=(...)"?  (is 
""DCB=(...)" ever needed nowadays?  I still see it coded on occasion.)

--
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: PL/I vs. JCL

[David Spiegel]

Maybe they should've left it as "Open MVS"? (OS/390)

On 2021-10-05 13:08, Tom Brennan wrote:
I always thought IBM's position on that was pretty silly.  If you make 
up a new three word name, expect it to quickly be turned into an 
acronym.  If they didn't want us to reuse an existing little-known 
acronym they should have named it something else.


On 10/5/2021 9:56 AM, Seymour J Metz wrote:

  USS has always meant Unix System Services.



Not unless you have a time machine; Unformatted System Services dates 
to the 1970s. Further, the last post here from IBM on the issue said 
that USS was not an approved abbreviation for Unix System Services.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C66d0453903554718720608d98822bd8d%7C84df9e7fe9f640afb435%7C1%7C0%7C637690505140660718%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Lxw1EM03nZsemipAC1ktZCbgKrL%2BedD7%2BDDlG%2Fiwn%2B8%3Dreserved=0 





From: IBM Mainframe Discussion List  on 
behalf of Joe Monk 

Sent: Monday, October 4, 2021 9:11 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PL/I vs. JCL

USS is a VTAM term for Unformatted System Services.

USS has always meant Unix System Services.

Joe

On Mon, Oct 4, 2021 at 7:30 PM Mike Schwab  
wrote:



U.S.S.  Unformated System Services, until Unix System Services tried
to take it over.

On Tue, Oct 5, 2021 at 1:24 AM Paul Gilmartin
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:


On Mon, 4 Oct 2021 17:35:41 +, Seymour J Metz wrote:

While TSO does not support unambiguous truncation for command 
names, it

does for keywords. I don't know about ICCF.



Unambiguous truncation is treacherous.  Addition of new

commands/keywords can break

legacy art.  For that reason I eschew abbreviations in code and

pedagogy.  The worst

case occurs when one command is a proper prefix of another command.

I freely abbreviate on a command line.


On Sat, 2 Oct 2021 20:56:43 -0700, Charles Mills wrote:

I have no problem with the DD/member ambiguity:
\edu with the message: INFO IBM-MAIN


-- gil

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




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

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



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

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



--
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: Abbrev. (was: PL/I vs. JCL)

[David Spiegel]

Hi Charles,
You said: "... JES P is Purge ..."
It is also STOP ($P LOGON) and DRAIN (e.g. $P SPOOL).

Regards,
David

On 2021-10-03 11:17, Charles Mills wrote:

There are two different P's.

MVS P is stoP. JES P is Purge.

Working from (non-parity checked) memory here. Someone will sure hasten to 
correct me if I am wrong.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Sunday, October 3, 2021 8:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Abbrev. (was: PL/I vs. JCL)

On Sun, 3 Oct 2021 10:02:46 -0400, David Spiegel wrote:


Hi Charles,
I guess that nobody bothered to tell the tech writer that the "S" in
MVS, is an abbreviation for "Storage".


Decades ago, I learned "Segments", and I've thought that ever since.
I may never have uttered it.  But, GIYF (sic), "Storage" seems to be the
mode, and I must retrain myself.

I've heard operators pronounce "P" as "Purge".  Is that misleading?

I dislike abbreviations that are not prefix strings.  I may make an exception
for "X" for either "TRANS" or "EX".

TSO seems not to have abbreviations, but alternate names.  It's not
"ALLOCate", so I may code "ALLOCATE" of "ALLOC", but not "ALLOCA".

And "PGM=" is not a keyword.  That should have been forbidden.

--
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: PL/I vs. JCL

[David Spiegel]

Hi Skip,
You said: "... Nor 'RACF', which everyone says as rack+f. ..."

Way back in 2000, when I was working at IBM full-time, I was involved 
with a few ACF2->RACF conversions.

One customer kept driving me crazy by calling IBM's ESM "Ra-KEFF".

Regards,
David

On 2021-10-03 12:37, Skip Robinson wrote:

Newbie auditors are notorious for 'spelling out' abbreviations that over
the decades have become actual names. And yes, idiocy is only one
consequence. The result can be gibberish.

My favorite basket case is 'TSO', which was in ancient history Time Sharing
Option. For as long as anyone can remember, TSO has not involved 'time
sharing' in any meaningful way. Nor is it remotely optional. Spelling out
the words contributes nothing to any discussion.

Another favorite is 'JES'. Nobody spells it out. Nor 'RACF', which everyone
says as rack+f.

On Sun, Oct 3, 2021 at 6:59 AM Charles Mills  wrote:


I don't abbreviate in documentation or discussion.

Hmmm. I think referring to the console command P resonates with people
more than STOP. I wonder if people do not recognize XMIT better than
TRANSMIT. The goal in documentation should be clarity,  not pedagogics.

I once had an all-out war (I won! I was the president!) with a tech writer
who insisted that the documentation should spell out Multiple Virtual
Systems on the first reference to MVS (in technical documentation for a
hardcore mainframe product). My position was that it made us look like
idiots.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Paul Gilmartin
Sent: Sunday, October 3, 2021 6:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PL/I vs. JCL

On Sat, 2 Oct 2021 20:56:43 -0700, Charles Mills wrote:


I have no problem with the DD/member ambiguity:

1. If it's a personal tool and you are happy with the ambiguity, then you
are happy.
2. If it's a "product" then you just document which takes priority.


o z/VM CP and CMS with their very flat syntax (no delimiters) allow
keywords
   to be elided when their values do not overload other keyword names.  And
   some operands are required for admin users and optional or prohibited for
   general users.  And VM nerds delight in abbreviating keywords and command
   names to single characters, baffling novices.  Ugh!

o UNIX command options can be ambiguous with (non-portable?) filenames
   beginning with "-".  The resolution is to qualify with current working
directory:
   "./-whatever".

I don't abbreviate in documentation or discussion.  I write ALLOCATE, not
ALLOC; TRANSMIT, not XMIT; etc.  (Oops!  I wrote "admin" above.)


I wrote a (successful!) product that in one very peripheral feature took

an

operand that could represent a member name in a default PDS, a dataset

name,

or a zFS file name. I differentiated among the three based on length and

the

presence or absence of periods and/or slashes. No one ever complained that
they had a dataset or a zFS file named SHORTNAM and could not reference

it.

I think the convenience and simplicity of being able to say simply
FILENAME(whatever) outweighed the perils of the ambiguity. Product design
involves tradeoffs.

-- gil





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

Re: PL/I vs. JCL

[David Spiegel]

Hi Charles,
I guess that nobody bothered to tell the tech writer that the "S" in 
MVS, is an abbreviation for "Storage".


Regards,
David

On 2021-10-03 09:58, Charles Mills wrote:

I don't abbreviate in documentation or discussion.

Hmmm. I think referring to the console command P resonates with people more 
than STOP. I wonder if people do not recognize XMIT better than TRANSMIT. The 
goal in documentation should be clarity,  not pedagogics.

I once had an all-out war (I won! I was the president!) with a tech writer who 
insisted that the documentation should spell out Multiple Virtual Systems on 
the first reference to MVS (in technical documentation for a hardcore mainframe 
product). My position was that it made us look like idiots.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Sunday, October 3, 2021 6:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PL/I vs. JCL

On Sat, 2 Oct 2021 20:56:43 -0700, Charles Mills wrote:


I have no problem with the DD/member ambiguity:

1. If it's a personal tool and you are happy with the ambiguity, then you
are happy.
2. If it's a "product" then you just document which takes priority.


o z/VM CP and CMS with their very flat syntax (no delimiters) allow keywords
   to be elided when their values do not overload other keyword names.  And
   some operands are required for admin users and optional or prohibited for
   general users.  And VM nerds delight in abbreviating keywords and command
   names to single characters, baffling novices.  Ugh!

o UNIX command options can be ambiguous with (non-portable?) filenames
   beginning with "-".  The resolution is to qualify with current working 
directory:
   "./-whatever".

I don't abbreviate in documentation or discussion.  I write ALLOCATE, not
ALLOC; TRANSMIT, not XMIT; etc.  (Oops!  I wrote "admin" above.)


I wrote a (successful!) product that in one very peripheral feature took an
operand that could represent a member name in a default PDS, a dataset name,
or a zFS file name. I differentiated among the three based on length and the
presence or absence of periods and/or slashes. No one ever complained that
they had a dataset or a zFS file named SHORTNAM and could not reference it.
I think the convenience and simplicity of being able to say simply
FILENAME(whatever) outweighed the perils of the ambiguity. Product design
involves tradeoffs.

-- gil

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

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


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

Re: Can I use DSN referback using nested procs?

[David Spiegel]

Hi Colin,
Here is a working example:
//STEP001 EXEC ASMACL
//C.SYSIN  DD  *
 TEST CSECT
 END
//GO  EXEC PGM=IEFBR14
//STEPLIB  DD  DISP=SHR,DSN=*.STEP001.L.SYSLMOD

Here is SYS1.PROCLB(ASMACL)
//ASMACL   PROC
//C    EXEC PGM=ASMA90
//*
//SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1   DD DSN=&,SPACE=(16384,(120,120),,,ROUND),
// UNIT=SYSALLDA,BUFNO=1
//SYSPRINT DD SYSOUT=*
//SYSLIN   DD DSN=&,SPACE=(3040,(40,40),,,ROUND),
// UNIT=SYSALLDA,DISP=(MOD,PASS),
// BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1
//*
//L    EXEC PGM=HEWL,PARM='MAP,LET,LIST,NCAL',COND=(8,LT,C)
//*
//SYSLIN   DD DSN=&,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//SYSLMOD  DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,1)),
// DSN=&(GO)
//SYSUT1   DD DSN=&,SPACE=(1024,(120,120),,,ROUND),
// UNIT=SYSALLDA,BUFNO=1
//SYSPRINT DD SYSOUT=*
//*

Regards,
David

On 2021-09-09 04:56, Colin Paice wrote:

I have a JCL procedure CCPROC which invokes PROC=EDCCB.
PROC=EDCCB has two steps compile and bind.
Bind puts the output in SYSLMOD.

I would now like to refer the the SYSLMOD data set elsewhere, for example
//LIST EXEC PROC=CCPROC
//EXEC PGM=MYPROG
//STEPLIB DD DSN=*.??.SYSLMOD

The doc says **.stepname.procstepname.ddname*
*Stepname is the name of this job step or an earlier job step that calls
the procedure, procstepname is the name of the procedure step that contains
the DD statement, and ddname is the name of the DD statement.*
DSN=*.LIST.EDCCB.SYSLMOD, DSN=*.LIST.CCPROC.SYSLMOD and
DSN=*.LIST.BIND.SYSLMOD all give a JCL error.

Is this possible?I can do it using symbols, so I don't need a solution
- I was just curious.

Colin

--
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: RENT binder option

[David Spiegel]

Hi R'Shmuel AMV"SH,
Don't you agree that your earlier statement has been refuted?
Please see:  פרקי אבות  5:9
שׁוֹאֵל כְּעִנְיָן וּמֵשִׁיב כַּהֲלָכָה

Regards,
David

On 2021-09-06 11:19, Seymour J Metz wrote:

Yes, BTDT,GTTS. IMHO, installing PDS86, StarTool oe whatever the current name 
is, is a no brainer, and we owe Bruce a debt of gratitude.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7Cbb061cfc01ee4f1b0d8508d97149cfef%7C84df9e7fe9f640afb435%7C1%7C0%7C637665384157520184%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=7iVN0eFx0pCBOfyM7InLeG9PxyCy9E4c9yNjIhtCy6c%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Sunday, September 5, 2021 8:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RENT binder option

Hi R'Shmuel AMV"SH,
You said: "... That's why you have to rebuild from the object modules if
a reentrant module was incorrectly linked as REUS. ...".
If you have the PDS Command Processor (CBT File 182) or Startool, you
can "edit" the directory entry to add/remove these and other attributes
(e.g. AC(0)/AC(1)).

Shana Tovah

Regards,
David

On 2021-09-05 17:44, Seymour J Metz wrote:

There used to be a children's game called telegram, where a group of children 
sat in a circle, one got a text and quietly read a short text to an adjacent 
chile, who quietly repeated it to the next child, etc., until it came back to 
the first child, who compared it to the original text. Those who know wrote 
what they aactually wrote, not what was attributed to them.

BTW, the text that you cited is incorrect;it's not whether the icluded module 
actually is refreshable or reentrant that affects the linkage editor, it's 
whether it is flagged with the attribute. That's why you have to rebuild from 
the object modules if a reentrant module was incorrectly linked as REUS.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7Cbb061cfc01ee4f1b0d8508d97149cfef%7C84df9e7fe9f640afb435%7C1%7C0%7C637665384157520184%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=7iVN0eFx0pCBOfyM7InLeG9PxyCy9E4c9yNjIhtCy6c%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of CM 
Poncelet [ponce...@bcs.org.uk]
Sent: Saturday, September 4, 2021 8:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RENT binder option

Sure. Thank you for confirming that those who know agree with what I
have said - for the benefit of those who do not know and who might
otherwise be misled into thinking that REFR and RENT LMODs need to be
'protected' from modifying themselves and/or can modify themselves or
whatever nonsense else.

BTW Off-topic, my hard-copy "MVS/Extended Architecture Linkage Editor
and Loader Users's Guide" version 2 release 2.0 (order number
GC26-4143-1) second edition (June 1986) agrees with your MVS/370 linkage
editor user's guide from 1985, as quoted. And I would most respectfully
point out that e.g. "If the refreshable attribute is specified, and any
load modules that are not refreshable become a part of the input to the
linkage editor, the attribute is negated" does indeed apply if any
module's OBJ code has not been link-edited with the REFR attribute but
is then included in the LMOD's link-edit SYSLIN cards, *then* the
resulting LMOD is marked not REFR regardless of all other link-edited
modules included in the said SYSLIN cards having been marked REFR.

Thanks again for 'absolving' me from having to defend and protect
systems programming from being reduced to mere systems administration,
then to level-2 and then level-1 tech support, then to help-desk support
- as per Micro$oft Windoze. I thoroughly appreciate your supporting
mainframe systems programming.

I can now gladly drop out of this thread.

Cheers, Chris Poncelet (retired etc.)


On 04/09/2021 11:31, Joe Monk wrote:

"A module is REFR or RENT - not if it is link-edited as REFR or RENT, but
if it never modifies its own storage."

Why do you keep lecturing us on things we already know?

Jim Mulder knows it best as he is the frickin author of z/OS (well he and
Peter Relson).

Please stop.

"But it is the
programmer/developer who is responsible for ensuring that the module's
code is indeed REFR or RENT - and it is not the linkage-editor or
binder's responsibility."

To quote the MVS/370 linkage editor user's guide from 1985:

"If the reenterable attribute is specified, and any load modules that are
not reenterable become a part of the input to the linkage editor, the
attribute is negated."

"If the refreshabl

Re: RENT binder option

[David Spiegel]

Hi R'Shmuel AMV"SH,
You said: "... That's why you have to rebuild from the object modules if 
a reentrant module was incorrectly linked as REUS. ...".
If you have the PDS Command Processor (CBT File 182) or Startool, you 
can "edit" the directory entry to add/remove these and other attributes 
(e.g. AC(0)/AC(1)).


Shana Tovah

Regards,
David

On 2021-09-05 17:44, Seymour J Metz wrote:

There used to be a children's game called telegram, where a group of children 
sat in a circle, one got a text and quietly read a short text to an adjacent 
chile, who quietly repeated it to the next child, etc., until it came back to 
the first child, who compared it to the original text. Those who know wrote 
what they aactually wrote, not what was attributed to them.

BTW, the text that you cited is incorrect;it's not whether the icluded module 
actually is refreshable or reentrant that affects the linkage editor, it's 
whether it is flagged with the attribute. That's why you have to rebuild from 
the object modules if a reentrant module was incorrectly linked as REUS.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C843fac68f3a241365cd808d970b6669c%7C84df9e7fe9f640afb435%7C1%7C0%7C637664751026547371%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=OKM89FQ1NHIocWcpseIqFif00l3K4gvK1QpKtrha4AQ%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of CM 
Poncelet [ponce...@bcs.org.uk]
Sent: Saturday, September 4, 2021 8:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RENT binder option

Sure. Thank you for confirming that those who know agree with what I
have said - for the benefit of those who do not know and who might
otherwise be misled into thinking that REFR and RENT LMODs need to be
'protected' from modifying themselves and/or can modify themselves or
whatever nonsense else.

BTW Off-topic, my hard-copy "MVS/Extended Architecture Linkage Editor
and Loader Users's Guide" version 2 release 2.0 (order number
GC26-4143-1) second edition (June 1986) agrees with your MVS/370 linkage
editor user's guide from 1985, as quoted. And I would most respectfully
point out that e.g. "If the refreshable attribute is specified, and any
load modules that are not refreshable become a part of the input to the
linkage editor, the attribute is negated" does indeed apply if any
module's OBJ code has not been link-edited with the REFR attribute but
is then included in the LMOD's link-edit SYSLIN cards, *then* the
resulting LMOD is marked not REFR regardless of all other link-edited
modules included in the said SYSLIN cards having been marked REFR.

Thanks again for 'absolving' me from having to defend and protect
systems programming from being reduced to mere systems administration,
then to level-2 and then level-1 tech support, then to help-desk support
- as per Micro$oft Windoze. I thoroughly appreciate your supporting
mainframe systems programming.

I can now gladly drop out of this thread.

Cheers, Chris Poncelet (retired etc.)


On 04/09/2021 11:31, Joe Monk wrote:

"A module is REFR or RENT - not if it is link-edited as REFR or RENT, but
if it never modifies its own storage."

Why do you keep lecturing us on things we already know?

Jim Mulder knows it best as he is the frickin author of z/OS (well he and
Peter Relson).

Please stop.

"But it is the
programmer/developer who is responsible for ensuring that the module's
code is indeed REFR or RENT - and it is not the linkage-editor or
binder's responsibility."

To quote the MVS/370 linkage editor user's guide from 1985:

"If the reenterable attribute is specified, and any load modules that are
not reenterable become a part of the input to the linkage editor, the
attribute is negated."

"If the refreshable attribute is specified, and any load modules that are
not refreshable become a part of the input to the linkage editor, the
attribute is negated."

So, it has been the case since 1985 that the linkage editor does check the
input load modules, and will not mark a non-RENT/REFR load module as having
those attributes. Jim Mulder has been at IBM for 42 years, so 1985 ... yeah
he would've been working on MVS then.

Thanks.

Joe



On Fri, Sep 3, 2021 at 9:05 PM CM Poncelet  wrote:


At the risk of inviting 'flak', I suspect that there is a misconception
of what RENT and REFR modules actually are.

By definition, RENT and REFR modules should never modify themselves
(excluding the peculiar case of a RENT module that ENQ's on part of its
code, modifies it, restores it to what it was, then DEQ's it - as this
would not violate the definition of RENT modules being concurrently
executable by multiple tasks.)

A module is REFR or RENT - not if it is link-edited as REFR or RENT, but
if it never modifies its own storage. In other words, all modifiable
storage must first be 

Re: LISCAT with space allocations

[David Spiegel]

Hi Bill,
VTOC Command Processor! (CBT File 112).
It has all kinds of filters and even lets you search by partial DSNAME 
(not starting at the beginning.)

I have a number of Batch to do stuff like this. PM me if you want examples.

Regards,
David

On 2021-09-03 10:34, Bill Giannelli wrote:

How might I run an IDCAMS LISTCAT to get just the space allocations? Should I 
use a different utility?
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: CLIST to pass variable

[David Spiegel]

Hi Mike,
If it's in a //SYSEXEC concatenation, it doesn't need the Rexx comment.

Regards,
David

On 2021-09-02 11:18, Mike Schwab wrote:

/*REXX*/

On Thu, Sep 2, 2021 at 10:10 AM Bill Giannelli  wrote:

I am trying to modify old hand-me-down ISPF panel and clists.
Honestly I am not sure if some of this code is rexx or clists.
how might I tell?
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: CLIST to pass variable

[David Spiegel]

Hi Bill,
If it starts with a PROC statement, or contains CONTROL, WRITE/WRITENR, 
OPENFILE, CLOSFILE, GETFILE, PUTFILE commands it is CLIST.
If it starts with /* Rexx */,  has commands not all in Upper Case or 
contains EXECIO, PROCEDURE,  EXPOSE it's Rexx.


Regards,
David

On 2021-09-02 11:10, Bill Giannelli wrote:

I am trying to modify old hand-me-down ISPF panel and clists.
Honestly I am not sure if some of this code is rexx or clists.
how might I tell?
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: 3277 graphics

[David Spiegel]

Hi Mike,
You ran VS1 native? ... If yes, what was your interactive system, CRJE?
(I ran VM/SP with VS1 guests.)

Regards,
David

On 2021-09-01 04:05, Mike Wawiorko wrote:

My distant memory is:

CADAM/CATIA running Finite Element Analysis
OS/VS1
4341
3704 running EP
Some comms protocol I forget
Tektronix graphics terminal

Tried to make it run through an NCP as non-SNA start stop with either NPSI or 
NTO (memory fails me) but no success.

No 3270 involved - neither BSC nor SNA.

Mike Wawiorko
This e-mail and any attachments are confidential and intended solely for the 
addressee and may also be privileged or exempt from disclosure under applicable 
law. If you are not the addressee, or have received this e-mail in error, 
please notify the sender immediately, delete it from your system and do not 
copy, disclose or otherwise act upon any part of this e-mail or its attachments.
Internet communications are not guaranteed to be secure or virus-free. The 
Barclays Group does not accept responsibility for any loss arising from 
unauthorised access to, or interference with, any Internet communications by 
any third party, or from the transmission of any viruses. Replies to this 
e-mail may be monitored by the Barclays Group for operational or business 
reasons.
Any opinion or other information in this e-mail or its attachments that does 
not relate to the business of the Barclays Group is personal to the sender and 
is not given or endorsed by the Barclays Group.
Barclays Execution Services Limited provides support and administrative 
services across Barclays group. Barclays Execution Services Limited is an 
appointed representative of Barclays Bank UK plc, Barclays Bank plc and 
Clydesdale Financial Services Limited. Barclays Bank UK plc and Barclays Bank 
plc are authorised by the Prudential Regulation Authority and regulated by the 
Financial Conduct Authority and the Prudential Regulation Authority. Clydesdale 
Financial Services Limited is authorised and regulated by the Financial Conduct 
Authority.

--
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: RENT binder option

[David Spiegel]

Hi Andrew,
You said: "... If a module is not marked RENT, you get a nice freshly 
loaded copy every time. ..."
Is that true if a module is (from a LNKLSTd PDS and the module is) 
cached by VLF?


Thanks and regards,
David

On 2021-08-30 19:23, Andrew Rowley wrote:

On 30/08/2021 11:49 pm, Jim Mulder wrote:

   The behavior of loading RENT modules from authorized
libraries into subpool 252 (key 0) is to prevent them from
being modified by unauthorized programs.  That is intended
to contribute to security.
That is true, but it is a consequence of marking it RENT, not the 
purpose. Are RENT modules from authorized libraries more secure than 
non-RENT modules?


It actually implies the opposite - RENT modules need additional 
protection. When you execute a RENT module, you are executing 
something that may have been loaded weeks ago, and without storage 
protection may have been deliberately or accidentally modified. If a 
module is not marked RENT, you get a nice freshly loaded copy every time.




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

Re: Programs that work right the first time.

[David Spiegel]

Hi R'Shmuel AMV"SH,
My patent was not defensive.

Regards,
David

On 2021-08-23 07:50, Seymour J Metz wrote:

A defensive patent is when you patent something that should not be patentable, for the sole purpose 
of preventing others for patenting the same "invention".  It's a lot less expensive then 
having to defend an infringement claim, even if you eventually get that patent invalidated. It 
wouldn't be necessary if the USPTO did a better job of detecting "inventions" that are 
prior art or obvious to practitioners.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C66555047ed8844a6d62708d9662c30da%7C84df9e7fe9f640afb435%7C1%7C0%7C63765316230809%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=OZH%2BILa%2FY6yFn2IPARtUZzu%2BPL2z1eX0dGJWuw949q0%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Monday, August 23, 2021 6:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Programs that work right the first time.

Hi R'Shmuel AMV"SH,
"defensive" ... What exactly are you asking?
If you mean military-related, the answer is no.

Regards,
David

On 2021-08-23 05:45, Seymour J Metz wrote:

IBM defensive patent?


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C66555047ed8844a6d62708d9662c30da%7C84df9e7fe9f640afb435%7C1%7C0%7C63765316230809%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=OZH%2BILa%2FY6yFn2IPARtUZzu%2BPL2z1eX0dGJWuw949q0%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Sunday, August 22, 2021 6:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Programs that work right the first time.

Hi Bill,
"... "Programming” in REXX, CLIST, and similar types of languages is
hardly programming. ..."

Maybe you should tell that to the US Patent Office in Washington, DC.
They can then invalidate my patent retroactively.

Please see:
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fsecure-web.cisco.com%2F1NAfNN0bBf0F03jaPEgGJYSfqV4IVVUQJrViCktXMVnNTwsMUp0gbPJuunPtMGtdUrmIY9QlqZZDzNKyliUjrO1n2Sz08vZtedb9Rfprp33qR6yYLNCJjp20hV4rY90fIhDaV5yY0J7AZhq67Ss4t4N2CYtriUg4HCfmsCyY-yAa89x89MyLqKZETeeD2HeSfML6qbDoOa4RUq1wTHen2QuIyZDLAOSrawSkOFnatRZEwYKUHNhPR-mY4sloqJOSsK8OiXB-D0m4idCDBfPF3CB9V19Z-c6iWWo0wE-L30QQMZNSk8hngcn9eX-IwhgduZ_HR9ZthzgwYemSvLNEllVcS2beUpLrqpfjm42fwLfZcfW69UhTV6dvyoi98pzyQT9XFB0-9gDuieP_kVrHWny1cnZ_zXL7Mjn_lUhW1Y84-SwtoEnjWqdEFU44F2K5lE0kshZiSJAwK_WUy-Gvimw%2Fhttps%253A%252F%252Fpatents.justia.com%252Fpatent%252F8261255data=04%7C01%7C%7C66555047ed8844a6d62708d9662c30da%7C84df9e7fe9f640afb435%7C1%7C0%7C63765316230809%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=uoW7%2FOu2xZdTRnI28Oeu5c0eD2HG64UvHjIytxpG1pY%3Dreserved=0

Regards,
David

On 2021-08-21 21:51, Bill Johnson wrote:

“Programming” in REXX, CLIST, and similar types of languages is hardly 
programming. Real programming is hundreds or thousands of lines of COBOL, with 
IMS, DB2, or CICS calls. I was pretty damn good too. Started off in COBOL/IMS 4 
decades ago. Did a little bit of COBOL/CICS and quite a bit of COBOL/DB2 later. 
Try putting together the necessary code to drill down a hierarchical database 
like IMS.


Sent from Yahoo Mail for iPhone


On Saturday, August 21, 2021, 9:31 PM, Bob Bridges  
wrote:

This part of the thread got me thinking.  How often do you write a program that 
works right the first time, with no compile or execution errors?  I'm not 
talking about two-liners, of course, or even ten-liners; let's say 30 or 
thereabouts.  Please specify the language, too, since it seems to me they vary 
in error-prone-ness.

I've done it occasionally, but by "occasionally" I mean "less than one time in 
twenty"; maybe much less, I'm not sure, and only once in my life when anyone was watching.  
That was in PL/C; mostly nowadays I write in REXX and VBA.

In fact my REXXes typically start out with at least ten or fifteen lines of boilerplate, 
and any VBA/Excel program likely relies on a raft of common functions and/or objects that 
are part of my regular library, so when I say "30 lines", some of those lines 
don't really count.

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

/* The schools of ancient morality had four cardinal virtues: justice in human 
relations, prudence in the directions of affairs, fortitude in bearing trouble 
or sorrow, temperance or self-restraint. But they knew nothing of mer

Re: Programs that work right the first time.

[David Spiegel]

Hi R'Shmuel AMV"SH,
"defensive" ... What exactly are you asking?
If you mean military-related, the answer is no.

Regards,
David

On 2021-08-23 05:45, Seymour J Metz wrote:

IBM defensive patent?


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C53b9ec4203844e4c803508d9661ad7b5%7C84df9e7fe9f640afb435%7C1%7C0%7C637653087771078604%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=HzMbJ4Y9LMqWRfleXpkjq9hUdIQjf7esUMNVmcDjCQQ%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Sunday, August 22, 2021 6:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Programs that work right the first time.

Hi Bill,
"... "Programming” in REXX, CLIST, and similar types of languages is
hardly programming. ..."

Maybe you should tell that to the US Patent Office in Washington, DC.
They can then invalidate my patent retroactively.

Please see:
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fsecure-web.cisco.com%2F1NAfNN0bBf0F03jaPEgGJYSfqV4IVVUQJrViCktXMVnNTwsMUp0gbPJuunPtMGtdUrmIY9QlqZZDzNKyliUjrO1n2Sz08vZtedb9Rfprp33qR6yYLNCJjp20hV4rY90fIhDaV5yY0J7AZhq67Ss4t4N2CYtriUg4HCfmsCyY-yAa89x89MyLqKZETeeD2HeSfML6qbDoOa4RUq1wTHen2QuIyZDLAOSrawSkOFnatRZEwYKUHNhPR-mY4sloqJOSsK8OiXB-D0m4idCDBfPF3CB9V19Z-c6iWWo0wE-L30QQMZNSk8hngcn9eX-IwhgduZ_HR9ZthzgwYemSvLNEllVcS2beUpLrqpfjm42fwLfZcfW69UhTV6dvyoi98pzyQT9XFB0-9gDuieP_kVrHWny1cnZ_zXL7Mjn_lUhW1Y84-SwtoEnjWqdEFU44F2K5lE0kshZiSJAwK_WUy-Gvimw%2Fhttps%253A%252F%252Fpatents.justia.com%252Fpatent%252F8261255data=04%7C01%7C%7C53b9ec4203844e4c803508d9661ad7b5%7C84df9e7fe9f640afb435%7C1%7C0%7C637653087771078604%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=LDOxC0uglmGaNLYZHIpLx5HT2pfyHKAWwSxrcb8inCk%3Dreserved=0

Regards,
David

On 2021-08-21 21:51, Bill Johnson wrote:

“Programming” in REXX, CLIST, and similar types of languages is hardly 
programming. Real programming is hundreds or thousands of lines of COBOL, with 
IMS, DB2, or CICS calls. I was pretty damn good too. Started off in COBOL/IMS 4 
decades ago. Did a little bit of COBOL/CICS and quite a bit of COBOL/DB2 later. 
Try putting together the necessary code to drill down a hierarchical database 
like IMS.


Sent from Yahoo Mail for iPhone


On Saturday, August 21, 2021, 9:31 PM, Bob Bridges  
wrote:

This part of the thread got me thinking.  How often do you write a program that 
works right the first time, with no compile or execution errors?  I'm not 
talking about two-liners, of course, or even ten-liners; let's say 30 or 
thereabouts.  Please specify the language, too, since it seems to me they vary 
in error-prone-ness.

I've done it occasionally, but by "occasionally" I mean "less than one time in 
twenty"; maybe much less, I'm not sure, and only once in my life when anyone was watching.  
That was in PL/C; mostly nowadays I write in REXX and VBA.

In fact my REXXes typically start out with at least ten or fifteen lines of boilerplate, 
and any VBA/Excel program likely relies on a raft of common functions and/or objects that 
are part of my regular library, so when I say "30 lines", some of those lines 
don't really count.

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

/* The schools of ancient morality had four cardinal virtues: justice in human 
relations, prudence in the directions of affairs, fortitude in bearing trouble 
or sorrow, temperance or self-restraint. But they knew nothing of mercy or 
forgiveness, which is not natural to the human heart. Forgiveness is an exotic, 
which Christ brought with Him from Heaven.  -F.B.Meyer */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Brennan
Sent: Wednesday, August 18, 2021 13:41

one of my other supervisors/teachers would tell me about her application 
experience.  She said no matter how complex her COBOL programs were, they would 
not only compile first time but would run perfectly.  This of course was due to 
her rigorous desk-checking which I assume took days.

I remember thinking "that's crazy" but I just kept quiet.  I'll give her a 
break because that could have been at the time of card punching where such desk-checking 
made far more sense.

--
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: Programs that work right the first time.

[David Spiegel]

Hi Bill,
I understood that you were defending IBM patents and thank you for the 
compliment.


Why, though, do you think that COBOL programs with Database calls can be 
complex, when the languages I mentioned are more "dense" (i.e. logic per 
keystroke) with or without the Database calls?
(PL/I and Rexx are very close in density. If you agree that large PL/I 
programs can be complex, then why can Rexx not also be complex?)


Regards,
David

On 2021-08-22 16:16, Bill Johnson wrote:

Dude, you can’t even figure out I’m on YOUR side. When I posted a few months 
back regarding IBM patents, a whole bunch of listers bashed me and claimed most 
of IBMs patents were worthless. I’m impressed that you have patented code.

Sent from Yahoo Mail for iPhone


On Sunday, August 22, 2021, 4:13 PM, David Spiegel  
wrote:

Hi Bill,
Are you just a troll, or, are you really that impolite/ignorant?

My Rexx patented program was reviewed by the US Patent office and I was
required to defend it against 5 others.
It took 9 calendar months from the start of application until granting
of patent.
There are reasons why IBM leads the world in patents, BUT, they still
have to pass muster regardless.

What makes you think, nitwit, that programming 10,000 lines of COBOL (,
which, BTW is freaking wordy beyond belief) is more mind bending than Rexx?
If you would've coded 10,000 lines of PL/I, FORTRAN  or (especially)
APL, that would've contained a lot more logic than your "essay" with all
of the attendant COBOL nonsense.

Regards,
David

On 2021-08-22 13:35, Bill Johnson wrote:

I seem to remember IBM listers poo pooing patents when I pointed out IBM leads 
the world in patents every year. Comparing a 40 line REXX/CLIST “program” to a 
10,000 line IMS/COBOL program that scans a parts database is an absolute joke. 
Patent or not.


Sent from Yahoo Mail for iPhone


On Sunday, August 22, 2021, 6:15 AM, David Spiegel  
wrote:

Hi Bill,
"... "Programming” in REXX, CLIST, and similar types of languages is
hardly programming. ..."

Maybe you should tell that to the US Patent Office in Washington, DC.
They can then invalidate my patent retroactively.

Please see:
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fpatents.justia.com%2Fpatent%2F8261255data=04%7C01%7C%7C1abf00ca323340b3569208d965a9d1fd%7C84df9e7fe9f640afb435%7C1%7C0%7C637652602401866279%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=l2QtKunARAvX7Dl9cpFUMOCFzkIeMwHUT5aOMULOdEk%3Dreserved=0

Regards,
David

On 2021-08-21 21:51, Bill Johnson wrote:

“Programming” in REXX, CLIST, and similar types of languages is hardly 
programming. Real programming is hundreds or thousands of lines of COBOL, with 
IMS, DB2, or CICS calls. I was pretty damn good too. Started off in COBOL/IMS 4 
decades ago. Did a little bit of COBOL/CICS and quite a bit of COBOL/DB2 later. 
Try putting together the necessary code to drill down a hierarchical database 
like IMS.


Sent from Yahoo Mail for iPhone


On Saturday, August 21, 2021, 9:31 PM, Bob Bridges  
wrote:

This part of the thread got me thinking.  How often do you write a program that 
works right the first time, with no compile or execution errors?  I'm not 
talking about two-liners, of course, or even ten-liners; let's say 30 or 
thereabouts.  Please specify the language, too, since it seems to me they vary 
in error-prone-ness.

I've done it occasionally, but by "occasionally" I mean "less than one time in 
twenty"; maybe much less, I'm not sure, and only once in my life when anyone was watching.  
That was in PL/C; mostly nowadays I write in REXX and VBA.

In fact my REXXes typically start out with at least ten or fifteen lines of boilerplate, 
and any VBA/Excel program likely relies on a raft of common functions and/or objects that 
are part of my regular library, so when I say "30 lines", some of those lines 
don't really count.

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

/* The schools of ancient morality had four cardinal virtues: justice in human 
relations, prudence in the directions of affairs, fortitude in bearing trouble 
or sorrow, temperance or self-restraint. But they knew nothing of mercy or 
forgiveness, which is not natural to the human heart. Forgiveness is an exotic, 
which Christ brought with Him from Heaven.  -F.B.Meyer */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Brennan
Sent: Wednesday, August 18, 2021 13:41

one of my other supervisors/teachers would tell me about her application 
experience.  She said no matter how complex her COBOL programs were, they would 
not only compile first time but would run perfectly.  This of course was due to 
her rigorous desk-checking which I assume took days.

I remember thinking "that's crazy" but I just kept quiet.  I'll give her a 
break because that could have been

Re: Programs that work right the first time.

[David Spiegel]

+1

On 2021-08-22 15:05, Eric D Rossman wrote:

Bill, no need to get defensive. I have written z/OS and Linux (multiple
platform) internals and also user-facing code. Guess which one is harder?

Rhetorical question. Both are really hard to do well.

z/OS internals are notoriously under-commented and under-understood (I
wanted to make up a word).

Users are notoriously bad at doing "normal" things. They often do really
unexpected things.

Anyone can write complex code. However, writing complex code that WORKS
even when the user or application calling you is not also you (or written
by you) is really hard.

Whether it's a massive behemoth (like z/OS) or a short 40-line REXX
program, one should be able to appreciate quality code.

Claiming that writing in REXX isn't really programming is just rude and
you should go think about what you have done, in my opinion.

Eric Rossman, CISSP®
ICSF Cryptographic Security Development
z/OS Enabling Technologies
edros...@us.ibm.com


From: "Bill Johnson" <0047540adefe-dmarc-requ...@listserv.ua.edu>

No bee in my bonnet. Just don’t like braggarts.
What is more complex? The developers who wrote zOS or the
installation? The programs I wrote over my programming days were
much more complex than anything I’ve written in my SP days. And I’ve
written REXX & CLIST. Not all that hard.


--
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: Programs that work right the first time.

[David Spiegel]

Hi Bill,
Are you just a troll, or, are you really that impolite/ignorant?

My Rexx patented program was reviewed by the US Patent office and I was 
required to defend it against 5 others.
It took 9 calendar months from the start of application until granting 
of patent.
There are reasons why IBM leads the world in patents, BUT, they still 
have to pass muster regardless.


What makes you think, nitwit, that programming 10,000 lines of COBOL (, 
which, BTW is freaking wordy beyond belief) is more mind bending than Rexx?
If you would've coded 10,000 lines of PL/I, FORTRAN  or (especially) 
APL, that would've contained a lot more logic than your "essay" with all 
of the attendant COBOL nonsense.


Regards,
David

On 2021-08-22 13:35, Bill Johnson wrote:

I seem to remember IBM listers poo pooing patents when I pointed out IBM leads 
the world in patents every year. Comparing a 40 line REXX/CLIST “program” to a 
10,000 line IMS/COBOL program that scans a parts database is an absolute joke. 
Patent or not.


Sent from Yahoo Mail for iPhone


On Sunday, August 22, 2021, 6:15 AM, David Spiegel  
wrote:

Hi Bill,
"... "Programming” in REXX, CLIST, and similar types of languages is
hardly programming. ..."

Maybe you should tell that to the US Patent Office in Washington, DC.
They can then invalidate my patent retroactively.

Please see:
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fpatents.justia.com%2Fpatent%2F8261255data=04%7C01%7C%7C720b818ce6b9430e5c7008d965933d0c%7C84df9e7fe9f640afb435%7C1%7C0%7C637652505464744139%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=bowhK51%2BmmUxapgDhaxZidVvOXm1Yd%2BgdogPPas%2FfSA%3Dreserved=0

Regards,
David

On 2021-08-21 21:51, Bill Johnson wrote:

“Programming” in REXX, CLIST, and similar types of languages is hardly 
programming. Real programming is hundreds or thousands of lines of COBOL, with 
IMS, DB2, or CICS calls. I was pretty damn good too. Started off in COBOL/IMS 4 
decades ago. Did a little bit of COBOL/CICS and quite a bit of COBOL/DB2 later. 
Try putting together the necessary code to drill down a hierarchical database 
like IMS.


Sent from Yahoo Mail for iPhone


On Saturday, August 21, 2021, 9:31 PM, Bob Bridges  
wrote:

This part of the thread got me thinking.  How often do you write a program that 
works right the first time, with no compile or execution errors?  I'm not 
talking about two-liners, of course, or even ten-liners; let's say 30 or 
thereabouts.  Please specify the language, too, since it seems to me they vary 
in error-prone-ness.

I've done it occasionally, but by "occasionally" I mean "less than one time in 
twenty"; maybe much less, I'm not sure, and only once in my life when anyone was watching.  
That was in PL/C; mostly nowadays I write in REXX and VBA.

In fact my REXXes typically start out with at least ten or fifteen lines of boilerplate, 
and any VBA/Excel program likely relies on a raft of common functions and/or objects that 
are part of my regular library, so when I say "30 lines", some of those lines 
don't really count.

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

/* The schools of ancient morality had four cardinal virtues: justice in human 
relations, prudence in the directions of affairs, fortitude in bearing trouble 
or sorrow, temperance or self-restraint. But they knew nothing of mercy or 
forgiveness, which is not natural to the human heart. Forgiveness is an exotic, 
which Christ brought with Him from Heaven.  -F.B.Meyer */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Brennan
Sent: Wednesday, August 18, 2021 13:41

one of my other supervisors/teachers would tell me about her application 
experience.  She said no matter how complex her COBOL programs were, they would 
not only compile first time but would run perfectly.  This of course was due to 
her rigorous desk-checking which I assume took days.

I remember thinking "that's crazy" but I just kept quiet.  I'll give her a 
break because that could have been at the time of card punching where such desk-checking 
made far more sense.

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

Re: Programs that work right the first time.

[David Spiegel]

Hi Bill,
"... "Programming” in REXX, CLIST, and similar types of languages is 
hardly programming. ..."


Maybe you should tell that to the US Patent Office in Washington, DC.
They can then invalidate my patent retroactively.

Please see:
https://patents.justia.com/patent/8261255

Regards,
David

On 2021-08-21 21:51, Bill Johnson wrote:

“Programming” in REXX, CLIST, and similar types of languages is hardly 
programming. Real programming is hundreds or thousands of lines of COBOL, with 
IMS, DB2, or CICS calls. I was pretty damn good too. Started off in COBOL/IMS 4 
decades ago. Did a little bit of COBOL/CICS and quite a bit of COBOL/DB2 later. 
Try putting together the necessary code to drill down a hierarchical database 
like IMS.


Sent from Yahoo Mail for iPhone


On Saturday, August 21, 2021, 9:31 PM, Bob Bridges  
wrote:

This part of the thread got me thinking.  How often do you write a program that 
works right the first time, with no compile or execution errors?  I'm not 
talking about two-liners, of course, or even ten-liners; let's say 30 or 
thereabouts.  Please specify the language, too, since it seems to me they vary 
in error-prone-ness.

I've done it occasionally, but by "occasionally" I mean "less than one time in 
twenty"; maybe much less, I'm not sure, and only once in my life when anyone was watching.  
That was in PL/C; mostly nowadays I write in REXX and VBA.

In fact my REXXes typically start out with at least ten or fifteen lines of boilerplate, 
and any VBA/Excel program likely relies on a raft of common functions and/or objects that 
are part of my regular library, so when I say "30 lines", some of those lines 
don't really count.

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

/* The schools of ancient morality had four cardinal virtues: justice in human 
relations, prudence in the directions of affairs, fortitude in bearing trouble 
or sorrow, temperance or self-restraint. But they knew nothing of mercy or 
forgiveness, which is not natural to the human heart. Forgiveness is an exotic, 
which Christ brought with Him from Heaven.  -F.B.Meyer */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Brennan
Sent: Wednesday, August 18, 2021 13:41

one of my other supervisors/teachers would tell me about her application 
experience.  She said no matter how complex her COBOL programs were, they would 
not only compile first time but would run perfectly.  This of course was due to 
her rigorous desk-checking which I assume took days.

I remember thinking "that's crazy" but I just kept quiet.  I'll give her a 
break because that could have been at the time of card punching where such desk-checking 
made far more sense.

--
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: Programs that work right the first time.

[David Spiegel]

+1

On 2021-08-22 02:52, Seymour J Metz wrote:

What is an application with thousands of lines of REXX code, chopped liver?


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C9d2a5f868ff64cb95a2f08d965396ff2%7C84df9e7fe9f640afb435%7C1%7C0%7C637652119715193033%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=0zuvACI9SS0%2Fn29ucv6gGZ8vKmWvSmel0b1L0g6K9ms%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Bill Johnson [0047540adefe-dmarc-requ...@listserv.ua.edu]
Sent: Saturday, August 21, 2021 9:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Programs that work right the first time.

“Programming” in REXX, CLIST, and similar types of languages is hardly 
programming. Real programming is hundreds or thousands of lines of COBOL, with 
IMS, DB2, or CICS calls. I was pretty damn good too. Started off in COBOL/IMS 4 
decades ago. Did a little bit of COBOL/CICS and quite a bit of COBOL/DB2 later. 
Try putting together the necessary code to drill down a hierarchical database 
like IMS.


Sent from Yahoo Mail for iPhone


On Saturday, August 21, 2021, 9:31 PM, Bob Bridges  
wrote:

This part of the thread got me thinking.  How often do you write a program that 
works right the first time, with no compile or execution errors?  I'm not 
talking about two-liners, of course, or even ten-liners; let's say 30 or 
thereabouts.  Please specify the language, too, since it seems to me they vary 
in error-prone-ness.

I've done it occasionally, but by "occasionally" I mean "less than one time in 
twenty"; maybe much less, I'm not sure, and only once in my life when anyone was watching.  
That was in PL/C; mostly nowadays I write in REXX and VBA.

In fact my REXXes typically start out with at least ten or fifteen lines of boilerplate, 
and any VBA/Excel program likely relies on a raft of common functions and/or objects that 
are part of my regular library, so when I say "30 lines", some of those lines 
don't really count.

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

/* The schools of ancient morality had four cardinal virtues: justice in human 
relations, prudence in the directions of affairs, fortitude in bearing trouble 
or sorrow, temperance or self-restraint. But they knew nothing of mercy or 
forgiveness, which is not natural to the human heart. Forgiveness is an exotic, 
which Christ brought with Him from Heaven.  -F.B.Meyer */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Brennan
Sent: Wednesday, August 18, 2021 13:41

one of my other supervisors/teachers would tell me about her application 
experience.  She said no matter how complex her COBOL programs were, they would 
not only compile first time but would run perfectly.  This of course was due to 
her rigorous desk-checking which I assume took days.

I remember thinking "that's crazy" but I just kept quiet.  I'll give her a 
break because that could have been at the time of card punching where such desk-checking 
made far more sense.

--
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: Programs that work right the first time.

[David Spiegel]

Maybe you should have bought a lottery ticket that day?

On 2021-08-21 22:32, Tom Conley wrote:

On 8/21/2021 9:31 PM, Bob Bridges wrote:
This part of the thread got me thinking. How often do you write a 
program that works right the first time, with no compile or execution 
errors?  I'm not talking about two-liners, of course, or even 
ten-liners; let's say 30 or thereabouts.  Please specify the 
language, too, since it seems to me they vary in error-prone-ness.


I've done it occasionally, but by "occasionally" I mean "less than 
one time in twenty"; maybe much less, I'm not sure, and only once in 
my life when anyone was watching.  That was in PL/C; mostly nowadays 
I write in REXX and VBA.


In fact my REXXes typically start out with at least ten or fifteen 
lines of boilerplate, and any VBA/Excel program likely relies on a 
raft of common functions and/or objects that are part of my regular 
library, so when I say "30 lines", some of those lines don't really 
count.


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

/* The schools of ancient morality had four cardinal virtues: justice 
in human relations, prudence in the directions of affairs, fortitude 
in bearing trouble or sorrow, temperance or self-restraint. But they 
knew nothing of mercy or forgiveness, which is not natural to the 
human heart. Forgiveness is an exotic, which Christ brought with Him 
from Heaven.  -F.B.Meyer */


-Original Message-
From: IBM Mainframe Discussion List  On 
Behalf Of Tom Brennan

Sent: Wednesday, August 18, 2021 13:41

one of my other supervisors/teachers would tell me about her 
application experience.  She said no matter how complex her COBOL 
programs were, they would not only compile first time but would run 
perfectly.  This of course was due to her rigorous desk-checking 
which I assume took days.


I remember thinking "that's crazy" but I just kept quiet.  I'll give 
her a break because that could have been at the time of card punching 
where such desk-checking made far more sense.




I once wrote an IDMS database exit in assembler that ran correctly the 
first time, and never required modification in the years that 
followed.  It is indeed the rarest of birds.  Never before nor since 
have I had the pleasure of seeing a program run perfectly the first 
time and never require modification.


Regards,
Tom Conley

--
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: Spool entire job to a file?

[David Spiegel]

Yeah, but, that won't split it into members.

On 2021-08-18 09:52, Mark Jacobs wrote:

Use the JES2 external writer perhaps.

Mark Jacobs

Sent from ProtonMail, Swiss-based encrypted email.

GPG Public Key - 
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fapi.protonmail.ch%2Fpks%2Flookup%3Fop%3Dget%26search%3Dmarkjacobs%40protonmail.comdata=04%7C01%7C%7C8f7a395fa6c14f50254708d9624fe2fc%7C84df9e7fe9f640afb435%7C1%7C0%7C637648917528120913%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=W%2FZlNjr1nWRyT0aOnnP6D%2FjFR3zSt%2BxpIDm48VRFWLA%3Dreserved=0

‐‐‐ Original Message ‐‐‐

On Wednesday, August 18th, 2021 at 9:46 AM, Billy Ashton 
 wrote:


Hi all...I have a need to run a bunch of jobs to do some changes to

files, and we want to preserve the output of all these jobs for

auditors. Is there a way to use an OUTPUT statement or something in the

job itself that can redirect the entire job output to a PDS member? We

don't have a Spooler utility on this LPAR, so I am trying to find an

easy way to capture these jobs.

TIA!

Billy

--

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: Spool entire job to a file?

[David Spiegel]

Hi Billy,
If you have SDSF, you XDC the Job to a Dataset.

Regards,
David

On 2021-08-18 09:46, Billy Ashton wrote:
Hi all...I have a need to run a bunch of jobs to do some changes to 
files, and we want to preserve the output of all these jobs for 
auditors. Is there a way to use an OUTPUT statement or something in 
the job itself that can redirect the entire job output to a PDS 
member? We don't have a Spooler utility on this LPAR, so I am trying 
to find an easy way to capture these jobs.

TIA!
Billy

--
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: Communication between two computer systems (LPARS or physical)

[David Spiegel]

Hi Steff,
Have the application which updates the data put out a WTO which triggers 
your Automation to schedule Tasks on all other LPARs (e.g. RO *ALL, S 
UPDATE).


Regards,
David

On 2021-08-10 08:06, Steff Gladstone wrote:

We have global data pointed to by a name-token that is available to all the
address spaces in each computer system.  We want to make sure that any
updates to the data in one system are broadcast to the other computer
systems in the installation (LPARs or physical computers).  Or at the very
least notify the other systems that their data is not up-to-date. What
would be the simplest and cheapest way to send some kind of signal from one
system to the other without requiring I/O to shared
DASD?

We thought of issuing a console command starting a started task in each of
the other computer systems  (the JES2 spool is shared by all the systems.) .
But this is problematic since the required SVC (34) requires that the
program be authorized.   Any other ideas?

Thanks,
Steff Gladstone

--
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: Log of CICS transactions

[David Spiegel]

Hi Michael,
REVIEW, REVSMF (CBT File 134/135)

Regards,
David

On 2021-08-04 10:46, Michael Oujesky wrote:
As I recall, there was an ISPF tool (Review?) that would format the 
headers and a portion of the remainder of SMF records in VBS files.


At 03:03 PM 8/2/2021, you wrote:

Content-Transfer-Encoding: 7bit

Not a real answer - but more of a side question for others. Whenever 
I wanted a quick look at SMF records I would dump what I was 
interested in to my own dataset, which was VBS of course. Then I used 
an auth command we had called DSCBMOD (maybe from CBT?) to change VBS 
to VB and I was off and browsing or rexx'ing or whatever.


My assumption (note first 3 letters of assumption) was that I never 
cared about the far right-hand side of the records - so I wasn't 
missing anything important.  Or was I really missing entire records?


--
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: MQ V92 BACKMIG

[David Spiegel]

Hi,
It might be helpful to include the output from the Job's/STC's JESMSGLG 
(DSID 2).


Regards,
David

On 2021-07-28 19:20, Steely.Mark wrote:

I am trying to test the BACKMIG of MQ V9.2.

The directions says to use the START QMGR command.
For some reason I can't get this to work. To tired.
This is command I usually use to start the QMGR:  +MQSI START QMGR 
PARM(MQSIZPRM)
I did try this command:  +MQSI START QMGR PARM(MQSIZPRM) BACKMIG(900) - did not 
work.  ABEND=S5C6 U REASON=00E8000F
So that's when I looked up the START QMGR command.
I tried this:  START QMGR ENVPARM(MQSIMSTR) PARM(MQSIZPRM) BACKMIG(900) - did 
not work.
PROC QMGR not found.
What am I doing wrong.
Any help would be appreciated,

Thank You




*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately 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: Help with USS Process/Cmd

[David Spiegel]

Hi Lizette,
COPYTREE

https://www.ibm.com/docs/en/zos/2.4.0?topic=scd-copytree-make-copy-file-hierarchy-while-preserving-all-file-attributes

Regards,
David

On 2021-07-28 14:10, Lizette Koehler wrote:

Dearest List -

  


I am not well trained in USS, partially because I do not need to do it often

  


I have been asked to do the following.  I am not sure of the specific
command in USS or best way to do it.  Any specific examples will be helpful

  


I have mounted on /path a single filesystem consisting of 3 paths

  


   /path/path1

   /path/path2

   /path/path3

  


I now need to take each of those three paths and create a new zFS for each
one (easy) and then copy the original /path/path1 to the new zFS file system
and mount it in the same place

  


Once the filesystem is not used I will

Unmount /path

Mount /tmppath/path

  


Mount the new zFS filesystems

   /newpath1

   /newpath2

   /newpath3

  


What I do not know is how to copy everything (paths etc. ) from
/tmppath/path/path1 to /newpath1

  


Any pointers or suggestions welcomed.  Hopefully I explained it well without
incorrectly stating the USS part.

  


I tried searching the internet and got information over load on USS.

  


Lizette

  

  

  

  



--
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 cursor positioning based edit or browse

[David Spiegel]

Hi Mike,
ZOOM on CBT File 671

Please see cbttape.org

Regards,
David

On 2021-07-08 15:00, Mike Hochee wrote:

Hi,
Some years ago I recall working in an environment where I could position my 
cursor anywhere within a DSN or DSN(mbr) (from an ISPF edit or view session) 
and then depress PFnn to start and stack a new view or edit session for the 
referenced DSN. I believe this capability was also available under SDSF when 
displaying a JES2 JOE, but not positive about that.

Anyone know where I can find this handy tool?

Thanks much,
Mike



--
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: IEHPROG Alias Load module

[David Spiegel]

Hi Joe,
Or, as Shmuel pointed out the PDS Command Processor (cbttape.org File 
182) or StarTool.


Regards,
David

On 2021-06-30 22:05, Joe Monk wrote:

Yep, my bad.

Didnt see that he was trying with a load module, for which the
linker/binder is required.

Joe

On Wed, Jun 30, 2021 at 8:35 PM David Spiegel 
wrote:


Hi Joe,
*IEBUPDTE has the ALIAS command.
IEBUPDTE, however, does not work on Load Modules.

Regards,
David

On 2021-06-30 21:21, Joe Monk wrote:

It's IEBUPDAT that has the ALIAS function

Joe

On Wed, Jun 30, 2021 at 11:18 AM esst...@juno.com 

wrote:

Hello,
.
Many, Many, Years ago I seem to recall the utility IEHPROG
provided ALIAS function for assigning an ALIAS to a LOAD module.
Does any one remeber the syntax and control statements ?
I know TSO has a Command to Supply An Alias Name to a load module
Does any one remember IEHPROG having this capability ?.Paul
D'Angelo***

--
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: IEHPROG Alias Load module

[David Spiegel]

Hi Joe,
*IEBUPDTE has the ALIAS command.
IEBUPDTE, however, does not work on Load Modules.

Regards,
David

On 2021-06-30 21:21, Joe Monk wrote:

It's IEBUPDAT that has the ALIAS function

Joe

On Wed, Jun 30, 2021 at 11:18 AM esst...@juno.com  wrote:


Hello,
.
Many, Many, Years ago I seem to recall the utility IEHPROG
provided ALIAS function for assigning an ALIAS to a LOAD module.
Does any one remeber the syntax and control statements ?
I know TSO has a Command to Supply An Alias Name to a load module
Does any one remember IEHPROG having this capability ?.Paul
D'Angelo***

--
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: IEHPROG Alias Load module

[David Spiegel]

Hi R'Shmuel AMV"SH,
I am familiar with the PDS Command Processor (CBT File 182) and have 
been using it for more than 35 years.

The OP did not ask about Public Domain Software.

Regards,
David

On 2021-06-30 14:52, Seymour J Metz wrote:

If you don't have PDS or StarTool.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C5aaf81024f7d42c2830208d93bf84b77%7C84df9e7fe9f640afb435%7C1%7C0%7C637606759877394498%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=%2B2NMHqfPx2Bm%2FgcPYys%2BEXSn%2F%2BhjTot5vg17e5ahZrk%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Wednesday, June 30, 2021 12:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IEHPROG Alias Load module

Hi,
IEHPROGM doesn't do this.

In TSO, you can:
|RENAME test.data(member1) test.data(auxmem) ALIAS

Regards,
David|


On 2021-06-30 12:16, esst...@juno.com wrote:

Hello,
.
Many, Many, Years ago I seem to recall the utility IEHPROG
provided ALIAS function for assigning an ALIAS to a LOAD module.
Does any one remeber the syntax and control statements ?
I know TSO has a Command to Supply An Alias Name to a load module
Does any one remember IEHPROG having this capability ?.Paul 
D'Angelo***

--
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: IEHPROG Alias Load module

[David Spiegel]

Hi,
IEHPROGM doesn't do this.

In TSO, you can:
|RENAME test.data(member1) test.data(auxmem) ALIAS

Regards,
David|


On 2021-06-30 12:16, esst...@juno.com wrote:

Hello,
.
Many, Many, Years ago I seem to recall the utility IEHPROG
provided ALIAS function for assigning an ALIAS to a LOAD module.
Does any one remeber the syntax and control statements ?
I know TSO has a Command to Supply An Alias Name to a load module
Does any one remember IEHPROG having this capability ?.Paul 
D'Angelo***

--
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: Coding for the future

[David Spiegel]

Hi Gil,
No, the LINEND Character does not work in this instance (to retain the 
command buffer post-CMS crash.)


The LINEND Character (default "#") LOGICALLY separates the command(s) 
being placed into the CMS Buffer.
This buffer is destroyed when CMS crashes (due to the TERM CONMODE 3270 
Command).
The Linend is a "physical" separator in the CP buffer. That means 
everything before it is placed into the CMS Buffer.

Everything after the x"15" is run by CP after CMS crashes.

Here is an IPL EXEC from one of my MVS Guests:
/* Rexx */
CMD='TERM CONMODE 3270'
/* CMD=CMD || '15'X || 'IPL D21C LOADPARM 030624' */
/* CMD=CMD || '15'X || 'IPL D401 LOADPARM 030625' */
/* CMD=CMD || '15'X || 'IPL 0A80 LOADPARM 0A82CS' */
/* CMD=CMD || '15'X || 'IPL 0A80 LOADPARM 0A8223' */
/* CMD=CMD || '15'X || 'IPL 0A80 LOADPARM 0A8224' */
/* CMD=CMD || '15'X || 'IPL 0AC0 LOADPARM 0A8224' */
/* CMD=CMD || '15'X || 'IPL 0A80 LOADPARM 0A82WS' */
   CMD=CMD || '15'X || 'IPL 0A80 LOADPARM 0A8224'
SAY CMD
CMD

Regards,
David

On 2021-06-26 23:48, Paul Gilmartin wrote:

On Sat, 26 Jun 2021 22:49:43 -0400, David Spiegel wrote:

The newline as part of a string is critical in VM-Land for PROFILE EXECs
which want to IPL a Guest in a Rexx Exec.
It is necessary because, as soon as the TERM CONMODE 3270 is issued, CMS
is blown away, yet, the string is still in the CP Command buffer
(waiting to executed).


Isn't that neither X2C("0A") nor '15'x nor ESC_N, but the value set by
CP TERM LINEND, by default '#'?

I set CP TERM LINEND off in my PROFILE EXEC because all the default
options are too useful otherwise.

XEDIT has its own LINEND setting.  Default was '#" which caused me a
problem trying to XEDIT a file (supplied by IBM) with '#' in its name
when I couldn't disable XEDIT's LINEND before LOADing the file.
IBM fixed that by APAR to make XEDIT's default the CP value/


On 2021-06-26 08:25, Paul Gilmartin wrote:

On Fri, 25 Jun 2021 16:57:54 -0700, Charles Mills wrote:

And regarding #2, similarly

Bar = "blah blah" || X2C("0A") || "blah blah"


Or, perhaps:
  ... || '15'x || ...

This may motivate a question on TSO-REXX.


-Original Message-
From: Seymour J Metz
Sent: Friday, June 25, 2021 4:32 PM
 ...
2. A string literal whose value includes an embedded new line

-- 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: Coding for the future

[David Spiegel]

Hi Gil,
The newline as part of a string is critical in VM-Land for PROFILE EXECs 
which want to IPL a Guest in a Rexx Exec.
It is necessary because, as soon as the TERM CONMODE 3270 is issued, CMS 
is blown away, yet, the string is still in the CP Command buffer 
(waiting to executed).


Regards,
David

On 2021-06-26 08:25, Paul Gilmartin wrote:

On Fri, 25 Jun 2021 16:57:54 -0700, Charles Mills wrote:

And regarding #2, similarly

Bar = "blah blah" || X2C("0A") || "blah blah"


Or, perhaps:
 ... || '15'x || ...

This may motivate a question on TSO-REXX.


-Original Message-
From: Seymour J Metz
Sent: Friday, June 25, 2021 4:32 PM
...
2. A string literal whose value includes an embedded new line

-- 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: ISPF Edit: Introduce New SUBMIT Module

[David Spiegel]

Hi R'Shmuel AMV"SH,
I tried PGM(foo) and got ABEND 66D Code 02.
I tried CMD(foo), but, that gave me the TSO "version" of SUBMIT, 
including a prompt for DSNAME.


What I really want is to invoke foo the same way that ISPF 
EDIT/VIEW/BROWSE invokes SUBMIT. That is, it SUBMITs what the user is 
EDITin/BROWSEing/VIEWing.


Thanks and regards,
David

On 2021-06-24 11:38, Seymour J Metz wrote:

Is there an ISRCMDS tables? If so, that's how EDIT recognizes its command. Also 
it's valid to specify SELECT PGM(foo) in a command table.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C8f10a8dd8c93401a105908d937263722%7C84df9e7fe9f640afb435%7C1%7C0%7C637601459577261428%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=WD9bJTFgTb9vqcu1%2BTDsYFSUiiFTlOskqq8j%2BHMfg9c%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Jeremy Nicoll [jn.ls.mfrm...@letterboxes.org]
Sent: Thursday, June 24, 2021 10:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF Edit: Introduce New SUBMIT Module

On Thu, 24 Jun 2021, at 14:55, David Spiegel wrote:

Hi Jeremy,
I have an existing RYO SUBMIT Assembler program.
(Also, without Control Block chasing, I have not a way to access RPLRBAR
(for Job Number).)

How does that answer my question?

Why would you not wrap your existing code in just enough ispf macro
assembler to make it work?


I noticed that other people talked about ispf command table processing
in answer to your question about how ispf recognises a "submit" command,
but I'm under-convinced that command tables are relevant.  Surely ispf edit
recognises all its command line commands because it parses the command
line to determine what it's being asked to do?

Command tables are (or used to be) only for starting other commands (ie
clists, rexx execs or tso command processors) or programs from any ispf
command line on arbitrary panels in any application.  Eg the "tso" that one
can type before a tso command on a commandline executes a "select ..."
via a command-table definition (or it used to).

--
Jeremy Nicoll - my opinions are my own.

--
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: ISPF Edit: Introduce New SUBMIT Module

[David Spiegel]

Hi Jeremy,
I have an existing RYO SUBMIT Assembler program.
(Also, without Control Block chasing, I have not a way to access RPLRBAR 
(for Job Number).)


Regards,
David

On 2021-06-24 09:50, Jeremy Nicoll wrote:

On Thu, 24 Jun 2021, at 03:25, David Spiegel wrote:

Hi,
I need help to figure out how to add a new Primary Command to ISPF Edit,
so that I can test a RYO SUBMIT Command written in Assembler.
Let's assume that my module is called $UBMIT (with an ALIAS of $UB).
I do not want to write an Edit Macro to do this. (I already wrote one of
these). nor do want to invoke an Edit Macro which will call the Command
Processor.

Why precisely is an edit macro not an adequate solution, if you write it in
assembler?



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

Re: ISPF Edit: Introduce New SUBMIT Module

[David Spiegel]

Hi R'Shmuel AMV"SH,
I am aware that ISPF EDIT calls SUBMIT.

I want to be able to call a pre-existing Assembler program (which is in 
a PDS ahead of SYS1.CMDLIB  and will be renamed to $UBMIT (thereby 
"exposing" the IBM SUBMIT)) by changing one character of the ISPF 
Primary Command, so that for an interim period, users can use either the 
IBM SUBMIT or the RYO SUBMIT. If all goes well, I am planning to retire 
the RYO SUBMIT after a trial period.


Thanks and regards,
David

On 2021-06-24 08:28, Seymour J Metz wrote:

ISPF EDIT SUBMIT calls TSO SUBMIT. Did you mean that you want to RYO?

It is easy to copy some or all of the data to an internal reader, followed by a 
'/*EOF'. If you need to capture the jobid, a small assembler program can do 
that using the ACB/RPL interface.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C66e3e9ba8d374ad1013c08d9370b966f%7C84df9e7fe9f640afb435%7C1%7C0%7C637601345181896421%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=BkvKEHYwu%2BVSrDCQoAwda4mOndOH0VXjMGGN2FOYLiI%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Thursday, June 24, 2021 6:09 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF Edit: Introduce New SUBMIT Module

Hi Brian,
I am familiar with the Command Table. I want to set up a command to do
an ISPF Edit SUBMIT, not a TSO SUBMIT. That also means no  for
DSNAME.
That is, SUBMIT what is being EDITd/BROWSEd/VIEWd.

Thanks and regards,
David

On 2021-06-24 02:36, Brian Westerman wrote:

You can call you program anything you want and create a command table entry for 
it.  That way you can leave IBM's submit where it was/is is SYS1.CMDLIB.


i.e. (look in option 3.9 of ISPF) and add

YourCMD  SELECT PGM(yourPGM PRM('')) NEWAPPL(anything)


Then when the user types "yourCMD" it will invoke "yourPGM"

The PRM part is to pass a parm to yopur program, (in case they type "SUBMIT 
'somedataset(member)'".

However, if you call your program SUBMIT then it will work outside of ISPF as well, 
although it will work if you called it yourPGM just as well.  The command table just 
keeps them from having to type "TSO yourPGM" instead of just yourPGM or yourCMD.


In any case, you don't want to replace IBM's submit, you just want to make sure 
that yours is located before IBM's in either a steplib or in a linklist dataset 
that occurs BEFORE sys1.cmdlib.

I think using the name SUBMIT is a really really bad idea, unless you are going 
to create a alias for IBM's submit (maybe call it IBMSUB), so that if need be 
you can use it in case yours fails.

--
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: ISPF Edit: Introduce New SUBMIT Module

[David Spiegel]

Hi Brian,
I am familiar with the Command Table. I want to set up a command to do 
an ISPF Edit SUBMIT, not a TSO SUBMIT. That also means no  for 
DSNAME.

That is, SUBMIT what is being EDITd/BROWSEd/VIEWd.

Thanks and regards,
David

On 2021-06-24 02:36, Brian Westerman wrote:

You can call you program anything you want and create a command table entry for 
it.  That way you can leave IBM's submit where it was/is is SYS1.CMDLIB.


i.e. (look in option 3.9 of ISPF) and add

YourCMD  SELECT PGM(yourPGM PRM('')) NEWAPPL(anything)


Then when the user types "yourCMD" it will invoke "yourPGM"

The PRM part is to pass a parm to yopur program, (in case they type "SUBMIT 
'somedataset(member)'".

However, if you call your program SUBMIT then it will work outside of ISPF as well, 
although it will work if you called it yourPGM just as well.  The command table just 
keeps them from having to type "TSO yourPGM" instead of just yourPGM or yourCMD.


In any case, you don't want to replace IBM's submit, you just want to make sure 
that yours is located before IBM's in either a steplib or in a linklist dataset 
that occurs BEFORE sys1.cmdlib.

I think using the name SUBMIT is a really really bad idea, unless you are going 
to create a alias for IBM's submit (maybe call it IBMSUB), so that if need be 
you can use it in case yours fails.

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

ISPF Edit: Introduce New SUBMIT Module

[David Spiegel]

Hi,
I need help to figure out how to add a new Primary Command to ISPF Edit, 
so that I can test a RYO SUBMIT Command written in Assembler.

Let's assume that my module is called $UBMIT (with an ALIAS of $UB).
I do not want to write an Edit Macro to do this. (I already wrote one of 
these). nor do want to invoke an Edit Macro which will call the Command 
Processor.


(The user will type $UB on the Edit Command Line and use the RYO program 
instead of the IBM-supplied SUB.)


(As an aside, one of the reasons it has to be written in Assembler is so 
that the program can access the INTRDR's RPLRBAR and thereby TPUT the 
Job Number after SUBMIT.)


Another related question: How does ISPF "know" what SUBMIT means?

Thank you in advance,
David

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

Re: ISPF Edit Macro Regular Expression

[David Spiegel]

Hi Seann,
Thank you!

Regards,
David

On 2021-05-30 06:06, Sean Gleann wrote:

David:
"...I still would like to know how to display which codepage I am using"

I can't see that anyone else has said this, so I might be repeating
something...
In PCOMM, start up a session, and you should see a menu bar at the top,
where one of the options is 'Communication'.
Click on that, then 'Configuration', then 'Session Parameters'.
The value given in the 'Host Code-page' drop-down is what you're looking
for, I think.

Regards
Sean



On Sun, 30 May 2021 at 04:15, Charles Mills  wrote:


That's why we get the big bucks.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Seymour J Metz
Sent: Saturday, May 29, 2021 6:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF Edit Macro Regular Expression


I hate EBCDIC issue, it's a multiple code page set issue!. Pop quiz: when

using REXX on a PC, is ¬ 'AA'X or 'AC'X?  And, yes, you can cheat and use \
so you don't have to care which code page and which interpreter, but why
should you have to? And what if you want to download exist REXX code from,
e.g., z/OS, zVM?

--
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: ISPF Edit Macro Regular Expression

[David Spiegel]

4 and 6 look weird.

On 2021-05-28 14:57, Seymour J Metz wrote:

There's probably a dialog variable for it, but I don't recall. Meanwhile, what 
happens with teminal type 4 and 6?

If you manually start ISPF from the READY prompt, you can specify a codepage on 
ISPSTART.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C2425f20fbce34c88a69b08d9220a7b7e%7C84df9e7fe9f640afb435%7C1%7C0%7C637578250693252217%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=o%2FHWj%2BqGcjkPjDJ9SDk6qnlIW5B4jO5ojPHXZbUE8V4%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Friday, May 28, 2021 2:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF Edit Macro Regular Expression

Hi R'Shmuel AMV"SH,
I am using PCOMM.
How do I display the Code Page?

ISPF Option 0:
Log/List  Function keys  Colors  Environ Workstation  Identifier  Help
ss
  ISPF Settings
Command ===>

Options   Print Graphics
Enter "/" to select optionFamily printer type 2
   Command line at bottom Device name . . . .
/  Panel display CUA mode Aspect ratio  . . . 0
/  Long message in pop-up
/  Tab to action bar choices
   Tab to point-and-shoot fields General
/  Restore TEST/TRACE options Input field pad . . B
   Session Manager mode   Command delimiter . ;
/  Jump from leader dots
   Edit PRINTDS Command
/  Always show split line
   Enable EURO sign

Member list options
Enter "/" to select option
/  Scroll member list
   Allow empty member list
   Allow empty member list (nomatch)
/  Empty member list for edit only

Terminal Characteristics
Screen format   3  1. Data2. Std 3. Max 4. Part

Terminal Type   31. 3277   2. 3277A  3. 3278 4. 3278A
 5. 3290A  6. 3278T  7. 3278CF 8. 3277KN
 9. 3278KN10. 3278AR11. 3278CY 12. 3278HN
13. 3278HO14. 3278IS15. 3278L2 16. BE163
17. BE190 18. 3278TH19. 3278CU 20. DEU78
21. DEU78A22. DEU78T23. DEU90A 24. SW116
25. SW131 26. SW500 27. 3278GR 28. 3278L1
29. OTHER


Regards,
David

On 2021-05-28 13:49, Seymour J Metz wrote:

What code pages are you using and what does ISPF show under option 0?

https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSZJDU_6.2.0%2Fcom.ibm.itnetviewforzos.doc_6.2%2Fdqd_custocbe_codepage.htmdata=04%7C01%7C%7C2425f20fbce34c88a69b08d9220a7b7e%7C84df9e7fe9f640afb435%7C1%7C0%7C637578250693252217%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=nF5yi9%2FkJHnG68RRv4eyYtoxp4Kl902gjnZqt726L4s%3Dreserved=0
"In codepage 037, the left bracket character [ is X'BA', the right bracket character 
] is X'BB'. However, in code pages 1047 and 939, the left bracket character [ is X'AD', 
the right bracket character ] is X'BD'."



--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C2425f20fbce34c88a69b08d9220a7b7e%7C84df9e7fe9f640afb435%7C1%7C0%7C637578250693252217%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=o%2FHWj%2BqGcjkPjDJ9SDk6qnlIW5B4jO5ojPHXZbUE8V4%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Friday, May 28, 2021 1:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ISPF Edit Macro Regular Expression

Hi,
I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular
Expression.
I'm getting a ISRE997 on this line:
"ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3
7CEDCCCE4CCDC4D7ACD775B774F444
F92954930695409DD12345678912345678923456789CBBDDF03000

I turned HEX ON so that my square brackets can be displayed. (I used
x'AD' and x'BD').
I am trying to find the next JCL Statement with a valid label (i.e. an
Alphabetic or National Character in Column 3).
Ideally I would like to start my search at  column 1 and FIND //
followed Alphabetic/National in Column 3),

Please help.

Thanks and regards,
David

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lis

Re: ISPF Edit Macro Regular Expression

[David Spiegel]

Hi R'Shmuel AMV"SH.
I changed the brackets to x'BA' and x'BB'.
Now, it works.
Thank you!

I still would like to know how to display which codepage I am using.
Any ideas?

Thanks and regards,
David

On 2021-05-28 13:49, Seymour J Metz wrote:

What code pages are you using and what does ISPF show under option 0?

https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSZJDU_6.2.0%2Fcom.ibm.itnetviewforzos.doc_6.2%2Fdqd_custocbe_codepage.htmdata=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=XMqut0VkUqEx3ZZ%2BZv0x6JhS66IclZN1N7uwhaLo928%3Dreserved=0
"In codepage 037, the left bracket character [ is X'BA', the right bracket character 
] is X'BB'. However, in code pages 1047 and 939, the left bracket character [ is X'AD', 
the right bracket character ] is X'BD'."



--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=3qlObBaE0LnaMhGs57%2BI3aqdvUv5Qdo0SkdZIXw8qtI%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Friday, May 28, 2021 1:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ISPF Edit Macro Regular Expression

Hi,
I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular
Expression.
I'm getting a ISRE997 on this line:
"ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3
7CEDCCCE4CCDC4D7ACD775B774F444
F92954930695409DD12345678912345678923456789CBBDDF03000

I turned HEX ON so that my square brackets can be displayed. (I used
x'AD' and x'BD').
I am trying to find the next JCL Statement with a valid label (i.e. an
Alphabetic or National Character in Column 3).
Ideally I would like to start my search at  column 1 and FIND //
followed Alphabetic/National in Column 3),

Please help.

Thanks and 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
.


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

Re: ISPF Edit Macro Regular Expression

[David Spiegel]

Hi R'Shmuel AMV"SH,
I am using PCOMM.
How do I display the Code Page?

ISPF Option 0:
  Log/List  Function keys  Colors  Environ Workstation  Identifier  Help
ss
    ISPF Settings
Command ===>

Options   Print Graphics
  Enter "/" to select option    Family printer type 2
 Command line at bottom Device name . . . .
  /  Panel display CUA mode Aspect ratio  . . . 0
  /  Long message in pop-up
  /  Tab to action bar choices
 Tab to point-and-shoot fields General
  /  Restore TEST/TRACE options Input field pad . . B
 Session Manager mode   Command delimiter . ;
  /  Jump from leader dots
 Edit PRINTDS Command
  /  Always show split line
 Enable EURO sign

Member list options
  Enter "/" to select option
  /  Scroll member list
 Allow empty member list
 Allow empty member list (nomatch)
  /  Empty member list for edit only

Terminal Characteristics
  Screen format   3  1. Data    2. Std 3. Max 4. Part

  Terminal Type   3    1. 3277   2. 3277A  3. 3278 4. 3278A
   5. 3290A  6. 3278T  7. 3278CF 8. 3277KN
   9. 3278KN    10. 3278AR    11. 3278CY 12. 3278HN
  13. 3278HO    14. 3278IS    15. 3278L2 16. BE163
  17. BE190 18. 3278TH    19. 3278CU 20. DEU78
  21. DEU78A    22. DEU78T    23. DEU90A 24. SW116
  25. SW131 26. SW500 27. 3278GR 28. 3278L1
  29. OTHER


Regards,
David

On 2021-05-28 13:49, Seymour J Metz wrote:

What code pages are you using and what does ISPF show under option 0?

https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSZJDU_6.2.0%2Fcom.ibm.itnetviewforzos.doc_6.2%2Fdqd_custocbe_codepage.htmdata=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=XMqut0VkUqEx3ZZ%2BZv0x6JhS66IclZN1N7uwhaLo928%3Dreserved=0
"In codepage 037, the left bracket character [ is X'BA', the right bracket character 
] is X'BB'. However, in code pages 1047 and 939, the left bracket character [ is X'AD', 
the right bracket character ] is X'BD'."



--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=3qlObBaE0LnaMhGs57%2BI3aqdvUv5Qdo0SkdZIXw8qtI%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Friday, May 28, 2021 1:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ISPF Edit Macro Regular Expression

Hi,
I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular
Expression.
I'm getting a ISRE997 on this line:
"ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3
7CEDCCCE4CCDC4D7ACD775B774F444
F92954930695409DD12345678912345678923456789CBBDDF03000

I turned HEX ON so that my square brackets can be displayed. (I used
x'AD' and x'BD').
I am trying to find the next JCL Statement with a valid label (i.e. an
Alphabetic or National Character in Column 3).
Ideally I would like to start my search at  column 1 and FIND //
followed Alphabetic/National in Column 3),

Please help.

Thanks and 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
.


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

ISPF Edit Macro Regular Expression

[David Spiegel]

Hi,
I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular 
Expression.

I'm getting a ISRE997 on this line:
"ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3
7CEDCCCE4CCDC4D7ACD775B774F444
F92954930695409DD12345678912345678923456789CBBDDF03000

I turned HEX ON so that my square brackets can be displayed. (I used 
x'AD' and x'BD').
I am trying to find the next JCL Statement with a valid label (i.e. an 
Alphabetic or National Character in Column 3).
Ideally I would like to start my search at  column 1 and FIND // 
followed Alphabetic/National in Column 3),


Please help.

Thanks and regards,
David

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

Re: Best catch up resources for MVS / ZOS Technologies

[David Spiegel]

Hi gil,
Which correct tool did you use?

Thanks and regards,
David

On 2021-05-19 23:16, Paul Gilmartin wrote:

On Thu, 20 May 2021 03:13:19 +0100, CM Poncelet wrote:


Saving "test.pdf.txt", renaming it as "test.pdf" and then trying to open
it as a PDF produces the following error message: "Adobe reader could
not open 'test.pdf' because it is either not a supported file type or
because the file has been damaged (for example, it was sent as an email
attachment and wasn't correctly decoded)."
  
HTH.
   

But using the correct tool, I was able to open it cleanly with Adobe Reader.

"rename" is simply the wrong tool.

-- 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: SMPE: Element Contains CLIST with ALIAS

[David Spiegel]

Hi Scott,
It's done by a BLDL and a STOW.

Regards,
David

On 2021-05-10 17:36, A T & T Management wrote:
  
OK

Now on to the problem, The alias should be created at apply time.  How this is 
done I don't recall and don't have access to my machine at this time.
Scott
 On Monday, May 10, 2021, 5:01:21 PM EDT, David Spiegel 
 wrote:
  
  Hi Scott,

You're right. I would've done this, but, the customer insisted it has to
be a PTF.

Regards,
David

On 2021-05-10 16:48, A T & T Management wrote:

   Why not do this in a usermod?
Scott

       On Monday, May 10, 2021, 2:25:47 PM EDT, Kurt Quackenbush 
 wrote:
   
   On 5/10/2021 1:15 PM, David Spiegel wrote:



I added a CLIST as part of a PTF.
(This is not vendor software.)
++CLIST(ABCXYZ) ALIAS(XYZ) DISTLIB(ACLIST) SYSLIB(CLIST).
PROC 0
WRITE HI

When I ran the APPLY Job, the IEBCOPY Output showed
COPY OUTDD=CLIST,INDD=SMPWRK6
      S M=((A000,ABCXYZ,R))

Where does (the ALIAS) XYZ get copied to //CLIST?
(It is there after the Job runs, but, there is no record of it in the
Job Output.)

After the IEBCOPY operation SMP/E creates the alias in the data set
directly using the STOW data management macro.

Kurt Quackenbush -- IBM, SMP/E Development
Chuck Norris never uses CHECK when he applies PTFs.

--
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: SMPE: Element Contains CLIST with ALIAS

[David Spiegel]

Hi Scott,
You're right. I would've done this, but, the customer insisted it has to 
be a PTF.


Regards,
David

On 2021-05-10 16:48, A T & T Management wrote:

  Why not do this in a usermod?
Scott

 On Monday, May 10, 2021, 2:25:47 PM EDT, Kurt Quackenbush 
 wrote:
  
  On 5/10/2021 1:15 PM, David Spiegel wrote:



I added a CLIST as part of a PTF.
(This is not vendor software.)
++CLIST(ABCXYZ) ALIAS(XYZ) DISTLIB(ACLIST) SYSLIB(CLIST).
PROC 0
WRITE HI

When I ran the APPLY Job, the IEBCOPY Output showed
COPY OUTDD=CLIST,INDD=SMPWRK6
    S M=((A000,ABCXYZ,R))

Where does (the ALIAS) XYZ get copied to //CLIST?
(It is there after the Job runs, but, there is no record of it in the
Job Output.)

After the IEBCOPY operation SMP/E creates the alias in the data set
directly using the STOW data management macro.

Kurt Quackenbush -- IBM, SMP/E Development
Chuck Norris never uses CHECK when he applies PTFs.

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

SMPE: Element Contains CLIST with ALIAS

[David Spiegel]

Hi,
I added a CLIST as part of a PTF.
(This is not vendor software.)
++CLIST(ABCXYZ) ALIAS(XYZ) DISTLIB(ACLIST) SYSLIB(CLIST).
PROC 0
WRITE HI

When I ran the APPLY Job, the IEBCOPY Output showed
COPY OUTDD=CLIST,INDD=SMPWRK6
 S M=((A000,ABCXYZ,R))

Where does (the ALIAS) XYZ get copied to //CLIST?
(It is there after the Job runs, but, there is no record of it in the 
Job Output.)


Thanks and regards,
David

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

Re: Pronunciations (spun off of another thread)

[David Spiegel]

CICS are for Trids.

On 2021-05-09 20:35, Chris Hoelscher wrote:

Silly rabbit, TRICS are for kids .

Chris Hoelscher
Lead Sys DBA
IBM Global Technical Services on assignmemt to Humana Inc.
T 502.476.2538  or 502.407.7266

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Sunday, May 9, 2021 6:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [IBM-MAIN] Pronunciations (spun off of another thread)

[External Email: Use caution with links and attachments]


So I guess it's not true what Paul Revere and the Raiders sang?

CICS just keep getting' harder to find

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Schwab
Sent: Sunday, May 9, 2021 12:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Pronunciations (spun off of another thread)

Sure.
State Farm and Country Companies in Bloomington Normal IL are on Route
66 (4 lane bypass Veterans Parkway).
Illinois State University has their computer center a few blocks off the 
downtown route.
Horace Mann does and Franklin Life used to in Springfield IL on old Route 66 
(5th&6th / 9th).
Central Management Services, Secretary of State, formerly State Police for 
State of Illinois a couple of blocks off the 2nd street route.
And that would cover the segment between Joliet and Edwardsville in Illinois.
And not certain there weren't other mainframes.

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

The information transmitted is intended only for the person or entity to which 
it is addressed
and may contain CONFIDENTIAL material.  If you receive this 
material/information in error,
please contact the sender and delete or destroy the material/information.

Humana Inc. and its subsidiaries comply with applicable Federal civil rights 
laws and
do not discriminate on the basis of race, color, national origin, ancestry, 
age, disability, sex,
marital status, gender, sexual orientation, gender identity, or religion. 
Humana Inc. and its subsidiaries do not
exclude people or treat them differently because of race, color, national 
origin, ancestry, age,
disability, sex, marital status, gender, sexual orientation, gender identity, 
or religion.

English: ATTENTION: If you do not speak English, language assistance services, 
free
of charge, are available to you. Call 1‐877‐320‐1235 (TTY: 711).

Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición servicios
gratuitos de asistencia lingüística. Llame al 1‐877‐320‐1235 (TTY: 711).

繁體中文(Chinese):注意:如果您使用繁體中文,您可以免費獲得語言援助
服務。請致電 1‐877‐320‐1235 (TTY: 711)。

Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, gen sèvis 
èd
pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235 (TTY: 711).

Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać z bezpłatnej
pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711).

한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로
이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오.


--
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: Pronunciations (spun off of another thread)

[David Spiegel]

Hi Bob,
This reminds me of a story.
Back in 2000, I was doing an ACF2 to RACF conversion and one of the 
customer's people kept saying Ra-Keff (instead of Rack-Eff.)

This REALLY got on my nerves.

As an aside, a former colleague (with a British accent) always says ZOSS 
(instead of Zed-Oh-Ess or Zee-Oh-Ess).

(He's not really British.)

Have you ever heard ANYONE say IMZ (instead of Eye-Emm-Ess)?

Regards,
David

On 2021-05-08 17:02, Bob Bridges wrote:

I grew up with "doss" and "see-eye-see-ess", but even here in the East I've heard "kicks" 
often enough that I can adjust now if that's what the current crowd uses.  Actually I think sysprogs say 
"kicks" more than application programmers, for some reason.

I've heard "sicks" just once, I believe, but I don't remember where the speaker 
was from.

"Rack-eff", of course, so I guess I could excuse either "pee-rack-eff" or 
"prack-eff".  Dunno what it is, though.

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

/* One of the quickest ways I've found to look foolish is to state positively 
what God will not do.  -Bob Bridges */

-----Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
David Spiegel
Sent: Friday, May 7, 2021 17:10

(I'm also from Southern Ontario -- I say doss and cics.)

--
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: Pronunciations (spun off of another thread)

[David Spiegel]

Hi Phil,
This reminds me of a story ...
Approximately 20 years ago, my colleague and myself (same colleague as 
the other story) were supporting a company in QC.
Every time the customer called, it took (what seemed like forever) for 
the introductory hello.
Part of it was due to their announcing the company name letter-by-letter 
(rather than having an acronym).

(Their company name was abbreviated to 6 letters.)
Since English wasn't their mother tongue, they spoke really slowly which 
added to the snail pace.
We suggested to them that they should make a word out of the company 
initials to speed things up on the phone.


(I'm also from Southern Ontario -- I say doss and cics.)

Regards,
David

On 2021-05-07 15:25, Phil Smith III wrote:

Recapping:

  


Tom Brennan asked:


Side subject - so how do you pronounce CPACF?  I always say each letter,
but some IBM crypto folks say C-Pack-F
  


I spell it out. "See-pack-eff" makes my head hurt.

  


Chris Hoelscher added:


Or, for that matter, is it C - I - C - S or KIX? (I use the former, but I

know many use the latter)

  


René Jansen:
My observation: Brits say KIX, Americans C-I-C-S and Germans, Austrians and

Swiss say SIKS.

  


And is it Italians or Brasilians who say "cheeks"? That's my favorite.

  


Charles Mills:
When I moved Eastern to Western US many moons ago it seemed to me as if in

the East I had always heard the acronyms spelled out: D-O-S, C-I-C-S; but
that in the West I heard "doss" and "kicks."

  


I grew up in Southern Ontario, have been at vendors in the East for 35
years; I've always said "doss" and see-eye-see-ess. Go figure.

  


DASD is always pronounced, isn't it? Does anyone ever say D-A-S-D?
  


Non-mainframers!

  


Db2 on the other hand is always spelled. No one ever says "dub-two."
  


But they mostly spell it wrong ("DB2"). That's IBM's fault for changing it.

  


wjanulin:
That is ok. I once had a senior manager ask me what was the difference

between C.I.C.S. and kicks. With a smile, l told him they are one in the
same.

  


*one AND the same (just sayin').

  


Tom Brennan   t...@tombrennansoftware.com

via ua.edu


Ha ha - now you reminded me of a phone call years ago with an ISV
programmer in England (I'm in USA).  The guy said something like, "What
does that Wah-Toe indicate?"  And I'm like, Wah-Toe   Oh... it's WTO :)
  


A friend worked with someone who pronounced EVERYTHING like words. So
"CPACF" would probably be something like "suh-pack-eff". Not recommending
this approach, mind you.

  


I say C-I-C-S too.
  


Oops... this is the stuff David Crayford said drives people away from
this group.  I'll stop now.
  


Nah. As Dave Gibney notes, DELETE key is easy. But hijacking a thread is
arguably uncool (not complainin' myself, just noting that there is a
reasonable argument that says "If you're gonna change the subject, change
the subject"), hence this note!


--
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: 3270 emulator / telnet with encryption

[David Spiegel]

Hi Richard,
This reminds me of a story.
Approximately 26 years ago, myself and a colleague were invited to a 
multi-vendor meeting at a customer site to help solve a problem.
My colleague had the misfortune of pronouncing "SAP" as "sap" (rather 
than Ess-Ay-Pee). The SAP guys there went stark raving mad and were

almost screaming at my colleague for this perceived infraction.
I suggested to my colleague that it was probably time for a B-E-E-R.

Regards,
David

On 2021-05-07 16:19, PINION, RICHARD W. wrote:

M-I-C-K-E-Y  M-O-U-S-E.  Who remembers that song?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Radoslaw Skorupka
Sent: Friday, May 7, 2021 4:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: 3270 emulator / telnet with encryption

[External Email. Exercise caution when clicking links or opening attachments.]

Poland:
kicks for CICS
C-P-A-C-F for CPACF (*) , (**)

* Polish pronunciacion of letters. To start a war: we have consistent rules. 
Not like Cincinnati and car.  ;-) Actually it's very similar to Latin.

** While CICS is rather not used very much on the streets, the CPACF is almost 
unknown even in among mainframers.
I used to teach Introduction to ICSF and mainframe crypto HW. BTW: In the past 
I had to explain mainframe CE IBMers what is CCF and how to enable it. 
Fortunately I forbade to drop anything from mainframe add-ons and we found 
enablement diskette. It was valid for given serial number, so it wouldn't be 
nice to loose it. Old story. Few years later some CE performed checkout test on 
z800 and ...cleared all the master keys in CCF. Fortunately I had some 
procedures and backup copies...

--
Radoslaw Skorupka
(looking for new job)
Lodz, Poland






W dniu 07.05.2021 o 21:24, Eric D Rossman pisze:

I'm probably the odd one out, but I say "SEE-pack-eff" and "kicks" for
CPACF and CICS and I'm on the east coast of the US.

And, yes, we (ICSF) do exploit the new z15 CPACF functions available
with
MSAE9 (Compute Digital Signature Authentication (KDSA)) for EC key
pair generation, digital signature generate/verify, and key agreement
for curves P-256, P-384, P-521, Ed25519, and Ed448. Since System SSL
calls us for those curves, they get the performance benefit as well.

Eric Rossman, CISSP®
ICSF Cryptographic Security Development z/OS Enabling Technologies
edros...@us.ibm.com

IBM Mainframe Discussion List  wrote on
05/07/2021 12:57:01 PM:


From: Lennie Dymoke-Bradshaw

<032fff1be9b4-dmarc-requ...@listserv.ua.edu>

Tom,

CPACF is considered part of weaponry by the US government and so it
has to be capable of being disabled for those countries where
exportation of encryption is restricted by US Govt arms rules. This
is why it has to be explicitly selected.

CPACF is actually a pre-requisite for enabling a Crypto Express
device. CPACF is used extensively in TLS. TLS uses clear key
encryption for data transport and this is where the majority of
encryption work is performed in TLS. However, I see the latest CPACF
on Z15s have some new asymmetric functions, so maybe CPACF can be
used in the TLS handshake as well now.

Lennie Dymoke-Bradshaw

-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Tom Brennan
Sent: 07 May 2021 16:55
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: 3270 emulator / telnet with encryption

On 5/7/2021 6:19 AM, Phil Smith III wrote:


It's a reasonably safe bet that any machine today has CPACF; that
was not always true, of course.

When IBM or a business partner configures a new machine, there's a
checkmark for CPACF (zero charge), but it defaults to unchecked.  So
when ordering a new machine I'd suggest the customer ask to make sure
that free feature code is supplied.

If the machine comes with a crypto card, CPACF is automatically
selected and required.  No need to ask in that case.

Side subject - so how do you pronounce CPACF?  I always say each
letter, but some IBM crypto folks say C-Pack-F

--
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
Confidentiality notice:
This e-mail message, including any attachments, may contain legally privileged 
and/or confidential information. If you are not the intended recipient(s), or 
the employee or agent responsible for delivery of this message to the intended 
recipient(s), you are hereby notified that any dissemination, distribution, or 
copying of this e-mail message is strictly prohibited. If you have received 
this message in error, please immediately notify the sender and delete this 
e-mail message from your computer.


--
For IBM-MAIN subscribe 

Re: Now it's easier to find stuff on the CBT Tape

[David Spiegel]

Hi Peter/Brian,
Where did you turn on debug?

Thanks and regards,
David

On 2021-05-02 03:40, Peter Vels wrote:

Brian, you are too kind.  You did 99% of the work.
Peter

On Sun, 2 May 2021 at 16:22, Brian Westerman 
wrote:


Thanks to some timely help from Peter Vels who suggested tracing the FTP
routine, I was able to find the problem. At my site the "locsite
fwfriendly" is required.  I still don't know why that is, but it has been
that way at several of the site I manage as well, (but not all).  Changing
that to be there (it was commented out in the CBT exec), made it work.

Thanks again to Peter for pointing the way.

Brian

On Sun, 2 May 2021 00:03:15 -0500, Brian Westerman <
brian_wester...@syzygyinc.com> wrote:


Please ignore this problem.  When I went back and read the instructions I

saw that I'm suppose to UNZIP FILE001 before I upload it in binary format
to the sequential dataset.  Once I did that it loaded okay.

Just goes to show you, read the instructions closely before you complain.

:)

Now I have to work on getting the FTP part to work because it's not as

much use without that, (except I do like that you can see the comments when
you select the entry).

Does anyone know how to turn DEBUG on to see what's going wrong with FTP?

Brian


On Sat, 1 May 2021 23:52:08 -0500, Brian Westerman <

brian_wester...@syzygyinc.com> wrote:

I can't get CBTVIEW to work,  I get to the part where it tries to

download the File001 and it fails, so I downloaded it to my workstation and
uploaded it to the mainframe as a FB 80 9440 file and now I get a message
that says build completed (then it pauses for about 60 seconds) and then I
get:

IEC141I 013-18,IGG0191B,BRIANW,$SYSTEMS,CBT78000,1466,PROD04,
BRIANW.FILEIDX.PDS(CBTINDEX)
IRX0250E System abend code 013, reason code 0024.
IRX0255E Abend in host command execio or address environment routine

TSO.

IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=013  REASON CODE=0018
TIME=21.40.14  SEQ=37529  CPU=  ASID=00E0
PSW AT TIME OF ERROR  075C1000   80E74598  ILC 2  INTC 0D
   NO ACTIVE MODULE FOUND
   NAME=UNKNOWN
   DATA AT PSW  00E74592 - 4100302C  0A0D010D  A7E5014B
   AR/GR 0: 00AFBF84/_00E748A0   1: /00AA2D94_A4013000
 2: /_00072250   3: /_00E74874
 4: /_00AAA410   5: /_00AAA7A4
 6: /_00AAA74C   7: /_00AAA7A4
 8: /_00AAA76C   9: /_00072280
 A: /_00F9D658   B: /_7F515CE8
 C: /_0008   D: /_00AAA7A4
 E: /_80E73DF6   F: /_0018
END OF SYMPTOM DUMP
IRX0670E EXECIO error while trying to GET or PUT a record.
***
I agree with the s013-18 because the CBTINDEX member is not there to

open, but so much of this is hidden behind the CBT rexx exec that I can't
tell where it's failing.

I think that FILE001 being in ZIP format might be hurting this, but I

think the CBT exec is supposed to unzip it first, but maybe I'm wrong.  Has
anyone got this to work or should I just start debugging now?

--
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: MQ For z/os

[David Spiegel]

Hi Mark,
I recently upgraded 9.0-9.1 on z/OS V2.3

One thing to know is that (ZPARM ) OPMODE (in CSQ6SYSP Macro) no longer 
available, chooses between COMPAT and NEWFUNC.
(As of 9.1, it's all effectively NEWFUNC). This also (besides not 
allowing going backwards) means that you should set your REGION=0M and 
MEMLIMIT=3G.


Before upgrading, I would backup all of the VSAMs
// JOB
//STEP001 EXEC PGM=ADRDSSU
//SYSPRINT DD  SYSOUT=*
//ODD  DD  DISP=(.CATLG,DELETE),
// UNIT=TAPE,
// RECFM=U,BLKSIZE=27998,
// DSN=VSAMBKUP
//SYSIN    DD  *
  DUMP DS( -
   INCL( -
    PSID00 -
    BSDS01 -
    BSDS02 -
    LOGCOPY1.DS01 -
    LOGCOPY2.DS01 -
 ) -
 ODD(ODD) -
 OPT(4) -
 SHR -
 SPHERE -
 TOL(ENQF)

 and also generate the definitions (as commands) via MAKEDEF Commands:
//PS00 EXEC PGM=CSQUTIL,PARM=CSQ1
//STEPLIB DD DISP=SHR,DSN=.SCSQAUTH
// DD DISP=SHR,DSN=.SCSQANLE
//OUTPUT1 DD DISP=OLD,DSN=COMMANDS(CFSTRUCT)
//OUTPUT2 DD DISP=OLD,DSN=COMMANDS(CHANNEL)
//OUTPUT3 DD DISP=OLD,DSN=COMMANDS(CHLAUTH)
//OUTPUT4 DD DISP=OLD,DSN=COMMANDS(AUTHINFO)
//OUTPUT5 DD DISP=OLD,DSN=COMMANDS(NAMELIST)
//OUTPUT6 DD DISP=OLD,DSN=COMMANDS(PROCESS)
//OUTPUT7 DD DISP=OLD,DSN=COMMANDS(QALIAS)
//OUTPUT8 DD DISP=OLD,DSN=COMMANDS(QLOCAL)
//OUTPUT9 DD DISP=OLD,DSN=COMMANDS(QMODEL)
//OUTPUT0 DD DISP=OLD,DSN=COMMANDS(QREMOTE)
//OUTPUTA DD DISP=OLD,DSN=COMMANDS(QUEUE)
//OUTPUTB DD DISP=OLD,DSN=COMMANDS(STGCLASS)
//OUTPUTC DD DISP=OLD,DSN=.COMMANDS(TOPIC)
//OUTPUTD DD DISP=OLD,DSN=COMMANDS(QMGRALL)
//OUTPUTE DD DISP=OLD,DSN=COMMANDS(CHLAUTH)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COMMAND DDNAME(CMDINP1) MAKEDEF(OUTPUT1)
COMMAND DDNAME(CMDINP2) MAKEDEF(OUTPUT2)
COMMAND DDNAME(CMDINP3) MAKEDEF(OUTPUT3)
COMMAND DDNAME(CMDINP4) MAKEDEF(OUTPUT4)
COMMAND DDNAME(CMDINP5) MAKEDEF(OUTPUT5)
COMMAND DDNAME(CMDINP6) MAKEDEF(OUTPUT6)
COMMAND DDNAME(CMDINP7) MAKEDEF(OUTPUT7)
COMMAND DDNAME(CMDINP8) MAKEDEF(OUTPUT8)
COMMAND DDNAME(CMDINP9) MAKEDEF(OUTPUT9)
COMMAND DDNAME(CMDINP0) MAKEDEF(OUTPUT0)
COMMAND DDNAME(CMDINPA) MAKEDEF(OUTPUTA)
COMMAND DDNAME(CMDINPB) MAKEDEF(OUTPUTB)
COMMAND DDNAME(CMDINPC) MAKEDEF(OUTPUTC)
COMMAND DDNAME(CMDINPD) MAKEDEF(OUTPUTD)
COMMAND DDNAME(CMDINPE) MAKEDEF(OUTPUTE)
//CMDINP1 DD *
DISPLAY CFSTRUCT(*) ALL
//CMDINP2 DD *
DISPLAY CHANNEL(*) ALL
//CMDINP3 DD *
DISPLAY CHLAUTH(*) ALL
//CMDINP4 DD *
DISPLAY AUTHINFO(*) ALL
//CMDINP5 DD *
DISPLAY NAMELIST(*) ALL
//CMDINP6 DD *
DISPLAY PROCESS(*) ALL
//CMDINP7 DD *
DISPLAY QALIAS(*) ALL
//CMDINP8 DD *
DISPLAY QLOCAL(*) ALL
//CMDINP9 DD *
DISPLAY QMODEL(*) ALL
//CMDINP0 DD *
DISPLAY QREMOTE(*) ALL
//CMDINPA DD *
DISPLAY QUEUE(*) ALL
//CMDINPB DD *
DISPLAY STGCLASS(*) ALL
//CMDINPC DD *
DISPLAY TOPIC(*) ALL
//CMDINPD DD *
DISPLAY QMGR ALL
//CMDINPE DD *
DISPLAY CHLAUTH(*) ALL

Once it comes up, run a Batch Job:
// JOB
//STEP001 EXEC PGM=CSQUTIL,PARM=CSQ1 (where CSQ1 is the "name" of your 
Queue Manager)

//STEPLIB  DD  DISP=SHR,DSN=.SCSQAUTH
// DISP=SHR,DSN=.SCSQANLE
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
ALTER BUFFERPOOL(0) LOCATION(ABOVE)
ALTER BUFFERPOOL(1) LOCATION(ABOVE)
ALTER BUFFERPOOL(2) LOCATION(ABOVE)
ALTER BUFFERPOOL(30 LOCATION(ABOVE)

Regards,
David

On 2021-04-27 11:52, Steely.Mark wrote:

Has anyone upgraded from MQ 9.0 to 9.2 ?

Is there any PTF's that need to be applied to 9.0 before going to 9.2. This is 
the only thing I have found:

While at MQ 9.0, take a full backup of the queue managers. Why? Because the 
upgrade process is NOT reversible. If you need to revert back from MQ 9.1 to 
9.0, then you must delete the queue managers and restore the backup taken at MQ 
9.0.

I know this statement is talking about 9.1 but I think it would also relate 
going to 9.2.

Any information relating to upgrading MQ would be appreciated.

Thank You




*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately 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: Diagram of MVS Control Blocks

[David Spiegel]

*MSS

On 2021-04-25 08:55, Seymour J Metz wrote:

3850 MSF (3851, 3830 and connected 3330-1, 3330-11 or 3350 staging drives)?


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7Cf5a28c62b9754344266e08d907e97ca6%7C84df9e7fe9f640afb435%7C1%7C0%7C637549521670911175%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=HIEwOompNqzqSvT00rXLK4yj7FXNFRRhYaJiBWQauOQ%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Tom 
Brennan [t...@tombrennansoftware.com]
Sent: Friday, April 23, 2021 5:28 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Diagram of MVS Control Blocks

Oh... maybe a drum?

At first I was thinking of that old IBM robot that grabbed spools of
very wide tape and unrolled them to read.

On 4/23/2021 2:23 PM, Tom Brennan wrote:

I see the normal tape and disk icons at the upper right, but what's that
donut shaped thing next to them?

On 4/23/2021 1:37 PM, Lizette Koehler wrote:

How about here

https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fsecure-web.cisco.com%2F1Fbjh5jJ98Su-cGh8SZtU4DVNWgR9tdnL8jhl7QndYkBiOfqYpt3b_urihwbVuIo6swChAIqrRkAwvfjYatcxNLO-bDx2ynt-sile7oque8EBUOfp4gRGnoQC2FJkfW6_CKL9a4Y1xYjCcLt2_u5xVJNJuEv77eoGaY64ZN4qDfPwe6gWkfVJ_K8DXd6cxW8rvhS8OG4ALiCPkS8wDHVZwI0rJVdo3fJW6euvQkDmWNCZY50XwSjc6_7roAQooNcxngxnoNnoMngkDjrifzUOZr5dnnVSTy1nsOBiZMtloOkHKaE2jq5001QDeOz17kXhqtYxXRozh6HZTLjSZIH4rJJ8cjppaef3l3NpNtSdsOSZVNm0HE7oj843VehTYoW-q2yX3XGn7UyuyGI_MDQjiYl6a38dA5ztVbEea4sHi3v5AqdCbwpgIwV1QoF5AXS5%2Fhttp%253A%252F%252Fwww.lbdsoftware.com%252Fos360.jpgdata=04%7C01%7C%7Cf5a28c62b9754344266e08d907e97ca6%7C84df9e7fe9f640afb435%7C1%7C0%7C637549521670911175%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=TqPcCr%2FfgQkEVN1U8CtT%2BR7R1aE98yZk9DPrsyKzuBo%3Dreserved=0



-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of PINION, RICHARD W.
Sent: Friday, April 23, 2021 1:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Diagram of MVS Control Blocks

I did Google, but I didn't find the old spaghetti diagram of MVS
control blocks.

-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Lizette Koehler
Sent: Friday, April 23, 2021 4:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Diagram of MVS Control Blocks

[External Email. Exercise caution when clicking links or opening
attachments.]

Should be able to Google (or other favorite browser search engine)

Very common on the internet

So any specific control blocks?  Or just general diagram



Lizette

-Original Message-
From: IBM Mainframe Discussion List  On
Behalf Of Rupert Reynolds
Sent: Friday, April 23, 2021 1:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Diagram of MVS Control Blocks

I have been looking for mine. I was given a map by IMI Computing.  I
think it got lost during a stressful house move!

Roops

On Fri., Apr. 23, 2021, 20:43 PINION, RICHARD W.,

wrote:


Many years ago, 1982, I took my first MVS class, MVS Structure and
Logic.
One of
the first handouts our class was given was a spaghetti diagram of MVS
control blocks.
Unfortunately, I threw mine away in 2016, when I thought my system
programming days were over.

Would anyone happen to have that diagram?  If you do, please send it
to my email address of rpinion at firsthorizon.com  Thanks in advance.

Confidentiality notice:
This e-mail message, including any attachments, may contain legally
privileged and/or confidential information. If you are not the
intended recipient(s), or the employee or agent responsible for
delivery of this message to the intended recipient(s), you are hereby
notified that any dissemination, distribution, or copying of this
e-mail message is strictly prohibited. If you have received this
message in error, please immediately notify the sender and delete
this e-mail message from your computer.

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

Re: SMPe receive e37-04 on SMPPTS1

[David Spiegel]

Hi Allan,
That is not necessarily true.
You're correct if PURGE=YES in the Global Zone OPTIONS.

Regards,
David

On 2021-04-23 15:27, Allan Staller wrote:

Classification: Confidential

You might want to run an accept after the maintenance has been successfully 
deployed. This will clean out the SMPPTS datasets.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Allan Staller
Sent: Friday, April 23, 2021 12:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMPe receive e37-04 on SMPPTS1

[CAUTION: This Email is from outside the Organization. Unless you trust 

the sender, Don’t click links or open attachments as it may be a Phishing 
email, which can steal your Information and compromise your Computer.]


Classification: Confidential

You need to review the receive job to see if smpe recovered from the E37.

If not:
1) Compress/resize SMPPTS, SMPPTS1 if required. Allocate SMPPTS2 if required.
1) rerun the receive
3) rerun the apply

HTH,


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Bill Giannelli
Sent: Friday, April 23, 2021 12:40 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SMPe receive e37-04 on SMPPTS1

[CAUTION: This Email is from outside the Organization. Unless you trust 

the sender, Don’t click links or open attachments as it may be a Phishing 
email, which can steal your Information and compromise your Computer.]


I ran a SMPe receive and got a CC 0. Assuming all was ok I went on to the 
Apply. When I looked back at the receive job I now noticed it got a E37-04 on 
the SMPPTS1 dataset.
Now I am not sure all the PTFs were loaded into SMPPTS1.
Should I rerun the receive making sure I address the E37 issue?
thanks
Bill

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

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



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

--
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 there a vertical split in ISPF?

[David Spiegel]

Maybe you're thinking XEDIT?

On 2021-04-16 16:43, Bob Bridges wrote:

Somewhere in the dim reaches of my past I think I saw mention of the ability to 
split an ISPF screen vertically rather than horizontally.  I've never tried it, 
and I'm not sure I didn't just imagine the capability.

But today someone asked me how to split the screen more than once, and in the process of describing it to him I got 
curious and went looking for it.  I easily found this link, 
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.1.0%3Ftopic%3Dinterface-splitting-screen-horizontally-verticallydata=04%7C01%7C%7Cc463d2808ea34c2f305408d9011859e4%7C84df9e7fe9f640afb435%7C1%7C0%7C637542026379275392%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=CQBB56Qtzu7IeMzXWtoZc8j9ofFe%2FJzf8%2BiZ34LoP8g%3Dreserved=0,
 which is entitled "Splitting the screen horizontally or vertically".  But it's a short page and nowhere on it 
(except in that title) is there any mention of either "horizontal" or "vertical".  Is this something 
IBM meant to talk about and just forgot?

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

/* How strange that there was once a time when Americans philosophized hotly, 
in the passionate assurance that their ideas would have practical consequences! 
 And oddly enough, they did.  Now we just shrug and cough up the [tax] money, 
with the resignation of an old New Yorker facing a mugger.  -Joseph Sobran */

--
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: LISTCAT for a VTOC

[David Spiegel]

Hi John, Bob,
Please see File 112, the VTOC Command Processor.
(In 1999, I had the honour of extending it to allow for 4-digit device 
addresses and other things).


Regards,
David

On 2021-04-08 21:36, John McKown wrote:

In TSO, I use ISPF option 3.4 with no DSN and something in the VOLUME.

In batch, I use IEHLIST LISTVTOC. I think there is TSO command on the
CBTTabe somewhere that does a TSO LISTVTOC.

On Thu, Apr 8, 2021, 20:29 Bob Bridges  wrote:


I'm gonna kick myself, I just know I am, but if I know the answer to this
already I can't dredge it up.  I want to list all the datasets on a
particular DASD volume.  I'd use LISTCAT LVL('hlq'), but these are not
catalogued.  Where's the TSO command for that?

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

/* If you're not failing when you train or test your security, you're not
learning anything.  -Craig Tucker */

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

DGAXxxxx (z/OS Connect Direct (formerly NDM)) Programming

[David Spiegel]

Hi,
I would like to speak to anyone who has experience with coding DGAX 
Modules.

Please PM me if you're available.

Thanks and regards,
David

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

Re: Upgrade from z/os 2.3 to 2.4 decrease PVT storage

[David Spiegel]

Hi Dave,
The JCLIN is not an actual job. It is just a bunch of statements which 
get scanned for keywords, much like what recruiters do on LinkedIn.
I usually try to make sure that it is not executable in case in gets  
SUBMITd accidentally.
Another thing, real Dataset Names are unnecessary. All that's needed is 
the DDDEF name.

Here is how I code it:
++USERMOD(LMSIA38)
  /* INSTALL CICS HPO (TYPE 6) SVC 255 (DFHHPSVC) TO NUCLEUS */ .
++VER(Z038) FMID(HBB7740).
++MOD(DFHHPSVC) LMOD(DFHHPSVC) LKLIB(SDFHLOAD) DISTLIB(SDFHLOAD).
++JCLIN.
//COPYSVC EXEC PGM=IEBCOPY
//SDFHLOAD DD  DSN=SDFHLOAD
//NUCLEUS  DD  DSN=NUCLEUS
  C I=((SDFHLOAD,R)),O=NUCLEUS
  S M=((DFHHPSVC,,R))

On 2021-03-22 11:51, Dave Jousma wrote:

Jerry,

I wouldnt move it, just write a usermod to copy it to NUCLEUS, and update your 
NUCLSTxx member.Let the CICS guy tell you when it changes, and you need to 
re-apply your usermod.

We incidentally dont install DFHHPSVC.   Not sure why, I did ask the CICS guy 
about it.

Here is an old copy of a usermod i had laying around

++USERMOD(MCIC001) .
++VER(Z038) FMID(HBB7707) . 00036000
++JCLIN.00037000
//JOB1JOB 'DFHHPSVC',MSGLEVEL=(1,1)
//STEP1   EXEC  PGM=IEBCOPY
//ESALINK   DD DSN=SYS1.ZOS15.LINKLIB,DISP=SHR,UNIT=3390,
// VOL=SER=TSG005
//NUCLEUS DD  DISP=SHR,DSN=SYS1.NUCLEUS,UNIT=3390,VOL=SER=TGT10A
//SYSIN DD  *
COPY  INDD=ESALINK,OUTDD=NUCLEUS  TYPE=MOD
SELECT  M=(DFHHPSVC)
/*  0005
++MOD(DFHHPSVC) LKLIB(LKLIB).   00051000
QX  00052000

--
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/TPF questions

[David Spiegel]

You're right -- probably 2311 (DASD)
3211, however, was a printer.

On 2021-03-21 15:08, Radoslaw Skorupka wrote:

W dniu 20.03.2021 o 09:47, Attila Fogarasi pisze:
Programs on ACP were limited to 4k size originally, and files were 
limited
to 2 record sizes (short and long), the sizes being optimized for 
3211 disk

geometry.  Those limitations were removed 40 years ago :) However the
speed of zTPF comes from not allowing applications to do things that
require expensive services, such as z/OS provides.


Excuse me, but what is 3211?
I suspect a typo, but I found nothing similar.
2311 is too old IMHO (1964).
Maybe 3330-11 ?




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

Re: Large block interface for VB

[David Spiegel]

Hi Paul,
I tried this using z/OS 2.4 ISPF OPT32 and got BLKSIZE=16385.

Regards,
David

On 2021-03-02 09:01, Paul Gilmartin wrote:

On Tue, 2 Mar 2021 08:24:09 -0500, David Spiegel wrote:


Hi Radek,
You said: "... which is usually close to half of the track (sometimes
third...) ..."
When is SDB 1/3 Track?


As a guess, try RECFM=FB,LRECL=16385,BLKSIZE=0.

In one astonishing extreme case, SDB is 1/7 track.

-- 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: Large block interface for VB

[David Spiegel]

Hi Radek,
You said: "... which is usually close to half of the track (sometimes 
third...) ..."

When is SDB 1/3 Track?

Thanks and regards,
David

On 2021-03-02 07:25, Radoslaw Skorupka wrote:

General comment about LBI, large blocks and performance:

1. Blocksize for tapes, especially for real tapes is very important 
for performance. LBI is something to legalize previously used large 
blocks - I mean blocks larger than officially supported 32760. Even 
3490E tapes supported larger blocks and it was used by ADRDSSU (read 
HSM backups). AFAIK LBI was proviced with OS/390 V2R10, long time 
after MAGSTAR family GA.


2. Blocksize on DASD *does affect performance*, but it is not so 
strong as with tapes. More: on tape there is no big reason not to use 
large blocks, but on DASD the blocksize is strictly related to track 
size. For 3390 blocksize of, let's imagine 160kB has no sense, because 
block has to fit in track. And even 32760 is not very reasonable 
(assuming same consecutive blocks), because waste of space. Yes, it 
would be nice to have blocksize limit at 56664B, but there is no such 
option (we talk about z/OS, not z/VSE). Optimal blocksize is SDB, 
which is usually close to half of the track (sometimes third...).


3. However "big enough" blocksize is good enough! In other words you 
will not observe big performance difference between BLKSIZE=32000 and 
BLKSIZE=8000. On DASD, of course.


4. So, in this case, hypothetical LBI=track would not provide 
important relief. That could mean maybe there are other ways to skin a 
cat. I don't know the application, but some ideas to consider:

- use VSAM, SMB, BLSR, etc.
- use index if applicable
- use LDS and DIV
- use DB2 table


My €0,02



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

Re: Assembler - Authorized program debug

[David Spiegel]

Hi David,
I like VI(m) too.
I'd like to point out, however, that ISPF and XEDIT allow the user to 
restrict edits to a column range.

This capability AFAIK is ONLY available on Mainframe.

Regards,
David

On 2021-02-28 02:45, David Crayford wrote:

On 27/02/2021 8:22 am, Tom Brennan wrote:

You take that back!! :)

Sorry... I just used vi a minute ago and although I finally 
remembered shift-g to move to the bottom, I had to goggle how to move 
back to the top.  gg  Of course! It's so obvious. 



:1 will also jump to the top. 'g' isn't a command, it's used to escape 
although people assume it's goto as it's used to jump around the buffer.


I can remember when I first started learning vim I didn't find it 
particularly intuitive. Once I got over the initial learning curve it 
all made perfect sense. People like vim because its design philosophy 
echos that of Unix. In both Unix and in vim, you have a collection of 
atomic commands that perform one task well. More complicated tasks are 
done by combining the smaller predefined tasks. For example, the vim 
command dl deletes the next character,  dw deletes the next word, and 
db deletes the previous word. Here, d represents the delete operator 
and must be followed by a movement task. lt means move to the next 
character. w for the next word and b for the previous word. d2b will 
delete the previous 2 words. dtx will delete every character up to the 
next x in the current line.  Once you grok this you won't want to use 
another editor as you will find them unproductive. I also use 
Slickedit and Intellij IDEA and I have Vim emulation running in both. 
The key design is maximum economy of keystrokes. Your hand should be 
glued to the home row. I've remapped the Windows caps lock key to ESC 
(single key) and CNTL (multiple keys) to make this easier.


BTW, no need to google. Vim has excellent help. Just type :h motion 
and use CNTL-] to follow links.


--
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 - Authorized program debug

[David Spiegel]

Hi Ravi, Barbara,
If you want to trace the execution of the program (instead of just one 
snapshot (as Barbara is suggesting)), you might want to consider setting 
up a SLIP Trap with TRACE, capturing your data with GTF and using IPCS 
(via ISPF or Batch) to print the Trace.


I am currently working on a situation like this. (I am also developing a 
Rexx Exec to make the output of the printed Trace more easily readable.)


If you'd like more information on this, please respond.

Sam: Please let me know if you'd like my finished product for the CBT Tape.

Regards,
David

On 2021-02-26 01:02, Barbara Nitz wrote:

On Thu, 25 Feb 2021 23:57:08 -0600, Ravi Gaur  wrote:


Writing and debugging an assembler code which has MODESET instruction to change 
key and while debugging it via IDF or Debug tool both abend with S047(APF) 
issue. Anyone know a way to debug facility for code without using IDF/Debug 
tool?

Set a  slip trap on s=047 and use IPCS to read the resulting sdump.

Regards, Barbara

--
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: Sharing data sets VSAM VB

[David Spiegel]

Hi Joseph,
You could also interrogate the job (provided that your employer has an 
SDSF licence) via the SDSF API.


Regards,
David

On 2021-02-25 09:02, Joseph Reichman wrote:

I am running all of this from Rex building JCL searching files there are a huge 
number of files so I break them up into different jobs

What I am going to try is do
Checkrc:
Address TSO “LISTBC”

If rc == 0 then go
  Address tso “submit *”
   Else
  Sleep(10)
Goto checkrc
End

Have to check the Rexx syntax but this will tell me I hope if the first job 
finished

Thanks




On Feb 25, 2021, at 8:51 AM, Paul Gilmartin 
<000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

On Wed, 24 Feb 2021 21:48:54 -0600, Joel C. Ewing wrote:

   .., most job schedulers have ways to inhibit conflicting jobs from
running in parallel, like defining a single resource required ...


A scheduler seems overkill.  DISP=MOD should suffice.

-- gil

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

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


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

Re: utility for dataset backups

[David Spiegel]

Hi Bill,
The EXCLUDEs seem unnecessary.

Regards,
David

On 2021-02-03 09:34, Bill Giannelli wrote:

I think my issue was that my control specification did not capture all the 
datasets I needed. I have now modified it with masks as follows and it seems to 
capture all the datasets I need now:
  
DUMP   OUTDD(TAPE80) -

 OPT(4) ALLDATA(*)  ALLEXCPSPHERE TOL(ENQF)-
 DATASET(INCLUDE(DB2X.DSNDB*.DSNDB0*-
 DB2X.DX11.BSDS*.**, -
 DB2X.DX11.LOGCOPY1.DS02,-
 DB2X.DX11.LOGCOPY2.DS02,-
 DB2X.DX12.BSDS*.**, -
 DB2X.DX12.LOGCOPY1.DS03,-
 DB2X.DX12.LOGCOPY2.DS03,-
 SYS2.DB2X.DSN*.**   -
 SYS2.DB2X.S*,   -
 SYS2.DB2X.S*.**,-
)  -
 EXCLUDE(DB2X.DX11.ARCLG*.**,-
 DB2X.DX12.ARCLG*.**,-
))

--
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: utility for dataset backups

[David Spiegel]

Hi Bill,
Can you please include your //SYSPRINT to see the error messages?

Regards,
David

On 2021-02-03 09:08, Bill Giannelli wrote:

I am preparing for a DB2 v12 upgrade. I need to backup and restore form (if necessary) 
the "runtime libraries". What utilities are normally used? I have been having 
issues with DFSMS ADRDSSU. My restores failed. Also having issues with EMCSNAP as I am 
not familiar with it.
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: Inspecting and extracting from /OS transportable files on other platforms?

[David Spiegel]

Hi Brian,
I tried to find the Sabrent device you referenced, but, did not find any 
that goes 16 Gb/sec.

Can you please supply a link to this?

Thanks and regards,
David

On 2021-01-29 03:36, Brian Westerman wrote:

I think I would use transmit format for transporting things between systems, 
it's easily transportable and common no matter where you go and is even usable 
on a desktop PC.

The other thing you can do (which I personally do) is simply FTP the PDS's and 
sequential files directly to your PC (on a USB drive) in ASCII format.  I do 
this weekly, rotating the encrypted USB drive that I have on my keychain so 
that if it's broken or lost (that's why I encrypt), I can just get the previous 
one.  My USB drives are pre-encrypted with Bitlocker so I really don't have to 
do much (ever).  Previously I used to use those little USB drives with the 
combination lock built in to them, but they are very unreliable (and slow).  So 
now, when fast USB drives go on sale at Amazon, I always buy several.  I like 
the sandisk 256GB ones because a) they are fast, and more importantly b) they 
have a lifetime warranty.

I have a batch file that I run to do this.  I plug in my USB drive and start 
the batch file and go get a diet coke.

I'm thinking about moving the process to one of the ruggedized external NVMe 
drives.  I'm currently testing the new Sabrent 2TB one and it's VERY fast 
(1Gb+/sec) and is small enough to easily fit in a pocket.  Plus being 
ruggedized it's waterproof and drop-proof (so far).  The sandisk drives 
typically load at around 140MB/s, but the Sabrent drive is almost 10 times 
faster.

The reason I want 2TB is that I would like to keep a whole Disaster recovery 
system on that drive (DF/DSS unloaded virtual tapes).  At the faster speed, 
it's actually not a bad process, I just need to work out the kinks a little bit 
more so that I can automate it.

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: ISPF for mainframe Linux

[David Spiegel]

Y E S ! (Could not use ISPF on floor system)
Also, sometimes (and this also happened to me) the ISPF Datasets are 
"not there" yet when the first wave of users LOGs ON after the first IPL.


On 2021-01-27 20:21, Seymour J Metz wrote:

If I have a working TSO logon proc then I can allocate the libraries that ISPF 
needs. It's only if someone clobbers those that I would need to resort to TSO 
EDIT.

Have you been at DRs where you couldn't use ISPF from the floor system?


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C0089bd432f1941a6f67408d8c32b0402%7C84df9e7fe9f640afb435%7C1%7C0%7C637473936810333538%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Y%2FEsOgzYJuNG7pDHwhnkVENRBT1diEeecr3GPHNlbC0%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Wednesday, January 27, 2021 8:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

Hi R'Shmuel AMV"SH,
I meant that your LOGON PROC has a JCL Error and you're stuck using a
bare-bones TSO LOGON PROC with no ISPF ALLOCATions (JCL or Dynamically
ALLOCATEd).
I've done DRs where this has actually occurred. Consider yourself fortunate.

Regards,
David

On 2021-01-27 19:43, Seymour J Metz wrote:

If my LOGON proc has a JCL error then I can't use TSO EDIT.

Every DR site I've been at has allowed use of its floor system to adjust things 
and sometimes to do the restores.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C0089bd432f1941a6f67408d8c32b0402%7C84df9e7fe9f640afb435%7C1%7C0%7C637473936810333538%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Y%2FEsOgzYJuNG7pDHwhnkVENRBT1diEeecr3GPHNlbC0%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Wednesday, January 27, 2021 7:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

Sure ... unless ... your LOGON PROC got a JCL Error and you need to fix
it, or, possibly a DR.

On 2021-01-27 19:25, Seymour J Metz wrote:

Yes, and you can write macros for it. Still, when you have ISPF available 
there's little call to use TSO EDIT.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7C0089bd432f1941a6f67408d8c32b0402%7C84df9e7fe9f640afb435%7C1%7C0%7C637473936810333538%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Y%2FEsOgzYJuNG7pDHwhnkVENRBT1diEeecr3GPHNlbC0%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Tony Harminc [t...@harminc.net]
Sent: Wednesday, January 27, 2021 4:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

On Wed, 27 Jan 2021 at 11:21, Tom Brennan  wrote:


That's probably true, but around 2005 when I didn't have enough z/OS
work to do, I moved about half my time over to the dark side of AIX,
Linux, and at least a couple of other Unixes that I can't remember -
working with a bunch of folks who never touched a mainframe.  I don't
remember a single complaint about vi from them.  I did ask why (in the
world) they used it, and they said because it's always available by
default - no install needed.

TSO "EDIT" is always available on z/OS... Doesn't even require a 3270!

Tony H.

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

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

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

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

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listser

Re: ISPF for mainframe Linux

[David Spiegel]

Hi R'Shmuel AMV"SH,
I meant that your LOGON PROC has a JCL Error and you're stuck using a 
bare-bones TSO LOGON PROC with no ISPF ALLOCATions (JCL or Dynamically 
ALLOCATEd).

I've done DRs where this has actually occurred. Consider yourself fortunate.

Regards,
David

On 2021-01-27 19:43, Seymour J Metz wrote:

If my LOGON proc has a JCL error then I can't use TSO EDIT.

Every DR site I've been at has allowed use of its floor system to adjust things 
and sometimes to do the restores.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7Cdeb9033561d54903b8c408d8c325dcc9%7C84df9e7fe9f640afb435%7C1%7C0%7C637473914698372478%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=4vpjdBo2Xxnc%2Bc%2BQXxyBSaO9miYokXQfhqij3GiSXyE%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
David Spiegel [dspiegel...@hotmail.com]
Sent: Wednesday, January 27, 2021 7:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

Sure ... unless ... your LOGON PROC got a JCL Error and you need to fix
it, or, possibly a DR.

On 2021-01-27 19:25, Seymour J Metz wrote:

Yes, and you can write macros for it. Still, when you have ISPF available 
there's little call to use TSO EDIT.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7Cdeb9033561d54903b8c408d8c325dcc9%7C84df9e7fe9f640afb435%7C1%7C0%7C637473914698372478%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=4vpjdBo2Xxnc%2Bc%2BQXxyBSaO9miYokXQfhqij3GiSXyE%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Tony Harminc [t...@harminc.net]
Sent: Wednesday, January 27, 2021 4:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

On Wed, 27 Jan 2021 at 11:21, Tom Brennan  wrote:


That's probably true, but around 2005 when I didn't have enough z/OS
work to do, I moved about half my time over to the dark side of AIX,
Linux, and at least a couple of other Unixes that I can't remember -
working with a bunch of folks who never touched a mainframe.  I don't
remember a single complaint about vi from them.  I did ask why (in the
world) they used it, and they said because it's always available by
default - no install needed.

TSO "EDIT" is always available on z/OS... Doesn't even require a 3270!

Tony H.

--
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: ISPF for mainframe Linux

[David Spiegel]

Sure ... unless ... your LOGON PROC got a JCL Error and you need to fix 
it, or, possibly a DR.


On 2021-01-27 19:25, Seymour J Metz wrote:

Yes, and you can write macros for it. Still, when you have ISPF available 
there's little call to use TSO EDIT.


--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3data=04%7C01%7C%7Cb9eec9b65a244425e9e208d8c3234bdc%7C84df9e7fe9f640afb435%7C1%7C0%7C637473903652729815%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=z4%2FXkAG0fXehGam928xP58W3a9QE6X3biLzN3ZDEDPw%3Dreserved=0


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Tony Harminc [t...@harminc.net]
Sent: Wednesday, January 27, 2021 4:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF for mainframe Linux

On Wed, 27 Jan 2021 at 11:21, Tom Brennan  wrote:


That's probably true, but around 2005 when I didn't have enough z/OS
work to do, I moved about half my time over to the dark side of AIX,
Linux, and at least a couple of other Unixes that I can't remember -
working with a bunch of folks who never touched a mainframe.  I don't
remember a single complaint about vi from them.  I did ask why (in the
world) they used it, and they said because it's always available by
default - no install needed.

TSO "EDIT" is always available on z/OS... Doesn't even require a 3270!

Tony H.

--
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: TSO RECEIVE and System Determined Blksize (was: TSO XMIT and no member list)

[David Spiegel]

"... Formerly some utilities (Linkage Editor?) imposed a limit of 3120. ..."
Linkage Editor //SYSLIN had a Max BLKSIZE of 3200.

On 2021-01-20 11:25, Paul Gilmartin wrote:

On Wed, 20 Jan 2021 10:03:01 -0600, Wendell Lovewell wrote:

Could you please elaborate on your comment "never solved issue like non-SDB (system 
determined blocksize) in XMIT and RECEIVE command"?


Long ago there were discussions here of ISPF SUBMIT's failing because
of inadequate (default?) SPACE for its workfiles.  The same might apply
to TRANSMIT.  Likewise old utilities might have hardcoded BLKSIZE
(3120?  6144?) suboptimal for recent DASD.  But if such utilities were
changed to BLKSIZE=0 the larger values supplied by SDB might cause
downstream programs to fail.

Formerly some utilities (Linkage Editor?) imposed a limit of 3120.

I had some Rexx programs fail when EXECIO removed its internal
BLKSIZE computation to let SDB operate.  Rapidly fixed by APAR,
but Support advised "Always code BLKSIZE."  An ironic consequence
of SDB.


I have been having an issue with TSO RECEIVE (and a program that also calls IEBCOPY) when 
SDB is "Y".  IEBCOPY is having some sort of problem and displaying this message:

IEB1139W THE OUTPUT DATA SET BLOCK SIZE IS BEING REDUCED FROM 32720 TO 27920 
BYTES.  ANY EXISTING PHYSICAL RECORDS
 LONGER THAN 27920 BYTES ARE FAT BLOCKS AND MAY CAUSE I/O ERRORS.

and ending with a return code of 4.  The dataset being RECEIVEd is actually 
fine, as the LRECL is always less than 27920 (80 in this case).  But RECEIVE 
sees the RC=4 from IEBCOPY and ends with RC=12.

IBM currently has case number TS004689510 open for this, but I assumed it was a 
new issue although I only have SDB=Y on right now for testing.

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