View previous topic :: View next topic
|
Author |
Message |
smakkena
New User
Joined: 04 May 2005 Posts: 8
|
|
|
|
Hi ,
could u answer me this question?
One file is already there....( let us take that as input file) So, using
sort, I hv to copy that file to another file.
That new file should contain 1 to 31 cols as same as input file. But 32nd
char should be replaced with 'B' and remaining characters should be BLANK?
thanks in advance
suresh |
|
Back to top |
|
|
pushpagiri
New User
Joined: 07 Jul 2005 Posts: 51
|
|
|
|
Hi,
This will work...try it.
Code: |
//DFSORT EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN= <input file >
//OUT1 DD DSN= <output file >
//TOOLIN DD *
COPY FROM(IN1) TO(OUT1) USING(CPY1)
/*
//*******************************************************
//CPY1CNTL DD *
OUTREC FIELDS=(1,31,32:C'B')
/*
|
|
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Quote: |
That new file should contain 1 to 31 cols as same as input file. But 32nd char should be replaced with 'B' and remaining characters should be BLANK? |
Quote: |
This will work...try it.
OUTREC FIELDS=(1,31,32:C'B')
|
Well, that will give you the first 31 bytes and the 'B', but it won't give you the blanks. Here's a DFSORT job that will do what was asked for. I've assumed the input file had RECFM=FB and LRECL=80, but the job can be changed appropriately for other LRECLs.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... outpuf file (FB/80)
//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(1,31,C'B',80:X)
/*
|
|
|
Back to top |
|
|
|