JCL:
//S010 EXEC PGM=IKJEFT01
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSEXEC DD DISP=SHR,DSN=&REXXLIB
//SYSTSIN DD DISP=SHR,DSN=&DSNTYPE(&SORTVAL)
//SYSIN1 DD DSN=&DSNTYPE(&SYSIN1),DISP=SHR
//SYSIN2 DD DSN=&DSNTYPE(&SYSIN2),DISP=SHR
//SYSIN3 DD DSN=&DSNTYPE(&SYSIN3),DISP=SHR
//SYSIN4 DD DSN=&DSNTYPE(&SYSIN4),DISP=SHR
//SYSIN5 DD DSN=&DSNTYPE(&SYSIN5),DISP=SHR
//SYSIN6 DD DSN=&DSNTYPE(&SYSIN6),DISP=SHR
//SYSIN7 DD DSN=&DSNTYPE(&SYSIN7),DISP=SHR
//SYSIN8 DD DSN=&DSNTYPE(&SYSIN8),DISP=SHR
//SYSIN9 DD DSN=&DSNTYPE(&SYSIN9),DISP=SHR
//SYSPARM1 DD DSN=&DSNTYPE(&SYSPRM1),DISP=SHR
//SYSPARM2 DD DSN=&DSNTYPE(&SYSPRM2),DISP=SHR
//SYSPARM3 DD DSN=&DSNTYPE(&SYSPRM3),DISP=SHR
//SYSPARM4 DD DSN=&DSNTYPE(&SYSPRM4),DISP=SHR
//SYSPARM5 DD DSN=&DSNTYPE(&SYSPRM5),DISP=SHR
//SYSPARM6 DD DSN=&DSNTYPE(&SYSPRM6),DISP=SHR
//SYSPARM7 DD DSN=&DSNTYPE(&SYSPRM7),DISP=SHR
//SYSPARM8 DD DSN=&DSNTYPE(&SYSPRM8),DISP=SHR
//SYSPARM9 DD DSN=&DSNTYPE(&SYSPRM9),DISP=SHR
//********************************************************************
//******************** END OF PROC SORTMULT ************************
//********************************************************************
// PEND
On Mon, Feb 24, 2014 at 9:26 AM, Wayne Bickerdike <wayn...@gmail.com> wrote:
> I did this in REXX a different way.
>
> In my case, I wanted to produce multiple SORTOUTS but the same could apply
> for multiple input files.
>
> I used a SYSINnn DD statement and a SYSPARMnn DD.
>
> DO I = 1 to files
> CALL SYSIN(I)
> CALL SYSPARMI(I)
> CALL SPOOL(I)
> CALL SYSPOOL(I)
> CALL ALLOCA(I)
> ADDRESS LINKPGM SORT
> END
>
> /*-------------------------------------------------------------------*/
> /* Spool the SYSIN cards from SYSIN1-9 to SYSIN file */
> /*-------------------------------------------------------------------*/
> SPOOL:
> arg s
> /* write out the SORT statements and finish */
> "EXECIO * DISKW SYSIN (STEM s"s". FINIS)"
> RETURN
> SYSPOOL:
> arg s
> /* write out the SYSPARM Statements and close SYSPARM */
> "EXECIO * DISKW SYSPARM (STEM sp"s". FINIS)"
> RETURN
> /*-------------------------------------------------------------------*/
> /* Read the SYSIN1-9 input */
> /*-------------------------------------------------------------------*/
> SYSIN:
> arg s
> sysfile = 'SYSIN's
> EXECIO * DISKR "sysfile"(STEM s"s". FINIS)"
> RETURN
> /*-------------------------------------------------------------------*/
> /* Read the SYSPARM1-9 input */
> /*-------------------------------------------------------------------*/
> SYSPARMI:
> arg s
> sysparm = 'SYSPARM's
> EXECIO * DISKR "sysparm"(STEM sp"s". FINIS)"
> RETURN
> /*-------------------------------------------------------------------*/
> /* Allocate each SORTOUT file from 1 up to 9 */
> /*-------------------------------------------------------------------*/
>
> ALLOCA:
> arg s
> sortnew = 'SORTOUT's
> x = 'ddinfo = LISTDSI('sortnew' "FILE")'
> INTERPRET x
> SAY ''
> SAY 'Starting sort of file ' s
> SAY ''
> SAY 'The data set name is: ' sysdsname
> SAY 'The device unit on which the volume resides is:' sysunit
> /* SAY 'The record format is: ' sysrecfm
> SAY 'The logical record length is: ' syslrecl
> SAY 'The block size is: ' sysblksize */
> SAY 'The allocation in space units is: ' sysalloc
> SAY 'Type of security protection is: ' sysracfa
>
> "FREE F(SORTOUT) "
> "ALLOC F(SORTOUT) DA("sysdsname") OLD"
>
> RETURN
>
>
> On Sun, Feb 23, 2014 at 8:19 PM, Binyamin Dissen <
> bdis...@dissensoftware.com> wrote:
>
>> I want to run a sort for a series of files that fit a dsname pattern.
>>
>> The simple approach would be an E15 which runs thru the list of files, and
>> rexx is simpler than assembler.
>>
>> Seems like SYNCSORT has had that option for a while.
>>
>> --
>> Binyamin Dissen <bdis...@dissensoftware.com>
>> http://www.dissensoftware.com
>>
>> Director, Dissen Software, Bar & Grill - Israel
>>
>>
>> Should you use the mailblocks package and expect a response from me,
>> you should preauthorize the dissensoftware.com domain.
>>
>> I very rarely bother responding to challenge/response systems,
>> especially those from irresponsible companies.
>>
>> ----------------------------------------------------------------------
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>
>
> --
> Wayne V. Bickerdike
>
>
--
Wayne V. Bickerdike
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
