HP3000-L Archives

April 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:
* How to get terminal model
From:
Todd Boyd <[log in to unmask]>
Reply To:
Todd Boyd <[log in to unmask]>
Date:
Wed, 10 Apr 1996 14:22:00 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (19 lines) 
From: Eddy BELIVEAU
 
I need to have a procedure/program that can be included in the sytem
logon UDC procedure and which set a JCW with a value like 70092, 70094
or 70096
 ----------------------
I have a COBOL program using the following lines:
 DISPLAY ESC, "*s12345^".
 ACCEPT SERIAL-NO.
 
Where ESC is set to the value %33 (Escape code) and SERIAL-NO is a 9 byte
character field.  This will return the value in the TERMINAL ID field on the
Terminal configuration screen, or if using a terminal emulator like
Reflections it will return the value "WRQ-" and serial number.
 
Hope it works,
 
Todd Boyd - American Floral Serivces.

ATOM RSS1 RSS2