From: Jake anderson justmainfra...@gmail.com
To: IBM-MAIN@bama.ua.edu
Are there any sample JCLs which would perform the above stuff at once for
all 214 datasets.
the best method I can think of is Mark Zelden's REXX INDIRECR:
http://www.mzelden.com/mvsfiles/indirecr.txt
which will provide
Hi Tom,
In respect of your recent post on the issue of the title, and your last
paragraph:
It clearly says only directories and paths, but I suppose a confirmation
that datasets are not supported would be nice. I will try to get that into
the next version of the Programming Guide. If anyone
Linda,
Thank you very much, your info is being very useful.
2012/4/18 Linda Mooney linda.lst...@comcast.net
Hi Alvaro,
Along with your ServerPac, there are instructions for testing system
components/products and a library, *.SPAC.IVPLIB with some jobs in it.
There is also some info in
Thanks Peter. They re-IPLed that LPAR on Sunday so that cleaned everything
up.
Regards,
John.
On 17 April 2012 17:31, Peter Relson rel...@us.ibm.com wrote:
Does anyone know if there is a way of finding out which address spaces
are using these previous versions with the non-zero use counts ?
Why? I don't understand this comment, because JCL parm is always only
one parm;
no variable length address list ... what do I get wrong? Well, the JCL
parm itself has
variable length, but the length of the address list is fixed, always
one. And: I dont know
if the system sets the high order bit
Hello,
I want to achieve:
if input parm is A:
execute job step1
else execute job step2
Is it possible to do it using if/then/else or other methods without coding a
program?
regards
Victor
--
For IBM-MAIN subscribe / signoff /
On Wed, 18 Apr 2012 04:25:12 -0500 Victor Zhang victor_wor...@yahoo.com.cn
wrote:
:Hello,
:I want to achieve:
:if input parm is A:
:execute job step1
:else execute job step2
:
:Is it possible to do it using if/then/else or other methods without coding a
program?
How is the input parm passed?
-Ursprungligt meddelande-
Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För
Shmuel Metz (Seymour J.)
Skickat: den 18 april 2012 01:26
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SV: GO TO cobol
In
a90e503c23f97441b05ee302853b0e626402a60...@fspas01ev010.fspa.myntet.se
Victor Zhang wrote:
I want to achieve:
if input parm is A:
execute job step1
else execute job step2
Is it possible to do it using if/then/else or other methods without coding a
program?
Where and in what format is your parm?
Give us an example on what you want to do.
Groete / Greetings
Just found this information related to the ZFS delay I'd had, which I'd filed
away. It's copied from a redpiece. I chopped bits out here and there I think,
but the full text is in the following Redpiece:
http://www.redbooks.ibm.com/redpieces/pdfs/sg246580.pdf
2.12.2 Mounting zFS file systems
Fort Huachuca is in Arizona, and when I was in the Army was the training base
for some of the communications stuff. The other communications training was
Fort Monmouth, New Jersey.
I believe that Fort Huachuca also had some intelligence schools there. That
could have been programming classes
What about the ASMA90 program? It can be invoked via JCL and process the PARM=.
But it can also be LINK'd to or ATTACH[X]'d. In this latter case, The parmlist
passed in via GPR1 can have more than one entry. The others are for things like
overriding DD names. Many of IBM's utilities (such as
Presumably an output PDS for file tailoring within the SMP/E dialogs.
You might want to make it a per-user data set.
No no no. SMPTABL is an ISPF table data set intended to be shared by
all your SMP/E dialog users.
Ok, the proc is like:
//ABC PROC VER='620'
//PGMNAME EXEC PGM=PGM
//STEPLIB DD DNS=LOADMOD.V620
IF VER NOT = '620' i want proc be:
//PGMNAME EXEC PGM=PGM
//STEPLIB DD DNS=LOADMOD.V710
So I code:
//ABC PROC VER='620'
//IF620 IF (VER=620) THEN
//PGMNAME EXEC PGM=PGM
//STEPLIB DD DNS=LOADMOD.V620
According to the JCL manual that won't work:
The following keywords are the only keywords supported by IBM and recommended
for use in relational-expressions. Any other keywords, even if accepted by the
system, are not intended or supported keywords. Also you need to change DNS to
DSN
On Wed, 18 Apr 2012 09:30:59 -0400, Veilleux, Jon L wrote:
According to the JCL manual that won't work:
The following keywords are the only keywords supported by IBM and recommended
for use in relational-expressions. Any other keywords, even if accepted by the
system, are not intended or
Why not pass the the version in as a symbolic:
//ABC PROC VER=620
//PGMNAME EXEC PGM=PGM
//STEPLIB DD DNS=LOADMOD.Vver
Then you can call it from your JCL:
//STEP1 EXEC PROC=ABC,VER=620or
//STEP1 EXEC PROC=ABC (This will default to 620)
and then if you have a new version, you can
On Tue, 17 Apr 2012 23:50:46 -0700, Walter Marguccio
walter_marguc...@yahoo.com wrote:
From: Jake anderson justmainfra...@gmail.com
To: IBM-MAIN@bama.ua.edu
Are there any sample JCLs which would perform the above stuff at once for
all 214 datasets.
the best method I can think of is Mark
Another option is to pass the parameter as PARM information to a first step.
The program for the first step would inspect the PARM and set its return code
accordingly. Subsequent steps could be made conditional on the return code of
this first step.
John
On Tue, Apr 17, 2012 at 10:33 PM, John McKown joa...@swbell.net wrote:
Guess I am spoiled by the assembler (as command) and C/C++ compiler's
support of both UNIX paths and z/OS PDS[E]s.
Spoiled by common sense :-) z/OS Unix commands should not be walled out
from z/OS datasets.
I have a,
Z...
Here is another approach i use this:
//BULDREL JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8,
// NOTIFY=SYSUID,REGION=0M
//*--*
//* BUILD FOR IDF RACF RELEASES *
//* . PRODEXP = EXPRESS PIONEER ONLY *
//* . PRODENT
On 04/18/2012 08:46 AM, Paul Gilmartin wrote:
On Wed, 18 Apr 2012 09:30:59 -0400, Veilleux, Jon L wrote:
According to the JCL manual that won't work:
The following keywords are the only keywords supported by IBM and recommended
for use in relational-expressions. Any other keywords, even if
On Wed, 18 Apr 2012 08:18:25 +0530, Jake anderson wrote:
I am just curious to know if we have indirectly cataloged one set of volume
lets say ZX2RS2 to SYSR2. Can we change back the entries in Master Catalog
from SYSR2 to ZX2RS2 ? Could anyone please advise me if such options are
available to do
On Wed, 18 Apr 2012 09:47:05 -0500, Joel C. Ewing wrote:
On 04/18/2012 08:46 AM, Paul Gilmartin wrote:
On Wed, 18 Apr 2012 09:30:59 -0400, Veilleux, Jon L wrote:
According to the JCL manual that won't work:
The following keywords are the only keywords supported by IBM and
recommended for
On Wed, 18 Apr 2012 08:02:20 -0500, Victor Zhang wrote:
So I code:
//ABC PROC VER='620'
//IF620 IF (VER=620) THEN
//PGMNAME EXEC PGM=PGM
//STEPLIB DD DNS=LOADMOD.V620
// ELSE
//PGMNAME EXEC PGM=PGM
//STEPLIB DD DNS=LOADMOD.V710
//ENDIF
A possible drawback of such a scheme is that at job
On 04/18/2012 10:51 AM, Paul Gilmartin wrote:
On Wed, 18 Apr 2012 09:47:05 -0500, Joel C. Ewing wrote:
On 04/18/2012 08:46 AM, Paul Gilmartin wrote:
On Wed, 18 Apr 2012 09:30:59 -0400, Veilleux, Jon L wrote:
According to the JCL manual that won't work:
The following keywords are the only
The following can accomplish the same thing without the need to write a
custom program. This solution is entirely contained within the JCL:
//*
// SET HEX00=' ' === THIS IS A HEX ZERO CHARACTER
// SET SYMBL='XYZ'
Whomever it was that invented the entire COND construct in JCL was severely
demented; with the ABENDCC options being only a small part of it!
:-(
From: Joel C. Ewing jcew...@acm.org
To: IBM-MAIN@bama.ua.edu
Sent: Wednesday, April 18, 2012 11:25 AM
Subject:
I have the following job (cut down to include only the relevant parts):
//VAPPROC4 JOB
//BACKUP1 EXEC PROC=SORTBKUP,COND=(4,LT)
//EP4IN EXEC PROC=EP4IN,COND=(4,LT)
//E4INPRT EXEC PROC=E4INPRT
//
The EP4IN PROC is a vendor supplied proc as follows:
//EP4IN PROC
//STEP01 EXEC
You can pass the symbolic PARM to a program and then have the program set
the appropriate return code that the JCL can then use the return code for
branching. In this case you could return 0 or 1.
I often need to execute neither, one or both of two steps. RC=1 or 3
selects the first. RC=2 or 3
And the Computer Systems Command was out of Ft. Belvoir, VA and had
administrative offices out at the Melpar bldg. on Route 50 along with a drone
development pgm out of DARPA. Classes were offered from DODCI at the Naval
Yard for civilians and military.
In a message dated 4/18/2012
On 04/18/2012 12:43 PM, Frank Swarbrick wrote:
I have the following job (cut down to include only the relevant parts):
//VAPPROC4 JOB
//BACKUP1 EXEC PROC=SORTBKUP,COND=(4,LT)
//EP4INEXEC PROC=EP4IN,COND=(4,LT)
//E4INPRT EXEC PROC=E4INPRT
//
The EP4IN PROC is a vendor supplied proc as
Sorry, my cut and paste went awry. Should be this:
//EP4IN PROC
//STEP01 EXEC PGM=IEFBR14,COND=(20,LT)
//STEP01A EXEC PGM=IEFBR14,COND=(20,LT)
//STEP02 EXEC PGM=EPZOS,COND=(20,LT)
//STEP03 EXEC PGM=IDCAMS,COND=(7,LT)
//STEP04 EXEC PGM=EPTBLUPD
// IF ( STEP04.RC = 3 ) THEN
//STEP05 EXEC
On Tue, 17 Apr 2012 22:23:09 -0500, John McKown wrote:
I do use a UNIX subdirectory on my SYSEXEC concatenation. But, as you
said, it cannot be first. So I have an empty PDS with FB/80 as the first
DSN in the concatenation. A clumsy work around, but at least it works
for me.
Me, too. It could
In 1334691539.94814.yahoomai...@web180906.mail.ne1.yahoo.com, on
04/17/2012
at 12:38 PM, Lloyd Fuller leful...@sbcglobal.net said:
Univac SAAL computers
ITYM UNIVAC 1005[1]. I had successfully ripped the memory out by the
roots; thank you for reminding me :-(
[1] SAAL was the assembler.
--
In
caarmm9rp0g+13e_a5eqofwtou2preb3rgpfhcy+6cahbr6k...@mail.gmail.com,
on 04/17/2012
at 05:49 PM, Tony Harminc t...@harminc.net said:
I suspect they continue to use a combination of DADSM and
home-grown manipulation of control blocks.
More likely a bog standard search of the TIOT with some
On 17 April 2012 21:26, Shmuel Metz (Seymour J.)
shmuel+ibm-m...@patriot.net wrote:
I suspect they continue to use a combination of DADSM and
home-grown manipulation of control blocks.
More likely a bog standard search of the TIOT with some of them doing
an OPENJ, e.g., IEHLIST, IEHPROGM.
For
On Wed, 18 Apr 2012 12:25:06 -0500, Joel C. Ewing wrote:
So does IBM change the docs to agree with the implementation (the
cheaper solution), or do they change the code to not conflict with the
docs (which may break existing usage)? In any event, the existing JCL
documentation should not be
On Wed, 18 Apr 2012 23:04:51 +0200 (CEST), in bit.listserv.ibm-main
Nomen Nescio wrote:
* this is a response to a posting to just the newsgroup and not the
listserv
mathwst...@bellsouth.net (Matthew Stitt) wrote:
Having said that, I still use GO TO extensively, and have not kept up with
the
On Wed, 18 Apr 2012 21:59:33 -0300, Clark Morris wrote:
On Wed, 18 Apr 2012 23:04:51 +0200 (CEST), in bit.listserv.ibm-main
Nomen Nescio wrote:
Hoo dat!?
This gets back to what I said. PERFORM is net 5 instructions more *per PEFORM*
than two GO TOs (to and fro) so loops processing millions of
Mark,
If you use that exec to undo indirect cataloging, *YOU MUST* change
DEVT() to DEVT(3390) (assuming you are not using something
like a P/390 with 3380 DASD) before submitting the IDCAMS job
Yeah I have pointed DEVT(3390)..
On Wed, Apr 18, 2012 at 8:30 PM, Tom Marchant
Years ago, I learned my first programming language (FORTRAN) from an
excellent book by Daniel McCracken who was justly famous for his
excellent programming books. He was also known, (but not quite as
well) for a mid-life crisis which involved completing a degree from a
seminary, but never
42 matches
Mail list logo