× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: re: answers cause questions
  • From: "Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>
  • Date: Sun, 03 May 98 17:45:34 +1000

Hello Booth,

You wrote:

> 1) What is a good terminal model number to use for a device that will be a
> Client access PC?  Choices seem to be 3197, 3179, and 3477 or another?
> 
> 2) same question, for attached PC printers.  Model 5224, 4214, 3812, or
> another?

Depends on the support you require in the emulated devices.  If in doubt pick 
the most recent device type.

> 3) I want to display a record with many fields on the screen.  Depending
> on why and who is displaying the screen, I want some, all, or none of the
> fields to be input capable.  Is it possible to have 2 lines something like
> this:
>      A    31                                                  CHGINPDFT(HI
> UL)
>      A  N31                                                  CHGINPDFT(PR)
> instead of coding every single field, or having two formats?

Already answered by Charlie Massoglia.

> 
> Here's two questions I already didn't know the answer to:
> 
> 4) MOUBTN keyword: What is an EVENT-ID?  How would it be used?

The event-id is a hexadecimal value associated with the mouse button event and 
is used to program the mouse 
buttons.  There are 18 mouse events possible:  3 buttons with 3 events; each 
event (up, down, and double click) 
and two keyboard states (shifted and unshifted)  The event values used within 
the 5250 data stream as part of 
the Programmable Mouse Buttons Structured Field are:

x'00'           reserved
x'01'           Left button pressed
x'02'           Left button released
x'03'           Left button double-clicked
x'04'           Right button pressed
x'05'           Right button released
x'06'           Right button double-clicked
x'07'           Middle button pressed
x'08'           Middle button released
x'09'           Middle button double-clicked
x'0A'           Shifted left button pressed
x'0B'           Shifted left button released
x'0C'           Shifted left button double-clicked
x'0D'           Shifted right button pressed
x'0E'           Shifted right button released
x'0F'           Shifted right button double-clicked
x'10'           Shifted middle button pressed
x'11'           Shifted middle button released
x'12'           Shifted middle button double-clicked
x'13'-x'FF'     reserved         

However the EVENT-ID mentioned in the DDS Reference refers to associating the 
mouse buttons with an AID value 
much like the AID associated with function keys.  They should be returned in 
the same AID byte as the function 
keys.  You can associate any of these EVENT-ID values with a mouse event.  For 
example      
                MOUBTN(*ULP  E07)
associates the "unshifted left button pressed" event with the EVENT-ID E07.  
The actual value of the Enn event 
is described by the constants below.  Your program can use these values to 
handle mouse actions in the same way 
as it should handle function keys.  The EVENT-ID values are as follows:

For RPG IV
      * Mouse events (V3R1 DDS enhancement)
     D $ME00           C                   CONST(X'70')
     D $ME01           C                   CONST(X'71')
     D $ME02           C                   CONST(X'72')
     D $ME03           C                   CONST(X'73')
     D $ME04           C                   CONST(X'74')
     D $ME05           C                   CONST(X'75')
     D $ME06           C                   CONST(X'76')
     D $ME07           C                   CONST(X'77')
     D $ME08           C                   CONST(X'78')
     D $ME09           C                   CONST(X'79')
     D $ME10           C                   CONST(X'7A')
     D $ME11           C                   CONST(X'7B')
     D $ME12           C                   CONST(X'7C')
     D $ME13           C                   CONST(X'7D')
     D $ME14           C                   CONST(X'7E')
     D $ME15           C                   CONST(X'7F')

For RPG/400
      * Mouse events (V3R1 DDS enhancement)               
     I              X'70'                 C         $ME00  
     I              X'71'                 C         $ME01  
     I              X'72'                 C         $ME02  
     I              X'73'                 C         $ME03  
     I              X'74'                 C         $ME04  
     I              X'75'                 C         $ME05  
     I              X'76'                 C         $ME06  
     I              X'77'                 C         $ME07  
     I              X'78'                 C         $ME08  
     I              X'79'                 C         $ME09  
     I              X'7A'                 C         $ME10  
     I              X'7B'                 C         $ME11  
     I              X'7C'                 C         $ME12  
     I              X'7D'                 C         $ME13  
     I              X'7E'                 C         $ME14  
     I              X'7F'                 C         $ME15  


> 
> 5) Is it possible to put a scrollbar on a subfile window?
> 

Yes. SFLEND(*SCRBAR) will do it but check the DDS Reference to be sure you 
understand what happens on different 
display devices and also how page-at-a-time subfiles are shown.

Regards,
Simon Coulter.

//----------------------------------------------------------
// FlyByNight Software         AS/400 Technical Specialists
// Phone: +61 3 9419 0175      Mobile: +61 3 0411 091 400
// Fax:   +61 3 9419 0175      E-mail: shc@flybynight.com.au
// 
// Windoze should not be open at Warp speed.
 

//--- forwarded letter -------------------------------------------------------
> X-Mailer: MR/2 Internet Cruiser Edition for OS/2 v1.46b b46b 
> Date: Thu, 30 Apr 98 20:19:28 -0400
> From: boothm@ibm.net
> To: MIDRANGE-L@midrange.com
> Reply-To: MIDRANGE-L@midrange.com
> Subject: re: answers cause questions

> 
> When people give answers on here it causes questions.  Ah well, so it
> goes.
> 
> Here are some questions I already "knew" the answers to, and now I wonder
> if I do.
> 
 
> 
> 
> Here's two questions I already didn't know the answer to:
> 
> 4) MOUBTN keyword: What is an EVENT-ID?  How would it be used?
> 
> 5) Is it possible to put a scrollbar on a subfile window?
> 
> -- 
> -----------------------------------------------------------
> boothm@ibm.net
> -----------------------------------------------------------
> 


+---
| 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 MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.