ON INREC, if you used IFTHEN WHEN=INIT you could prime with a timestamp and then with a subsequent IFTHEN overwrite the last few bytes of the timestamp with an incrementing value.
Kind of like a pipeline. Though, when I explained what he'd built to Frank Yaeger he didn't respond as a plumber would. :-) Cheers, Martin Martin Packer zChampion, Systems Investigator & Performance Troubleshooter, IBM +44-7802-245-584 email: [email protected] Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker Podcast Series (With Marna Walle): https://developer.ibm.com/tv/mpt/ or https://itunes.apple.com/gb/podcast/mainframe-performance-topics/id1127943573?mt=2 Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA From: Bill Ashton <[email protected]> To: [email protected] Date: 28/03/2019 12:32 Subject: Re: Using DFSORT to generate data Sent by: IBM Mainframe Discussion List <[email protected]> Kolusu, I would like one little tweak, if you please - is it possible to get the timestamp fresh on each record, instead of using the same timestamp value for all of them? Billy On Wed, Mar 27, 2019 at 6:29 PM Sri h Kolusu <[email protected]> wrote: > Hi everyone! I am trying to generate a large test file for an internal > > project, and I wanted to know if anyone has done this with SORT. > > > Bill, > > It is quite easy to generate your test data. I generated 1 million > records with an LRECL of 100 bytes > > TCB: 00:00:00.922436 > ELAPSED: 00:00:09.43 > > > //STEP0100 EXEC PGM=SORT > //SYSOUT DD SYSOUT=* > //SORTIN DD * > ABC > //SORTOUT DD SYSOUT=* > //SYSIN DD * > OPTION COPY > INREC BUILD=(DATE5) > > OUTFIL REPEAT=1000000, > BUILD=(SEQNUM,9,ZD,START=100000001,INCR=8, $ SEQ INCREMENT BY 8 > 12,15,UFF,M11,LENGTH=12, $ HHMMSSMILLLL > SEQNUM,4,PD,START=31,INCR=14, $ PACKED INCR BY 14 > C'STATIC TEXT - 01', $ STATIC TEXT > SEQNUM,16,PD,START=23003,INCR=2, $ PACKED INCR BY 2 > C'STATIC TEXT - 02', $ STATIC TEXT > SEQNUM,10,PD,START=0, $ PACKED INCR BY 1 > C'END OF THE GEN', $ STATIC TEXT > 100:X) $ LRECL=100 > //* > > > Further if you have any questions please let me know > > Thanks, > Kolusu > DFSORT Development > IBM Corporation > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Thank you and best regards, *Billy Ashton* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
