MVSFORUMS.com

anu.k · Beginner Joined: 09 Nov 2006 Posts: 6 Topics: 4

Hi,

I have a file with the following structure.

field 1 - PIC S9(4) COMP
field 2 - X(40)

Input data:

Field 1 Field 2
1 AAAA....
2 BBBB...
3 CCCC..
.. ..
.. ..
53 ZZZZ...

My requirement is to overwrite the Field 1 value with constant data '54' for all the records.

Output should look like :

Field 1 Field 2
54 AAAA....
54 BBBB...
54 CCCC..
. ..
. ..
54 ZZZZ...

Please advice..

Thanks,
Anu

Terry_Heinze · Posted: Wed Apr 16, 2008 9:00 am Post subject:

If I understand you correctly, MOVE 84 TO FIELD-1 will result in FIELD-1 consisting of X'0054' after the MOVE statement. An alternate method would be to redefine FIELD-1 as PIC XX and moving X'0054' to it. I don't have access to a mainframe, so the best way to find out is to write a little test program for yourself. Oops, I just noticed this was posted in the Utilities forum and I gave you a COBOL solution.
_________________
....Terry

anu.k · Beginner Joined: 09 Nov 2006 Posts: 6 Topics: 4

Thanks for your response Terry.

However my requirement was to achieve it in SORT and I managed to do so with the following sort card :

Frank Yaeger · Posted: Tue Apr 22, 2008 9:52 am Post subject:

Here's a simpler way to do it with DFSORT: