Hi, the problem is that I was not trusting the results (there was no match).
Many thx anyway, A.cEcilio. On Wed, May 15, 2013 at 4:24 PM, Sri h Kolusu <[email protected]> wrote: > It is quite easy to get the desired results using Joinkeys. The sample > data you have shown does not have any matching records. It would have > been nice if you showed the required output also > > //STEP0100 EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //INA DD * > ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- > > 1O1578 PAS.CMN.PADCMN02.CMNRPROM.D130423.T0545 23/04/2013 > 1O4901 PAS.CMN.PADCMN02.CMNRPROM.D130424.T0543 24/04/2013 > 1B4778 GET.THIS.DATASET.NAME.ASIT.MATCHED 24/04/2013 > //INB DD * > ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- > 1B2906,DEFERRED,QUEUED,49:18:37,3.90 > 1B4236,DEFERRED,QUEUED,48:54:04,2.63 > 1B4778,DEFERRED,QUEUED,48:49:18,3.90 > 1B4852,DEFERRED,QUEUED,48:46:45,3.90 > //SORTOUT DD SYSOUT=* > //SYSIN DD * > OPTION COPY > JOINKEYS F1=INA,FIELDS=(1,6,A) > JOINKEYS F2=INB,FIELDS=(1,6,A) > REFORMAT FIELDS=(F1:1,52) > //* > > The output from this job is > > 1B4778 GET.THIS.DATASET.NAME.ASIT.MATCHED > > If you just need the dataset name then change the REFORMAT statement to > the following > > REFORMAT FIELDS=(F1:8,44) > > which will produce this output > > GET.THIS.DATASET.NAME.ASIT.MATCHED > > Hope this helps... > > Kolusu > DFSORT Development > IBM Corporation > > IBM Mainframe Discussion List <[email protected]> wrote on > 05/15/2013 04:05:03 AM: > > > From: af dc <[email protected]> > > To: [email protected], > > Date: 05/15/2013 04:06 AM > > Subject: DFSORT/ICETOOL: merge records from 2files > > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > Hello, > > I know this is a newbie question and I got "User Guide for DFSORT PTFs > > UK51706 and UK51707" near me, but I can't get this done: > > > > >>> F1 file: > > EDIT PRS.CTT.FWK310 > > Command ===> > > ****** ***************************** Top of D > > 000001 1B2906,Deferred,Queued,49:18:37,3.90 > > =COLS> ----+----1----+----2----+----3----+--- > > 000002 1B4236,Deferred,Queued,48:54:04,2.63 > > 000003 1B4778,Deferred,Queued,48:49:18,3.90 > > 000004 1B4852,Deferred,Queued,48:46:45,3.90 > > > > >>> F2 file: > > EDIT PRS.CTT.FWK120 Columns 00001 0 > > Command ===> Scroll > ===> > > ****** ***************************** Top of Data > ************************* > > 000001 1O1578 PAS.CMN.PADCMN02.CMNRPROM.D130423.T0545 23/04/2013 > > =COLS> > ----+----1----+----2----+----3----+----4----+----5----+----6----+-- > > 000002 1O4901 PAS.CMN.PADCMN02.CMNRPROM.D130424.T0543 24/04/2013 > > > > Both files are FB/80. I want to get all dsns from F2 file from F1 volser > > list., so key is 1,6 in both files. Any hints are welcome. > > > > Many thx, A.Cecilio > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
