IBM Mainframe Forum

by **thotlma** » Wed Oct 10, 2018 5:05 pm

HI All

i have requirement like this. i have input file1 in that have many records.
i have other 12 input2 files so i have comparae each record from input1 with input2 12 files if any record match then copy to the out out file
i have written below code but it is copying complete records from input2 to out put
i have comparing 1 to 18 lengh from input1 with input2
could you please help me?

Select all

STEP001   EXEC PGM=SORT                                        
SORTJNF1  DD DSN=XXX.Q.KR0Z2R99.XXXX.ISA.OUP(0),DISP=SHR   
SORTJNF2  DD DSN=xxx.P.K0101N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K3211N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K2912N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K0618N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K3720N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K4731N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K0242N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K4451N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K1256N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K4560N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K1961N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
          DD DSN=xxx.P.K3290N00.xxxx11P1.xxxxXTO(0),DISP=SHR  
SORTOUT   DD DSN=XXX.Q.KR0Z2R99.XXX.MAT.OUP(+1),          
             DISP=(NEW,CATLG,DELETE),                          
             DCB=(LRECL=261,BLKSIZE=0,RECFM=FB),               
             SPACE=(CYL,(20,10),RLSE)                          
SYSPRINT  DD SYSOUT=*                        
SYSOUT    DD SYSOUT=*                        
SYSIN     DD *                               
 JOINKEYS FILE=F1,FIELDS=(1,18,A)            
 JOINKEYS FILE=F2,FIELDS=(1,18,A)            
 JOIN UNPAIRED,F1,F2                         
 REFORMAT FIELDS=(F2:1,258,F2:264,1,F2:334,2)
 SORT FIELDS=COPY

added the code tags

by **enrico-sorichetti** » Wed Oct 10, 2018 5:41 pm

help people who spend their time helping You!
good forum manners suggest the use of the code tags when posting mainframe data
( the code tags force the use of a monospaced/fixed font, making code and data snippets more readable )

edited Your post and done it for You

by **expat** » Wed Oct 10, 2018 5:49 pm

So what have you tried so far and what results have you obtained.
Why do you think that your results are different from expected ?

by **thotlma** » Wed Oct 10, 2018 9:04 pm

the complete data getting from iput2 to out file ..iam not getting matching records
i will tell the example of my requirement

Select all

by **enrico-sorichetti** » Thu Oct 11, 2018 2:02 am

what is that You did not understand when I asked You to use the code tags for code and data snippets ?
coded again :evil:

by **Garry F Carroll** » Thu Oct 11, 2018 8:26 pm

Your REFORMAT statement doesn't have the match-marker so you can select which records you want to output. You then don't have control cards to select the records you want to output based on the match-marker.

Garry.

by **thotlma** » Thu Oct 11, 2018 8:55 pm

Hi Gary
see below modfied code..
still not working..the matching records copy to out file

Select all

 JOINKEYS FILE=F1,FIELDS=(1,06,A)            
 JOINKEYS FILE=F2,FIELDS=(1,06,A)            
 JOIN UNPAIRED,F1,F2                         
 REFORMAT FIELDS=(f2:1,6)
 SORT FIELDS=COPY

EDITED AGAIN TO USE THE CODE TAGS

by **Garry F Carroll** » Thu Oct 11, 2018 9:03 pm

you still don't have the match-marker. ( a ? ) in tbe reformat statement & you then need to select the matched records in an outfil statement.

GaRRY.

by **thotlma** » Thu Oct 11, 2018 9:13 pm

please can you send me the code ?

by **Garry F Carroll** » Fri Oct 12, 2018 1:27 pm

Modify to suit your record length. The '?' is replaced by a '1', '2' or 'B' for file1 only, file2 only or both, respectively in the intermediate record.

Select all

 REFORMAT FIELDS=(F2:1,6,?)
           OUTFIL INCLUDE=(7,1,CH,EQ,C'2'),BUILD=(1,6)

Garry

IBM Mainframe Forum

check each record from input1 to mutliple input2 files

check each record from input1 to mutliple input2 files

Re: check each record from input1 to mutliple input2 files

Re: check each record from input1 to mutliple input2 files

Re: check each record from input1 to mutliple input2 files

Re: check each record from input1 to mutliple input2 files

Re: check each record from input1 to mutliple input2 files

Re: check each record from input1 to mutliple input2 files

Re: check each record from input1 to mutliple input2 files

Re: check each record from input1 to mutliple input2 files

Re: check each record from input1 to mutliple input2 files