John McKown wrote:
> If you want to copy the contents of AR4 into AR3, you can do it if you have a
> "free" register with two instructions: EAR R?,R4; SAR R3,R? .
Or you could just use CPYA AR3,AR4. No "free" register required.
Regards,
Allen Gainsford
Info Developer, Banking Shared Services
> All:
>
> I am testing a BPXWDYN call in Cobol and I am building this allocate...
>
> ALLOC DD(TEMPFLE) DA(PIONEER.TEST.SYSIN) NEW CATALOG UNIT(SYSDA) CYL
> SPACE(1,1) DSORG(PS) > RECFM(F) LRECL(80)
>
> I have tied with and without BLKSIZE(80) and in either situation see a
> 4294967463 return >
> IGYCRCTL is the executable load module that is the Resident Control phase
> (main program) of the COBOL compiler.
>
> Now my turn...how does this information help you?
Satisfaction of his curiosity? :) I too was interested to see the derivation
of the name.
Personally, any time I see "IGYCR
> Let's take a simplified example.
> I want to create a file with a 2 byte record with x'a1b2' as the contents.
>
> I use FD to define two fields, each one byte long:
> FD NAME=BYTE1,LENGTH=1,STARTLOC=1,PICTURE=161
> FD NAME=BYTE2,LENGTH=1,STARTLOC=2,PICTURE=178
IEBDG definitely isn't an easy way
John Gilmore writes:
> Mr Altmark is again only marginally correct about the term
> 'underscore', as the OED quotations for it make clear, it is a
> slightly antique term used literally.
The OED defines "underscore", among other meanings, as: "a key on
a computer or typewriter keyboard which produ
> Regrettably, their forceful expression does not endow Mr Gainsford's
> views with substantive merit. The OED defines the verb to underscore
> as
>
> to draw a line or score underneath, to underline
>
> The character '_' does not have this function. It cannot indeed be
> used in this way. To ca
> Didn't Bill Gates once say "We are not going to make the same mistakes
> those folks in the mainframe world did"?
According to Bob Bemer, it was Ted Nelson who said it.
http://www.bobbemer.com/INSIDE-A.HTM
--
For IBM-MAIN subsc
Schwarz, Barry A said:
>
> Have you considered splitting it into two jobs. The first job would have
> everything up to the "particular" step followed by a step with COND=EVEN to
> submit the second job. The second job would not need any special JCL since
> any
> of its steps that abend would ca
Donald Johnson said:
>
> Allen, based on your example, if you leave your IF statement as is, and code
> STEPC and STEPD with ,COND=(0,NE) then if A gets the U0111, the steps inside
> the IF/ENDIF are executed. If B then abends or returns anything other than
> 0, C and D are flushed.
>
> I think w
Mike Schwab said:
>
> COND only works with ONLY or EVEN, not a specific abend code.
> Have you tried
> // IF (proc.step.rc EQ U111) THEN
> to see if it works?
Yes. Please see my original post. The problem is that if I code:
//STEPA EXEC PGM=...
//IF (STEPA.RUN=TRUE OR STEPA.ABENDCC=U
> Scott Ford said:
>
> What about this:
> //COND2 EXEC PGM=TCOND,PARM=11
> //A
> Allen:
>
> What about this:
> //COND2 EXEC PGM=SETCOND,PARM=U111
> //AA SET ABENDCC=U0111
> // IF (COND2.RUN=TRUE OR COND2.&ABENDCC=U0111) THEN
>
> Scott J Ford
I think you've misunderstood. My problem is not with
> I would like to try this process myself, but don't have a cond code program
> that will also set abend codes. Is the source for setcond or sscond
> available for me to try this?
> *don*
>
> On Fri, Jun 3, 2011 at 5:20 PM, Paul Gilmartin wrote:
>
> > On Fri, 3 Jun 2011 16:06:09 -0500, Rick Foch
> Hi Allen,
>
> One package does have the obvious advantage of being - one package. Do you
> have
> a decent scheduling system, one that can track completion, and
> handle predessors and successors, etc.? Ours does. Our p rocesses are set
> up
> in 'family' groups, for example xxxJ0110, xxxJ
> The EVEN subparameter can be used to do what you want to do.
>
> Its use is a little problematic, but if you read the cautionary languageabout
> it
> in the JCL manual it should give you no real difficulty.
>
> John Gilmore Ashland, MA 01721-1817 USA
I beg your pardon, but I don't quite see h
>
> On Thu, Jun 2, 2011 at 5:30 PM, Gainsford, Allen
> wrote:
>
> > Normally (by default), if a jobstep abends, subsequent steps are flushed.
> > There ought to be a better way! Have I missed something obvious? Can
> > anyone offer a suggestion?
> >
>
Normally (by default), if a jobstep abends, subsequent steps are flushed.
I have a requirement in a job that, if a particular step of the job abends with
a particular code, then the job should continue. However, if any subsequent
step abends, then further steps should be flushed. This seems un
> Dear group,
>
> I'm wondering if there is a way to get the size of a
> temporary QSAM-Dataset programmatically without opening
> and seeking to the end of the file. The program, which
> needs the size information is written in C (and so can
> call Assembler) and runs in z/OS-Batch. I played arou
Rick Fochtman write:
> I'd give a case of your favorite beer for an Assember implementation of
> Knuth's Balanced Binary Tree sort, as detailed in his "Sorting and
> Searching" volume.
>
> I wish he'd finish that series ("The Art of Computer Programming").
> After a stellar start, it seems to h
Steve Comstock wrote:
>> WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7)
>> OPEN (INFILE,INPUT,OUTFILE,OUTPUT)
>
>You need the open options to be in parentheses:
>
> OPEN (INFILE,(INPUT),OUTFILE,(OUTPUT))
No, you don't. It might (arguably) be good programming style
to
> the only cond code testing I ever do when writing procs is,
> "if it's true, it's through", meaning the step/job won't
> execute if the COND is true.
Heh. I learned that one as "If true, don't do". Works out
the same, and is catchy enough for me to remember it...
Allen Gainsford
==
On Tue, Nov 30, 2010 at 6:40 PM, michealbutz wrote:
>> Hi,
>>
>> From what I understand running in 64 bit mode (SAM64) you have to run
>> disabled does the
>> SAM64 instruction do that
>>
>
>From my understanding, a problem state program can run in AMODE 64. I don't
>think it is a requirement
> Is this the same feature as "EADSCB=OK" on the DCBE macro?
That's the one.
> What if you left your DYNALLOC alone and simply added a DCBE when
> required?
The DCBE isn't a problem (z/OS 1.9 will just ignore the EADSCB flag).
But I'm using an RB extension that's set to display any DYNALLOC
erro
> Possibly you can look at IHADFA in DFAFEAT8 for DFAEFSEQFOREAS
> - Sequential Extended Format supported
Could be ... it's set on our 1.11 system but not on our 1.09 system.
Thanks!
--
For IBM-MAIN subscribe / signoff / archive
> What's the best (or preferred) way to check if extended attributes
> for datasets are supported (i.e. format 8 or 9 DSCBs)?
> I'm working on a module that needs to be able to run in multiple
> levels of z/OS. It uses dynamic allocation, and if it's running
> on z/OS 1.11 I'd like to use the DAL
What's the best (or preferred) way to check if extended attributes for datasets
are supported (i.e. format 8 or 9 DSCBs)?
I'm working on a module that needs to be able to run in multiple levels of
z/OS. It uses dynamic allocation, and if it's running on z/OS 1.11 I'd like to
use the DALEATT at
> Which is more interesting ?-)
No question. Especially when the CICS one is really about
screwdrivers. :)
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: G
>> Possibly silly question, but I need to test a SYNAD routine, and I
>> can't think of any way to actually produce an I/O >error upon
>> command. Can anyone point out any solutions?
>
>Create a Unix file with lines longer than LRECL; allocate it with
>FILEDATA=TEXT and read it.
>
>With practicall
Possibly silly question, but I need to test a SYNAD routine, and I can't think
of any way to actually produce an I/O error upon command. Can anyone point out
any solutions?
Regards,
Allen Gainsford
Info Developer, Banking Shared Services
HP Enterprise Services (South Pacific)
--
> Correct on strcpy_s versus strncpy. Strncpy has the possibility of making a
> new bad situation while preventing another. You can easily end up with a
> string that is guaranteed to "run wild" if you strcpy it.
I personally have always preferred strlcpy to strncpy or strcpy_s, since
strlcpy is b
> In a nonAPF environment, I don't know if marking a program RENT
> does anything at all.
Well, it means that if multiple subtasks LINK to it simultaneously,
only one copy gets loaded. :)
--
For IBM-MAIN subscribe / signoff / a
> It has ALWAYS been this way. When you link a program "RENT" you're telling
> the system that the program does not modify itself.
Really? I thought that was what REFR was for, not RENT. My understanding
was that RENT simply means that the module can be executed my multiple
tasks simultaneously.
> Likewise, if the "clever person" calls the program from JCL
> with the (proposed) 10,000-character PARM and the program crashes,
> it is the caller who is at fault, neither the program nor the
> JCL converter. But I have trouble with "intended". A careful
> programmer should allow for the possi
> The PARM is not documented as being limited to 100 bytes. Rexx
> Language can pass PARMS of up to 32767 bytes; Assembly Language
> up to 65535. 100 is merely a restriction built into Job Control
> Language, and documented in the JCL manual.
In other words, PARM *is* documented as being limited
For most manuals, softcopy is fine. But having a hardcopy
Reference Summary is *useful*. It's the number one manual
I refer to, by a long shot, and in the time it would take
me to open a softcopy version and lookup what I want, I can
be long since finished with the hardcopy version.
Printing out
> Sorry if I wasn't clear. I meant that an LE option could be used to
> control whether a user batch program would see > 100 character parms.
> I'm suggesting that z/OS itself be extended to support > 100 character
PARMS
> (somehow), but that an LE option would control whether a user program
woul
> You know the rest. It says "example" and "convention", not
> "standard". Regardless, I'd like to see the two-byte length
> followed by the PARM field preserved in any extension of a
> PARM-like operand to a 65536 (it says "two-byte", not "halfword",
> avoiding the implication that it's signed)
> Oh, drudge away! (Or, even "dredge" if you prefer.)
>
> I wouldn't mind changing my JCL to enable this. A couple
> possibilities:
>
> o Support for symbol substitution in SYSIN data sets, so
> one might code:
>
> //STDPARM DD *,SYMBOLS=YES
> FOO=&FOO
> BAR=&BAR
>
> Hi, All,
>
> This is a new one on me: A started task abends S522 after our JWT
> interval. This task is basically a TCPIP Sockets listener (part of an
> IBM product), and will be "inactive" frequently for long(er than our
> JWT) periods of time.
>
> I don't recall ever having seen a started tas
> Does anyone here recall any published news articles or incidents
> involving mainframe hacking (any flavor of VM, VSE or MVS)? Do you
> personally know of any incidents?
>
> Or have any such been kept on the QT?
Anyone who's read "The Adolescence of P-1" by Thomas Ryan will know
exactly how to
> The Y2K office which coordinated all of the efforts for an oil company
> I worked at got a report that its 2 fairly new supertankers had Y2K
> vunerabilities (obviously they got fixed prior to Y2K). My small
> town's volunteer fire department got a fix for one of their fire
> engines for a maint
>>* LOAD the table; R1 has address, R0 has size in doublewords
>>* Get storage below the line using the R0 value * 8
>>* Copy the table to your gotten storage
>
> Instead of copying it, use IARVSERV to map it below the line.
>
> --
> Tom Marchant
Surely, if the table has internal pointers (adcons
41 matches
Mail list logo
