Thx Sri, done. Best regards, A.Cecilio. 2015-06-04 15:49 GMT+01:00 Sri h Kolusu <[email protected]>:
> 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 <[email protected]> wrote on > 06/04/2015 07:21:51 AM: > > > From: Toni Cecil <[email protected]> > > To: [email protected] > > Date: 06/04/2015 07:22 AM > > Subject: DFSORT: Create large record from small records > > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > 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([email protected]) > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
