Subject: | |
From: | |
Reply To: | Stigers, Gregory - ANDOVER |
Date: | Thu, 12 Dec 1996 11:14:22 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
>Edited from HP COBOL II/XL Reference Manual, SPECIAL-NAMES Paragraph:
>
>The SPECIAL-NAMES paragraph allows you to relate certain[REV BEG]
>COBOL-supplied feature, switch, or device names[REV END] to mnemonic names.
>By specifying these mnemonic names in your program, you can invoke these
>functions... The SPECIAL-NAMES paragraph also allows you to specify symbolic
>characters and to relate class names to sets of characters.
>...
>For example, the following SYMBOLIC CHARACTERS clause declares the words
>BELL, CARRIAGE-RETURN, and ESCAPE:
>
> SYMBOLIC CHARACTERS BELL IS 8, CARRIAGE-RETURN IS 14, ESCAPE IS 28.
>
>With the above declaration you can use the following DISPLAY statements.
>The first DISPLAY makes a sound on the terminal before displaying the
>message. The second displays the message in inverse video on certain
>terminals:
>
> DISPLAY BELL " JOB COMPLETED ".
> DISPLAY ESCAPE "&dB" "Enter a number: ".
>--------
>While not using hex, such an approach may work; I expect that x1A should work
>instead of 27.
>
>Opinions are mine. Your actual mileage may vary.
>Greg "I'm no guru, but I LOVE COBOL" Stigers
>
>----------
>From: Curt Brimacomb[SMTP:[log in to unmask]]
>Sent: Wednesday, December 11, 1996 6:59 PM
>To: [log in to unmask]
>Subject: [HP3000-L] cobol
>
>Hey cobol gurus!
>
>I have a programmer here who (in cobol) want to be able to send escape
>sequences using the hex code for it. He knows decimal (pic s9(4) comp value
>27) and octal (pic x value %33).
>
>Can anyone tell me how to do it? Or is it not something HP cobol can do?
>
>TIA...
>**************************************************************************
>Curt Brimacomb [log in to unmask]
>System Manager
>Idaho Computer Services, Inc. 1-208-734-2245
>Twin Falls, ID 83303-0446 1-208-733-9663 (fax)
> http://www.magiclink.
>com
>
>
|
|
|