ca.portal.admin

Re: lines of ADS code

Discussion created by ca.portal.admin on Jun 1, 2007
keep in mind that not all dialog process modules have a language of
""PROCESS"" - depennding on how created (add module vs add process) the
language might be spaces/null/???
This is Chris Hoelscher and I approved this email
"
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
">keep in mind that not all dialog process modules have a language of
""PROCESS"" - depennding on how created (add module vs add process)
the language might be spaces/null/???
This is Chris Hoelscher and I approved this email
"
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 report is a bit longer than some of the examples you've
been given - but it does give a break down by first character of the
process module name (at our shop that's the Agency) and also by 1st 4
characters which is System/Subsystem - fairly easy to change to 2, 3 or
5 character summary. Also included the last page of the report which
shoes summary by subsystem, Agency and Final total for all Agencies.
This also drops comment lines if the '!' is in any of the first 5
positions in the line of code.

HTH- cheers - Gary

PS: if you want I have a version that creates the report as an HTML page
- but I don't know why anybody would want that !?!?

DEFAULT &&1=LIST='NOLIST'
PARAM=&&1 LINES=99999
$
$ Counts ADS process text statements by module and summarise by
$ (4 character) sub-system id!
$
11$
GW0 LINES 0 MODULES 1 FIRST-TIME 'Y'
GW0 CURRENT-MOD '12345678' APPNAME '1234' AGENCY '1'
11$
IN DB SS=IDMSNWKA
PATHAA MODULE-067 TEXT-088
SEL MODULE-067 IN PATH AA WHEN LANG-067 = 'PROCESS'
REC COMMENT1 (TEXT-088) 1 1
REC COMMENT2 (TEXT-088) 2 1
REC COMMENT3 (TEXT-088) 3 1
REC COMMENT4 (TEXT-088) 4 1
REC COMMENT5 (TEXT-088) 5 1
11$
11SORT AGENCY 1 APPNAME - CURRENT-MOD
11OUTPUT 79 T
113Code Count by System - X Comments
11$
11$----> Detail lines
11$
11$
11510000 MODULES
11510010 AGENCY
11510020 APPNAME
11510040 LINES FM 'ZZZ,ZZZ,ZZ9'
11$
11$----> Total lines
11$
11610010 AGENCY HH 'Agency'
11610020 APPNAME HH 'Application'
11610030 MODULES FM 'ZZZ,ZZ9' HH 'Modules'
11610040 LINES FM 'ZZZ,ZZZ,ZZ9' HH 'Lines......'
11$
11$
11620010 AGENCY
11620030 MODULES FM 'ZZZ,ZZ9'
11620040 LINES FM 'ZZZ,ZZZ,ZZ9'
11$
11630010 'Total'
11630030 MODULES FM 'ZZZ,ZZ9'
11630040 LINES FM 'ZZZ,ZZZ,ZZ9'
11$
11$---------------------------------------------------------------
11$--> Input processing
11$
117 IF COMMENT1 EQ '!' DROP
117 IF COMMENT2 EQ '!' DROP
117 IF COMMENT3 EQ '!' DROP
117 IF COMMENT4 EQ '!' DROP
117 IF COMMENT5 EQ '!' DROP
11$
117 IF EOF EQ 100
11$
117 IF FIRST-TIME EQ 'N' 010
117 M 'N' FIRST-TIME
117 M MOD-NAME-067 CURRENT-MOD
117 M MOD-NAME-067 APPNAME
117 M MOD-NAME-067 AGENCY
11$___
11$___ Loop point for SYSTEM table search!
117010 IF MOD-NAME-067 NE CURRENT-MOD 100 $ New Module
11$
117 LINES + 1 LINES
117 DROP
11$___
11$___ Count lines in each system and for all systems !
117100 RELS 1
117 M 0 LINES
117 M MOD-NAME-067 CURRENT-MOD
117 M MOD-NAME-067 APPNAME
117 M MOD-NAME-067 AGENCY
117 DROP
11$
11$
11$-------------------------------------------------------------------*
11$--> Total Line processing
11$
118 IF LEVL EQ 1 001
118 IF LEVL EQ 2 002
118 IF LEVL EQ 3 003
11$
118 DROP
11$
118001 TAKE 1
11$
118002 TAKE 2
11$
118003 TAKE 3
11$
11$-------------------------------------------------------------------*
11$--------------------> end-of-report <----------------------*
11$-------------------------------------------------------------------*


1REPORT NO. 11 Code Count by System - X Comments 06/01/07
PAGE 26
Agency Application Modules Lines......



W WJJU 2 55

0

W WJUJ 8 821

0

W WLDA 203 46,738

0

W WMAN 6 310

0

W WRAP 178 36,461

0

W WRCA 24 1,785

0

W WRCI 24 3,311

0

W WSCP 171 46,042

0

W WSEC 1 49

0

W WSUB 412 98,757

0

W WTCT 1 29

0

W WTXT 5 408

0

W WUTL 18 3,172

0

W WXT0 3 1,665

W 2,760 687,728

Total 11,164 2,806,259

1 C750009 RECORDS WRITTEN FOR REPORT 11 -- 652



Gary Cherlet
Justice Technology Services
Department of Justice, SA Government
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.

Outcomes