Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 31
Location: USA

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: 31
Location: USA

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 Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts Repeat part of record multiple times Learncoholic DFSORT/ICETOOL 4 Tue Aug 29, 2017 11:33 am
No new posts Profile changed to NUMBER ON STD (fro... Martylin TSO/ISPF 1 Thu Aug 03, 2017 9:14 am
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us