IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

IDMS reports - number of elements per record


IBM Mainframe Forums -> IDMS/ADSO
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 31
Location: USA

PostPosted: Fri Oct 19, 2007 8:03 pm
Reply with quote

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
View user's profile Send private message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 31
Location: USA

PostPosted: Thu Oct 25, 2007 2:15 am
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IDMS/ADSO

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Substring number between 2 characters... DFSORT/ICETOOL 2
Search our Forums:

Back to Top