I managed to join the records with joinfields. Thanks for the help. Now I need to merge two files like that..:
FILE1:
00000004 STANISLAV 04 862341224
00000005 RONALDAS 04 862641332
00000006 TOMAS 04 862241348
00000013 ANIRUDDHA 04 862335344
00000014 RONY 04 862314344
00000019 VENKAT 04 861341334
00000024 RUTA 04 862845322
00000025 VYTAUTAS 04 862361028
00000026 GIEDRE 04 862330944
00000033 GABIJA 04 862343884
00000034 SAULIUS 04 862341364
FILE2:
00000001 $100.000 RIMI REJECTED 01
00000003 $300.000 RIMI REJECTED 03
00000007 $150.000 MAXIMA REJECTED 02
00000008 $160.000 MAXIMA REJECTED 02
00000010 $700.000 MAXIMA REJECTED 01
00000011 $600.000 MAXIMA REJECTED 02
00000013 $400.000 RIMI REJECTED 04
00000014 $300.000 RIMI REJECTED 04
00000020 $060.000 RIMI REJECTED 03
00000021 $050.000 MAXIMA REJECTED 01
00000025 $140.000 RIMI REJECTED 04
00000025 $001.000 MAXIMA REJECTED 04
00000025 $020.000 RIMI REJECTED 04
00000026 $150.000 RIMI REJECTED 04
00000030 $070.000 MAXIMA REJECTED 01
00000032 $100.300 MAXIMA REJECTED 03
00000033 $100.400 MAXIMA REJECTED 04
00000035 $206.000 MAXIMA REJECTED 02
00000036 $120.000 RIMI REJECTED 02
00000037 $200.000 RIMI REJECTED 03
00000040 $100.000 MAXIMA REJECTED 03
OUTFILE:
00000013,ANIRUDDHA,04,862335344
$400.000,RIMI,REJECTED
00000014,RONY,04,862314344
$300.000,RIMI,REJECTED
00000025,VYTAUTAS,04,862361028
$140.000,RIMI,REJECTED
$001.000,MAXIMA,REJECTED
$020.000,RIMI,REJECTED
00000026,GIEDRE,04,862330944
$150.000,RIMI,REJECTED
00000033,GABIJA,04,862343884
$100.400,MAXIMA,REJECTED
I managed to get the following output file:
00000013,ANIRUDDHA,04,862335344,$400.000,RIMI,REJECTED
00000014,RONY,04,862314344,$300.000,RIMI,REJECTED
00000025,VYTAUTAS,04,862361028,$140.000,RIMI,REJECTED
00000025,VYTAUTAS,04,862361028,$001.000,MAXIMA,REJECTED
00000025,VYTAUTAS,04,862361028,$020.000,RIMI,REJECTED
00000026,GIEDRE,04,862330944,$150.000,RIMI,REJECTED
00000033,GABIJA,04,862343884,$100.400,MAXIMA,REJECTED
USING THIS:
//xxxxxx JOB (KOM,RA40),'MERGE',MSGCLASS=X,CLASS=X,
// NOTIFY=&SYSUID
//STEP02 EXEC PGM=SORT
//SORTIN DD DSN=xxxx.VSAM4,DISP=SHR
//SORTIN1 DD DSN=xxxx.REJECT,DISP=SHR
//SORTOUT DD DSN=xxxx.MERGED4,DISP=(NEW,CATLG,DELETE),
// LRECL=80,RECFM=FB,SPACE=(TRK,(1,1))
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS F1=SORTIN,FIELDS=(1,8,A)
JOINKEYS F2=SORTIN1,FIELDS=(1,8,A)
REFORMAT FIELDS=(F1:1,33,F2:11,30)
SORT FIELDS=COPY
INREC PARSE=(%00=(ENDBEFR=C'#',FIXLEN=61),
%01=(ENDBEFR=C'#',FIXLEN=61),
%02=(ENDBEFR=C'#',FIXLEN=61),
%03=(ENDBEFR=C'#',FIXLEN=61),
%04=(ENDBEFR=C'#',FIXLEN=61),
%05=(ENDBEFR=C'#',FIXLEN=61),
%06=(ENDBEFR=C'#',FIXLEN=61)),
BUILD=(%00,%01,%02,%03,%04,%05,C'''',%06,C'''')
OUTREC IFTHEN=(WHEN=INIT,
BUILD=(1,140,SQZ=(SHIFT=LEFT,PAIR=APOST,MID=C','))),
IFTHEN=(WHEN=INIT,FINDREP=(IN=C'''',OUT=C''))
/*
Basicly, what I want to do is merge these two files, leaving only one line of information about a person(00000013,ANIRUDDHA,04,862335344) and in the other following lines I want to list all the actions done by this particular person($400.000,RIMI,REJECTED), like in the output file. I'm afraid that I will not be able to do this using sort. Am I supposed to use ICETOOL for this to be done? Hope you guys have any ideas, thanks.
Code'd