Page 1 of 1

Replace low values with spaces

PostPosted: Fri May 28, 2010 9:33 am
by karthikchn
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.

Re: Replace low values with spaces

PostPosted: Fri May 28, 2010 9:41 am
by dick scherrer
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.

Re: Replace low values with spaces

PostPosted: Fri May 28, 2010 10:05 pm
by Frank Yaeger
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.

Re: Replace low values with spaces

PostPosted: Sat May 29, 2010 2:12 pm
by karthikchn
This is the JCL is used .
//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

Re: Replace low values with spaces

PostPosted: Sat May 29, 2010 9:30 pm
by dick scherrer
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

Re: Replace low values with spaces

PostPosted: Fri Jun 04, 2010 12:23 am
by Alissa Margulies
I submitted the following job:
//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:
11111111

IN2 is:
2222222222

IN3 is:
3333333333333

And here is the output produced:
11111111
2222222222   
3333333333333

As you can see, the padding values are blanks (X'40').