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 <[email protected]> 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: [email protected]
> 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
