HP3000-L Archives

December 1996, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Stigers, Gregory - ANDOVER" <[log in to unmask]>
Reply To:
Stigers, Gregory - ANDOVER
Date:
Thu, 12 Dec 1996 11:14:22 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (52 lines)
>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
>
>

ATOM RSS1 RSS2