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
 

 

comparing two files on multiple keys but write multiple recs

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

New User


Joined: 11 Nov 2008
Posts: 27
Location: Canada

PostPosted: Wed Aug 28, 2013 3:06 am    Post subject: comparing two files on multiple keys but write multiple recs
Reply with quote

Need your help to perform below task using DFSORT.
Out system is recently upgraded and should support most of the DFSORT functions.

Input file 1 ( length 900)
1-854 (general data)
855-857 (Key 1)
filler
859-861 (Key 2)
filler
863-865 (Key 3)
--- upto (key 25)

for example below it shows data from position 855-900

Code:
line1(1-854)005 002 001 004 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000  upto 25 values
line2(1-854)005 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000  upto 25 values
line3(1-854)070 002 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000  upto 25 values



Input file 2 (lenght 130)
1-3 (key)
4-5 filler
6-12 (text)
13-130 filler

data :
Code:
001  text001
002  text002
003  text003
004  text004
005  text005
006  text006
007  text007
008  text008
009  text009
010  text010
up to
999  test999


Output file should be

Code:
line1(1-854)text005
line1(1-854)text002
line1(1-854)text001
line1(1-854)text004
line2(1-854)text005
line3(1-854)text070
line3(1-854)text002


This is like, picking up first record from file 1, compare the keys with file 2 and write as many number of records in output file as the matching keys
For expample here, first record has 4 matching keys, so four records with appended text from file 2(6-12)

I hope, I was clear in providing requirements. Thanks for your help
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Wed Aug 28, 2013 1:06 pm    Post subject: Reply to: comparing two files on multiple keys but write mul
Reply with quote

Hi,

this should get you started

Code:
//STEP0100 EXEC PGM=SORT                                             
//SYSOUT   DD SYSOUT=*                                                 
//SORTIN   DD *                                                       
LINE1(1-854)005 002 001 004 000 000 000 000 000 000 000 000 000 000 000
LINE2(1-854)005 000 000 000 000 000 000 000 000 000 000 000 000 000 000
LINE3(1-854)070 002 000 000 000 000 000 000 000 000 000 000 000 000 000
//SORTOUT  DD DSN=&&T1,DISP=(,PASS,DELETE),UNIT=SYSDA,                 
//            SPACE=(TRK,(10,5),RLSE)                                 
//SYSIN    DD *                                                       
  SORT FIELDS=COPY                                                     
  OUTFIL BUILD=(1,15,/,                                               
                1,12,17,3,/,                                           
                1,12,21,3,/,                                           
                1,12,25,3,/,                                           
                1,12,29,3,/,                                           
                1,12,33,3,/,                                           
                1,12,37,3,/,                                           
                1,12,41,3,/,                                           
                1,12,45,3,/,                                           
                1,12,49,3,/,                     
                1,12,53,3,/,                     
                1,12,57,3,/,                     
                1,12,61,3,/,                     
                1,12,65,3,/,                     
                1,12,69,3)                       
/*                                               
//STEP0200 EXEC PGM=SORT                         
//SYSOUT   DD SYSOUT=*                           
//INA      DD DSN=&&T1,DISP=SHR                   
//INB      DD *                                   
001  TEXT001                                     
002  TEXT002                                     
003  TEXT003                                     
004  TEXT004                                     
005  TEXT005                                     
006  TEXT006                                     
007  TEXT007                                     
008  TEXT008                                     
009  TEXT009                                     
010  TEXT010                                     
070  TEXT070                                     
//SORTOUT  DD SYSOUT=*                                     
//SYSIN    DD *                                             
  SORT FIELDS=(16,4,BI,A)                                   
  JOINKEYS F1=INA,FIELDS=(13,3,A)                           
  JOINKEYS F2=INB,FIELDS=(1,3,A)                           
  REFORMAT FIELDS=(F1:1,19,?,F2:1,12)                       
  OUTREC BUILD=(1,12,26,7)                                 
//*                                                         
//JNF1CNTL DD *                                             
  INREC OVERLAY=(16:SEQNUM,4,ZD)                           
//*                                                         



Gerry
Back to top
View user's profile Send private message
skgupta81

New User


Joined: 11 Nov 2008
Posts: 27
Location: Canada

PostPosted: Wed Aug 28, 2013 9:07 pm    Post subject: Reply to: comparing two files on multiple keys but write mul
Reply with quote

Thanks gcicchet.

After doing little modification with field positions, the code worked.

Have a good one.
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 Data replication from multiple Db2 ta... kishpra DB2 1 Mon Mar 27, 2017 9:58 pm
No new posts Unable to catalog a gdg dataset resid... Shovan JCL & VSAM 7 Fri Mar 24, 2017 2:24 pm
No new posts Append data from two files into a sin... Praveen04 DFSORT/ICETOOL 5 Thu Mar 16, 2017 7:29 pm
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Write R1 and R2 to OP1 and R1 to OP2 bhaskar_kanteti DFSORT/ICETOOL 10 Fri Mar 03, 2017 11:18 am


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