replacing values



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

replacing values

Postby pulcinella » Sun Apr 26, 2015 11:00 pm

Hello

I have a file of 304 positions with the following structure:

code1 PIC X(1)
code2 PIC S9(9) COMP-3
Filler1 PIC X(211)
Filler2 PIC X(87)

The INPUT file is ordered by the first two fields (code1 and code2). No duplicate. The Filler1 has values ​​that are not important. The filler2 has several indicators, a position each indicator with the following values: "Y", "N", "T", "0" and "1". I need to change all values ​​"T" with "N" (filler2 positions 218 to finish)

example

Input file

code1 code2 filler-1 filler-2
F 00001 xxxxxxxxxxxxxx... N0N0N0Y1T0N0Y0T1T1T0Y0.......
F 00002 xxxxxxxxxxxxxx... T0N0Y0T1T0N0N0N1N1N0N0.......
F 00003 xxxxxxxxxxxxxx... Y0N0Y0Y1Y0N0N0N1N1N0N0.......
F 00004 xxxxxxxxxxxxxx... N0Y0T0N1N0T0T0Y1Y1Y0T0.......

Output file

code1 code2 filler-1 filler-2
F 00001 xxxxxxxxxxxxxx... N0N0N0Y1N0N0Y0N1N1N0Y0.......
F 00002 xxxxxxxxxxxxxx... N0N0Y0N1N0N0N0N1N1N0N0.......
F 00003 xxxxxxxxxxxxxx... Y0N0Y0Y1Y0N0N0N1N1N0N0.......
F 00004 xxxxxxxxxxxxxx... N0Y0N0N1N0N0N0Y1Y1Y0N0.......

I could use sentences OUTREC IFTHEN AND HIT NEXT but then I would have to ask for each indicator (218,1 - 220,1,...) of filler2 and change one to one but would have a huge statement (several lines) . There would be some way to change values indicating the column begins and ends (218,87)?

If I must change the " T" values ​​of some specific positions (for example positions: 220,1 - 226-1 - 228,1 - 234,1 - 236,1, 240,1 and 256,1, ) unused HIT NEXT, can it be done?

thank you a lot of
pulcinella
 
Posts: 114
Joined: Mon Dec 10, 2007 10:18 pm
Has thanked: 0 time
Been thanked: 0 time

Re: replacing values

Postby BillyBoyo » Mon Apr 27, 2015 2:34 am

You can use FINDREP, with STARTPOS and ENDPOS, changing T to N.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post