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 wrote:
> Even a structured IF THEN ELSE END-IF or SELECT WHEN WHEN OTHERWISE
> END-SEL
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 j
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.
The
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 thei
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 wrote:
> I usually keep an IEFBR15 laying around for test purposes.
> And like Eds', this does as advertised
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 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. recent book disc
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 p
d 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-b
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 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
>> datasets.
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 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 thi
Try Filezilla:
http://filezilla-project.org/client_features.php
On Wed, Feb 10, 2010 at 1:27 PM, Scott 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 wrote:
>
>>
This is very simple,
QUEUE,
"//JOBNAME JOB 'MYJOB',MSGCLASS=X,NOTIFY="US",CLASS=4, "
QUEUE,
"// SCHENV=,TIME=1440 "
QUEUE,
"//""
QUEUE,
"//* JCL COMMENT
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 wrote:
> Patrick O'Keefe wrote:
>>
>> I've decided I'll drop off the list in a week or 2 rather than hear more
>> about all the
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 wrote:
> One thought, would be System Rexx, R
What a dunce.
Didn't proof read a thing! Especially her own footnote.
On Mon, Sep 28, 2009 at 11:33 PM, Natalie Boike wrote:
> --
>
> Natalie Boike | Managing Editor
> IBM Systems Magazine, Mainframe edition and Power Systems-AIX edition
> nbo...@msptechmedia.com | 612-373-9584
>
> We now offer
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,
Um,
IEHPROGM? That's really showing my age.
On Wed, Dec 23, 2009 at 5:02 AM, Kirk Wolf 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 TSO RENAME co
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 "mainframe
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
wrote:
> The environment:
>
> Assembler LE main creates enclave FOO.
>
> It calls an Enterprise PL/I OPTIONS(MAIN) which creates enclave BAR
>
> PL/I prog
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 wrote:
> ;-)
>
> On Tue, Jan 24, 2012 at 4:26 PM, Mohd Rizwan wrote:
>
>> I am Mohammed ,
>> I have e
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 :
> In reading the various posts in this thread it has occurred to me that the
> distinction between a job and a job step, always arbitrary, is particula
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 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
> 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 eff
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 wrote:
> On Thu, 21 Apr 2011 07:18:38 +1000, Wayn
ar and all jobs
would be "online".
On Thu, Apr 21, 2011 at 12:08 PM, Gerhard Postpischil
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 fr
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 wrote:
> Quasar
>
> A
about a day's
> delay. That to me means you should 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 p
They are charging $2200 for a two day workshop!
On Tue, May 17, 2011 at 1:17 AM, Eric Bielefeld 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.
> Unfortuneatly, it's in Melbo
;> 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.r
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 wrote:
> HI,
>
> In a few days I will make MFNetDisk really a free product.
> That mean you will be
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
wrote:
>>Riedel, Alexander wrote:
>>>I think YGIAGAM meens: Your guess is as good as mine
>
> Pe
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
wrote:
> Wayne Bickerdike wrote:
>
>>To my even more boring purist streak, isn't it literally &quo
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 mat
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
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 B
;a REXX exec" would work: "I have a REXX
> exec that ..."
>
>
>
>
>>
>> http://www-01.ibm.com/software/awdtools/rexx/library/ibmpubs.html
>>
>> Switching between languages is similar to invoking ISPF panels.
>>
>> On Tue, Aug 3, 2010
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 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 recor
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 series
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 deletes
Which one did you like best?
On Thu, Jul 9, 2009 at 5:17 PM, CUNY Yann 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
>
> -Message d'or
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 Johanson wrote:
>> If the fields are 36 characters, why are 37 being displayed?
>
> Must just be how PL/I does it with the PUT SKIP LIST
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 Wolpert wrote:
> Since he is trying to tune a COBOL program how would he accomplish this.
> - Original Message - From: "Bill Fairc
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,
I had not thought of the cache-line problem. This particular MOVE is in
a subroutine that is invoked multiple times per input record (>
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
Rodriguez wrote:
> Hi Listeners,
>
>
>
> Presently we use the following procedure (IVPRDR) to issu
I'll have to search my LINKLIST, when we ran a FLEX it came from the ADCD libs.
I'll get back unless other posters know the origin.
On Fri, Sep 11, 2009 at 6:32 AM, Mark Pace wrote:
> I can't seem to find VTAMAPPL. Where is this program located?
>
> On Wed, Sep 9,
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 don't
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 a
>>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
--
F
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 execu
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 Edw
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 exec
; the APPLENV definition.
>
> -Original Message-
> From: IBM 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
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
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
performance
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.
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, Ear
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 DD
60 matches
Mail list logo
