RE: MIDRANGE-L Digest V1 #635

[Vern Hamberg <hambergv@xxxxxxxxxxxxxx>]

At 11:01 AM 9/9/97 +0200, you wrote:
>Try using the SETKBDMAP command. This is a fragment from a old program
>we use as INLPGM.
>(I know it isn't perfect - the best way would be to check if the
>devicetype was 3270, but thats another story.)
>
>/*         Remote workstation?     */
>RTVJOBA    JOB(&WS)
>CHGVAR     &WS2  %SST(&WS 1 2)
>IF         ((&WS2 *EQ 'BG')                              +
>*OR        (&WS2 *EQ 'RW' )) THEN(DO)
>  SETKBDMAP  PF13(*F1) PF14(*F2) PF15(*F3) PF16(*F4) +
>               PF17(*F5) PF18(*F6) PF19(*F7) PF20(*F8) +
>               PF21(*F9) PF22(*F10) PF23(*F11) +
>               PF24(*F12) PA1PF1(*F13) PA1PF2(*F14) +
>               PA1PF3(*F15) PA1PF4(*F16) PA1PF5(*F17) +
>               PA1PF6(*F18) PA1PF7(*F19) PA1PF8(*F20) +
>               PA1PF9(*F21) PA1PF10(*F22) PA1PF11(*F23) +
>               PA1PF12(*F24)
>  MONMSG CPF8701
>  IF         (&COUNTRY *EQ '0') DO
>    SNDSTSMSG  ('Def. av tangentbord')
>  ENDDO
>  IF         (&COUNTRY *EQ '1') DO
>    SNDSTSMSG  (Remapping keyboard')
>  ENDDO
>ENDDO
>
>/Joakim

Interesting idea. But I think the Host-On-Demand (included with Netscape)
mapping is in the Java applet, not on the 400. But I don't know for sure.

Version 2 of Host-On-Demand has mapping built in, and that's where I think
it's in the applet.

Do check this thing out. Get the beta, or order the thing. (See my other
submissions for Web address.) There are some weaknesses as far as AS/400
functionality (no 5250 file transfer or screen print--yet, I hope), but
it's a fantastic, basic function, emulation. And _no_ Client Access, just a
TCP/IP connection by whatever means.

Mange tak (I hope that's close)

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---