Removing junk characters from a dataset.

kalais · New User Joined: 18 Apr 2006 Posts: 22

Hi,

I need to remove the junk characters from a dataset which opens in browse mode only. I could not do it in REXX using ISREDIT as it is not opening in EDIT mode.
The command we are using in MACRO is
"CHANGE P'.' ' ' ALL"

Is there any way in COBOL for doing this?

Thanks,
Kalai

shreevamsi · Posted: Fri Aug 24, 2007 3:59 pm

You need to initiliaze before writing to output file.

kalais · New User Joined: 18 Apr 2006 Posts: 22

Ya I tried it. It doesnt work as the input file itself contains the junk values.

Thanks,
Kalai

shreevamsi · Posted: Fri Aug 24, 2007 4:11 pm

OK,

Check out the offset where ur getting the Junt value. U can more spaces in those offset. For this u don't need to write a cobol pgm but a simple sort will do.

~Vamsi

dbzTHEdinosauer · Posted: Fri Aug 24, 2007 4:37 pm

what exactly is the situation? What is the source of this dataset? Why is it that you want to remove the non-display (P'.') char? How large is the dataset, what is the lrecl?

depending upon what,where,how and why there are many things that can be done. But, if you open a dataset in browse, witiswyg (what is there is what you get).

Can you open in VIEW mode, then an edit macro (or a simple chgall) can replace the non-display char. The nice thing about VIEW is that you can not accidently SAVE; you can only REPLACE, which would require intention.

you could also process the dataset with a REXX Script (invoke the rexx script which would massage the dataset, outputing to a temp ds which the rexx could invoke a browse).

kalais · New User Joined: 18 Apr 2006 Posts: 22

The dataset contains junk values at random positions. So I can not use SORT to remove it. Also I could not able to open in VIEW mode.

I need to load a table using this dataset , So I need to remove unwanted chatacters.

Sample data in Browse mode, Where the dots gets displayed in the place of a junk value.

MOVE '.........00001 ' TO DFHEIV0
[b]<some data>
MOVE '..}............00001 ' TO DFHEIV0[/b]

Thanks,
Kalai

dbzTHEdinosauer · Posted: Fri Aug 24, 2007 5:47 pm

that looks like post compiled CICS API's. Why are you moving a compiler listing to a table? What are you doing?