How to define special ascii characters (graphics)

[fdf]

I need to define special a ascii character (ascii 195 - a centered horizontal line) which I will be moving into the print line on a laser form.

How would I represent this character in working storage?

 

[fdf]

Should a SYMBOLIC CHARACTER in SPECIAL NAMES work? Something like this?


SPECIAL NAMES. SYMBOLIC CHARACTER UL IS 195.

 

[fdf]

Got it.

SPECIAL-NAMES. SYMBOLIC UL IS 196.
.
.
.
MOVE ALL UL TO UNDERLINE.

 

[Truusvlugindewind]

Code a structure like this in your WS:

 05 W-SOURCE-BYTE            PIC X(01).
 05 W-SOURCE-COMP            REDEFINES
    W-SOURCE-BYTE            PIC 9(02) COMP-X.
 88 W-CENTERED-BORDER-LINE   VALUE 195.

and code:

SET  W-CENTERED-BORDER-LINE TO TRUE.
MOVE W-SOURCE-BYTE          TO whatever

This will work on most COBOL compilers for windows & unix.

 

[CliveC]

05 ASCII-195 PIC X VALUE X'C3'.

Clive

http://tubularity.com

http://PalliativeCareConsulting.org

http://citywastepaper.com

 

[webrabbit]

I do that all the time. I just code the value between quotes, using the alt function of the numeric keypad. (Hold down the Alt key, enter 195 on the numeric keypad, release the Alt key. This works with most text editors.