CA was so kind to put the presentations of the last Benelux IDMS
usergroup event on the CA Belgium web:
http://www.ca.com/be/english/usergroup/idms.htm
Jan Rabaut
BIUA
--------------------------------------
Dexia Bank disclaimer :
http://www.dexia.be/maildisclaimer.htm
--------------------------------------
--------------------------------------
Dexia Bank disclaimer :
http://www.dexia.be/maildisclaimer.htm
--------------------------------------
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP
Normal
Normal
out of the closet: how to capture CPU effectiveness stats
"1) rhdcucfb:
DCMT DME CSA +518
BYE
2) culprit (reads output from (1)
IN 133 F PS DD=INF
REC I-OFFSET-LIT 017 003
REC I-ADDRESS 022 008
01OUT 80 D PS DD=OFA
01SORT NOSORT
01510001 ' DCMT D TIME'
01520001 ' DCMT DME '
01520011 I-ADDRESS SZ=008
01520019 ' + 000 304'
01530001 ' DCMT DME '
01530011 I-ADDRESS SZ=008
01530019 ' + 2C0 304'
01540001 ' DCMT DME '
01540011 I-ADDRESS SZ=008
01540019 ' + 580 304'
017 IF I-OFFSET-LIT NE '518' DROP
3) rhdcucfb (reads output from (2)
4) culprit (reads output from (3)
IN 133 F PS DD=INF
REC INPUT-RECORD 001 080
REC ENTC-LIT 007 021
REC I-CV-NUMBER 003 002
REC DATETIME-LIT 007 012
REC I-TIME 020 011
REC I-DATE 020 006
REC I-OFFSET-LIT 017 003
REC I-ADDRESS-1 022 008
REC I-ADDRESS-2 031 008
REC I-ADDRESS-3 040 008
REC I-ADDRESS-4 049 008
REC I-SUBTASK-LIT 068 004
IN 8 F PS MB=DUMMY
REC X-ADDRESS 001 008
REC X-B 001 GROUP XB 1.8
REC X-B-BYTE 001 001 ELMNT XB
010 SCASYSTM 0
010 SCAUSRTM 0
010 SCADSPTM 0
010 SCAELAP 0
010 MULTIPLIER 1
010 RESULT 0
010 SUB1 0
010 SUB2 0
010 X-VALUE.16 '0' '1' '2' '3' '4' '5' '6' '7' '8' '9' 'A'
* 'B' 'C' 'D' 'E' 'F'
010 EFFECTIVENESS DP=4 0
010 POSITION-FLAG '01'
010 ENTC-VALUE 'ENTER NEXT TASK CODE:'
010 CV-NUMBER 'XX'
010 CT-VALUE 'CURRENT TIME'
010 CD-VALUE 'CURRENT DATE'
010 CURRENT-TIME 'XXXXXXXXXXX'
010 CURRENT-DATE '******'
010 CV-TCB 0
01OUT 80 D PS DD=OFA
01SORT NOSORT
01510001 CV-NUMBER SZ=002
01510004 CV-TCB FM '9'
01510006 CURRENT-DATE SZ=006
01510013 CURRENT-TIME SZ=008
01510022 EFFECTIVENESS FM '999999'
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017 $$$ $$$
017 $$$ WE NAVIGATE THOUGHT THE REPORT OUTPUT $$$
017 $$$ BY KEEPING TRACK OF WHAT WE HAVE $$$
017 $$$ ALREADY SEEN - POSITION-FLAG $$$
017 $$$ $$$
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017 IF POSITION-FLAG EQ '01' 010
017 IF POSITION-FLAG EQ '02' 020
017 IF POSITION-FLAG EQ '03' 030
017 IF POSITION-FLAG EQ '04' 040
017 IF POSITION-FLAG EQ '05' 050
017 IF POSITION-FLAG EQ '06' 060
017 IF POSITION-FLAG EQ '07' 070
017 DROP
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017 $$$ $$$
017 $$$ SAVE THE CV # $$$
017 $$$ $$$
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017010 IF ENTC-LIT NE ENTC-VALUE DROP
017 MOVE I-CV-NUMBER TO CV-NUMBER
017 MOVE '02' TO POSITION-FLAG
017 DROP
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017 $$$ $$$
017 $$$ SAVE THE TIME $$$
017 $$$ $$$
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017020 IF DATETIME-LIT NE CT-VALUE DROP
017 MOVE I-TIME TO CURRENT-TIME
017 MOVE '03' TO POSITION-FLAG
017 DROP
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017 $$$ $$$
017 $$$ SAVE THE DATE $$$
017 $$$ $$$
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017030 IF DATETIME-LIT NE CD-VALUE DROP
017 MOVE I-DATE TO CURRENT-DATE
017 MOVE '04' TO POSITION-FLAG
017 DROP
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017 $$$ $$$
017 $$$ SAVE SCAELAP $$$
017 $$$ $$$
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017040 IF I-OFFSET-LIT NE ('070' '330' '5F0') DROP
017 CALL US43 (I-ADDRESS-3 X-ADDRESS 8)
017 PERFORM 100
017 MOVE RESULT TO SCAELAP
017 MOVE '05' TO POSITION-FLAG
017 DROP
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017 $$$ $$$
017 $$$ SAVE SCASYSTM $$$
017 $$$ $$$
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017050 IF I-OFFSET-LIT NE ('090' '350' '610') DROP
017 CALL US43 (I-ADDRESS-3 X-ADDRESS 8)
017 PERFORM 100
017 MOVE RESULT TO SCASYSTM
017 MOVE '06' TO POSITION-FLAG
017 DROP
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017 $$$ $$$
017 $$$ SAVE SCAUSRTM & SCADSPTM $$$
017 $$$ $$$
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017060 IF I-OFFSET-LIT NE ('0A0' '360' '620') DROP
017 CALL US43 (I-ADDRESS-1 X-ADDRESS 8)
017 PERFORM 100
017 MOVE RESULT TO SCAUSRTM
017 CALL US43 (I-ADDRESS-3 X-ADDRESS 8)
017 PERFORM 100
017 MOVE RESULT TO SCADSPTM
017 MOVE '07' TO POSITION-FLAG
017 DROP
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017 $$$ $$$
017 $$$ LOOK FOR EYECATCH - IF WE FOUND IT $$$
017 $$$ MAKE THE CALCULATION $$$
017 $$$ $$$
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017070 IF I-SUBTASK-LIT NE ('MAIN' 'SUBT') DROP
017 COMPUTE ((SCASYSTM + SCAUSRTM + SCADSPTM ) / 10000) /
* (SCAELAP * 1.048576) EFFECTIVENESS
017 CV-TCB + 1 CV-TCB
017 MOVE '04' TO POSITION-FLAG
017 TAKE
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017 $$$ $$$
017 $$$ CONVERT HEX TO DECIMAL - IT MAY NOT $$$
017 $$$ BE PRETTY, BUT IT WORKS $$$
017 $$$ $$$
017 $$$ - - - - - - - - - - - - - - - - - - - $$$
017100 MOVE 9 TO SUB1
017 MOVE 0 TO RESULT
017 MOVE 1 TO MULTIPLIER
017101 SUB1 - 1 SUB1
017 IF SUB1 LT 1 199
017 MOVE 0 TO SUB2
017102 SUB2 + 1 SUB2
017 IF SUB2 GT 16 STOP
017 IF X-VALUE.SUB2 NE X-B-BYTE.SUB1 102
017 SUB2 - 1 SUB2
017 COMPUTE RESULT + SUB2 * MULTIPLIER RESULT
017 MULTIPLIER * 16 MULTIPLIER
017 B 101
017199 RETURN
the results can be merged into a history file
this was originally setup to handle multitasking (multiple tcbs/CV) -
since I do not do that anymore, I can not promist that it will work, but I
think it will
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
Re: BIUA event on May 5 2006 presentations.
"Hi Chris,
I have to agree with Gary, our shop runs with snap off, we turn it on if
we need a dump. Also we run with COLLECT only for statistics, really
saves a lot of I/O and anything that does that reduces response time.
Steve Harmeson