You can use a simple EVAL statement like this one.
EVAL CHARFIELD = *ALL’*’
ASSUMING the character field is 65 characters long, then the above will work.
that will fill the entire field. If the field he wants the 65 ‘*’ in is longer, he will need to create a work field that is 65 long, fill it with ‘*’ and set the field equal to the work field.
d wrk_stars ds
d 1a inz(‘*’) dim(65)
In the C specs.
C ‘ ‘:’*’ XLATE LINE Line
This will fill line with all *.