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
 

 

Match using SORT - joinkeys

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

Active User


Joined: 31 Mar 2005
Posts: 436
Location: chennai, India

PostPosted: Fri Oct 22, 2010 12:06 pm    Post subject: Match using SORT - joinkeys
Reply with quote

F1=IN01
Code:
----+----1----+----2----
85A02001     é%U2008
85A12001     Í U2008
85A22001     Î*U2007
85A12101     Í U2006
85A22201     Î*U2008

F2=IN02
Code:
----+----1----+----2----
85A02001     é%U2008
85A13001     Í U2008
85A24001     Î*U2007
85A12101     Í U2006
85A22201     Î*U2008

Both files have same layout. recl = 104. Matching criteria = 10,6 comp-3. Search F2 in F1 and write F1 if match exists.
Code:
 JOINKEYS F1=IN01,FIELDS=(10,6,A),SORTED
            JOINKEYS F2=IN02,FIELDS=(10,6,A),SORTED
            JOIN UNPAIRED
            REFORMAT FIELDS=(F1:1,104,F2:1,104)
            SORT FIELDS=COPY
            OUTFIL FNAMES=SORT01,BUILD(1,104)

It gave me following error. Please correct me where am wrong
Code:

 ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED
 ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
 ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 02:30 ON FRI O
            JOINKEYS F1=IN01,FIELDS=(10,6,A),SORTED
            JOINKEYS F2=IN02,FIELDS=(10,6,A),SORTED
            JOIN UNPAIRED
            REFORMAT FIELDS=(F1:1,104,F2:1,104)
            SORT FIELDS=COPY
            OUTFIL FNAMES=SORT01,BUILD(1,104)
 ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2
 ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR IN01     - SEE JNF1JMSG MESSAGES
 ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR IN02     - SEE JNF2JMSG MESSAGES
 ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=208
 ICE201I G RECORD TYPE IS F - DATA STARTS IN POSITION 1
 ICE751I 0 C5-K51707 C6-K51707 C7-K54603 C8-K51707 E9-K51707 C9-BASE   E5-K51707
 ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
 ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
 ICE089I 0 WERTCAL.STEP10R .        , INPUT LRECL = 208, TYPE = F
 ICE093I 0 MAIN STORAGE = (MAX,4194304,4194304)
 ICE156I 0 MAIN STORAGE ABOVE 16MB = (4097264,4097264)
   -DSLIST  *OSDABRO
 ICE156I 0 MAIN STORAGE ABOVE 16MB = (4097264,4097264)
 ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y
 ICE128I 0 OPTIONS: SIZE=4194304,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
 ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT
 ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=N,OUTREL=Y,CKPT
 ICE131I 0 OPTIONS: TMAXLIM=4194304,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=N,CFW
 ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=Y,TEXIT=N,LISTX=N,EFS=NONE    ,EXIT
 ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=0   ,ODMAXBF=2097152,SOLRF=N,VLLONG=
 ICE235I 0 OPTIONS: NULLOUT=RC0
 ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2125824
 ICE210I 0 SORT01   : EXCP USED, LRECL = 104, BLKSIZE = 27976, TYPE = FB
 ICE751I 1 EF-K49535 CB-K90014 F0-K49038 E8-K51707
 ICE418A 3 JOINKEYS F1 SUBTASK FOR IN01     TERMINATED - SEE JNF1JMSG MESSAGES
 ICE052I 0 END OF DFSORT
Back to top
View user's profile Send private message

radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 436
Location: chennai, India

PostPosted: Fri Oct 22, 2010 12:11 pm    Post subject:
Reply with quote

I did it on ICETOOL by giving
Code:
SELECT FROM(IN01)(merged files) TO(01) ON(10,6,PD) FIRSTDUP
Back to top
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 436
Location: chennai, India

PostPosted: Fri Oct 22, 2010 1:05 pm    Post subject:
Reply with quote

Was it a space issue? I am trying to correct it. If anyone find it, pls update me. thanks.
Back to top
View user's profile Send private message
nelson.pandian

Active User


Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ

PostPosted: Fri Oct 22, 2010 1:08 pm    Post subject:
Reply with quote

Hi Radhakrishnan,

Try the below control card for JOINKEYS in DFSORT.

Code:
 JOINKEYS F1=IN01,FIELDS=(10,6,A),SORTED
 JOINKEYS F2=IN02,FIELDS=(10,6,A),SORTED
 JOIN UNPAIRED
 REFORMAT FIELDS=(F1:1,104,?,F2:1,104)
 SORT FIELDS=COPY
 OUTFIL FNAMES=SORT01,INCLUDE=(105,1,CH,EQ,C'B'),BUILD(1,104)

Hope this helps you.
Back to top
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 436
Location: chennai, India

PostPosted: Fri Oct 22, 2010 2:04 pm    Post subject:
Reply with quote

Thanks, Nelson. The sort card works fine. But with region 0M.
Actually, it needed region parameter as 0M. Else it fails repeatedly whatever sort script we write. But I would like to understand the condition INCLUDE=(105,1,CH,EQ,C'B') since following code also gives the same match with region=0M.

Code:
000036  JOINKEYS F1=IN01,FIELDS=(10,6,A),SORTED
000037  JOINKEYS F2=IN02,FIELDS=(10,6,A),SORTED
000038  REFORMAT FIELDS=(F1:1,104)
000039  OPTION COPY  -- if SORTOUT is provided


will there be any performance difference.
one last question. how much efficient I can do this JOIN SORT if I have LRECL=104 and Total record count will reach from 1 to 8 million.
what will be the sort exceeded limit here in my case.
Back to top
View user's profile Send private message
nelson.pandian

Active User


Joined: 09 Apr 2008
Posts: 133
Location: Phoenix, AZ

PostPosted: Fri Oct 22, 2010 2:17 pm    Post subject:
Reply with quote

At Position 105 i have given a Join indicator. This indicator is used to get the Matched and Unmatched records.

Code:
INCLUDE=(105,1,CH,EQ,C'1') --> Unmatched records from File 1
INCLUDE=(105,1,CH,EQ,C'2') --> Unmatched records from File 2
INCLUDE=(105,1,CH,EQ,C'B') --> Matched records.


Quote:
one last question. how much efficient I can do this JOIN SORT if I have LRECL=104 and Total record count will reach from 1 to 8 million.

I have seen DFSORT/ICETOOL jobs preform more than 10 million records in my previous shop. So there wont be any issue
Back to top
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 436
Location: chennai, India

PostPosted: Fri Oct 22, 2010 2:54 pm    Post subject:
Reply with quote

Thanks for your help.
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: Fri Oct 22, 2010 10:40 pm    Post subject:
Reply with quote

radhakrishnan v,

I'm not sure what you're trying to accomplish, or what questions you actually want answered, but going back to your first post, this DFSORT message:

Code:

ICE418A 3 JOINKEYS F1 SUBTASK FOR IN01     TERMINATED - SEE JNF1JMSG MESSAGES


tells you that the cause of the error is listed in JNF1JMSG. So you need to look at the messages in JNF1JMSG to determine the error. Since you didn't post those messages, I can't tell you what you did wrong.
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 SORT to unpack a feild shr_amar DFSORT/ICETOOL 7 Fri Jul 07, 2017 4:32 am
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts Optimize sort inrec parse vishwakotin DFSORT/ICETOOL 6 Mon Jun 26, 2017 11:15 pm
No new posts Reduce CPU Times for Join Sort santoshn SYNCSORT 12 Sat Jun 10, 2017 1:40 pm
No new posts getting three output files out of JOI... migusd SYNCSORT 7 Mon Jun 05, 2017 11:30 pm


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