How about the old OUTPUT command.
Using the STATUS command you can trap the jobname and number.
OUT command is ancient but still works.
Output is written to userid.OUTLIST by default.
Example:
/* REXX */
ADDRESS TSO
OUT JOBNAME(J0063459) PR(J0063459) HO K
HOld Keep to leave the
IBM have a series of Powerpoint slides. I used this material while
teaching via the Academic Initiative.
I have the slides but I would suggest you ask IBM academic initiative
folks for copies.
The first slide show is Titled: Introduction to the new mainframe
Large-Scale Commercial computing.
For devotees of Jackson Structured programming, the GOTO is a must for
POSIT and ADMIT processing. Otherwise it can be messy avoiding a GOTO.
I'm a devotee FWIW
On Mon, Apr 16, 2012 at 2:43 PM, Mike Schwab mike.a.sch...@gmail.com wrote:
Even a structured IF THEN ELSE END-IF or SELECT WHEN
http://zos.efglobe.com/cgi-bin/mainframe/mainuser
You need to request a user ID and then you have access.
Enjoy.
Ignore the previous ignoramus.
On Wed, Jan 25, 2012 at 2:03 AM, Itschak Mugzach imugz...@gmail.com wrote:
;-)
On Tue, Jan 24, 2012 at 4:26 PM, Mohd Rizwan
Just a guess, because you have OPTIONS(MAIN) on the PL/I?
Have you tried with PL/I not main?
On Thu, Dec 29, 2011 at 8:51 AM, Binyamin Dissen
bdis...@dissensoftware.com wrote:
The environment:
Assembler LE main creates enclave FOO.
It calls an Enterprise PL/I OPTIONS(MAIN) which creates
They are charging $2200 for a two day workshop!
On Tue, May 17, 2011 at 1:17 AM, Eric Bielefeld eric-ibmm...@wi.rr.com wrote:
I think there was a discussion about running z/OS on your laptop or other PC
recently. There is an IBM 2 day workshop on that topic coming up on June 28.
:
On Tue, 17 May 2011 06:04:43 +1000, Wayne Bickerdike wrote:
They are charging $2200 for a two day workshop!
That's a fraction of what z/OS costs otherwise.
Do participants get to keep it?
http://www.redbooks.ibm.com/workshops/GR0422?Open
-- gil
Excellent question, and the write up
Since when has *object* been stored in libraries generally found in STEPLIB?
Most people throw away object after link edit because *LOAD* is what
is executed.
Don't want to confuse this guy any more than he no doubt is by now...
On Wed, May 11, 2011 at 1:13 AM, Chris Mason
certainly have been able to pick up my
correction of object to load long, long ago!
But it shows how you need to keep on your toes in this febrile environment!
P.S. I'm sorry if you have posted an apologetic retraction in the meantime!
Chris Mason
On Thu, 12 May 2011 06:12:56 +1000, Wayne
Isn't there a 255 step limit? I regularly hit this problem with
multi-step database backups/tape stacking type process.
2011/4/21 john gilmore john_w_gilm...@msn.com:
In reading the various posts in this thread it has occurred to me that the
distinction between a job and a job step, always
This is an old recurring problem. Ditto for DD statement restrictions.
I recall early in my career with IBM we had a homegrown job scheduler
which required that every DDNAME be unique because effectively it was
a single step job that controlled all pseudo steps in the job.
A friend of a friend
, 2011 at 8:50 AM, Paul Gilmartin paulgboul...@aim.com wrote:
On Thu, 21 Apr 2011 05:54:11 +1000, Wayne Bickerdike wrote:
Isn't there a 255 step limit? I regularly hit this problem with
multi-step database backups/tape stacking type process.
I would expect your fingers would get tired before you
...@aim.com wrote:
On Thu, 21 Apr 2011 07:18:38 +1000, Wayne Bickerdike wrote:
This is an old recurring problem. Ditto for DD statement restrictions.
I recall early in my career with IBM we had a homegrown job scheduler
which required that every DDNAME be unique because effectively it was
a single step
How can a single step have more than one STEPLIB?
I also remember everywhere I looked in my time at IBM it said
THINK...I'm thinking about it and the answer is still not 42.
On Thu, Apr 21, 2011 at 8:42 AM, Paul Gilmartin paulgboul...@aim.com wrote:
On Thu, 21 Apr 2011 07:18:38 +1000, Wayne
would be online.
On Thu, Apr 21, 2011 at 12:08 PM, Gerhard Postpischil
gerh...@valley.net wrote:
On 4/20/2011 8:12 PM, Wayne Bickerdike wrote:
How can a single step have more than one STEPLIB?
By function, if not by name. I have a test task, loaded from STEPLIB. When a
LOADLIB DD is present
Shane,
Have you been hiding that IEFBR15 from me? I was using IFEBR14.
As we know DNA stands for National Dyslexic Association...:)
Wayne
On Fri, Jan 21, 2011 at 11:16 AM, Shane Ginnane ibm-m...@tpg.com.au wrote:
I usually keep an IEFBR15 laying around for test purposes.
And like Eds', this
That's why I'm short of breath, I'm thinking too much?
On Mon, Jan 17, 2011 at 7:53 AM, Anne Lynn Wheeler l...@garlic.com wrote:
popular press has people using less than 5% of their brains. there has
been extensive advances in knowledge of the brain over the last decade
from MRI studies.
Some information from a close source...
It was a plain old S0C7 during their batch process.
All Aussie banks use Cemtex ABA format which has been around for years
as a transfer format between organisations. You would think that there
is a validate step before running the transactions against
I came up against this and now build the whole ftp job using a batch
initiated REXX program.
We ftp backup files to a remote server and I needed a generation of 3
weeks worth of files.
Our ftp datasets now look like this:
PACK#10.D10210.T10801 etc...
I use another REXX program to build a
://www-01.ibm.com/software/awdtools/rexx/library/ibmpubs.html
Switching between languages is similar to invoking ISPF panels.
On Tue, Aug 3, 2010 at 7:06 AM, john gilmore john_w_gilm...@msn.com
wrote:
As quoted by Paul Gilmartin, Wayne Bickerdike wrote:
| The REXX I referred to was written
Um, no.
Two file matches don't work too well without a sort.
It all could be done in DB2 using INSERT and report duplicates though.
On Tue, Aug 3, 2010 at 9:18 PM, Paul Gilmartin paulgboul...@aim.com wrote:
On Tue, 3 Aug 2010 09:12:13 +1000, Wayne Bickerdike wrote:
The REXX I referred
Um, no.
Two file matches don't work too well without a sort.
Not true. Comparex, for example, permits definition of random order keys
with no pre-sorting of files to be compared, and will very accurately tell
you where records are inserted or deleted as well as equal-key records with
I use a REMDUP ISPF/REXX I acquired from someplace.
It has options to remove duplicates, keep only non duplicates etc.
Basically you would concatenate both files, sort them by their entire
LRECL and execute the REMDUP with keep unmatched records, that's the
delta.
Seems like any old two file
The REXX I referred to was written by David McRitchie.
So to use this REXX you would append a '1' to dataset 1 say in cc 1
and a '2' to dataset 2.
Merge the two datasets and sort on cc 2,n and 1,1.
The command REMDUP .a .b 2 81 NXDUP ; del all nx ;res
Will leave just the unique entries behind
Paolo.
HTH,
Wayne
On Tue, Aug 3, 2010 at 9:46 AM, Paulo Roberto Leonardo Pereira
pleon...@globo.com wrote:
I'd like to try to use a REXX. My record file has (LRECL) = 24108 and
I need to compare almost entire record (just not for 26 bytes of
extract timestamp).
2010/8/2 Wayne Bickerdike
To my even more boring purist streak, isn't it literally many thanks?
(two years German) or is that baby dutch as the Dutch call Afrikaans :)
On Wed, Jul 14, 2010 at 9:56 PM, Elardus Engelbrecht
elardus.engelbre...@sita.co.za wrote:
Riedel, Alexander wrote:
I think YGIAGAM meens: Your guess is
Or as the squirrel said to the mole:
what's it like down there?
Good, feeling dank, though
On Thu, Jul 15, 2010 at 12:26 AM, Elardus Engelbrecht
elardus.engelbre...@sita.co.za wrote:
Wayne Bickerdike wrote:
To my even more boring purist streak, isn't it literally many thanks?
Yes! I
Shai,
Great news for me, I know you had some success with a company in
Perth, Australia and they are delighted with the product.
Free is a bargain!
On Tue, Apr 13, 2010 at 4:00 PM, Shai Hess shai.h...@gmail.com wrote:
HI,
In a few days I will make MFNetDisk really a free product.
That
This is very simple,
QUEUE,
//JOBNAME JOB 'MYJOB',MSGCLASS=X,NOTIFY=US,CLASS=4,
QUEUE,
// SCHENV=,TIME=1440
QUEUE,
//
QUEUE,
//* JCL COMMENT
Try Filezilla:
http://filezilla-project.org/client_features.php
On Wed, Feb 10, 2010 at 1:27 PM, Scott sc...@aitrus.org wrote:
WinSCP should be all you need. I'll look a bit when I get home, but don't
discount it too soon.
Sent from my iPhone
On Feb 9, 2010, at 6:18 PM, Charles Mills
I tried this REXX and found that it returns RC=8 for a LMMDEL for (*)
as a member.
The original author specified a member for each LMMDEL.
Does this only work for later versions of z/OS?
Curious. I already have some REXX to build the member list, so I can
still use the technique.
Anyone try
Here's another method which works on a S/360 :)
I have to shamefully admit the JCL is built using REXX and various
ISPF facilitiesbut if you only have a card punch..
//* --*/
//* DELETE MEMBERS FROM THE LIBRARY
I can't see that you have allocated the input KSDS.
Add
ALLOC F(VSAMKSDS) DA('MY.VSAM.FILE') SHR REUSE
On Wed, Jan 20, 2010 at 12:47 AM, Rich Smrcina rsmrc...@wi.rr.com wrote:
On 01/19/2010 06:16 AM, Lizette Koehler wrote:
Have a look at file 268 on the CBTTAPE. It is a rexx that reads VSAM
raise the print cover and sound alarms with machine chars
The fact that Wayne Bickerdike managed to repeat my joke about the printer
cover - in possible ignorance of the parent thread - reminded me to mention
how to overcome the disaster of having deleted a post form your in-box when
you
In my early programming days, we always used machine control
characters, the theory being that it was faster than ASA characters.
The reasoning behind it was that ASA always had to perform the
physical action of moving the paper carriage before printing. So yes,
ASA always performed the action of
Um,
IEHPROGM? That's really showing my age.
On Wed, Dec 23, 2009 at 5:02 AM, Kirk Wolf k...@dovetail.com wrote:
I need a programming api to rename datasets, including relative
references to GDGs.
Is calling IDCAMS the only route, or are there alternatives?
Not running under a TSO TMP, so the
Thanks John,
Never too old to learn a new word:
quondam :belonging to some prior time; erstwhile friend;
Well HLASM is still an erstwhile friend where I work and indeed at the
rascally Dave Crayford's place of crust-earning. (Hi David - Merry
Christmas!).
Dave and I were discussing mainframes
Ours is slow too but not that I notice big problems. I remember the
70's and TSO response times of minutes.
Ping statistics :
Packets: Sent = 4, Received = 3, Lost = 1 (25% loss),
Approximate round trip times in milli-seconds:
Minimum = 226ms, Maximum = 261ms, Average = 237ms
On Fri,
A friend of a friend has written some automation software.
He has a free download here:
http://www.geocities.com/nit_proclub/Deru_zCBT_AutoPac.html
Quite a smart team of guys here. All Indonesian.
Enjoy!
On Tue, Sep 29, 2009 at 1:25 AM, Scott Ford scott_j_f...@yahoo.com wrote:
One thought,
What a dunce.
Didn't proof read a thing! Especially her own footnote.
On Mon, Sep 28, 2009 at 11:33 PM, Natalie Boike nbo...@msptechmedia.com wrote:
--
Natalie Boike | Managing Editor
IBM Systems Magazine, Mainframe edition and Power Systems-AIX edition
nbo...@msptechmedia.com |
You're just saying that because the beach has no sand in Vermont :)
A big thanks to all contributors to Hercules,,,
On Mon, Sep 21, 2009 at 7:25 AM, Gerhard Postpischil gerh...@valley.net wrote:
Patrick O'Keefe wrote:
I've decided I'll drop off the list in a week or 2 rather than hear more
It should be 133 anyway, makes coding for my 1403 line printer a cinch
:)
Why not 145 for the 1443 or 242 for the 3800?
I'm still using up the 132 column printer layout sheets from 1975 :)
--
Wayne V. Bickerdike
--
For
AM, Wayne Bickerdike wayn...@gmail.com wrote:
There is VTAMAPPL.
We use that, it has PAUSE nn etc.
Use it to start all our STCs and put appropriate PAUSEs in the commands.
Also used to automate shutdown.
On Wed, Sep 9, 2009 at 2:03 AM, George
Rodriguezrodrigu...@palmbeach.k12.fl.us wrote
VB 255 gives you more flexibility, I just find that long character
strings are easier to code if you can use the whole 255 bytes.
So many times have novices asked me why their REXX was failing and it
was sequence numbers in 73-80. Can still happen for VB 255 but always
seems to be that folks
I agree with John, make the referback always to the previous step.
When I was doing a lot of tape stacking, I also had a placeholder
dataset for the first one on the initial tape.
I would generate the JCL using a REXX to build the STEPNAME referback
name and build a new job at step 255.
Use of
There is VTAMAPPL.
We use that, it has PAUSE nn etc.
Use it to start all our STCs and put appropriate PAUSEs in the commands.
Also used to automate shutdown.
On Wed, Sep 9, 2009 at 2:03 AM, George
Rodriguezrodrigu...@palmbeach.k12.fl.us wrote:
Hi Listeners,
Presently we use the following
Peter,
I agree with Edward on this one, ie if you can avoid performing the instruction.
Something you wrote perhaps suggests that it may be a redundant move,
SNIP
I had not thought of the cache-line problem. This particular MOVE is in
a subroutine that is invoked multiple times per input
01 ALLSPACE PIC X(255) VALUE SPACES.
01 CHAR120 PIC X(120).
MOVE ALLSPACE TO CHAR120.
Depends on the compiler ultimately.
On Sat, Aug 8, 2009 at 7:40 AM, Joel Wolpertj...@perfconsultant.com wrote:
Since he is trying to tune a COBOL program how would he accomplish this.
- Original Message
X'01' is write without spacing for RECFM=FM.
What is SYSPRINT declared as?
Been a long time since I used STEAM I/O :)
On Mon, Jul 13, 2009 at 11:39 PM, Adam Johansonadam.johan...@usaa.com wrote:
If the fields are 36 characters, why are 37 being displayed?
Must just be how PL/I does it
You can delete a PDS member in REXX using a basic:
ADDRESS TSO
'DELETE 'MY.PDS(MEMBER)'
As previous posters have indicated, PDS86 is free and does everything.
So you can build a list using LISTDS and build from the stem variable.
I did build a home grown once which built IEHPROGM
Which one did you like best?
On Thu, Jul 9, 2009 at 5:17 PM, CUNY Yannyc...@externe.generali.fr wrote:
thank you for your answers.
Merci beaucoup ...
Cordialement,
Yann Cuny
Groupe GENERALI
Industrialisation et Gestion des Environnements
* 01 58 34 12 64
*yc...@externe.generali.fr
I don't know if compiled REXX works differently from interpretive.
There is a possibility that you are executing an ISPF service or
something that isn't interruptible.
I know that I might have to hit ATTN a few times and enter the HI
command to break a looping or long running REXX.
Can you
Make sure you didn't accidentally set up an initial macro on your ISPF EDIT
panel.
In option 2) look below the Workstation File line and make sure nothing is
in the initial macro field.
I've done this by accident a few times. The macro setting will stay in your
ISPF profile until you remove it.
Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Wayne Bickerdike
Sent: Monday, February 11, 2008 10:16 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: WLM for toddlers
Actually the terminology for SPAs applies also to UDFs (user defined
functions).
The SQL DDL for a UDF includes
Actually the terminology for SPAs applies also to UDFs (user defined
functions).
The SQL DDL for a UDF includes the name of the external load module (8 char
load module) and the WLM environment which in some of the IBM example code
is something like WLMENV1.
WLM starts up an address space to
It's been a while since I worked on VSE but IDCAMS is not as quick as DITTO
and IDCAMS won't give you the tape control, as you say there is
allocation/deallocation. If you can listen to the tape drive you should be
able to detect if there is rewind and re-position occurring.
On 1/17/08, Carl
I've been reading the notes for MFNETDISK for a while and it complements
Hercules emulated disk as one of the functions. Unless I'm mistaken, the
disk emulation would be useful where the disk is remotely located from the
processor complex or emulated processor (Hercules etc.). Obviously
I use IRXJCL if I'm not using ISPF services.
Here is a sample of batch IRXJCL. I pass an exec name and some parameters
for execution and read and write a file. Does this help?
The REXX is CALLDCOM and rest are comma delimited parameters parsed out at
the start.
There are no TSO ALLOCATES in the
David had it first but thanks Frank, I always love the things DFSORT can do.
I recently had to do the same thing but used IDCAMS viz:
//* ASSUME OUT1-3 ARE PRE-ALLOCATED OR USE IEFBR14 FIRST
//STEP EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD1 DD DSN=MY.LARGE.INPUT.FILE,DISP=SHR
//OUTDD1
I have a REXX which builds a member list and uses EXECIO to write each
member preceded by a ./ADD card for IEBUPDTE.
After the flat file is edited, simply use IEBUPDTE to add the members back
to the PDS using the flat file as input.
I can post the source or email it to the OP.
On 7/24/07,
60 matches
Mail list logo
