ca.portal.admin

Re: [IDMSVENDOR-L] interesting phenomena (was[IDMSVENDOR-L]

Discussion created by ca.portal.admin on Mar 7, 2006
Indexes with Duplicates Problem)

since you appear to be using a symbolic, can you give us the symbolic
value (s)?


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.
This communication is intended for the use of the recipient to which it is addressed, and may contain confidential, personal and or privileged information. Please contact us immediately if you are not the intended recipients of this communication, and do not copy, distribute, or take action relying on it. Any communication received in error, or subsequent reply, should be deleted or destroyed.

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








Normal

Normal
Re: SR8 size
"Dang, I meant to attach this CULPRIT I use to the other message. . .
This ""maps"" the ""spread"" of the index across its file(s).
Note the legend that pictorially indicates the Percent Fullness of each
percent of the file.
It's hard to read, and I have found that people find it
hard-to-comprehend, but this is an excellent tool for the simple-minded
-- such as myself 8^D -- who find theoretical discussions difficult to
follow ... This map makes it clear:
* where the SR7 calcs to
* how much displacement is desirable
* how full each page is (both within the displacement and out in the
leaf-page area)
* how effective your page reserve is

103/07/06 SEQUENTIAL
PARAMETER LISTING CAGJG0 V16.0 PAGE 1
-00 ** SYSIN ** PARAM=NOLIST
USE MAPAREA WITH VAL (08904
030000 EDIF03)
CH R TO 1
01 MAPAREA $
--------------------------------------------------------------------
$ MAP INDEX AREA UTILITY
$ PARAMETER LIST:
$ 1 = PAGE SIZE
$ 2 = PAGE COUNT
$ 3 = AREA FILE DDNAME
$
--------------------------------------------------------------------
0 IN 08904 F 08904
DD=EDIF03,010
C200138 INSTALLATION SECURITY OPTION IS NO
103/07/06 INPUT PARAMETER
LISTING CAGJG0 V16.0 PAGE 1
C300106 EXTRACT WILL BE PERFORMED
C300119 PROFILE OPTION IN EFFECT: RELEASE = 6
103/07/06 RUN TIME
MESSAGES CAGJG0 V16.0 PAGE 1

-*********** END OF FILE
******************************************************
0 30,000 INPUT RECORDS READ
1REPORT NO. 01 SPECIAL DBA
REPORT 03/07/06 PAGE 1
MAPAREA 1.2 FOR EDIF03 MAP OF INDEX AREA
BY PERCENTSOFTWARE BY DEM
EACH PERCENT = 300 PAGES OF 030000 PAGES
EACH PAGE = 8904 BYTES
LEGEND: ""_"" <02%, ""."" <25%, "":"" < 50%, ""-"" <70%, ""!"" <90%, ""*"" > 90%,
"" "" = N/A
0....+....1....+....2....+....3....+....4....+....5....+....6....+....7.
...+....8....+....9....+....0
0!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!-!!!!-!!!!!!!--!!--!!!!!!!!!!-_____
____________________:!!!!!!!!

1 2,270,992 0.85 34 2,214,124 0.83 67
9,600 0.00
2 2,374,448 0.89 35 2,236,072 0.84 68
9,600 0.00
3 2,348,808 0.88 36 2,165,092 0.81 69
9,600 0.00
4 2,280,928 0.85 37 1,714,188 0.64 70
9,600 0.00
5 2,331,556 0.87 38 2,028,328 0.76 71
9,600 0.00
6 2,341,400 0.88 39 2,066,240 0.77 72
9,600 0.00
7 2,294,572 0.86 40 2,112,692 0.79 73
9,600 0.00
8 2,316,516 0.87 41 2,160,472 0.81 74
18,472 0.01
9 2,315,852 0.87 42 1,780,228 0.67 75
9,600 0.00
10 2,350,532 0.88 43 1,970,772 0.74 76
9,600 0.00
11 2,369,496 0.89 44 1,977,868 0.74 77
9,600 0.00
12 2,377,988 0.89 45 2,112,784 0.79 78
9,600 0.00
13 2,369,716 0.89 46 2,098,588 0.79 79
9,600 0.00
14 2,327,664 0.87 47 2,060,592 0.77 80
9,600 0.00
15 2,330,392 0.87 48 2,171,644 0.81 81
9,600 0.00
16 2,315,048 0.87 49 1,901,252 0.71 82
9,600 0.00
17 2,359,036 0.88 50 1,787,820 0.67 83
9,600 0.00
18 2,339,776 0.88 51 1,834,584 0.69 84
9,600 0.00
19 2,344,996 0.88 52 2,038,468 0.76 85
9,600 0.00
20 2,350,936 0.88 53 2,085,216 0.78 86
9,600 0.00
21 2,343,352 0.88 54 1,783,792 0.67 87
9,600 0.00
22 2,372,536 0.89 55 1,769,804 0.66 88
9,600 0.00
23 2,345,960 0.88 56 2,058,820 0.77 89
18,472 0.01
24 2,319,652 0.87 57 2,130,324 0.80 90
9,600 0.00
25 2,339,424 0.88 58 2,131,508 0.80 91
9,600 0.00
26 2,315,984 0.87 59 2,117,604 0.79 92
852,608 0.32
27 2,326,308 0.87 60 2,146,232 0.80 93
2,221,140 0.83
28 2,316,644 0.87 61 2,081,212 0.78 94
2,148,244 0.80
29 2,359,952 0.88 62 2,036,376 0.76 95
2,176,384 0.81
30 2,272,532 0.85 63 2,044,964 0.77 96
2,182,036 0.82
31 2,331,756 0.87 64 2,047,192 0.77 97
2,177,036 0.82
32 2,331,380 0.87 65 2,052,588 0.77 98
2,238,520 0.84
33 2,335,796 0.87 66 1,350,948 0.51 99
2,193,524 0.82
100 2,263,020 0.85 TOT 162,014,804 0.61
1 C750009 RECORDS WRITTEN FOR REPORT 01 -- 42


//MAPEDGN JOB (DBA),CLASS=A,MSGCLASS=X,
// NOTIFY=&SYSUID
//******************************************************************
//* MAP IX AREA
//******************************************************************
//CULPRITP EXEC CULPPM,CV=IDMSDC
//SYSIN DD *
PARAM=NOLIST
USE MAPAREA WITH VAL (08904 030000 EDIF03)
CH R TO 1
//SYSIDMS DD *
DMCL=AEIDMCL,ECHO=ON DICTNAME=AEIDICT
//EDIF03 DD DSN=IDMSDC.EDIDB.EDIF03,DISP=SHR,
// DCB=(OPTCD=C,BUFNO=32)
//*

$ --------------------------------------------------------------------
$ MAP INDEX AREA UTILITY
$ PARAMETER LIST:
$ 1 = PAGE SIZE
$ 2 = PAGE COUNT
$ 3 = AREA FILE DDNAME
$ --------------------------------------------------------------------
IN &&1 F &&1 DD=&&3,010
REC RECALL 1 &&1
REC PGNBR 1 4 1
REC SR1NEX 5 4 1
REC SR1PRI 9 4 1
REC PGAVL 13 2 1
00OUT D
00SORT PCTSZ PGSZ DLBL
000 TOTBYT.105 0 $ TOTAL BYTES PER PCTG.
000 PCTL.105 0 $ PCT.USED PER PCTG.
000 PCTD.105 ' ' $ PCT.USED MAP CHARACTER PER PCTG.
000 MAXPCT 0 $ HIGHEST % USED IN MAP
GW0 MAXB 0 $ MAX BYTES POSSIBLE PER PCTG.
GW0 PGSZ &&1 $ PAGE SIZE
GW0 PGCNT &&2 $ PAGES IN AREA
GW0 PCTSZ 0 $ PAGES PER PCTG.
000 DLBL '&&3' $
000 IX IY IZ 0
003 SPECIAL DBA REPORT
01410001 'MAPAREA 1.2 FOR'
01410017 DLBL
00410055 'MAP OF INDEX AREA BY PERCENT'
00410083 'SOFTWARE BY DEM'
00420001 'EACH PERCENT ='
00420016 PCTSZ FM 'ZZZZ9'
00420022 'PAGES OF &&2 PAGES'
00430001 'EACH PAGE ='
00430012 PGSZ FM 'ZZZZ9'
00430018 'BYTES'
00440001 'LEGEND: ""_"" <02%, ""."" <25%, "":"" < 50%,'
00440040 ' ""-"" <70%, ""!"" <90%, ""*"" > 90%, "" "" = N/A'
005100010'....+....1....+....2....+....3....+....4....+....5'
00510051 '....+....6....+....7....+....8....+....9....+....0'
005200010PCTD.001
00520002 PCTD.002
00520003 PCTD.003
00520004 PCTD.004
00520005 PCTD.005
00520006 PCTD.006
00520007 PCTD.007
00520008 PCTD.008
00520009 PCTD.009
00520010 PCTD.010
00520011 PCTD.011
00520012 PCTD.012
00520013 PCTD.013
00520014 PCTD.014
00520015 PCTD.015
00520016 PCTD.016
00520017 PCTD.017
00520018 PCTD.018
00520019 PCTD.019
00520020 PCTD.020
00520021 PCTD.021
00520022 PCTD.022
00520023 PCTD.023
00520024 PCTD.024
00520025 PCTD.025
00520026 PCTD.026
00520027 PCTD.027
00520028 PCTD.028
00520029 PCTD.029
00520030 PCTD.030
00520031 PCTD.031
00520032 PCTD.032
00520033 PCTD.033
00520034 PCTD.034
00520035 PCTD.035
00520036 PCTD.036
00520037 PCTD.037
00520038 PCTD.038
00520039 PCTD.039
00520040 PCTD.040
00520041 PCTD.041
00520042 PCTD.042
00520043 PCTD.043
00520044 PCTD.044
00520045 PCTD.045
00520046 PCTD.046
00520047 PCTD.047
00520048 PCTD.048
00520049 PCTD.049
00520050 PCTD.050
00520051 PCTD.051
00520052 PCTD.052
00520053 PCTD.053
00520054 PCTD.054
00520055 PCTD.055
00520056 PCTD.056
00520057 PCTD.057
00520058 PCTD.058
00520059 PCTD.059
00520060 PCTD.060
00520061 PCTD.061
00520062 PCTD.062
00520063 PCTD.063
00520064 PCTD.064
00520065 PCTD.065
00520066 PCTD.066
00520067 PCTD.067
00520068 PCTD.068
00520069 PCTD.069
00520070 PCTD.070
00520071 PCTD.071
00520072 PCTD.072
00520073 PCTD.073
00520074 PCTD.074
00520075 PCTD.075
00520076 PCTD.076
00520077 PCTD.077
00520078 PCTD.078
00520079 PCTD.079
00520080 PCTD.080
00520081 PCTD.081
00520082 PCTD.082
00520083 PCTD.083
00520084 PCTD.084
00520085 PCTD.085
00520086 PCTD.086
00520087 PCTD.087
00520088 PCTD.088
00520089 PCTD.089
00520090 PCTD.090
00520091 PCTD.091
00520092 PCTD.092
00520093 PCTD.093
00520094 PCTD.094
00520095 PCTD.095
00520096 PCTD.096
00520097 PCTD.097
00520098 PCTD.098
00520099 PCTD.099
00520100 PCTD.100
00530001 ' '
00540001 IX FM 'ZZ9'
00540005 TOTBYT.IX SZ=15
00540025 PCTL.IX FM 'ZZ9.99'
00540033 IY FM 'ZZ9'
00540038 TOTBYT.IY SZ=15
00540058 PCTL.IY FM 'ZZ9.99'
00540066 IZ FM 'ZZ9'
00540071 TOTBYT.IZ SZ=15
00540091 PCTL.IZ FM 'ZZ9.99'
00550001 '100'
00550005 TOTBYT.100 SZ=15
00550025 PCTL.100 FM 'ZZ9.99'
00550033 'TOT'
00550038 TOTBYT.101 SZ=15
00550058 PCTL.101 FM 'ZZ9.99'
00580001 PGNBR SZ=8
00580012 BASRELPG SZ=8
00580023 PGAVL SZ=8
00580034 TOTBYT.IX SZ=8
00580045 PCTSZ SZ=3
00580051 IX SZ=3
007 EOF = 700
000 CTR 0
007 C CTR + 1 CTR
007 $F CTR > 20 700
007 IF CTR > 1 100
007 IF PGCNT < 100 009
007 C ROUND (PGCNT + 49) / 100 PCTSZ $ NBR PGS IN 1 % OF AREA
007 IF PCTSZ GE 1 010
007009$
007 M 1 PCTSZ $ ENSURE PCTSZ > 0
007010$
007 C PGSZ * PCTSZ MAXB $ MAX BYTES PER PCT.
007 C PGNBR - 1 BASRELPG $ BASE REL PAGE
000 BASRELPG 0
007100$
007 M CTR IX $ DEFAULT: 1 PAGE PER PCT.
007 IF PCTSZ = 1 101 $ CALC IX ONLY WHEN PCTSZ > 1
007 C ((PGNBR - BASRELPG) + (PCTSZ / 2) ) / PCTSZ IX
007101$
007 C ( PGSZ - PGAVL) + TOTBYT.IX TOTBYT.IX
007 C ( PGSZ - PGAVL) + TOTBYT.101 TOTBYT.101
007 $ELS ( 8 ) $ FOR DEBUGGING, ONLY
007 DROP
007700$
007 IF CTR = 0 STOP
007 M 0 IX
007 C ROUND PGCNT / PCTSZ MAXPCT
007 IF MAXPCT LT 098 701
007 M 100 MAXPCT
007701$
007 C IX + 1 IX
007 IF IX > MAXPCT 800
007 C (TOTBYT.IX * 100)/ MAXB PCTL.IX
007 M '_' PCTD.IX
007 IF PCTL.IX < 2 701
007 M '.' PCTD.IX
007 IF PCTL.IX < 25 701
007 M ':' PCTD.IX
007 IF PCTL.IX < 50 701
007 M '-' PCTD.IX
007 IF PCTL.IX < 70 701
007 M '!' PCTD.IX
007 IF PCTL.IX < 90 701
007 M '*' PCTD.IX
007 B 701
007800$
007 C (TOTBYT.100 * 100) / MAXB PCTL.100
007 C (TOTBYT.101 * 100) / (PGSZ * PGCNT) PCTL.101
007 RELS ( 1 2 3 )
007 M 0 IX
007801$
007 C IX + 1 IX
007 IF IX > 33 900
007 C IX + 33 IY
007 C IY + 33 IZ
007 RELS ( 4 )
007 B 801
007900$
007 RELS ( 5 )
007 STOP

Outcomes