> On Sep 2, 2016, at 10:35 AM, Frank Swarbrick <[email protected]> > wrote: > > 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=* >> —————————SNIP———————————————————————————— I think the Sort teams response answers it. I think Bill Wood’s response was off the mark. E15 allows the exit to read multiple types of DS’s (assuming all things being equal i.e. LRECL for example) . I have never experimetted with SORT reading a VSAM ds so I will pass on commenting. Since sort can do both let the sort do it.
Ed ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
