MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Compare variable length PS files based on multiple fields

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
SMS
Beginner


Joined: 16 Oct 2005
Posts: 53
Topics: 24
PostPosted: Fri Feb 03, 2006 4:23 am    Post subject: Compare variable length PS files based on multiple fields Reply with quote
Hi,


Sorry my previous request was posted completely.

My requirement is to compare two variable length files
based on the following 3 fields and write the matched and unmatched records
on separate files.

First field position 9,4 - s9(7)(comp-3)
Second field position 13,3 - s9(5)(comp-3)
Thrid fields position 19,4 - X(4)

I tried to customise the below JCL (Found in the forum)
to my requirement, but getting error posted below the JCL.

Code:

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//IN1      DD DSN=TMS250.CHMLGD00.CH470070.G1250,DISP=SHR
//IN2      DD DSN=TMS165.CH470070.INETUAT1.D02DEC05.TST,DISP=SHR
//T1       DD DSN=&T1,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//T2       DD DSN=&T2,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//CON      DD DSN=&T1,DISP=OLD,VOL=REF=*.T1
//         DD DSN=&T2,DISP=OLD,VOL=REF=*.T2
//MATCH    DD SYSOUT=*
//UNMATCH  DD SYSOUT=*
//TOOLIN   DD *
  COPY FROM(IN1) USING(CTL1)
   COPY FROM(IN2) USING(CTL2)
    SORT FROM(CON) USING(CTL3)
//CTL1CNTL DD *
    OUTFIL FNAMES=T1,OUTREC=(9,4,13,3,19,4,30Z)
//CTL2CNTL DD *
    OUTFIL FNAMES=T2,OUTREC=(9,4,2Z,13,3,19,4)
//CTL3CNTL DD *
    OPTION EQUALS
    SORT FIELDS=(9,4,PD,A,13,3,PD,A,19,4,CH,A)
    SUM FIELDS=(24,7,BI)
    OUTFIL FNAMES=UNMATCH,
    INCLUDE=(24,7,BI,EQ,X'00',OR,14,2,BI,EQ,X'00'),
    OUTREC=(9,4,13,3,19,4)
    OUTFIL FNAMES=MATCH,SAVE
/*

ERROR :



ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED
ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLE
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS:  TOOLIN
ICE630I 0 MODE IN EFFECT:  STOP
            COPY FROM(IN1) USING(CTL1)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM IN1      TO OUTFIL   USING CTL1CNTL  TERMINATED
ICE602I 0 OPERATION RETURN CODE:  16

ICE630I 2 MODE IN EFFECT:  SCAN


Anyone please help me to do this.

Regards,
SMS
_________________
Regards,
SMS
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12369
Topics: 75
Location: San Jose
PostPosted: Fri Feb 03, 2006 6:47 am    Post subject: Reply with quote
SMS,

STOP posting the same question in multiple forums. You posted the same question in 2 forums 3 times.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Fri Feb 03, 2006 11:34 am    Post subject: Reply with quote
Quote:
but getting error posted below the JCL.


The important error message here is in the DFSMSG messages which you haven't shown, and which probably points to your incorrect OUTREC= operand.

But you should be using the SPLICE operator of ICETOOL for this kind of thing.

If you show me an example of the records in each input file (with the relevent fields) and what you expect for output, I can show you how to do what you want to do. If either input file can have duplicates within it, show that in your example.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group