|
View previous topic :: View next topic
|
| Author |
Message |
gpowell382
New User
.jpg)
Joined: 25 Aug 2005
Posts: 31
Location: USA
|
|
|
|
| We have 132 records in database and I am looking for a report the tells me the name of the record and the number of elements per record - this is for Function Points |
|
| Back to top |
|
 |
gpowell382
New User
Joined: 25 Aug 2005
Posts: 31
Location: USA
|
|
|
|
FYI - I did find a way to get the data I needed using Culprit, but I want to see one record with a total, but I am getting duplicates - if anyone knows how to elimate the duplicates let me know
Here is the code
REC FILLER-REC(INQ-058) 1 3
REC ELE-EXTR(INQ-058) 1 5
REC BASE-NAME(INQ-058) 1 32
REC ROOT-NAME(INQ-058) 4 28
REC ELEM-VER(INQ-058) 33 2 1
PATHAA OOAK-012 S-010 SS-026 SSR-032 RCDSYN-079 SR-036 SDR-042
INQ-058
SEL SS-026 WHEN SS-NAM-026 EQ '??????' AND
S-NAM-026 EQ '??????'
AND S-SER-026 EQ ??
01SORT SR-NAM-036 1 COUNT1
010MSG-TXT '
010 COUNT1 1
0151*000 COUNT1
01510003 SR-NAM-036 HH 'RECORD NAME'
0152*000 COUNT1
0152*022 INQ-NAM-058
01610001 'TOTAL NUMBER OF ELEMENTS'
01610050 COUNT1
01620001 'GRAND TOTAL'
01620042 ' '
01620050 COUNT1
017101 IF ELE-EXTR EQ 'FIL1' DROP
017102 IF ELE-EXTR EQ ' SET-' DROP
017103 IF FILLER-REC EQ 'FIL' DROP
018110 IF LEVL EQ 1 200
018120 IF LEVL EQ 2 300
018200 TAKE 1
018300 TAKE 2
01OUT 80 PS DD=DBELEREC
KEY OOAK-KEY-012 'OOAK'' |
|
| Back to top |
|
|
|
|
