Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

IDMS reports - number of elements per record

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IDMS/ADSO
View previous topic :: :: View next topic  
Author Message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 29

PostPosted: Fri Oct 19, 2007 8:03 pm    Post subject: IDMS reports - number of elements per record
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: 29

PostPosted: Thu Oct 25, 2007 2:15 am    Post subject: IDMS reports - number of elements per record
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    IBMMAINFRAMES.com Support Forums -> IDMS/ADSO All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
No new posts SMTP the current generation number of... Jyothi Kulunde JCL & VSAM 4 Thu May 04, 2017 4:08 pm
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts Group elements using ICETOOL Learncoholic DFSORT/ICETOOL 2 Fri Apr 14, 2017 11:01 am
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us