Comments on: how to ‘*’ in character field in RPGILE printer file

By: bigkat

bigkat — Wed, 20 Jan 2010 14:27:36 +0000

Bravo DanTheDane!

Truly the best solution of all!

By: danthedane

danthedane — Wed, 20 Jan 2010 12:18:08 +0000

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:

d w80             s             80 
%subst(W80:1:65) = *all'*';

The above code puts 65 asterisks leftmost into the 80 character field (w80).
Voila

By: bigkat

bigkat — Tue, 19 Jan 2010 14:20:44 +0000

and btw, I am the one who made all the confusing comments on Oldtonew’s answer

By: bigkat

bigkat — Tue, 19 Jan 2010 14:18:51 +0000

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

By: danthedane

danthedane — Tue, 19 Jan 2010 07:18:13 +0000

Why all this confusing comments on BigKat's answer. His answer

EVAL CHARFIELD = *ALL'*'

works for all field-lenths (at least with v6r1 ILE-RPG).

By: charliebrowne

charliebrowne — Mon, 18 Jan 2010 18:32:44 +0000

You can also use
WorkField = *all’*’