1. Create a separate Rexx called MAGIC with the following contents:
address ISREDIT
"macro (dsn) NOPROCESS"
"CHANGE '@@@TDSN'" dsn
"SAVE"
"END"
exit
2. Invoke it like this:
TARGFILE = kuser".OUTPUT.txt"
EditMe = kuser".SAMPLE.PDS(MEM)" /* contains the string '@@@TDSN' */
address ISPEXEC
"edit da
Hi Radoslaw,
Go via USS.
ftp mainframe
lcd /windows_folder
cd /uss/directory
mput *
quit
Then use TSO OGETX with the SUFFIX option to place all the files into a PDS.
Peter
On Wed, 25 Jun 2025 at 04:11, Radoslaw Skorupka <
0471ebeac275-dmarc-requ...@listserv.ua.edu> wrote:
> Good question.
Try:
COMMAND INPUT ===> *FILTER MAX-RC NE 'CC '*
On Tue, 10 Jun 2025 at 09:48, Don Leahy wrote:
> Displaying non zero Max-rc in a contrasting color on the ST panel has
> prolonged my career. I was having trouble distinguishing from 0008
> when it was monochrome. Sometimes it is the l
Does this help?
// EXPORT SYMLIST=*
// SET CALABEL='Ituriel Cert Auth'
// SET SITELAB='Ituriel Site Cert'
// SET DATE1='2027-01-01' soon
// SET DATE2='2050-12-31' much later
//RACFCERT EXEC PGM=IKJEFT01
//SYSINDD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *,SYMBOLS=EXECSYS
RACDCERT GENC
Mark's stuff: http://www.mzelden.com/mvsutil.html
Lionel's stuff: https://github.com/lbdyck/
On Tue, 13 May 2025 at 11:08, Steve Estle <
05dcac13570d-dmarc-requ...@listserv.ua.edu> wrote:
> Hello All,
>
> I'd put this out as a survey if such a beast was available via Listserv
> (hint-hint...
identification division.
program-id. UNSIGNED.
environment division.
data division.
working-storage section.
01 ws-signed pic s9(8) comp-3 value 12345.
01 ws-unsigned pic 9(8) comp-3 value 12345.
procedure division.
display 'signed ' ws-signed ' '
function hex-of(w
You can also do it like this:
//MODIFIED EXEC PGM=BPXBATCH
//STDINDD DUMMY
//STDPARM DD *
SH set -x ;
*some commands that produce output go here;*
//STDOUT DD PATH='/tmp/output.txt',PATHOPTS=(OWRONLY,OCREAT,OTRUNC),
// PATHMODE=SIRWXU,FILEDATA=TEXT
//STDERR DD PATH='/tmp/output.tx
Put your CMD in PREFS. Try this:
PROC 0 TEST
TSOLIB ACTIVATE DA('tso user id.DEV.LOADLIB','EQAW.SEQAMOD')
ALTLIB ACTIVATE APPLICATION(CLIST) DATASET('EQAW.SEQAEXEC')
ALLOC FI(EQADEBUG) DA('tso user id.EQALANGX') shr
ALLOC FI(EQALANGX) DA('tso user id.EQALANGX') shr
ALLOC FI(IDILANGX) DA('tso use
It is with great sadness Linda Bickerdike and the Bickerdike family wish to
inform you of the unexpected but peaceful passing of Wayne Bickerdike on
Monday 6th of January 2025.
A memorial service will be held at 2 PM AEDT (GMT+11) Tuesday 21st of
January at Christ Church Geelong, Cnr Moorabool & M
https://www.ibm.com/docs/en/zos/3.1.0?topic=macros-ifasmfr-addressing-smf-record-fields
IFASMFR 80
On Thu, 7 Nov 2024 at 05:13, Grace Godfrey <
072e3a8a3050-dmarc-requ...@listserv.ua.edu> wrote:
> Hello,
>
> I'm working on SMF 80 situation and need the mapping macro. Does anyone
> know t
https://www.sscmainframe.com/freeware.htm
On Sat, 26 Oct 2024 at 20:04, Lennie Bradshaw
wrote:
> Interesting.
> I had to allow Chrome to accept a bad cert to see that site, and even then
> all I see is a description. Where can I obtain a working version of this?
> Lennie
>
> -Original Messag
See Colin Paice's blog:
https://colinpaice.blog/2023/02/21/sending-an-email-from-z-os/
On Thu, 19 Sept 2024 at 04:43, Samuel Alejandro Díaz Chávez <
054e78aaa484-dmarc-requ...@listserv.ua.edu> wrote:
> Good afternoon,
>
> The question I have is a bit complex, but I do require your support.
>
Are you seeing an ICH408I message in SYSLOG?
On Sat, 22 Jun 2024 at 05:46, Mike Schwab <
05962a42dc49-dmarc-requ...@listserv.ua.edu> wrote:
> Well, if it stopped working before the upgrade, the upgrade is not
> the problem. Possibly somebody else tried to login with the wrong
> value and lo
DAF. File 94 on the CBT tape.
On Mon, 17 Jun 2024 at 10:29, Radoslaw Skorupka <
0471ebeac275-dmarc-requ...@listserv.ua.edu> wrote:
> Is there any method to track PROCLIB member usage?
> Goal: to identify and delete old stuff - means old, no longer needed
> members of PROCLIB.
>
>
> --
> Rado
"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
T=(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
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
>
> --
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
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,
> // P
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
FWFRIENDLY
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
> sig
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
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:
>
"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. Ve
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,
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 pr
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 My
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, partic
"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 a
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
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 g
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 v
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 TYPO
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
tasets, 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 set
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 comp
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 <
> fra
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
>
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-
https://www.ibm.com/common/ssi/ShowDoc.wss?docURL=/common/ssi/rep_ca/8/872/ENUSAP21-0338/index.html&lang=en&request_locale=en
On Wed, 6 Oct 2021 at 16:59, Mike Schwab wrote:
>
> https://www-356.ibm.com/partnerworld/gsd/solutiondetails.do?solution=37147&expand=true&lc=en
>
> On Wed, Oct 6, 2021 a
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')
R
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
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 li
EXX) 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:
> >
> > >
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
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 requi
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
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
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
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
>
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.
>
>
--
> 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
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? LISTD
Hi Lionel,
Try this.
)init
*)proc if (.resp = end) &response = END
else &response = Not_END
*REXX(response,zcmd,zverb)say 'Response:' response say 'ZCMD:' zcmd
say 'ZVERB :' zverb *ENDREXX*
)end
Regards,
Peter
54 matches
Mail list logo
