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

Reply via email to