>> Can you please supply an example, or, point me to a website that has one?
David,
Here is a sample that builds 10 members at a time with each member having 900
lines of data. You can expand that to 1000 members and then have 10 jobs
running at the same time to write out 10,000 members to the PDSE
//***************************************************************
//* Delete the output PDSE if it exist *
//***************************************************************
//DELFILES EXEC PGM=IEFBR14
//FILE01 DD DSN=&SYSUID..MYPDSE,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,(1,0),RLSE)
/*
//***************************************************************
//* Allocate the PDSE *
//***************************************************************
//DELFILES EXEC PGM=IEFBR14
//FILE01 DD DSN=&SYSUID..MYPDSE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(75,75,1),RLSE),
// DCB=(LRECL=159,RECFM=FB),
// DSNTYPE=LIBRARY
/*
//***************************************************************
//* create the pdse members *
//***************************************************************
//CREMEM EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABC
//F0000 DD DISP=SHR,DSN=&SYSUID..MYPDSE(M0000)
//F0001 DD DISP=SHR,DSN=&SYSUID..MYPDSE(M0001)
//F0002 DD DISP=SHR,DSN=&SYSUID..MYPDSE(M0002)
//F0003 DD DISP=SHR,DSN=&SYSUID..MYPDSE(M0003)
//F0004 DD DISP=SHR,DSN=&SYSUID..MYPDSE(M0004)
//F0005 DD DISP=SHR,DSN=&SYSUID..MYPDSE(M0005)
//F0006 DD DISP=SHR,DSN=&SYSUID..MYPDSE(M0006)
//F0007 DD DISP=SHR,DSN=&SYSUID..MYPDSE(M0007)
//F0008 DD DISP=SHR,DSN=&SYSUID..MYPDSE(M0008)
//F0009 DD DISP=SHR,DSN=&SYSUID..MYPDSE(M0009)
//SYSIN DD *
OPTION COPY,ODMAXBF=100K
OUTFIL REPEAT=900,
FNAMES=(F0000,F0001,F0002,F0003,F0004,
F0005,F0006,F0007,F0008,F0009),
BUILD=(C'Record number : ',SEQNUM,8,FS,159:X)
/*
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
