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
 

 

Using Splice Condition in icetool

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

New User


Joined: 14 May 2007
Posts: 5
Location: chennai

PostPosted: Mon May 21, 2007 3:32 pm    Post subject: Using Splice Condition in icetool
Reply with quote

For file comparision task i have written this code.
I have acct numbers in the two input files. REC LENGTH =80 and it is a fixed block.

length of the acct no's is 16.

If the account number is present in file1 and file2, write the account# to Outfile1
If the account number is present in file1 and NOT in file2, write the account# to Outfile2
If the account number is present in file2 and NOT in file1, write the account# to Outfile3

but am getting MAXCC=16. i tried lot but couldnt fix it..
can anyone help me plz.

Code:

//STEP010  EXEC PGM=ICETOOL                                       
//TOOLMSG  DD SYSOUT=*                                             
//DFSMSG   DD SYSOUT=*                                             
//IN1      DD DISP=SHR,DSN=DATX00D.ISDXU23.SAMPLE.FILE1           
//IN2      DD DISP=SHR,DSN=DATX00D.ISDXU23.SAMPLE.FILE2           
//T1       DD DSN=DATX00D.T1.TEMP,UNIT=SYSDA,SPACE=(CYL,(5,5)),   
//         DISP=(MOD,KEEP,KEEP)                                   
//OUT12    DD DSN=*****************FILE12.OUT,                     
//         DISP=(,CATLG,DELETE),                               
//         UNIT=DEVDA,SPACE=(CYL,(1,1),RLSE)
//OUT1     DD DSN=****************.FILE1.OUT,                       
//         DISP=(,CATLG,DELETE),                               
//         UNIT=DEVDA,SPACE=(CYL,(1,1),RLSE)
//OUT2     DD DSN=***************.FILE2.OUT,                         
//         DISP=(,CATLG,DELETE),                                   
//         UNIT=DEVDA,SPACE=(CYL,(1,1),RLSE)
//TOOLIN DD *                                                         
  COPY FROM(IN1) TO(T1) USING(CTL1)                                   
  COPY FROM(IN2) TO(T1) USING(CTL2)                                   
  SPLICE FROM(T1) TO(OUT12) ON(1,16,CH) WITH(18,1) USING(CTL3)       
/*                                                                   
//CTL1CNTL DD *                                                       
  INREC OVERLAY=(17:C'11')                                           
/*                                                                   
//CTL2CNTL DD *                                                       
  INREC OVERLAY=(17:C'22')                                           
/*                                                               
//CTL3CNTL DD *                                                 
  OUTFIL FNAMES=OUT12,INCLUDE=(17,2,CH,EQ,C'12'),BUILD=(1,16)   
  OUTFIL FNAMES=OUT1,INCLUDE=(17,2,CH,EQ,C'11'),BUILD=(1,16)     
  OUTFIL FNAMES=OUT2,INCLUDE=(17,2,CH,EQ,C'22'),BUILD=(1,16)     
/*
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: Mon May 28, 2007 12:38 am    Post subject:
Reply with quote

169354,

(I deleted the posts after your first one since they are just going down the wrong road. Stick with the job from your first post.)

Since you didn't show the DFSMSG messages for your job, I can't tell what's wrong with it. I don't see anything obviously wrong.

One possibility is that your site has changed DFSORT's shipped default of SOLRF=YES to SOLRF=NO. If so, then you can change it back to SOLRF=YES by adding this to your job:

Code:

//DFSPARM DD *
   OPTION SOLRF
/*


If that doesn't work, then please post the complete //DFSMSG messages you received so I can figure out what's 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 Joinkeys with condition scdinesh DFSORT/ICETOOL 10 Tue Feb 14, 2017 12:20 am
No new posts Converting decimal to numeric using I... Balaryan DFSORT/ICETOOL 4 Thu Feb 02, 2017 11:27 pm
This topic is locked: you cannot edit posts or make replies. How to pass the previous month date i... Suganya87 DFSORT/ICETOOL 5 Mon Oct 31, 2016 4:13 pm
No new posts How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm
No new posts ICETOOL/SYNCSORT - SYSPRINT output nartcr DFSORT/ICETOOL 17 Wed Oct 05, 2016 10:46 pm


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