Re: Netview

[Peter Vels]

"vel" is, amongst other things, Latin for "or".

Peter *Vel*s

On Sun, 28 Apr 2024 at 10:03, Bob Bridges <
0587168ababf-dmarc-requ...@listserv.ua.edu> wrote:

> "Also Known As...".
>
> ---
> Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313
>
> /* I believe what really happens in history is this:  The old man is
> always wrong, and the young people are always wrong about what is wrong
> with him.  The practical form it takes is this: that, while the old man may
> stand by some stupid custom, the young man always attacks it with some
> theory that turns out to be equally stupid.  -G K Chesterton */
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Radoslaw Skorupka
> Sent: Saturday, April 27, 2024 18:08
>
> "vel" is not Polish. We don't have letter "v". It is latin, so I supposed
> it is wide known.
> And yes, it is "aka".
> BTW: WTF is aka??? :-)
>
> Last, but not least: thank you for kind words about my English (I still
> polish my English :-) )
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: DD SYMLIST?

[Peter Vels]

Here's one I prepared earlier:

//PBVSYMLI JOB CLASS=A,MSGCLASS=X,NOTIFY=

// EXPORT SYMLIST=*   <-- NEED BOTH THIS AND\

// SET FOO=PAUL |

//GIL EXEC PGM=IEBGENER |

//SYSUT1   DD DATA,DLM=$$,SYMBOLS=JCLONLY   |

//PBVZIPPO JOB CLASS=A,MSGCLASS=X,NOTIFY=|

//NOTHING  EXEC PGM=IEFBR14,PARM=   |

$$  |

//SYSUT2   DD SYSOUT=(A,INTRDR),SYMLIST=* <--THIS <-/

//SYSPRINT DD SYSOUT=*

//SYSINDD DUMMY

//



On Fri, 23 Feb 2024 at 00:54, Walt Farrell <
05bd6dbb44aa-dmarc-requ...@listserv.ua.edu> wrote:

> On Wed, 21 Feb 2024 22:37:28 -0600, Paul Gilmartin 
> wrote:
>
> >On Thu, 22 Feb 2024 13:45:18 +1000, Peter Vels  wrote:
> >
> >>https://www.ibm.com/docs/en/zos/3.1.0?topic=statement-symlist-parameter
> >>
> >I'm  looking at Page 263 of  SA23-1385-60
> >z/OS 3.1 MVS JCL Reference
> >with the page heading DD: SYMLIST
> >
> >>On Thu, 22 Feb 2024 at 12:46, Paul Gilmartin  wrote:
> >>
> >>> What does the SYMLIST parameter of the JCL DD statement do?
>
> What don't you understand about what the the reference provided by Peter
> says?
>
> Did you look at the examples it provides?
> https://www.ibm.com/docs/en/zos/3.1.0?topic=parameter-example-symlist
>
> --
> Walt
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: DD SYMLIST?

[Peter Vels]

https://www.ibm.com/docs/en/zos/3.1.0?topic=statement-symlist-parameter



On Thu, 22 Feb 2024 at 12:46, Paul Gilmartin <
042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:

> What does the SYMLIST parameter of the JCL DD statement do?
>
> --
> 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: Migrating Loadlibs from PDSE to PDS?

[Peter Vels]

I recommend Prycroft's REVIEW which displays Program Management version
(column V below)

SYS1.SIEALNKE  Row 1 of
188
Command ===>Scroll ===>
CS
  RealName Alias-Name  Size AC AMd At RU V Non-0-EP Save-Timestamp
User/Job
. ADRDSFSI  5K 11D0 00 A31RN 2  19-05-07 13:50
RV0591PB
. CBREFSI  43K AB7A 00 A64 NM RN 42d   38F0 19-05-07 13:47
RV0591PB
. CFZR24C   1K  3E8 01 A31 NM RN 2  19-09-25 07:43
WBEMPAX8
. CPOJLNCH 15K 3BC8 01 A31 NM3 d19-05-07 14:04
RV0591PD
. CRURRAP  SSI=170041079FA0 00 PG2  19-05-07 13:44
RV0591PB
. CRURRSV  SSI=17004107DF30 00 PG2  19-05-07 13:44
RV0591PB
. CSFDLL3X 98K1866C 00 A31 NM RN 3 d19-08-26 15:20
PKCS113
. CSFDLL31122K1E6AC 00 A31 NM RN 3 d19-08-26 15:20
PKCS113
. CSFDLL64121K1E330 00 A64 NM RN 42d19-08-26 15:20
PKCS113


The "42" is actually 4 followed by a superscripted 2. See
https://www.prycroft6.com.au/REVIEW/revfaq.html for more details.

Peter

On Sun, 10 Dec 2023 at 11:37, Seymour J Metz  wrote:

> IEBCOPY is the right tool for the program objects that can be converted.
> There re z/OS facilities that won't work with load modules.
>
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> עַם יִשְׂרָאֵל חַי
> נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Steve Estle 
> Sent: Saturday, December 9, 2023 8:24 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Migrating Loadlibs from PDSE to PDS?
>
> Seasons Greetings all,
>
> I know this might sound like a strange request, but we are exploring what
> if any options there are to migrate load libraries from PDSE (version 1 or
> 2) back to traditional basic PDS's.  It appears this is highly restricted
> based on my experiences trying to perform via IEBCOPY and ISPF 3.3 (which
> just involkes IEBCOPY under the covers)?  Any thoughts/experiences on ways
> to do this or is it just one of those once you are there the "train don't
> go in reverse" situations?
>
> Thanks in advance for any ideas/suggestions.
>
> Steve Estle
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: How turn on GSK trace for batch job that is controlled by PAGENT?

[Peter Vels]

I made some mistakes editing this on my phone, sorry.

You don't need the ",SYMBOLS=(JCLONLY)"

You do need ",SYMBOLS=(EXECSYS)" after INPUT DD*


On Mon, 9 Oct 2023, 19:06 Peter Vels,  wrote:

> I use this:
>
> //FTPS EXEC PGM=FTP,REGION=4M,
> // PARM=('ENVAR("_CEE_ENVFILE_S=DD:STDENV")/ftpservr 21 -e')
> //STDENV   DD *
> GSK_TRACE=0x
> GSK_TRACE_FILE=/tmp/gsk.trc
> //SYSFTPD  DD *,SYMBOLS=(JCLONLY)
> CLIENTERRCODESEXTENDED
> EPSV4 TRUE
> EXTENSIONSAUTH_TLS
> FWFRIENDLYTRUE
> KEYRING   PersonalRing
> PASSIVEIGNOREADDR TRUE
> SECUREIMPLICITZOS FALSE
> SECURE_FTPREQUIRED
> SECURE_MECHANISM  TLS
> SECURE_DATACONN   PRIVATE
> SECURE_CTRLCONN   PRIVATE
> SECURE_HOSTNAME   REQUIRED
> TLSMECHANISM  FTP
> TLSRFCLEVEL   RFC4217
> DEBUG SEC
> TRACE
> //INPUT DD *
> 
> dir
> quit
> //OUTPUT DD SYSOUT=*
> //*---
> //SHOWTRC  EXEC PGM=BPXBATCH,REGION=0M
> //STDOUT   DD SYSOUT=*
> //STDERR   DD SYSOUT=*
> //STDPARM  DD *,SYMBOLS=EXECSYS
> sh gsktrace /tmp/gsk.trc
> //
>
> This example uses TLSMECHANISM FTP but it should not matter.
>
> Credit goes to Wendell Lovewell plus all those who responded to his
> original request for the same thing on this list many years ago.
>
> Please excuse formatting errors.
>
> I hope this is what you need.
>
> Peter
>
> On Mon, 9 Oct 2023, 03:58 Charles Mills,  wrote:
>
>> @Colin, are we talking about the same trace? The trace I am talking about
>> is the one turned on with the environment variable GSK_TRACE. At least
>> judging from the meanings of the bit flags -- which are fairly similar but
>> not identical -- that is a different trace than the one turned on with
>> TTLSConnectionAction trace nn.
>>
>> Charles
>>
>> On Mon, 9 Oct 2023 08:18:32 +0100, Colin Paice 
>> wrote:
>>
>> >For the command, see the IP admin commands book page 184 in old money or
>> >online
>> ><https://www.ibm.com/docs/en/zos/2.5.0?topic=command-modify-policy-agent
>> >
>> >
>> >f pagent,refresh
>> >
>> >You can set up a pagent definition just for your batch FTPjob with its
>> >trace configured
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>

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

Re: How turn on GSK trace for batch job that is controlled by PAGENT?

[Peter Vels]

I use this:

//FTPS EXEC PGM=FTP,REGION=4M,
// PARM=('ENVAR("_CEE_ENVFILE_S=DD:STDENV")/ftpservr 21 -e')
//STDENV   DD *
GSK_TRACE=0x
GSK_TRACE_FILE=/tmp/gsk.trc
//SYSFTPD  DD *,SYMBOLS=(JCLONLY)
CLIENTERRCODESEXTENDED
EPSV4 TRUE
EXTENSIONSAUTH_TLS
FWFRIENDLYTRUE
KEYRING   PersonalRing
PASSIVEIGNOREADDR TRUE
SECUREIMPLICITZOS FALSE
SECURE_FTPREQUIRED
SECURE_MECHANISM  TLS
SECURE_DATACONN   PRIVATE
SECURE_CTRLCONN   PRIVATE
SECURE_HOSTNAME   REQUIRED
TLSMECHANISM  FTP
TLSRFCLEVEL   RFC4217
DEBUG SEC
TRACE
//INPUT DD *

dir
quit
//OUTPUT DD SYSOUT=*
//*---
//SHOWTRC  EXEC PGM=BPXBATCH,REGION=0M
//STDOUT   DD SYSOUT=*
//STDERR   DD SYSOUT=*
//STDPARM  DD *,SYMBOLS=EXECSYS
sh gsktrace /tmp/gsk.trc
//

This example uses TLSMECHANISM FTP but it should not matter.

Credit goes to Wendell Lovewell plus all those who responded to his
original request for the same thing on this list many years ago.

Please excuse formatting errors.

I hope this is what you need.

Peter

On Mon, 9 Oct 2023, 03:58 Charles Mills,  wrote:

> @Colin, are we talking about the same trace? The trace I am talking about
> is the one turned on with the environment variable GSK_TRACE. At least
> judging from the meanings of the bit flags -- which are fairly similar but
> not identical -- that is a different trace than the one turned on with
> TTLSConnectionAction trace nn.
>
> Charles
>
> On Mon, 9 Oct 2023 08:18:32 +0100, Colin Paice 
> wrote:
>
> >For the command, see the IP admin commands book page 184 in old money or
> >online
> >
> >
> >f pagent,refresh
> >
> >You can set up a pagent definition just for your batch FTPjob with its
> >trace configured
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Firefox and HMC self-signed cert

[Peter Vels]

It's not about the port.  You need to add the self-signed certificate to
Firefox’s list of trusted certificates.


On Tue, 29 Aug 2023 at 05:50, Radoslaw Skorupka <
0471ebeac275-dmarc-requ...@listserv.ua.edu> wrote:

> Disclaimer: I know it is much better idea to use "regular" certificate
> signed by CA instead of self-signed one. However I have to work on some
> HMC which use self-signed certificate.
> So far, so good.
> When I connect first time I get warning message on my Firefox browser. I
> accept the risk and further connections do not raise an alarm.
> However some new windows use HMC address and different port, like 99xx.
> Everytime a new port is used the warning is issued again and again.
>
> Question: is there any method to customize Firefox to accept the same
> certificate coming from same HMC address on *any port*?
>
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: IBM-MAIN@LISTSERV.UA.EDU

[Peter Vels]

Try:

NETSTAT TELNET (APPLNAME AWTSTDP3

On Fri, 11 Aug 2023 at 07:59, esst...@juno.com  wrote:

> Yes I have looked at that page, and not getting any data - so I suspect my
> sytax is incorrect
>
> -- Original Message --
> From: Mike Schwab 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: IBM-MAIN@LISTSERV.UA.EDU
> Date: Thu, 10 Aug 2023 16:23:11 -0500
>
> https://www.ibm.com/docs/en/zos/2.2.0?topic=overview-netstat-command-filter
>
>
> On Thu, Aug 10, 2023, 15:56 esst...@juno.com  wrote:
>
> > Hello.I am trying to use TSO NETSTAT with a FILTER and keep receiving
> > -EZZ2351I Incorrect option: FILTER..I can issue NETSTAT ALL, however
> there
> > too much data..So I'm Trying to use a filter..I have tried many different
> > variations such as:NETSTAT (FILTER APPLMAE AWTSTDP3
> > NETSTAT ALLCONN (FILTER APPLNAME AWTSTDP3
> > NETSTAT ALLCONN (FILTER APPLNAME AWTSTDP3
> > NETSTAT ALLCONN/a | (FILTER APPLNAME AWTSTDP3
> > NETSTAT ALLCONN | (FILTER APPLNAME AWTSTDP3..I can't seem to get the
> > syntax correct.Can someone provide an example of using NETSTAT with a
> > FILETER and APPLNAME of AWTSTDP3 with the proper syntax?,.paul
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: 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: AT-TLS and CSSMTP setup

[Peter Vels]

That is OK.  But I need to see the output from the GSKSRVR trace to get to
the bottom of the issue.  I suspect that you are missing a CA somewhere,
and the trace will tell us WHICH certificate that is.

On Sun, 30 Jul 2023 at 14:23, Brian Westerman 
wrote:

> This is what I get from your command:
>
> racdcert id(CSSMTP) listr(CSSMTPRing)
> Digital ring information for user CSSMTP:
>
>Ring:
> >CSSMTPRing<
>Certificate Label Name Cert Owner USAGE  DEFAULT
>         ---
>CSSMTPCA   CERTAUTH   CERTAUTH NO
>CSSMTPServer   ID(CSSMTP) PERSONAL YES
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: AT-TLS and CSSMTP setup

[Peter Vels]

"ADD" adds a certificate (contained in a data set) to RACF, but *not* to a
keyring.  For that you need "CONNECT".

RC 8 means: An error is detected while validating a certificate, so a CA is
missing from the keyring (even though you might've ADDed it to RACF).

IBM says (edited for brevity):

1. Verify that the root CA certificate is in the SAF key ring and is marked
as trusted.

Does...

*racdcert id(CSSMTP) listr(CSSMTPRing)*

...now show that the CSSMTPRing has the mail server's certificate added as
a CERTAUTH?  If not then:






*RACDCERT CONNECT(CERTAUTH +  LABEL('Email server CA') +  RING(CSSMTPRing)
+USAGE(CERTAUTH) +  ) +  ID(CSSMTP)*


2. Check all certificates in the certification chain and verify that they
are trusted and are not expired:

*RACFCERT ID(CSSMTP) LISTCHAIN*

3. Issue the *SETROPTS RACLIST (DIGTCERT, DIGTRING) REFRESH* command to
refresh the profiles to ensure that the latest changes are available.

On Sun, 30 Jul 2023 at 12:12, Brian Westerman 
wrote:

> I get
> BPXF024I (TCPIP) Jul 30 01:12:45 TTLS[16777256]: 18:12:45 TCPIP  639
> EZD1286I TTLS Error GRPID: 0007 ENVID: 0009 CONNID: 009B
> LOCAL: 192.168.1.66..1122 REMOTE: 99.198.97.250..587 JOBNAME: CSSMTP
> USERID: CSSMTP RULE: CSSMTP  RC:8 Initial Handshake 00
> 00 005187621CF0 
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Importing x.509 Certs in to RACF

[Peter Vels]

You have:
RACDCERT ADD(IBMUSER.CERT.DIGICERT)   CERTAUTHTRUST
WITHLABEL('DigiCertCA’)

Try adding apostrophes to the data set name:
RACDCERT ADD('IBMUSER.CERT.DIGICERT')   CERTAUTHTRUST
WITHLABEL('DigiCertCA’)

On Fri, 5 May 2023 at 13:07, Matt Hogstrom  wrote:

> I had VB 240 but I’ll rein it in an see what we get.
>
> Oddly, I was hoping to find a roadmap that would help out.   Seems like
> there are a number of variables in terms of how certs are delivered, how
> they get uploaded, what encodings are used, etc.  At the end of the day I’d
> like to get this documented to save the next guy a pile of work.
>
> Matt Hogstrom
> m...@hogstrom.org
> +1-919-656-0564
> PGP Key: 0x90ECB270
> Facebook <https://facebook.com/matt.hogstrom>  LinkedIn <
> https://linkedin/in/mhogstrom>  Twitter <https://twitter.com/hogstrom>
>
> “It may be cognitive, but, it ain’t intuitive."
> — Hogstrom
>
>
>
> > On May 4, 2023, at 10:52 PM, Peter Vels  wrote:
> >
> > It could be that your data set attributes aren't quite right. Try
> something
> > like LRECL=84, RECFM=VB.
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Importing x.509 Certs in to RACF

[Peter Vels]

It could be that your data set attributes aren't quite right. Try something
like LRECL=84, RECFM=VB.

On Fri, 5 May 2023 at 11:49, Matt Hogstrom  wrote:

> I’m attempting to import an x.509 cert for TLS.  The certificate is valid
> and originates on a distributed system.  I have the cert and the private
> key.  I’m trying to import the cert into RACF.  I’ve tried creating a pfx
> file (pkcs12) as well as importing the text based certs individually.  Each
> time I try I end up with an error.  The below was my attempt to import the
> DigiCertCA against which my certificate was created.  I admit this is not
> my area of speciality so I suspect I’m doing something stupid.  Here is the
> ADD command.
>
> RACDCERT ADD(IBMUSER.CERT.DIGICERT)   CERTAUTHTRUST
> WITHLABEL('DigiCertCA’)
>
> IRRD103I An error was encountered processing the specified input data
> set.
>
> The certificate is in ISO8859-1 on my Mac and I transfer it to USS as
> binary and tag is as ISO8859-1.
>
> Anyone have a workflow for adding a TLS cert ?   The IBM documentation is
> accurate I’m sure  but not helpful.
>
>
> Matt Hogstrom
>
> “It may be cognitive, but, it ain’t intuitive."
> — Hogstrom
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Assembler courses

[Peter Vels]

Hi Bob,

I think about a USING statement as a "promise" that a register will contain
an appropriate address at runtime. The statement:

USING  MyArea,R9

means (to me): I promise that at runtime register 9 will contain the
address of an area that is mapped (described) by the DSECT called MyArea.
This just tells the assembler to use register 9 as a base register for
instructions addressing anything in MyArea. In other words, MyArea should
be at offset 0 at runtime.

Hope that makes some sense.

Regards,
Peter



On Sun, 18 Sept 2022 at 23:12, Bob Bridges  wrote:

> Twenty years ago I wrote a few programs for Excel, and didn't see what all
> the fuss was about: "object-oriented" didn't seem very different from
> traditional programming that I'd been doing for 25 years.  (At the same
> time I was frequently infuriated at the message "...does not support this
> property or method", exactly because I ~didn't~ understand what was
> different about OO coding.)
>
> Eventually a VBA programmer advised me a bit more, and I'm now an
> enthusiast, about OO at least.  Not so much about the Visual flavors of
> Basic itself, but it was my introduction to OO and it is at least available
> on all Windows machines and in all MS Office apps, which is handy.
>
> What confuses me (so far) is the concept of addressability in HLASM.
> Every time I make a stab at writing my first assembler program I get a
> little closer, but I'm still not there yet.  In other assemblers I got
> quite familiar with indirect and offset addressing - it isn't that - but
> what exactly happens with the USING instruction still eludes me.
>
> ---
> Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313
>
> /* Revenge can be bitter-sweet.  But if you sit back and watch, karma can
> be pure entertainment.  -found on Facebook 2015 */
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Tom Brennan
> Sent: Sunday, September 18, 2022 00:59
>
> As for programming, I seem to do better starting at the bottom, with
> instructions, registers, PSW bits and such, and moving up from there.
> Higher level languages and especially Object Oriented code tend to confuse
> me.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Automation of the TSO RECEIVE command

[Peter Vels]

Just put the response on the next line of the input:

RECEIVE INDSN('bla.XMIT')
DATASET('bla.LOAD')


On Wed, 31 Aug 2022, 20:19 Lennie Dymoke-Bradshaw, <
032fff1be9b4-dmarc-requ...@listserv.ua.edu> wrote:

> The TSO commands TRANSMIT and RECEIVE are very useful for moving data
> around, particularly as TRANSMIT produces an 80-byte LRECL which works
> easily with in-stream JCL.
>
> But has anyone worked out a reliable mechanism to automate the use of the
> RECEIVE command?
>
> It always issues queries to the user. How can the responses to these
> queries
> be simply handled?
>
> I feel sure someone has worked this out.
>
>
>
>
>
> Lennie Dymoke-Bradshaw
>
> https://rsclweb.com 
>
>
> 'Dance like no one is watching. Encrypt like everyone is.'
>
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Simple JOBGROUP or Simple User

[Peter Vels]

"All the functions of job groups are only available when JES2 is in the z22
$ACTIVATE mode. The current $ACTIVATE mode can be displayed using the $D
ACTIVATE command. " -
https://www.ibm.com/docs/en/zos/2.4.0?topic=statements-configuring-activating-job-groups

Does that help?

On Wed, 17 Aug 2022 at 22:48, Tom Longfellow <
03e29b607131-dmarc-requ...@listserv.ua.edu> wrote:

> Frustrations continue.
>
> I took out the second CONCURRENT.
> I checked and corrected the CONCURRENT_MAX GRPDEF value from 0 to 3.
>
> The input jobs streams still do not pass JES2 Converter.
>
> $HASP1110 DRCPYXC  -- Illegal JOBGROUP card -  card not
> valid within JOBGROUP
>
> I cannot find that 'reason' in the manuals/
> My best guess is that JOBGROUP is not valid within JOBGROUP.   I have only
> coded the one JOBGROUP statement.   Why does JES hate me so?
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Simple JOBGROUP or Simple User

[Peter Vels]

Roger is correct; you don't need both CONCURRENT statements.  In fact,
you'll get an error with two.  Note that the syntax is CONCURRENT *NAME=*
*job.*

Also, what does *$D GRPDEF* show?
If you are seeing CONCURRENT_MAX=0 (which is the default) then change it to
2 (or more if you like) with command: *$T GRPDEF,CONCURRENT_MAX=2*



This worked for me:



//DRCPYFC  JOBGROUP

//DRCPYFC1 GJOB

//   CONCURRENT NAME=DRCPYFC2

//DRCPYFC2 GJOB

//DRCPYFC  ENDGROUP

//* ---

//DRCPYFC1 JOB (ACCT#),'DR COPY  ',CLASS=A,

// MSGCLASS=X,REGION=800M

// SCHEDULE JOBGROUP=DRCPYFC

//STUFF1 EXEC PGM=IEFBR14

//DRCPYFC2 JOB (ACCT#),'DR COPY  ',CLASS=A,

// MSGCLASS=X,REGION=800M

// SCHEDULE JOBGROUP=DRCPYFC

//STUFF2 EXEC PGM=IEFBR14


Regards,

Peter


On Wed, 17 Aug 2022 at 06:52, Roger W Suhr  wrote:

> Hi,
>
>
> Maybe you can try this:
>
> //DRCPYFC  JOBGROUP
>  //DRCPYFC1 GJOB
>  //   CONCURRENT NAME=DRCPYFC2
>
>  I'm not sure you need two CONCURRENT statement
>
> Roger W. Suhr
>
> suhr...@gmail.com
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Tom Longfellow
> Sent: Tuesday, August 16, 2022 16:40
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Simple JOBGROUP or Simple User
>
> My forehead is bruised from beating it against the wall.  I am trying to
> set up a simple JOBGROUP with two simultaneous jobs.  Here is my JCL
> (excerpted for brevity)
>  //DRCPYFC  JOBGROUP
>  //DRCPYFC1 GJOB
>  //   CONCURRENT=DRCPYFC2
>  //DRCPYFC2 GJOB
>  //   CONCURRENT=DRCPYFC1
>  //DRCPYFC  ENDGROUP
>  //* ---
>  //DRCPYFC1 JOB (ACCT#),'DR COPY  ',CLASS=A,
>  // MSGCLASS=X,REGION=800M
>  // SCHEDULE JOBGROUP=DRCPYFC
>  //* stuff to do
>  //DRCPYFC2 JOB (ACCT#),'DR COPY  ',CLASS=A,
>  // MSGCLASS=X,REGION=800M
>  // SCHEDULE JOBGROUP=DRCPYFC
> //*  more stuff to do
>
> Jes is rejecting this masterpiece with:
>
> $HASP100 DRCPYFC  ON INTRDRFROM TSU17899
> TECHXXX
> $HASP1110 DRCPYFC  -- Illegal JOBGROUP card -  card not
> valid within JOBGROUP
> $HASP1110 DRCPYFC  -- Illegal JOBGROUP card -  card not
> valid within JOBGROUP
> IRR010I  USERID TECH905  IS ASSIGNED TO THIS JOB.
> $HASP DRCPYFC  -- ENDGROUP card - JOBGROUP DRCPYFC  contains errors
>
> I tweak, I read the manual (many times).   But must be missing something.
> It did run once, but sequentially - not concurrently.  I added CONCURRENT
> cards and this is where I am.
>
> What funny little JES syntax did I miss?   I modeled this on the sample in
> the book.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: How do I issue a command with a blank in it?

[Peter Vels]

Try adding some apostrophes, e.g.

$TA,T=12.08,'$VS,''D T'''

works, but

$TA,T=12.08,'$VS,D T'

does not.



On Wed, 6 Jul 2022 at 20:47, Colin Paice  wrote:

> I've issued a command from SDSF with a blank it ,but it is not working
> properly.
> I issue
> /s PYT,,,'COLINs Data',p=CONSNEW
>
> and get on the system console
> IBMUSER  0290  S PYT,,,'COLINs Data',P=CONSNEW
>
>
>- p=CONSNEW is being ignored
>- I am trapping the command using QEDIT, and getting "COLINs."  .
>hex(length 0007 7DC3D6D3 C9D5A21F  COLINs.
>
>
> It works fine with 'COLINS_DATA'
>
> The doc says
>
> *parameters: Program parameters passed to the started program. This might
> be a list in parentheses or a string in single quotation marks. The
> documentation for the started program should state which of the following
> techniques the program supports:*
>
> Parenthesis do not work... I get
>
> S PYT,,,(COLINS DATA)
> IEE307I STARTDELIMITER ERROR
>
>
> what am I missing?
>
> 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: ISPF, How to insert text to the first input field in the panel ?

[Peter Vels]

On Wed, 5 Jan 2022 at 19:16, Weizman arbel  wrote:

> Hello ,
>  How to do this from rexx
> As   RETRIEVE , RETP , RETF   doing so
>
>
> thanks ,
>   weizman.
>

Try this:

Rexx:

/* Rexx */
address ISPEXEC
/* First, show panel with blank command line */
'display panel(weizman)'
/* Now change the value of the command line */
wa = 'Can you see me?'
'display panel(weizman)'
/* Change it again */
wa = 'Yes I can!'
'display panel(weizman)'
exit

Panel:
)ATTR
)BODY CMD(WA)
 +Fun experiment
+Command ===>_WA
+
+Hit ENTER again
)INIT
)PROC
)END

I hope this is what you mean.
Regards,
Peter

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

Re: how to copy entire pds to sequential file ?

[Peter Vels]

This:
http://mainframe-tips-and-tricks.blogspot.com/2011/12/jcl-copy-all-members-from-pds-to.html
does it in 2 steps using IEBPTPCH and then SORT to strip out the MEMBER
NAME.

On Tue, 14 Dec 2021 at 16:53, Weizman arbel  wrote:

> hello ,
>
> i want to do this from batch.
>
> IEBPTPCH  (PUNCH TYPORG=PO)
> add MEMBER NAME
> in front of each member
> and i want to prevent it.
>
> i did not find a way through IEBCOPY
>
> ( i know the way by rexx )
>
> thanks
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: formatting help

[Peter Vels]

copy con: file.txt

Ctrl-Z
1 file(s) copied.

On Mon, 1 Nov 2021 at 10:48, Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Sun, 31 Oct 2021 16:20:10 -0700, Tom Brennan wrote:
> >
> >Vista puts nothing but straight text with CRLF's into the clipboard.
> >It's up to the email client to decide what to do with it.
> >
> Thanks.
>
> Is there a Windows command make a file from the clipboard content
> without any editor's possible meddling?
>
> On Linux, I'd
> cat >file.txt
> 
> Ctrl-D
>
> (OK.  That is still filtered by cooking terminal input, at least to
> interpret
> the CTRL-D.)
>
> On Mac, even more straightforward:
> pbpaste >file.txt
>
> Verify the appearance of file.txt, then attach file.txt, one of two
> filetypes that LISTSERV tolerates.
>
> -- 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: Variable length records for SYSIN data sets

[Peter Vels]

This worked for me:

//STEP1  EXEC PGM=IEBGENER
//SYSUT1  DD *
This is inside Frank's new VB file.
//SYSUT2  DD DISP=(,CATLG),DSN=PVELS.MY.VB.FILE,RECFM=VB,LRECL=204,
//SPACE=(TRK,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSINDD DUMMY
//*-
//STEP2 EXEC PGM=IKJEFT1B
//SYSEXEC  DD DISP=SHR,DSN=PVELS.TSO.EXEC
//INFILE   DD DISP=SHR,DSN=PVELS.MY.VB.FILE
// DD *,DCB=PVELS.MY.VB.FILE ,RECFM=V,LRECL=204
This should ALSO end up in the OUTPUT file
//OUTFILE  DD DISP=(,CATLG),DSN=PVELS.MY.OUTFILE,LIKE=PVELS.MY.VB.FILE
//SYSTSIN  DD *
 %FRANK
//SYSTSPRT DD SYSOUT=*
//*-
//STEP3  EXEC PGM=IKJEFT1B
//SYSTSIN  DD *
 PROFILE NOPREFIX
 LISTDS PVELS.MY.VB.FILE
 LISTDS PVELS.MY.OUTFILE
 REPRO INFILE(FILE1) OUTFILE(FILE2)
//FILE1  DD DISP=SHR,DSN=PVELS.MY.OUTFILE
//FILE2  DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//

The FRANK Rexx is:
"execio * diskR infile (finis)"
"execio * diskW outfile (finis)"

On Fri, 29 Oct 2021 at 09:26, Frank Swarbrick 
wrote:

> Looks like it's utilizing only those DCB parameters that are support for
> SYSIN datasets, and RECFM is not one of them.
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Peter Vels 
> Sent: Thursday, October 28, 2021 4:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU 
> Subject: Re: Variable length records for SYSIN data sets
>
> Try this:
>
> //INFILE   DD DISP=SHR,DSN=MY.VB.FILE
> // DD *,DCB=MY.VB.FILE
>
> Peter
>
> On Fri, 29 Oct 2021 at 08:57, John McKown 
> wrote:
>
> > IIRC:
> >
> > //DD1 DD DSN=SOME.VB.DSN,DISP=SHR
> > // DD *,RECFM=VB,LRECL=??? /* LRECL FROM ABOVE
> > //*
> >
> > On Thu, Oct 28, 2021 at 4:11 PM Frank Swarbrick <
> > frank.swarbr...@outlook.com>
> > wrote:
> >
> > > I have a goal to concatenate a data set of variable length records
> > > (RECFM=VB,LRECL=204) with an instream data set of fixed length
> > characters.
> > > My though was to add RECFM=V to my instream DD, i.e.:
> > > //INFILE   DD DISP=SHR,DSN=MY.VB.FILE
> > > // DD *,RECFM=V,LRECL=204
> > >
> > > The RECFM is rejected as being conflicting with a SYSIN dataset:
> > > IEFC009I KEYWORD RECFM IS MUTUALLY EXCLUSIVE WITH KEYWORD SYSIN ON THE
> DD
> > > STATEMENT
> > >
> > > And yet the following section of the manual, "SYSIN data set" has
> > > discussion of SYSIN data sets where "the record format is variable":
> > > https://www.ibm.com/docs/en/zos/2.5.0?topic=ssds-sysin-data-set
> > >
> > > But how do I actually make the SYSIN dataset variable length?
> > >
> > > I do realize there are probably other options to accomplish my task,
> but
> > > this is bugging me.
> > >
> > > --
> > > For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> > >
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: How to list all modules going in with SETPROG ADD command

[Peter Vels]

From: https://www.ibm.com/docs/en/zos/2.4.0?topic=messages-csv551i

ADDITIONAL MODULES WERE PROCESSED BUT NOT DISPLAYEDInformation was
displayed about 256 modules. Additional modules were processed, but
information is not displayed, to conserve system resources. The SMF record
written on event completion can be examined to get a complete list of the
modules processed if the operation was successful.

On Fri, 29 Oct 2021 at 09:19, Lizette Koehler 
wrote:

> I have a team using SETPROG ADD,LPA
>
>
>
> The number of modules is huge - the listing in syslog stops saying
>
>
>
> ADDIONAL MODULES WERE PROCESSED BUT NOT DISPLAYED
>
>
>
> Is there someway to get all the modules displayed that were actioned by
> this
> command
>
>
>
> 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: Variable length records for SYSIN data sets

[Peter Vels]

Try this:

//INFILE   DD DISP=SHR,DSN=MY.VB.FILE
// DD *,DCB=MY.VB.FILE

Peter

On Fri, 29 Oct 2021 at 08:57, John McKown 
wrote:

> IIRC:
>
> //DD1 DD DSN=SOME.VB.DSN,DISP=SHR
> // DD *,RECFM=VB,LRECL=??? /* LRECL FROM ABOVE
> //*
>
> On Thu, Oct 28, 2021 at 4:11 PM Frank Swarbrick <
> frank.swarbr...@outlook.com>
> wrote:
>
> > I have a goal to concatenate a data set of variable length records
> > (RECFM=VB,LRECL=204) with an instream data set of fixed length
> characters.
> > My though was to add RECFM=V to my instream DD, i.e.:
> > //INFILE   DD DISP=SHR,DSN=MY.VB.FILE
> > // DD *,RECFM=V,LRECL=204
> >
> > The RECFM is rejected as being conflicting with a SYSIN dataset:
> > IEFC009I KEYWORD RECFM IS MUTUALLY EXCLUSIVE WITH KEYWORD SYSIN ON THE DD
> > STATEMENT
> >
> > And yet the following section of the manual, "SYSIN data set" has
> > discussion of SYSIN data sets where "the record format is variable":
> > https://www.ibm.com/docs/en/zos/2.5.0?topic=ssds-sysin-data-set
> >
> > But how do I actually make the SYSIN dataset variable length?
> >
> > I do realize there are probably other options to accomplish my task, but
> > this is bugging me.
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: 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: Vector examples?

[Peter Vels]

G'day Bill,

Is there a typo in your program?

I changed

 VL   1,VEC2

to

 VL   1,VEC1

and got the expected results.

Peter


On Thu, 21 Oct 2021 at 03:46, Bill Ogden  wrote:

> Here is a really really really trivial vector program:
>
>   VL   1,VEC2
>   VL   2,VEC2
>   VA   3,1,2,2
>   VST  3,VSAVEIT
>   LM1,4,VSAVEIT   get answers in GPR 1,2,3,4
>   DC   F'0'  force abend to see the
> registers
> VEC1  DC  F'1',F'2',F'3',F'4'
> VEC2  DC  F'5',F'6',F'7',F'8'
> VSAVEIT DC  4F'0'
>
> You should see in 1+5 in GPR1, 2+6 in GPR 2, etc.
> (It works with zPDT.)
>
> 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

Re: Vector examples?

[Peter Vels]

The COBOL compiler will generate vector instructions if you compile using
the ARCH(12) and LIST options.

Peter

On Tue, 19 Oct 2021 at 09:07, Charles Mills  wrote:

> Did Ed Jaffe do a SHARE presentation? I have this vague recollection that
> he
> did.
>
> 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: IBM JCL Expert preview in today's announcement letter

[Peter Vels]

https://www.ibm.com/common/ssi/ShowDoc.wss?docURL=/common/ssi/rep_ca/8/872/ENUSAP21-0338/index.html=en_locale=en

On Wed, 6 Oct 2021 at 16:59, Mike Schwab  wrote:

>
> https://www-356.ibm.com/partnerworld/gsd/solutiondetails.do?solution=37147=true=en
>
> On Wed, Oct 6, 2021 at 6:25 AM Brian Westerman
>  wrote:
> >
> > Do you have the announcement link you can post.  I didn't see any today
> about a JCL checker.
> >
> > Brian
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>
> --
> Mike A Schwab, Springfield IL USA
> Where do Forest Rangers go to get away from it all?
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: COBOL compiler option to list libraries from which COPY members were loaded?

[Peter Vels]

On Fri, 10 Sept 2021 at 16:22, Lars Höglund  wrote:

> And You can't use coprocess if You are using EXCI.
> //Lasse


Hi Lasse,

You *CAN* use the coprocessor when compiling an EXCI program.  I am
specifying these compiler options on line 1 of my COBOL program:

PROCESS NODYNAM,RENT,CICS('EXCI')

Regards,
Peter


>
> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List  För
> Farley, Peter x23353
> Skickat: den 9 september 2021 21:08
> Till: IBM-MAIN@LISTSERV.UA.EDU
> Ämne: Re: COBOL compiler option to list libraries from which COPY members
> were loaded?
>
> Yes, but it is of little use if you are stuck using the DB2 and/or CICS
> preprocessor utilities (instead of the coprocessor facilities in the
> compiler) and use EXEC SQL and/or EXEC CICS  statements in COPY members
> extensively.  All COPY members containing EXEC SQL / CICS must be
> pre-resolved before the preprocessor utility reads the source to be
> translated.
>
> All of which is a really good argument to use the coprocessor facilities,
> but institutional resistance to change is powerful and often both
> entrenched and intransigent.
>
> Peter
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Tom Ross
> Sent: Thursday, September 9, 2021 2:06 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: COBOL compiler option to list libraries from which COPY
> members were loaded?
>
> ><*Doh!*>
> >
> >I missed seeing that part of the listings entirely.  And it has the
> >same page title back at least as far back as ECOBOL V4.1.0.
>
> You guys are great!  I added "cross reference of library names" to the
> COBOL compiler listings years ago, glad it is getting used, and thank you
> for pointing it out to help each other out!
>
> Cheers,
> TomR
> --
>
> This message and any attachments are intended only for the use of the
> addressee and may contain information that is privileged and confidential.
> If the reader of the message is not the intended recipient or an authorized
> representative of the intended recipient, you are hereby notified that any
> dissemination of this communication is strictly prohibited. If you have
> received this communication in error, please notify us immediately by
> e-mail and delete the message and any attachments from your system.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Can I use DSN referback using nested procs?

[Peter Vels]

I wonder if this limitation is your issue...

https://www.ibm.com/docs/en/zos/2.4.0?topic=parameters-backward-references

"The following statements cannot be referenced:
...

   - Nested procedure statements"


On Thu, 9 Sept 2021 at 18: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: COBOL compiler option to list libraries from which COPY members were loaded?

[Peter Vels]

I use "IBM Enterprise COBOL for z/OS  6.3.0 P210301" and there is a
"COPY/BASIS cross-reference of text-names, library names and dataset
information" section near the bottom of the compiler listing.

I also use "HLASM R6.0" and it has a "Macro and Copy Code Source Summary"
near the bottom of the listing.


> On Sun, Sep 5, 2021 at 13:57 Farley, Peter x23353 <
> 031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:
>
> > I was looking around at listings from multiple incarnations of COBOL
> > compilers and did not find any which listed the libraries from which copy
> > members were loaded, as HLASM does for macros and copy members.
> >
> > Has there ever been such a compiler option?
>

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

Re: ERBSCAN in batch

[Peter Vels]

On my system it's in SYS1.SERBCLS(ERBSCAN).  Your HLQ might differ, but the
LLQ shouldn't.

On Mon, 10 May 2021 at 16:29, kekronbekron <
02dee3fcae33-dmarc-requ...@listserv.ua.edu> wrote:

> Hi Peter,
>
> That's great, can you share more info (where's the REXX) here or
> separately?
>
> - KB
>
> ‐‐‐ Original Message ‐‐‐
> On Monday, May 10, 2021 11:50 AM, Peter Vels  wrote:
>
> > On Sat, 8 May 2021 at 13:10, kekronbekron <
> > 02dee3fcae33-dmarc-requ...@listserv.ua.edu> wrote:
> >
> > > Is it possible to run the erbscan line command in a batch job?
> >
> > Hi KB.
> >
> > Yes, it is possible.
> >
> > I was able to run ERBSCAN by editing the REXX, commenting out statements
> > like SETMSG MSG(ISRZ001) and VIEW/BROWSE DATAID, substituting instead an
> > LMCOPY to an output data set. This ran just fine invoked via an ISPSTART
> > in an IKJEFT1B batch job which also allocated the output data set.
> >
> > Peter
> >
> >
> -
> >
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: 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: ERBSCAN in batch

[Peter Vels]

On Sat, 8 May 2021 at 13:10, kekronbekron <
02dee3fcae33-dmarc-requ...@listserv.ua.edu> wrote:

> Is it possible to run the erbscan line command in a batch job?
>

Hi KB.

Yes, it is possible.

I was able to run ERBSCAN by editing the REXX, commenting out statements
like SETMSG MSG(ISRZ001) and VIEW/BROWSE DATAID, substituting instead an
LMCOPY to an output data set.  This ran just fine invoked via an ISPSTART
in an IKJEFT1B batch job which also allocated the output data set.

Peter

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

Re: Now it's easier to find stuff on the CBT Tape

[Peter Vels]

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

Re: Using symbolic DD names

[Peter Vels]

Try this:

// EXPORT SYMLIST=*
// SET TNO=99  
//SUBMIT EXEC PGM=IEBEDIT  
//SYSPRINT DD SYSOUT=X 
//SYSINDD DUMMY
//SYSUT1   DD DATA,SYMBOLS=JCLONLY 
//INSIDE JOB   
//VENDOR EXEC PGM=IEFBR14  
//TB DD DUMMY  
// 
/* 
//SYSUT2 DD SYSOUT=(A,INTRDR)  
//

It's only a slight modification of Steve Smith's suggestion.  I added the 
EXPORT line and removed the & from the SET statement.

Peter

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

Re: COBOL LIB

[Peter Vels]

Perhaps you're thinking of TELON, from the Easytrieve company Pansophic
(bought by CA in 1991), which does produce COBOL.

On Fri, 18 Dec 2020 at 16:43, Lars Höglund  wrote:

> Isn't EASY it's own language? It definitely doesn't produce Cobol code.
>
> -Ursprungligt meddelande-
> Från: IBM Mainframe Discussion List  För
> CarlosM Martinez
> Skickat: den 17 december 2020 23:27
> Till: IBM-MAIN@LISTSERV.UA.EDU
> Ämne: Re: COBOL LIB
>
> Well I am a newbie in Z/OS my expertise is in VSE. But... everything here
> is hold on to your hat... EASYTRIEVE. I have not look at a complete
> Easytrieve compile but doesn't it produce cobol code?
> We get our CICS online System compiled and shipped from a vendor and just
> load it to a loadlib. I looked on 3.4 of TSO for IGY and found NONE.
>
> Thank you all.
>
> Carlos Martinez
> SUNY Downstate.
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Steve Beaver
> Sent: Thursday, December 17, 2020 5:07 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: COBOL LIB
>
> Do you even have any compiler procs?
>
> Sent from my iPhone
>
> > On Dec 17, 2020, at 16:02, Jousma, David <
> 01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:
> >
> > COBOL compiler doesn't come with z/os.  It is separately purchased and
> licensed,  so since you are asking, you may not have it.
> > 
> > From: IBM Mainframe Discussion List  on
> > behalf of CarlosM Martinez 
> > Sent: Thursday, December 17, 2020 4:12:28 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU 
> > Subject: COBOL LIB
> >
> > **CAUTION EXTERNAL EMAIL**
> >
> > **DO NOT open attachments or click on links from unknown senders or
> > unexpected emails**
> >
> > Hello all,
> > Does anyone know what library the COBOL compiler is in Z/OS 1.0 ?
> > SYS1.???
> >
> > Thank you
> > Carlos Martinez
> > SUNY Downstate Med. Center
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> > **CAUTION EXTERNAL EMAIL**
> >
> > **DO NOT open attachments or click on links from unknown senders or
> > unexpected emails**
> >
> >
> > ${If.App.WXP}Classification: Internal Use${If.End} This e-mail
> > transmission contains information that is confidential and may be
> privileged.
> > It is intended only for the addressee(s) named above. If you receive
> > this e-mail in error, please do not read, copy or disseminate it in
> > any manner.  If you are not the intended recipient, any disclosure,
> > copying, distribution or use of the contents of
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: 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: Has anyone integrated Rexx with IKJPARS?

[Peter Vels]

flip

On Tue, 24 Nov 2020 at 14:05, Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Tue, 24 Nov 2020 11:57:55 +1000, Peter Vels wrote:
>
> >x all 'foo bar'
> >del all x
> >
> Of course.  Thanks.
>
> The drawback is that you're flying blind; you don't see the lines
> you're about to delete.  But IIRC vaguely that there's a command
> that swaps X and NX lines.
>

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

Re: Has anyone integrated Rexx with IKJPARS?

[Peter Vels]

x all 'foo bar'
del all x


On Tue, 24 Nov. 2020, 11:25 Paul Gilmartin, <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

>
>
>   Example: if I want to delete
> several lines containing "foo bar" in vi:
> ...
> in ISPF Edit (I think):
> 
> x all
> f 'foo bar'
> del all
> reset
>
> Is there a better way?
>

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

Re: Strange COBOL 6.2/3 problem: BASIS/COPYLOC/PDS fails

[Peter Vels]

I can reproduce this with: PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.1.0
P180612

Peter

On Fri, 2 Oct 2020 at 00:46, Charles Mills  wrote:

> It appears to me that COBOL 6.2 or 6.3 fails a BASIS statement if there is
> any COPYLOC in effect and SYSLIB is a PDS, but not if SYSLIB is a PDSE.
>
> The error is IGYLI0053-U   A library read error occurred during "BASIS"
> processing.  No member was found or there was a bad block.
>
> //S1 EXEC PGM=IGYCRCTL,PARM='COPYLOC(MYUNIX,PATH("valid.unix.path")'
> //SYSLIB DD   DSN=PDS(E) containing GCOPYA,DISP=SHR
> //SYSIN  DD   *
>BASIS GCOPYA
> /*
> // remaining COBOL compile JCL
>
> Above works if SYSLIB is a PDSE but fails if it is a PDS. Works either way
> if you remove the COPYLOC. COPY seems to work okay; only BASIS seems to
> fail.
>
> Just tried a COPYLOC with a DSN rather than a PATH and it still fails.
>
> Would be curious what others think or if anyone wanted to try to duplicate.
> This is in Dallas so no ability to open a PMR.
>
> 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: TIME a data set was created?

[Peter Vels]

A number of people both on and off the list have mentioned SMF. Even if I
had permission to read SMF data (I don't) I think it would be too much
overhead to scan weeks of SMF records to find a few (~50) timestamps.

On Sat, 30 May 2020 at 13:44, Lizette Koehler 
wrote:

> Do you have any tools like MICS/SAS/MXG?
>
> If not, can you download from cbttape.org the tool DAF (Dataset Audit
> Facility)  - you can feed it SMF data based on dataset names, and it will
> provide SMF records that probably have a timestamp
>
> Lizette
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Peter Vels
> Sent: Friday, May 29, 2020 7:01 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: TIME a data set was created?
>
> How does one get the TIME a z/OS data set was created?  The date is easy,
> but I'm after the time.
>
> Background: Periodically I update a list of data sets created by an
> application over which I have no control. I want to sort the list by
> descending date and time. Where can I get the time from?  LISTDSI won't
> provide it unless the data set is on an EAV volume (doesn't apply).
>
> Regards,
> PV
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: 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

TIME a data set was created?

[Peter Vels]

How does one get the TIME a z/OS data set was created?  The date is easy,
but I'm after the time.

Background: Periodically I update a list of data sets created by an
application over which I have no control. I want to sort the list by
descending date and time. Where can I get the time from?  LISTDSI won't
provide it unless the data set is on an EAV volume (doesn't apply).

Regards,
PV

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

Re: Detecting F3 (End) in Panel Rexx

[Peter Vels]

Hi Lionel,

Try this.

)init









*)proc  if (.resp = end)= END
 else= Not_END
 *REXX(response,zcmd,zverb)say 'Response:' response  say 'ZCMD:' zcmd
   say 'ZVERB   :' zverb  *ENDREXX*
)end

Regards,
Peter

On Sun, 12 Jan 2020 at 06:44, Lionel B Dyck  wrote:

> Is there a way to determine if F3 (END) was entered while in the )PROC
> panel
> rexx routine.
>
>
>
> When I try zcmd is always null ???
>
>
>
> Thanks
>
>
>
> Lionel B. Dyck <
> Website:   http://www.lbdsoftware.com
>
> "Worry more about your character than your reputation.  Character is what
> you are, reputation merely what others think you are." - John Wooden
>
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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