>>Unless I misunderstand there's a slight error in Sri Hari's sample: The
IFTHEN should have C'B' rather than C'2'.
Martin,
Not really. I am using the JOIN Indicator value from the ? on the REFORMAT
fields statement to write out the record. I think you are confused about
the temp indicator I added at the end. Since OP wanted the records to be
SORTED and NOT matched, I added the temp indicator at the end of the sort
key, so that the final output will have VSAM SORT key first followed by
SEQuential FILE key ( OP has concatenated the VSAM COPY file first before
the sequential files and is using EQUALS)
?
indicates a 1-byte indicator is to be included in each joined record. The
indicator will be set to one of the following values in each paired or
unpaired joined record, as appropriate:
'B' - the key was found in F1 and F2.
'1' - the key was found in F1, but not in F2.
'2' - the key was found in F2, but not in F1.
Here is the link that explains about the Join indicator
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ice1ca60/3.15
If you used 'B" for the IFTHEN statement your output would be empty as
there are no records that matched. :)
Thanks,
Kolusu
DFSORT Development
IBM Corporation
From: Martin Packer <[email protected]>
To: [email protected]
Date: 09/02/2016 01:45 PM
Subject: Re: DFSORT mixed VSAM & sequential.
Sent by: IBM Mainframe Discussion List <[email protected]>
Unless I misunderstand there's a slight error in Sri Hari's sample: The
IFTHEN should have C'B' rather than C'2'.
SORTINxx is what DFSORT MERGE uses. That syntax might be confusing. But
then again maybe MERGE will work for you. (I doubt it.)
Cheers, Martin
Martin Packer,
zChampion, Principal Systems Investigator,
Worldwide Cloud & Systems Performance, IBM
+44-7802-245-584
email: [email protected]
Twitter / Facebook IDs: MartinPacker
Blog:
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker
Podcast Series (With Marna Walle): https://developer.ibm.com/tv/mpt/ or
https://itunes.apple.com/gb/podcast/mainframe-performance-topics/id1127943573?mt=2
From: Sri h Kolusu <[email protected]>
To: [email protected]
Date: 02/09/2016 20:30
Subject: Re: DFSORT mixed VSAM & sequential.
Sent by: IBM Mainframe Discussion List <[email protected]>
Frank,
Thanks for sending the DCB properties of the files involved offline. Based
on the DCB properties here is a DFSORT JOB that will give you the desired
results without having you copy the VSAM cluster to a sequential file.
We will be using the trick of JOINKEYS where you can have two subtasks
with different files. All we need is an additional indicator at the end.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INVSAM DD DISP=SHR,DSN=Your Input VSAM Cluster
//*
//INSEQF DD DISP=SHR,DSN=Your Sequential file 1
// DD DISP=SHR,DSN=Your Sequential file 2
...
// DD DISP=SHR,DSN=Your Sequential file n
//*
//SORTOUT DD DSN=Your final output file,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(X,Y),RLSE)
//*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INVSAM,FIELDS=(1,10,A,13,4,A,17,4,A,11,2,A,501,1,A)
JOINKEYS F2=INSEQF,FIELDS=(1,10,A,13,4,A,17,4,A,11,2,A,501,1,A)
JOIN UNPAIRED
REFORMAT FIELDS=(F1:1,500,?,F2:1,500)
INREC IFOUTLEN=500,
IFTHEN=(WHEN=(501,1,CH,EQ,C'2'),BUILD=(502,500))
//*
//JNF1CNTL DD *
RECORD TYPE=F
INREC OVERLAY=(501:C'A')
//JNF2CNTL DD *
INREC OVERLAY=(501:C'B')
//*
Further if you have any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
IBM Mainframe Discussion List <[email protected]> wrote on
09/02/2016 08:35:18 AM:
> From: Frank Swarbrick <[email protected]>
> To: [email protected]
> Date: 09/02/2016 08:35 AM
> Subject: Re: DFSORT mixed VSAM & sequential.
> Sent by: IBM Mainframe Discussion List <[email protected]>
>
> Ed, there was no response from you in your response below. :-)
>
> ________________________________
> From: IBM Mainframe Discussion List <[email protected]> on
> behalf of Edward Gould <[email protected]>
> Sent: Thursday, September 1, 2016 9:51 PM
> To: [email protected]
> Subject: Re: DFSORT mixed VSAM & sequential.
>
> > On Aug 31, 2016, at 3:55 PM, Frank Swarbrick
> <[email protected]> wrote:
> >
> > FWIW, here his my example:
> >
> > //STEP00 EXEC PGM=IDCAMS
> > //FILEIN DD DSN=&DSNENV..DEMAND.DMDMTC.CICS,
> > // DISP=SHR
> > //FILEOUT DD DSN=&DSNENV..DEMAND.DMDMTC,
> > // DISP=SHR
> > //SYSIN DD *
> > REPRO INFILE (FILEIN)-
> > OUTFILE (FILEOUT) REUSE
> > //SYSPRINT DD SYSOUT=*
> > //STEP01 EXEC PGM=SORT,COND=(4,LT)
> > //SORTIN DD DSN=&DSNENV..DEMAND.DMDMTC,
> > // DISP=SHR
> > // DD DSN=&DSNENV..DEMAND.DDGENMT,
> > // DISP=SHR
> > // DD DSN=&DSNENV..DEMAND.DRTNMTC,
> > // DISP=SHR
> > // DD DSN=&DSNENV..DEMAND.DDMNTXX,
> > // DISP=SHR
> > // DD DSN=&DSNENV..DEMAND.DBKPGMT,
> > // DISP=SHR
> > // DD DSN=&DSNENV..DEMAND.DDMTCE,
> > // DISP=SHR
> > // DD DSN=&DSNENV..DEMAND.DDGMTC,
> > // DISP=SHR
> > // DD DSN=&DSNENV..DEMAND.MTCE.SAVE04,
> > // DISP=SHR
> > //SORTOUT DD DSN=&DSNENV..DEMAND.DDAMTC,
> > // DISP=SHR
> > //DFSPARM DD *
> > SORT FIELDS=(1,10,PD,A,13,4,PD,A,17,4,PD,A,11,2,PD,A),EQUALS
> > //SYSOUT DD SYSOUT=*
> >
> >
> > ________________________________
> > From: IBM Mainframe Discussion List <[email protected]> on
> behalf of Sri h Kolusu <[email protected]>
> > Sent: Wednesday, August 31, 2016 12:20 PM
> > To: [email protected]
> > Subject: Re: DFSORT mixed VSAM & sequential.
> >
> > John,
> >
> > As Bill mentioned it is the access methods that is preventing the
> > concatenation of the VSAM files.
> >
> > If you can send your existing job and control cards may be I can
suggest
> > an alternative to copying VSAM to sequential file
> >
> > Thanks,
> > Kolusu
> > DFSORT Development
> > IBM Corporation
> >
> >
> >
> > From: John McKown <[email protected]>
> > To: [email protected]
> > Date: 08/31/2016 08:11 AM
> > Subject: DFSORT mixed VSAM & sequential.
> > Sent by: IBM Mainframe Discussion List
<[email protected]>
> >
> >
> >
> > I can't find a way to do the following. Basically a programmer want to
> > create an output data set which is the sorted input from a sequential
data
> > set and a VSAM file. I don't see any way to do this easily. We plan to
> > unload the VSAM to sequential, then sort it with the other sequential
data
> > set. But that is just more work. I wonder why DFSORT doesn't have a
way to
> > handle this.
> >
> > --
> > Unix: Some say the learning curve is steep, but you only have to climb
it
> > once. -- Karl Lehenbauer
> > Unicode: http://xkcd.com/1726/
> >
> > Maranatha! <><
> > John McKown
>
>
> ----------------------------------------------------------------------
> 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
Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number
741598.
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU
----------------------------------------------------------------------
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
