Slight diversion. A colleague wanted some REXX code so I sent it as an XMIT
file. He was working remotely and said, the RECEIVE fails.
When I next saw him, I went to his desk and watched the RECEIVE command.
Boom, "UNABLE TO ALLOCATE LOG.MISC".
He had TSO PROFILE(NOPREFIX) and didn't have RACF
Have to say that I agree 100% with @Phil (other than that I have only been
coding Rexx for about 25 years).
The other problem with omitting SIGNAL ON NOVALUE is that you can code IF
ARG(1) = FOOO ... and never realize that ARG(1) will never equal FOOO
because the variable is really named FOO, and
Sri,
I ignored the cc51 in my first attempt. I had to post using a fixed font
too, so that the last field actually did appear in cc51 as viewed.
Love your work BTW.
Regards.
On Sat, May 23, 2020 at 10:44 AM Sri h Kolusu wrote:
> > Col 51...
>
> For some reason the original question did not
Metz wrote:
> Running with signal on novalue and quoting everything leads to hard-to-debug
> surprises errors when you get the case wrong (present
example is typical.) ;-)
After almost 40 years of writing Rexx, I've never had that problem. Quoting
literals avoids far more problems than it
> Col 51...
For some reason the original question did not arrive in my inbox, but the
subsequent emails came in. So I did not see the actual requirement. So
adjusted the control cards to put the last node at position 51 now. Here
are the updated control cards.
//SYSINDD *
OPTION COPY
Col 51...
/* REXX */
ADDRESS TSO
'ALLOC F(INDD) DA(OUTLIST(DSNS)) SHR REUSE'
"EXECIO * DISKR INDD (STEM LINE. FINIS"
SAY '+1+2+3+4+5+6'
DO I = 1 TO LINE.0
STR = PARSIT(LINE.I)
END
EXIT
PARSIT:
ARG STR
REV = REVERSE(STR)
/* REXX */
ADDRESS TSO
'ALLOC F(INDD) DA(OUTLIST(DSNS)) SHR REUSE'
"EXECIO * DISKR INDD (STEM LINE. FINIS"
DO I = 1 TO LINE.0
STR = PARSIT(LINE.I)
END
EXIT
PARSIT:
ARG STR
REV = REVERSE(STR)
PARSE VALUE REV WITH LASTVAR '.' .
LASTVAR = REVERSE(LASTVAR)
SAY STR LASTVAR
Billy,
Use the following DFSORT JCL which will give you the desired results
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
A.B.C.D.E
A.B.C.D.EF
A.B.C.D.EFG
A.B.C.D.EFGH
A.B.C.D.EFGHI
A.B.C.D.EFGHIJ
A.B.C.D.EFGHIJK
A.B.C.D.EFGHIJKL
JOSEPH.CONTROL.SAMPLIB.JCL
Running with signal on novalue and quoting everything leads to hard-to-debug
surprises errors when you get the case wrong (present example is typical.) ;-)
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List
REV = REVERSE(PRODUCTION.CONTROL.VSAM.DATABASE.INDEX)
PARSE VALUE REV WITH LASTNODE '. ' .
LASTNODE = REVERSE(LASTNODE)
On Sat, May 23, 2020 at 7:16 AM Wayne Bickerdike wrote:
> Use REXX REVERSE function.
> Then parse out the first value.
> Reverse it again.
>
>
> On Sat, May 23, 2020
Use REXX REVERSE function.
Then parse out the first value.
Reverse it again.
On Sat, May 23, 2020 at 5:57 AM Billy Ashton wrote:
> Hi folks! This should be easy, but it escapes me...
>
> I have an 80-byte LRECL list of filenames (starting in col 1, varying
> lengths), and I need to capture
True enough, but in my (actual) Rexx programs I always code Signal On
Novalue. To do otherwise is to invite hard-to-debug surprises (present
example notwithstanding).
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Seymour J
[Default] On 22 May 2020 12:24:27 -0700, in bit.listserv.ibm-main
lenru...@gmail.com (lenru...@gmail.com) wrote:
> Remember DYL-AUDIT? I wonder if it still lives? Or for that matter any of
> the DYL "languages". IIRC we had DYL-260 and DYL-280 or something like that.
>On Friday, May 22,
Hi folks! This should be easy, but it escapes me...
I have an 80-byte LRECL list of filenames (starting in col 1, varying
lengths), and I need to capture just the last node of the file, and
store it as a separate word on the record, in col 51.
For example, if the file has
now that you mention, yes from the makers of DYL250 - DYCLAR systems (sp) ?
Sears used DYL250 in just about every application to fix(edit) raw data from
Singer system, and then Series I systems from the store's polling data
Carmen Vitullo
- Original Message -
From:
Hence my quote: had he not quoted the value then it would have been a symbol
and REXX would have translated it to upper case.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on
Remember DYL-AUDIT? I wonder if it still lives? Or for that matter any of
the DYL "languages". IIRC we had DYL-260 and DYL-280 or something like that.
On Friday, May 22, 2020, 02:08:06 PM CDT, Carmen Vitullo
wrote:
Indeed, I'm aging myself, but I remember in the mid 70's auditors
hi Steve,
Sorry to hear that COBOL 6.2 compiles using OPT(0) are taking >10x CPU of the
same compile with 4.2. This is not the norm.
Could you please open a support case with IBM so the issue can be investigated?
From the COBOL support page (link below), you can click "Open a case" in the
top
I got bit on case and end of line characters using GIT. I was using
Notepad++ and had the EOL set incorrectly, duh !
Scott
On Fri, May 22, 2020 at 3:10 PM Seymour J Metz wrote:
> While I started with upper case only languages and progressed to case
> independent languages, there is a case for
While I started with upper case only languages and progressed to case
independent languages, there is a case for case dependent languages. It helps
if you have a good IDE.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe
Indeed, I'm aging myself, but I remember in the mid 70's auditors coming in the
data center with their own deck, 5081's
programs that they loaded, ran their audits then left.
working for an outsourcer some time in 2001 the customer's auditors came in,
reviewed your (their) system you built,
Not quite. Every TSO command parses its own operands, normally by calling
IKJPARSE. If the operand description specifies ASIS the PARSE does not
translate the operand to upper case. Ideally the command description would
specify whether the operand is case dependent, but we don't live in an
Case sensitivity is the root of all evil.
sas
Disclaimer: The above may contain excessive generalization, hyperbole, and
offend your sensibilities. I'd say I'm sorry, but that would just add
flat-out lying to the mix.
--
For
You were lucky; I've encountered far too many auditors who did not know what to
look for and at best could follow a cookbook, and not always an appropriate
cookbook. OTOH, a good auditor is a resource to be treasured.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
I found this out by trial and error, and one level 1 support tech actually told
me what you had said, not documented that way but then why would it .
Auditors of past, on the mainframe knew what to look for, knew where to look
and understood parmlib and the values, now... not so much
Carmen
have in a shared parmlib IEASYS00 member OPI=NO
...
IEASYS LIST = (00,SA,20) (OP)
...
Mark's IPLINFO rexx shows
OPI=YES, Default
The OPI setting is reset as each IEASYSxx is processed, and it defaults to
"YES".
So as each IEASYSxx member is processed, its OPI value is set as the
single
Charles,
Just a document rc=4 from Getmsg , the getmsg could not match your
criteria , filter ...
Scott
On Fri, May 22, 2020 at 1:58 PM Richards, Robert B. <
01c91f408b9e-dmarc-requ...@listserv.ua.edu> wrote:
> Snippet:
>
> Cart_V = 'CONS1'random(100,) /* build CART
Snippet:
Cart_V = 'CONS1'random(100,) /* build CART value
*/
pass_arg. = "CONSOLE SYSCMD("con_input") CART("Cart_V")"
"TSOEXEC CONSPROF SOLDISP(NO) SOLNUM(400)"
We have a winner! You've got it about 90%.
The clue is in the subject line -- this is actually a TSO rant.
TSO uppercases commands so "CART" MyCart becomes effectively "CART
MYCART01".
GETMSG is an ordinary Rexx function so parameters are passed "as-is," and RC
=
"Was the syntax upward-compatible?"
Yes, it was - mostly. My ATTCHJRG command processor was 100% compatible with
how you called ATTCHMVS, except it supported one additional parameter:
TASKDD(ddname). If you supplied that, then it would pass whatever you had
previously allocated to
Your problem is caused by using lower case characters in your CART parameter
value, the value of variable MyCart. If you used all upper case, or all
numerics, it would work fine.
That's not documented anywhere that I've thus far been able to find.
Cheers,
Robert
-Original Message-
Thanks Larre, that's part of the review, and that will provide what they need,
so I don't understand why the added STIG
Carmen Vitullo
- Original Message -
From: "Larre Shiller" <0102cb4997b0-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Friday, May 22,
SYSCMD() is a valid alternative to Address Console but either one is good, and
the Address Console in my Rexx is not the problem.
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of scott Ford
Sent: Friday, May 22, 2020 9:43 AM
Nope.
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Richards, Robert B.
Sent: Friday, May 22, 2020 9:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
If I turn on HILITE,
Charles ,
I was incorrect here:
READY
CONSPROF SOLDISP(NO) SOLNUM(400)
CONSOLE ACTIVATE
CONSOLE SYSCMD($S PRT1) CART('PRT10001')
CONSOLE SYSCMD($S PRT2) CART('PRT20002')
EXEC MY.EXEC(CHKPRT) 'PRT10001' EXEC
EXEC MY.EXEC(CHKPRT) 'PRT20002' EXEC
The exec you invoke (CHKPRT) checks whether the
Charles:
I think that should be 'address mvs' ...scott
On Fri, May 22, 2020 at 12:35 PM Charles Mills wrote:
> Message handling is fine, other than one very specific problem that is
> inherent in the Rexx code posted.
>
> Note this is a Friday Folly, not a "real question." I know the answer
>
If I turn on HILITE, will the answer become apparent?
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Charles Mills
Sent: Friday, May 22, 2020 12:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
Message handling is
Message handling is fine, other than one very specific problem that is inherent
in the Rexx code posted.
Note this is a Friday Folly, not a "real question." I know the answer (after 2+
hours of debug struggle!).
Charles
-Original Message-
From: IBM Mainframe Discussion List
Nope, it is fine.
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Richards, Robert B.
Sent: Friday, May 22, 2020 8:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
Address
Check your message handling ...
Joe
On Fri, May 22, 2020 at 11:00 AM Seymour J Metz wrote:
>
> I called my congressman and he said quote
> I'd like to help you son, but you're too young to vote.
>
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
I called my congressman and he said quote
I'd like to help you son, but you're too young to vote.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Charles
Sorry, that suffix is for the 2.4 version. Try without the suffix.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Carmen Vitullo [cvitu...@hughes.net]
Sent: Friday,
That has worked for me in the past, I activate on my test lpar, then soft
activate on the remaining systems in the CEC
Carmen Vitullo
- Original Message -
From: "Dana Mitchell"
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Friday, May 22, 2020 10:42:03 AM
Subject: Re: IODF Activation
Carmen -
You might also find the MVS "D PPT" command of interest, if you are are not
already aware of that command. It does display both the PARMLIB and DEFAULT
values. We issue that command during each automated IPL as an AUDIT artifact.
Larre
“The opinions expressed in this post are mine
so I was quoted the wrong manual :(
my 2.3 KC does not have the Init and Tuning Manual SA23-1380-40
thanks Shmuel
Carmen Vitullo
- Original Message -
From: "Seymour J Metz"
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Friday, May 22, 2020 10:39:31 AM
Subject: Re: More DISA STIG Audit -
no luck, checking 2.3 books - Security Server RACF System Programmer's Guide no
PPT or IEFDPPT or Program Property...reference - I'll keep looking around
Carmen Vitullo
- Original Message -
From: "Jim Brooks"
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Friday, May 22, 2020 10:30:42 AM
On Fri, 22 May 2020 14:10:02 +0200, R.S. wrote:
>
>Personally I used to start with "the last system" - that means HSA
>update, and then ACTIVATE SOFT on rest, however the "more recommended"
>way is the above.
>
Did this actually work this way? Seems to me that the hardware & software
activate
Table 57 of the initialization and tuna manual (SA23-1380-40) lists the
defaults in IEFSDPPT.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Carmen Vitullo
Thanks Jim I'll start looking there
Carmen Vitullo
- Original Message -
From: "Jim Brooks"
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Friday, May 22, 2020 10:30:42 AM
Subject: Re: More DISA STIG Audit - stuff
I believe that it is described in the SECURITY SERVER RACF SYSTEM
I believe that it is described in the SECURITY SERVER RACF SYSTEM
PROGRAMMER'S GUIDE.
Regards,
Jim
On Fri, May 22, 2020 at 11:28 AM Carmen Vitullo wrote:
> I am suppose to review the defaults supplied by IBM in IEFSDPPT, I was
> told to check the MVS Init and Tuning Reference, there is no
I am suppose to review the defaults supplied by IBM in IEFSDPPT, I was told to
check the MVS Init and Tuning Reference, there is no mention of IEFDSPPT just
defaults supplied by IBM, which is not in the SCHED00 member.
is there some doc somewhere that can tell me the defauts supplied ? Google
Address Console in wrong location?
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Charles Mills
Sent: Friday, May 22, 2020 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday Follies/Why won't this work?/TSO Rant #387
What is wrong with this Rexx? (I spent about
Rob,
You sent it to the right place the first time. I thought I responded to it.
At any rate, I've asked IBM if netview will support an ATTCHMVS. We are doing
additional problem identification with tracing, so hopefully that will turn
something up, and we can definitively find the culprit.
On Fri, 22 May 2020 14:07:50 +, Robert Garrett wrote:
>
>I've seen that kind of problem before myself invoking various IBM utilities
>repeatedly. A lot of them assume that they will always run at the jobstep
>level and don't ever freemain their SP0 storage,
>
IBM once REJected my APAR:
Thanks John. I appreciate it. We are working a PMR with IBM Netview support.
We're going to run a getmain/freemain trace specifically of SP0 below the line
to see if we can see a pattern. We've been somewhat "guessing" at the culprit
based on the eye catchers we see in that subpool from
This is good to know, I wonder why TSS tech support did not point me in that
direction
unfortunately I have no TSS access to any TSS datasets :(
thanks
Carmen Vitullo
- Original Message -
From: "Thomas Chicklon" <01fbdb5fcb44-dmarc-requ...@listserv.ua.edu>
To:
As long as you are relatively current with your TSS maintenance, there are TSS
versions in CAKOJCL0 of the IBM samples for zOSMF setup that have had the RACF
commands converted to TSS commands.
Both what IBM and Broadcom provide are just samples, it still takes a bit of
massaging for your
Somehow, I managed to send this suggestion to the wrong mailing list a few days
ago – my bad…
Hi Dave,
I've seen that kind of problem before myself invoking various IBM utilities
repeatedly. A lot of them assume that they will always run at the jobstep
level and don't ever freemain their SP0
What is wrong with this Rexx? (I spent about two hours debugging before I
solved it.) The problem is right here on this page: the answer is NOT
something in RACF or JES2. It's not something missing: it's a sin of
commission, not a sin of omission. The below will never work. That is, the
output
As others have pointed out "IDCAMS" is a NetView command that calls IDCAMS.
The original intent was to allow you to automate maintenance of the VSAM files
that NetView uses without bringing down NetView. However I sure that others,
like you and me, have found other purposes for it.
We also
Lizette wrote
>Check the JES2 INIT Deck for the STCCLAS and see what it has for DISP.
I don't know if what I do on a test system is relevant (or is something
that I should have been doing differently for decades) but
$TSTCCLASS,CONDPURG=NO
sometimes helps me to get output from a started task
Mark, unfortunately I have a new laptop for working at home, my doc is at my
work PC I cannot get to it.
searching CA-Top Secret doc you will find
http://techdocs.broadcom.com/content/broadcom/techdocs/us/en/ca-mainframe-software/security/ca-top-secret-for-z-os/16-0/search.html?q=z%2Fosmf
General rules for HCD activation
It is easier to add than to remove (or alter) devices.
For remove, you have to vary/configure device/chp offline. Where?
Everywhere on the CPC, that means each LPAR.
It is nothing weird in having multiple non-sysplexed LPARs on CPC and
dynamict activation.
For
I do, CA (BROADCOM) has the RACF to TSS commands on their knowledge base, If I
can find what they gave me I can shoot it to you, BTW I still have issues with
zosmf and jes2eds with the supplied commands
Carmen Vitullo
- Original Message -
From: "Steely.Mark"
To:
64 matches
Mail list logo
