Page 1 of 1

Copy records for matching key appearing at different places.

PostPosted: Mon Feb 02, 2009 10:57 pm
by ranga_subham
Hi,

I want to compare FILE-1 & FILE-2 and compare matching records from FILE-2 to output file.

FILE-1: RECFM=FB, LRECL=80
TBIG100
TBIG200
TBIG980


FILE-2: RECFM=FB, LRECL=88

XMART_C%F#N_TBIG800_FINTE%AM
PRIN%CE%TON_FINTEAM_BAR%^*&SA_TBIG200
OVERLAY*&_COMPO%$%ITT_TBIG100
XMART_CAPT#*_09900_TBIG910
JUMPR%&_TBIG980_RSECUR@@_FIN


Expected Output:

OVERLAY*&_COMPO%$%ITT_TBIG100
PRIN%CE%TON_FINTEAM_BAR%^*&SA_TBIG200
JUMPR%&_TBIG980_RSECUR@@_FIN


Please let me know how to do it.

Thanks.

Re: Copy records for matching key appearing at different places.

PostPosted: Tue Feb 03, 2009 10:59 pm
by Alissa Margulies
Here is one way of accomplishing this task:
//S1     EXEC PGM=SORT                                           
//SYSOUT   DD SYSOUT=*                                             
//SORTIN   DD *                                                   
XMART_C%F#N_TBIG800_FINTE%AM                                       
PRIN%CE%TON_FINTEAM_BAR%^*&SA_TBIG200                             
OVERLAY*&_COMPO%$%ITT_TBIG100                                     
XMART_CAPT#*_09900_TBIG910                                         
JUMPR%&_TBIG980_RSECUR@@_FIN                                       
//SORTOUT  DD DSN=&TEMP,DISP=(NEW,CATLG),...
//SYSIN    DD *                                                   
   SORT FIELDS=COPY
   OUTREC PARSE=(%1=(ENDBEFR=C'TBIG',FIXLEN=40),                   
         %2=(ENDBEFR=BLANKS,FIXLEN=40)),                           
         BUILD=(1:%1,41:C'TBIG',%2) 
//***********************************************************     
//S2     EXEC PGM=SORT                                             
//SYSOUT   DD SYSOUT=*                                             
//SORTOUT  DD SYSOUT=*                                             
//SORTJNF1 DD DSN=&TEMP,DISP=SHR       
//SORTJNF2 DD *                       
TBIG100                               
TBIG200                               
TBIG980                               
//SYSIN    DD *                       
   JOINKEYS FILE=F1,FIELDS=(41,7,A)   
   JOINKEYS FILE=F2,FIELDS=(1,7,A)     
   REFORMAT FIELDS=(F1:1,80)           
   SORT FIELDS=COPY                   
   OUTREC BUILD=(1,80,SQZ=(SHIFT=LEFT))                               

You may need to modify the field positions to reflect your actual data.

Regards,

Re: Copy records for matching key appearing at different places.

PostPosted: Tue Feb 03, 2009 11:01 pm
by ranga_subham
Hi, Thanks for your immediate help. It would not help me much as our site not going for SYNCSORT upgrade at least until 2010 :(

Thanks.