Re:lines of ADS code

[ca.portal.admin]

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
[e-mail]
SMTP
[e-mail]
[e-mail]
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
[e-mail]
SMTP
[e-mail]
[e-mail]
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
[e-mail]
SMTP
[e-mail]
[e-mail]
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
[e-mail]