I'm posting this mostly to say thanks for all the good
information/discussion/laughs over the last few years.
I'm now supposed to be 80% AIX, 20% MVS (or successor), so I just don't
have the time to tune in to the Chris Mason show every morning anymore.
Sorry Chris - I'm not saying you're wrong,
We have done 1), we have no 2), we definitely do 3) - HMC (via the web) and
SMCS are all we use (or have, for that matter).
As a side note: we tried OSA consoles, but (at least at the time) they didn't
handle SSL as we wanted, so we dropped them.
We run VTAM/NET as SUB=MSTR, so the requirement i
Just guessing from the manual...
have you tried
)PNTS
FIELD(field) VAR(VAR1) VAL(1)
Here's the manual info I'm going from:
For point-and-shoot input/output fields, the format is:
FIELD(field_name)
where:
field_name
The name of the field on the panel that this statement controls.
For poin
ollows the IF has to be a test (what the book calls "relational
>expression") which is why the 'IF (U0100 = U0140) THEN' works.
>
>--Roger
>
>On Fri, Jan 28, 2011 at 1:50 PM, Robert Birdsall wrote:
>
>> This is just silly, so be warned!
>>
>> Las
(RC = 8 | RC = 10 | RC = 12 |
//RC = 14) THEN COMMENTS OK HERE
Note the lack of continuation character.
On Fri, 21 Jan 2011 09:22:06 -0600, Paul Gilmartin
wrote:
>On Fri, 21 Jan 2011 08:08:32 -0600, Robert Birdsall wrote:
>
>>Similar to Gil's reply
This is just silly, so be warned!
Last week, I posted some JCL in a response which used 'COND=ONLY' to
suppress execution of a JCL step. In this case, I knew it was OK because it
was a simple test job, and if some previous step abended for some strange
reason I could just throw the results awa
Similar to Gil's reply - skip if you've had enough...
I did test the following for all 4 execute STEPF conditions and some do not
execute STEPF conditions. It works correctly as far as I can tell.
Change the MAXCC=0 or the ',COND=ONLY' as required to test any condition
you want.
//JOBNAME JOB
This sounds similar to the use of 'address' in the Amiga version of Rexx.
It seemed to work well there.
Personally, I think address MVS ought to cover basic OS functions like catalog,
while 'hosts' should be able to be provided for other functions, e.g. address
CA7, address CICS, address HomeGro
Seems unnecessary and parochial ;)
Shouldn't the host/server send the date/time to the display (client/server, I
don't really care) and let it decide how to display the time?
After all, if I'm at a desktop in Uruguay, why should I have to care whether
the host/server is in Manhattan or Zimbabwe?
Thanks - that was fast.
John Eells and Rob Scott's replies get at the heart of 2 current technical
restrictions (which is what I was looking for).
These could each be potentially overcome in the future, but I'm not sure it
would be worth it. It would probably be more effective to spend the res
This is a curiosity question sparked by another thread.
The limitation of 7 characters for TSO IDs has caused us extra work in the
past (we use IDs of 3-8 characters across the institution, but the mainframe
can't use the institutional IDs in part because of this limitation).
What is the underly
At the risk of going overboard, here is JCL that will do this with Rexx.
The only advantage of this over PGM=EZACFSM1 (which is simpler) is that you
can do date manipulation (e.g. yesterday or next month).
The comments are, of course, optional.
//FTPTEST JOB (JOB,JOB),'RHARRIS',CLASS=Z,MSGCLASS=
All of our consoles are SMCS consoles accessed via telnet (SSL).
They all require logon. When we had physical consoles cabled to a controller
we did not require logon.
Our management decided that the operators should work in the new
datacenter (before we had any production equipment there). Th
>From the ISPF command line, type RETP
This brings up a panel that allows selecting previous commands (like retrieve n
times). It also has an Options menu at the top. That menu looks like this:
1. Set minimum number of characters saved in retrieve stack
2. Select cursor position for retrieve
3.
I understand why it would be necessary to have an effective COND=EVEN on
each step in an IF ABEND controlled sequence, but why on IF NOT ABEND?
In your IF ABEND...ELSE...ENDIF construct, the ELSE if treated as IF NOT
ABEND, forcing the COND=EVEN behaviour.
Just for fun (and contrary to a previou
This may not fit your needs, but if you're just looking to keep multiple
versions
of a text PDS member in an easily accessible format (and you use ISPF edit
exclusively to change the members), check out file742 on the CBT.
It's not completely bug-free :) but if you run into problems I might be
This probably belongs in the ISPF list, but I'm not going to sign up for that
just
to pass this on...
APAR Identifier .. OA32696
AN ISPF SKELETON GETS ERROR ISPF193 IF THE LAST LOGICAL LINE IS
AN )ELSE STATEMENT.
* USERS AFFECTED: All ISPF users *
ERROR D
Don't give up that easily.
Try this:
address ISPExec "TbStats BADTABLE Library(BADLIB)"
Don't change the BADTABLE and BADLIB unless you really have a library or
table of that name :)
Here are the relevant lines extracted from my code:
address ISPExec
address TSO "Alloc f(arc) dsn('"ArcDSN"')" Ar
No matter what I try, I still can't get tsocmd;foo bar to work correctly (lower
case bar in the Rexx exec) when the command input field is CAPS(ON).
If it works for you, though, try this:
cmde;foo bar
Recent ISPF versions (I'm on z/OS 1.10, but I'm sure it was in 1.9, maybe
before) have this cm
Actually, since the command _field_ is CAPS(ON), tsocmd;foo bar will be
translated to TSOCMD;FOO BAR _before_ it is processed. At least, this is
what my (limited) testing seemed to show.
Or perhaps that was meant as a shortcut notation for:
===> tsocmd
===> foo bar
On Tue, 2 Mar 2010 13:41:23
I don't agree in that I wouldn't strongly advise against it. I would, however,
proceed with caution.
If you are going to modify the panels, stick to a small number of panels
(preferably one). You will need to repeat the modification each time the panel
provider changes the panel they provide.
To help clarify (I hope),
The commands that ISPF recognized (TSO, SPLIT, etc.) are not coded in an
ISPF program/load module somewhere - they are in a command table. You can
modify the one included with ISPF, create your own, etc.
Typically in a panel definition the command line is defined with
I get results similar to Sandy's (I use ISPF edit's 'sub' command):
SDSF EDIT ,H224$TSO (JOB13562)
JCLEDIT ,Columns,1,00072,
**,* Top of Data
**
=PROF>,ISFEDIT (VARIABLE - 255)RECOVERY OFF WARNNUMBER
On Wed, 11 Nov 2009 07:00:26 -0600, Robert Birdsall
wrote:
>//H224$TST JOB (0200),'BSquare',CLASS=X,MSGCLASS=X,NOTIFY=&SYSUID
>//*
>// EXEC PGM=IEFBR14,COND=ONLY
>//*
>// IF (U0100 = U0140) THEN
>//IGNORED EXEC PGM=IEFBR14
>// ENDIF
>
Sorry, wrong out
On Tue, 10 Nov 2009 07:58:42 -0600, Joel C. Ewing
wrote:
>I didn't say you didn't need the STEPNULL step, only that testing its RC
>in your IF statements was unnecessary.
>
>You DO need the STEPNULL job step in this case, because the first step
>of any job is unconditionally executed and cannot
Just to be sure this is clear, the 'K Q,L=consolename' command can still be
issued from an EMCS console, in case you're trying to clear MCS or SMCS
buffers from an EMCS console.
You just can't use it to clear the EMCS console buffers.
On Wed, 21 Oct 2009 06:43:23 -0400, Bonno, Tuco
wrote:
>t
OK - I was regretting my post somewhat, but perhaps this will reduce the pain:
APF authorized programs can be called from JCL, from a TSO TMP and from
Unix System Services. For TSO and -perhaps?- USS (note context) the
specific programs that can be called is restricted. The programs that can b
How about a new //SYSPARM DD instead?
If this were combined with a 'SYMBOLS=YES' option on the DD statement, as
Gil recommended earlier in this thread (I hope I got that attribution correct),
it
would not break existing programs, which would simply ignore the DD, not
expecting it.
Of course, if
of the year (1-12), day of year
>(1-365) time of day (0-2400) and day of week (1-7), but it is helpful
>to know that alot of these functions may be available in Rexx.
>
>Thanks for the info Robert.
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:ibm
I realize that this is still conditional code execution, but a very simple Rexx
exec will work:
SetCC: (I'll borrow your program name)
interpret 'return' arg(1)
JCL fragment:
// SET TODAY=FRI
//TEST EXEC PGM=IRXJCL,PARM='SETCC &TODAY=FRI'
//SYSEXEC DD DISP=SHR,DSN=pds.contains.setcc
//*
//
If you are feeling adventurous, you might try File 742 on the CBT tape:
http://www.cbttape.org/updates.htm
This is a set of edit hacks/wedges to maintain previous versions of PDS/PDSE
members. It has some pitfalls (it is nowhere near a commercial product), but
does accept documentation of memb
31 matches
Mail list logo