MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

RRN of a particular record alone.

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105

PostPosted: Tue Jan 20, 2009 9:59 am    Post subject: RRN of a particular record alone. Reply with quote

Hi,

How to get RRN of a particular record using DISPLAY feature of ICETOOL?

I tried it on a huge file to get RRN of a 10,000th record using COPY with USING but could not succeed. It gave me RRN as 1 after completion of job !

Please suggest.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany

PostPosted: Tue Jan 20, 2009 10:29 am    Post subject: Reply with quote

MF,

If you had only 2 posts, I would look it up in the doco for you and provide a URL.

But, you have 217 posts and still did not bother to provide us with the control cards that you used.

I know that Frank has discussed this in at least two threads (8-10 months ago, last year, year before ? I forget).
_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105

PostPosted: Tue Jan 20, 2009 10:45 am    Post subject: Reply Reply with quote

Dick,

I was trying out this feature of ICETOOL after reading manual. This is the code I tried..

Code:

//TOOLIN   DD *                               
 DISPLAY FROM(IN1) LIST(OUT1)             -   
 TITLE('RRN OF A PARTICULAR REC') PAGE DATE TIME -
 HEADER('RELATIVE RECORD NUMBER') ON(NUM)


Thanks.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose

PostPosted: Tue Jan 20, 2009 11:06 am    Post subject: Reply with quote

You seem to have a habit of telling us cryptically what you want and showing some solution you tried that didn't do what you want, without actually telling us what you want.

From what you've said, I have no idea what you're trying to do. The RRN of a particular record based on what? The 10000th record has an RRN of 10000 so why do you need DISPLAY to figure that out? Your DISPLAY operator seems to have nothing to do with getting an RRN.

Now and in the future, it would get you a solution much faster if you would give an example of your input records (relevant fields only) and what you expect for output, explain exactly what you're trying to do, give the RECFM and LRECL of the input file, and the starting position, length and format of each relevant field.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105

PostPosted: Tue Jan 20, 2009 12:07 pm    Post subject: Reply Reply with quote

Hi, Frank.

Sorry for not putting it correctly.

My input file (LRECL=80 & RECFM=FB) contains records but I need to find out the record number if it has certain value 29th position.

Code:

02096XXXXN8CK10706  9       MRE             90209613 83438344            007 101
02096XXXXN9CK10706  9       MRE             90209613 83438344            007 101
02096XXXXXBCK10706  9       MRE             90209613 83438344            007 101
02096XXXXXCCK10706  9       MRE             90209613 83438344            007 101
02096XXXXXDCK10706  9       MRE             90209613 83438344            007 101
02096XXXXXFCK10706  9       MRE             90209613 83438344            007 101
02096XXXXXGCK10706  9       MRE             90209613 83438344            007 101
03598XXXXXPCT15403  98      CRE             90359813 83318337            007 101
03598XXXXX2CT15403  98      MRE             90359813 83318337            007 101
05172XXXXX4  1WB19  91      MRE             90517213 90129013            007 101
05172XXXXX5  1WB19  91      MRE             90517213 90129013            007 101
05263XXXXXFCK31053  9E      INR             90526313 83669006            007 101
05437XXXXXSCK20953  9       ONR         901291003613 83448351            007 101


So, here I want to find out the record number if 29th position has CRE, INR or ONR.

Output:

Code:

00008 03598XXXXXPCT15403  98      CRE             90359813 83318337            007 101
00012 05263XXXXXFCK31053  9E      INR             90526313 83669006            007 101
00013 05437XXXXXSCK20953  9       ONR         901291003613 83448351            007 101


Thanks.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Tue Jan 20, 2009 12:52 pm    Post subject: Reply with quote

mf_user,

*Sigh* All you need is a simple INCLUDE cond card.

Try this DFSORT Job

Code:

//STEP0100 EXEC PGM=ICEMAN
//SYSOUT   DD SYSOUT=*     
//SORTIN   DD *     
02096XXXXN8CK10706  9       MRE             90209613 83438344            007 101
02096XXXXN9CK10706  9       MRE             90209613 83438344            007 101
02096XXXXXBCK10706  9       MRE             90209613 83438344            007 101
02096XXXXXCCK10706  9       MRE             90209613 83438344            007 101
02096XXXXXDCK10706  9       MRE             90209613 83438344            007 101
02096XXXXXFCK10706  9       MRE             90209613 83438344            007 101
02096XXXXXGCK10706  9       MRE             90209613 83438344            007 101
03598XXXXXPCT15403  98      CRE             90359813 83318337            007 101
03598XXXXX2CT15403  98      MRE             90359813 83318337            007 101
05172XXXXX4  1WB19  91      MRE             90517213 90129013            007 101
05172XXXXX5  1WB19  91      MRE             90517213 90129013            007 101
05263XXXXXFCK31053  9E      INR             90526313 83669006            007 101
05437XXXXXSCK20953  9       ONR         901291003613 83448351            007 101
//SORTOUT  DD SYSOUT=*                     
//SYSIN    DD *                             
  SORT FIELDS=COPY                           
  OUTREC BUILD=(SEQNUM,5,ZD,X,1,80)         
  OUTFIL INCLUDE=(35,3,SS,EQ,C'CRE,INR,ONR')                         
//*


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105

PostPosted: Wed Jan 21, 2009 5:47 am    Post subject: Thanks. Reply with quote

Oh......thanks. I was thinking all impossible ideas before I posed it bonk angry
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group