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
 

 

ICETOOl for Common Records?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
naive

New User


Joined: 26 Apr 2005
Posts: 46
Location: LA

PostPosted: Sat Dec 10, 2005 3:37 pm    Post subject: ICETOOl for Common Records?
Reply with quote

I have:
File A: seq, len=10, no of records =100
File B:VB, Max len=900,pos 51-60 same field as pos 1-10 in file A,no of records = 10000

I need :
File C: VB , Max length = 900, (same as File B),no of records= 100 (these records will have the same data in pos 51-60 as the records in File A)

Help Anyone!! I was told that I could do it by doing a SPLICE!
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Mon Dec 12, 2005 9:34 pm    Post subject:
Reply with quote

Here's a DFSORT/ICETOOL job that will do what I think you asked for. I'm assuming that you don't have any duplicates in input file1 and you don't have any duplicates in input file2. I'm also assuming that when you say position 51-60 in the VB file, you're not counting the RDW in positions 1-4 and that the field is really at positions 55-64. If you are counting the RDW, let me know and I'll tell you what to change.

Code:

//S1   EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN1  DD DSN=...  input file1 (FB/10)
//T1   DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//CON DD DSN=*.T1,VOL=REF=*.T1,DISP=(OLD,PASS)
//     DD DSN=...  input file2 (VB/900)
//OUT DD DSN=...   output file (VB/900)
//TOOLIN   DD *
COPY FROM(IN1) USING(CTL1)
SELECT FROM(CON) TO(OUT) ON(55,10,CH) LASTDUP
/*
//CTL1CNTL DD *
  OUTFIL FNAMES=T1,FTOV,OUTREC=(51:1,10)
/*


If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

www.ibm.com/servers/storage/support/software/sort/mvs/srtmpub.html
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Using ICETOOL, how we can seperate th... bshkris SYNCSORT 5 Tue May 09, 2017 8:33 pm
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Group elements using ICETOOL Learncoholic DFSORT/ICETOOL 2 Fri Apr 14, 2017 11:01 am
No new posts Join giving more records than expected Danielle.Filteau SYNCSORT 2 Thu Mar 09, 2017 3:28 am
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am


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