|
View previous topic :: View next topic
|
| Author |
Message |
cvishu
Active User
Joined: 31 Jul 2007
Posts: 136
Location: india
|
|
|
|
Hi ,
I want to know if its possible to add two columns within a file .
Both the columns are of 3 bytes and output column can be max of 4 bytes
The file is FB 80 reclength
Example :
Input file
| Code: |
111 002
222 234
333 111
444 222
|
Output shld be
| Code: |
111 002 113
222 234 456
333 111 444
444 222 666
|
Thanks in advance |
|
| Back to top |
|
 |
Vinay Pandey
New User
Joined: 23 Jun 2010
Posts: 5
Location: Hyderabad
|
|
|
|
Try the sample code below:
| Code: |
//SORTIN DD *
111002
222234
333111
444222
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC BUILD=(1,6,(1,3,ZD,ADD,4,3,ZD),EDIT=(TTTT))
|
The output of this was:
1110020113
2222340456
3331110444
4442220666 |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Cvishu,
Here's a DFSORT job that will do what you asked for:
| Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
111 002
222 234
333 111
444 222
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(18:1,3,ZD,ADD,9,3,ZD,EDIT=(IIIT))
/*
|
SORTOUT will have:
| Code: |
111 002 113
222 234 456
333 111 444
444 222 666
|
|
|
| Back to top |
|
|
|
|
