>So what can you do *today* if you have an immediate requirement for an AMODE
>64 COBOL program per Tom Savor's comment, a program that must run both in CICS
>>Transaction Server for z/OS and in non-CICS batch mode? Tom Marchant provides
>one answer that works today and is fully IBM supported:
>
You mean the Mayor that killed corruption and the Mafia in Nyc...that idiot ??
Thanks,
Tom Savor
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Barkow, Eileen
Sent: Friday, January 3, 2020 1:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: it was 20 years ago today
Look at the code:
If it says: CALL 'program' using anything this is a static call. That
program is expected to be in CALLers load module.
If it says: CALL my-program using anything this is a dynamic call. That
program is not in CALLers load module.
Then look for field my-program...
If I read the Manual correctly, only Batch is 64-bit supported. CICS is not
64-bit supported.
I have many DB2 programs that run Batch and Online, so I guess they will have
to be forced to run as 31-bit.
Thanks,
Tom Savor
-Original Message-
From: IBM Mainframe Discussion List On Behal
You can use AMODE 31, RMODE ANY for everything QSAM, BPAM...doesnt matter.
Sometimes a few more hoops have to be jumped thru, but it works just fine.
Thanks,
Tom Savor
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Charles Mills
Sent: Monday, December 16, 2019 5:1
>Hi. If you have IBM File Manager then the (FM) FM Enhanced Search
>facility can be used to search the PROCLIB data sets for a string and
>return a "smart" list of members containing the string. For z/OS
>releases prior to
>2.2 SDSF is required. Look for the description of the EFind command in
In securing Mainframe:
One thing I've noticed over the years is how a Company will "hide" their
Mainframe hardware.
The Hardware for me now is in a unmarked Building that looks like a bunker (I'm
told). Pretty bad that the location is in my town, however the address is NOT
circulated. The fi
Many years ago when Converting a DDA system from Burroughs to IBM, Burroughs
packed fields had the annoying habit of putting the sign at the beginning of
the fieldinstead of the end of the field like IBM.
Made for pages and pages of "Move with Offsets" in the Assembler
programsCobol didn
erior to C? I couldn't even get consensus on C versus C++, and they are at
least similar.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
____
From: IBM Mainframe Discussion List on behalf of
Savor, Thomas (Alpharetta)
Sent: Wednesday, Februar
>That means a) IBM has until September 2023 to fully bring JES2 up to
>JES3 standard
Is JES3 really considered by all to be better than JES2 ??
I know it was 20 years ago, but JES3 gave me nightmares, whereas JES2 never has.
From an application point of view.
Thanks,
Tom Savor
-
>We've been doing DR mirroring for 20 years. It gets tested often. We've moved
>production twice to another >data center using our procedures. What we've
>never done is run production in another location >temporarily. 'Temporary'
>means move it, run it until at least one transaction is committed
Here in the USBS = Bull S**t
Thanks,
Tom Savor
The polite translation is Bovine Scatology. Literally the stuff that comes out
of the south end of a north-bound bull.
In a message dated 1/26/2019 8:39:10 AM Central Standard Time,
r.skoru...@bremultibank.com.pl writes:
Enlight me, what is
DATA(31) - allocates working storage above-the-line
DATA(24) - allocates working storage below-the-line
ALL31 being OFF - is probably what is needed in a mixed environment.
ALL31 being ON - would say that you have no below-the-line programs for COBOL
to deal with.
Thanks,
Tom Savor
-Origi
Use DATA(31)
Thanks,
Tom Savor
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Doug
Sent: Thursday, January 24, 2019 8:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Are there compiler options to move Working Storage in Cobol above
-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Paul Gilmartin
Sent: Monday, January 07, 2019 6:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Pds Copy for Load Lib Members
On Mon, 7 Jan 2019 22:55:32 +, Savor, Thomas (Alpharetta) wrote:
>I'm trying
Lib Members
On Mon, 7 Jan 2019 22:55:32 +, Savor, Thomas (Alpharetta) wrote:
>I'm trying to write a copy program for Source code or Load Data from one Pds
>to Another.
>
Doesn't IBM already supply one?
>The Source Code part seems to be working...no issues.
>The L
I'm trying to write a copy program for Source code or Load Data from one Pds to
Another.
The Source Code part seems to be working...no issues.
The Load library code however, I cant seem to figure out how PDS2TTRT is
populated.
Here is an example:
- DSN=ISPF..LINKLIB,VOL=SER=DVL010 MEM=PDS$
Is there Source code anywhere available for TASID ??
Personally, I'm just curious.
Thanks,
Tom Savor
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: IN
03 AM, Ron hawkins wrote:
> You have asked me and I have said nothing.
Are they lyrics from a Barnsey song?
>
> -Original Message-
> From: IBM Mainframe Discussion List On
> Behalf Of Savor, Thomas (Alpharetta)
> Sent: Thursday, June 7, 2018 9:50 PM
> To: IBM-MAIN@LIS
Rammstein
Thanks,
Tom Savor
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of David Crayford
Sent: Friday, June 08, 2018 12:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: OT: Rap music (was Re: opinion: multi-platform program design)
Brian,
Never thought about Using CPUID and/or machine type as part of a software key.
Generally speaking we try to stay away from tying application to any kind of
machine.
Our application is typical Cobol/Asm, Batch/CICS and VSAM/DB2 system.
Cobol 5 was first change in years that required major
BM Mainframe Discussion List On
> Behalf Of Savor, Thomas (Alpharetta)
> Sent: Monday, March 05, 2018 2:01 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Product license key program
>
>
> Back to the keys question, I've tried to figure out how to even have
> key
apologize up front for my pedantry. However, in the context of this argument
... er ... discussion, it seems apropos:
You typed 'incite' I think you meant 'insight'.
You typed 'site' I think you meant 'cite' (twice).
Peace!
On Mar 5, 2018, at 16:02, Savo
" OK, this discussion has reached the level of diminishing returns."
Man, I guess sothis "was" a very interesting discussion about software keys
that has dissolved quickly.
Guys, I'm not a systems programmer, never have beenbut I'm kind of the
Applications systems programmer if that exis
Hardware Compression ??
Thanks,
Tom Savor
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Brian Westerman
Sent: Monday, February 19, 2018 2:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMS dataset oddity with COM-Plete
Changing S
should the Requested/Below/above/ and so forth of
storage allocation for the step.
Lizette
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Savor, Thomas (Alpharetta)
> Sent: Tuesday, December 12, 2017 11:16 PM
&g
/ and so forth of
storage allocation for the step.
Lizette
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Savor, Thomas (Alpharetta)
> Sent: Tuesday, December 12, 2017 11:16 PM
> To: IBM-MAIN@LISTSERV.UA.ED
On this particular test that got all the storage error messages..region was
set to 0M
Thanks,
Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
Office: 678-375-1307
Mobile: 404-660-6898
Fax: 678-375-3280
www.fiserv.com
-Original Message-
From: IBM Mainframe Discussion List [ma
Anybody ever get this when running a COBOL 5 program under Debug ??
13.34.47 JOB70977 +IEW2974T C008 REGION TOO SMALL TO ESTABLISH BINDER
ENVIRONMENT.
13.34.47 JOB70977 +IEW2974T C008 REGION TOO SMALL TO ESTABLISH BINDER
ENVIRONMENT.
13.34.47 JOB70977 +IEW2974T C008 REGION TOO SMALL TO ESTA
In your call to the second program...that has the FD, he owns the file. If he
is always opening the file on every call and "should" close file on
exitthen I would be looking into where you can get out of 2nd program
without executing Close. Something like an error.
Thanks,
Tom Savor
Soft
As an "Assembler" guy.that's great news !
Thanks,
Tom Savor
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Beverly Caldwell
Sent: Thursday, October 05, 2017 11:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Here's a horrifying
I'll state the obvious..
Can this "massage it in Excel" be determined to program it to just update it on
z/OS ??
Seems like that would eliminate a bunch of CPU cycles transferring back and
forth and storage to just formally figure out what the "massaging" is.
Thanks,
Tom Savor
Software Deve
Maybe IBM will get David Brent to handle the redundancies in the UK.
Thanks,
Tom Savor
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of esst...@juno.com
Sent: Friday, March 31, 2017 4:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: STOP
IGZ0268W means that OS/VS COBOL is trying to interface with COBOL 5. Which is
a no-no.
Thanks,
Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to l
Interesting tidbit of info on this code in the manual that Greg pointed me to:
This code works perfectly as written:
...
CHECK DECB1
LHWORK1,DCBBLKSI Block size at time of READ
L WORK2,DECB1+16 Status area
>How to determine the length of the block for a BSAM/BPAM RECFM=FB dataset is
>fully described in the z/OS DFSMS Using >Data Sets book, Processing Sequential
>Data Sets, Determining the Length of a Block.
>Greg
>https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.idad400/le
>Might want to look at some of PDS-CBT File 182 PDSE commands. The source is
>provided for IEFPDSE and others...
I did look at IEFPDSE, but I doesn't read the all directory and member records.
I looked at 182 PDSMAIN program, cant say that I understand exactly whats
happening.
I've never used
> And if your member, by happenstance, exactly fills the whole last block, what
> happens? Or have you just been lucky to date?
Calculate DCBLRECL from OPEN (saved) = 80 divided into DCBLRECL after READ =
27920. Simple calculation gives me 349 records to process.
>I would expect that each mem
>>I've run into another PDSe problem.
>>When I was reading through a PDS file of Source Code, I would define
>>DCB as RECFM=U, After the OPEN, DCBLRECL = Record Length. DCBBLKSI =
>>File Block Size After issuing a READ, DCBLRECL would be the Actual Block Size.
>>My PDS : LRECL=80, BLKSIZE=27920
I've run into another PDSe problem.
When I was reading through a PDS file of Source Code, I would define DCB as
RECFM=U,
After the OPEN, DCBLRECL = Record Length. DCBBLKSI = File Block Size
After issuing a READ, DCBLRECL would be the Actual Block Size.
My PDS : LRECL=80, BLKSIZE=27920 Number of r
Vignesh,
Until you have had your job (your way of life) ripped away from you, you cant
get upset when folks get testy.
Management loves to tell their bosses that we are going to Outsource
ITsaving boat loads of money, but of course they will get a huge bonus once
its Outsourced. Then they
I'm not sure about the ISAM part. I HATED ISAM. If you enjoy watching your
jobs grind away seemingly foreverthen you liked ISAM. I've always loved
VSAMmaybe because I hated ISAM so much.
Ever have ISAM job that did an Update in Place (not file in/ file out)ugghh
!
Thanks,
T
>"The name DB2, or IBM Database 2, was first given to the Database Management
>System or DBMS in 1983 when IBM >released DB2 on its MVS mainframe platform."
>-- Wikipedia, citing an IBM manual as authority.
All these years, I've have only known of DB2. The name seems to have stuck.
Was there
43 matches
Mail list logo
