ca.portal.admin

Re:DB004092 C-7M6015: Internal error - GENERATE LDM Storage

Discussion created by ca.portal.admin on Aug 7, 2008
Overflow

Hi

Am in process of creating a NEW CV

However, am getting the message as follows when doing the DMCL GEN etc
in lOCAL mode
DB004092 C-7M6015: Internal error - GENERATE LDM Storage Overflow

Have applied apar QO4887 but this does NOT appear to have fixed the
issue as stil get the same errorthe


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








Normal

Normal
Re: Commit Logic Summary
"Below is a sample of some code that checks every 100 input records
processed whether or not we are holding sufficient ""update locks"" to
warrant a COMMIT. As has been alluded to in other posts - it can
sometimes be hard to estimate the actual number of update locks based on
a simple transaction count because of next/prior pointers being updated,
and/or SR8's in one or more indexes and so forth - so checking the
current update locks value in the IDMS statistics is not a bad way of
determining when to do a COMMIT.=20

Too frequent COMMITs can cause problems with flushing journal buffers
before they are full - this wastes space in the journal files and causes
extra IO in both the database and the journals - not frequent enough and
you can cause deadlock problems, lock table storage overflows (as per
one of the posts in this thread) and so forth.

Remember - this is just an example of something that works in this
specific program - you may wish to use other criteria - or even
parameterise (if there's such a word) the values used in your COMMIT
strategy!

HTH - cheers - Gary=20


01 WS-LINE-SEQ pic 9(04) VALUE 0. =20
<gpc> 01 WS-COUNTS. =20
<gpc> 03 WS-LINE-COUNT pic 9(09) usage comp VALUE 0.
<gpc> 03 WS-GIVING pic 9(09) usage comp VALUE 0.
<gpc> 03 WS-REMAINDER pic 9(09) usage comp VALUE 0.

<gpc> =20
<gpc> *-----------------------------------------------------------------
<gpc> * db-statistics record *
<gpc> *-----------------------------------------------------------------
<gpc> COPY IDMS RECORD DB-STATISTICS. =20
----------------------------------------------------------------

<gpc> =20
<gpc> ******************************** =20
<gpc> * need to do a COMMIT ? * =20
<gpc> ******************************** =20
<gpc> DIVIDE BOBO-REPORT-LINE-COUNT BY 100 =20
<gpc> GIVING WS-GIVING =20
<gpc> REMAINDER WS-REMAINDER =20
<gpc> =20
<gpc> IF WS-REMAINDER =3D 0 =20
<gpc> PERFORM 999-COMMIT =20
<gpc> END-IF =20
<gpc> =20

* =20
<gpc> 999-COMMIT SECTION. =20
<gpc> * =20
<gpc> ACCEPT DB-STATISTICS from IDMS-STATISTICS. =20
<gpc> if UPD-LOCKS-HELD > 500 =20
<gpc> move FUNCTION CURRENT-DATE(9:8) to W-STATS-TIME =20
<gpc> display 'Commit Details <' W-STATS-TIME =20
<gpc> '> Locks Req=3D' LOCKS-REQUESTED =20
<gpc> ' Upd Locks=3D' UPD-LOCKS-HELD =20
<gpc> ' Line Number=3D' BOBO-REPORT-LINE-COUNT =20
<gpc> COMMIT =20
<gpc> else =20
<gpc> move FUNCTION CURRENT-DATE(9:8) to W-STATS-TIME =20
<gpc> * display 'Commit Details <' W-STATS-TIME =20
<gpc> * '> Locks Req=3D' LOCKS-REQUESTED =20
<gpc> * ' Upd Locks=3D' UPD-LOCKS-HELD =20
<gpc> * ' Line Number=3D' BOBO-REPORT-LINE-COUNT =20
<gpc> * ' < commit BYPASSED >' =20
<gpc> end-if. =20
<gpc> * =20
<gpc> 999-EXIT. =20
<gpc> exit. =20
* =20


Gary Cherlet
Justice Technology Services
Department of Justice, SA Government
Telephone +61 (0)8 8226 5199
Facsimile +61 (0)8 8226 5311
Mobile +61 (0)41 333 1613
MailTo:cherlet.gary@saugov.sa.gov.au

This e-mail message and any attachments are qualified as follows:
Addressing: If you have received this e-mail in error, please advise by
reply e-mail to the sender. Please also destroy the original
transmission and its contents. Confidentiality: This e-mail may contain
confidential information which also may be legally privileged. Only the
intended recipient(s) may access, use, distribute or copy this e-mail.
Individual Views: Unless otherwise indicated, the views expressed are
those of the sender, not Justice Technology Services. Computer Viruses:
It is the recipient's responsibility to check the e-mail and any
attached files for viruses.

Outcomes