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 

problem using 2 input files while verifying records

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


Joined: 23 Mar 2005
Posts: 19
Topics: 6

PostPosted: Wed Aug 31, 2005 9:48 am    Post subject: problem using 2 input files while verifying records Reply with quote

Hi, I'm trying to take two files, one with 33,000 records and one with 17,000 records and verify that all 17,000 records are present in the 33,000. Here's the code I have set up:
Code:
//CFZ2DXAA EXEC PGM=ICETOOL,REGION=2M                                   
//SYSOUT   DD  SYSOUT=*                                                 
//SYPRINT  DD  SYSOUT=*                                                 
//TOOLMSG  DD  SYSOUT=*                                                 
//DFSMSG   DD  SYSOUT=*                                                 
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(20,20))                           
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(20,20))                           
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(20,20))                           
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(20,20))                           
//VINS01   DD  DISP=SHR,DSN=CDSPN.SHR.PLS.CXC014.REJ.MSTR.WK.G0061V00   
//         DD  DISP=SHR,DSN=CDSPN.PLS.CXC001.GOODFILE.G0175V00         
//ALLDUP   DD  DSN=CDSTN.PLS.CXC001.ALLDUPS,                           
//         DISP=(NEW,CATLG,DELETE),                                     
//         UNIT=SYSDA,SPACE=(CYL,(90,60),RLSE),                         
//         DCB=(LRECL=700,RECFM=FB)                                     
//ALLVIN   DD  DSN=CDSTN.PVM.RECORDS.ALLVIN,                           
//         DISP=(NEW,CATLG,DELETE),                                     
//         UNIT=SYSDA,SPACE=(CYL,(90,60),RLSE),                         
//         DCB=(LRECL=700,RECFM=FB)                                     
//SORTED   DD  DSN=CDSTN.PVM.RECORDS.SORTED,                           
//         DISP=(NEW,CATLG,DELETE),                                     
//         UNIT=SYSDA,SPACE=(CYL,(90,60),RLSE),                         
//         DCB=(LRECL=700,RECFM=FB)                                     
//VINS02   DD  DISP=SHR,DSN=CDSPN.PLS.CXC001.GOODFILE.G0175V00         
//TOOLIN   DD *                                                         
  SORT   FROM(VINS01) TO(ALLDUP) USING(ORDR)                           
  SORT   FROM(ALLDUP) TO(SORTED) USING(NONE)                           
  SORT   FROM(VINS02+SORTED) TO(ALLVIN) USING(SORT)                     
//ORDRCNTL DD *                                                         
  SORT FIELDS=(1,17,CH,A) ALLDUPS                                       
//SORTCNTL DD *                                                         
  SORT FIELDS=(1,17,CH,A) NODUPS                                       
//NONECNTL DD *                                                         
  SORT FIELDS=(1,17,CH,A)                                               
  SUM FIELDS=NONE                                                       


The error message that I'm getting is:
Code:
            SORT   FROM(VINS01) TO(ALLDUP) USING(ORDR)                         
ICE606I 0 DFSORT CALL 0001 FOR SORT FROM VINS01   TO ALLDUP   USING ORDRCNTL TER
ICE602I 0 OPERATION RETURN CODE:  16                                           
                                                                               
ICE630I 2 MODE IN EFFECT:  SCAN                                                 
                                                                               
            SORT   FROM(ALLDUP) TO(SORTED) USING(NONE)                         
ICE612I 0 NO ERRORS FOUND IN STATEMENT                                         
                                                                               
            SORT   FROM(VINS02+SORTED) TO(ALLVIN) USING(SORT)                   
                                $                                               
ICE604A 0 ERROR IN KEYWORD, PARAMETER, OR DELIMITER                             
                                                                               
                                                                               
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  16                   
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001                               
ICE200I J IDENTIFIER FROM CALLING PROGRAM IS 0001                               
ICE000I I - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 07:08 ON WED AUG
            SORT FIELDS=(1,17,CH,A) ALLDUPS                                     
ICE146I J END OF STATEMENTS FROM ORDRCNTL - PARAMETER LIST STATEMENTS FOLLOW   
          DEBUG NOABEND,ESTAE                                                   
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=ORDR,SORTIN=VINS0
                         ,SORTOUT=ALLDUP,DYNALLOC                               
ICE063A Q OPEN ERROR VINS01                                                     
ICE043A K INVALID DATA SET ATTRIBUTES SPECIFIED ALLDUP   RECFM                 
ICE052I J END OF DFSORT                                                         


I was wondering if anyone could tell me how to use two seperate files as input in my control card to accomplish my task.

Thanks,
_________________
Robert Tighe
Legacy Systems Analyst
Keane Canada, Inc.
Robert_F_Tighe@keane.com
Back to top
View user's profile Send private message MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose

PostPosted: Wed Aug 31, 2005 9:59 am    Post subject: Reply with quote

Tiggy,

Your JCL has many errors. But I am not sure correcting them would be enough to solve your problem.

Quote:

Hi, I'm trying to take two files, one with 33,000 records and one with 17,000 records and verify that all 17,000 records are present in the 33,000.


Ok lets get some basic info about the files.

1. What is the DCB properties of both the files?

2. Are there any duplicates in any of the files?

3. what do you want in the output ? only matched records from both files? or only records which are present in file1 and not in file2? or only records which are present in file2 and not in file1?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
tiggy
Beginner


Joined: 23 Mar 2005
Posts: 19
Topics: 6

PostPosted: Wed Aug 31, 2005 11:01 am    Post subject: Reply with quote

Hi Kolusu,

The DCB for both files is:
Code:
DCB=(RECFM=FB,LRECL=700)


Neither file has duplicates, however, I expect duplicates on the ALLDUP file. This is why I have the
Code:
SUM FIELDS=NONE


As far as the final output, I would expect the file to contain either, the records from the 17,000 record file which are not currently in the 33,000 record file, or if all records are present the the output file would be empty.

Tanks,
_________________
Robert Tighe
Legacy Systems Analyst
Keane Canada, Inc.
Robert_F_Tighe@keane.com
Back to top
View user's profile Send private message MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose

PostPosted: Wed Aug 31, 2005 11:10 am    Post subject: Reply with quote

Tiggy,

Based on your requirement , I suggest that you go thru this topic which will give you the desired results.

http://www.mvsforums.com/helpboards/viewtopic.php?t=11

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
tiggy
Beginner


Joined: 23 Mar 2005
Posts: 19
Topics: 6

PostPosted: Wed Aug 31, 2005 12:19 pm    Post subject: Reply with quote

That worked well, thanks for the help Kolusu.

Thanks,
_________________
Robert Tighe
Legacy Systems Analyst
Keane Canada, Inc.
Robert_F_Tighe@keane.com
Back to top
View user's profile Send private message MSN Messenger
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