Remove junk characters by keeping the 'good' characters

dick scherrer · Posted: Thu Jul 24, 2008 11:53 pm Post subject:

Hello,

The good news is that if you use COBOL, the entire determination of good versus bad character becomes a single IF statement

You'd need to define the GOOD-CHAR as a condition name, but that can be done with 'A' THRU 'I', etc rather than naming every value.

Sagar_mainframe · Posted: Fri Jul 25, 2008 12:12 am Post subject: That's gr88

Dick,

I have implemented part 2) in COBOL using INSPECT verb as follows

part 2) "Also if any special characters like `~!@#$%^&*()_-+=\|:";'{}[]?/>.<, present at the end or in between (means column 24 to column 47 for last name and column 49 to column 62 for first name) of the first name or last name that also i have to replace it with space X'40'. "

Frank Yaeger · Posted: Fri Jul 25, 2008 1:34 am Post subject:

Sagar_mainframe · Posted: Fri Jul 25, 2008 1:43 am Post subject: V2005

OK Frank, I think mine is 2005....if you look at the top-line of the snapshot (code posted) of error encountered ...

dick scherrer · Posted: Fri Jul 25, 2008 2:10 am Post subject:

Hello Sagar,

You need to pay closer attention. . .

To repeat - You are not using DFSORT - you are using Syncsort. . . . They are entirely different products.

dick scherrer · Posted: Fri Jul 25, 2008 2:29 am Post subject:

Hello Sagar,

To do what you want for part 1 (removing unwanted characters), i'd suggest defining a field to "receive" the corrected string and initialize it to spaces. Then positon yourself at the beginning of the input field and the receiving field. If the current character is "good", move it to the receiving field and increment the position in both fields. If the current character is not "good" only increment the input field positon.

To define the good charactgers, i'd use something like:

Frank Yaeger · Posted: Fri Jul 25, 2008 2:42 am Post subject: