how to ‘*’ in character field in RPGILE printer file
i have a charecter fied in printer file( in rpg ile) and i want to fill it with 65 '*'
1 way is to move '***** .....*'
is there any way to move 65 '*' in a single command ,
can we do it by edtword (as we know it can we done for numeric vclues)
please tell me ...
Software/Hardware used:
as400, rpgle
Software/Hardware used:
as400, rpgle
ASKED:
January 18, 2010 11:49 AM
UPDATED:
January 20, 2010 4:13 PM
Answer Wiki:
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.
<pre>
d wrk_stars ds
d 1a inz('*') dim(65)
</pre>
In the C specs.
C ' ':'*' XLATE LINE Line
This will fill line with all *.
To see all answers submitted to the Answer Wiki: View Answer History.
You can also use
WorkField = *all’*’
Why all this confusing comments on BigKat’s answer. His answer
works for all field-lenths (at least with v6r1 ILE-RPG).
I meant that suppose charfield was 80 char and he ONLY wanted 65 ‘*’
Then he needs to define a 65 char field to use to set charfield to
BigKat
and btw, I am the one who made all the confusing comments on Oldtonew’s answer
Srry – I understand now tht I have added to the confusion and misunderstanding of the original question. I hope to be excused, by telling you the one line RPG code answer to the challenge:
The above code puts 65 asterisks leftmost into the 80 character field (w80).
Voila
Bravo DanTheDane!
Truly the best solution of all!