dinesh_deadman Warnings : 1 New User
Joined: 10 Aug 2007 Posts: 32 Location: Chicago
|
|
|
|
Hello:
I want to find one value in position 1:3, if it is BBB, then I want to replace the value in position 69 from 'whatever' to a blank. Example file is attached.
I tried to look up for a similar thread in the forum, may be there is one, but I failed to find it. Could someone help me on this?
RECL: 116
Record Format: VB
Please let me know if you need any more information.
Dinesh |
|
Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
dinesh_deadman,
It can be done with a simple IFTHEN statement. Since your input is a VB file, the actual positions are 5 and 73 as the first 4 bytes is the RDW. use the following control cards
Code: |
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(5,3,CH,EQ,C'BBB'),OVERLAY=(73:X))
//* |
|
|