View previous topic :: View next topic |
Author |
Message |
vivek1983 Intermediate
![](images/avatars/gallery/cartoons/WB23.gif)
Joined: 20 Apr 2006 Posts: 222 Topics: 24
|
Posted: Tue May 08, 2007 6:25 am Post subject: Inserting negative value using OUTREC |
|
|
Hi,
I am trying to insert a new field value to a file.
I am doing this using OUTREC statement in the sort card. Find below the scenario:
Input File : AAAABBB
My desired output file: AAAABBB-1
The '-1' field is of S9(09) comp in the referred cobol program.
I have searched this forum but I have not got any idea of how to do that because I have not used much of sort techniques so far.
Please let me know how to accomplish this.
Thanks in advance.
Vivek G |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
dbzTHEdinosauer Supermod
Joined: 20 Oct 2006 Posts: 1411 Topics: 26 Location: germany
|
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
kolusu Site Admin
![Site Admin Site Admin](images/ranks/adminpic.jpg)
Joined: 26 Nov 2002 Posts: 12366 Topics: 75 Location: San Jose
|
Posted: Tue May 08, 2007 7:07 am Post subject: |
|
|
vivek1983,
vivek1983,
try this control card.
Code: |
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(01,07,
-1,TO=FI,LENGTH=4)
|
Hope this helps...
Cheers
Kolusu _________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|
|