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

Join keys for VB file


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

New User


Joined: 13 Aug 2009
Posts: 43
Location: chennai

PostPosted: Thu Oct 01, 2015 7:32 pm
Reply with quote

Hi,

I have a input file 1 which is a VB file of length 10500. The field that i want compare is at pos 15 and in BINARY format of length 4 bytes.
Input file 2 which of length 9 bytes and in numeric format.

I am trying to use JOINKEYS to extract data from file 1 using the data from file 2.

I have given the sort card as follows.
Code:

//SYSIN DD *
  SORT FIELDS=COPY
  JOINKEYS FILE=F1,FIELDS=(10505,9,A),TYPE=V
  JOINKEYS FILE=F2,FIELDS=(1,9,A)
  REFORMAT FIELDS=(F1:1,4,5)
//JNF1CNTL DD *
   INREC OVERLAY=(10505:19,4,BI,TO=ZD,LENGTH=9)


but still i not getting the records in my output file.
Can someone tell what is wrong in this ?
Back to top
View user's profile Send private message
sqlcode1

Active Member


Joined: 08 Apr 2010
Posts: 577
Location: USA

PostPosted: Thu Oct 01, 2015 9:04 pm
Reply with quote

Use Join Indicator and write unmatched record to a research file and post your result showing matchind field from both the files along with join indicator value.

Since you are only writting F1 records, JOIN UNPAIRED,F1 is worth considering.

Thanks,
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 2727
Location: NYC,USA

PostPosted: Thu Oct 01, 2015 10:27 pm
Reply with quote

Try converting Numeric to BI and make a match, Something is not good with the offset it seems.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


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

PostPosted: Fri Oct 02, 2015 12:11 am
Reply with quote

It is traditional, when extending a V-type record, to do so at the beginning, rather than making all the records on the file the same size (or using VLTRIM having stripped off the extended data).

In this case I'd go with Rohit. Your F2 data is just the matching number. Make it binary, and don't touch the main record.

If the data (either) is already in key sequence, specify SORTED,NOSEQCK on the JOINKEYS for that file.

Can you paste the output from the step, please?
Back to top
View user's profile Send private message
chockalingam_rsp

New User


Joined: 13 Aug 2009
Posts: 43
Location: chennai

PostPosted: Fri Oct 02, 2015 1:35 am
Reply with quote

Thanks Guys,

I tried what Rohit suggested and it worked perfectly.
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

 


Similar Topics
Topic Forum Replies
No new posts To pull the file with Date and Time u... TSO/ISPF 17
No new posts Is the Output of Sort/Join dependent ... DFSORT/ICETOOL 2
No new posts regarding COBOL WRITE verb (VB File H... COBOL Programming 6
No new posts COBOL Table data to a flat file with ... COBOL Programming 8
No new posts Compare 2 files replace data in 1st f... DFSORT/ICETOOL 4
Search our Forums:

Back to Top