From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Darth Keller
Sent: Wednesday, June 13, 2012 7:22 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Complimentary E-book Thriller from author,
Marshall Chamberlain
How is this appropriate?
It's not. It is simply spam
then you just don't
understand.But others say how can you be paranoid if they
really are out to get you?
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of McKown, John
Sent: Wednesday, June 13, 2012 7:36 AM
To: IBM-MAIN
Try this URL for the archive of the DB2-L site.
http://www.idug.org/p/fo/et/catid=17
Or, if you decide not to trust a URL in an email (per a previous message from
me), then use your search engine of choice for db2-l.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
I __think__ I understand what IBM is saying. You must differentiate between a
hex value (0x00..0xFF) and a code point (a subset of hex values). Not
every hex value is a code point in every CCSID. I.e. a single byte CCSID
may have less than 256 code points, or a double byte CCSID may have less
If you mean that they FTP transferred an XMIT file via an intermediate system
which was ASCII based (such as Windows) and forgot to do a BINary transfer at
some stage, you are out of luck. The problem is that, in general, if you do an
EBCDIC to ASCII to EBCDIC tranlation which include non
Are the volume serial numbers in the TCDB? I.e. the SMS Tape Control Data Base,
which is usually name SYS1.VOLCAT.VGENERAL. I would bet that they are not. So
you must run a ALTER command. We do this a lot at DR and have a REXX program:
/* REXX */
PARSE ARG INVOL
ALTER VINVOL VOLENT
Grinning, Ducking, and Running.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may
Perhaps I didn't get enought sleep during staff meeting, ah I mean last night.
But I just had the weirdest thought enter my head. There have been many
complaints about the limit of 255 entries in a GDG. Now, I won't debate that at
all. But how many people who want more actually need to address
From a vague memory, the Vnn was to be used if you had to do a file fix type
operation and recreate a specific generation. The system did not help with a
way to do this, but if you did it yourself by deleting the V00 version and the
cataloguing a V01 (and now-a-days do a ROLLIN), you could
If it were a single drive in a Raid 5 type configuration, I'd guess it would be
totally impossible. But in a Raid 1 (mirrored), why not? Each drive contains
the entire set of bits. But I don't know that for sure. It's just a SWAG.
--
John McKown
Systems Engineer IV
IT
Administrative Services
Just a point which may not be obvious (at least it wasn't to me). The default
of 5 tape volumes is hard coded only for non-SMS managed tapes. Truly! If you
are using SMS managed tapes (in an automated or even manual library), then you
can assign a default DATACLAS. In this DATACLAS, you can set
Did somebody change the LE options? That's all that I can think of. No, I don't
know what the option(s) might be that could cause this difference.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817)
site. Is there anything I can send to you to
help your cause? What types of JCL issues do you typically
have? May I
ask what batch scheduler you use? Change management tool?
.anything
else you can tell me.
Cheers,
Mitch McCluhan
-Original Message-
From: McKown, John
I don't know if anybody else would be interested. Makes me wish that somebody
would port LLVM to z/OS. I have it on Linux.
http://www.ibm.com/developerworks/linux/library/os-createcompilerllvm1/index.html?ca=drs-
Hum, the dash needs to be on the end of that URL, but OutLook doesn't highlight
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Hansen, Dave L - Eagan, MN
Sent: Wednesday, June 06, 2012 11:34 AM
To: IBM-MAIN@bama.ua.edu
Subject: Exclusive ENQ on dataset owned (SHR) by Started Task?
Group,
We are running
I'm fairly sure you need the
REF=*.STEP01.PROC001.TAPE
to be
REF=*.PROC001.STEP01.TAPE
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets®
9151 Boulevard 26 . N. Richland Hills . TX 76010
(817) 255-3225 phone .
john.mck...@healthmarkets.com .
: McKown, John john.mck...@healthmarkets.com
To: IBM-MAIN@bama.ua.edu
Date: 06/05/2012 04:05 PM
Subject: Re: JCL PROBLEM
Sent by: IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu
I'm fairly sure you need the
REF=*.STEP01.PROC001.TAPE
to be
REF=*.PROC001.STEP01.TAPE
Ouch. Doing that sort of polling makes me cringe. And inspires an idea (perhaps
insane). Write an APF authorized TSO command which can do an ISGENQ on any
QNAME / RNAME (even a restricted one) with the WAIT option. When acquired,
immediately release the ENQ and exit. It might even have a
I don't know of a way to detect that via an API call. I am curious as to why
you want to. Seems inefficient to me. The compiler knows at compile time if
WITH DEBUGGING is ON or OFF. So why use up CPU cycles determining something
that is already determined at compile time. Whatever you are going
about using WITH DEBUGGING entirely.
Peter
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of McKown, John
Sent: Monday, June 04, 2012 1:22 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Is there an Enterprise COBOL API to detect
SOURCE
Most probably do not care. We do. You'd be amazed at the things we do to reduce
our MSU requirements. Programmers are a fixed cost. From what I've been told,
if we could reduce our Group Capacity by 1 MSU, we would save $13,000/yr, in
hard dollars. So we would spend many soft dollars to do
-COMPUTER WITH DEBUGGING on or off at runtime?
Takes a lot of IF statements to equal one MSU.
Does not take a heck of a lot of programmer time to equal $13,000.
Charles
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of McKown, John
I don't know about that message in particular, but I know that the HSM started
task often issues message via a directed TPUT having an option to deliver it to
the userid which issued the HSM command. Similar to what the z/OS SEND
commands does when sent by another TSO user or operator command.
No. The C library's regular expressions can be either basic or extended, based
on a flag. They are not Perl's PCRE regular expressions.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/EDCLB1C0/3.796.3
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of R.S.
Sent: Wednesday, May 30, 2012 9:43 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: SMP/E and UNIX (JAVA?) (solved)
snip
Well, I found 'jar' program in 9 different locations,
I don't know if DFSORT can do this. I'm not too familar with the advanced
stuff. But that pattern matching is exactly where regular expressions would
be a perfect fit. I would say more, but I fear the small, but very vocal,
anti-UNIX members.
--
John McKown
Systems Engineer IV
IT
I know that I can run the TSO TMP in batch. Using this, I can run a REXX
program which sets up all the ISPF required datasets. I can then invoke
ISPSTART with the CMD(...) option to run another program/CLIST/REXX. In that
program, I can use most of the non-DISPLAY oriented services, such as
Another, possibly too weird, technique would be to use GIMZIP. GIMZIP supports
the packaging of both z/OS datasets and z/OS UNIX files into a container
file. It is also compressed and needs to be transferred in BINary mode. And
then there is the CBT tape method. Use TSO XMIT for all the z/OS
question
In a6b9336cdb62bb46b9f8708e686a7ea00e924b4...@nrhmms8p02.uicnrh.dom,
on 05/25/2012
at 07:44 AM, McKown, John john.mck...@healthmarkets.com said:
I know that I can run the TSO TMP in batch. Using this, I can run a
REXX program which sets up all the ISPF required datasets. I can
A likely weird thought occurred to me. Do you need to keeping the masking
values between runs? I.e. must the masked value be the same for the same input
on multiple runs? If not, then the simpliest way that I can think of is to
either use a sequential number as the replacement value. Keep a
Do you actually have a billion numbers in your data? If not, my thought would
be to only generate as many mapped keys as you have unique live keys. That's
what the pseudo code meant to say. Don't generate a key until you need one. You
could even do this using VSAM as the data store. Or, even
Very good. Thanks much, Walt.
Now to encapsulate that functionality in a subroutine. And, horrible person
that I am, my subroutine will be in HLASM and packaged as an LE enabled DLL so
I can use it in my UNIX programs.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
http://arstechnica.com/apple/2012/05/ibms-siri-ban-highlights-companies-privacy-trade-secret-challenges/
It's about IBM banning Siri due to how it works. But the IBM logo they
created is very cute.
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151
Oh, I'd never seen it before. Thanks for the correction.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com
Confidentiality
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin
Sent: Wednesday, May 23, 2012 10:40 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Unicode Services translation question
snip
(John M. was lately ranting on another forum
.
BTW: I haven't investigated it: I have some 3270 emulator
which allow to
view few previous screens - sometimes usable for ISPF activities.
However this facility does not work for NIP text stream.
--
Radoslaw Skorupka
Lodz, Poland
W dniu 2012-05-18 21:11, McKown, John pisze:
I
You're example uses the TSO CALL function to invoke your assembler. In this
case, the calling convention is exactly like in a batch program. R1 points to a
fullword address. That points to the parameter on the call where the first two
bytes are the lenght of the parm, followed by that number of
I use the HMC and the Operating System Messages ICON. I don't have any
NIPCONS, so I IPL and monitor from the HMC until I can get an SMCS console
going.
If you do have a 3270 type console, why not record the console on your cell
phone camera? It is a bit small. So, get a tablet. Might take two
I actually run Hercules-390 on my Core i7 laptop, on rare occassion. I have
OS/VS1, OS/MVS 3.8j, and VM/370 images. I should possibly get MVS/380 too. That
is MVS 3.8j, extended to 31 bit addressing by hobbists using the OS/MVS 3.8j
source. I also have the MVS Turnkey CD-ROM.
--
John McKown
In my past life, on VM/370 (yes that far back), VM always played nice with our
MVT and MVS 3.8 system. VM has the concept of system owned volumes. You must
specify these in a control file on the IPL volume. Also, VM does not use a z/OS
type VTOC at all (well, there is a VOL1 and a 1 track VTOC
Agree. Most people, especially US, would likely consider CP-037 to be the z/OS
code page because that is the only one supported by JCL, and the main one for
COBOL. z/OS UNIX seems to like IBM-1047 which is generally compatible with
CP-037 (other than those pesky []{}\| characters).
--
John
It is completely documented starting here:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2u160/5.0
They even show examples. I have never used IEBEDIT myself.
Too bad we can't get Apple to port Siri to answer these questions. They show a
definite lack of ambition to search the
From my (small) shop:
AMTMS4I 16 MEG LINE
AMTMS3I NUC R/O 00FE4000 00FF112 Ki ---
AMTMS3I NUC R/W 00FD5000 00FE3FFF 60 Ki ---
AMTMS3I SQA 00E4E000 00FD4FFF 1,564 Ki17
AMTMS3I PLPA
-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin
Sent: Monday, May 14, 2012 10:14 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Reducing Common Area below 16M line
On Mon, 14 May 2012 09:13:47 -0500, McKown, John wrote:
From my (small) shop:
AMTMS4I 16 MEG LINE
About as smoothly as a Baja race. I still have scars.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com
Confidentiality Notice:
As documented in the JCL manual, using an * in the sysout class position of a
SYSOUT= makes the class the same value as in the MSGCLASS= parameter on the job
card. It is usually done so that a PROC can use SYSOUT=* to direct sysout to
the same output class as the JCL message.
It has a
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of J. Cassidy
Sent: Monday, May 14, 2012 12:01 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Early IPL problems
Will you pay (Euros only) for this knowledge?
I am afraid nothing is free
NewEra Software markets SAE. They also have a DASD erase program. We use it at
DR to scrub all our data.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
The IBM supplied sftp server will __only__ transfer z/OS UNIX files! NOT legacy
datasets. But, wait! There is a solution! Dovetailed Technologies offers a
__FREE__ add on for SSH which allows sftp to read/write both legacy datasets
and JES (submit jobs and retrieve job output). You can get this
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Shane Ginnane
Sent: Friday, May 11, 2012 7:41 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: SFTP
On Fri, 11 May 2012 07:29:50 -0500, McKown, John wrote:
But, wait! There is a solution! Dovetailed Technologies
By jove, that fella must be on a good
Not too difficult. Nothing to be done on the clients, unless you want to
implement the fromdsn and todsn commands. In that case, for UNIX you just
put the proper versions in the proper subdirectory. For MS-Windows, put the
commands in the Windows32 subdirectory, sorry folder (or some other
It was similar to something I was considering posting about output to a UNIX
file instead of a z/OS legacy dataset. Create with a fixed file name, then run
Co:Z Launcher in the next step to do a mv (aka rename) to a fixed prefix with
a suffix of .-mm-ddThh:mm:ss by using the UNIX date
http://www.itworld.com/hardware/270936/living-computing-fossils-old-tech-holding-dear-life
Interesting. A company in Texas still using an IBM 402 tab machine is an
example.
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills
I'm not aware of anything distributed by IBM. Why not just write some REXX code
to use IGGCSI00 to find the DSNs you want (or parse a LISTCAT) and use that to
generate a series of jobs. Each job just does something like:
//JOBNAME JOB ...
//TOUCH EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDSN
?
On Fri, May 4, 2012 at 2:39 PM, McKown, John
john.mck...@healthmarkets.comwrote:
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of George Henke
Sent: Friday, May 04, 2012 1:02 PM
To: IBM-MAIN@bama.ua.edu
Subject: It's
Sort of. It does not set the AMODE of the currently executing program, true.
Actually it returns the AMODE of the LOAD'ed module in GPR0. Perhaps the OP was
a bit loose in his phrasing.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A9C0/
--
John McKown
Systems Engineer IV
IT
We've all been there. Before we were acquired some time ago, we had basically
the owner (who was a multimillionare and quite smart, actually) who would make
some major decisions based, as best as we could tell, simply on talking to
someone in First Class about what they were considering or had
I am using the UCBSCAN macro to go through all the on-line DASD UCBs. My
invocation looks like:
UCBSCAN COPY,UCBAREA=UCBCOPY,
WORKAREA=SCANWORK,
UCBPAREA=UCBPAREA,
CMXTAREA=CMXTAREA,
RANGE=ALL,
PLISTVER=MAX,
DYNAMIC=YES,
DCEAREA=MYDCE,
-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of McKown, John
Sent: Monday, May 07, 2012 8:21 AM
To: IBM-MAIN@bama.ua.edu
Subject: UCBSCAN question.
I am using the UCBSCAN macro to go through all the on-line
DASD UCBs. My invocation looks like:
UCBSCAN COPY
Wouldn't it depend on how the LPAR is defined? If you've have 4 CP defined in
the partition definition, and no reserve(?) CPs defined, can you dynamically
CF a 5th CP online?
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N.
Paddler
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com
From: McKown, John john.mck...@healthmarkets.com
To: IBM-MAIN@bama.ua.edu
Date: 05/04/2012 08:37 AM
Subject:Re: Engine increase on the 2097
Sent by:IBM
I would love some software, preferable hosted on z/OS, which could do a
context sensitive search of the syslog/operlog. Along with a __good__
repository. There may be such a thing already. I would know because we are a
dying shop.
--
John McKown
Systems Engineer IV
IT
Administrative
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of George Henke
Sent: Friday, May 04, 2012 1:02 PM
To: IBM-MAIN@bama.ua.edu
Subject: It's feeding time in Jurassic Park . . .
and the dinosaurs are very hungry.
I need to migrate 50
Did you change the RECFM from FA to FBA? FA says unblocked and won't allow
BLKSIZE of anything other than 133. Optimal on 3390 should be 27930. But I just
use DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0,DSORG=PS) and allow DFP to determine the
best BLKSIZE.
--
John McKown
Systems Engineer IV
IT
Reminds me of how a printer vendor-who-will-not-be-named (but not IBM), did up
time. Basically the printer was considered up when it was not in use, even
it if was broken. I.e. If it is non-functional over a weekend, it was counted
as be up because we didn't try to print anything over the
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Ford
Sent: Wednesday, May 02, 2012 9:33 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Programming languages can't have copyright
protection, EU court rules
All,
So how do you
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of McKown, John
Sent: Thursday, May 03, 2012 7:49 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Programming languages can't have copyright
protection, EU court rules
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN
Basically, yes. Except that the Android system is not an OS. It is like a JVM
(only not really) in that the OS running on the phone is actually Linux.
Android does not use Java byte code. Java compiles to a universal byte code
(instruction set) sequence. The JVM (Java Virtual Machine)
http://www.phoronix.com/scan.php?page=articleitem=plugable_multiseat_kicknum=1
This is a USB device which can plug into a normal PC running Linux (Fedora 17
is mentioned). You then connect a DisplayLink monitor, USB keyboard and mouse
to the device. And you have a multi-user system on a single
interesting
On Wed, 2 May 2012 07:00:37 -0500, McKown, John wrote:
http://www.phoronix.com/scan.php?page=articleitem=plugable_mu
ltiseat_kicknum=1
This is a USB device which can plug into a normal PC running
Linux (Fedora 17 is mentioned). You then connect a
DisplayLink monitor, USB
, May 2, 2012 at 8:05 AM, McKown, John
john.mck...@healthmarkets.com wrote:
Doesn't really say __how__ it works internally. The author
simply says that, on Fedora 17, it is truly plug and play.
He plugged it into a PC running Fedora and he immediately saw
a GDM login screen. He said performance
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Lizette Koehler
Sent: Thursday, April 26, 2012 5:08 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Have you ever done this using FTP?
snip/
I typically either use TRSMAIN, TSO XMIT, or
add DYNALLOC=(SYSDA,?) where the ? is the number of volumes. DFSORT determines
the amount of sortwork space it needs, then spreads that total amount, in equal
shares, across the number of volumes specified by the ?. That assumes that it
can use ? volumes, of course.
--
John McKown
Systems
ALTER cluster NULLIFY(RETENTION)
per
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT2I290/5.2.2
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
Interesting. How does this differ from zPDT? It sounds like a development
only option, perhaps for ISVs or maybe commercial shops. I'll never see it,
given the company's attitude about the z.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151
Why do you want to VERIFY a catalog? That seems very unusual to me. Have you
made sure that nobody is using it? And have you then done a
F CATALOG,CLOSE(CATALOG.TSO.USERS)
F CATALOG,UNALLOCATE(CATALOG.TSO.USERS)
I'm not sure, but this may allow you to VERIFY the catalog. Assuming somebody
I've tried finding about this using the -08 version of the Principles of
Operation. I got a few hits, but nothing which described what it actually
__does__. I can guess from the phrase, but I'd like something documented.
John McKown
Systems Engineer IV
IT
Administrative Services Group
Run protection. And it likely encodes a unique CPU serial number so that you
cannot pirate any licensed software from work, like any CA products, which
almost all require CARIM to run to install the execution allowed restrictions.
--
John McKown
Systems Engineer IV
IT
Administrative Services
I think the only way to do what you want is via the UNIX readdir type
functionality. The only thing I can find for reading a directory using non-UNIX
BPAM support are the BLDL and FIND macros. Conspicuously missing is DESERV
support.
Also, here
-Original Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Farley, Peter x23353
Sent: Friday, April 20, 2012 8:02 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: USS File Integrity
The OP originally stated that he had two STC processes that
How are you updating the UNIX (not USS, for I live in terror of Chris Mason's
rants) file? Via JCL? JCL does not do any ENQ on a DD when it allocates via a
PATH. You could single thread by allocating a dataset which is vaguely related
to the UNIX file. What I might do would be something like:
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
Only if you consider a Marine to be in the Navy (Technically, they are under
the department of the Navy). But you'll do that only if you don't mind losing
some teeth. grin
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland
Message-
From: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Steve Comstock
Sent: Monday, April 16, 2012 3:21 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Anybody use the cob2 command on a UNIX shell
to compile COBOL?
On 4/16/2012 3:26 PM, McKown, John wrote:
If so
, April 16, 2012 5:21 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Anybody use the cob2 command on a UNIX shell
to compile COBOL?
On 4/16/2012 3:26 PM, McKown, John wrote:
If so, have you figured out how to specify a PDS as an include or
copybooksource? The documentation for this command
As the OP, I thought I'm mention that I finally got the z/OS NFS server to
allow me to mount a high-level onto a z/OS UNIX subdirectory on the same
system. I could then successfully use the cob2 command to compile a COBOL
program which did a COPY CEEIGZCT from the mounted subdirectory. I
: IBM Mainframe Discussion List
[mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Steve Comstock
Sent: Tuesday, April 17, 2012 2:07 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Anybody use the cob2 command on a UNIX shell
to compile COBOL?
On 4/17/2012 12:53 PM, McKown, John wrote:
As the OP, I
Our use of GO TO is generally restricted to usage such as:
PERFORM I-P THRU I-P-EXIT UNTIL CONDITION.
I-P.
READ FILE AT END
SET CONDITION TO TRUE
GO TO I-P-EXIT
END-READ
...
I-P-EXIT.
EXIT.
Otherwise, to avoid the GO TO, we'd need to do:
I-P.
READ FILE AT
What??? monopolizes the CPU??? GO TO was made a pariah by an article by Edgar
Dijkstra.
http://en.wikipedia.org/wiki/Considered_harmful
And, of course, management went stupid (again) and came up with you cannot use
the GOTO in any code at all. Which actually makes some COBOL more
-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin
Sent: Monday, April 16, 2012 8:12 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: GO TO cobol
On Mon, 16 Apr 2012 07:28:10 -0500, McKown, John wrote:
Our use of GO TO is generally restricted to usage such as:
PERFORM I-P THRU I-P-EXIT UNTIL
statements ending with periods. It actually was fun to put
together and
was easy to maintain. However, it would not always be this
streamlined for
some large programs with lots of things going on.
Billy
On Mon, Apr 16, 2012 at 8:28 AM, McKown, John
john.mck...@healthmarkets.com
wrote
Embrace functional programming and eschew the historic procedural paradigm! You
have nothing to lose but your chains! And maybe your mind.
There is no GOTO in any pure functional language that I've read up on
(basically Haskell and Erlang). Ah, imagine the joys of writing CICS code in
LISP
I've had problems at IPL due to the RESOLVER address space not starting. I
don't remember the ZFS started task failing. On my system, I can still bring up
NET and TSO, so I can look in the z/OS SYSLOG. If you have an MAS, can you look
at the failing system's SYSLOG?
--
John McKown
Systems
END-READ
IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on
04/16/2012
08:28:10 AM:
From: McKown, John john.mck...@healthmarkets.com
PERFORM I-P THRU I-P-EXIT UNTIL CONDITION.
I-P.
READ FILE AT END
SET CONDITION TO TRUE
GO TO I-P-EXIT
Impossible in my example case. The NEXT SENTENCE is used like an EXIT PARAGRAPH
verb because the entire paragraph is a single sentence. This is needed to
remove the requirement for a GOTO to a name-EXIT. paragraph. It was to
highlight how awkard the COBOL code becomes if the GOTO is totally
If that type of low level code is needed (i.e. it can't be done in COBOL),
then some shops such as mine will continue to use HLASM until the C/C++
compiler is free. And might not use C/C++ or Metal C even if it were like
HLASM and included in the z/OS license. We have no real need for C/C++ on
I do like the PDFs. I have all the CICS and z/OS system PDFs downloaded to my
PC and on my Kindle DX. I don't like reading them on my PC due to the PDFs
being designed to be read on a device in portrait orientation. They don't look
so good on my PC screen. Especially the ones, like the
From a minor test, the code generated for a simple ADD +1 TO WS-INTEGER
generates the same code for TRUNC(OPT) and TRUNC(BIN). And TRUNC(STD) only
adds a single D (divide) instruction to do the needed truncation. I have not
looked at all the other verbs which could be affected. May do that if I
I've never heard of that data set. Is it an ISPF table data set? Would
something like GIM.SGIMTENU / SYS1.GIM.SGIMTENU / SYS1.SGIMTENU be what you
need? I would guess SYS1.SMP.SMPTABL was created in-house.
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
Well, got some time unexpectedly. I redid my TRUNC tests. And my original test
code was a poor test. TRUNC(OPT) is significantly better than TRUNC(BIN) for
both fullword and halfword binary fields using the MULTIPLY and DIVIDE verbs.
TRUNC(OPT): DIVIDE LSS-FULLWORD-1 BY LSS-FULLWORD-2
L
1 - 100 of 4335 matches
Mail list logo