Thanks Kees, We came up with a similar idea about the same time you sent the previous email about the separate in/out, although I did not want to bite on it as a cause because I have seen sort inside COBOL programs using the same in/out. Will be interesting to see where this is going...
Regards Herbie -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Vernooy, C.P. - SPLXM Sent: 22 Januarie 2008 01:05 nm To: IBM-MAIN@BAMA.UA.EDU Subject: Re: DFSORT anomaly? I told you: you can rely on the DFSort team to react promptly. Great service! Kees. "David Betten" <[EMAIL PROTECTED]> wrote in message news:<[EMAIL PROTECTED] om>... > Herbie, > Send the sysout from your job directly to me ([EMAIL PROTECTED]) and > I'll take a look. We may need you to open an ETR on this but let me take a > look first. > > Have a nice day, > Dave Betten > DFSORT Development, Performance Lead > IBM Corporation > email: [EMAIL PROTECTED] > DFSORT/MVSontheweb at http://www.ibm.com/storage/dfsort/ > > IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU> wrote on 01/22/2008 > 07:23:16 AM: > > > Kees, > > > > What bugs me is the following... > > Whether we have 90,000 of 160,000 records, the final number remains > > > > Display from COBOL PGM... T735 WRITTEN = 0000050634 > > Display from DFSORT... RECORDS - IN: 45900, OUT: 45900 > > > > Display from COBOL PGM... T735 WRITTEN = 0000052687 > > Display from DFSORT... ICE054I 0 RECORDS - IN: 45900, OUT: 45900 > > > > Regards > > > > Herbie > > > > -----Original Message----- > > From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On > > Behalf Of Vernooy, C.P. - SPLXM > > Sent: 22 Januarie 2008 12:16 nm > > To: IBM-MAIN@BAMA.UA.EDU > > Subject: Re: DFSORT anomaly? > > > > "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 > > Elavon Financial Services Limited > > Registered in Ireland: Number 418442 > > Registered Office: Block E, 1st Floor, Cherrywood Business Park, > > Loughlinstown, Co. Dublin, Ireland > > Directors: Robert Abele (USA), John Collins, Terrance Dolan (USA), > > Pamela Joseph (USA), Declan Lynch, John McNally, Malcolm Towlson > > Elavon Financial Services Limited, trading as Elavon, is regulated > > by the Financial Regulator > > > > ---------------------------------------------------------------------- > > 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 > > ---------------------------------------------------------------------- > 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 ********************************************************************** 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 Elavon Financial Services Limited Registered in Ireland: Number 418442 Registered Office: Block E, 1st Floor, Cherrywood Business Park, Loughlinstown, Co. Dublin, Ireland Directors: Robert Abele (USA), John Collins, Terrance Dolan (USA), Pamela Joseph (USA), Declan Lynch, John McNally, Malcolm Towlson Elavon Financial Services Limited, trading as Elavon, is regulated by the Financial Regulator ---------------------------------------------------------------------- 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
