Toni, It is quite simple to create a large record from a set of small records. You wanted 3 records into a single record. So have the resize TOLEN to 99 instead so that you can have three equal 33 byte records with delimiter. If you really want 100 bytes output record, then you can have a space at the end AFTER we have created the large record. You can use OUTFIL to do that.
Here is a sample JOB that will give you desired results. //STEP0100 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD * ----+----1----+----2----+----3----+----4----+--- BXV066 F05F 8314501 DBAPROM I BXV067 F060 8314501 DBAPROM I BXV068 F061 8314501 DBAPROM I //OUT DD SYSOUT=* //TOOLIN DD * RESIZE FROM(IN) TO(OUT) TOLEN(99) USING(CTL1) //CTL1CNTL DD * OPTION COPY INREC BUILD=(1,29,31:C'<>') OUTFIL OVERLAY=(100:X) //* Further if you have any questions please let me know Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 06/04/2015 07:21:51 AM: > From: Toni Cecil <acbi...@gmail.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 06/04/2015 07:22 AM > Subject: DFSORT: Create large record from small records > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Hello, > > before doing this post I've read "Smart DFSORT Tricks" manual but I'm not > at easy using DFSORT facilities, so that's why I need your help. I've a > FB29 dsn like this: > > BROWSE PXXX213.FKK006.XSXS381D Line 00000019 Col 001 > 029 > Command ===> Scroll ===> > CSR > ----+----1----+----2----+----3----+----4----+----5----+----6---- > +----7----+----8 > > BXV066 F05F 8314501 DBAPROM > I > BXV067 F060 8314501 DBAPROM > I > BXV068 F061 8314501 DBAPROM > I > > ... > > with 238 records. What I need is to create a dsn like this (FB100): > > ----+----1----+----2----+----3----+----4----+----5----+----6---- > +----7----+----8----+----9----+----0 > > > BXV066 F05F 8314501 DBAPROM I <> BXV067 6060 8314501 DBAPROM I <> BXV068 > F061 8314501 DBAPROM I > > > > basically creating 1 large record with 3 small records. I tried RESIZE, but > it joins the records but i want to add <> as a record separator. > > Can you pls give me an help ?? > > Many thx, Antonio Cecilio(ant_ceci...@pt.ibm.com) > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
