Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

CICS/TS MRO setup and some basic questions

7 views
Skip to first unread message

Robert Payne

unread,
Jun 26, 2008, 2:03:25 PM6/26/08
to

It's been about 15 years since I messed with MRO and it was already
setup (I inherited it) and running slow in those days. Lot of changes
since then and now it looks like I may have to go from a single CICS
partition to MRO again. After some preliminary reading of the IBM docs
more questions than answers have surfaced.

The main (maybe only) reason for considering this is a shortage of 24bit
GETVIS and this is the holdup for implementing z/VSE 3.1.3 in our production
environment. We are already running it in test, but some SQL transactions
in our production CICS fail because of insufficient 24bit GETVIS.

Current setup summary;

z800 single engine, about 80 MIPS
2105-800 DASD with ESCON all 3390
z/VM 5.2
DB2 7.3 server virtual machines
z/VSE 3.1.3 guests for test
VSE/ESA 2.6.2 guest for production
 partition virtual start addr at 6M
 single CICS in F2 at 130M that runs about 100K to 150K trans in 12 to 14
  hour day (big batch window) and by shutdown, 24bit GETVIS is about 750K.
Basic VTAM 4.2
Barnard TCP/IP
zWebhost from illustro



I'm considering creating a new VSAM user catalog for CICS stuff that will
hopefully make it easier when we implement z/VSE 3.1.3 in production.
 Any thoughts ?

We can't use auto-install for terminals because of a long time, home grown
security system. It's ugly, don't ask.

How many regions do I need / want ?   Yes it "depends"

Are there considerations for the applications ?  Not sure what to even ask  :(

Will we really gain significant 24bit GETVIS by changing to MRO ???

Anybody got a better idea ?????????????????????????????????????????????????

Thanks,
Bubba







Gustavo Torres

unread,
Jun 26, 2008, 2:20:45 PM6/26/08
to
If you run ICCF you could to release a lot of 24 bit GETVIS putting
ICCF on your own partition without need of MRO.

Robert Payne

unread,
Jun 26, 2008, 2:21:57 PM6/26/08
to
no ICCF, long gone :)

Edward M. Martin

unread,
Jun 26, 2008, 2:24:35 PM6/26/08
to
Hello Bubba,

I have to ask these questions.

Do you have you CICS in a static or Dynamic partition?
On the z/VSE 3.1 what do you have in system getvis?
And on z/VSE 3.1 are the VTAM buffers allowed to be all 31 bit?

Ed Martin
330-588-4723
ext 40441
________________________________________
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU] On Behalf Of Robert Payne
Sent: Thursday, June 26, 2008 2:03 PM
To: VSE Discussion List
Subject: CICS/TS MRO setup and some basic questions

Gustavo Torres

unread,
Jun 26, 2008, 2:31:43 PM6/26/08
to
- Put more programs/maps Above the Line
- Load CICS elegible modules on SVA

Robert Payne

unread,
Jun 26, 2008, 2:32:24 PM6/26/08
to

Do you have you CICS in a static or Dynamic partition? * F2 static
On the z/VSE 3.1 what do you have in system getvis? * don't know, same stuff as 2.6.2 system I suppose
And on z/VSE 3.1 are the VTAM buffers allowed to be all 31 bit? * yes


Ron Ashley

unread,
Jun 26, 2008, 2:34:40 PM6/26/08
to
What is your DSALIM in DFHSIT? We are running 6912K. Also look at STAT
transaction at end of night and see what files are open and have 0 reads,
writes etc. Change those files to firstref instead of startup. Also using
LSR for all files. We run 50 meg CICS with about 300-400 open files. Our
transaction rate is about 200,000. We do use MRO for third party product
(stand alone). But I would think if you have CICS running in 2.6 and now
going to 3.1 that you have some settings different. We had this problem.

Robert Payne

unread,
Jun 26, 2008, 2:36:15 PM6/26/08
to


- Put more programs/maps Above the Line * most maps already HLASM with AMODE=31 and that bought us about 200K
- Load CICS elegible modules on SVA * already done most (maybe all) of that.

Robert Payne

unread,
Jun 26, 2008, 2:41:14 PM6/26/08
to
DSALIM=6M
EDSALIM=95M

Never had any statistics since we started using CICS/TS, that's another thread.


-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU]On Behalf Of
Ron Ashley
Sent: Thursday, June 26, 2008 1:34 PM
To: VSE Discussion List
Subject: RE: CICS/TS MRO setup and some basic questions

Steve Huggins

unread,
Jun 26, 2008, 2:43:28 PM6/26/08
to
Robert,

First of all lets look at where your short of 24-bit GETVIS.  Is it PARTVIS or SYSVIS...?  I assume your still using CICS/VSE 2.3 at only 130M.  If it is PARTVIS look at lowering your EXEC SIZE=...  Also look at your VSAM files and the LSR pool to see is you could standardize CI sizes and shrink the LSR pool down so VSAM wouldn't be eating up so much 24-bit PARTVIS.

This should give you a start...

Steve Huggins, CSI

Eric Schadow

unread,
Jun 26, 2008, 2:46:19 PM6/26/08
to
Bubba
 
Please post the output of a GETVIS F2,DETAILS
 
Any CICS monitor?
 
A set of shutdown status would be great.
 
Eric
-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU]On Behalf Of Robert Payne
Sent: Thursday, June 26, 2008 2:03 PM
To: VSE Discussion List
------------------------------------------------------------------------ The information contained in this communication is intended only for the use of the recipient(s) named above. It may contain information that is privileged or confidential, and may be protected by State and/or Federal Regulations. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution, or copying of this communication, or any of its contents, is strictly prohibited. If you have received this communication in error, please return it to the sender immediately and delete the original message and any copy of it from your computer system. If you have any questions concerning this message, please contact the sender. ------------------------------------------------------------------------

Ed Zell MF

unread,
Jun 26, 2008, 2:48:21 PM6/26/08
to
> VSE/ESA 2.6.2 guest for production
>  partition virtual start addr at 6M


Hi Robert,

Any chance you could get that starting virtual address
to the 5 meg line? It might be tough to squeeze it down
but that is what I am running on VSE 3.1.2.

Just a thought.

Ed Zell
Illinois Mutual Life
(309) 636-0107
.


CONFIDENTIALITY: This e-mail (including any attachments) may contain confidential, proprietary and privileged information, and unauthorized disclosure or use is prohibited. If you receive this e-mail in error, notify the sender and delete this e-mail from your system.

Robert Payne

unread,
Jun 26, 2008, 2:49:16 PM6/26/08
to
CICS/TS 1.1.1 running in F2 (static) has been borderline short of partition GETVIS
below the line for many years. Recently we moved some stuff to SVA and linked maps
as AMODE 31 which helped some. I thought VSAM buffers were above the line, but admit
that our LSR pool may need a good review.
 
-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU]On Behalf Of Steve Huggins
Sent: Thursday, June 26, 2008 1:33 PM
To: VSE Discussion List
Subject: Re: CICS/TS MRO setup and some basic questions

Eric Schadow

unread,
Jun 26, 2008, 2:57:05 PM6/26/08
to
Bubba
 
Check you have PQ50070/UQ59212 applied. This is in the base for vse 2.6.1 but you may want to check...
 
(I will remember PQ50070 for ever... let me show you the scars....)
 
I am pretty sure you already squeezed the 24bit SVA but check the LIBR LD SDL.
 
Please post the output of a MAP command
 
Eric
------------------------------------------------------------------------ The information contained in this communication is intended only for the use of the recipient(s) named above. It may contain information that is privileged or confidential, and may be protected by State and/or Federal Regulations. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution, or copying of this communication, or any of its contents, is strictly prohibited. If you have received this communication in error, please return it to the sender immediately and delete the original message and any copy of it from your computer system. If you have any questions concerning this message, please contact the sender. ------------------------------------------------------------------------

Eric Schadow

unread,
Jun 26, 2008, 2:59:42 PM6/26/08
to
Also check for any illegal COBOL/CICS verbs.
 
Eric

Robert Payne

unread,
Jun 26, 2008, 2:59:41 PM6/26/08
to
 GETVIS F2,DETAILS                                                      13:49:36
 AR 0015 GETVIS USAGE    F2-24     F2-ANY                     F2-24     F2-ANY 
 AR 0015  AREA SIZE:   10,236K   133,112K                               13:49:36
 AR 0015  USED AREA:    9,384K   107,788K MAX. EVER USED:   10,236K   108,952K 
 AR 0015  FREE AREA:      852K    25,324K LARGEST FREE:        852K    25,268K 
 AR 0015 SUMMARY REPORT                                                 13:49:36
 AR 0015 SUBPOOL       REQUEST  <---F2-24-AREA---    ---F2-ANY-AREA-->  13:49:36
 AR 0015 Default                            3,392K               9,176K 13:49:36
 AR 0015                         00601000-00601FFF    08697000-0875AFFF 13:49:36
 AR 0015                         00603000-00604FFF    0861E000-08672FFF 13:49:36
 AR 0015                         00624000-0062CFFF    08565000-08567FFF 13:49:36
 AR 0015                         00630000-00630FFF    0855A000-0855AFFF 13:49:36
 AR 0015                         00634000-00634FFF    08555000-08556FFF 13:49:36
 AR 0015                         00636000-00636FFF    0854E000-08553FFF 13:49:36
 AR 0015                         00638000-0063BFFF    08547000-08549FFF 13:49:36
 AR 0015                         0063D000-0063DFFF    08544000-08545FFF 13:49:36
 AR 0015                         00641000-0064CFFF    0853E000-0853FFFF 13:49:36
 AR 0015                         0065E000-00670FFF    08534000-0853CFFF 13:49:36
 AR 0015                         00672000-00677FFF    08532000-08532FFF 13:49:36
 AR 0015                         00679000-0067FFFF    08528000-0852EFFF 13:49:36
 AR 0015                         00C00000-00C12FFF    0850F000-08516FFF 13:49:36
 AR 0015                         00C16000-00C16FFF    02FA6000-02FFFFFF 13:49:36
 AR 0015                         00C19000-00C37FFF    02F9E000-02F9FFFF 13:49:36
 AR 0015                         00C39000-00C3AFFF    02F4D000-02F95FFF 13:49:36
 AR 0015                         00C3C000-00C4EFFF    02996000-02F4AFFF 13:49:36
 AR 0015                         00C5E000-00C72FFF    02993000-02994FFF 13:49:36
 AR 0015                         00C78000-00F2AFFF    02990000-02991FFF 13:49:36
 AR 0015                                              0298C000-0298EFFF 13:49:36
 AR 0015                                              02987000-02988FFF 13:49:36
 AR 0015                                              0297F000-02983FFF 13:49:36
 AR 0015                                              0295A000-02963FFF 13:49:36
 AR 0015                                              0294D000-02951FFF 13:49:36
 AR 0015                                              02948000-02949FFF 13:49:36
 AR 0015                                              02942000-02943FFF 13:49:36
 AR 0015                                              0293E000-02940FFF 13:49:36
 AR 0015                                              02934000-0293AFFF 13:49:36
 AR 0015                                              02930000-02932FFF 13:49:36
 AR 0015                                              0292C000-0292CFFF 13:49:36
 AR 0015                                              02927000-02927FFF 13:49:36
 AR 0015                                              02907000-0291FFFF 13:49:36
 AR 0015                                              02864000-02905FFF 13:49:36
 AR 0015                                              0284E000-0285FFFF 13:49:36
 AR 0015                                              02842000-0284BFFF 13:49:36
 AR 0015                                              027F1000-0283FFFF 13:49:36
 AR 0015                                              027E9000-027E9FFF 13:49:36
 AR 0015 IMVS130                            3,072K              34,816K 13:49:36
 AR 0015                         00680000-006BFFFF    03E00000-057FFFFF 13:49:36
 AR 0015                         00700000-0077FFFF    03500000-03BFFFFF 13:49:36
 AR 0015                         007C0000-009FFFFF    03000000-030FFFFF 13:49:36
 AR 0015                                                                13:49:36
 AR 0015 IMVS252                            2,572K              52,604K 13:49:36
 AR 0015                         0060C000-0060CFFF    0861C000-0861CFFF 13:49:36
 AR 0015                         0063E000-0063EFFF    0858F000-085D4FFF 13:49:36
 AR 0015                         00678000-00678FFF    0857D000-08586FFF 13:49:36
 AR 0015                         006C0000-006FFFFF    0855B000-0855CFFF 13:49:36
 AR 0015                         00780000-007BFFFF    0851C000-08524FFF 13:49:36
 AR 0015                         00A00000-00BFFFFF    0850D000-0850EFFF 13:49:36
 AR 0015                                              05800000-084FFFFF 13:49:36
 AR 0015                                              03C00000-03DFFFFF 13:49:36
 AR 0015                                              03100000-034FFFFF 13:49:36
 AR 0015                                              027EA000-027EAFFF 13:49:36
 AR 0015 IMVS000                              164K                 552K 13:49:36
 AR 0015                         00602000-00602FFF    08696000-08696FFF 13:49:36
 AR 0015                         00609000-0060BFFF    0868F000-08694FFF 13:49:36
 AR 0015                         00611000-00621FFF    08679000-08679FFF 13:49:36
 AR 0015                         0064D000-0065DFFF    08673000-08675FFF 13:49:36
 AR 0015                         00C13000-00C14FFF    0861D000-0861DFFF 13:49:36
 AR 0015                         00C3B000-00C3BFFF    085D5000-08614FFF 13:49:36
 AR 0015                                              08587000-0858EFFF 13:49:36
 AR 0015                                              08576000-0857CFFF 13:49:36
 AR 0015                                              0856B000-0856BFFF 13:49:36
 AR 0015                                              08562000-08564FFF 13:49:36
 AR 0015                                              08560000-08560FFF 13:49:36
 AR 0015                                              08557000-08559FFF 13:49:36
 AR 0015                                              08554000-08554FFF 13:49:36
 AR 0015                                              0854A000-0854CFFF 13:49:36
 AR 0015                                              08543000-08543FFF 13:49:36
 AR 0015                                              0853D000-0853DFFF 13:49:36
 AR 0015                                              08533000-08533FFF 13:49:36
 AR 0015                                              0852F000-08531FFF 13:49:36
 AR 0015                                              08525000-08527FFF 13:49:36
 AR 0015                                              08500000-08504FFF 13:49:36
 AR 0015                                              02FA0000-02FA5FFF 13:49:36
 AR 0015                                              02F96000-02F9DFFF 13:49:36
 AR 0015                                              02F4B000-02F4CFFF 13:49:36
 AR 0015                                              02995000-02995FFF 13:49:36
 AR 0015                                              027EE000-027F0FFF 13:49:36
 AR 0015                                              027D8000-027D8FFF 13:49:36
 AR 0015 EXPCDC                                64K                 128K 13:49:36
 AR 0015                         00C38000-00C38FFF    02992000-02992FFF 13:49:36
 AR 0015                         00C4F000-00C5DFFF    0298F000-0298FFFF 13:49:36
 AR 0015                                              0298B000-0298BFFF 13:49:36
 AR 0015                                              02984000-02986FFF 13:49:36
 AR 0015                                              02966000-02966FFF 13:49:36
 AR 0015                                              0294C000-0294CFFF 13:49:36
 AR 0015                                              02944000-02947FFF 13:49:36
 AR 0015                                              02941000-02941FFF 13:49:36
 AR 0015                                              0293B000-0293DFFF 13:49:36
 AR 0015                                              02933000-02933FFF 13:49:36
 AR 0015                                              0292F000-0292FFFF 13:49:36
 AR 0015                                              02906000-02906FFF 13:49:36
 AR 0015                                              02860000-02863FFF 13:49:36
 AR 0015                                              0284C000-0284DFFF 13:49:36
 AR 0015                                              02840000-02841FFF 13:49:36
 AR 0015                                              027EB000-027EDFFF 13:49:36
 AR 0015                                              027D9000-027DAFFF 13:49:36
 AR 0015 IMVS132                               40K                 176K 13:49:36
 AR 0015                         0060D000-00610FFF    0867A000-0868EFFF 13:49:36
 AR 0015                         00622000-00623FFF    08676000-08678FFF 13:49:36
 AR 0015                         00631000-00633FFF    0856C000-08575FFF 13:49:36
 AR 0015                         00637000-00637FFF    08568000-08569FFF 13:49:36
 AR 0015                                              08561000-08561FFF 13:49:36
 AR 0015                                              0855E000-0855FFFF 13:49:36
 AR 0015                                              0854D000-0854DFFF 13:49:36
 AR 0015                                              08546000-08546FFF 13:49:36
 AR 0015                                              08540000-08542FFF 13:49:36
 AR 0015 EXPCUW                                20K                   0K 13:49:36
 AR 0015                         00C73000-00C77FFF                      13:49:36
 AR 0015 SADSTM                                16K                   8K 13:49:36
 AR 0015                         0062E000-0062FFFF    08616000-08616FFF 13:49:36
 AR 0015                         0063C000-0063CFFF    0856A000-0856AFFF 13:49:36
 AR 0015                         00671000-00671FFF                      13:49:36
 AR 0015                                                                13:49:36
 AR 0015 DFHEVP                                16K                   4K 13:49:36
 AR 0015                         00605000-00608FFF    08695000-08695FFF 13:49:36
 AR 0015                                                                13:49:36
 AR 0015 IMVS229                                8K                  32K 13:49:36
 AR 0015                         0063F000-00640FFF    08505000-0850CFFF 13:49:36
 AR 0015                                                                13:49:36
 AR 0015 INLC006A                               8K                   0K 13:49:36
 AR 0015                         00C17000-00C18FFF                      13:49:36
 AR 0015 IMVS254       SVA                      4K                   0K 13:49:36
 AR 0015                         0044C000-0044CFFF                      13:49:36
 AR 0015 IMVS253       SVA                      4K                   0K 13:49:36
 AR 0015                         00446000-00446FFF                      13:49:36
 AR 0015 IMVS251                                4K                  44K 13:49:36
 AR 0015                         00635000-00635FFF    08617000-0861BFFF 13:49:36
 AR 0015                                              08615000-08615FFF 13:49:36
 AR 0015                                              08517000-0851BFFF 13:49:36
 AR 0015 IMVS253       SVA                      4K                   0K 13:49:36
 AR 0015                         00461000-00461FFF                      13:49:36
 AR 0015 IMVS230                                4K                   0K 13:49:36
 AR 0015                         00C15000-00C15FFF                      13:49:36
 AR 0015 IMVS230                                4K                   0K 13:49:36
 AR 0015                         0062D000-0062DFFF                      13:49:36
 AR 0015 IMVS255       SVA                      4K                   0K 13:49:36
 AR 0015                         00458000-00458FFF                      13:49:36
 AR 0015 IMVS229                                0K                   4K 13:49:36
 AR 0015                                              0855D000-0855DFFF 13:49:36
 AR 0015 EXPCSY                                 0K                 204K 13:49:36
 AR 0015                                              02989000-0298AFFF 13:49:36
 AR 0015                                              02967000-0297EFFF 13:49:36
 AR 0015                                              02964000-02965FFF 13:49:36
 AR 0015                                              02952000-02959FFF 13:49:36
 AR 0015                                              0294A000-0294BFFF 13:49:36
 AR 0015                                              0292D000-0292EFFF 13:49:36
 AR 0015                                              02928000-0292BFFF 13:49:36
 AR 0015                                              02920000-02926FFF 13:49:36
 AR 0015 SUBPOOL TOTALS                     9,384K              97,748K 13:49:36
 AR 0015 1I40I  READY                                                   13:49:36
 *** MESSAGE REDISPLAY *** 06/26/08 13:49:36                                   
ENTER FAQS COMMAND    (OPERATOR MODE)                                  13:49:39
D                                                                              
                                                          PRODVSE  XVT TELN926 
 
 
 
 
 
 
         DATE 06/26/2008, CLOCK 13/55/14                                13:55:14
 SIR                                                                    13:56:06
 AR 0015 CPUID  VM = 0001C8AA20660000      VSE = FF11111120660000       13:56:06
 AR 0015 VM-SYSTEM = VM/ESA          4.2.0       0601                   13:56:06
 AR 0015 PROCESSOR = IBM 2066-0A1 02 USERID    = PRODVSE                13:56:06
 AR 0015 PROC-MODE = ESA   (64-BIT)  IPL(100)    20:58:28 TEX  06/11/2008      
 AR 0015 SYSTEM    = VSE/ESA         2.6.2                     11/11/2002      
 AR 0015             VSE/AF          6.6.0       DY46120       05/26/2004       
 AR 0015             VSE/POWER       6.6.0       DY45870       08/15/2002      
 AR 0015 IPL-PROC  = $IPLV2          JCL-PROC  = $$JCLV2                13:56:06
 AR 0015 SUPVR     = $$A$SUPP        TURBO-DISPATCHER (30) ACTIVE       13:56:06
 AR 0015                             HARDWARE COMPRESSION ENABLED       13:56:06
 AR 0015 SEC. MGR. = BASIC           SECURITY  = ONLINE                 13:56:06
 AR 0015 VIRTCPU   = 0083:36:26.038         CP = 0011:29:54.486         13:56:06
 AR 0015 CPU-ADDR. = 0000(IPL)   ACTIVE                                 13:56:06
 AR 0015   ACTIVE  = 0002:48:53.719   WAIT = 0009:40:20.945             13:56:06
 AR 0015   PARALLEL= 0001:27:07.388   SPIN = 0000:00:00.000             13:56:06
 AR 0015 CPU timings MEASUREMENT INTERVAL    0013:56:03.234             13:56:06
 AR 0015 TASKS ATT.= 00053           HIGH-MARK = 00056    MAX = 00180   13:56:06
 AR 0015 DYN.PARTS = 00012           HIGH-MARK = 00014    MAX = 00032   13:56:06
 AR 0015                                                                13:56:06
 AR 0015 COPY-BLKS = 00009           HIGH-MARK = 00997    MAX = 01000   13:56:06
 AR 0015 CHANQ USED= 00023           HIGH-MARK = 00042    MAX = 00176   13:56:06
 AR 0015 LBL.-SEGM.= 00030           HIGH-MARK = 00053    MAX = 00477   13:56:06
 AR 0015 LOCKS EXT.= 0009073713      LOCKS INT.= 0010459674             13:56:06
 AR 0015      FAIL = 0000026011           FAIL = 0000000553             13:56:06
 AR 0015 LOCK I/O  = 0000451377      LOCK WRITE= 0000225567             13:56:06
 AR 0015 1I40I  READY                                                   13:56:06
 *** MESSAGE REDISPLAY *** 06/26/08 13:56:06                                   
ENTER FAQS COMMAND    (OPERATOR MODE)                                  13:56:08
D                                                                              
                                                          PRODVSE  XVT TELN926 
 
 
 
No CICS monitor or shutdown statistics.

Edward M. Martin

unread,
Jun 26, 2008, 3:02:11 PM6/26/08
to
Hello Bob,

DFH0STAT in ICCF 59 explains about getting stats. DFH0STAT.C in your CICS/TS library is available to change the defaults.

Works well.

LSR pool (IIRC) buffer are above the line but the strings are below (unless changed with z/VSE 3.1). Maybe you are way over allocated with
Vsam strings.

Can you do a GETVIS <cicsts partition>,ALL to get an Idea of where the stuff is going?


Ed Martin
330-588-4723
ext 40441
________________________________________

From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU] On Behalf Of Robert Payne
Sent: Thursday, June 26, 2008 2:49 PM
To: VSE Discussion List
Subject: RE: CICS/TS MRO setup and some basic questions

Robert Payne

unread,
Jun 26, 2008, 3:03:08 PM6/26/08
to
Nice thought and since we have migrated some stuff from 3390-3 to 3390-9
the PUB table is smaller, but I'm not really sure what else I could trim
back to get the 5M starting line.

Ideas ?

Robert Payne

unread,
Jun 26, 2008, 3:28:07 PM6/26/08
to
Would the PQ50070/UQ59212  be a factor in z/VSE 3.1.3 ?
 
 
 
        DATE 06/26/2008, CLOCK 14/02/10                                14:02:10
map                                                                    14:02:25
 AR 0015  SPACE AREA       V-SIZE   GETVIS   V-ADDR   UNUSED NAME       14:02:25
 AR 0015    S   SUP          680K                 0          $$A$SUPP   14:02:25
 AR 0015    S   SVA-24      2544K    2728K    AA000     192K            14:02:25
 AR 0015    0   BG V        4096K   10240K   600000  118784K            14:02:25
 AR 0015    1   F1 V         740K    3356K   600000       0K VSEPOWER   14:02:25
 AR 0015    2   F2 V        8192K  124928K   600000       0K CICSTS     14:02:25
 AR 0015    3   F3 V        1024K   20480K   600000       0K VTAM       14:02:25
 AR 0015    4   F4 V        1024K  101376K   600000       0K TCP1       14:02:25
 AR 0015    5   F5 V        1024K   13312K   600000       0K TADJ0303   14:02:25
 AR 0015    6   F6 V        1024K   13312K   600000       0K            14:02:25
 AR 0015    7   F7 V        1024K   13312K   600000       0K            14:02:25
 AR 0015    8   F8 V        1024K   13312K   600000       0K            14:02:25
 AR 0015    9   F9 V        1024K   31744K   600000       0K PDF        14:02:25
 AR 0015    A   FA V        1024K    7168K   600000       0K            14:02:25
 AR 0015    B   FB V         352K    5792K   600000       0K SECSERV    14:02:25
 AR 0015    S   SVA-31      7196K    7140K  8800000                     14:02:25
 AR 0015        DYN-PA    284672K                                       14:02:25
 AR 0015        DSPACE     34624K                                       14:02:25
 AR 0015        SYSTEM      3520K                                       14:02:25
 AR 0015        AVAIL     170560K                                       14:02:25
 AR 0015        TOTAL     893568K   <----'                              14:02:25
 AR 0015 1I40I  READY                                                   14:02:25
 *** MESSAGE REDISPLAY *** 06/26/08 14:02:25                                   
ENTER FAQS COMMAND    (OPERATOR MODE)                                  14:03:09
D                                                                              
                                                          PRODVSE  XVT TELN926 

Robert Payne

unread,
Jun 26, 2008, 3:29:59 PM6/26/08
to
What ???
I don't speak COBOL. How is this a 24bit GETVIS factor ?????????????????

Steve Huggins

unread,
Jun 26, 2008, 3:38:02 PM6/26/08
to
Robert,

Cool your CICS/TS.  Next check your 24-bit allocation and usage.  I cheat and use
ODIS for that.  As you see from this sample I can get about 2M back by allocating
less 24-bit SubPools.  Hope this helps...
-------------------------------------cut----------------------------------------
Addr 000000   (T2)   Online DISplay of DSA                              15:21:20
                                                                           V1.8C
Key to subpool map:*=Current use  _=Peak used  #=Potential SOS  ¦=Cushion      
Alloc(24) Sub-Pool %---10----20----30----40----50----60----70----80----90---100
   1,536K CDSA     ***************************************************_____   ¦
     256K UDSA     **********_____________________               ¦¦¦¦¦¦¦¦¦¦¦¦¦¦
     512K SDSA     *********************************************__      ¦¦¦¦¦¦¦
     512K RDSA     **************************************************** ¦¦¦¦¦¦¦
   2,816K Total    **********************************************_____     ¦¦¦¦
   6,144K Limit    *********************___                                   ¦
Alloc(31) Sub-Pool %---10----20----30----40----50----60----70----80----90---100
   4,096K ECDSA    **********************************************_            ¦
   1,024K EUDSA    ****____                                                    
   1,024K ESDSA    ********************                                 ¦¦¦¦¦¦¦
   6,144K ERDSA    *******************************************************    ¦
  12,288K Total    *********************************************              ¦
  15,360K Limit    ************************************                       ¦
                                                                               
Total Getmain requests      47,103     Storage Protect                   ACTIVE
Total Freemain requests     46,315     Reenterant Program Protect        ACTIVE
Total Cushion releases           0     Transaction Isolation          NOTACTIVE
Total Times SOS                  0                                             
--------------------------------------cut--------------------------------------

Steve Huggins, CSI

Robert Payne

unread,
Jun 26, 2008, 3:51:38 PM6/26/08
to
I don't know what "ODIS" is. In case ya'll haven't guessed, I'm not even
a "CICS" person.  :)
 
 
  I SYS                                                                        
  STATUS:  RESULTS - OVERTYPE TO MODIFY                                        
    Aging( 05000 )                   Progautoctlg( Ctlgall )                   
    Akp( 00200 )                     Progautoexit( DFHPGADX )                  
    Cdsasize(00786432)               Progautoinst( Autoactive )                
    Cicstslevel(010101)              Rdsasize(00524288)                        
    Cmdprotect(Cmdprot)              Reentprotect(Reentprot)                   
    Dfltuser(CICSUSER)               Release(0411)                             
    Dsalimit( 05767168 )             Runaway( 0200000 )                        
    Dtrprogram( DFHDYP   )           Scandelay( 0100 )                         
    Dumping( Sysdump )               Sdsasize(01835008)                        
    Ecdsasize(0008388608)            Sosstatus(Notsos)                         
    Edsalimit( 0089128960 )          Storeprotect(Inactive)                    
    Erdsasize(0006291456)            Time( 0001000 )                           
    Esdsasize(0019922944)            Udsasize(00524288)                        
    Eudsasize(0007340032)                                                      
    Maxtasks( 055 )                                                            
    Mrobatch( 001 )                                                            
    Oprel(66)                                                                  
    Opsys(E)                                                                   
                                                                               
                                                      SYSID=PROD APPLID=PRODCICS
   RESPONSE: NORMAL                             TIME:  14.47.48  DATE: 06.26.08
 PF 1 HELP       3 END                    7 SBH 8 SFH 9 MSG 10 SB 11 SF        
-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU]On Behalf Of Steve Huggins
Sent: Thursday, June 26, 2008 2:37 PM
To: VSE Discussion List
Subject: RE: CICS/TS MRO setup and some basic questions

Ed Zell MF

unread,
Jun 26, 2008, 3:53:40 PM6/26/08
to
> Nice thought and since we have migrated some stuff from 3390-3
> to 3390-9 the PUB table is smaller, but I'm not really sure what
> else I could trim back to get the 5M starting line.
>
> Ideas ?


I was able to customize the $SVACEE list and save quite a bit
of 24 but GETVIS. I can't find my notes, but this is my
"replacement" for it:

SET SDL
CEEBDATX,SVA 1,472 24
CEEBINIT,SVA 52,232 24
CEEBLIBM,SVA 19,960 24
CEEBLRR,SVA 920 24
CEEBNATX,SVA 2 ANY
CEECCICS,SVA 46,792 24
CEECOPP,SVA 48,760 ANY
CEECOPT,SVA 26,112 ANY
CEEDOPT,SVA 26,112 ANY
CEEKDS ,SVA 87,528 ANY
CEELCLE,SVA 10,936 ANY
CEELRRIN,SVA 352 ANY
CEELRRTR,SVA 344 ANY
CEEMENU0,SVA 9,456 ANY
CEEMENU2,SVA 10,384 ANY
CEEMENU3,SVA 31,888 ANY
CEEMENU4,SVA 1,032 ANY
CEEMENU5,SVA 696 ANY
CEEMUEN0,SVA 9,456 ANY
CEEMUEN2,SVA 10,384 ANY
CEEMUEN3,SVA 31,888 ANY
CEEMUEN4,SVA 1,032 ANY
CEEMUEN5,SVA 696 ANY
CEEPIPI,SVA 64,656 24
CEEPLPKA,SVA 314,304 ANY
CEEPLPKD,SVA 76,720 24
CEEQMATH,SVA 314,744 ANY
CEEYDTS,SVA 49,024 24
IGZCPAC,SVA 106,352 ANY
IGZCPCO,SVA 6,072 ANY

Eric Schadow

unread,
Jun 26, 2008, 3:57:15 PM6/26/08
to
Their is a list of Cobol verbs that are illegal under CICS.  String unstring etc They use partition getvis in way that does not allow it to be returned.
 
What language are your programs?
 
In GROUPS.GOOGLE.COM  search on VSE-L COBOL VERB and you will get a number of hits.
 
PQ50070 should be applied to a 3.1.1
 
Are you having the 24 bit getvis challenges in the 2.6 system or the 3.1 system
 
 
Your DEFAULT subpool is pretty big.
 
Do you have any system products that allow you to view storage.? FAQS/Explore etc.
 
Issue the GETVIS F2,ALL command a few times a days and this will show you which subpool is growing during the day.
 
Eric

Eric Schadow

unread,
Jun 26, 2008, 3:59:51 PM6/26/08
to
You have 192K unused but it is not really easy to return it directly to the partition.
 

 AR 0015  SPACE AREA       V-SIZE   GETVIS   V-ADDR   UNUSED NAME       14:02:25
 AR 0015    S   SUP          680K                 0          $$A$SUPP   14:02:25

Eric 

Robert Payne

unread,
Jun 26, 2008, 4:01:41 PM6/26/08
to
I need to look at that closer, THANKS !

SVALIST PRODVSE T2 F 150 Trunc=150 Size=600 Line=3 Col=1 Alt=0
====>
|...+....1....+....2....+....3....+....4....+....5....+....6....+....7...
00003 * SOURCE = SVALIST JCL A (CMS-BUBBA)
00004 EXEC PGM=LIBR,SIZE=1M
00005 LISTDIR SDL
00006 STATUS DISPLAY SDL AND SVA DATE: 2008-06-17
00007 TIME: 15:06
00008 --------------------------------------------------------------------
00009 SDL TOTAL ENTRIES : 509 (100%)
00010 USED ENTRIES : 479 ( 94%)
00011 FREE ENTRIES : 30 ( 6%)
00012
00013 SVA(24) TOTAL SPACE : 2508K (100%)
00014 USED SPACE : 2302K ( 92%)
00015 - PFIXED AREA: 144K ( 6%) START AT: 00301F20
00016 FREE SPACE : 206K ( 8%)
00017
00018 SVA(31) TOTAL SPACE : 7196K (100%)
00019 USED SPACE : 4116K ( 57%)
00020 - PFIXED AREA: 581K ( 8%) START AT: 08E75A78
00021 FREE SPACE : 3080K ( 43%)

Eric Schadow

unread,
Jun 26, 2008, 4:03:26 PM6/26/08
to
Bob
 
Can you post the output of the DISPLAY CICS/TS Storage screen - Probably option 361.
 
You possibly can reduce the Dsalimit( 05767168 )   a bit.

Robert Payne

unread,
Jun 26, 2008, 4:14:14 PM6/26/08
to
Their is a list of Cobol verbs that are illegal under CICS.  String unstring etc They use partition getvis in way that does not allow it to be returned. 
 * That's news to me, THANKS. 
 
What language are your programs?  
 * COBOL and Mantis 
 
In GROUPS.GOOGLE.COM  search on VSE-L COBOL VERB and you will get a number of hits.
 
PQ50070 should be applied to a 3.1.1  
 * Retrace on our test 3.1.3 shows that PQ50070 is in place and this system was cloned
   to create our production system. The GETVIS problem is a mild issue sometimes in our
   current production 2.6.2 system, but when I bring up the 3.1.3 system and try a 
   common and highly used transaction, it is a show stopper !!!!!
 
 
 
Are you having the 24 bit getvis challenges in the 2.6 system or the 3.1 system  
 * Some of both but worse in 3.1.3 
 
 
Your DEFAULT subpool is pretty big. 
 * Where do I adjust that ? Stupid question I know, what manual to look at ???
 
 
Do you have any system products that allow you to view storage.? FAQS/Explore etc. 
 * FAQS/AO and EXPLORE for VSE not the CICS version.
 
 
Issue the GETVIS F2,ALL command a few times a days and this will show you which subpool is growing during the day.
 * OK
 

Ed Zell MF

unread,
Jun 26, 2008, 4:15:27 PM6/26/08
to
> SVA(24) TOTAL SPACE : 2508K (100%)
> USED SPACE : 2302K ( 92%)
> - PFIXED AREA: 144K ( 6%) START AT: 00301F20
> FREE SPACE : 206K ( 8%)


That looks pretty close to what I have. But you never know,
if you can save a couple hundred K, it may be enough to get
you down to that elusive 5 meg line!

SVA(24) TOTAL SPACE : 2272K (100%)
USED SPACE : 2127K ( 94%)
- PFIXED AREA: 167K ( 7%) START AT: 002EF310
FREE SPACE : 145K ( 6%)

I should mention we IPL every week so I don't have to worry
about long term memory fragmentation. That's why I feel OK
about only 145K of free space :)

Robert Payne

unread,
Jun 26, 2008, 4:16:43 PM6/26/08
to
 
 
Can you post the output of the DISPLAY CICS/TS Storage screen - Probably option 361.  * What are you talking about ?????????????????? 
 
You possibly can reduce the Dsalimit( 05767168 )   a bit.  * Already trimmed it back from 6M, so probably not much.
 
 
Eric

Eric Schadow

unread,
Jun 26, 2008, 4:22:15 PM6/26/08
to
 
 
WOW ... I didn't know Mantis is still around.
 
 
 
The CICS /TS Storage screen is IUI Screen 3 (operations) then 6 (operations) then  - opps-  4 (Display CICS TS Storage)
 
Should look like this
 
IESADMDCST                     DISPLAY CICS TS STORAGE         Time:  16:19:47
  Applid: DVL8CICS    Sysid: CICL    Jobname: L800CICS    CICS TS Level:   111
Storage Protection ...... ACTIVE         Reentrant Programs ..... PROTECT    
                                         CICS Trace Table size..    4096     
Extended DSA:                      (All sizes in kbyte)    LIMIT   66560     
                                   ECDSA   EUDSA   ESDSA   ERDSA  Totals     
  Current DSA Size .............    5120   28672   12288    9216   55296     
  Current DSA used .............    4144    1024   11416    8240   24824     
 *Peak DSA used ................    4744   13568   11416    8240             
  Peak DSA Size ................    5120   28672   12288    9216   55296     
  Largest free area/Free Storage    0.84    0.30    0.86    0.56             
  Times short-on-storage (SOS)..       0       0       0       0       0     
                                                                             
DSA:                                                       LIMIT    7168     
                                    CDSA    UDSA    SDSA    RDSA  Totals     
  Current DSA Size ..............    512     256     512     768    2048     
  Current DSA used ..............    440       8     444     700    1592     
 *Peak DSA used .................    476     180     444     700             
  Peak DSA Size .................    512     256     512     768    2048     
  Largest free area/Free Storage.   0.67    1.00    0.76    0.76             
  Times short-on-storage (SOS)...      0       0       0       0       0     
PF1=HELP      2=REFRESH   3=END       4=RETURN                               
-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU]On Behalf Of Robert Payne
Sent: Thursday, June 26, 2008 4:16 PM
To: VSE Discussion List
Subject: RE: CICS/TS MRO setup and some basic questions

 
Can you post the output of the DISPLAY CICS/TS Storage screen - Probably option 361.  * What are you talking about ?????????????????? 
 
You possibly can reduce the Dsalimit( 05767168 )   a bit.  * Already trimmed it back from 6M, so probably not much.
 
 
Eric
------------------------------------------------------------------------ The information contained in this communication is intended only for the use of the recipient(s) named above. It may contain information that is privileged or confidential, and may be protected by State and/or Federal Regulations. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution, or copying of this communication, or any of its contents, is strictly prohibited. If you have received this communication in error, please return it to the sender immediately and delete the original message and any copy of it from your computer system. If you have any questions concerning this message, please contact the sender. ------------------------------------------------------------------------

Eric Schadow

unread,
Jun 26, 2008, 4:26:35 PM6/26/08
to
Bob
 
Just do a FAQS DSPLY f2,C78000 and take a look at the storage... See
 
This DEFAULT area is pretty large  00C78000-00F2AFFF  almost 2.8 meg.
 
Eric  
 
Your DEFAULT subpool is pretty big. 
 * Where do I adjust that ? Stupid question I know, what manual to look at ???
 
 
Do you have any system products that allow you to view storage.? FAQS/Explore etc. 
 * FAQS/AO and EXPLORE for VSE not the CICS version.
 
 
Issue the GETVIS F2,ALL command a few times a days and this will show you which subpool is growing during the day.
 * OK
 
------------------------------------------------------------------------ The information contained in this communication is intended only for the use of the recipient(s) named above. It may contain information that is privileged or confidential, and may be protected by State and/or Federal Regulations. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution, or copying of this communication, or any of its contents, is strictly prohibited. If you have received this communication in error, please return it to the sender immediately and delete the original message and any copy of it from your computer system. If you have any questions concerning this message, please contact the sender. ------------------------------------------------------------------------

Steve Huggins

unread,
Jun 26, 2008, 4:28:21 PM6/26/08
to
Robert,

So lets see:

 Cdsasize(00786432) =   768K
Udsasize(00524288) =   512K
Sdsasize(01835008) = 1,792K
Rdsasize(00524288) =   512K
                     -------
                     3,584K  =  3.5M In use
 Dsalimit(05767168) = 5,632K  =  5.5M Allocated
                                ------
                                2.0M Over allocated

So you can safely reduce your 24-bit DSA by 1-1.5M...

Steve Huggins, CSI

RJac...@decare.com

unread,
Jun 26, 2008, 4:30:33 PM6/26/08
to
The IUI option he is referring to can also be invoked from a blank screen
as transaction IEDC.

Bob Jacobson
(651) 994-5329



"Robert Payne"
<RPa...@TAD.org>
Sent by: To
owner-vse-l@Lehig "VSE Discussion List"
h.EDU <vs...@Lehigh.EDU>
cc

06/26/2008 15:16 Subject

RE: CICS/TS MRO setup and some
basic questions

Please respond to
vs...@Lehigh.EDU

Mead, Jerry

unread,
Jun 26, 2008, 4:32:25 PM6/26/08
to
You might try checking your SYS BUFSIZE=1800 parameter.  I got quite a bit of 24 bit system getvis back when I reduced our to 1800 and I think someone else reported you could get by with as little as 900 depending on the vse release you are running.

From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU] On Behalf Of Eric Schadow
Sent: Thursday, June 26, 2008 3:28 PM
To: VSE Discussion List

Subject: RE: CICS/TS MRO setup and some basic questions

Ed Zell MF

unread,
Jun 26, 2008, 4:33:11 PM6/26/08
to
> So you can safely reduce your 24-bit DSA by 1-1.5M...
>
> Steve Huggins, CSI


I'll bet that would be plenty of space to fix what ails him.

Robert Payne

unread,
Jun 26, 2008, 4:38:16 PM6/26/08
to
 

 
 
 
WOW ... I didn't know Mantis is still around.  * Don't get me started ! 
 
 
 
The CICS /TS Storage screen is IUI Screen 3 (operations) then 6 (operations) then  - opps-  4 (Display CICS TS Storage)  * Don't have IUI  
 

Edward M. Martin

unread,
Jun 26, 2008, 4:40:11 PM6/26/08
to
Hello Bob,

Well looks like you have enough information for a little while.
But as someone pointed out you have 192k not being used in the SVA 24 bit area.

That and here are the LE $SVA lists. The <name>M.PHASE are the minimums IBM recommends.

Example $SVAEDC.Phase is the full blown version with $SVAEDCM.Phase is the minimum. Using the 192k and the $SVA lists you may find that you have that additional meg in the SVA 24 bit area.


$SVACEE PHASE 08-06-03 - - 366 B
$SVAEDC PHASE 08-06-03 - - 234 B
$SVAEDCM PHASE 08-06-03 - - 78 B
$SVAIBM PHASE 08-06-03 - - 330 B
$SVAIBMM PHASE 08-06-03 - - 42 B
$SVAIGZ PHASE 08-06-03 - - 570 B
$SVAIGZM PHASE 08-06-03 - - 42 B

But that still does not address what is eating up your partition 24 bit getvis.

Ed Martin
330-588-4723
ext 40441
________________________________________

From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU] On Behalf Of Robert Payne
Sent: Thursday, June 26, 2008 4:14 PM


To: VSE Discussion List
Subject: RE: CICS/TS MRO setup and some basic questions

Robert Payne

unread,
Jun 26, 2008, 4:40:51 PM6/26/08
to
Bob  is someone else, Robert aka Bubba here  :)
 
 
Just do a FAQS DSPLY f2,C78000 and take a look at the storage... See 
 
 ====>                                                                         
ASID=2                              GETVIS  P=ARICDBND+00000000                
00C78000 F2 00C78028  00C780A8  1AC1D9C9  E2C4C9D9 *.G...G.y.ARISDIR*  00000000
00C78010    C4F2F0F0  F360F1F1  60F1F940  F1F77AF3 *D2003-11-19 17:3* +00000010
00C78020    F1F0F200  000000E8  00C78068  E2D8D3C4 *102....Y.G..SQLD* +00000020
00C78030    C2C1D740  40404040  40404040  40400007 *BAP           ..* +00000030
00C78040    E2D8D3C4  C2C1D740  40404040  40404040 *SQLDBAP         * +00000040
00C78050    40400007  C85C4040  E2D8D3C4  C2C1D740 *  ..H*  SQLDBAP * +00000050
00C78060    00000000  00000000  00000000  C4E4D4D4 *............DUMM* +00000060
00C78070    E8F14040  40404040  40404040  40400006 *Y1            ..* +00000070
00C78080    C4E4D4D4  E8F14040  40404040  40404040 *DUMMY1          * +00000080
00C78090    40400006  D3404040  E2E8E2C1  D9C9F0F0 *  ..L   SYSARI00* +00000090
00C780A0    60F14040  40000000  00000000  E2D8D3C4 *-1   .......SQLD* +000000A0
00C780B0    C2C1D740  40404040  40404040  40400007 *BAP           ..* +000000B0
00C780C0    40404040  40404040  40404040  40404040 *                * +000000C0
00C780D0    40400000  C1404040  E2E8E2C1  D9C9F0F0 *  ..A   SYSARI00* +000000D0
00C780E0    07F6C4C2  40000000  47F0F01E  18C1D9C9 *.6DB ....00;.ARI* +000000E0
00C780F0    C3C4C9D9  C44040F0  F14BF2F9  F140D7D3 *CDIRD  01.291 PL* +000000F0
00C78100    E7404040  400090EC  D00C18CF  5800C224 *X    .........B.* +00000100
00C78110    5810A00C  58E10004  1EE055E0  100847D0 *........;\.\....* +00000110
00C78120    C04458F0  C23005EF  47F0C028  50E10004 *...0B....0..&...* +00000120
00C78130    1FE0181E  18B150D0  B00450B0  D00898F1 *.\.;..&...&...q1* +00000130
00C78140    D01018DB  D203B048  10005840  B0485850 *....K...... ...&* +00000140
00C78150    C228D507  5009C24A  4780C086  41F0000C *B.N.&.B¢...f.0..* +00000150  

Robert Payne

unread,
Jun 26, 2008, 4:42:40 PM6/26/08
to
This sounds way too easy, so I'll change it tonight !
 
THANKS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU]On Behalf Of Steve Huggins
Sent: Thursday, June 26, 2008 3:28 PM
To: VSE Discussion List
Subject: RE: CICS/TS MRO setup and some basic questions

Robert,

So lets see:

Robert Payne

unread,
Jun 26, 2008, 4:44:21 PM6/26/08
to
DFHAC2001 msg about trans not recognized...

:(

Robert Payne

unread,
Jun 26, 2008, 4:46:54 PM6/26/08
to
4 years ago I reduced it from 1500 to 1000 and that is what I have setup in the 3.1.3 system also.
 
 
-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU]On Behalf Of Mead, Jerry
Sent: Thursday, June 26, 2008 3:32 PM
To: VSE Discussion List
Subject: RE: CICS/TS MRO setup and some basic questions

indust...@winwholesale.com

unread,
Jun 26, 2008, 4:50:35 PM6/26/08
to
owner...@Lehigh.EDU wrote on 06/26/2008 03:58:35 PM:
> Their is a list of Cobol verbs that are illegal under CICS.  String
> unstring etc They use partition getvis in way that does not allow
> it to be returned.

Though your premise is correct, your example is not. STRING is no
longer an "illegal" verb under CICS. We use it all the time and our 24-bit
Getvis remains stable. We also use the translator restriction to catch
illegal verbs and the translator lets STRING go by with no problem.

Sincerely,

Dave Clark

WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331

Eric Schadow

unread,
Jun 26, 2008, 4:56:57 PM6/26/08
to
Dave

Thanks for the correction

Cobol VSE is ok.. Does this include DOS/VS COBOL?

Not sure what Cobol product Robert is running.

Eric

indust...@winwholesale.com

unread,
Jun 26, 2008, 5:02:47 PM6/26/08
to
owner...@Lehigh.EDU wrote on 06/26/2008 04:58:17 PM:
> Cobol VSE is ok.. Does this include DOS/VS COBOL?

It is the combination of COBOL/VSE and LE/VSE which cleaned up any
GetVis leakage problems with certain COBOL verbs. I've even heard that the
DISPLAY verb got cleaned up, too -- though I'll never use it anyway. It is
best just to let the translator catch the verbs which remain illegal in
CICS.

RJac...@decare.com

unread,
Jun 26, 2008, 5:04:34 PM6/26/08
to
According to CEDA on my VSE/ESA 2.7.3 system, transaction IEDC is in group
VSESPG. That group came with the system.

Bob Jacobson
(651) 994-5329



"Robert Payne"
<RPa...@TAD.org>
Sent by: To
owner-vse-l@Lehig "VSE Discussion List"
h.EDU <vs...@Lehigh.EDU>
cc

06/26/2008 15:43 Subject

RE: CICS/TS MRO setup and some
basic questions

Please respond to
vs...@Lehigh.EDU

Robert Payne

unread,
Jun 26, 2008, 5:12:18 PM6/26/08
to
We've been on COBOL/VSE for awhile but there may be some old
FCOBOL and / or COBOL2 phases still in the mix. Dunno :)


-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU]On Behalf Of
Eric Schadow
Sent: Thursday, June 26, 2008 3:58 PM
To: VSE Discussion List

Subject: RE: CICS/TS MRO setup and some basic questions

Robert Payne

unread,
Jun 26, 2008, 6:01:25 PM6/26/08
to
Maybe but we stripped out unwanted stuff like IUI and ICCF.


-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU]On Behalf Of
RJac...@decare.com
Sent: Thursday, June 26, 2008 4:05 PM
To: VSE Discussion List

Subject: RE: CICS/TS MRO setup and some basic questions

Frank Swarbrick

unread,
Jun 26, 2008, 7:56:52 PM6/26/08
to
I believe STRING and UNSTRING are OK as long as you are using Cobol II or
Cobol for VSE/ESA. It is only under "old Cobol" where there were unsafe.
(No, I can't quote any manuals on that at the moment.) I use STRING all of
the time in CICS programs, and UNSTRING often enough.

Frank

n 6/26/2008 at 1:57 PM, in message
<851796191E4B6E42ACB...@handel.ad.davisvision.com>, Eric

Kevin Corkery

unread,
Jun 26, 2008, 8:21:03 PM6/26/08
to
Can't remember exactly (I'll bet I have it saved somewhere on my home computer) but the use of STRING in DOS/VS COBOL was not always restricted. Seems that depending on the syntax of the verb as used in the source, there was the potential of a GETVIS being issued to process the request. If you looked in the compile map there were two different versions of particular library routine used in STRING processing, if you had one, no GETVIS and no worries, the other used GETVIS and it could cause problems. We used STRING extensively in an application we developed years ago that originally ran on WESTI and was later moved to CICS without any problems at all. All our STRINGS were delimited by SIZE, so if you think about it, it's nothing move that a bunch of fixed move commands under the hood.

--
Kevin Corkery
Independent Consultant
Voorhees, New Jersey

Allan Peterson

unread,
Jun 26, 2008, 8:47:04 PM6/26/08
to
I scan the phases looking for ILBDCMM or you can look in your LNKEDT map
for something similar ...

If it is a CICS program then the source code should be reviewed as it is
an indication... it can chew up your partition 24 bit GETVIS , batch we
don't worry about.

This is on VSE/ESA 2.3 and FCOBOL

We have a preprocessor to the CICS command level processor that flags
"illegal" verbs (string, unstring, display , read/write ...)

-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU] On Behalf
Of Kevin Corkery
Sent: Friday, 27 June 2008 12:21 p.m.
To: VSE Discussion List
Subject: RE: CICS/TS MRO setup and some basic questions

Martin T2..

unread,
Jun 27, 2008, 2:18:51 AM6/27/08
to
Yea- I am late and Bubba is already busy on some of the items.

Anyway - I do understand that MANTIS is not able to work with storage
above, but that would not stop the rest.

Is everything compiled with CBL DATA(31) (and no overwrite at LNKEDT time!).

Is LE in CICS set to allocate everything above the line (HEAP and STACK).

--
Martin
--
XML2PDF - the way to get all features of PDF into your documents
on mainframe or PC systems; more at http://www.pi-sysprog.de

Robert Payne

unread,
Jun 27, 2008, 8:55:20 AM6/27/08
to
If I'm looking at the correct stuff, HEAP is ANYWHERE
but the STACK is BELOW. Been so long since we set this
up, I'l have to go back and RTFM.

After last nights changes, we have about 2.6M of 24bit GETVIS in F2
at the moment, but it's not quite 8AM here so within the next hour
when everyone gets cranked up we'll really know something.


... snip

Robert Payne

unread,
Jun 27, 2008, 8:57:28 AM6/27/08
to
THANKS
------

to everyone on the list for the questions and suggestions !


Bubba

Robert Payne

unread,
Jun 27, 2008, 9:30:48 AM6/27/08
to
A few years ago I wrote a little monitor (batch pgm) to log
the GETVIS usage of specific targets like CICS and VTAM. As
you can see, it's a "slow drip" of 24bit decrease in CICS so
it's really a good thing that we don't have to run 24x7.
Below are snips of yesterday (before suggested changes) and
what we have so far this morning. So far so GOOD !!!!



EXEC PGM=MON1,SIZE=28K,PARM='300 SEC - PRODVSE'
CICS GETVIS VTAM GETVIS SVA GETVIS MON1 VRM=2.1.05
FREE 24b FREE 31b FREE 24b FREE 31b FREE 24b
10048K 32268K 9836K 16736K 1348K 06.04.08 06/26/2008
3620K 29380K 9836K 16536K 1204K 06.09.08 06/26/2008
3616K 29368K 9836K 16536K 1204K 06.14.08 06/26/2008
3616K 29368K 9836K 16536K 1204K 06.19.08 06/26/2008
1232K 26904K 9836K 16536K 1196K 06.24.08 06/26/2008
1196K 26796K 9836K 16532K 1196K 06.29.08 06/26/2008
1188K 26784K 9836K 16532K 1204K 06.34.08 06/26/2008
1160K 26584K 9836K 16532K 1204K 06.39.08 06/26/2008
1160K 26644K 9836K 16532K 1208K 06.44.08 06/26/2008
1156K 26704K 9836K 16532K 1208K 06.49.08 06/26/2008
1156K 26704K 9836K 16528K 1208K 06.54.08 06/26/2008
1156K 26704K 9836K 16528K 1208K 06.59.08 06/26/2008
1152K 26700K 9836K 16524K 1208K 07.04.08 06/26/2008
1140K 26688K 9836K 16524K 1208K 07.09.08 06/26/2008
1128K 26672K 9836K 16524K 1208K 07.14.08 06/26/2008
1128K 26672K 9836K 16524K 1208K 07.19.08 06/26/2008
1080K 26328K 9836K 16520K 1208K 07.24.08 06/26/2008
1064K 26308K 9836K 16516K 1208K 07.29.08 06/26/2008
1032K 26188K 9836K 16512K 1208K 07.34.08 06/26/2008
1024K 26180K 9836K 16508K 1208K 07.39.08 06/26/2008
1024K 26060K 9836K 16508K 1208K 07.44.08 06/26/2008
1024K 26060K 9836K 16496K 1208K 07.49.08 06/26/2008
1020K 26056K 9836K 16484K 1208K 07.54.08 06/26/2008
988K 25968K 9836K 16476K 1208K 07.59.08 06/26/2008
980K 25944K 9836K 16464K 1208K 08.04.08 06/26/2008
972K 25916K 9836K 16456K 1208K 08.09.08 06/26/2008
972K 25916K 9836K 16444K 1208K 08.14.08 06/26/2008
972K 25916K 9836K 16440K 1208K 08.19.08 06/26/2008
972K 25916K 9836K 16436K 1208K 08.24.08 06/26/2008
952K 25892K 9836K 16436K 1208K 08.29.08 06/26/2008
952K 25892K 9836K 16432K 1208K 08.34.08 06/26/2008
952K 25892K 9836K 16432K 1208K 08.39.08 06/26/2008
952K 25892K 9836K 16428K 1208K 08.44.08 06/26/2008
944K 25832K 9836K 16428K 1208K 08.49.08 06/26/2008
940K 25820K 9836K 16428K 1208K 08.54.08 06/26/2008
940K 25780K 9836K 16428K 1208K 08.59.08 06/26/2008
940K 25780K 9836K 16424K 1208K 09.04.08 06/26/2008
940K 25780K 9836K 16424K 1208K 09.09.08 06/26/2008
940K 25780K 9836K 16424K 1208K 09.14.08 06/26/2008
940K 25776K 9836K 16424K 1208K 09.19.08 06/26/2008
940K 25776K 9836K 16424K 1208K 09.24.08 06/26/2008
936K 25772K 9836K 16424K 1208K 09.29.08 06/26/2008
928K 25764K 9836K 16424K 1208K 09.34.08 06/26/2008
928K 25760K 9836K 16424K 1208K 09.39.08 06/26/2008
904K 25736K 9836K 16424K 1208K 09.44.08 06/26/2008
900K 25540K 9836K 16420K 1208K 09.49.08 06/26/2008
900K 25540K 9836K 16420K 1208K 09.54.08 06/26/2008
896K 25468K 9836K 16420K 1208K 09.59.08 06/26/2008
896K 25468K 9836K 16420K 1208K 10.04.08 06/26/2008
896K 25468K 9836K 16416K 1208K 10.09.08 06/26/2008
872K 25388K 9836K 16416K 1208K 10.14.08 06/26/2008
872K 25388K 9836K 16416K 1208K 10.19.08 06/26/2008
868K 25348K 9836K 16416K 1208K 10.24.08 06/26/2008
868K 25348K 9836K 16416K 1212K 10.29.08 06/26/2008
868K 25348K 9836K 16416K 1212K 10.34.08 06/26/2008
868K 25348K 9836K 16416K 1212K 10.39.08 06/26/2008
868K 25348K 9836K 16416K 1212K 10.44.08 06/26/2008
868K 25348K 9836K 16416K 1212K 10.49.08 06/26/2008
864K 25344K 9836K 16416K 1212K 10.54.08 06/26/2008
864K 25344K 9836K 16416K 1212K 10.59.08 06/26/2008
864K 25344K 9836K 16416K 1212K 11.04.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.09.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.14.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.19.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.24.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.29.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.34.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.39.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.44.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.49.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.54.08 06/26/2008
856K 25336K 9836K 16416K 1212K 11.59.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.04.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.09.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.14.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.19.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.24.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.29.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.34.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.39.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.44.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.49.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.54.08 06/26/2008
856K 25336K 9836K 16416K 1212K 12.59.08 06/26/2008
856K 25336K 9836K 16416K 1208K 13.04.08 06/26/2008
856K 25336K 9836K 16416K 1208K 13.09.08 06/26/2008
856K 25332K 9836K 16416K 1208K 13.14.08 06/26/2008
852K 25324K 9836K 16416K 1208K 13.19.08 06/26/2008
852K 25324K 9836K 16416K 1208K 13.24.08 06/26/2008
852K 25324K 9836K 16416K 1208K 13.29.08 06/26/2008
852K 25324K 9836K 16416K 1208K 13.34.08 06/26/2008
852K 25324K 9836K 16416K 1208K 13.39.08 06/26/2008
852K 25324K 9836K 16416K 1208K 13.44.08 06/26/2008
852K 25324K 9836K 16416K 1208K 13.49.08 06/26/2008
852K 25324K 9836K 16412K 1208K 13.54.08 06/26/2008
852K 25324K 9836K 16412K 1208K 13.59.08 06/26/2008
848K 25320K 9836K 16412K 1208K 14.04.08 06/26/2008
848K 25256K 9836K 16412K 1208K 14.09.08 06/26/2008
848K 25300K 9836K 16412K 1208K 14.14.08 06/26/2008
848K 25300K 9836K 16412K 1208K 14.19.08 06/26/2008
848K 25172K 9836K 16412K 1208K 14.24.08 06/26/2008
848K 25236K 9836K 16412K 1208K 14.29.08 06/26/2008
848K 25236K 9836K 16412K 1208K 14.34.08 06/26/2008
848K 25236K 9836K 16412K 1208K 14.39.08 06/26/2008
848K 25236K 9836K 16412K 1208K 14.44.08 06/26/2008
848K 25236K 9836K 16416K 1208K 14.49.08 06/26/2008
848K 25236K 9836K 16416K 1208K 14.54.08 06/26/2008
848K 25236K 9836K 16416K 1208K 14.59.08 06/26/2008
848K 25236K 9836K 16416K 1208K 15.04.08 06/26/2008
848K 25236K 9836K 16416K 1208K 15.09.08 06/26/2008
848K 25236K 9836K 16416K 1200K 15.14.08 06/26/2008
836K 25224K 9836K 16416K 1208K 15.19.08 06/26/2008
836K 25224K 9836K 16416K 1208K 15.24.08 06/26/2008
832K 25216K 9836K 16416K 1208K 15.29.08 06/26/2008
824K 25208K 9836K 16416K 1208K 15.34.08 06/26/2008
796K 25092K 9836K 16416K 1208K 15.39.08 06/26/2008
768K 24964K 9836K 16416K 1208K 15.44.08 06/26/2008
768K 24964K 9836K 16416K 1200K 15.49.08 06/26/2008
768K 24900K 9836K 16416K 1208K 15.54.08 06/26/2008
768K 24964K 9836K 16416K 1208K 15.59.08 06/26/2008
768K 24964K 9836K 16416K 1208K 16.04.08 06/26/2008
768K 24964K 9836K 16416K 1208K 16.09.08 06/26/2008
768K 24964K 9836K 16416K 1208K 16.14.08 06/26/2008
768K 24964K 9836K 16416K 1208K 16.19.08 06/26/2008
768K 24964K 9836K 16416K 1208K 16.24.08 06/26/2008
768K 24964K 9836K 16416K 1208K 16.29.08 06/26/2008
768K 24964K 9836K 16416K 1212K 16.34.08 06/26/2008
768K 24964K 9836K 16416K 1212K 16.39.08 06/26/2008
744K 24820K 9836K 16416K 1212K 16.44.08 06/26/2008
744K 24884K 9836K 16416K 1212K 16.49.08 06/26/2008
744K 24884K 9836K 16416K 1212K 16.54.08 06/26/2008
744K 24880K 9836K 16420K 1212K 16.59.08 06/26/2008
744K 24960K 9836K 16420K 1212K 17.04.08 06/26/2008
744K 24960K 9836K 16420K 1212K 17.09.08 06/26/2008
744K 24960K 9836K 16420K 1212K 17.14.08 06/26/2008
744K 24960K 9836K 16420K 1212K 17.19.08 06/26/2008
744K 24960K 9836K 16420K 1212K 17.24.08 06/26/2008
744K 24960K 9836K 16424K 1212K 17.29.08 06/26/2008
744K 24960K 9836K 16424K 1212K 17.34.08 06/26/2008
744K 24960K 9836K 16424K 1212K 17.39.08 06/26/2008
744K 24960K 9836K 16424K 1212K 17.44.08 06/26/2008
744K 24960K 9836K 16424K 1212K 17.49.08 06/26/2008
744K 24960K 9836K 16428K 1212K 17.54.08 06/26/2008
744K 24960K 9836K 16436K 1212K 17.59.08 06/26/2008
744K 24960K 9836K 16436K 1212K 18.04.08 06/26/2008
744K 24960K 9836K 16436K 1212K 18.09.08 06/26/2008
744K 24960K 9836K 16436K 1212K 18.14.08 06/26/2008
744K 24960K 9836K 16436K 1212K 18.19.08 06/26/2008
744K 24960K 9836K 16436K 1212K 18.24.08 06/26/2008
744K 24960K 9836K 16436K 1212K 18.29.08 06/26/2008
744K 24960K 9836K 16436K 1212K 18.34.08 06/26/2008
744K 24960K 9836K 16440K 1212K 18.39.08 06/26/2008
744K 24960K 9836K 16440K 1212K 18.44.08 06/26/2008
744K 24960K 9836K 16440K 1212K 18.49.08 06/26/2008
744K 24960K 9836K 16440K 1212K 18.54.08 06/26/2008
744K 24960K 9836K 16444K 1212K 18.59.08 06/26/2008
744K 24960K 9836K 16444K 1212K 19.04.08 06/26/2008
744K 24960K 9836K 16444K 1212K 19.09.08 06/26/2008
744K 24960K 9836K 16444K 1212K 19.14.08 06/26/2008
744K 24960K 9836K 16444K 1212K 19.19.08 06/26/2008
744K 24960K 9836K 16444K 1212K 19.24.08 06/26/2008
744K 24960K 9836K 16444K 1212K 19.29.08 06/26/2008
744K 24960K 9836K 16444K 1212K 19.34.08 06/26/2008


so far today;

CICS GETVIS VTAM GETVIS SVA GETVIS MON1 VRM=2.1.05
FREE 24b FREE 31b FREE 24b FREE 31b FREE 24b
9196K 31416K 9836K 16748K 1372K 06.04.08 06/27/2008
5152K 20684K 9836K 16540K 1232K 06.09.08 06/27/2008
5152K 20684K 9836K 16540K 1232K 06.14.08 06/27/2008
2780K 18232K 9836K 16540K 1228K 06.19.08 06/27/2008
2780K 18232K 9836K 16540K 1228K 06.24.08 06/27/2008
2768K 18156K 9836K 16536K 1228K 06.29.08 06/27/2008
2768K 18156K 9836K 16536K 1228K 06.34.08 06/27/2008
2764K 18152K 9836K 16536K 1228K 06.39.08 06/27/2008
2764K 18148K 9836K 16532K 1220K 06.44.08 06/27/2008
2764K 18148K 9836K 16532K 1224K 06.49.08 06/27/2008
2764K 18148K 9836K 16532K 1224K 06.54.08 06/27/2008
2736K 18012K 9836K 16532K 1216K 06.59.08 06/27/2008
2732K 18004K 9836K 16532K 1228K 07.04.08 06/27/2008
2732K 18004K 9836K 16532K 1228K 07.09.08 06/27/2008
2728K 18000K 9836K 16532K 1228K 07.14.08 06/27/2008
2704K 18032K 9836K 16528K 1228K 07.19.08 06/27/2008
2696K 18024K 9836K 16528K 1228K 07.24.08 06/27/2008
2612K 17636K 9836K 16524K 1228K 07.29.08 06/27/2008
2612K 17632K 9836K 16520K 1228K 07.34.08 06/27/2008
2612K 17632K 9836K 16516K 1228K 07.39.08 06/27/2008
2612K 17632K 9836K 16516K 1228K 07.44.08 06/27/2008
2608K 17628K 9836K 16508K 1228K 07.49.08 06/27/2008
2600K 17620K 9836K 16500K 1228K 07.54.08 06/27/2008
2600K 17620K 9836K 16488K 1228K 07.59.08 06/27/2008
2556K 17460K 9836K 16480K 1228K 08.04.08 06/27/2008
2552K 17448K 9836K 16472K 1228K 08.09.08 06/27/2008
2540K 17436K 9836K 16464K 1228K 08.14.08 06/27/2008
2532K 17424K 9836K 16464K 1220K 08.19.08 06/27/2008
*** END-OF-FILE ***

Ron Ashley

unread,
Jun 27, 2008, 11:01:39 AM6/27/08
to
Still looks like files being opened. Did you take STAT transaction out of
production CICS. Run STAT transaction at end of day. This will show you what
files get opened during the day.

With files that are opened daily, you should have then opened with startup
(ceda).
With files that are opened only occasionally, you should have these opened
with firstref.

I went through my files lately and gained a lot of getvis at startup time. I
was opening files (with startup option) that were not being opened daily.

-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU] On Behalf Of
Robert Payne
Sent: Friday, June 27, 2008 8:30 AM
To: VSE Discussion List

Eric Schadow

unread,
Jun 27, 2008, 12:02:02 PM6/27/08
to
Try the GETVIS F2,ALL every once in a while to see which Getvis pools are increasing. Then use the DSPLY from FAQS to view the new storage to see who it belongs to.

Eric

-----Original Message-----
From: owner...@Lehigh.EDU [mailto:owner...@Lehigh.EDU]On Behalf Of
Robert Payne
Sent: Friday, June 27, 2008 9:30 AM
To: VSE Discussion List
Subject: GETVIS usage (was CICS/TS MRO setup...)


so far today;

------------------------------------------------------------------------

K Meyer

unread,
Jun 27, 2008, 12:09:20 PM6/27/08
to
Use the MAP F2GETVIS command to see a mapping that you can then check with
the DISPLAY command.

Ken Meyer
CSI


*********** REPLY SEPARATOR ***********

On 6/27/2008 at 12:03 PM Eric Schadow wrote:

snip..


Steve Huggins

unread,
Jun 27, 2008, 12:15:36 PM6/27/08
to
Robert,

ODIS is a CICS product we sell:

http://www.csi-international.com/csi-products/ODIS/ODIS.htm

At 03:51 PM 6/26/2008, you wrote:
I don't know what "ODIS" is. In case ya'll haven't guessed, I'm not even
a "CICS" person.  :)

Martin T2..

unread,
Jun 27, 2008, 12:17:28 PM6/27/08
to
Okay- there were ways to shift from 24 to 31 (GETVIS and DSA)

...but this all does not fix the underlying problem of an unidentified
GETVIS (or DSA)-eater.

If have code here to cover various aspects of identifying a GETVIS-eater.

I could put it together such that it runs from a "monitor"-paritition
and collect all the necessary data ...say you start it at a certain time
and monitor a CICS for an hour- it then gets from the monitored CICS
region all the programs loaded and correlates the addresses from where
GETVIS was allocated to these programs. It could of course not identify
programs in CICS-nucleus- but user-programs and programs loaded in
GETVIS and the SVA.

With the programs identified - their offset and the size of storage
requested you should be able to shoot (or whatever you like to do with
offenders).

any takers?

Robert Payne

unread,
Jun 27, 2008, 12:55:09 PM6/27/08
to

so far it is the "DEFAULT" subpool

...snip

Robert Payne

unread,
Jul 7, 2008, 9:33:09 AM7/7/08
to
We may have some really old phases left from the FCOBOL days, but I just don't
know for sure. They purchased some package stuff over 20 years ago that
still hasn't gone away.

:)

0 new messages