Colours in RPG-source

[Gunnar Elfman]

Hello,

I have got a RPG source which have some lines coloured. A white line has
X22 infront of the sourceline. How can I put in these hexcodes into the
source in SEU. This seems to be a quite nice feature.

// Gunnar

[Jürgen Schatzl]

Hi Gunnar,

if have a special member with all kinds of coulors. When I need them, I
just copy the lines.

Juergen

--
Juergen Schatzl
AS/400 Application Developer

The opinions expressed are mine, not those of
BRAIN Filderstadt or any of its affiliates

[Robert Michael Tuppen]

Gunnar,

I use YWRKF as it has a nice HEX option, but not everybody has the Synon
functions.

For a neater solution try News400 magazine, which provided the source code
for just such a utility called COLORRPG in the April 2000 edition which you
can download online from www.as400network.com.

Rob

--

"Gunnar Elfman" <gunnar...@hotmail.com> wrote in message
news:39A123DB...@hotmail.com...

[Bryan Douglas-Henry]

Gee thanks Jürgen

Wanna share your information with the rest of us ?

How about doing a cut & paste of that 'special member' ?

Regards,

Bryan Douglas-Henry

Send your spam to: rhu...@fcc.gov jqu...@fcc.gov sn...@fcc.gov
rch...@fcc.gov
"Jürgen Schatzl" <juergen...@brainag.com> wrote in message
news:8nrc33$9aldr$1...@ID-14121.news.cis.dfn.de...

[Henry Wallace]

[Henry Wallace]

Sorry about previus post
Use dbu (available in most shops and then cmd9) setup one source meber
with colours needed (change pos 8 ) to a hex code such as
20 for normal try it from there onwards 2* and 3* to see what you like
highlight being 22
Line type must be a comment(*).Thsi works for rpg But i gues can work
for any language.
To change d , and other line types use pos 5
Good luck

[Jürgen Schatzl]

Hi Bryan,

br...@mediscor.co.za (Bryan Douglas-Henry) wrote in <8nrcr5$9bl$1@ctb-
nnrp2.saix.net>:

>Wanna share your information with the rest of us ?
>How about doing a cut & paste of that 'special member' ?

Well, cut and paste would be a little difficult, because it woul loose all
information on coulor. If interessted, I can post a savefile containing the
member, it should be no more than 5k. Once loaded to your machine, you simply
copy a line with the desired coulor to your member and then edit the text.

Regards

[Dieter]

Gunnar,

what about SQL???
OVRDBF to your desired member or CREATE ALIAS and then
update
QRPGLESRC
set srcdta = x'22404040'
where srcseq = 4
or something like this. And afterwards the copy trick, the other
mentioned. I've done this befor using a hex editor on pc and then
uploaded the file...

Dieter

In article <39A123DB...@hotmail.com>,

Gunnar Elfman <gunnar...@hotmail.com> wrote:
> Hello,
>
> I have got a RPG source which have some lines coloured. A white line
has
> X22 infront of the sourceline. How can I put in these hexcodes into
the
> source in SEU. This seems to be a quite nice feature.
>
> // Gunnar
>
>

--
Computers are useless.
They can only give answers.
(Pablo Picasso)

Sent via Deja.com http://www.deja.com/
Before you buy.

[Sergio Guizzo]

You can use this simple RPG program to create a Text member with all colors

Bye Sergio.

FQTXTSRC O F 92 DISK
*-----------------------------------------------------
*
C MOVE '*' ASTER 1
C MOVE X'20' INIZIO 1
C MOVE X'20' FINE 1
C MOVE *ALL'-' CORPO 59
*
C EXCPT§WRT
*
C MOVE X'21' INIZIO 1
C EXCPT§WRT
*
......................

C SETON LR
*
OQTXTSRC E §WRT
O ASTER 19
O INIZIO 20
O CORPO 80
O FINE 82
* ------------------------------------------------------
*
* HEX/EFFECT
* 20 GREEN
* 21 GREEN/REVERSE
* 22 WHITE
* 23 WHITE/REVERSE
* 24 GREEN/UNDERLINE
* 25 GREEN/UNDERLINE/REVERSE
* 26 WHITE/UNDERLINE
* 27 NON DISPLAY
* 28 RED
* 29 RED/REVERSE
* 2A RED/BLINK
* 2B RED/REVERSE/BLINK
* 2C RED/UNDERLINE
* 2D RED/UNDERLINE/REVERSE
* 2E RED/UNDERLINE/BLINK
* 2F NON DISPLAY
* 30 TURQUOISE/COLUMN SEP.
* 31 TURQUOISE/COLUMN SEP./REVERSE
* 32 YELLOW/COLUMN SEP
* 33 YELLOW/COLUMN SEP/REVERSE
* 34 TUQUOISE/UNDERLINE
* 35 TUQUOISE/UNDERLINE/REVERSE
* 36 YELLOW/UNDERLINE
* 37 NON DISPLAY COLUMN SEP.
* 38 PINK
* 39 PINK/REVERSE
* 3A BLU
* 3B BLU/REVERSE
* 3C PINK/UNDERLINE
* 3D PINK/UNDERLINE/REVERSE
* 3E BLU/UNDERLINE
* 3F NON DISPLAY
*

Gunnar Elfman <gunnar...@hotmail.com> wrote in message

39A123DB...@hotmail.com...

[Rainer aus dem Spring]

I've written a colring tool many years ago.

I can send the soueces if you like.

Rainer adS

[Bryan Douglas-Henry]

Yea - that would be GREAT !

Thanks Jürgen.

Regards,

Bryan Douglas-Henry
br...@mediscor.co.za

Send your spam to: rhu...@fcc.gov jqu...@fcc.gov sn...@fcc.gov
rch...@fcc.gov

"Jürgen Schatzl" <juergen...@brainag.com> wrote in message

news:8nrfqm$995hk$1...@ID-14121.news.cis.dfn.de...

[Mark Smits]

I missed the original posting, but if you are using Client Access,
what about changing your keymappings. For example we are using
[Alt+w] for white, [CtrlLeft+w] for underline white and
[CtrlLeft+Shift+W] for ReverseImage white.

As key definition use 'apl 22' and so on...

[z01]

Well, in my opinion, the easiest way to use color lines is to redefine some
of the keys in your Client Access
Keyboard MAP to work with some HEX directly from your keyboard in PDM(member
text) or in any editor(SEU, DFU...)
In my keyboard I specify Colors in Ctrl+... keys, and Colors+RI in ALT+...
keys:
ALT+W = White+RI, Ctrl+W = White.
You should go to CUSTOMIZE KEYBOARD and in the Ctrl line of character you'll
see [pass]
Instead of [pass] you should type "apl" , 1 space and HEX value.
There is a list of values I use(character means color) :
Ctrl Alt
W apl 22 apl 23
R apl 28 apl 29
T apl 30 apl 31
Y apl 32 apl33
P apl 38 apl 39
G apl 20 apl 21
B apl 3A apl 3B
N apl3f - NON DISPLAY

Regards.
Feliks Reznik.
P.S. I found it in this newsgroup 2 years ago. d:-)
Good Luck.

Bryan Douglas-Henry <br...@mediscor.co.za> wrote in message
news:8nt4kd$ldl$1...@ctb-nnrp2.saix.net...