ca.portal.admin

Available PAGE Ranges

Discussion created by ca.portal.admin on Apr 17, 2006
Latest reply on Apr 17, 2006 by ca.portal.admin
Hello All:

Anybody have a utility that can provide you with a report of the
available page ranges? Can you share it?

I have a client that has almost exhausted the 16,777,215 Pages
available in page group zero but it takes forever to find available page
ranges using IEBEYEBALL.

Bill Allen

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








Normal

Normal
Re: [IDMSVENDOR-L] Available PAGE Ranges
"Bill, funny you should ask ...
here is something i have been working on in my spare time over the last
several years ...

step 1 - get list of all areas in ALL DMCLs (merge from multiple catalogs
if necessary)

DATABASE DICTNAME=SYSDIRL DBNAME=SYSTEM
IN 3000 F DB(D) SS=IDMSNWKG,IDMSNTWK
PATH01 AREA-1026
01OUT 080 D PS DD=OFA
01SORT PAGEGROUP-1026 LOWPAGE-1026 HIGHPAGE-1026 SEGMENT-1026
* NAME-1026
01510001 SEGMENT-1026
01510011 NAME-1026
01510031 PAGEGROUP-1026 FM '9999'
01510041 LOWPAGE-1026 FM '999999999'
01510051 HIGHPAGE-1026 FM '999999999'


step 2 - process the results

IN 080 F PS DD=INF
REC SEGMENT 001 008
REC AREA 011 018
REC PAGEGROUP 031 004 2
REC LOWPAGE 041 009 2
REC HIGHPAGE 051 009 2
010 PREV-PAGEGROUP -10
010 PAGEGROUP-DIFF 0
010 SUB1 0
010 BEGIN-OF-GAP 0
010 END-OF-GAP 0
010 GAP-PAGES 0
01OUT 080 D PS DD=OFA
01SORT NOSORT
01510001 'GAP FROM '
01510010 PREV-PAGEGROUP FM '999'
01510013 ':'
01510014 BEGIN-OF-GAP FM '99999999'
01510022 ' TO '
01510026 '16777214'
01510034 ' - '
01510037 GAP-PAGES FM '99999999'
01510045 ' PAGES'
01520001 'GAP FROM '
01520010 SUB1 FM '999'
01520013 ':'
01520014 '00000001'
01520022 ' TO '
01520026 '16777214'
01520034 ' - '
01520037 GAP-PAGES FM '99999999'
01520045 ' PAGES'
01530001 'GAP FROM '
01530010 PAGEGROUP FM '999'
01530013 ':'
01530014 '00000001'
01530022 ' TO '
01530026 END-OF-GAP FM '99999999'
01530034 ' - '
01530037 GAP-PAGES FM '99999999'
01530045 ' PAGES'
01540001 'GAP FROM '
01540010 PAGEGROUP FM '999'
01540013 ':'
01540014 BEGIN-OF-GAP FM '99999999'
01540022 ' TO '
01540026 END-OF-GAP FM '99999999'
01540034 ' - '
01540037 GAP-PAGES FM '99999999'
01540045 ' PAGES'
01550032 SEGMENT SZ=008
01550041 AREA SZ=018
01550060 PAGEGROUP FM '999'
01550063 ':'
01550064 LOWPAGE FM '99999999'
01550072 '-'
01550073 HIGHPAGE FM '99999999'
017 IF EOF NE 001
017 COMPUTE 16777214 - BEGIN-OF-GAP + 1 GAP-PAGES
017 RELS 1
017 DROP
017001 IF PAGEGROUP EQ PREV-PAGEGROUP 030
017 IF PREV-PAGEGROUP EQ -10 020
017 COMPUTE 16777214 - BEGIN-OF-GAP + 1 GAP-PAGES
017 RELS 1 $ PRINT END-OF-PAGEGROUP GAP
017 PAGEGROUP - PREV-PAGEGROUP PAGEGROUP-DIFF
017 IF PAGEGROUP-DIFF EQ 1 020
017 MOVE PREV-PAGEGROUP TO SUB1
017010 SUB1 + 1 SUB1
017 IF SUB1 EQ PAGEGROUP 020
017 COMPUTE 16777214 - 0 GAP-PAGES
017 RELS 2 $ PRINT EMPTY PAGE
017 B 010
017020 MOVE PAGEGROUP TO PREV-PAGEGROUP
017 MOVE 1 TO BEGIN-OF-GAP
017030 IF LOWPAGE EQ BEGIN-OF-GAP 050
017 LOWPAGE - 1 END-OF-GAP
017 COMPUTE END-OF-GAP - BEGIN-OF-GAP + 1 GAP-PAGES
017 RELS 4 $ PRINT MIDDLE OF PAGE GROUP GAP
017050 RELS 5 $ PRINT DATABASE RECORD
017 HIGHPAGE + 1 BEGIN-OF-GAP
017 DROP

this might work - it might not - but i think it is a start (this assumes a
default radix)


























































Chris Hoelscher
IDMS & DB2 Database Administrator
Humana Inc
502-710-3038
choelscher@humana.com




The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.

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








Normal

Normal
Available PAGE Ranges
"Hello All:

Anybody have a utility that can provide you with a report of the available
page ranges? Can you share it?

I have a client that has almost exhausted the 16,777,215 Pages available in
page group zero but it takes forever to find available page ranges using
IEBEYEBALL.

Bill Allen

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








Normal

Normal
Freepage Report
"We have a Culprit job that executes our standard CV-specific Culprit
proc to create a freepage report sorted by page groups/page numbers.
Contact me if interested.

--------------------------------------------------
Christine A. Laughlin
CIT Specialist I
MO ITSD Database Administration
1621 East Elm
Jefferson City, MO 65102
(573) 751-2056
Christine.A.Laughlin@dss.mo.gov

Outcomes