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
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
