Re: DFSORT anomaly?

"Vernooy, C.P. - SPLXM" <Kees.Vernooy@xxxxxxx> wrote in message
news:<8A7B5B3046ED674584BDC9454B7870AF0152FA27@xxxxxxxxxxxxxxxxxxxxxxxxx
t>...
"Van Dalsen, Herbie" <Herbie.VanDalsen@xxxxxxxxxx> wrote in message

news:<A5BE553C21CF584889F339B2931761E50BEABD@xxxxxxxxxxxxxxxxxxxxxxxxxxx
...
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 listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
.

Relevant Pages

  • Antwort: IF-Statement in JCL
    ... This is similar to the COND parameter in the EXEC ... From my experiences you cannot evaluate JCL symbols. ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Re: Multi-line "Srchfor" Utility?
    ... If you were to take Dave's approach, I wrote a REXX EXEC that will ... I just need to extract EXEC CICS QUERY SECURITY ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Re: using nexted procs
    ... of the PROC, although it should work either way. ... //FFND05 EXEC ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Re: TSO/REXX Question
    ... //ASMH EXEC PGM=IEV90,PARM= ... CLEARSCR CSECT ... For IBM-MAIN subscribe / signoff / archive access instructions, send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html. ...
    (bit.listserv.ibm-main)
  • RE: Me thinks Chuckie is afoot -
    ... I'm on z/OS 1.7 and my ip address also has a 2 digit last octet. ... I ran your exec and it worked fine, ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)