IBM Mainframe Forum

by **karthikchn** » Fri May 28, 2010 9:33 am

Hi,
I used an icetool job to merge 11 files with different LRECL(80, 100 and 133) using INREC OVERLAY=(133:X).
The 133 lrecl records came fine, but the records having lesser lrecl came out with padded low values.
Since this is a report, it looks very bad and I want to replace with spaces only where low values are there.
Can someone suggest an idea?

Thanks in advance,
Karthikeyan.

by **dick scherrer** » Fri May 28, 2010 9:41 am

Hello,

When you have a question, please start a new topic for your question rather than replying to a topic that has been inactive for more than a year.

It will help someone help you if you post the jcl and control statements you used.

by **Frank Yaeger** » Fri May 28, 2010 10:05 pm

Can someone suggest an idea?

Not unless you do a much better job of telling/showing us what you did.

MERGE means that the records in each file are already sorted - is that what you mean by MERGE? If not, what do you mean?

Did you really MERGE the files using the MERGE operator, or did you do something else using another operator - which one? How are we to know unless you tell/show us what you did? Show your complete JCL and JES log including the //TOOLMSG and //DFSMSG messages you received.

by **karthikchn** » Sat May 29, 2010 2:12 pm

This is the JCL is used .

Select all

//ZEFT80 EXEC PGM=SYNCTOOL
//SYSPRINT DD SYSOUT=*
//IN1 DD DSN=PROD.BATCH.CNTLCRDS(GZSBAN46),DISP=SHR
//IN2 DD DSN=PROD.BATCH.CNTLCRDS(GZEFBAN1),DISP=SHR
//IN3 DD DSN=PROD.BATCH.CNTLCRDS(GZEFBAN2),DISP=SHR
//IN4 DD DSN=PROD.GZSF.JV77.EFTCDNG.ERROR(0),DISP=SHR
//IN5 DD DSN=PROD.GZSF.JV77.JVEFT14.PRJVME1(0),DISP=SHR
//IN6 DD DSN=PROD.GZSF.JV77.ADDRPG(0),DISP=SHR
//IN7 DD DSN=PROD.GZSF.JV77.JVEFT17.ERJVME1(0),DISP=SHR
//IN8 DD DSN=PROD.BATCH.CNTLCRDS(GZEFBAN3),DISP=SHR
//IN9 DD DSN=PROD.GZSF.JV77.GCAC.ERCK1(0),DISP=SHR
//IN10 DD DSN=PROD.BATCH.CNTLCRDS(GZEFBAN4),DISP=SHR
//IN11 DD DSN=PROD.GZSF.JV77.EFTCDMP.ERROR(0),DISP=SHR
//OUT DD DSN=TEST.GZSF.JV77.EFTREP.MERGE,
// DATACLAS=SMSALLOC,DISP=(MOD,CATLG,DELETE)
//TOOLIN DD DSN=TEST.TEST.KSUBRA.CNTLCRDS(GZEFT80A),DISP=SHR
//TOOLMSG DD SYSOUT=*
//SSMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//CTL1CNTL DD DSN=TEST.TEST.KSUBRA.CNTLCRDS(GZEFT80B),DISP=SHR

Where TOOLIN is

********************************* Top of
COPY FROM(IN1) TO(OUT) USING(CTL1)
COPY FROM(IN2) TO(OUT) USING(CTL1)
COPY FROM(IN3) TO(OUT) USING(CTL1)
COPY FROM(IN4) TO(OUT) USING(CTL1)
COPY FROM(IN5) TO(OUT)
COPY FROM(IN6) TO(OUT) USING(CTL1)
COPY FROM(IN7) TO(OUT) USING(CTL1)
COPY FROM(IN8) TO(OUT) USING(CTL1)
COPY FROM(IN9) TO(OUT) USING(CTL1)
COPY FROM(IN10) TO(OUT) USING(CTL1)
COPY FROM(IN11) TO(OUT) USING(CTL1)
******************************** Bottom

and CTL1 is

Â INREC OVERLAY=(133:X)

Thanks in advance,
Karthikeyan

by **dick scherrer** » Sat May 29, 2010 9:30 pm

Hello,

When posting a question, you need to post in the proper part of the forum. You are using Syncsort not DFSORT.

Topic moved to correct part of the forum.

d

by **Alissa Margulies** » Fri Jun 04, 2010 12:23 am

I submitted the following job:

Select all

//STEP1 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=IN1.FB8,DISP=SHR
//IN2 DD DSN=IN2.FB10,DISP=SHR
//IN3 DD DSN=IN3.FB13,DISP=SHR
//OUT DD DSN=TOOL.OUT,DISP=(MOD,CATLG,DELETE)
//TOOLIN DD *
COPY FROM(IN1) TO(OUT) USING(CTL1)
COPY FROM(IN2) TO(OUT) USING(CTL1)
COPY FROM(IN3) TO(OUT)
//CTL1CNTL DD *
OUTREC OVERLAY=(13:X)

Where IN1 is:

Select all

11111111

IN2 is:

Select all

2222222222

IN3 is:

Select all

3333333333333

And here is the output produced:

Select all

11111111
2222222222
3333333333333