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.