ca.portal.admin

Re:Re: Storage creep

Discussion created by ca.portal.admin on Jun 12, 2008
Good point! Let me check with the areas involved to see if there are
compressed records. I'll get back to you.

Thanks Don.
Laura

Don Casey wrote:
COMP and DCOM won't release storage unless they are called at AREA
level (on
FINISH?) as well.

Don Casey
Run Right, LLC

-----Original Message-----
From: IDMS Public Discussion Forum [mailTo:IDMS-L@LISTSERV.IUASSN.COM]
On Behalf Of Laura Rochon
Sent: Thursday, June 12, 2008 8:00 AM
To: IDMS-L@LISTSERV.IUASSN.COM
Subject: Storage creep

Hi everyone,

I'm at that age where somethings seem vaguely familiar but can't
remember, so I'm calling on your help.

I have a production batch job that has been running for years, with no
problems. Has NOT been changed (and I can attest to that). The
volume of the input is a lot higher than normal though. When the job
runs, Pool 128 (contains ALL) goes SOS. Monitoring the job while it's
running shows that locks are being released as the rununits commits,
and in
fact, there is not that much database updating going on. However,
the
program calls 2 subprograms which each do a BIND RUNUNIT and a FINISH
for each call. So, as the volume of input increases the number of
times the subprograms get called and the number of BIND RUNUNIT/FINISH
increases. When we split the input file into small input files and
reran, it ran okay. Now this is where my memory isn't helping me
much. I seem to recall that there was a problem about storage not
being released in this type of scenario, but cannot find anything on
CA
Support. So, I'm hoping this rings a bell to someone out there in
IDMS-L land.

We're running on zOS 1.8, with CA IDMS R16, sp4.

Thanks,
Laura Rochon
Ajilon

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Retrieve lpar name from ADS dialog
"If you only need jobname use
L R1,PSATOLD-PSA(0) -> TCB
L R1,TCBTIO-TCB(0,R1) -> TIOT
MVC WTOTX+10(8),0(R1) JOBNAME IN WTO TEXT

will macros dsects from sys1.maclib and sys1.modgen
CVT DSECT=YES,PREFIX=NO,LIST=YES
IKJTCB LIST=YES,DSECT=YES

if you need job number and task type info use

L R1,FLCCVT-PSA(0)
MVC PRCBSYID,CVTSNAME-CVT(R1)
L R1,PSATOLD-PSA(0) -> TCB FROM PSA
L R1,TCBJSCB-TCB(R1) -> JSCB
L R1,JSCBSSIB-IEZJSCB(0,R1) -> SSIB
L R1,SSIBSUSE-SSIB(0,R1) -> SJB
L R15,FLCCVT-PSA(0)
L R15,CVTECVT-CVT(R15)
CLC ECVTPVER-ECVT(4,R15),=CL4'0103' VERSION?
BNE ZOSNOT13
MVC PRCBSTCN,X'F8'(R1) SOURCE JOB NAME
MVC PRCBJOB#,X'EC'(R1) SOURCE JOB NUMBER
B BY13PLUS RESET (MAYBE) AMODE
ZOSNOT13 DS 0H
USING SJB,R1
MVC PRCBSTCN,SJBJOBNM SOURCE JOB NAME

you will need macros/dsects from sys1.maclib and sys1.modgen
CVT DSECT=YES,PREFIX=NO,LIST=YES
IHAECVT DSECT=YES,LIST=NO
IHAPSA DSECT=YES,LIST=YES
IHAASCB DSECT=YES,LIST=NO
IHAASXB DSECT=YES,LIST=NO
IKJTCB DSECT=YES,LIST=NO





Kongelf Hans Olav <hans.olav.kongelf@EDB.COM>
Sent by: IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>
06/13/2008 03:11 AM
Please respond to
IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>


To
IDMS-L@LISTSERV.IUASSN.COM
cc

Subject
Retrieve lpar name from ADS dialog






Hello list,

We have three CVs with the same CV number running on three different
lpars. In an ADS dialog we want to test which lpar the CV is running
on.

Is there a way to retrieve the lpar name from an ADS dialog?
Alternatively can this be done from an assembler program?

Thanks for any help!

Hans Olav Kongelf
EDB Business Partner AS
Oslo, Norway
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Retrieve lpar name from ADS dialog
"Hello Olav,

You can get the LPAR name with a short assembler program that will extract
it from the zOS CVT control block.
You can get the pointer to the CVT from real(=virt.) address X'10' and then
get the 8 byte string of LPAR name from CVTSNAME (should be at offset X'154'
into the CVT, but you would better use the OS DSECT for it (I believe it is
also called CVT or maybe IKJTCB).

I also believe that LPAR name is copied into IDMS module RHDCOESA at CV
startup.
You can do a DCMT DME PRO .... and find it's offset into this module (but
again, better use the right DSECT for it since fields might change location
with a new release).

I hope that it helps.

HTH,

Rafi Gefen
IDMS DBA
Tel-Aviv, Israel

On Fri, Jun 13, 2008 at 10:11 AM, Kongelf Hans Olav <
hans.olav.kongelf@edb.com> wrote:
Hello list,

We have three CVs with the same CV number running on three different
lpars. In an ADS dialog we want to test which lpar the CV is running
on.

Is there a way to retrieve the lpar name from an ADS dialog?
Alternatively can this be done from an assembler program?

Thanks for any help!

Hans Olav Kongelf
EDB Business Partner AS
Oslo, Norway
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Retrieve lpar name from ADS dialog
"Hello list,

We have three CVs with the same CV number running on three different
lpars. In an ADS dialog we want to test which lpar the CV is running
on.

Is there a way to retrieve the lpar name from an ADS dialog?
Alternatively can this be done from an assembler program?

Thanks for any help!

Hans Olav Kongelf
EDB Business Partner AS
Oslo, Norway
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Retrieve lpar name from ADS dialog
"Hello list,

We have three CVs with the same CV number running on three different
lpars. In an ADS dialog we want to test which lpar the CV is running
on.

Is there a way to retrieve the lpar name from an ADS dialog?
Alternatively can this be done from an assembler program?

Thanks for any help!

Hans Olav Kongelf
EDB Business Partner AS
Oslo, Norway
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Retrieve lpar name from ADS dialog
"Hello Olav,

You can get the LPAR name with a short assembler program that will extract
it from the zOS CVT control block.
You can get the pointer to the CVT from real(=virt.) address X'10' and then
get the 8 byte string of LPAR name from CVTSNAME (should be at offset X'154'
into the CVT, but you would better use the OS DSECT for it (I believe it is
also called CVT or maybe IKJTCB).

I also believe that LPAR name is copied into IDMS module RHDCOESA at CV
startup.
You can do a DCMT DME PRO .... and find it's offset into this module (but
again, better use the right DSECT for it since fields might change location
with a new release).

I hope that it helps.

HTH,

Rafi Gefen
IDMS DBA
Tel-Aviv, Israel

On Fri, Jun 13, 2008 at 10:11 AM, Kongelf Hans Olav <
hans.olav.kongelf@edb.com> wrote:
Hello list,

We have three CVs with the same CV number running on three different
lpars. In an ADS dialog we want to test which lpar the CV is running
on.

Is there a way to retrieve the lpar name from an ADS dialog?
Alternatively can this be done from an assembler program?

Thanks for any help!

Hans Olav Kongelf
EDB Business Partner AS
Oslo, Norway
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Retrieve lpar name from ADS dialog
"If you only need jobname use
L R1,PSATOLD-PSA(0) -> TCB
L R1,TCBTIO-TCB(0,R1) -> TIOT
MVC WTOTX+10(8),0(R1) JOBNAME IN WTO TEXT

will macros dsects from sys1.maclib and sys1.modgen
CVT DSECT=YES,PREFIX=NO,LIST=YES
IKJTCB LIST=YES,DSECT=YES

if you need job number and task type info use

L R1,FLCCVT-PSA(0)
MVC PRCBSYID,CVTSNAME-CVT(R1)
L R1,PSATOLD-PSA(0) -> TCB FROM PSA
L R1,TCBJSCB-TCB(R1) -> JSCB
L R1,JSCBSSIB-IEZJSCB(0,R1) -> SSIB
L R1,SSIBSUSE-SSIB(0,R1) -> SJB
L R15,FLCCVT-PSA(0)
L R15,CVTECVT-CVT(R15)
CLC ECVTPVER-ECVT(4,R15),=CL4'0103' VERSION?
BNE ZOSNOT13
MVC PRCBSTCN,X'F8'(R1) SOURCE JOB NAME
MVC PRCBJOB#,X'EC'(R1) SOURCE JOB NUMBER
B BY13PLUS RESET (MAYBE) AMODE
ZOSNOT13 DS 0H
USING SJB,R1
MVC PRCBSTCN,SJBJOBNM SOURCE JOB NAME

you will need macros/dsects from sys1.maclib and sys1.modgen
CVT DSECT=YES,PREFIX=NO,LIST=YES
IHAECVT DSECT=YES,LIST=NO
IHAPSA DSECT=YES,LIST=YES
IHAASCB DSECT=YES,LIST=NO
IHAASXB DSECT=YES,LIST=NO
IKJTCB DSECT=YES,LIST=NO





Kongelf Hans Olav <hans.olav.kongelf@EDB.COM>
Sent by: IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>
06/13/2008 03:11 AM
Please respond to
IDMS Public Discussion Forum <IDMS-L@LISTSERV.IUASSN.COM>


To
IDMS-L@LISTSERV.IUASSN.COM
cc

Subject
Retrieve lpar name from ADS dialog






Hello list,

We have three CVs with the same CV number running on three different
lpars. In an ADS dialog we want to test which lpar the CV is running
on.

Is there a way to retrieve the lpar name from an ADS dialog?
Alternatively can this be done from an assembler program?

Thanks for any help!

Hans Olav Kongelf
EDB Business Partner AS
Oslo, Norway
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Retrieve lpar name from ADS dialog
"The attached program will supply a calling dialog with the SMF system
name.

Outcomes