|
|
The RPG to generate color lines for source files
* ___________________________________________________________________
* - Hilight lines: -
* - Copied from somewhere, not sure where it came from. -
* - -
* - Note: The name of the QRPGLESRC record format is different -
* - from system to system. The easiest way to find out is -
* - to compile this program and read the compile listing. -
* - 6/00 Booth Martin -
* ___________________________________________________________________
Fqrpglesrc o e Disk RENAME(QRPGLESTC:SEUFMTCODE)
D Normal s 1 Inz(x'20')
D RI s 1 Inz(x'21')
D HI s 1 Inz(x'22')
D RI_HI s 1 Inz(x'23')
D UL s 1 Inz(x'24')
D RI_UL s 1 Inz(x'25')
D HI_UL s 1 Inz(x'26')
D ND s 1 Inz(x'27')
D BL s 1 Inz(x'28')
D RI_BL s 1 Inz(x'29')
C eval SRCDTA = ' ' + RI + ' RI'
C write SEUFMTCODE
C eval SRCDTA = ' ' + HI + ' HI'
C write SEUFMTCODE
C eval SRCDTA = ' ' + RI_HI + ' RI_HI'
C write SEUFMTCODE
C eval SRCDTA = ' ' + UL + ' UL'
C write SEUFMTCODE
C eval SRCDTA = ' ' + RI_UL + ' RI_UL'
C write SEUFMTCODE
C eval SRCDTA = ' ' + HI_UL + ' HI_UL'
C write SEUFMTCODE
C eval SRCDTA = ' Nondisplay next'
C write SEUFMTCODE
C eval SRCDTA = ' ' + ND + ' ND'
C write SEUFMTCODE
C eval SRCDTA = ' ' + BL + ' BL'
C write SEUFMTCODE
C eval SRCDTA = ' ' + RI_BL + ' RI_BL'
C write SEUFMTCODE
C eval *inlr = *on
*
|
The CL to override the source member for the Samples file
/*-------------------------------------------------------------------*/
/* */
/* Create a member in QRPGLESRC for Hi-lite codes */
/* 6/00 Booth Martin */
-------------------------------------------------------------------*/
PGM
DCL VAR(&LIB) TYPE(*CHAR) LEN(10) VALUE('BOOTH')
ADDPFM FILE(&LIB/QRPGLESRC) MBR(SEUFMTCODE) +
TEXT('SEU Code HiLighting') SRCTYPE(TEXT)
MONMSG MSGID(CPF0000) EXEC(RETURN)
CLOF OPNID(QRPGLESRC)
MONMSG MSGID(CPF0000)
OVRDBF FILE(QRPGLESRC) TOFILE(*FILE) +
MBR(SEUFMTCODE) SHARE(*YES)
CALL PGM(SEUCODES)
CLOF OPNID(QRPGLESRC)
MONMSG MSGID(CPF0000) EXEC(RETURN)
DLTOVR FILE(*ALL)
ENDPGM
|
|
|
|
|
|
|
 |
|
|
Here's a keyboard file that allows
colors changes in-line as shown above.
Use these key combinations in this way:
alt-w = white letters,
alt-ctrl-w = white letters, underlined
shift-ctrl-w = white reversed image
repeated for t=turqoise, r=red, b=blue,
g=green, p=pink
[Profile]
id=KMP
Description=
[KEYBOARD]
KEY15=[left]
A-KEY18=apl 22
G-KEY18=apl 26
CS-KEY18=apl 23
C-KEY20=[rule]
A-KEY20=apl 28
G-KEY20=apl 2c
CS-KEY20=apl 29
C-KEY21=[rule]
A-KEY21=apl 30
G-KEY21=apl 34
CS-KEY21=apl 31
A-KEY22=apl 32
G-KEY22=apl 36
CS-KEY22=apl 33
A-KEY26=apl 38
G-KEY26=apl 3c
CS-KEY26=apl 39
A-KEY35=apl 20
G-KEY35=apl 24
CS-KEY35=apl 21
KEY43=[enter/ctrl]
A-KEY50=apl 3a
G-KEY50=apl 3e
CS-KEY50=apl 3b
KEY64=[newline]
KEY81=[end field]
S-KEY81=[end field]
C-KEY81=[end field]
A-KEY81=[end field]
G-KEY81=[end field]
CS-KEY81=[end field]
S-KEY95='/'
S-KEY100='*'
KEY108=[enter/ctrl]
S-KEY108=[enter/ctrl]
KEY124=[local copy]
|
|
|
|
|
|
| Color |
Normal |
Underbar |
Reverse Image |
Underbar & Reverse Image |
Nondisplay |
Blink |
Blink & Reverse Image |
Blink & Underbar |
|
Alt-key |
Alt-Ctrl |
Ctrl-shift |
|
|
|
|
|
| Green |
X'20 |
X'24 |
X'21 |
X'25 |
|
|
|
|
| White |
X'22 |
X'26' |
X'23 |
|
X'27' |
|
|
|
| Red |
X'28' |
X'2C' |
X'29' |
X'2D' |
X'2F' |
X'2A' |
X'2B' |
X'2E' |
| Turquoise |
X'30' |
X'34' |
X'31' |
X'35' |
|
|
|
|
|
Pink |
X'38' |
X'3C' |
X'39' |
X'3D' |
|
|
|
|
| Blue |
X'3A' |
X'3E' |
X'3B' |
|
X'3F' |
|
|
|
| Yellow |
X'32' |
X'36' |
X'33' |
|
X'37' |
|
|
|
| Control Key and |
Action |
| r |
Rule line |
|
|
|
|
|
|
|
|
|
|
|
|
|
