"Vernooy, C.P. - SPLXM" <[EMAIL PROTECTED]> wrote in message news:<[EMAIL PROTECTED] t>... > "Van Dalsen, Herbie" <[EMAIL PROTECTED]> wrote in message > news:<[EMAIL PROTECTED] > >... > > Kees, > > > > That is actually that happens... > > Step1 creates the file, > > Step2 Makes a backup, using IDCAMS, and the backup does have 16000 > > records, and step3 does the sort... > > very weird... > > > > //DEL005 EXEC PGM=IEFBR14 > > //DD3 DD DSN=HUBRECHT.SORTINOUT, > > // DISP=(MOD,DELETE,DELETE), > > // UNIT=SYSDA,SPACE=(TRK,0) > > //* > > //NCPO511 EXEC PGM=NCPO511 > > //SYSOUT DD SYSOUT=* > > //SYSPRINT DD SYSOUT=* > > //IPMOUT DD DSN=HUBRECHT.SORTINOUT, > > // DISP=(,CATLG,DELETE), > > // UNIT=SYSDA,SPACE=(CYL,(15,5)), > > // DCB=(RECFM=VB,LRECL=4504,BLKSIZE=0) > > //* > > //IDCAM020 EXEC PGM=IDCAMS > > //SYSOUT DD SYSOUT=* > > //SYSPRINT DD SYSOUT=* > > //FILEIN DD DSN=HUBRECHT.SORTINOUT,DISP=SHR > > //FILEOUT DD DSN=HUBRECHT.SORTINOUT.BACKUP(+1), > > // DISP=(,CATLG,DELETE), > > // UNIT=SYSDA, > > // SPACE=(CYL,(15,5),RLSE), > > // DCB=(RECFM=VB,LRECL=4504,BLKSIZE=0) > > //SYSIN DD * > > REPRO INFILE(FILEIN) OUTFILE(FILEOUT) - > > REPLACE > > //* > > //SORT01 EXEC PGM=SORT > > //SYSOUT DD SYSOUT=* > > //SYSPRINT DD SYSOUT=* > > //SORTIN DD DSN=HUBRECHT.SORTINOUT,DISP=SHR > > //SORTOUT DD DSN=HUBRECHT.SORTINOUT,DISP=SHR > > //SYSIN DD * > > OPTION COPY > > INREC IFTHEN=(WHEN=(5,2,ZD,EQ,1,AND,1426,2,CH,EQ,C'48'), > > OVERLAY=(132:C'5',134:C'S',888:C'CT6')), > > IFTHEN=(WHEN=(5,2,ZD,EQ,1,AND,150,4,ZD,EQ,6010), > > OVERLAY=(54:+12,TO=ZD,LENGTH=2)) > > > > Regards > > > > Herbie > > I really wonder if it possible to make Sort to this, with sortin and > sortout being the same dataset. Make sortout a different dataset and see > what happens. And/or check the manual for the validity of this sortstep. > > Kees.
Or wait a few hours until the DFSort support team has woken up and read their mail. Kees. ********************************************************************** For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 ********************************************************************** ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
