Wherever possible we are trying to standardise using SYNCSORT.
I know that Syncsort has most of the functions and capabilities of DFSORT so I need help as soon as possible on a particular problem.
We are using SPLICE to replicate a large Selcopy report.
The input data looks like this(but longer):
Code: Select all
LONG TERM PLAN FOR DATE: 22/05/09
GSHPHCD@DAILYCAT | |
ORDENTRY 00.01 06.00 5| O.E AGN Reality Rpt P/G|CPUR_003
GSHPKCD@DAILYCAT | |
ORDENTRY 00.01 06.00 5| O.E KAL Reality Rpt P/G|CPUR_003
GSHPRCD@DAILYCAT | |
ORDENTRY 00.01 06.00 5| O.E REP Reality Rpt P/G|CPUR_003
OOSPSSD@SSREPRTS | |
SHOPPER 00.01 03.00 6| SHP Suplmntry Sales Rprt|DUMY_099
PAGFTD | |
HOMESHOP 00.01 04.00 5| HSH Load DBase 1080 |CPUR_020
etc etc
................................................................................
..........................................................................
................................................................
LONG TERM PLAN FOR DATE: 23/05/09
FDTPARW@ACQPRPRT | |
MARKET 00.01 22.30 5| MKT Tdata Acq Report #g|DUMY_001
FDTPASW@WTASUPDT | |
MARKET 00.01 22.30 7| MKT Tdata A/c Summary #g|DUMY_001
FDTPCOW@COMMUPDT | |
MARKET 00.01 22.30 7| MKT Tdata Commission #g|DUMY_001
FDTPDFW@DFFLOAD | |
MARKET 00.01 22.30 7| MKT Tdata Diff Tabl #g|DUMY_001
FDTPD1W@DATMUPDT | |
etc etc....
Code: Select all
LONG TERM PLAN FOR DATE: 22/05/09
GSHPHCD@DAILYCAT ORDENTRY 00.01 06.00 5| O.E AGN Reality Rpt P
GSHPKCD@DAILYCAT ORDENTRY 00.01 06.00 5| O.E KAL Reality Rpt P
GSHPRCD@DAILYCAT ORDENTRY 00.01 06.00 5| O.E REP Reality Rpt P
OOSPSSD@SSREPRTS SHOPPER 00.01 03.00 6| SHP Suplmntry Sales Rp
PAGFTD HOMESHOP 00.01 04.00 5| HSH Load DBase 1080
etc etc
..............................................................................
......................................................................
...................................................
LONG TERM PLAN FOR DATE: 23/05/09
FDTPARW@ACQPRPRT MARKET 00.01 22.30 5| MKT Tdata Acq Report
FDTPASW@WTASUPDT MARKET 00.01 22.30 7| MKT Tdata A/c Summary
FDTPCOW@COMMUPDT MARKET 00.01 22.30 7| MKT Tdata Commission
FDTPDFW@DFFLOAD MARKET 00.01 22.30 7| MKT Tdata Diff Tabl
etc etc
Code: Select all
//******************************************************************
//*-------------------------------------------------------------------*
//* SYNCTOOL VERSION *
//*-------------------------------------------------------------------*
//SYNCTOOL EXEC PGM=SYNCTOOL
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//INFILE DD DSN=FIS1.D0.STS023.BANKSYN.PART1,
// DISP=SHR
//OUT DD DSN=FIS1.D0.STS023.BANKSYN.PART2,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(5,5))
//T1 DD DSN=&&TEMP01,
// DISP=(NEW,PASS),
// SPACE=(CYL,(5,5))
//TOOLIN DD *
COPY FROM(INFILE) USING(CTL1)
SPLICE FROM(T1) TO(OUT) ON(1,8,ZD) -
WITHEACH WITH(28,102) USING(CTL2)
/*
//CTL1CNTL DD *
*
** Header records have no Sequence no.
** 001-008 Blanks.
** 009-129 Original data.
*
OUTREC IFTHEN=(WHEN=(1,121,SS,EQ,C'LONG TERM'),
BUILD=(1:C' ',9:1,121)),
*
** "Job" records have a "." in 21.
** 001-008 Seq No (for this IFTHEN)
** 009-027 Blanks
** 028-129 Original Job data.
*
IFTHEN=(WHEN=(21,1,CH,EQ,C'.'),
BUILD=(1:SEQNUM,8,ZD,
9:18C' ',
27:1,104)),
*
** OPC Application records.
** 001-008 Seq No.
** 009-027 OPC application
*
IFTHEN=(WHEN=NONE,
BUILD=(1:SEQNUM,8,ZD,9:1,19))
OUTFIL FNAMES=T1,IFOUTLEN=129
/*
//CTL2CNTL DD *
* Remove the group number.
OUTFIL FNAMES=OUT,BUILD=(9,121)
/*
How do we preserve the 'headers' in their rightful place??
Thanks in advance.
Glenn.