IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Join to VB files and update certain adresses of F1 by F2


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Sat Aug 04, 2012 12:02 am
Reply with quote

wabasaja wrote:
Hi Skolusu,

Now I get it!
PS: btw…has the name / word skolusu something to do with…”the schools are..”


Glad you figured it on your own. Sorry to disappoint you but my name has got nothing to do with schools.
Back to top
View user's profile Send private message
wabasaja

New User


Joined: 25 Jul 2012
Posts: 14
Location: germany

PostPosted: Sat Aug 04, 2012 3:17 am
Reply with quote

Hi skolusu, I just asked about the name because I saw that
"Skolu su" in Cze ch means "the schools are".. icon_wink.gif
Thx2u
Back to top
View user's profile Send private message
wabasaja

New User


Joined: 25 Jul 2012
Posts: 14
Location: germany

PostPosted: Mon Oct 29, 2012 10:26 pm
Reply with quote

Hi Skolusu,

First of all…I hope you had a nice summertime and you are doing well!!!

You gave me some month ago your super supportive help related to the below JCL/DFSORT.
Is it possible to get btw..lets say as a byproduct within the same step… “all keys of F2 which are not in F1” if some use
“JOIN UNPAIRED,F1“?

Super Thx for any reply...have a nice day :-)!!!

PS:
Code:


//STEP0100 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//INA      DD DSN=Your Input VB 23000 file,DISP=SHR
//INB      DD DSN=Your Input VB 2800 file,DISP=SHR
//SORTOUT  DD DSN=Your Output file,
//            DISP=(,CATLG,DELETE),
//            SPACE=(CYL,(X,Y),RLSE)
//SYSIN    DD *                                                       
  OPTION COPY                                                         
  JOINKEYS F1=INA,FIELDS=(23,40,A)                                     
  JOINKEYS F2=INB,FIELDS=(23,40,A)                                     
  JOIN UNPAIRED,F1                                                       
  REFORMAT FIELDS=(F1:1,4,?,F2:5,2796,F1:5)                           
                                                                       
  INREC IFTHEN=(WHEN=(5,1,CH,EQ,C'B'),  $ MATCH RECORDS               
  BUILD=(0001,04,                       $ RDW                         
         2802,95,                       $ DATA BEFORE ADDRESS1         
         0201,25,                       $ REPLACED DATA1 FROM FILE2   
         2922,25,                       $ DATA BEFORE ADDRESS2         
         0251,25,                       $ REPLACED DATA2 FROM FILE2   
         2972)),                        $ REST OF THE FILE VB DATA     
  IFTHEN=(WHEN=NONE,                    $ NON-MATCH RECORDS           
  BUILD=(1,4,2802))                     $ BUILD AS-IS                 
//*

Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Mon Oct 29, 2012 11:29 pm
Reply with quote

Yes, the way it is coded you'd need UNPAIRED,F1,F2 and you'd need your code to identify the "on 2 only" (5,1,CH,EQ,C'2') as an IFTHEN=(WHEN= before the IFTHEN=(WHEN=NONE).

You then include, in your BUILD associated with the IFTHEN=(WHEN=, the appropriate fields from the REFORMAT record which have been originally sourced from F2.
Back to top
View user's profile Send private message
wabasaja

New User


Joined: 25 Jul 2012
Posts: 14
Location: germany

PostPosted: Tue Oct 30, 2012 10:53 pm
Reply with quote

Hi Bill...super thx for your message icon_biggrin.gif ...I will see, try and check asap..
today I had no chance..have a nice evening..time!!!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL Goto page Previous  1, 2

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts Compare 2 files(F1 & F2) and writ... JCL & VSAM 8
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Merge two VSAM KSDS files into third ... JCL & VSAM 6
Search our Forums:

Back to Top