IDMS

  • 1.  BIUA event on May 5 2006 presentations.

    Posted May 19, 2006 06:42 AM
    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
    --------------------------------------



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








    Normal

    Normal
    BIUA event on May 5 2006 presentations.
    "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
    --------------------------------------




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








    Normal

    Normal
    Question about relocatable resources
    "We have the relocatable threshold set at 85% for most of our storage
    pools.
    Our ADSO SYSGEN statements include the following:
    - FAST MODE THRESHOLD IS OFF
    - RESOURCES ARE FIXED

    When a pool exceeds 85% full, will any storage ever be written to
    scratch with this combination? How can I tell if it is?

    Kay Rozeboom
    State of Iowa
    Information Technology Enterprise
    Department of Administrative Services
    Telephone: 515.281.6139 Fax: 515.281.6137
    Email: Kay.Rozeboom@Iowa.Gov

    "
    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.
    "We are running with system snaps on, even in production. So CA will have
    something to work with
    DIS SNAP

    *** DISPLAY SNAP REQUEST ***

    SYSTEM SNAP STATUS IS ON (ENABLED)

    SYSTEM SNAP PHOTO STATUS IS OFF (DISABLED)

    TASK SNAP STATUS IS OFF (DISABLED)

    TASK SNAP PHOTO STATUS IS OFF (DISABLED)

    V16 ENTER NEXT TASK CODE(PRD/IDMSP):


    So in case of system program checks or CV crashes the system generate an
    SVC dump which can be analysed by CA via IPCS

    Jan


  • 2.  Re:BIUA event on May 5 2006 presentations.

    Posted May 19, 2006 06:42 AM
    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


  • 3.  Re:BIUA event on May 5 2006 presentations.

    Posted May 19, 2006 06:42 AM
    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
    --------------------------------------



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








    Normal

    Normal
    Re: Expansion of the CALC Key
    "Never forget than when you increase the size of a record you perhaps need to increase also the page size or the number of pages...

    Another thing : if you have connected records you cannot delete the records to increase and you will have to use the restructure...

    HTH
    Rene.


  • 4.  Re:BIUA event on May 5 2006 presentations.

    Posted May 19, 2006 06:42 AM
    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
    --------------------------------------

    =20

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








    Normal

    Normal
    Re: IDMS vs IMS performance
    "What release will you be using? What's the activity on IMS, I/O's,
    etc...?


  • 5.  Re:BIUA event on May 5 2006 presentations.

    Posted May 19, 2006 06:42 AM
    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
    Re: BIUA event on May 5 2006 presentations.
    "One of the problems with the DC-Log is single threading - so if you're writing out a system snap this can take a while and other tasks can end up waiting. The other problem is just the additional IO. Having said that - this is clearly only a problem while you're actually writing out system and/or task snaps. So if you don't generate many of these it's not much of an issue. We run with snaps OFF - and sometimes this works against us because if we have a problem we would like CA to work on - we don't have much for them to work with - and sometimes it hard to recreate the problem. We are very sensitive to how much we put out to the log and have turned off the ""report printed"", ""user logged on"" and ""user logged"" off messages (changed their routing in IDD) to reduce traffic. Another thing to watch out for is that some people think that they need TASK STATISTICS WRITE to get Perf Mon stats to work - all you need is COLLECT instead of WRITE. With WRITE on you send task stats to the LOG as well as wherever you tell perf mon to send them in the #PMOPT - usually to SMF - so you've got them in both places. If you have WRITE turned on you are killing your system with single threaded IO to the log.
    That's just our position on the log - others might take a different stance.

    HTH - cheers - Gary

    Gary Cherlet
    Justice Technology Services
    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.