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

Unmatched records needed


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: Wed Nov 21, 2012 8:19 pm
Reply with quote

Rohit Umarjikar,

Are you using DFSORT or Syncsort? Please post your complete sysout from your sort job which will help determine us the level of DFSORT you have.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


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

PostPosted: Wed Nov 21, 2012 8:32 pm
Reply with quote

Code:
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2                 
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR SORTJNF1 - SEE JNF1JMSG MESSAGES
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR SORTJNF2 - SEE JNF2JMSG MESSAGES
ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=11                                     
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
ICE162I 0 ICEIEXIT CHANGED ONE OR MORE OPTIONS IN EFFECT                       
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE   E5-K76585
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 14:37 ON TUE NO
           JOINKEYS FILE=F1,FIELDS=(1,5,A)                                     
            JOINKEYS FILE=F2,FIELDS=(1,5,A)                                     
            JOIN UNPAIRED,F1,F2,ONLY                                           
            REFORMAT FIELDS=(F1:1,5,F2:1,5,?)                                   
            INREC IFTHEN=(WHEN=(11,1,CH,EQ,C'2',AND,10,1,CH,EQ,C'Y'),           
                  OVERLAY=(10:C'N'))                                           
            SORT FIELDS=COPY                                                   
            OUTREC IFOUTLEN=5,IFTHEN(WHEN=(11,1,CH,EQ,C'2'),OVERLAY=(1:6,5))   
ICE411I 0 THIS IS THE JOINKEYS MAIN TASK FOR JOINING F1 AND F2                 
ICE416I 0 JOINKEYS IS USING THE F1 SUBTASK FOR SORTJNF1 - SEE JNF1JMSG MESSAGES
ICE416I 1 JOINKEYS IS USING THE F2 SUBTASK FOR SORTJNF2 - SEE JNF2JMSG MESSAGES
ICE419I 0 JOINED RECORDS: TYPE=F, LENGTH=11                                     
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1                         
ICE162I 0 ICEIEXIT CHANGED ONE OR MORE OPTIONS IN EFFECT                       
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE   E5-K76585
ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS         
ICE089I 0 RFYYY13A.PS010   .        , INPUT LRECL = 11, TYPE = F               
ICE093I 0 MAIN STORAGE = (MAX,6291456,6262784)                                 
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6201133,6201133)                           
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=N,IEXIT=Y,TEXIT=N,LISTX=N,EFS=NONE    ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=0      ,DSPSIZE=0   ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0                                                 
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y                                         
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTOUT                                   
ICE751I 1 EF-BASE   F0-K66717 E8-K70685                                         
ICE421I 0 JOINED RECORDS: COUNT=4                                               
ICE090I 0 OUTPUT LRECL = 5, BLKSIZE = 5, TYPE = FB                             
ICE055I 0 INSERT 4, DELETE 0                                                   
ICE054I 0 RECORDS - IN: 0, OUT: 4                                               
ICE052I 0 END OF DFSORT                                                         
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Wed Nov 21, 2012 9:15 pm
Reply with quote

use the following DFSORT JCL which will give you the desired results
Code:

//STEP0100 EXEC PGM=SORT                                               
//SYSOUT   DD SYSOUT=*                                                 
//INA      DD *                                                       
1114Y                                                                 
1117Y                                                                 
2346N                                                                 
//INB      DD *                                                       
1114Y                                                                 
1119Y                                                                 
2347Y                                                                 
//SORTOUT  DD SYSOUT=*                                                 
//SYSIN    DD *                                                       
  OPTION COPY                                                         
  JOINKEYS F1=INA,FIELDS=(1,5,A)                                       
  JOINKEYS F2=INB,FIELDS=(1,5,A)                                       
  JOIN UNPAIRED,F1,F2,ONLY                                             
  REFORMAT FIELDS=(F1:1,5,F2:1,5,?)                                   
  INREC IFOUTLEN=5,                                                   
  IFTHEN=(WHEN=(11,1,CH,EQ,C'1',AND,5,1,CH,EQ,C'Y'),OVERLAY=(5:C'N')),
  IFTHEN=(WHEN=(11,1,CH,EQ,C'2'),BUILD=(6,5))                         
//*                                                                   
//JNF1CNTL DD *                                                       
  OMIT COND=(5,1,CH,EQ,C'N')                                           
//*                                                                   
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


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

PostPosted: Wed Nov 21, 2012 9:40 pm
Reply with quote

Thanks a ton, Skolusu and sqlcode1.
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 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 Compare only first records of the fil... SYNCSORT 7
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Join multiple records using splice DFSORT/ICETOOL 5
Search our Forums:

Back to Top