ca.portal.admin

Re:Module length report

Discussion created by ca.portal.admin on Jul 10, 2007
Does anyone have a CULRPIT report that lists dictionary modules (not
load modules) and their lengths?

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: Module length report
"Kay - we have a number of reports along this line - hopefully this one
will help out - note that as written it drops ADS comment lines ( ! In
one of first 5 columns) - HTH - cheers - Gary

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$
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$
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$-------------------------------------------------------------------*



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