MVSFORUMS.com :: View topic - Inserting negative value using OUTREC

through

[^/[Print]\]

MVSFORUMS.com -> Utilities

#1: Inserting negative value using OUTREC Author: vivek1983,

Posted: Tue May 08, 2007 6:25 am
—
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

#2: Author: dbzTHEdinosauer, Location: germany

Posted: Tue May 08, 2007 7:02 am
—
search on outrec - modification; look at the manuals.

this link will give you an idea of which parms and the syntax that you need. then you can code your own sort.

http://www.mvsforums.com/helpboards/viewtopic.php?t=7784&highlight=file1value

#3: Author: kolusu, Location: San Jose

Posted: Tue May 08, 2007 7:07 am
—
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

MVSFORUMS.com -> Utilities

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1