CA IDMS IUA EIUA

Re:lines of ADS code

  • 1.  Re:lines of ADS code

    Posted 05-31-2007 05:11 AM
    Hi everyone,

    I'm hoping someone has had to do this before. I've been asked to
    produce the number of lines of code of all programs. Easy enough for
    COBOL programs, a bit more work for CA-ADS dialogs. So, I'm hoping
    someone has developped some routine to get the number of lines of code
    for all dialogs or per dialog or some type of combination of that!

    TIA!!

    Laura Rochon
    Ajilon Consulting
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: Flat packing an IDMS database
    "Hello,

    For your protection, the content of this message has been sent securely by Aetna using
    encryption technology. For more information about Aetna's use of encryption please visit
    this website http://www.aetna.com/aboutaetna/safeguard_data.htm.

    Steps to open your secure message:
    1. Please double click on the attachment labeled securedoc.html to begin the process of
    decrypting your message.
    2. When you open the attachment you will see Aetna's secure envelope. This envelope
    contains your encrypted message. There are two ways of opening the envelope.

    Preferred method:

    By clicking the ""open"" button you will be offered the opportunity to download a
    small application (applet) that will enable you to open the message directly on
    your computer (c: drive). By choosing this option and selecting ""always"" any
    future messages that you receive from Aetna will be opened on your computer
    without further installation. This method may take a few extra minutes initially
    (depending on your machine and the speed of your connection to the internet), but
    overall will result in faster / more efficient message retrieval.


    Alternate method:

    If you cannot, or choose not to download the application click on the link
    labeled ""here"". This option will allow you to open the secure email without having to
    download anything to your computer, but may result in slower retrieval of your
    secure message.


    Saving your message:
    The securedoc.html that you clicked to begin the process actually retrieves a key from Aetna
    which is used to open (or decrypt) your message. The key will expire in 90 days. If you would
    like to save your message for later review, you should save a copy of the unencrypted message.
    How you save email will vary depending on your email service. If you are unsure, please use
    the help function of your email service and look for topics like: saving, saving messages, storing
    messages.

    If you experience any problems, please contact 1-800-237-7476, option 4 (Secure Email)
    during normal business hours; 8AM to 6PM E.S.T.




    This e-mail may contain confidential or privileged information. If
    you think you have received this e-mail in error, please advise the
    sender by reply e-mail and then delete this e-mail immediately.
    Thank you. Aetna
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    lines of ADS code
    "Hi everyone,

    I'm hoping someone has had to do this before. I've been asked to
    produce the number of lines of code of all programs. Easy enough for
    COBOL programs, a bit more work for CA-ADS dialogs. So, I'm hoping
    someone has developped some routine to get the number of lines of code
    for all dialogs or per dialog or some type of combination of that!

    TIA!!

    Laura Rochon
    Ajilon Consulting
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: lines of ADS code
    "Laura,

    This is something I did for our Y2K conversions. It simply counts every
    occurrence of the TEXT-088. The second example (simpler) will work if
    all your code is numbered by 100's. Some of ours were sequenced by 10's.
    We were looking at things other than ADS code. Hope this helps.

    IN DB SS=IDMSNWKA
    PATH01 OOAK-012 MODULE-067 TEXT-088
    KEY OOAK-KEY-012 'OOAK'
    SELECT MODULE-067 WHEN MOD-VER-067 EQ 1
    * AND (LANG-067 EQ ('PROCESS' 'FUNCTION' 'CULPRIT'))
    01OUT 132 13200 T NS
    01SORT LANGUAGE 1 MOD-NAME-067 0
    010 COUNT 0 LANGUAGE 'FUNCTION/PROCESS'
    0141 001 'LANGUAGE:'
    0141 011 LANGUAGE
    0142 001 'MODULE NAME'
    0142 045 'LINES OF CODE'
    0151 001 MOD-NAME-067
    0151 000 COUNT
    0161 0010 MOD-NAME-067
    0161 045 COUNT FM 'ZZZ,ZZ9'
    0162 001- 'LANGUAGE TOTAL LINES OF CODE:'
    0162 045 COUNT FM 'ZZZ,ZZ9'
    0163 001- ' TOTAL ALL LINES OF CODE:'
    0163 045 COUNT FM 'ZZZ,ZZ9'
    017 MOVE 'FUNCTION/PROCESS' TO LANGUAGE
    017 IF LANG-067 EQ 'PROCESS' OR
    * LANG-067 EQ 'FUNCTION' 010
    017 MOVE 'CULPRIT' TO LANGUAGE
    017 IF LANG-067 EQ 'CULPRIT' 010
    017 DROP
    017010 MOVE 0 TO COUNT
    017 MOVE 1 TO COUNT
    017 TAKE
    018 IF LEVL EQ 1 100
    018 IF LEVL EQ 2 200
    018 IF LEVL EQ 3 300
    018 DROP
    018100 TAKE 1
    018200 TAKE 2
    018300 TAKE 3




    DATABASE DICTNAME=SYSDIRL
    IN DB SS=IDMSNWKA
    PATH01 OOAK-012 MODULE-067
    PATH-- TEXT-088
    KEY OOAK-KEY-012 'OOAK'
    SELECT MODULE-067 WHEN MOD-VER-067 EQ 1
    * AND (LANG-067 EQ ('PROCESS' 'FUNCTION' 'CULPRIT'))
    01OUT 132 13200 T NS
    01SORT LANGUAGE 1 MOD-NAME-067 0
    010 COUNT 0 LANGUAGE 'FUNCTION/PROCESS'
    0141 001 'LANGUAGE:'
    0141 011 LANGUAGE
    0142 001 'MODULE NAME'
    0142 045 'LINES OF CODE'
    0151 001 MOD-NAME-067
    0151 000 COUNT
    0161 0010 MOD-NAME-067
    0161 045 COUNT FM 'ZZZ,ZZ9'
    0162 001- 'LANGUAGE TOTAL LINES OF CODE:'
    0162 045 COUNT FM 'ZZZ,ZZ9'
    0163 001- ' TOTAL ALL LINES OF CODE:'
    0163 045 COUNT FM 'ZZZ,ZZ9'
    017 MOVE 'FUNCTION/PROCESS' TO LANGUAGE
    017 IF LANG-067 EQ 'PROCESS' OR
    * LANG-067 EQ 'FUNCTION' 010
    017 MOVE 'CULPRIT' TO LANGUAGE
    017 IF LANG-067 EQ 'CULPRIT' 010
    017 DROP
    017010 MOVE 0 TO COUNT
    017 CALL DB-EXIT('LAST','TEXT-088 ','MODULE-TEXT ')
    017 IF IDMS-STATUS EQ '0307' DROP
    017 COMPUTE IDD-SEQ-088 / 100 COUNT
    017 TAKE
    018 IF LEVL EQ 1 100
    018 IF LEVL EQ 2 200
    018 IF LEVL EQ 3 300
    018 DROP
    018100 TAKE 1
    018200 TAKE 2
    018300 TAKE 3


    Joe S Cates, Database Analyst II
    Information and Organizational Systems
    Database Management/Unix Administration
    Montgomery County Public Schools
    Rockville, MD 20850
    301-279-3697
    joe_cates@mcpsmd.org